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