Changeset 247 for trunk/unittests/ACLLanguageUnitTests.pas

Timestamp:

Sep 16, 2007, 4:56:24 PM (18 years ago)

Author:

RBRi

Message:

read test added; more will follow

File:

• trunk/unittests/ACLLanguageUnitTests.pas (modified) (3 diffs)

trunk/unittests/ACLLanguageUnitTests.pas

@@ -8 +8 @@
 
 Interface
+
+const
+  // TODO read environment var
+  TEST_PATH = 'P:\newview_dev';
+
 
 uses
@@ -127 +132 @@
 
 
+  PROCEDURE testTLanguageItemList_ReadFromEmpty;
+  var
+    tmpItems : TLanguageItemList;
+    tmpTextFile : TextFile;
+    tmpFound : String;
+  begin
+    tmpItems := TLanguageItemList.Create;
+
+    FileMode := fmInput;
+    AssignFile(tmpTextFile, TEST_PATH + '\unittests\languageUnit\empty.lng');
+    Reset(tmpTextFile);
+
+    tmpItems.readFrom(tmpTextFile);
+
+    CloseFile(tmpTextFile);
+
+    tmpFound := tmpItems.getValue('unknown', 'default');
+    assertEqualsString('testTLanguageItemList_ReadFromEmpty unknown', '', tmpFound);
+
+    tmpItems.Destroy;
+  END;
+
+
+  // ----------------------------------------------------------
+
+
   FUNCTION getACLLanguageUnitTests : TList;
   BEGIN
@@ -136 +167 @@
     result.add(@testTLanguageItemList_OneValue);
     result.add(@testTLanguageItemList_ManyValues);
+
+    result.add(@testTLanguageItemList_ReadFromEmpty);
   END;