This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to PathTools-3.14
[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
8plan tests => 3;
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
16File::Spec::Win32->tmpdir;
17ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";