#!/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 Cannot\ find\ file\ "crossref\.\*"\ directly\ under\ podpath,\ cannot\ find \ suitable\ replacement:\ link\ remains\ unresolved\.\n\z )x, "misc pod-html --verbose warnings"); __DATA__
A paragraph
some htmlAnother paragraph
some text and a link crossref