#!/usr/bin/perl -w # -*- perl -*-
BEGIN {
require "t/pod2html-lib.pl";
}
use strict;
use Cwd;
use Test::More tests => 2;
my $cwd = cwd();
my $warn;
$SIG{__WARN__} = sub { $warn .= $_[0] };
convert_n_test("feature2", "misc pod-html features 2",
"--backlink",
"--header",
"--podpath=.",
"--podroot=$cwd",
"--norecurse",
"--verbose",
"--quiet",
);
like($warn,
qr(
\Acaching\ directories\ for\ later\ use\n
Converting\ input\ file\ \S+[/\\\]]feature2\.pod\n\z
)x,
"misc pod-html --verbose warnings");
__DATA__
Head 1
A paragraph
some html
Another paragraph
Another Head 1
some text and a link crossref