[Jifty-commit] r1426 - in jifty: .

jifty-commit at lists.jifty.org jifty-commit at lists.jifty.org
Sat Jul 1 16:32:31 EDT 2006


Author: nelhage
Date: Sat Jul  1 16:32:30 2006
New Revision: 1426

Modified:
   jifty/   (props changed)
   jifty/trunk/lib/Jifty/Test/WWW/Mechanize.pm

Log:
 r13515 at phanatique:  nelhage | 2006-06-30 18:57:55 +0200
 Using $Test::Builder::Level to make our tests much friendlier


Modified: jifty/trunk/lib/Jifty/Test/WWW/Mechanize.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Test/WWW/Mechanize.pm	(original)
+++ jifty/trunk/lib/Jifty/Test/WWW/Mechanize.pm	Sat Jul  1 16:32:30 2006
@@ -307,9 +307,11 @@
 sub get_html_ok {
     my $self = shift;
     $self->get(@_);
-    # TODO XXX FIXME play with $Test::Builder::Level to get errors reported from
-    # right place?
-    html_ok($self->content);
+    {
+        local $Test::Builder::Level = $Test::Builder::Level;
+        $Test::Builder::Level++;
+        html_ok($self->content);
+    }       
 } 
 
 =head2 submit_html_ok 
@@ -322,9 +324,11 @@
 sub submit_html_ok {
     my $self = shift;
     $self->submit(@_);
-    # TODO XXX FIXME play with $Test::Builder::Level to get errors reported from
-    # right place?
-    html_ok($self->content);
+    {
+        local $Test::Builder::Level = $Test::Builder::Level;
+        $Test::Builder::Level++;
+        html_ok($self->content);
+    }
 } 
 
 =head2 follow_link_ok 
@@ -343,9 +347,11 @@
 
     carp("Couldn't find link") unless
       $self->follow_link(@_);
-    # TODO XXX FIXME play with $Test::Builder::Level to get errors reported from
-    # right place?
-    html_ok($self->content);
+    {
+        local $Test::Builder::Level = $Test::Builder::Level;
+        $Test::Builder::Level++;
+        html_ok($self->content);
+    }
 } 
 
 =head2 session


More information about the Jifty-commit mailing list