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

[ruz at bestpractical.com]

Author: ruz
Date: Mon Jul 23 11:47:28 2007
New Revision: 8261

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

Log:
* logout first before login

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test/Web.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test/Web.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test/Web.pm	Mon Jul 23 11:47:28 2007
@@ -16,6 +16,11 @@
     
     my $url = $self->rt_base_url;
 
+    $self->get($url);
+    if ( $self->content =~ qr/Logout/i ) {
+        $self->follow_link( text => 'Logout' );
+    }
+
     $self->get($url . "?user=$user;pass=$pass");
     return 0 unless $self->status == 200;
     return 0 unless $self->content =~ qr/Logout/i;