[Jifty-commit] r3769 - in Test-WWW-Declare: lib/Test/WWW t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Fri Aug 3 12:56:13 EDT 2007
Author: sartak
Date: Fri Aug 3 12:56:12 2007
New Revision: 3769
Modified:
Test-WWW-Declare/ (props changed)
Test-WWW-Declare/lib/Test/WWW/Declare.pm
Test-WWW-Declare/t/basic_live.t
Test-WWW-Declare/t/basic_live_forms.t
Test-WWW-Declare/t/skip.t
Log:
r29861 at caladan: sartak | 2007-08-03 12:55:57 -0400
Test::More-ify
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 Fri Aug 3 12:56:12 2007
@@ -1,6 +1,7 @@
package Test::WWW::Declare;
use warnings;
use strict;
+use base qw/Test::More/;
our $VERSION = '0.00';
@@ -11,11 +12,28 @@
our @EXPORT = qw(flow run get session check mech match follow link content should click href button fill form SKIP);
our $BUILDER = Test::Builder->new();
-$BUILDER->no_plan();
our $WWW_MECHANIZE;
+=begin private
+=head2 import_extra
+Called by L<Test::More>'s C<import> code when L<Jifty::Test> is first
+C<use>'d, it calls L</setup>, and asks Test::More to export its
+symbols to the namespace that C<use>'d this one.
+
+=end private
+
+=cut
+
+sub import_extra {
+ my $class = shift;
+ my $args = shift;
+ $class->setup($args);
+ Test::More->export_to_level(2);
+}
+
+sub setup { }
sub SKIP ($) {
my $reason = shift;
Modified: Test-WWW-Declare/t/basic_live.t
==============================================================================
--- Test-WWW-Declare/t/basic_live.t (original)
+++ Test-WWW-Declare/t/basic_live.t Fri Aug 3 12:56:12 2007
@@ -1,4 +1,4 @@
-use Test::WWW::Declare;
+use Test::WWW::Declare tests => 2;
use warnings;
use strict;
Modified: Test-WWW-Declare/t/basic_live_forms.t
==============================================================================
--- Test-WWW-Declare/t/basic_live_forms.t (original)
+++ Test-WWW-Declare/t/basic_live_forms.t Fri Aug 3 12:56:12 2007
@@ -1,4 +1,4 @@
-use Test::WWW::Declare;
+use Test::WWW::Declare tests => 2;
use warnings;
use strict;
Modified: Test-WWW-Declare/t/skip.t
==============================================================================
--- Test-WWW-Declare/t/skip.t (original)
+++ Test-WWW-Declare/t/skip.t Fri Aug 3 12:56:12 2007
@@ -1,4 +1,4 @@
-use Test::WWW::Declare;
+use Test::WWW::Declare tests => 3;
use warnings;
use strict;
@@ -12,5 +12,7 @@
}
};
+ok(1);
+
1;
More information about the Jifty-commit
mailing list