From bd9756aaa2be339ac85461c5c0da6909ebfac799 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sun, 26 Feb 2012 09:18:04 -0600 Subject: 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. --- ext/Pod-Html/t/cache.t | 7 ++++--- 1 file 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"); -- cgit v1.2.1