diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2011-11-20 21:41:33 -0500 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2011-11-20 21:41:33 -0500 |
| commit | cfe287a06b2ed98c25aebb477f6b400409f1fc85 (patch) | |
| tree | eb39bfafdd49ec5252b2a78f613cd369b8bdd539 /ext/Pod-Html/t/htmldir2.t | |
| parent | fd76d40ddaebb9f5f3edba943c44c65ff4b5d46c (diff) | |
| parent | 3582575f3637e9b0014442aab54dabed7c1fa2d7 (diff) | |
| download | perl-cfe287a06b2ed98c25aebb477f6b400409f1fc85.tar.gz | |
Merge remote-tracking branch 'p5p/smoke-me/gsoc-pod' into blead
Diffstat (limited to 'ext/Pod-Html/t/htmldir2.t')
| -rw-r--r-- | ext/Pod-Html/t/htmldir2.t | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/ext/Pod-Html/t/htmldir2.t b/ext/Pod-Html/t/htmldir2.t new file mode 100644 index 0000000000..b5f5b48105 --- /dev/null +++ b/ext/Pod-Html/t/htmldir2.t @@ -0,0 +1,74 @@ +#!/usr/bin/perl -w # -*- perl -*- + +BEGIN { + require "t/pod2html-lib.pl"; +} + +use strict; +use Cwd; +use Test::More tests => 3; + +my $cwd = cwd(); +my $data_pos = tell DATA; # to read <DATA> twice + +convert_n_test("htmldir2", "test --htmldir and --htmlroot 2a", + "--podpath=t", + "--htmldir=t", +); + +seek DATA, $data_pos, 0; # to read <DATA> twice (expected output is the same) + +convert_n_test("htmldir2", "test --htmldir and --htmlroot 2b", + "--podpath=t", +); + +seek DATA, $data_pos, 0; # to read <DATA> thrice (expected output is the same) + +# this test makes sure paths are absolute unless --htmldir is specified +convert_n_test("htmldir2", "test --htmldir and --htmlroot 2c", + "--podpath=t", + "--podroot=$cwd", + "--norecurse", # testing --norecurse, too +); + +__DATA__ +<?xml version="1.0" ?> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> +<html xmlns="http://www.w3.org/1999/xhtml"> +<head> +<title></title> +<meta http-equiv="content-type" content="text/html; charset=utf-8" /> +<link rev="made" href="mailto:[PERLADMIN]" /> +</head> + +<body style="background-color: white"> + + + +<ul id="index"> + <li><a href="#NAME">NAME</a></li> + <li><a href="#LINKS">LINKS</a></li> +</ul> + +<h1 id="NAME">NAME</h1> + +<p>htmldir - Test --htmldir feature</p> + +<h1 id="LINKS">LINKS</h1> + +<p>Normal text, a <a>link</a> to nowhere,</p> + +<p>a link to <a>perlvar-copy</a>,</p> + +<p><a href="/t/htmlescp.html">htmlescp</a>,</p> + +<p><a href="/t/feature.html#Another-Head-1">"Another Head 1" in feature</a>,</p> + +<p>and another <a href="/t/feature.html#Another-Head-1">"Another Head 1" in feature</a>.</p> + + +</body> + +</html> + + |