# Testing of Pod::Find
# Author: Marek Rouchal <marek@saftsack.fs.uni-bayreuth.de>
+BEGIN {
+ chdir 't' if -d 't';
+ # The ../../../../../lib is for finding lib/utf8.pm
+ # when running under all-utf8 settings (pod/find.t)
+ # does not directly require lib/utf8.pm but regular
+ # expressions will need that.
+ @INC = qw(../lib ../../../../../lib);
+}
+
$| = 1;
use Test;
BEGIN {
plan tests => 4;
use File::Spec;
- if ($^O eq 'VMS') {
- # This magick is needed to make the VMS I/O system to believe
- # that there's life after eight directory levels (this makes
- # it believe there's life until sixteen levels). The filesystem
- # has no limitation as such.
- $DEFAULT_DIR = $ENV{'DEFAULT'};
- my $here = $DEFAULT_DIR;
- my ($dev,$dir) = File::Spec->splitpath($here);
- $dev =~ s/:$//;
- $dev = $ENV{$dev} if exists($ENV{$dev});
- $dev .= ':' if $dev !~ /:/;
- $here = File::Spec->canonpath($dev.$dir);
- $here =~ s/\]$/.]/;
- system "define/nolog/job/trans=conceal temp_perl_base $here";
- chdir('temp_perl_base:[000000]');
- }
-}
-
-END {
- chdir($DEFAULT_DIR) if $^O eq 'VMS';
- system "deassign/job temp_perl_base";
}
use Pod::Find qw(pod_find pod_where);
}
ok($count/($#result+1)-1,$#compare);
}
+elsif ($^O eq 'dos') {
+ ok(lc $result,lc $compare);
+}
else {
ok($result,$compare);
}