08-handler.t

Revision 2176, 265 bytes (checked in by karpet, 2 months ago)
all tests passing, all (known) leaks fixed

Line
1	use Test::More tests => 4;
2
3	use_ok('SWISH::3');
4
5	#ok( my $s3 = SWISH::3->new( handler => sub { diag("got data: $_[0] ") } ),
6	ok( my $s3 = SWISH::3->new(), "new parser" );
7	ok( $s3->parse("t/test.html"), "parse HTML" );
8	ok( $s3->parse("t/test.xml"), "parse XML" );
9

Note: See TracBrowser for help on using the browser.