Stop testing for clobbering of $@

[gitmo/Moose.git] / t / 100_bugs / 012_DEMOLISH_eats_mini.t

diff --git a/t/100_bugs/012_DEMOLISH_eats_mini.t b/t/100_bugs/012_DEMOLISH_eats_mini.t
index e4b03c4..953e019 100644 (file)
--- a/t/100_bugs/012_DEMOLISH_eats_mini.t
+++ b/t/100_bugs/012_DEMOLISH_eats_mini.t
@@ -78,24 +78,4 @@ use Test::Exception;
         if Baz->meta->is_mutable
 }
 
-{
-    package Quux;
-    use Moose;
-
-    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;