This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert the Pod::Perldoc tests from Test to Test::More.
authorNicholas Clark <nick@ccl4.org>
Fri, 23 Oct 2009 19:52:39 +0000 (20:52 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 23 Oct 2009 19:52:39 +0000 (20:52 +0100)
Not that they test much, other than require of the various modules.

dist/Pod-Perldoc/t/01_about_verbose.t
dist/Pod-Perldoc/t/checkerbasic.t
dist/Pod-Perldoc/t/perldocbasic.t
dist/Pod-Perldoc/t/textbasic.t

index eb2f411..6a0f30e 100644 (file)
@@ -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();
 
index c47dced..a8d4dc0 100644 (file)
@@ -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();
 
index 6f6b998..e11b91e 100644 (file)
@@ -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();
 
index 6814267..3ed19a3 100644 (file)
@@ -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();