Lines Matching full:env
13 # Need to cause the %ENV to get populated or you only get the builtins at
15 my %look_env = %ENV;
17 my $num_keys = keys %ENV;
19 is scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
22 skip("Can't make list assignment to %ENV on this system", 1)
25 local %ENV;
27 is(scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV");
31 is(scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV");
36 skip('sys$scratch: takes precedence over env on vms', 1)
38 local $ENV{TMPDIR} = $_->catfile($_->curdir, 'lib');
39 -d $ENV{TMPDIR} && -w _
40 or skip "Can't create usable TMPDIR env var", 1;
42 $ENV{TMPDIR} = $_->catfile($_->curdir, 't');
43 -d $ENV{TMPDIR} && -w _
44 or skip "Can't create usable TMPDIR env var", 1;
46 isnt $tmpdir2, $tmpdir1, "$_->tmpdir works with changing env";