paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-11 09:59:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed tests to be locale independent.

Browse Source 
git-svn-id: trunk@10693 -
This commit is contained in:
yury 2008-04-18 13:31:43 +00:00
parent 9222540e84
commit b14276d62a
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw10519.pp
View File

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

1
tests/webtbs/tw10753.pp
View File

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