Commit | Line | Data |
---|---|---|
0b09a93a | 1 | #!/usr/bin/perl -w |
2 | use strict; | |
3 | use Test::More tests => 3; | |
4 | ||
5 | eval { | |
6 | use autodie qw(exec); | |
7 | exec("this_command_had_better_not_exist", 1); | |
8 | }; | |
9 | ||
10 | isa_ok($@,"autodie::exception", "failed execs should die"); | |
11 | ok($@->matches('exec'), "exception should match exec"); | |
12 | ok($@->matches(':system'), "exception should match :system"); |