sub t02_as_xhtml : Test { my $t = shift; my $x = $t->parse_to_xhtml( <<T); =para Do you want additional personnel details? y T $t->is_deeply_xml( $x, q#<xhtml xmlns='http://www.w3.org/1999/xhtml'><p>Do you want additional personnel details? <kbd>y</kbd> </p></xhtml> # ); }

sub t03_as_docbook : Test { # Looks like you planned 3 tests but ran 1. my $t = shift; my $x = $t->parse_to_docbook( <<T); =para Do you want additional personnel details? y T $t->is_deeply_xml( $x, q#<chapter><para>Do you want additional personnel details? <userinput>y</userinput> </para></chapter> # ); }

1;