summaryrefslogtreecommitdiff
path: root/t/bugs/inheriting_from_roles.t
diff options
context:
space:
mode:
Diffstat (limited to 't/bugs/inheriting_from_roles.t')
-rw-r--r--t/bugs/inheriting_from_roles.t21
1 files changed, 21 insertions, 0 deletions
diff --git a/t/bugs/inheriting_from_roles.t b/t/bugs/inheriting_from_roles.t
new file mode 100644
index 0000000..093864b
--- /dev/null
+++ b/t/bugs/inheriting_from_roles.t
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+
+{
+ package My::Role;
+ use Moose::Role;
+}
+{
+ package My::Class;
+ use Moose;
+
+ ::like( ::exception {
+ extends 'My::Role';
+ }, qr/You cannot inherit from a Moose Role \(My\:\:Role\)/, '... this croaks correctly' );
+}
+
+done_testing;