Test for %Systemroot%

[Uwe Bonnes]

Changelog:
	dlls/kernel/tests/environ.c
	Add test for %Systemroot%
-- 
Uwe Bonnes                bon at elektron.ikp.physik.tu-darmstadt.de

Institut fuer Kernphysik  Schlossgartenstrasse 9  64289 Darmstadt
--------- Tel. 06151 162516 -------- Fax. 06151 164321 ----------
Index: wine/dlls/kernel/tests/environ.c
===================================================================
RCS file: /home/wine/wine/dlls/kernel/tests/environ.c,v
retrieving revision 1.7
diff -u -w -r1.7 environ.c
--- wine/dlls/kernel/tests/environ.c	23 Jan 2004 20:50:35 -0000	1.7
+++ wine/dlls/kernel/tests/environ.c	9 Mar 2005 12:57:18 -0000
@@ -211,8 +211,21 @@
        ret, GetLastError());
 }
 
+static void test_ExpandEnvironmentStringsA()
+{
+    char buf[256], buf1[256];
+    DWORD ret_size, ret_size1;
+
+    ret_size1 = GetWindowsDirectoryA(buf1,256);
+    ok ((ret_size1 >0) && (ret_size1<256), "GetSystemDirectory Failed\n");
+    ret_size = ExpandEnvironmentStringsA("%SystemRoot%",buf,256);
+    ok(!strcmp(buf, buf1), "ExpandEnvironmentStrings failed %s vs %s\n", buf, buf1);
+}
+  
+
 START_TEST(environ)
 {
     test_GetSetEnvironmentVariableA();
     test_GetSetEnvironmentVariableW();
+    test_ExpandEnvironmentStringsA();
 }