* Fixed test to be locale independent.

git-svn-id: trunk@10697 -

tests/webtbs/tw9384.pp

@@ -6,6 +6,6 @@ var
   ef : Extended;
 begin
   ef := 12;
-  if (FormatFloat('#.#######E-0',ef) <> '1.2E1') then
+  if (FormatFloat('#.#######E-0',ef) <> '1'+DecimalSeparator+'2E1') then
     halt(1);
 end.