1require Test::Simple; 2use Carp; 3 4push @INC, 't/lib'; 5require Test::Simple::Catch; 6my($out, $err) = Test::Simple::Catch::caught(); 7 8Test::Simple->import(tests => 5); 9 10ok(1); 11ok(1); 12ok(1); 13eval { 14 die "Foo"; 15}; 16ok(1); 17eval "die 'Bar'"; 18ok(1); 19 20eval { 21 croak "Moo"; 22}; 23