From 6211b6b4cb7f9ccd741f99d3177a0048547a3046 Mon Sep 17 00:00:00 2001 From: doy Date: Mon, 20 Apr 2009 00:55:45 -0500 Subject: test immutable version too --- t/021-BUILDARGS.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 't') 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)'); -- cgit v1.2.3-54-g00ecf