use VPIT::TestHelpers;
-use Test::More tests => 4;
+use Test::More tests => 5;
use Config;
use File::Temp;
my $filename = '/tmp/run_perl_test';
+my $guard = VPIT::TestHelpers::Guard->new(sub { unlink $filename });
+
my $code = "open my \$fh, q[>], q[$filename] or die \$!; for my \$key (sort keys %ENV) { print \$fh qq[\$key:\$ENV{\$key}\n] } close \$fh";
my $ld_path = $Config::Config{ldlibpthname};
my %expected_vars = (
'MSWin32' => [ qw<SystemRoot> ],
- 'android' => [ $ld_path ],
+ 'android' => [ ],
'cygwin' => [ qw<PATH> ],
+ 'darwin' => [ ],
'linux' => [ ],
);
+push @$_, $ld_path for values %expected_vars;
my @all_vars = do {
my %uniq;
__CF_USER_TEXT_ENCODING
>;
-for my $os (qw<MSWin32 android cygwin linux>) {
+for my $os (qw<MSWin32 android darwin cygwin linux>) {
1 while unlink $filename;
local $^O = $os;