Changeset 190 for trunk/NewView/unittests/FileUtilsUnitTests.pas

Timestamp:

Jun 5, 2007, 8:29:57 PM (18 years ago)

Author:

RBRi

Message:

refactored, now uses FileUtilsUnit

File:

• trunk/NewView/unittests/FileUtilsUnitTests.pas (modified) (3 diffs)

trunk/NewView/unittests/FileUtilsUnitTests.pas

@@ -858 +858 @@
 
     assertEqualsString('testParentDir_GoToRootDrive', 'c:', tmpResult);
+  end;
+
+
+  // ----------------------------------------------------------
+
+
+  Procedure testMakeDirs_Empty;
+  var
+    tmpResult : String;
+  begin
+    tmpResult := MakeDirs('');
+
+    assertEqualsString('testMakeDirs_Empty', '', tmpResult);
+  end;
+
+
+  Procedure testMakeDirs_Slash;
+  var
+    tmpResult : String;
+  begin
+    tmpResult := MakeDirs('\');
+
+    assertEqualsString('testMakeDirs_Slash', '', tmpResult);
+  end;
+
+
+  Procedure testMakeDirs_Simple;
+  var
+    tmpResult : String;
+  begin
+    RmDir(TEST_PATH + '\unittests\testdir\makedirs');
+
+    tmpResult := MakeDirs(TEST_PATH + '\unittests\testdir' + '\makedirs');
+
+    RmDir(TEST_PATH + '\unittests\testdir\makedirs');
+
+    assertEqualsString('testMakeDirs_Simple', TEST_PATH + '\unittests\testdir\makedirs', tmpResult);
+  end;
+
+
+  Procedure testMakeDirs_Complex;
+  var
+    tmpResult : String;
+  begin
+    RmDir(TEST_PATH + '\unittests\testdir\makedirs\subdir\test');
+    RmDir(TEST_PATH + '\unittests\testdir\makedirs\subdir');
+    RmDir(TEST_PATH + '\unittests\testdir\makedirs');
+
+    tmpResult := MakeDirs(TEST_PATH + '\unittests\testdir' + '\makedirs\subdir\test');
+
+    RmDir(TEST_PATH + '\unittests\testdir\makedirs\subdir\test');
+    RmDir(TEST_PATH + '\unittests\testdir\makedirs\subdir');
+    RmDir(TEST_PATH + '\unittests\testdir\makedirs');
+
+    assertEqualsString('testMakeDirs_Simple', TEST_PATH + '\unittests\testdir\makedirs\subdir\test', tmpResult);
   end;
 
@@ -1124 +1179 @@
     result.add(@testParentDir_GoToRootDrive);
 
+    result.add(@testMakeDirs_Empty);
+    result.add(@testMakeDirs_Slash);
+    result.add(@testMakeDirs_Simple);
+    result.add(@testMakeDirs_Complex);
+
     result.add(@testDirectoryExists_Empty);
     result.add(@testDirectoryExists_DriveOnlyLowercase);
@@ -1144 +1204 @@
     result.add(@testFileIsReadOnly_False);
     result.add(@testFileIsReadOnly_True);
+
   end;