Changeset 94 for trunk/UTest.pas

Timestamp:

Feb 3, 2022, 10:53:30 PM (3 years ago)

Author:

chronos

Message:

• Added: Validation tests for contact properties.

File:

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

trunk/UTest.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fgl;
+  Classes, SysUtils, fgl, UContact;
 
 type
@@ -19 +19 @@
     Log: string;
     procedure Run; virtual;
+    procedure Evaluate(Passed: Boolean);
+    procedure Pass;
+    procedure Fail;
   end;
 
@@ -35 +38 @@
     Output: string;
     procedure Run; override;
-    procedure Evaluate(Passed: Boolean);
+  end;
+
+  { TTestCaseCheckProperty }
+
+  TTestCaseCheckProperty = class(TTestCase)
+    Input: string;
+    ContactIndex: Integer;
+    Index: TContactFieldIndex;
+    Value: string;
+    procedure Run; override;
   end;
 
@@ -44 +56 @@
 implementation
 
-uses
-  UContact;
+{ TTestCaseCheckProperty }
+
+procedure TTestCaseCheckProperty.Run;
+var
+  Lines: TStringList;
+  PropertyValue: string;
+begin
+  Lines := TStringList.Create;
+  try
+    with TContactsFile.Create do
+    try
+      Lines.Text := Input;
+      LoadFromStrings(Lines);
+      if ContactIndex < Contacts.Count then begin
+        PropertyValue := Contacts[ContactIndex].Fields[Index];
+        Evaluate(PropertyValue = Value);
+      end else Fail;
+      Log := 'Expected:' + LineEnding +
+        '"' + Value + '"' + LineEnding + LineEnding +
+        'Output:' + LineEnding +
+        '"' + PropertyValue + '"';
+    finally
+      Free;
+    end;
+  finally
+    Lines.Free;
+  end;
+end;
 
 { TTestCaseLoadSave }
@@ -62 +100 @@
       SaveToStrings(Lines);
       Evaluate(Lines.Text = Output);
-      if Result <> trPassed then begin
-        Log := 'Expected:' + LineEnding +
-          '"' + Output + '"' + LineEnding + LineEnding +
-          'Output:' + LineEnding +
-          '"' + Lines.Text + '"';
-      end;
+      Log := 'Expected:' + LineEnding +
+        '"' + Output + '"' + LineEnding + LineEnding +
+        'Output:' + LineEnding +
+        '"' + Lines.Text + '"';
     finally
       Free;
@@ -76 +112 @@
 end;
 
-procedure TTestCaseLoadSave.Evaluate(Passed: Boolean);
+{ TTestCase }
+
+procedure TTestCase.Run;
+begin
+end;
+
+procedure TTestCase.Evaluate(Passed: Boolean);
 begin
   if Passed then Result := trPassed
@@ -82 +124 @@
 end;
 
-{ TTestCase }
+procedure TTestCase.Pass;
+begin
+  Result := trPassed;
+end;
 
-procedure TTestCase.Run;
+procedure TTestCase.Fail;
 begin
-
+  Result := trFailed;
 end;