7 use RT::Test tests => 17;
10 my $RecordTransaction;
11 my $UpdateLastUpdated;
14 use_ok('RT::Action::LinearEscalate');
16 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );
17 ok $q && $q->id, 'loaded or created queue';
19 # rt-cron-tool uses Gecos name to get rt user, so we'd better create one
20 my $gecos = RT::Test->load_or_create_user(
22 Password => 'password',
23 Gecos => ($^O eq 'MSWin32') ? Win32::LoginName() : (getpwuid($<))[0],
25 ok $gecos && $gecos->id, 'loaded or created gecos user';
27 # get rid of all right permissions
28 $gecos->PrincipalObj->GrantRight( Right => 'SuperUser' );
31 my $user = RT::Test->load_or_create_user(
32 Name => 'user', Password => 'password',
34 ok $user && $user->id, 'loaded or created user';
36 $user->PrincipalObj->GrantRight( Right => 'SuperUser' );
37 my $current_user = RT::CurrentUser->new($RT::SystemUser);
38 ($id, $msg) = $current_user->Load($user->id);
39 ok( $id, "Got current user? $msg" );
42 $RecordTransaction = 0;
43 $UpdateLastUpdated = 1;
44 my $ticket2 = create_ticket_as_ok($current_user);
45 escalate_ticket_ok($ticket2);
46 ok( $ticket2->LastUpdatedBy != $user->id, "Set LastUpdated" );
47 ok( $ticket2->Transactions->Last->Type =~ /Create/i, "Did not record a transaction" );
49 $RecordTransaction = 1;
50 $UpdateLastUpdated = 1;
51 my $ticket1 = create_ticket_as_ok($current_user);
52 escalate_ticket_ok($ticket1);
53 ok( $ticket1->LastUpdatedBy != $user->id, "Set LastUpdated" );
54 ok( $ticket1->Transactions->Last->Type !~ /Create/i, "Recorded a transaction" );
56 $RecordTransaction = 0;
57 $UpdateLastUpdated = 0;
58 my $ticket3 = create_ticket_as_ok($current_user);
59 escalate_ticket_ok($ticket3);
60 ok( $ticket3->LastUpdatedBy == $user->id, "Did not set LastUpdated" );
61 ok( $ticket3->Transactions->Last->Type =~ /Create/i, "Did not record a transaction" );
66 sub create_ticket_as_ok {
69 my $created = RT::Date->new($RT::SystemUser);
70 $created->Unix(time() - ( 7 * 24 * 60**2 ));
71 my $due = RT::Date->new($RT::SystemUser);
72 $due->Unix(time() + ( 7 * 24 * 60**2 ));
74 my $ticket = RT::Ticket->new($user);
75 ($id, $msg) = $ticket->Create( Queue => $q->id,
76 Subject => "Escalation test",
81 ok($id, "Created ticket? ".$id);
82 $ticket->__Set( Field => 'Created',
83 Value => $created->ISO,
85 $ticket->__Set( Field => 'Due',
92 sub escalate_ticket_ok {
95 print "$RT::BinPath/rt-crontool --search RT::Search::FromSQL --search-arg \"id = @{[$id]}\" --action RT::Action::LinearEscalate --action-arg \"RecordTransaction:$RecordTransaction; UpdateLastUpdated:$UpdateLastUpdated\"\n";
96 print STDERR `$RT::BinPath/rt-crontool --search RT::Search::FromSQL --search-arg "id = @{[$id]}" --action RT::Action::LinearEscalate --action-arg "RecordTransaction:$RecordTransaction; UpdateLastUpdated:$UpdateLastUpdated"`;
98 $ticket->Load($id); # reload, because otherwise we get the cached value
99 ok( $ticket->Priority != 0, "Escalated ticket" );