root/lang/perl6/Text-Trac/trunk/t/02_inline/sup.t @ 11974

use lib '../../lib';
use Test;
use Text::Trac;

plan 1;

my $txt1 = q:to/END_OF_TEXT/;

^sup^

END_OF_TEXT

my $trac = Text::Trac.new;
my $result1 = $trac.parse($txt1);
is($result1, q:to/END_OF_RESULT/.chomp, "sup");
<p>
<sup>sup</sup>
</p>
END_OF_RESULT