X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F300_immutable%2F101-immutable-default.t;fp=t%2F300_immutable%2F101-immutable-default.t;h=0000000000000000000000000000000000000000;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=6fcbf2b2c771683e71e0f2f755691c0c724fc3fc;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git diff --git a/t/300_immutable/101-immutable-default.t b/t/300_immutable/101-immutable-default.t deleted file mode 100644 index 6fcbf2b..0000000 --- a/t/300_immutable/101-immutable-default.t +++ /dev/null @@ -1,27 +0,0 @@ -use strict; -use warnings; - -use Test::More tests => 5; -use Test::Exception; - -{ - package Foo; - use Mouse; - - #two checks because the inlined methods are different when - #there is a TC present. - has 'foos' => ( is => 'rw', default => 'DEFAULT' ); - has 'bars' => ( is => 'rw', default => 300100 ); - has 'bazs' => ( is => 'rw', default => sub { +{} } ); - -} - -lives_ok { Foo->meta->make_immutable } - 'Immutable meta with single BUILD'; - -my $f = Foo->new; -isa_ok $f, 'Foo'; -is $f->foos, 'DEFAULT', 'str default'; -is $f->bars, 300100, 'int default'; -is ref($f->bazs), 'HASH', 'code default'; -