* Fix tests conforming to new behaviour wrt empty string

git-svn-id: trunk@38778 -

tests/test/tstrutils1.pp

@@ -48,29 +48,29 @@ function TestOK: Boolean;
 begin
   TestOK :=
     // AnsiStartsStr
-    not AnsiStartsStr('', '')
-    and not AnsiStartsStr('', 'ab')
-    and not AnsiStartsStr('ab', '')
-    and AnsiStartsStr('abc', 'abc')
-    and not AnsiStartsStr('abc', 'def')
-    and AnsiStartsStr('abc', 'abcedfg')
-    and not AnsiStartsStr('abc', 'ab')
-    and AnsiStartsStr('áéíç', 'áéíç')
-    and AnsiStartsStr('áé', 'áéíç')
-    and not AnsiStartsStr('áéíç', 'áé')
-    and not AnsiStartsStr('áéíç', 'áéio')
+    TestValue( AnsiStartsStr('', ''))
+    and TestValue(AnsiStartsStr('', 'ab'))
+    and TestValue(not AnsiStartsStr('ab', ''))
+    and TestValue(AnsiStartsStr('abc', 'abc'))
+    and TestValue(not AnsiStartsStr('abc', 'def'))
+    and TestValue(AnsiStartsStr('abc', 'abcedfg'))
+    and TestValue(not AnsiStartsStr('abc', 'ab'))
+    and TestValue(AnsiStartsStr('áéíç', 'áéíç'))
+    and TestValue(AnsiStartsStr('áé', 'áéíç'))
+    and TestValue(not AnsiStartsStr('áéíç', 'áé'))
+    and TestValue(not AnsiStartsStr('áéíç', 'áéio'))
     // AnsiEndsStr
-    and AnsiEndsStr('', '')
-    and AnsiEndsStr('', 'ab')
-    and not AnsiEndsStr('ab', '')
-    and AnsiEndsStr('abc', 'abc')
-    and not AnsiEndsStr('abc', 'def')
-    and AnsiEndsStr('dfg', 'abcedfg')
-    and not AnsiEndsStr('dfg', 'df')
-    and AnsiEndsStr('áéíç', 'áéíç')
-    and AnsiEndsStr('áé', 'íçáé')
-    and not AnsiEndsStr('áéíç', 'áé')
-    and not AnsiEndsStr('íçáé', 'ioáé');
+    and TestValue(AnsiEndsStr('', ''))
+    and TestValue(AnsiEndsStr('', 'ab'))
+    and TestValue(not AnsiEndsStr('ab', ''))
+    and TestValue(AnsiEndsStr('abc', 'abc'))
+    and TestValue(not AnsiEndsStr('abc', 'def'))
+    and TestValue(AnsiEndsStr('dfg', 'abcedfg'))
+    and TestValue(not AnsiEndsStr('dfg', 'df'))
+    and TestValue(AnsiEndsStr('áéíç', 'áéíç'))
+    and TestValue(AnsiEndsStr('áé', 'íçáé'))
+    and TestValue(not AnsiEndsStr('áéíç', 'áé'))
+    and TestValue(not AnsiEndsStr('íçáé', 'ioáé'));
 end;
 
 begin

tests/test/tstrutils2.pp

@@ -129,8 +129,8 @@ function TestOK: Boolean;
 begin
   TestOK :=
     // AnsiStartsText
-{1}    TestValue(not AnsiStartsText(a(Str_Empty), a(Str_Empty)),'not AnsiStartsText', Str_Empty, Str_Empty)
-{2}    and TestValue(not AnsiStartsText(a(Str_Empty), a(Str_ab)),'not AnsiStartsText', Str_Empty, Str_ab)
+{1}    TestValue( AnsiStartsText(a(Str_Empty), a(Str_Empty)),'not AnsiStartsText', Str_Empty, Str_Empty)
+{2}    and TestValue( AnsiStartsText(a(Str_Empty), a(Str_ab)),'not AnsiStartsText', Str_Empty, Str_ab)
 {3}    and TestValue(not AnsiStartsText(a(Str_ab), a(Str_Empty)),'not AnsiStartsText', Str_ab, Str_Empty)
 {4}    and TestValue(AnsiStartsText(a(Str_abc), a(Str_abc)),'AnsiStartsText',Str_abc, Str_abc)
 {5}    and TestValue(not AnsiStartsText(a(Str_abc), a(Str_def)),'not AnsiStartsText', Str_abc, Str_def)