diff -up Software-License-0.103001/t/custom.t.orig Software-License-0.103001/t/custom.t
--- Software-License-0.103001/t/custom.t.orig 2011-04-28 12:20:57.000000000 +0100
+++ Software-License-0.103001/t/custom.t 2011-04-28 15:41:09.821742581 +0100
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More tests => 8;
use Software::License::Custom;
@@ -40,5 +40,3 @@ Well... this is only some sample text. I
Yes, spanning more lines and more paragraphs.
END_OF_FULLTEXT
-
-done_testing;
diff -up Software-License-0.103001/t/meta-names.t.orig Software-License-0.103001/t/meta-names.t
--- Software-License-0.103001/t/meta-names.t.orig 2011-04-28 12:20:57.000000000 +0100
+++ Software-License-0.103001/t/meta-names.t 2011-04-28 15:40:17.974704365 +0100
@@ -2,13 +2,16 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More;
my @files = <lib/Software/License/*.pm>;
+plan tests => scalar @files;
+
for my $module (@files) {
# It's retired. Dunno if it's okay to be open_source. Punt!
- next if $module =~ /Sun.pm$/;
+ SKIP: {
+ skip "Dunno if it's okay for Sun.pm to be open_source", 1 if $module =~ /Sun.pm$/;
my $pkg = $module;
$pkg =~ s{^lib/}{};
@@ -18,6 +21,5 @@ for my $module (@files) {
eval "require $pkg; 1";
ok(defined $pkg->meta_name, "$pkg provide meta_name");
+ }
}
-
-done_testing;