Ensure that "has '+nonexistent'" fails

diff --git a/t/030-has-plus.t b/t/030-has-plus.t
index 7706f4a..34b8ec4 100644 (file)
--- a/t/030-has-plus.t
+++ b/t/030-has-plus.t
@@ -1,7 +1,8 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 2;
+use Test::More tests => 3;
+use Test::Exception;
 
 do {
     package Class;
@@ -27,3 +28,15 @@ ok(!$obj->attr, 'has + does not affect the superclass');
 my $obj2 = Child->new;
 ok($obj2->attr, 'has + combines child attribute with parent');
 
+do {
+    package Child2;
+    use Mouse;
+    extends 'Class';
+
+    ::throws_ok {
+        has '+nonexistent' => (
+            is => 'rw',
+        );
+    } qr/Could not find an attribute by the name of 'nonexistent' to inherit from/;
+};
+