throws_ok.t   [plain text]

#! /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' );