1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
use Test::More tests => 16;
use Test::NoWarnings;
use_ok('Parse::BBCode::Text');
use strict;
use warnings;
my $p = Parse::BBCode::Text->new();
my @tests = (
[ q#[size=7]big [b]bold[/b] text[/size]#,
q#big bold text# ],
[ q#[url=http://foo/]interesting [b]bold[/b] link[/url]#,
q#interesting bold link# ],
[ q#[url="http://foo/"]interesting [b]bold[/b] link[/url]#,
q#interesting bold link# ],
[ q#[url=/foo]interesting [b]bold[/b] link[/url]#,
q#interesting bold link# ],
[ q#[list=1][*]first[*]second[*]third[/list]#,
qq#* first\n* second\n* third\n# ],
[ q#[list=1][*]first with [url]foo[/url][*]second[*]third[/list]#,
qq#* first with foo\n* second\n* third\n# ],
[ q#[list=1][*]first[*]second with [url]foo[/url][*]third[/list]#,
qq#* first\n* second with foo\n* third\n# ],
[ q#[list=1][*]first[*]second with [url]foo[*]third[/list]#,
qq#* first\n* second with [url]foo\n* third\n# ],
[ q#[list=1][*]first[*]second with [url]foo and [b]bold[/b][*]third[/list]#,
qq#* first\n* second with [url]foo and bold\n* third\n# ],
[ q#[img]/path/to/image.png[/img]#,
q#/path/to/image.png# ],
[ q#[img=/path/to/image.png]description[/img]#,
q#description# ],
[ q#[img=/path/to/image.png]description [b]with bold[/b][/img]#,
q#description with bold# ],
[ qq#text [quote="foo"][quote="bar"]inner quote[/quote]outer quote[/quote]#,
qq#text foo:\n> bar:\n>> inner quote\n> outer quote\n# ],
[ q#[quote="admin@2008-06-27 19:00:25"][quote="foo@2007-08-13 22:12:32"]test[/quote]test[/quote]#,
qq#admin\@2008-06-27 19:00:25:\n> foo\@2007-08-13 22:12:32:\n>> test\n> test\n# ],
);
for (@tests) {
my ($in, $exp) = @$_;
my $parsed = $p->render($in);
#warn __PACKAGE__.':'.__LINE__.": $parsed\n";
cmp_ok($parsed, 'eq', $exp, "$in");
}
|
