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=f43060b65ad710abc58ab3e1f4288a71deb00ec6;hp=ca03dbae42ea1eca316c9c8d049de8294abc23dd;hpb=07e8d6477c5e51223b721624b41389c91ec7e5ba;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 ca03dba..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,29 +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;