diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-11-19 13:46:27 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-11-19 13:46:27 +0000 |
| commit | 9d5071ba46e33ed04e81c1abff42c919060572e8 (patch) | |
| tree | e8166b38757bef471b0ec51ed3ccde92559500c0 /lib/File/Spec/t/tmpdir.t | |
| parent | 73171d914fbaa0c400064613a9ca09b78ff7b67c (diff) | |
| download | perl-9d5071ba46e33ed04e81c1abff42c919060572e8.tar.gz | |
Upgrade to PathTools-3.14
p4raw-id: //depot/perl@26174
Diffstat (limited to 'lib/File/Spec/t/tmpdir.t')
| -rw-r--r-- | lib/File/Spec/t/tmpdir.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/File/Spec/t/tmpdir.t b/lib/File/Spec/t/tmpdir.t new file mode 100644 index 0000000000..cffa0b0dfa --- /dev/null +++ b/lib/File/Spec/t/tmpdir.t @@ -0,0 +1,17 @@ +use strict; +use Test; + +# Grab all of the plain routines from File::Spec +use File::Spec; +use File::Spec::Win32; + +plan tests => 3; + +ok 1, 1, "Loaded"; + +my $num_keys = keys %ENV; +File::Spec->tmpdir; +ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV"; + +File::Spec::Win32->tmpdir; +ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV"; |