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( enable_links => [qw( log milestone )] );
13
14sub parse {
15	local $_ = shift;
16	$p->parse($_);
17	$p->html;
18}
19
20filters { input => 'parse', expected => 'chomp' };
21run_is 'input' => 'expected';
22
23__DATA__
24
25### log
26--- input
27r1:3
28--- expected
29<p>
30<a class="source" href="/log/?rev=3&amp;stop_rev=1">r1:3</a>
31</p>
32
33### milestone
34--- input
35milestone:1.0
36--- expected
37<p>
38<a class="milestone" href="/milestone/1.0">milestone:1.0</a>
39</p>
40
41### ticket
42--- input
43ticket:1
44--- expected
45<p>
46ticket:1
47</p>
48