summaryrefslogtreecommitdiffstats
path: root/t/021-BUILDARGS.t
diff options
context:
space:
mode:
Diffstat (limited to 't/021-BUILDARGS.t')
-rw-r--r--t/021-BUILDARGS.t6
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)');