diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-11-30 20:31:59 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-11-30 20:31:59 +0000 |
commit | e4fc8a1e010cc9cb02abe6e5d8d39a15decdcd55 (patch) | |
tree | 5876db4ca716cddd7393b89cb6fbf3964e5e2055 /lib/Test/Harness/t/pod.t | |
parent | 767bb2e0924772d5c7f107cbef61877d1bc39810 (diff) | |
download | perl-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.t | 29 |
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(); |