1*5759b3d2Safresh1#!/usr/bin/perl -w 2*5759b3d2Safresh1 3*5759b3d2Safresh1# Test that setting $? doesn't affect subtest success 4*5759b3d2Safresh1 5*5759b3d2Safresh1use strict; 6*5759b3d2Safresh1use Test::More; 7*5759b3d2Safresh1 8*5759b3d2Safresh1subtest foo => sub { 9*5759b3d2Safresh1 plan tests => 1; 10*5759b3d2Safresh1 $? = 1; 11*5759b3d2Safresh1 pass('bar'); 12*5759b3d2Safresh1}; 13*5759b3d2Safresh1 14*5759b3d2Safresh1is $?, 1, "exit code keeps on from a subtest"; 15*5759b3d2Safresh1 16*5759b3d2Safresh1subtest foo2 => sub { 17*5759b3d2Safresh1 plan tests => 1; 18*5759b3d2Safresh1 pass('bar2'); 19*5759b3d2Safresh1 $? = 1; 20*5759b3d2Safresh1}; 21*5759b3d2Safresh1 22*5759b3d2Safresh1is $?, 1, "exit code keeps on from a subtest"; 23*5759b3d2Safresh1 24*5759b3d2Safresh1done_testing(4); 25