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

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