05latin1.t

Revision 2014, 246 bytes (checked in by karpet, 9 months ago)
new bindings to match API reorg

Line
1	use Test::More tests => 102;
2
3	use_ok('SWISH::3');
4
5	ok( my $parser = SWISH::3->new( handler => sub { } ), "new parser" );
6
7	my $r = 0;
8	while ( $r < 100 ) {
9	ok( $r += $parser->parse("t/latin1.xml"), "parse latin1 XML" );
10
11	#diag("r = $r");
12	}

Note: See TracBrowser for help on using the browser.