#!/usr/bin/perl -w # t/xhtml05.t - check block output from Pod::Simple::XHTML BEGIN { chdir 't' if -d 't'; } use strict; use warnings; use lib '../lib'; use Test::More tests => 6; use_ok('Pod::Simple::XHTML') or exit; my $parser = Pod::Simple::XHTML->new (); isa_ok ($parser, 'Pod::Simple::XHTML'); my $results; initialize($parser, $results); $parser->accept_targets_as_text( 'comment' ); $parser->parse_string_document(<<'EOPOD'); =for comment This is an ordinary for block. EOPOD is($results, <<'EOHTML', "a for block");
This is a $target.
This is an ordinary for block.