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