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

Revision 11974, 270 bytes (checked in by lyokato, 6 years ago)

lang/perl6/Text-Trac: 一年以上前に作った奴なので、最新のものでは動かないけど

Line 
1use lib '../../lib';
2use Test;
3use Text::Trac;
4
5plan 1;
6
7my $txt1 = q:to/END_OF_TEXT/;
8
9'''bold'''
10
11END_OF_TEXT
12
13my $trac = Text::Trac.new;
14my $result1 = $trac.parse($txt1);
15is($result1, q:to/END_OF_RESULT/.chomp, "bold");
16<p>
17<strong>bold</strong>
18</p>
19END_OF_RESULT
20
21
Note: See TracBrowser for help on using the browser.