X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fspawn.t;fp=t%2Fspawn.t;h=6168c1f6171c83919efefa91d7194a5a8b069c1b;hb=e01fe4f05196b56775fffffe23572ec648b14ec6;hp=a17b72d97ff5926d41477647b0ffc273d16d5dc2;hpb=a5af0bd94dc0504ec34d49199eb2b7d39ceb8557;p=public-inbox.git diff --git a/t/spawn.t b/t/spawn.t index a17b72d9..6168c1f6 100644 --- a/t/spawn.t +++ b/t/spawn.t @@ -121,6 +121,12 @@ EOF isnt($?, 0, '$? set properly: '.$?); } +{ + local $ENV{GIT_CONFIG} = '/path/to/this/better/not/exist'; + my $fh = popen_rd([qw(env)], { GIT_CONFIG => undef }); + ok(!grep(/^GIT_CONFIG=/, <$fh>), 'GIT_CONFIG clobbered'); +} + { # ->CLOSE vs ->DESTROY waitpid caller distinction my @c; my $fh = popen_rd(['true'], undef, { cb => sub { @c = caller } });