* fixed test for double precision platforms after r25888

git-svn-id: trunk@25894 -

tests/webtbs/tw2129.pp

@@ -25,6 +25,9 @@ it introduces a subtle incompatibility with Delphi.
 *)
 
 program fpc19;
+uses
+  sysutils;
+
 var
   comp1 : comp;
   dbl1 : double;
@@ -42,7 +45,7 @@ begin
   { this constant has been verified and is correct (FK) }
   { doubles have slightly different precision on processors <> x86, because }
   { intermediate calculations are not performed in 80 bit there (JM)        }
-  if Copy(s,1,Length(s)-1)<>'-653142228756617021' then
+  if trim(s)<>'-6531422287566170211' then
 {$endif FPC_HAS_TYPE_EXTENDED}
     begin
       writeln(s);