1#! /usr/bin/perl -Tw 2 3use strict; 4use warnings; 5use Sub::Uplevel; 6use Carp; 7use Test::Builder::Tester tests => 2; 8use Test::More; 9 10BEGIN { use_ok( 'Test::Exception' ) }; 11 12test_out('not ok 1 - threw /fribble/'); 13test_fail(+1); 14throws_ok { confess('died') } '/fribble/'; 15my $exception = $@; 16test_diag('expecting: /fribble/'); 17test_diag(split /\n/, "found: $exception"); 18test_test('regex in stacktrace ignored'); 19