sub t05_extra : Test { my $t = shift;

my $x = $t->parse_to_xhtml( <<T);
=para
C<< test > & E<nbsp> >>
T
ok $x =~ /E&lt;nbsp&gt;/;
}

sub t06_allow_for_C : Test { my $t = shift; my $x = $t->parse_to_xhtml( <<T); =config :allow<I E> =para sdssd C« » T ok $x =~ m{<code>&nbsp;</code>}; }

sub t03_as_xhtml : Test { my $t = shift; my $x = $t->parse_to_xhtml( <<T); =para test > & T $t->is_deeply_xml( $x, q# <xhtml xmlns='http://www.w3.org/1999/xhtml'><p><code>test &gt; &amp;</code> </p></xhtml># ); }

sub t08_code_to_xhtml : Test { my $t = shift; my $x = $t->parse_to_xhtml( <<T); =para as asds asdasdsad T $t->is_deeply_xml( $x, q#<xhtml xmlns="http://www.w3.org/1999/xhtml"><p><code>as</code> asds <strong>asdas<em>d</em>sad </strong> </p></xhtml> # ); }

sub t08_code_to_latex : Test { my $t = shift; my $x = $t->parse_to_latex( <<T); =para as asds asdasdsad T ok $x =~ m%\\verb=as=%; }

1;