diff options
Diffstat (limited to 'ext/Pod-Html/t/crossref.t')
| -rw-r--r-- | ext/Pod-Html/t/crossref.t | 37 |
1 files changed, 23 insertions, 14 deletions
diff --git a/ext/Pod-Html/t/crossref.t b/ext/Pod-Html/t/crossref.t index 0a3ba63fa6..ec178e0024 100644 --- a/ext/Pod-Html/t/crossref.t +++ b/ext/Pod-Html/t/crossref.t @@ -4,20 +4,29 @@ BEGIN { require "t/pod2html-lib.pl"; } +END { + rem_test_dir(); +} + use strict; use Cwd; use File::Spec; use File::Spec::Functions; use Test::More tests => 1; -my ($v, $d) = splitpath(cwd(), 1); -my $relcwd = substr($d, length(File::Spec->rootdir())); - -convert_n_test("crossref", "cross references", - "--podpath=". catdir($relcwd, 't') . ":" . catdir($relcwd, 'test.lib'), - "--podroot=$v". File::Spec->rootdir, - "--quiet", -); +SKIP: { + my $output = make_test_dir(); + skip "$output", 1 if $output; + + my ($v, $d) = splitpath(cwd(), 1); + my $relcwd = substr($d, length(File::Spec->rootdir())); + + convert_n_test("crossref", "cross references", + "--podpath=". catdir($relcwd, 't') . ":" . catdir($relcwd, 'testdir/test.lib'), + "--podroot=$v". File::Spec->rootdir, + "--quiet", + ); +} __DATA__ <?xml version="1.0" ?> @@ -57,17 +66,17 @@ __DATA__ <p><a href="#non-existant-section">"non existant section"</a></p> -<p><a href="/[RELCURRENTWORKINGDIRECTORY]/test.lib/perlvar-copy.html">perlvar-copy</a></p> +<p><a href="/[RELCURRENTWORKINGDIRECTORY]/testdir/test.lib/var-copy.html">var-copy</a></p> -<p><a href="/[RELCURRENTWORKINGDIRECTORY]/test.lib/perlvar-copy.html#pod-">"$"" in perlvar-copy</a></p> +<p><a href="/[RELCURRENTWORKINGDIRECTORY]/testdir/test.lib/var-copy.html#pod-">"$"" in var-copy</a></p> -<p><code>perlvar-copy</code></p> +<p><code>var-copy</code></p> -<p><code>perlvar-copy/$"</code></p> +<p><code>var-copy/$"</code></p> -<p><a href="/[RELCURRENTWORKINGDIRECTORY]/test.lib/perlpodspec-copy.html#First:">"First:" in perlpodspec-copy</a></p> +<p><a href="/[RELCURRENTWORKINGDIRECTORY]/testdir/test.lib/podspec-copy.html#First:">"First:" in podspec-copy</a></p> -<p><code>perlpodspec-copy/First:</code></p> +<p><code>podspec-copy/First:</code></p> <p><a>notperldoc</a></p> |