1 files changed, 12 insertions, 0 deletions
diff --git a/cpan/autodie/t/exec.t b/cpan/autodie/t/exec.t
new file mode 100755
index 0000000000..0d4439a8c1
--- /dev/null
+++ b/cpan/autodie/t/exec.t
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 3;
+
+eval {
+    use autodie qw(exec);
+    exec("this_command_had_better_not_exist", 1);
+};
+
+isa_ok($@,"autodie::exception", "failed execs should die");
+ok($@->matches('exec'), "exception should match exec");
+ok($@->matches(':system'), "exception should match :system");