Pod-Html/t/cache.t

26 my $infile = catfile('t', 'cache.pod');
32 is(-f $cachefile, undef, "No cache file to start");
33 is(-f $tcachefile, undef, "No cache file to start");
43 open(my $cache, '<', $cachefile) or die "Cannot open cache file: $!";
44 chomp(my $podpath = <$cache>);
45 chomp(my $podroot = <$cache>);
46 close $cache;
50 # test cache contents
59 open($cache, '<', $tcachefile) or die "Cannot open cache file: $!";
60 chomp($podpath = <$cache>);
61 chomp($podroot = <$cache>);
64 while (<$cache>) {
74 is_deeply(\%pages, \%expected_pages, "cache contents");
75 close $cache;
80 is(-f $cachefile, undef, "No cache file to end");
81 is(-f $tcachefile, undef, "No cache file to end");