5 use RT::Test tests => 20;
7 my ( $url, $m ) = RT::Test->started_ok;
8 ok( $m->login, 'logged in' );
12 ===Create-Ticket: ticket1
17 my $ticket = create_ticket_offline( $m, $template );
18 ok $ticket->id, 'created a ticket with offline tool';
19 is $ticket->QueueObj->Name, 'General', 'correct value';
20 is $ticket->Subject, 'test', 'correct value';
21 is $ticket->Status, 'new', 'correct value';
25 my $template = <<'EOF';
26 ===Create-Ticket: ticket1
30 Requestor: test@example.com
32 my $ticket = create_ticket_offline( $m, $template );
33 ok $ticket->id, 'created a ticket with offline tool';
34 is $ticket->RequestorAddresses, 'test@example.com', 'correct value';
38 my $group = RT::Group->new(RT->SystemUser);
39 my ($id, $msg) = $group->CreateUserDefinedGroup( Name => 'test' );
40 ok $id, "created a user defined group";
42 my $template = <<'EOF';
43 ===Create-Ticket: ticket1
47 Requestor: test@example.com
50 my $ticket = create_ticket_offline( $m, $template );
51 ok $ticket->id, 'created a ticket with offline tool';
53 { $_->MemberId eq $group->id }
54 @{ $ticket->Requestors->MembersObj->ItemsArrayRef }
56 is $ticket->RequestorAddresses, 'test@example.com', 'correct value';
59 sub create_ticket_offline {
60 my ($m, $template) = @_;
62 $m->get_ok( $url . '/Tools/Offline.html' );
65 form_name => 'TicketUpdate',
66 fields => { string => $template },
67 button => 'UpdateTickets',
70 my $ticket = RT::Ticket->new( RT->SystemUser );
71 $m->content_like( qr/Ticket \d+ created/, 'found ticket created message' )
74 $ticket->Load( $m->content =~ /Ticket (\d+) created/ );