12 BEGIN { plan tests => 7 };
14 #use Pod::Simple::Debug (10);
16 use Pod::Simple::HTML;
18 sub x ($) { Pod::Simple::HTML->_out(
19 #sub{ $_[0]->bare_output(1) },
24 # make sure empty file => empty output
27 ok( x(''),'', "Contentlessness" );
28 ok( x(qq{=pod\n\nThis is a paragraph}) =~ m{<title></title>}i );
29 ok( x(qq{This is a paragraph}) =~ m{<title></title>}i );
30 ok( x(qq{=head1 Prok\n\nThis is a paragraph}) =~ m{<title>Prok</title>}i );
31 ok( x(qq{=head1 NAME\n\nProk -- stuff\n\nThis}), q{/<title>Prok</title>/} );
33 print "# And one for the road...\n";