[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