diff options
Diffstat (limited to 'lib/autodie/t/repeat.t')
-rw-r--r-- | lib/autodie/t/repeat.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/lib/autodie/t/repeat.t b/lib/autodie/t/repeat.t new file mode 100644 index 0000000000..5f85f1218c --- /dev/null +++ b/lib/autodie/t/repeat.t @@ -0,0 +1,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"); + |