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

* Test for fix of issue #38489

Browse Source 
git-svn-id: trunk@49605 -
This commit is contained in:
michael 2021-07-13 08:16:14 +00:00
parent 2486d58db9
commit 9394158fe2
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/test/units/fmtbcd/tfmtbcd.pp
View File

@ -253,6 +253,7 @@ begin
bcd:=strtobcd('0'); bcd:=strtobcd('0');
testFormatBCD('0;;0',bcd, '0'); testFormatBCD('0;;0',bcd, '0');
testFormatBCD('0;;#',bcd, ''); testFormatBCD('0;;#',bcd, '');
testFormatBCD('0;;0.#',bcd, '0');
testFormatBCD('0;;0.00',bcd, '0.00'); testFormatBCD('0;;0.00',bcd, '0.00');
// test StrToBCD: // test StrToBCD: