summaryrefslogtreecommitdiff
path: root/lib/Test/Harness/t/pod.t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-11-30 20:31:59 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-11-30 20:31:59 +0000
commite4fc8a1e010cc9cb02abe6e5d8d39a15decdcd55 (patch)
tree5876db4ca716cddd7393b89cb6fbf3964e5e2055 /lib/Test/Harness/t/pod.t
parent767bb2e0924772d5c7f107cbef61877d1bc39810 (diff)
downloadperl-e4fc8a1e010cc9cb02abe6e5d8d39a15decdcd55.tar.gz
Upgrade to Test::Harness 2.38.
Introduce the prove(1) utility. (The prove-switches test is disabled for now.) p4raw-id: //depot/perl@21826
Diffstat (limited to 'lib/Test/Harness/t/pod.t')
-rw-r--r--lib/Test/Harness/t/pod.t29
1 files changed, 10 insertions, 19 deletions
diff --git a/lib/Test/Harness/t/pod.t b/lib/Test/Harness/t/pod.t
index 6a299a6273..38d72b1492 100644
--- a/lib/Test/Harness/t/pod.t
+++ b/lib/Test/Harness/t/pod.t
@@ -1,23 +1,14 @@
BEGIN {
- eval "use Test::More";
- if ($@) {
- print "1..0 # SKIPPED: Test::More not installed.\n";
- exit;
+ if( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = ('../lib', 'lib');
+ }
+ else {
+ unshift @INC, 't/lib';
}
}
-use File::Spec;
-use File::Find;
-use strict;
-
-eval "use Test::Pod 0.95";
-
-if ($@) {
- plan skip_all => "Test::Pod v0.95 required for testing POD";
-} else {
- my @files;
- my $blib = File::Spec->catfile(qw(blib lib));
- find( sub {push @files, $File::Find::name if /\.p(l|m|od)$/}, $blib);
- plan tests => scalar @files;
- Test::Pod::pod_file_ok($_) foreach @files;
-}
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();