Portability tweaks to Pod::Html's cache.t.
authorCraig A. Berry <craigberry@mac.com>
Sun, 26 Feb 2012 15:18:04 +0000 (09:18 -0600)
committerCraig A. Berry <craigberry@mac.com>
Wed, 29 Feb 2012 01:13:42 +0000 (19:13 -0600)
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

index 5a8e1fe..3a48a3c 100644 (file)
@@ -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");