1package t::TestTextTrac; 2use strict; 3use warnings; 4 5use Test::Base -Base; 6use Text::Trac; 7 8our @EXPORT = qw( run_tests ); 9 10sub run_tests { 11 delimiters('###'); 12 filters { input => 'parse', expected => 'chomp' }; 13 run_is 'input' => 'expected'; 14} 15 16package t::TestTextTrac::Filter; 17use strict; 18use warnings; 19use Test::Base::Filter -Base; 20 21my $p = Text::Trac->new( trac_url => 'http://trac.mizzy.org/public/' ); 22 23sub parse { 24 $p->parse(@_); 25 return $p->html; 26} 27 281; 29