[p5sagit/p5-mst-13.2.git] / lib / File / Spec / t / tmpdir.t

use strict;
use Test;

# Grab all of the plain routines from File::Spec
use File::Spec;
use File::Spec::Win32;

plan tests => 4;

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";

{
  local %ENV;
  File::Spec::Win32->tmpdir;
  ok scalar keys %ENV, 0, "Win32->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";
Commit	Line	Data
9d5071ba	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
dfa4e5d3	8	plan tests => 4;
9d5071ba	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
dfa4e5d3	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
9d5071ba	22	File::Spec::Win32->tmpdir;
9d5071ba	23	ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";