diff options
| author | Marc Green <marcgreen@wpi.edu> | 2012-01-24 21:20:55 -0500 |
|---|---|---|
| committer | Marc Green <marcgreen@cpan.org> | 2012-01-23 21:33:30 -0500 |
| commit | e43c1a8a695a56bfd09398210aed0700f3f0f23b (patch) | |
| tree | befa7f116c60a41cbd66676119e6eb2ce911e3b4 | |
| parent | c3a7b12650951e80a0d1b479c65d67e4ef5cf95d (diff) | |
| download | perl-smoke-me/marcg/pod-html-addcache.tar.gz | |
Fix portability issue with Pod::Html test casesmoke-me/marcg/pod-html-addcache
| -rw-r--r-- | ext/Pod-Html/t/cache.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Pod-Html/t/cache.t b/ext/Pod-Html/t/cache.t index 3c4734a2dc..f38de45fa1 100644 --- a/ext/Pod-Html/t/cache.t +++ b/ext/Pod-Html/t/cache.t @@ -11,7 +11,6 @@ use strict; use Cwd; use Pod::Html; use Data::Dumper; -use File::Spec; use Test::More tests => 10; my $cwd = Cwd::cwd(); @@ -59,7 +58,8 @@ while (<$cache>) { } chdir("t"); my %expected_pages = - map { my $f = substr($_, 0, -4); $f => File::Spec->catfile($cwd,'t',$f) } + # chop off the .pod and set the path + map { my $f = substr($_, 0, -4); $f => "$cwd/t/$f" } <*.pod>; chdir($cwd); is_deeply(\%pages, \%expected_pages, "cache contents"); |