diff options
Diffstat (limited to 't/exceptions/class-mop-module.t')
-rw-r--r-- | t/exceptions/class-mop-module.t | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/t/exceptions/class-mop-module.t b/t/exceptions/class-mop-module.t new file mode 100644 index 0000000..604fa88 --- /dev/null +++ b/t/exceptions/class-mop-module.t @@ -0,0 +1,25 @@ +use strict; +use warnings; + +use Test::More; +use Test::Fatal; + +use Moose(); + +{ + my $exception = exception { + Class::MOP::Module->create_anon(cache => 1); + }; + + like( + $exception, + qr/Modules are not cacheable/, + "can't cache anon packages"); + + isa_ok( + $exception, + "Moose::Exception::PackagesAndModulesAreNotCachable", + "can't cache anon packages"); +} + +done_testing; |