sub t02_as_xhtml : Test { my $t = shift; my $x = $t->parse_to_xhtml( <<T); =para Unusual test T $t->is_deeply_xml( $x, q#<xhtml xmlns='http://www.w3.org/1999/xhtml'><p >Unusual <em class="unusual">test</em> </p></xhtml># ); }

sub t03_as_docbook : Test { my $t = shift; my $x = $t->parse_to_docbook( <<T); =para Bold test T

$t->is_deeply_xml(
       $x,
q#<chapter><para>Bold <emphasis role='underline'>test</emphasis>
</para></chapter>#)
}

1;