summaryrefslogtreecommitdiff
path: root/t/exceptions/moose-meta-method-overridden.t
diff options
context:
space:
mode:
Diffstat (limited to 't/exceptions/moose-meta-method-overridden.t')
-rw-r--r--t/exceptions/moose-meta-method-overridden.t36
1 files changed, 36 insertions, 0 deletions
diff --git a/t/exceptions/moose-meta-method-overridden.t b/t/exceptions/moose-meta-method-overridden.t
new file mode 100644
index 0000000..a0831d6
--- /dev/null
+++ b/t/exceptions/moose-meta-method-overridden.t
@@ -0,0 +1,36 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+{
+ my $exception = exception {
+ package Foo;
+ use Moose;
+
+ override foo => sub {}
+ };
+
+ like(
+ $exception,
+ qr/You cannot override 'foo' because it has no super method/,
+ "Foo class is not extending any class");
+
+ isa_ok(
+ $exception,
+ "Moose::Exception::CannotOverrideNoSuperMethod",
+ "Foo class is not extending any class");
+
+ is(
+ $exception->class,
+ "Moose::Meta::Method::Overridden",
+ "Foo class is not extending any class");
+
+ is(
+ $exception->method_name,
+ "foo",
+ "Foo class is not extending any class");
+}
+
+done_testing;