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