This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge changes from PathTools: 'Update to support VMS in Unix compatible mode and...
[perl5.git] / lib / File / Spec / t / tmpdir.t
CommitLineData
9d5071ba
SP
1use strict;
2use Test;
3
4# Grab all of the plain routines from File::Spec
5use File::Spec;
6use File::Spec::Win32;
7
dfa4e5d3 8plan tests => 4;
9d5071ba
SP
9
10ok 1, 1, "Loaded";
11
12my $num_keys = keys %ENV;
13File::Spec->tmpdir;
14ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
15
3eb182fc 16if ($^O eq 'VMS') {
bf7c0a3d
SP
17 skip("Can't make list assignment to %ENV on this system", 1);
18} else {
dfa4e5d3
RGS
19 local %ENV;
20 File::Spec::Win32->tmpdir;
21 ok scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV";
22}
23
9d5071ba
SP
24File::Spec::Win32->tmpdir;
25ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";