[Rt-commit] r8935 - rt/branches/3.7-EXPERIMENTAL/lib/RT/Test

[ruz at bestpractical.com]

Author: ruz
Date: Wed Sep  5 08:57:40 2007
New Revision: 8935

Modified:
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Test/Web.pm

Log:
RT::Test::Web
* add goto_create_ticket function

Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Test/Web.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Test/Web.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Test/Web.pm	Wed Sep  5 08:57:40 2007
@@ -64,7 +64,21 @@
         return 0;
     }
     return 1;
+}
+
+sub goto_create_ticket {
+    my $self = shift;
+    my $queue = shift;
+    unless ( ref $queue ) {
+        die "not yet implemented";
+    }
 
+    $self->get('/');
+    $self->form_name('CreateTicketInQueue');
+    $self->select( 'Queue', $queue->id );
+    $self->submit;
+
+    return 1;
 }
 
 1;