01slurp.t

Revision 2015, 213 bytes (checked in by karpet, 9 months ago)
more tests

Line
1	use Test::More tests => 3;
2
3	use_ok('SWISH::3');
4
5	ok( my $s3 = SWISH::3->new(), "new object" );
6
7	ok( my $buf = $s3->slurp("t/test.html"), "slurp file" );
8
9	#diag( $s3->dump );
10	#diag( $s3->refcount );
11
12	#diag($buf);
13

Note: See TracBrowser for help on using the browser.