git.maemo.org Git - pkg-perl/blob - deb-src/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' );