bump version
[gitmo/Moo.git] / xt / moose-override-attribute-with-plus-syntax.t
index fb3c31e..0a9570f 100644 (file)
@@ -31,6 +31,15 @@ use Test::Fatal;
     );
     __PACKAGE__->meta->make_immutable
 }
+{
+    package MooChild;
+    use Moo;
+    extends 'MooParent';
+
+    has '+foo' => (
+        default => sub { 'MooChild' },
+    );
+}
 
 is(
     MooseChild->new->foo,
@@ -44,5 +53,10 @@ is(
     'default value in Moose child'
 );
 
+is(exception {
+    local $SIG{__WARN__} = sub { die $_[0] };
+    ok(MooChild->meta->has_attribute('foo'), 'inflated metaclass has overridden attribute');
+}, undef, 'metaclass inflation of plus override works without warnings');
+
 done_testing;