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( disable_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>
30r1:3
31</p>
32
33### milestone
34--- input
35milestone:1.0
36--- expected
37<p>
38milestone:1.0
39</p>
40
41### ticket
42--- input
43ticket:1
44--- expected
45<p>
46<a class="ticket" href="/ticket/1">ticket:1</a>
47</p>
48