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 = ; +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;