1#@!#!123s

32759 1#@!#!123s

: / home / .cpan / build / Test-Exception-0.43-0 / t /

Filename : throws_ok.t

back

#! /usr/bin/perl -Tw

use strict;
use warnings;
use Test::More tests => 2;
BEGIN { use_ok( 'Test::Exception' ) };

eval { throws_ok {} undef };
like( $@, '/^throws_ok/', 'cannot pass undef to throws_ok' );