Commit | Line | Data |
---|---|---|
0b09a93a | 1 | #!/usr/bin/perl -w |
2 | use strict; | |
3 | use Test::More 'no_plan'; | |
4 | use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; | |
5 | ||
6 | eval { | |
7 | use autodie qw(open open open); | |
8 | open(my $fh, '<', NO_SUCH_FILE); | |
9 | }; | |
10 | ||
11 | isa_ok($@,q{autodie::exception}); | |
12 | ok($@->matches('open'),"Exception from open"); | |
13 | ||
14 | eval { | |
15 | open(my $fh, '<', NO_SUCH_FILE); | |
16 | }; | |
17 | ||
18 | is($@,"","Repeated autodie should not leak"); | |
19 |