X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fspawn.t;h=6168c1f6171c83919efefa91d7194a5a8b069c1b;hb=0858ae1ccf6cb55d771cdd7d3ef0cf9a933a7876;hp=a17b72d97ff5926d41477647b0ffc273d16d5dc2;hpb=5244475c94d9f80b0a76b6bfa9185bdff5a8a0d8;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 } });