add test counts, obviating done_testing
Karen Etheridge [Sat, 22 Dec 2012 01:47:34 +0000 (17:47 -0800)]
t/011_process_argv.t
t/104_override_usage.t
t/105_uc_bug_more.t
t/106_no_ignore_case.t
t/107_no_auto_help.t
t/107_union_bug.t

index c070d54..2a7baf3 100644 (file)
@@ -1,18 +1,9 @@
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More tests => 6;
 use Test::Fatal 0.003;
-
-if ( !eval { require Test::Deep } )
-{
-    plan skip_all => 'Test requires Test::Deep';
-    exit;
-}
-else
-{
-    plan tests => 6;
-}
+use Test::Requires 'Test::Deep';
 
 {
     package Testing::Foo;
index be68178..71ff691 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
-use Test::More 0.88;
+
+use Test::More tests => 8;
 use Test::Trap;
 
 {
@@ -55,5 +56,3 @@ use Test::Trap;
      is_deeply \@MyScript::exception, $exp;
 }
 
-done_testing;
-
index 061dc97..04a8c9b 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
-use Test::More;
+
+use Test::More tests => 12;
 use Moose ();
 use Moose::Meta::Class;
 
@@ -33,5 +34,3 @@ foreach my $role (qw/
         "Debug was set for argv --debug on $role");
 }
 
-done_testing;
-
index 709ec65..06955c8 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
-use Test::More;
+
+use Test::More tests => 21;
 use Moose ();
 use Moose::Meta::Class;
 
@@ -53,5 +54,3 @@ foreach my $role (qw/
     }
 }
 
-done_testing;
-
index f252780..d3eb573 100644 (file)
@@ -7,11 +7,11 @@
 # Summary: If we disable the "auto_help" option in Getopt::Long, then
 # getoptions() will not call into pod2usage() (causing program termination)
 # when --help is passed (and MooseX::ConfigFromFile is in use).
+
 use strict;
 use warnings;
 
-use Test::More;
-
+use Test::More tests => 1;
 use Test::Requires {
     'MooseX::SimpleConfig' => 0.07, # skip all if not installed
 };
@@ -47,8 +47,6 @@ use Test::Fatal 0.003;
 END {
     ok(!$fail_on_exit, 'getoptions() lives');
 
-    done_testing;
-
     # cancel the non-zero exit status from _getopt_full_usage()
     exit 0;
 }
index 5d03c68..270e3bf 100644 (file)
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More tests => 5;
 
 {
     package example;
@@ -60,5 +60,3 @@ use Test::More;
     is_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
 }
 
-done_testing;
-