perl-Perl-OSType/Perl-OSType-1.008-old-Test:...

31 lines
662 B
Diff

--- t/OSType.t
+++ t/OSType.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 19;
use constant NON_EXISTENT_OS => 'titanix'; #the system they said could not go down...
@@ -65,5 +65,3 @@ can_ok( $test_pkg, @functions );
ok( !is_os_type(), "$fcn: false if no type provided" );
}
-done_testing;
-
--- xt/release/test-version.t
+++ xt/release/test-version.t
@@ -15,8 +15,8 @@ my $params = {
push @imports, $params
if version->parse( $Test::Version::VERSION ) >= version->parse('1.002');
+plan tests => 3;
Test::Version->import(@imports);
-version_all_ok;
-done_testing;
+version_all_ok();