#!/usr/bin/perl -w # -*- perl -*-
BEGIN {
require "t/pod2html-lib.pl";
}
END {
rem_test_dir();
}
use strict;
use Cwd;
use File::Spec::Functions;
use Test::More tests => 1;
SKIP: {
my $output = make_test_dir();
skip "$output", 1 if $output;
my ($v, $d) = splitpath(cwd(), 1);
my @dirs = splitdir($d);
shift @dirs if $dirs[0] eq '';
my $relcwd = join '/', @dirs;
convert_n_test("crossref", "cross references",
"--podpath=". File::Spec::Unix->catdir($relcwd, 't') . ":"
. File::Spec::Unix->catdir($relcwd, 'testdir/test.lib'),
"--podroot=". catpath($v, '/', ''),
"--quiet",
);
}
__DATA__
NAME
htmlcrossref - Test HTML cross reference links
LINKS
"section1"
"section 2" in htmllink
"item1"
"non existant section"
var-copy
"$"" in var-copy
var-copy
var-copy/$"
"First:" in podspec-copy
podspec-copy/First:
notperldoc
TARGETS
section1
This is section one.
- item1
-
This is item one.