Changeset 92 for trunk/Forms

Timestamp:

Feb 3, 2022, 10:08:07 PM (3 years ago)

Author:

chronos

Message:

• Added: Detect used max line length. Default max line length should be 75 characters.
• Added: Escape new lines in text strings.
• Modified: Extended tests.
• Fixed: Wrong max line length was used for UTF-8 strings during save.

File:

• trunk/Forms/UFormTest.pas (modified) (3 diffs)

trunk/Forms/UFormTest.pas

@@ -48 +48 @@
 
 uses
-  UCore, UFormTestCase;
+  UCore, UFormTestCase, UContact;
 
 { TFormTest }
@@ -119 +119 @@
   with TestCases do begin
     with TTestCaseLoadSave(AddNew('Load and save', TTestCaseLoadSave)) do begin
-      Input := 'BEGIN:VCARD' + LineEnding +
+      Input := VCardBegin + LineEnding +
         'VERSION:2.1' + LineEnding +
         'N:Surname;Name' + LineEnding +
         'FN:Name Surname' + LineEnding +
-        'END:VCARD' + LineEnding;
+        VCardEnd + LineEnding;
+      Output := Input;
+    end;
+    with TTestCaseLoadSave(AddNew('Long text', TTestCaseLoadSave)) do begin
+      Input := VCardBegin + LineEnding +
+        'VERSION:2.1' + LineEnding +
+        'NOTE:This is some long test which is really multi-lined each line is on d' + LineEnding +
+        ' ifferent line so it is on multiple lines.' + LineEnding +
+        VCardEnd + LineEnding;
       Output := Input;
     end;
     with TTestCaseLoadSave(AddNew('Multi-line', TTestCaseLoadSave)) do begin
-      Input := 'BEGIN:VCARD' + LineEnding +
+      Input := VCardBegin + LineEnding +
         'VERSION:2.1' + LineEnding +
-        'NOTE:This is some long test which is really multi-lined\neach line\nis on' + LineEnding +
-        ' different\nline so it is on multiple\nlines.'  + LineEnding +
-        'END:VCARD' + LineEnding;
+        'NOTE:First line\nsecond line\nempty line\n\nlast line' + LineEnding +
+        VCardEnd + LineEnding;
       Output := Input;
     end;
@@ -142 +149 @@
     end;
     with TTestCaseLoadSave(AddNew('Begin only', TTestCaseLoadSave)) do begin
-      Input := 'BEGIN:VCARD';
+      Input := VCardBegin;
       Output := '';
     end;
     with TTestCaseLoadSave(AddNew('Missing end', TTestCaseLoadSave)) do begin
-      Input := 'BEGIN:VCARD' + LineEnding +
+      Input := VCardBegin + LineEnding +
         'VERSION:2.1' + LineEnding +
         'N:Surname;Name' + LineEnding +
         'FN:Name Surname' + LineEnding;
+      Output := '';
+    end;
+    with TTestCaseLoadSave(AddNew('Missing start', TTestCaseLoadSave)) do begin
+      Input := 'VERSION:2.1' + LineEnding +
+        'N:Surname;Name' + LineEnding +
+        'FN:Name Surname' + LineEnding +
+        VCardEnd + LineEnding;
       Output := '';
     end;