4 use RT::Test tests => undef;
6 my $template = RT::Template->new( RT->SystemUser );
7 my ($ok, $msg) = $template->Create(
12 ===Create-Ticket: testing
14 Subject: duplicate: { $Tickets{TOP}->Subject }
19 my $ticket = RT::Test->create_ticket(
21 Subject => 'a ticket',
23 ok $ticket->id, "created ticket";
25 for my $type (qw(Simple Perl)) {
26 if ($template->Type ne $type) {
27 my ($ok, $msg) = $template->SetType($type);
31 require RT::Action::CreateTickets;
32 my $action = RT::Action::CreateTickets->new(
33 CurrentUser => RT->SystemUser,
34 TemplateObj => $template,
37 $action->{TransactionObj} = $ticket->Transactions->First;
38 ok $action->Prepare, 'prepares';
39 ok $action->Commit, 'commits';
41 my $new_ticket = RT::Test->last_ticket;
42 ok $new_ticket->id > $ticket->id, 'new ticket';
44 if ($type eq 'Perl') {
45 is $new_ticket->Subject, 'duplicate: a ticket', 'interpolated';
46 isnt $new_ticket->Subject, 'duplicate: { $Tickets{TOP}->Subject }', 'interpolated';
48 isnt $new_ticket->Subject, 'duplicate: a ticket', 'not interpolated';
49 is $new_ticket->Subject, 'duplicate: { $Tickets{TOP}->Subject }', 'not interpolated';