sub t02_as_xhtml : Test { my $t = shift; my $x = $t->parse_to_xhtml( <<T); =alias TEST Test1 =para Bold TEST T $t->is_deeply_xml( $x, q#<xhtml xmlns='http://www.w3.org/1999/xhtml'><p>Bold <strong>Test1</strong> </p></xhtml># ); }

sub t03_as_docbook : Test { my $t = shift; my $x = $t->parse_to_docbook( <<T); =alias TEST Test1 =para Bold TEST T $t->is_deeply_xml( $x, q#<chapter><para>Bold <emphasis role='bold'>Test1</emphasis> </para></chapter>#) }

1;