From 934ff0ce3fd0701e86f5435294829d6b306667a1 Mon Sep 17 00:00:00 2001 From: doy Date: Tue, 14 Apr 2009 23:48:19 -0500 Subject: add more failing tests --- t/004-multi-level.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 't') diff --git a/t/004-multi-level.t b/t/004-multi-level.t index 2a61d77..5a2b141 100644 --- a/t/004-multi-level.t +++ b/t/004-multi-level.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 7; +use Test::More tests => 11; package Foo; @@ -45,3 +45,11 @@ is $foo_moose_sub->bar, 'BAR', 'Foo::Moose::Sub::bar'; is $foo_moose_sub->baz, 'BAZ', 'Foo::Moose::Sub::baz'; is(Foo::Moose::Sub->meta->get_method('new'), undef, 'Foo::Moose::Sub just uses the constructor for Foo::Moose'); + +Foo::Moose::Sub->meta->make_immutable; +$foo_moose_sub = Foo::Moose::Sub->new; +is $foo_moose_sub->foo, 'FOO', 'Foo::Moose::Sub::foo (immutable)'; +is $foo_moose_sub->bar, 'BAR', 'Foo::Moose::Sub::bar (immutable)'; +is $foo_moose_sub->baz, 'BAZ', 'Foo::Moose::Sub::baz (immutable)'; +isnt(Foo::Moose::Sub->meta->get_method('new'), undef, + 'Foo::Moose::Sub has an inlined constructor'); -- cgit v1.2.3-54-g00ecf