1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!/usr/bin/perl -w # -*- perl -*-
BEGIN {
die "Run me from outside the t/ directory, please" unless -d 't';
}
# test the directory cache
# XXX test --flush and %Pages being loaded/used for cross references
use strict;
use Cwd;
use Pod::Html;
use Data::Dumper;
use File::Spec;
use Test::More tests => 10;
my $cwd = Cwd::cwd();
my $infile = "t/cache.pod";
my $outfile = "cacheout.html";
my $cachefile = "pod2htmd.tmp";
my $tcachefile = "t/pod2htmd.tmp";
unlink $cachefile, $tcachefile;
is(-f $cachefile, undef, "No cache file to start");
is(-f $tcachefile, undef, "No cache file to start");
# test podpath and podroot
Pod::Html::pod2html(
"--infile=$infile",
"--outfile=$outfile",
"--podpath=scooby:shaggy:fred:velma:daphne",
"--podroot=$cwd",
);
is(-f $cachefile, 1, "Cache created");
open(my $cache, '<', $cachefile) or die "Cannot open cache file: $!";
chomp(my $podpath = <$cache>);
chomp(my $podroot = <$cache>);
close $cache;
is($podpath, "scooby:shaggy:fred:velma:daphne", "podpath");
is($podroot, "$cwd", "podroot");
# test cache contents
Pod::Html::pod2html(
"--infile=$infile",
"--outfile=$outfile",
"--cachedir=t",
"--podpath=t",
"--htmldir=$cwd",
);
is(-f $tcachefile, 1, "Cache created");
open($cache, '<', $tcachefile) or die "Cannot open cache file: $!";
chomp($podpath = <$cache>);
chomp($podroot = <$cache>);
is($podpath, "t", "podpath");
my %pages;
while (<$cache>) {
/(.*?) (.*)$/;
$pages{$1} = $2;
}
chdir("t");
my %expected_pages =
map { my $f = substr($_, 0, -4); $f => File::Spec->catfile($cwd,'t',$f) }
<*.pod>;
chdir($cwd);
is_deeply(\%pages, \%expected_pages, "cache contents");
close $cache;
unlink $outfile;
unlink $cachefile, $tcachefile;
is(-f $cachefile, undef, "No cache file to end");
is(-f $tcachefile, undef, "No cache file to end");
|