X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F300_immutable%2F009_buildargs.t;h=b8a7527d0f70f5c316ca05e79251c629bc50e8ee;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=6c1ca33d69825182e6a3defb29b3d0677feed3de;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/300_immutable/009_buildargs.t b/t/300_immutable/009_buildargs.t index 6c1ca33..b8a7527 100644 --- a/t/300_immutable/009_buildargs.t +++ b/t/300_immutable/009_buildargs.t @@ -10,7 +10,7 @@ use Test::More tests => 14; use Moose; has bar => ( is => "rw" ); - has baz => ( is => "rw" ); + has baz => ( is => "rw" ); sub BUILDARGS { my ( $self, @args ) = @_; @@ -24,7 +24,7 @@ use Test::More tests => 14; use Moose; extends qw(Foo); - + __PACKAGE__->meta->make_immutable; } @@ -41,7 +41,7 @@ foreach my $class qw(Foo Bar) { my $o = $class->new(42, baz => 47); is($o->bar, 42, '... got the right bar'); is($o->baz, 47, '... got the right bar'); - } + } }