4 use RT::Test tests => 14;
7 # Test the rest of the conditions.
10 # Test cleanup scripts.
12 my ($baseurl, $m) = RT::Test->started_ok;
13 ok $m->login, "logged in";
15 $m->follow_link_ok({id => 'tools-config-global-scrips-create'});
17 sub prepare_code_with_value {
20 # changing the ticket is an easy scrip check for a test
22 '$self->TicketObj->SetSubject(' .
23 '$self->TicketObj->Subject . ' .
29 # preserve order for checking the subject string later
30 my @values_for_actions;
32 my $conds = RT::ScripConditions->new(RT->SystemUser);
33 foreach my $cond_value ('On Forward', 'On Forward Ticket', 'On Forward Transaction') {
37 ENTRYAGGREGATOR => 'OR',
41 while (my $rec = $conds->Next) {
42 push @values_for_actions, [$rec->Id, '"' . $rec->Name . '"'];
45 @values_for_actions = sort { $a->[0] cmp $b->[0] } @values_for_actions;
47 foreach my $data (@values_for_actions) {
48 my ($condition, $prepare_code_value) = @$data;
49 diag "Create Scrip (Cond #$condition)" if $ENV{TEST_VERBOSE};
50 $m->follow_link_ok({id => 'tools-config-global-scrips-create'});
51 my $prepare_code = prepare_code_with_value($prepare_code_value);
52 $m->form_name('ModifyScrip');
54 'Scrip-new-ScripCondition' => $condition,
55 'Scrip-new-ScripAction' => 15, # User Defined
56 'Scrip-new-Template' => 1, # Blank
57 'Scrip-new-CustomPrepareCode' => $prepare_code,
62 my $ticket_obj = RT::Test->create_ticket(
67 my $ticket = $ticket_obj->id;
68 $m->goto_ticket($ticket);
71 { id => 'page-actions-forward' },
72 'follow 1st Forward to forward ticket'
75 diag "Forward Ticket" if $ENV{TEST_VERBOSE};
77 form_name => 'ForwardMessage',
79 To => 'rt-test, rt-to@example.com',
81 button => 'ForwardAndReturn'
84 $m->text_contains("#${ticket}: subject|On Forward|On Forward Ticket");
86 diag "Forward Transaction" if $ENV{TEST_VERBOSE};
87 # get the first transaction on the ticket
88 my ($transaction) = $ticket_obj->Transactions->First->id;
90 "$baseurl/Ticket/Forward.html?id=1&QuoteTransaction=$transaction"
93 form_name => 'ForwardMessage',
95 To => 'rt-test, rt-to@example.com',
97 button => 'ForwardAndReturn'
100 $m->text_contains("#${ticket}: subject|On Forward|On Forward Ticket|On Forward|On Forward Transaction");
102 RT::Test->clean_caught_mails;