summaryrefslogtreecommitdiff
path: root/dist
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-10-23 20:52:39 +0100
committerNicholas Clark <nick@ccl4.org>2009-10-23 20:52:39 +0100
commit08332554c0d06391c67d978a02a96176ca382626 (patch)
tree03f681b9ccb601aaadc7382ae0f0f36044f0017f /dist
parentb6703958fc5a9cc56804c26040a6a8aaa7c26dfb (diff)
downloadperl-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.t11
-rw-r--r--dist/Pod-Perldoc/t/checkerbasic.t7
-rw-r--r--dist/Pod-Perldoc/t/perldocbasic.t7
-rw-r--r--dist/Pod-Perldoc/t/textbasic.t7
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();