Changeset 2176 for libswish3/trunk/bindings/perl/t/08-handler.t
- Timestamp:
- 09/22/08 22:57:38 (4 months ago)
- Files:
-
- libswish3/trunk/bindings/perl/t/08-handler.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
libswish3/trunk/bindings/perl/t/08-handler.t
r2029 r2176 4 4 5 5 #ok( my $s3 = SWISH::3->new( handler => sub { diag("got data: $_[0] ") } ), 6 ok( my $s3 = SWISH::3->new( ), 7 "new parser" ); 6 ok( my $s3 = SWISH::3->new(), "new parser" ); 8 7 ok( $s3->parse("t/test.html"), "parse HTML" ); 9 8 ok( $s3->parse("t/test.xml"), "parse XML" );
