1234567891011121314151617181920212223 use Test::More tests => 1;use Test::XML;use XHTML::MediaWiki;my $mediawiki = XHTML::MediaWiki->new();my ($xhtml, $cmp);$xhtml = $mediawiki->format(<<EOT);<div>[Test]</div>EOT$cmp = <<EOP;<div><p>[Test]</p></div>EOPis_xml($xhtml, $cmp, 'pre');
use
Test::More
tests
=> 1;
Test::XML;
XHTML::MediaWiki;
my
$mediawiki
= XHTML::MediaWiki->new();
(
$xhtml
,
$cmp
);
=
->
format
<<EOT);
<div>
[Test]
</div>
EOT
<<EOP;
<p>[Test]</p>
EOP
is_xml(
'pre'