summaryrefslogtreecommitdiff
path: root/lib/autodie/t/repeat.t
diff options
context:
space:
mode:
Diffstat (limited to 'lib/autodie/t/repeat.t')
-rw-r--r--lib/autodie/t/repeat.t19
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");
+