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&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