3 use Test::More 'no_plan';
5 # These are a bunch of general tests for working with files and
15 is($@,"","Sanity: binmode(FOO) doesn't usually throw exceptions");
16 is($r,undef,"Sanity: binmode(FOO) returns undef");
19 use autodie qw(binmode);
24 ok($@, "autodie qw(binmode) should cause failing binmode to die.");
25 isa_ok($@,"autodie::exception", "binmode exceptions are in autodie::exception");
33 ok($@, "autodie (default) should cause failing binmode to die.");