cpan/autodie/t/exec.t

   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");