diff options
author | doy <doy@tozt.net> | 2009-04-20 00:55:45 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-20 00:55:45 -0500 |
commit | 6211b6b4cb7f9ccd741f99d3177a0048547a3046 (patch) | |
tree | 0a6e72fb0a42fc50ca6ce8688580e21d9819118a /t | |
parent | 6b6b2c190aa1992bd36ce636c3827587858896ae (diff) | |
download | moosex-nonmoose-6211b6b4cb7f9ccd741f99d3177a0048547a3046.tar.gz moosex-nonmoose-6211b6b4cb7f9ccd741f99d3177a0048547a3046.zip |
test immutable version too
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)'); |