X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F072_immutable_w_constructors.t;h=7ef79f097810a669547b4e3050c8e11b28aa1754;hb=d69fb6b34cf37d63bbed4d941ad809539299e218;hp=abed7a7360d6f7fa2ab755184ead975782de88cd;hpb=da1bebb6a46a770cee8fe206b15998ba8db84e51;p=gitmo%2FClass-MOP.git diff --git a/t/072_immutable_w_constructors.t b/t/072_immutable_w_constructors.t index abed7a7..7ef79f0 100644 --- a/t/072_immutable_w_constructors.t +++ b/t/072_immutable_w_constructors.t @@ -228,14 +228,14 @@ BEGIN {use Class::MOP;use Class::MOP::Immutable; ok(!Baz->meta->has_method('new'), '... no constructor was made'); { - my $baz = Baz->meta->construct_instance; + my $baz = Baz->meta->new_object; isa_ok($baz, 'Bar'); is($baz->bar, 'BAR', '... got the right default value'); is($baz->baz, 'BAZ', '... got the right default value'); } { - my $baz = Baz->meta->construct_instance(bar => 'BAZ!', baz => 'BAR!', bah => 'BAH!'); + my $baz = Baz->meta->new_object(bar => 'BAZ!', baz => 'BAR!', bah => 'BAH!'); isa_ok($baz, 'Baz'); is($baz->bar, 'BAZ!', '... got the right parameter value'); is($baz->baz, 'BAR!', '... got the right parameter value');