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