This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get C++ compiles going on Solaris again.
[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
CB
16if ($^O eq 'VMS') {
17 skip('Can\'t make list assignment to \%ENV on this system', 1);
18}
19else {
dfa4e5d3
RGS
20 local %ENV;
21 File::Spec::Win32->tmpdir;
22 ok scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV";
23}
24
9d5071ba
SP
25File::Spec::Win32->tmpdir;
26ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";