Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
anchorify.t	1.24 KB	-r--r--r--	2014-12-27 11:48
cache.pod	54 B	-r--r--r--	2014-12-27 11:48
cache.t	1.89 KB	-r--r--r--	2014-12-27 11:48
crossref.pod	393 B	-r--r--r--	2014-12-27 11:48
crossref.t	2.27 KB	-r--r--r--	2014-12-27 11:48
crossref2.t	1.93 KB	-r--r--r--	2014-12-27 11:48
crossref3.t	2.02 KB	-r--r--r--	2014-12-27 11:48
eol.t	1.67 KB	-r--r--r--	2014-12-27 11:48
feature.pod	172 B	-r--r--r--	2014-12-27 11:48
feature.t	1.52 KB	-r--r--r--	2014-12-27 11:48
feature2.pod	172 B	-r--r--r--	2014-12-27 11:48
feature2.t	1.74 KB	-r--r--r--	2014-12-27 11:48
htmldir1.pod	239 B	-r--r--r--	2014-12-27 11:48
htmldir1.t	2.32 KB	-r--r--r--	2014-12-27 11:48
htmldir2.pod	212 B	-r--r--r--	2014-12-27 11:48
htmldir2.t	1.68 KB	-r--r--r--	2014-12-27 11:48
htmldir3.pod	208 B	-r--r--r--	2014-12-27 11:48
htmldir3.t	2.04 KB	-r--r--r--	2014-12-27 11:48
htmldir4.pod	212 B	-r--r--r--	2014-12-27 11:48
htmldir4.t	1.52 KB	-r--r--r--	2014-12-27 11:48
htmldir5.pod	208 B	-r--r--r--	2014-12-27 11:48
htmldir5.t	1.62 KB	-r--r--r--	2014-12-27 11:48
htmlescp.pod	371 B	-r--r--r--	2014-12-27 11:48
htmlescp.t	1.08 KB	-r--r--r--	2014-12-27 11:48
htmllink.pod	1010 B	-r--r--r--	2014-12-27 11:48
htmllink.t	3 KB	-r--r--r--	2014-12-27 11:48
htmlview.pod	1.97 KB	-r--r--r--	2014-12-27 11:48
htmlview.t	4.1 KB	-r--r--r--	2014-12-27 11:48
pod2html-lib.pl	3.08 KB	-r--r--r--	2014-12-27 11:48
poderr.pod	132 B	-r--r--r--	2014-12-27 11:48
poderr.t	1.11 KB	-r--r--r--	2014-12-27 11:48
podnoerr.pod	132 B	-r--r--r--	2014-12-27 11:48
podnoerr.t	818 B	-r--r--r--	2014-12-27 11:48

Rename

#!/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 Test::More tests => 10;

my $cwd = Pod::Html::_unixify(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 = 
    # chop off the .pod and set the path
    map { my $f = substr($_, 0, -4); $f => "t/$f" }
    <*.pod>;
chdir($cwd);
is_deeply(\%pages, \%expected_pages, "cache contents");
close $cache;

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");