X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F300_immutable%2F009_buildargs.t;h=283ed5c739fb381bb91a138db1375e82ca65c28d;hb=ea829e77f657851c78cd65dd2b7ed05ce6c6ffff;hp=6c1ca33d69825182e6a3defb29b3d0677feed3de;hpb=e606ae5f848070d889472329819c95f5ba763ca3;p=gitmo%2FMoose.git diff --git a/t/300_immutable/009_buildargs.t b/t/300_immutable/009_buildargs.t index 6c1ca33..283ed5c 100644 --- a/t/300_immutable/009_buildargs.t +++ b/t/300_immutable/009_buildargs.t @@ -3,14 +3,14 @@ use strict; use warnings; -use Test::More tests => 14; +use Test::More; { package Foo; 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'); - } + } } - +done_testing;