avoid warnings

[gitmo/MooseX-InsideOut.git] / t / sub.t

diff --git a/t/sub.t b/t/sub.t
index 85f6a6b..7826411 100644 (file)
--- a/t/sub.t
+++ b/t/sub.t
@@ -40,5 +40,7 @@ for my $c (@classes) {
 #  use Data::Dumper;
 #  diag Dumper($obj);
 
-  $sub->meta->make_immutable, redo if $sub->meta->is_mutable;
+  $sub->meta->make_immutable(
+    inline_constructor => ($c ne 'Hash' and $c ne 'Array')
+  ), redo if $sub->meta->is_mutable;
 }