summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2012-02-26 09:18:04 -0600
committerCraig A. Berry <craigberry@mac.com>2012-02-28 19:13:42 -0600
commitbd9756aaa2be339ac85461c5c0da6909ebfac799 (patch)
treeff80d615e798a957cf4b3b5e75f1e6cdae14deae
parent1e33ffe43f81ff0cc6660854eb7a901d30fa31c6 (diff)
downloadperl-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.
-rw-r--r--ext/Pod-Html/t/cache.t7
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");