[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