[Jifty-commit] r3803 - in Test-WWW-Declare: lib/Test/WWW

[jifty-commit at lists.jifty.org]

Author: sartak
Date: Mon Aug  6 12:33:53 2007
New Revision: 3803

Modified:
   Test-WWW-Declare/   (props changed)
   Test-WWW-Declare/lib/Test/WWW/Declare.pm

Log:
 r29943 at caladan:  sartak | 2007-08-06 12:33:27 -0400
 Support fancy sessions


Modified: Test-WWW-Declare/lib/Test/WWW/Declare.pm
==============================================================================
--- Test-WWW-Declare/lib/Test/WWW/Declare.pm	(original)
+++ Test-WWW-Declare/lib/Test/WWW/Declare.pm	Mon Aug  6 12:33:53 2007
@@ -13,6 +13,7 @@
                  never always lack lacks);
 our $BUILDER = Test::Builder->new();
 our $WWW_MECHANIZE;
+our %mechs;
 
 =begin private
 
@@ -259,7 +260,9 @@
     my $title = shift;
     my $coderef = shift;
 
-    local $WWW_MECHANIZE = Test::WWW::Mechanize->new();
+    $mechs{$title} ||= Test::WWW::Mechanize->new();
+    local $WWW_MECHANIZE = $mechs{$title};
+
     eval { $coderef->() };
 
     if ($@ =~/^SKIP: (.*)$/) {