test immutable version too

1 files changed, 5 insertions, 1 deletions

diff --git a/t/021-BUILDARGS.t b/t/021-BUILDARGS.t
index c1270ee..d6aa973 100644
--- a/t/021-BUILDARGS.t
+++ b/t/021-BUILDARGS.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 2;
+use Test::More tests => 4;
 
 package Foo;
 
@@ -33,3 +33,7 @@ package main;
 my $foo = Foo::Moose->new('bar', foo => 'baz');
 is($foo->name, 'bar', 'superclass constructor gets the right args');
 is($foo->foo,  'baz', 'subclass constructor gets the right args');
+Foo::Moose->meta->make_immutable;
+$foo = Foo::Moose->new('bar', foo => 'baz');
+is($foo->name, 'bar', 'superclass constructor gets the right args (immutable)');
+is($foo->foo,  'baz', 'subclass constructor gets the right args (immutable)');