use Test::More tests => 6;
use_ok('SWISH::3');
ok( my $s3 = SWISH::3->new(), "new object" );
ok( my $buf = $s3->slurp("t/test.html"), "slurp file" );
ok( my $gzbuf = $s3->slurp("t/test-zipped.html.gz"), "slurp gz file");
is( $buf, $gzbuf, "gzipped buf eq buf");
eval {
$buf = $s3->slurp('no/such/file');
};
ok($@, "croak on no stat");
#diag( $s3->dump );
#diag( $s3->refcount );
#diag($buf);