From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 23 Oct 2009 19:52:39 +0000 (+0100)
Subject: Convert the Pod::Perldoc tests from Test to Test::More.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08332554c0d06391c67d978a02a96176ca382626;p=p5sagit%2Fp5-mst-13.2.git

Convert the Pod::Perldoc tests from Test to Test::More.

Not that they test much, other than require of the various modules.
---

diff --git a/dist/Pod-Perldoc/t/01_about_verbose.t b/dist/Pod-Perldoc/t/01_about_verbose.t
index eb2f411..6a0f30e 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 c47dced..a8d4dc0 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 6f6b998..e11b91e 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 6814267..3ed19a3 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();