--- t/creative_commons.t
+++ t/creative_commons.t
@@ -10,6 +10,8 @@ BEGIN {
or plan skip_all => "requires Software::License::CCpack to test this";
}
+plan tests => 1;
+
{
my $license = Software::License::CC_BY_1_0->new({holder => 'DUMMY'})->notice;
my $pod = "=head1 LICENSE\n\n$license\n=cut\n";
@@ -19,4 +21,3 @@ BEGIN {
);
}
-done_testing;
--- t/custom.t
+++ t/custom.t
@@ -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;
--- t/guess_license_from_pod.t
+++ t/guess_license_from_pod.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More tests => 1;
use Software::LicenseUtils;
{
@@ -32,4 +32,3 @@ LICENSE
);
}
-done_testing;
--- t/guess_meta_license.t
+++ t/guess_meta_license.t
@@ -64,4 +64,3 @@ is_deeply(
[ ],
);
-done_testing;
--- t/meta-names.t
+++ t/meta-names.t
@@ -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;
--- t/two-dots.t
+++ t/two-dots.t
@@ -32,6 +32,8 @@ my @licenses = qw(
Zlib
);
+plan tests => 3 * scalar(@licenses);
+
for my $l (@licenses) {
my $class = 'Software::License::' . $l;
require_ok($class);
@@ -48,4 +50,3 @@ for my $l (@licenses) {
);
}
-done_testing;
--- xt/release/changes_has_content.t
+++ xt/release/changes_has_content.t
@@ -2,7 +2,7 @@
use Test::More tests => 2;
-note 'Checking Changes';
+diag 'Checking Changes';
my $changes_file = 'Changes';
my $newver = '0.103012';
my $trial_token = '-TRIAL';
@@ -14,8 +14,6 @@ SKIP: {
ok(_get_changes($newver), "$changes_file has content for $newver");
}
-done_testing;
-
# _get_changes copied and adapted from Dist::Zilla::Plugin::Git::Commit
# by Jerome Quelin
sub _get_changes