diff options
Diffstat (limited to 't')
-rw-r--r-- | t/021-BUILDARGS.t | 6 |
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)'); |