[p5sagit/p5-mst-13.2.git] / ext / Win32 / t / ExpandEnvironmentStrings.t

use strict;
use Test;
use Win32;

plan tests => 1;

ok(Win32::ExpandEnvironmentStrings("%WINDIR%"), $ENV{WINDIR});
Commit	Line	Data
83a611dd	1	use strict;
	2	use Test;
	3	use Win32;
	4
	5	plan tests => 1;
	6
	7	ok(Win32::ExpandEnvironmentStrings("%WINDIR%"), $ENV{WINDIR});