lib/File/Spec/t/tmpdir.t

   1 use strict;
   2 use Test;
   3
   4 # Grab all of the plain routines from File::Spec
   5 use File::Spec;
   6 use File::Spec::Win32;
   7
   8 plan tests => 4;
   9
  10 ok 1, 1, "Loaded";
  11
  12 my $num_keys = keys %ENV;
  13 File::Spec->tmpdir;
  14 ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
  15
  16 {
  17   local %ENV;
  18   File::Spec::Win32->tmpdir;
  19   ok scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV";
  20 }
  21
  22 File::Spec::Win32->tmpdir;
  23 ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";