paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 06:00:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: fix test for locales with DecimalSeparator <> '.'

Browse Source 
git-svn-id: trunk@15123 -
This commit is contained in:
paul 2010-04-09 17:12:20 +00:00
parent c62c487b24
commit 36125b623a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/webtbs/tw16188.pp
View File

@ -35,6 +35,7 @@ end;
var ext:extended; var ext:extended;
str: shortstring; str: shortstring;
begin begin
DecimalSeparator:='.';
ext:=234.56789; ext:=234.56789;
check(FloatToStrF(ext,ffGeneral,4,1),1); check(FloatToStrF(ext,ffGeneral,4,1),1);
check(FloatToStrF(ext,ffGeneral,5,1),2); check(FloatToStrF(ext,ffGeneral,5,1),2);