X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_bugs%2F012_DEMOLISH_eats_mini.t;h=c8465a6219a8756822d96c87984a0ba296a1eaac;hb=0fa8ff59baf87e6a53f19175ed5869dbc1225128;hp=976275e58bb78b19efb114cd3baaabf98b6bc6ae;hpb=d6ae4e2b11ba7172fffe6a323af9591fedf21032;p=gitmo%2FMouse.git diff --git a/t/100_bugs/012_DEMOLISH_eats_mini.t b/t/100_bugs/012_DEMOLISH_eats_mini.t index 976275e..c8465a6 100644 --- a/t/100_bugs/012_DEMOLISH_eats_mini.t +++ b/t/100_bugs/012_DEMOLISH_eats_mini.t @@ -1,4 +1,7 @@ #!/usr/bin/perl +# This is automatically generated by author/import-moose-test.pl. +# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! +use t::lib::MooseCompat; use strict; use warnings; @@ -78,30 +81,4 @@ use Test::Exception; if Baz->meta->is_mutable } -# The following tests will fail on 5.13.0, so skipt them :( -if($] >= 5.013) { - done_testing; - exit; -} - -{ - package Quux; - use Mouse; - - sub DEMOLISH { - die "foo\n"; - } -} - -{ - local $@ = 42; - - eval { my $obj = Quux->new }; - - like( $@, qr/foo/, '$@ contains error from demolish when demolish dies' ); - - Quux->meta->make_immutable, redo - if Quux->meta->is_mutable -} - done_testing;