4 # Grab all of the plain routines from File::Spec
12 my $num_keys = keys %ENV;
14 ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
18 File::Spec::Win32->tmpdir;
19 ok scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV";
22 File::Spec::Win32->tmpdir;
23 ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";