Changeset 126 for trunk/UTest.pas

Timestamp:

Apr 6, 2022, 11:36:27 AM (3 years ago)

Author:

chronos

Message:

• Added: Action to remove exact duplicates.
• Modified: Test cases definition moved to separate file.

File:

• trunk/UTest.pas (modified) (5 diffs)

trunk/UTest.pas

@@ -32 +32 @@
   end;
 
+  TTestCaseActionKind = (akNone, akRemoveExactDuplicates);
+
   { TTestCaseLoadSave }
 
@@ -37 +39 @@
     Input: string;
     Output: string;
+    Action: TTestCaseActionKind;
     procedure Run; override;
   end;
@@ -50 +53 @@
   end;
 
+resourcestring
+  SNone = 'None';
+  SPassed = 'Passed';
+  SFailed = 'Failed';
+
 const
-  ResultText: array[TTestResult] of string = ('None', 'Passed', 'Failed');
+  ResultText: array[TTestResult] of string = (SNone, SPassed, SFailed);
+
+procedure Translate;
 
 
 implementation
+
+resourcestring
+  SExpected = 'Expected:';
+  SOutput = 'Output:';
+
+procedure Translate;
+begin
+ ResultText[trNone] := SNone;
+ ResultText[trPassed] := SPassed;
+ ResultText[trFailed] := SFailed;
+end;
 
 { TTestCaseCheckProperty }
@@ -73 +94 @@
         Evaluate(PropertyValue = Value);
       end else Fail;
-      Log := 'Expected:' + LineEnding +
+      Log := SExpected + LineEnding +
         '"' + Value + '"' + LineEnding + LineEnding +
-        'Output:' + LineEnding +
+        SOutput + LineEnding +
         '"' + PropertyValue + '"';
     finally
@@ -97 +118 @@
       Lines.Text := Input;
       LoadFromStrings(Lines);
+
+      if Action = akRemoveExactDuplicates then
+        Contacts.RemoveExactDuplicates;
+
       Lines.Text := '';
       SaveToStrings(Lines);
       Evaluate(Lines.Text = Output);
-      Log := 'Expected:' + LineEnding +
+      Log := SExpected + LineEnding +
         '"' + Output + '"' + LineEnding + LineEnding +
-        'Output:' + LineEnding +
+        SOutput + LineEnding +
         '"' + Lines.Text + '"';
     finally