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