Changeset 352 for trunk/unittests/FileUtilsUnitTests.pas

Timestamp:

Jun 7, 2009, 8:20:58 PM (16 years ago)

Author:

RBRi

Message:

fix tests for current environment

File:

• trunk/unittests/FileUtilsUnitTests.pas (modified) (1 diff)

trunk/unittests/FileUtilsUnitTests.pas

@@ -537 +537 @@
     GetDirsInPath('HELP', tmpResult);
 
-    assertEqualsInt('testGetDirsInPath_Help', 9, tmpResult.count);
-    assertEqualsString('testGetDirsInPath_Help', 'D:\progs\watcom\BINP\HELP', tmpResult[0]);
-    assertEqualsString('testGetDirsInPath_Help', 'C:\MMOS2\HELP', tmpResult[8]);
+    assertEqualsInt('testGetDirsInPath_Help', 8, tmpResult.count);
+    assertEqualsString('testGetDirsInPath_Help', 'D:\progs\develop\watcom_18\BINP\HELP', tmpResult[0]);
+    assertEqualsString('testGetDirsInPath_Help', 'C:\MMOS2\HELP', tmpResult[7]);
 
     tmpResult.Destroy;