From dfc2ff5f2709f198d9fdb21d84a2534acc9f3670 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 15 Jun 2010 03:39:08 -0500 Subject: make more tests use with_immutable --- t/23-FOREIGNBUILDARGS.t | 33 ++++++++++++--------------------- 1 file changed, 12 insertions(+), 21 deletions(-) (limited to 't/23-FOREIGNBUILDARGS.t') diff --git a/t/23-FOREIGNBUILDARGS.t b/t/23-FOREIGNBUILDARGS.t index 43529dd..a9e8cef 100644 --- a/t/23-FOREIGNBUILDARGS.t +++ b/t/23-FOREIGNBUILDARGS.t @@ -2,6 +2,7 @@ use strict; use warnings; use Test::More tests => 12; +use Test::Moose; package Foo; @@ -56,24 +57,14 @@ has baz => ( package main; -my $foo = Foo::Moose->new(foo => 'bar'); -is($foo->foo, 'bar', 'subclass constructor gets the right args'); -is($foo->foo_base, 'bar_base', 'subclass constructor gets the right args'); -my $bar = Bar::Moose->new('baz'); -is($bar->bar, 'baz', 'subclass constructor gets the right args'); -is($bar->foo_base, 'baz_base', 'subclass constructor gets the right args'); -my $baz = Baz::Moose->new('bazbaz'); -is($baz->bar, 'bazbaz', 'extensions of extensions of the nonmoose class respect BUILDARGS'); -is($baz->foo_base, 'bazbaz_base', 'extensions of extensions of the nonmoose class respect FOREIGNBUILDARGS'); -Foo::Moose->meta->make_immutable; -Bar::Moose->meta->make_immutable; -Baz::Moose->meta->make_immutable; -$foo = Foo::Moose->new(foo => 'bar'); -is($foo->foo, 'bar', 'subclass constructor gets the right args (immutable)'); -is($foo->foo_base, 'bar_base', 'subclass constructor gets the right args (immutable)'); -$bar = Bar::Moose->new('baz'); -is($bar->bar, 'baz', 'subclass constructor gets the right args (immutable)'); -is($bar->foo_base, 'baz_base', 'subclass constructor gets the right args (immutable)'); -$baz = Baz::Moose->new('bazbaz'); -is($baz->bar, 'bazbaz', 'extensions of extensions of the nonmoose class respect BUILDARGS (immutable)'); -is($baz->foo_base, 'bazbaz_base', 'extensions of extensions of the nonmoose class respect FOREIGNBUILDARGS (immutable)'); +with_immutable { + my $foo = Foo::Moose->new(foo => 'bar'); + is($foo->foo, 'bar', 'subclass constructor gets the right args'); + is($foo->foo_base, 'bar_base', 'subclass constructor gets the right args'); + my $bar = Bar::Moose->new('baz'); + is($bar->bar, 'baz', 'subclass constructor gets the right args'); + is($bar->foo_base, 'baz_base', 'subclass constructor gets the right args'); + my $baz = Baz::Moose->new('bazbaz'); + is($baz->bar, 'bazbaz', 'extensions of extensions of the nonmoose class respect BUILDARGS'); + is($baz->foo_base, 'bazbaz_base', 'extensions of extensions of the nonmoose class respect FOREIGNBUILDARGS'); +} qw(Foo::Moose Bar::Moose Baz::Moose); -- cgit v1.2.3-54-g00ecf