root/lang/perl6/Text-Trac/trunk/t/01_block/blockquote.t @ 11974

Revision 11974, 0.9 kB (checked in by lyokato, 6 years ago)

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

Line 
1use lib '../../lib';
2use Test;
3use Text::Trac;
4
5plan 2;
6
7my $tex1 = q:to/END_OF_TEXT/;
8    blockstart
9    secondline
10    blockend
11END_OF_TEXT
12
13my $trac = Text::Trac.new;
14my $result1 = $trac.parse($tex1);
15is($result1, q:to/END_OF_RESULT/.chomp, "simple blockquote");
16<blockquote>
17<p>
18    blockstart
19    secondline
20    blockend
21</p>
22</blockquote>
23END_OF_RESULT
24
25my $tex2 = q:to/END_OF_TEXT/;
26    block1start
27    secondline
28    block1end
29
30    block2start
31    secondline
32    block2end
33
34    block3start
35    secondline
36    block3end
37END_OF_TEXT
38$trac.clear();
39my $result2 = $trac.parse($tex2);
40is($result2, q:to/END_OF_RESULT/.chomp, "multiple blockquote");
41<blockquote>
42<p>
43    block1start
44    secondline
45    block1end
46</p>
47</blockquote>
48<blockquote>
49<p>
50    block2start
51    secondline
52    block2end
53</p>
54</blockquote>
55<blockquote>
56<p>
57    block3start
58    secondline
59    block3end
60</p>
61</blockquote>
62END_OF_RESULT
63
Note: See TracBrowser for help on using the browser.