You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
122 lines
2.4 KiB
122 lines
2.4 KiB
--- 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
|