sub t02_as_xhtml : Test { my $t = shift; my $x = $t->parse_to_xhtml( <<T); =para The emergency signal is: dot dots dot dash dash dash dot dot dot. T

is $x, q#<xhtml xmlns='http://www.w3.org/1999/xhtml'><p>The emergency signal is: <br />dot&nbsp;dots&nbsp;dot&nbsp;&nbsp;&nbsp;dash&nbsp;dash&nbsp;dash&nbsp;&nbsp;&nbsp;dot&nbsp;dot&nbsp;dot.
</p></xhtml>#
}

sub t03_as_docbook : Test { my $t = shift; my $x = $t->parse_to_docbook( <<T); =para =para The emergency signal is: dot dots dot dash dash dash dot dot dot. T $t->is_deeply_xml( $x, q#<chapter><para /><para>The emergency signal is: <literallayout> dot dots dot dash dash dash dot dot dot</literallayout>. </para></chapter># ); }

1;