3 use Test::More 'no_plan';
4 use constant NO_SUCH_FILE => "this_file_had_better_not_exist";
7 use autodie qw(open open open);
8 open(my $fh, '<', NO_SUCH_FILE);
11 isa_ok($@,q{autodie::exception});
12 ok($@->matches('open'),"Exception from open");
15 open(my $fh, '<', NO_SUCH_FILE);
18 is($@,"","Repeated autodie should not leak");