diff options
Diffstat (limited to 't/exceptions/class-mop-method.t')
-rw-r--r-- | t/exceptions/class-mop-method.t | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/t/exceptions/class-mop-method.t b/t/exceptions/class-mop-method.t new file mode 100644 index 0000000..c85cc7b --- /dev/null +++ b/t/exceptions/class-mop-method.t @@ -0,0 +1,41 @@ +use strict; +use warnings; + +use Test::More; +use Test::Fatal; + +use Moose(); + +{ + my $exception = exception { + Class::MOP::Method->wrap( "foo", ( name => "Bar")); + }; + + like( + $exception, + qr/\QYou must supply a CODE reference to bless, not (foo)/, + "first argument to wrap should be a CODE ref"); + + isa_ok( + $exception, + "Moose::Exception::WrapTakesACodeRefToBless", + "first argument to wrap should be a CODE ref"); +} + +{ + my $exception = exception { + Class::MOP::Method->wrap( sub { "foo" }, ()); + }; + + like( + $exception, + qr/You must supply the package_name and name parameters/, + "no package name is given to wrap"); + + isa_ok( + $exception, + "Moose::Exception::PackageNameAndNameParamsNotGivenToWrap", + "no package name is given to wrap"); +} + +done_testing; |