diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-10-23 20:52:39 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-10-23 20:52:39 +0100 |
commit | 08332554c0d06391c67d978a02a96176ca382626 (patch) | |
tree | 03f681b9ccb601aaadc7382ae0f0f36044f0017f /dist | |
parent | b6703958fc5a9cc56804c26040a6a8aaa7c26dfb (diff) | |
download | perl-08332554c0d06391c67d978a02a96176ca382626.tar.gz |
Convert the Pod::Perldoc tests from Test to Test::More.
Not that they test much, other than require of the various modules.
Diffstat (limited to 'dist')
-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(); |