git.maemo.org Git - pkg-perl/blob - deb-src/libtest-exception-perl/libtest-exception-perl-0.27/t/stacktrace.t

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