diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-02-26 09:18:04 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-02-28 19:13:42 -0600 |
| commit | bd9756aaa2be339ac85461c5c0da6909ebfac799 (patch) | |
| tree | ff80d615e798a957cf4b3b5e75f1e6cdae14deae /ext/Pod-Html | |
| parent | 1e33ffe43f81ff0cc6660854eb7a901d30fa31c6 (diff) | |
| download | perl-bd9756aaa2be339ac85461c5c0da6909ebfac799.tar.gz | |
Portability tweaks to Pod::Html's cache.t.
We need to unixify the current working directory since we're going
to be comparing to the pod root that has been unixified internally
in Pod::Html.
Also clean up all versions of the generated files.
Diffstat (limited to 'ext/Pod-Html')
| -rw-r--r-- | ext/Pod-Html/t/cache.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/Pod-Html/t/cache.t b/ext/Pod-Html/t/cache.t index 5a8e1fef1f..3a48a3cb23 100644 --- a/ext/Pod-Html/t/cache.t +++ b/ext/Pod-Html/t/cache.t @@ -13,7 +13,7 @@ use Pod::Html; use Data::Dumper; use Test::More tests => 10; -my $cwd = Cwd::cwd(); +my $cwd = Pod::Html::_unixify(Cwd::cwd()); my $infile = "t/cache.pod"; my $outfile = "cacheout.html"; my $cachefile = "pod2htmd.tmp"; @@ -65,7 +65,8 @@ chdir($cwd); is_deeply(\%pages, \%expected_pages, "cache contents"); close $cache; -unlink $outfile; -unlink $cachefile, $tcachefile; +1 while unlink $outfile; +1 while unlink $cachefile; +1 while unlink $tcachefile; is(-f $cachefile, undef, "No cache file to end"); is(-f $tcachefile, undef, "No cache file to end"); |