[Rt-commit] r8994 - rt/branches/3.7-EXPERIMENTAL/t/web

ruz at bestpractical.com ruz at bestpractical.com
Tue Sep 11 16:41:39 EDT 2007


Author: ruz
Date: Tue Sep 11 16:41:38 2007
New Revision: 8994

Modified:
   rt/branches/3.7-EXPERIMENTAL/t/web/gnupg-outgoing.t

Log:
* typo create_a_ticket vs. update_ticket

Modified: rt/branches/3.7-EXPERIMENTAL/t/web/gnupg-outgoing.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/web/gnupg-outgoing.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/web/gnupg-outgoing.t	Tue Sep 11 16:41:38 2007
@@ -39,7 +39,7 @@
 
 RT::Test->set_rights(
     Principal => 'Everyone',
-    Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ModifyTicket'],
+    Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyTicket', 'ModifyTicket'],
 );
 
 my ($baseurl, $m) = RT::Test->started_ok;
@@ -118,7 +118,7 @@
 my $tid;
 {
     my $ticket = RT::Ticket->new( $RT::SystemUser );
-    my ($tid) = $ticket->Create(
+    ($tid) = $ticket->Create(
         Subject   => 'test',
         Queue     => $queue->id,
         Requestor => 'rt-test at example.com',
@@ -130,7 +130,7 @@
 foreach my $queue_set ( @variants ) {
     set_queue_crypt_options( %$queue_set );
     foreach my $ticket_set ( @variants ) {
-        create_a_ticket( %$ticket_set );
+        update_ticket( $tid, %$ticket_set );
     }
 }
 
@@ -273,12 +273,13 @@
 }
 
 sub update_ticket {
+    my $tid = shift;
     my %args = (@_);
 
     # cleanup mail catcher's storage
     unlink "t/mailbox";
 
-    $m->goto_ticket( $tid );
+    ok $m->goto_ticket( $tid ), "UI -> ticket #$tid";
     $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' );
     $m->form_number(3);
     $m->field( UpdateContent => 'Some content' );


More information about the Rt-commit mailing list