* extended test

  * fixed error numbers

tests/test/units/sysutils/ttrim.pp

@@ -20,6 +20,13 @@ procedure testtrim_ansistr;
     Check(TrimRight(s)=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF',2);
     s:=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ';
     Check(TrimLeft(s)='asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ',3);
+
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(Trim(s)=s,4);
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(TrimRight(s)=s,5);
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(TrimLeft(s)=s,5);
   end;
 
 
@@ -33,6 +40,13 @@ procedure testtrim_unicodestr;
     Check(TrimRight(s)=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF',1002);
     s:=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ';
     Check(TrimLeft(s)='asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ',1003);
+
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(Trim(s)=s,1004);
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(TrimRight(s)=s,1005);
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(TrimLeft(s)=s,1005);
   end;
 
 
@@ -41,11 +55,18 @@ procedure testtrim_widestr;
     s: widestring;
   begin
     s:=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ';
-    Check(Trim(s)='asdfA SDF'#10#9#13'asdfASDF',1001);
+    Check(Trim(s)='asdfA SDF'#10#9#13'asdfASDF',2001);
     s:=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ';
-    Check(TrimRight(s)=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF',1002);
+    Check(TrimRight(s)=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF',2002);
     s:=#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ';
-    Check(TrimLeft(s)='asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ',1003);
+    Check(TrimLeft(s)='asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  ',2003);
+
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(Trim(s)=s,2004);
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(TrimRight(s)=s,2005);
+    s:='a'#10#9#13'  asdfA SDF'#10#9#13'asdfASDF'#10#9#13'  A';
+    Check(TrimLeft(s)=s,2005);
   end;
 
 begin