BEGIN { use File::Spec::Functions ':ALL'; @INC = map { rel2abs($_) } (qw| ./lib ./t/lib ../../lib |); } use strict; use warnings; use Test::More; use Testing qw( setup_testing_dir xconvert ); use Cwd; my $debug = 0; my $startdir = cwd(); END { chdir($startdir) or die("Cannot change back to $startdir: $!"); } my ($expect_raw, $args); { local $/; $expect_raw = ; } my $tdir = setup_testing_dir( { debug => $debug, } ); my ($v, $d) = splitpath(cwd(), 1); my @dirs = splitdir($d); shift @dirs if $dirs[0] eq ''; my $relcwd = join '/', @dirs; $args = { podstub => "crossref", description => "cross references", expect => $expect_raw, p2h => { podpath => File::Spec::Unix->catdir($relcwd, 't') . ":" . File::Spec::Unix->catdir($relcwd, 'corpus/test.lib'), podroot => catpath($v, '/', ''), quiet => 1, }, debug => $debug, }; xconvert($args); done_testing; __DATA__ htmlcrossref - Test HTML cross reference links

NAME

htmlcrossref - Test HTML cross reference links

LINKS

"section1"

"section 2" in htmllink

"item1"

"non existent 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.