03parse_file.t

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

Line
1	use Test::More tests => 202;
2
3	use_ok('SWISH::3');
4
5	ok( my $s3 = SWISH::3->new( handler => sub {} ), "new parser" );
6
7	#diag( $s3->dump );
8
9	my $r = 0;
10	while ( $r < 100 ) {
11	ok( $r += $s3->parse("t/test.html"), "parse HTML" );
12
13	#diag("r = $r");
14	}
15	while ( $r < 200 ) {
16	ok( $r += $s3->parse("t/test.xml"), "parse XML" );
17
18	#diag("r = $r");
19	}

Note: See TracBrowser for help on using the browser.