* Fixed tests to be locale independent.

git-svn-id: trunk@10693 -

tests/webtbs/tw10519.pp

@@ -4,6 +4,6 @@ var
   cs:String;
 begin
   cs:=FormatFloat('0.00000E+0000',52247.9532745);
-  if (cs<>'5.22480E+0004') then
+  if (cs<>'5'+DecimalSeparator+'22480E+0004') then
     halt(1);
 end.

tests/webtbs/tw10753.pp

@@ -27,6 +27,7 @@ procedure p;
 end;
 
 begin
+  ThousandSeparator:=',';
   p;
   if err then
     halt(1);