| Current Path : /usr/share/doc/perl-Test-Assert/eg/ |
| Current File : //usr/share/doc/perl-Test-Assert/eg/assert_raises.pl |
#!/usr/bin/perl -I../lib
use Test::Assert 'assert_raises';
use Exception::Base;
assert_raises qr/test/, sub { die 'test'; }, 'regexp';
assert_raises {message => 'test'}, sub { Exception::Base->throw( message => 'test' ); }, 'string';
assert_raises ['NoSuchClass', 'Exception::Base', 'AnotherClass'], sub { Exception::Base->throw; }, 'arrayref';
print "OK\n";