git.maemo.org Git - dh-make-perl/blob - dev/i386/libtest-exception-perl/libtest-exception-perl-0.27/t/throws_ok.t

   1 #! /usr/bin/perl -Tw
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 2;
   6 BEGIN { use_ok( 'Test::Exception' ) };
   7
   8 eval { throws_ok {} undef };
   9 like( $@, '/^throws_ok/', 'cannot pass undef to throws_ok' );