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

* merged from fixes

Browse Source 
git-svn-id: trunk@6807 -
This commit is contained in:
florian 2007-03-12 19:57:34 +00:00
parent 9f3d43ec09
commit 20eca6128f
1 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
tests/test/units/sysutils/tfloattostr.pp
View File

@ -10,14 +10,11 @@ var
ErrCount: longint;
procedure CheckResult(const s, ref: string);
var
ref2: string;
begin
ref2:=StringReplace(ref, '.', DecimalSeparator, []);
if s <> ref2 then
if s <> ref then
begin
writeln('Got : ', s);
writeln('Should be: ', ref2);
writeln('Should be: ', ref);
Inc(ErrCount);
end;
end;
@ -32,23 +29,23 @@ begin
d:=12345.12345;
s:=12345.12;
c:=12345.1234;
CheckResult(FloatToStrF(e,ffExponent,15,1), '1.23456789012340E+12');
CheckResult(FloatToStrF(d,ffExponent,11,0), '1.2345123450E+4');
CheckResult(FloatToStrF(s,ffExponent,8,0), '1.2345120E+4');
CheckResult(FloatToStrF(s,ffExponent,8,7), '1.2345120E+0004');
CheckResult(FloatToStrF(e,ffExponent,8,3), '1.2345679E+012');
CheckResult(FloatToStrF(c,ffExponent,10,0), '1.234512340E+4');
CheckResult(FloatToStrF(c,ffExponent,11,2), '1.2345123400E+04');
CheckResult(FloatToStrF(c,ffExponent,10,4), '1.234512340E+0004');
CheckResult(FloatToStrF(-12345.12345,ffExponent,11,0), '-1.2345123450E+4');
CheckResult(FloatToStrF(-0.00000123,ffGeneral,15,0), '-1.23E-6');
CheckResult(FloatToStrF(-12345.12345,ffGeneral,7,0), '-12345.12');
CheckResult(CurrToStr(-12345.1234), '-12345.1234');
CheckResult(CurrToStr(MaxCurrency), '922337203685477.5807');
CheckResult(CurrToStr(MinCurrency), '-922337203685477.5807');
CheckResult(FloatToStrF(e,ffExponent,15,1), '1'+DecimalSeparator+'23456789012340E+12');
CheckResult(FloatToStrF(d,ffExponent,11,0), '1'+DecimalSeparator+'2345123450E+4');
CheckResult(FloatToStrF(s,ffExponent,8,0), '1'+DecimalSeparator+'2345120E+4');
CheckResult(FloatToStrF(s,ffExponent,8,7), '1'+DecimalSeparator+'2345120E+0004');
CheckResult(FloatToStrF(e,ffExponent,8,3), '1'+DecimalSeparator+'2345679E+012');
CheckResult(FloatToStrF(c,ffExponent,10,0), '1'+DecimalSeparator+'234512340E+4');
CheckResult(FloatToStrF(c,ffExponent,11,2), '1'+DecimalSeparator+'2345123400E+04');
CheckResult(FloatToStrF(c,ffExponent,10,4), '1'+DecimalSeparator+'234512340E+0004');
CheckResult(FloatToStrF(-12345.12345,ffExponent,11,0), '-1'+DecimalSeparator+'2345123450E+4');
CheckResult(FloatToStrF(-0.00000123,ffGeneral,15,0), '-1'+DecimalSeparator+'23E-6');
CheckResult(FloatToStrF(-12345.12345,ffGeneral,7,0), '-12345'+DecimalSeparator+'12');
CheckResult(CurrToStr(-12345.1234), '-12345'+DecimalSeparator+'1234');
CheckResult(CurrToStr(MaxCurrency), '922337203685477'+DecimalSeparator+'5807');
CheckResult(CurrToStr(MinCurrency), '-922337203685477'+DecimalSeparator+'5807');
NegCurrFormat:=8;
CheckResult(FloatToStrF(-12345.1234,ffCurrency,19,4), '-12' + ThousandSeparator + '345.1234 ' + CurrencyString);
CheckResult(FloatToStrF(MinCurrency,ffCurrency,19,4), '-922' + ThousandSeparator + '337' + ThousandSeparator + '203' + ThousandSeparator + '685' + ThousandSeparator + '477.5807 ' + CurrencyString);
CheckResult(FloatToStrF(-12345.1234,ffCurrency,19,4), '-12' + ThousandSeparator + '345'+DecimalSeparator+'1234 ' + CurrencyString);
CheckResult(FloatToStrF(MinCurrency,ffCurrency,19,4), '-922' + ThousandSeparator + '337' + ThousandSeparator + '203' + ThousandSeparator + '685' + ThousandSeparator + '477'+DecimalSeparator+'5807 ' + CurrencyString);
if ErrCount > 0 then
begin
writeln('Test failed. Errors: ', ErrCount);