1#!perl -T
2
3use strict;
4use warnings;
5use Test::Base;
6use Text::Trac;
7
8delimiters('###');
9
10plan tests => 1 * blocks;
11
12my $p = Text::Trac->new(
13	trac_attachment_url => 'http://mizzy.org/attachment',
14	trac_changeset_url  => 'http://mizzy.org/changeset',
15	trac_log_url        => 'http://mizzy.org/log',
16	trac_milestone_url  => 'http://mizzy.org/milestone',
17	trac_report_url     => 'http://mizzy.org/report',
18	trac_source_url     => 'http://mizzy.org/source',
19	trac_ticket_url     => 'http://mizzy.org/ticket',
20	trac_wiki_url       => 'http://mizzy.org/wiki',
21);
22
23sub parse {
24	local $_ = shift;
25	$p->parse($_);
26	$p->html;
27}
28
29filters { input => 'parse', expected => 'chomp' };
30run_is 'input' => 'expected';
31
32__DATA__
33
34### attachment
35--- input
36attachment:ticket:33:DSCF0001.jpg
37--- expected
38<p>
39<a class="attachment" href="http://mizzy.org/attachment/ticket/33/DSCF0001.jpg">attachment:ticket:33:DSCF0001.jpg</a>
40</p>
41
42### changeset
43--- input
44[1]
45--- expected
46<p>
47<a class="changeset" href="http://mizzy.org/changeset/1">[1]</a>
48</p>
49
50### revision log
51--- input
52r1:3
53--- expected
54<p>
55<a class="source" href="http://mizzy.org/log/?rev=3&amp;stop_rev=1">r1:3</a>
56</p>
57
58### milestone
59--- input
60milestone:1.0
61--- expected
62<p>
63<a class="milestone" href="http://mizzy.org/milestone/1.0">milestone:1.0</a>
64</p>
65
66### report
67--- input
68{1}
69--- expected
70<p>
71<a class="report" href="http://mizzy.org/report/1">{1}</a>
72</p>
73
74### source
75--- input
76source:trunk/COPYING
77--- expected
78<p>
79<a class="source" href="http://mizzy.org/source/trunk/COPYING">source:trunk/COPYING</a>
80</p>
81
82### ticket
83--- input
84#1
85--- expected
86<p>
87<a class="ticket" href="http://mizzy.org/ticket/1">#1</a>
88</p>
89
90### wiki
91--- input
92TracLinks
93--- expected
94<p>
95<a class="wiki" href="http://mizzy.org/wiki/TracLinks">TracLinks</a>
96</p>
97