2 # Check that the "On Reject" scrip condition exists and is working
8 use RT::Test tests => 7;
13 my $q = RT::Queue->new($RT::SystemUser);
14 $q->Create(Name =>'rejectTest');
16 ok($q->Id, "Created a scriptest queue");
18 my $s1 = RT::Scrip->new($RT::SystemUser);
19 my ($val, $msg) =$s1->Create( Queue => $q->Id,
20 ScripAction => 'User Defined',
21 ScripCondition => 'On reject',
22 CustomIsApplicableCode => '',
23 CustomPrepareCode => 'return 1',
25 $self->TicketObj->SetPriority($self->TicketObj->Priority+1);
32 my $ticket = RT::Ticket->new($RT::SystemUser);
33 my ($tv,$ttv,$tm) = $ticket->Create(Queue => $q->Id,
34 Subject => "hair on fire",
35 InitialPriority => '20'
38 ok($ticket->SetStatus('rejected'), "Status set to \"rejected\"");
39 is ($ticket->Priority , '21', "Condition is true, scrip triggered");
40 ok($ticket->SetStatus('open'), "Status set to \"open\"");
41 is ($ticket->Priority , '21', "Condition is false, scrip skipped");