X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F020-global-destruction.t;h=6ec3a6ba8b4fd64b83af20b0ea8a9707fdb4dc4f;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=42aa362cc88f9672b4663a7f896e9cca103150ae;hpb=70425827d676b2b4130f5e78689bf017fe4c4609;p=gitmo%2FMouse.git

diff --git a/t/010_basics/020-global-destruction.t b/t/010_basics/020-global-destruction.t
index 42aa362..6ec3a6b 100644
--- a/t/010_basics/020-global-destruction.t
+++ b/t/010_basics/020-global-destruction.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;
@@ -43,14 +46,9 @@ use Test::More;
     my $bar = Bar->new;
 }
 
-$? = 0;
-
-my $blib = $INC{'blib.pm'} ? ' -Mblib ' : '';
-my @status = `$^X $blib t/010_basics/020-global-destruction-helper.pl`;
-
-ok $status[0], 'in_global_destruction state is passed to DEMOLISH properly (true)';
-ok $status[1], 'in_global_destruction state is passed to DEMOLISH properly (true)';
-
-is $?, 0, 'exited successfully';
+ok(
+    $_,
+    'in_global_destruction state is passed to DEMOLISH properly (true)'
+) for split //, `$^X t/010_basics/020-global-destruction-helper.pl`;
 
 done_testing;