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
|
#!perl -T
use strict;
use Test::Base;
use Text::Trac;
delimiters('###');
plan tests => 1 * blocks;
my $p = Text::Trac->new( enable_links => [ qw( log milestone ) ] );
sub parse {
local $_ = shift;
$p->parse($_);
$p->html;
}
filters { input => 'parse', expected => 'chomp' };
run_is 'input' => 'expected';
__DATA__
### log
--- input
r1:3
--- expected
<p>
<a class="source" href="/log/?rev=3&stop_rev=1">r1:3</a>
</p>
### milestone
--- input
milestone:1.0
--- expected
<p>
<a class="milestone" href="/milestone/1.0">milestone:1.0</a>
</p>
### ticket
--- input
ticket:1
--- expected
<p>
ticket:1
</p>
|
