diff options
-rw-r--r-- | dist/Pod-Perldoc/t/01_about_verbose.t | 11 | ||||
-rw-r--r-- | dist/Pod-Perldoc/t/checkerbasic.t | 7 | ||||
-rw-r--r-- | dist/Pod-Perldoc/t/perldocbasic.t | 7 | ||||
-rw-r--r-- | dist/Pod-Perldoc/t/textbasic.t | 7 |
4 files changed, 14 insertions, 18 deletions
diff --git a/dist/Pod-Perldoc/t/01_about_verbose.t b/dist/Pod-Perldoc/t/01_about_verbose.t index eb2f411fe9..6a0f30eabd 100644 --- a/dist/Pod-Perldoc/t/01_about_verbose.t +++ b/dist/Pod-Perldoc/t/01_about_verbose.t @@ -4,12 +4,11 @@ require 5; # Summary of, well, things. -use Test; -BEGIN {plan tests => 2}; +use Test::More tests => 2; -ok 1; - -use Pod::Perldoc; +BEGIN { + use_ok 'Pod::Perldoc'; +} #chdir "t" if -e "t"; @@ -83,5 +82,5 @@ foreach my $x (sort {lc($a) cmp lc($b)} keys %INC) { print "# [$x] = [", $INC{$x} || '', "]\n"; } -ok 1; +pass(); diff --git a/dist/Pod-Perldoc/t/checkerbasic.t b/dist/Pod-Perldoc/t/checkerbasic.t index c47dcedc64..a8d4dc0113 100644 --- a/dist/Pod-Perldoc/t/checkerbasic.t +++ b/dist/Pod-Perldoc/t/checkerbasic.t @@ -1,9 +1,8 @@ -use Test; -BEGIN {plan tests => 2}; -ok 1; +use Test::More tests => 2; +pass(); require Pod::Perldoc::ToChecker; $Pod::Perldoc::VERSION and print "# Pod::Perldoc version $Pod::Perldoc::VERSION\n"; -ok 1; +pass(); diff --git a/dist/Pod-Perldoc/t/perldocbasic.t b/dist/Pod-Perldoc/t/perldocbasic.t index 6f6b9984d7..e11b91e78e 100644 --- a/dist/Pod-Perldoc/t/perldocbasic.t +++ b/dist/Pod-Perldoc/t/perldocbasic.t @@ -1,9 +1,8 @@ -use Test; -BEGIN {plan tests => 3}; -ok 1; +use Test::More tests => 3; +pass(); require Pod::Perldoc; ok($Pod::Perldoc::VERSION) and print "# Pod::Perldoc version $Pod::Perldoc::VERSION\n"; -ok 1; +pass(); diff --git a/dist/Pod-Perldoc/t/textbasic.t b/dist/Pod-Perldoc/t/textbasic.t index 6814267ec8..3ed19a3452 100644 --- a/dist/Pod-Perldoc/t/textbasic.t +++ b/dist/Pod-Perldoc/t/textbasic.t @@ -1,9 +1,8 @@ -use Test; -BEGIN {plan tests => 2}; -ok 1; +use Test::More tests => 2; +pass(); require Pod::Perldoc::ToText; $Pod::Perldoc::VERSION and print "# Pod::Perldoc version $Pod::Perldoc::VERSION\n"; -ok 1; +pass(); |