X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F003-make_immutable.t;h=28ebaffc1ea6afda9759fa8196c770b54148f582;hb=63d74d7adc05bdf93288048a851adaefd6ffc8d3;hp=189a5b2750bbdf8c74cf8f297f18f561f7ef3159;hpb=ca3bebbd17ab60180dd0e722f43fd29be9b80f06;p=gitmo%2FMouse.git diff --git a/t/800_shikabased/003-make_immutable.t b/t/800_shikabased/003-make_immutable.t index 189a5b2..28ebaff 100644 --- a/t/800_shikabased/003-make_immutable.t +++ b/t/800_shikabased/003-make_immutable.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests => 4; +use Test::More tests => 6; use Test::Exception; { @@ -10,6 +10,7 @@ use Test::Exception; is => 'rw', required => 1, ); + sub BUILD { main::ok "calling BUILD in HardDog" } no Mouse; __PACKAGE__->meta->make_immutable; } @@ -21,6 +22,7 @@ use Test::Exception; is => 'rw', required => 1, ); + sub BUILD { main::ok "calling BUILD in SoftDog" } no Mouse; }