* set DecimalSeparator explicitly so that Format output can be tested easily regardless of current locale

git-svn-id: trunk@29701 -

tests/webtbs/tw21449.pp

@@ -49,6 +49,7 @@ begin
 end;
 
 begin
+  DecimalSeparator := '.';
   test;
   writeln('ok');
 end.