# ); }

sub t02_as_xhtml : Test { my $t = shift; my $x = $t->parse_to_xhtml( <<T); =para Got uname output : FreeBSD T $t->is_deeply_xml( $x, q#<xhtml xmlns='http://www.w3.org/1999/xhtml'><p>Got <code>uname</code> output : <samp>FreeBS/samp </p></xhtml># ); }

sub t03_as_docbook : Test { my $t = shift; my $x = $t->parse_to_docbook( <<T); =para Got uname output : FreeBSD T $t->is_deeply_xml( $x, q#<chapter><para>Got <code>uname</code> output : <computeroutput>FreeBS/computeroutput </para></chapter># ); }

1;