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

[ruz at bestpractical.com]

Author: ruz
Date: Sat Sep 15 19:26:42 2007
New Revision: 9064

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

Log:
* add support for passing id of a queues instead of
  object in RT::Test::Web::goto_create_ticket()


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	Sat Sep 15 19:26:42 2007
@@ -69,13 +69,19 @@
 sub goto_create_ticket {
     my $self = shift;
     my $queue = shift;
-    unless ( ref $queue ) {
+
+    my $id;
+    if ( ref $queue ) {
+        $id = $queue->id;
+    } elsif ( $queue =~ /^\d+$/ ) {
+        $id = $queue;
+    } else {
         die "not yet implemented";
     }
 
     $self->get('/');
     $self->form_name('CreateTicketInQueue');
-    $self->select( 'Queue', $queue->id );
+    $self->select( 'Queue', $id );
     $self->submit;
 
     return 1;