paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:31:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add some output to explain failure for test tests/webtbs/tw40624.pp

Browse Source
This commit is contained in:
Pierre Muller 2024-02-06 13:09:15 +00:00
parent f80f1112d4
commit 46508f6af1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw40624.pp
View File

@ -14,9 +14,15 @@ begin
DefaultFormatSettings.DecimalSeparator := '.';
if CurrToStr(C) <> '822337203685477.5807' then
begin
Writeln('Currentcy variable C as string is ',CurrToStr(C),' expecting 822337203685477.5807');
Halt(1);
end;
S := V;
if S <> '822337203685477.5807' then
begin
Writeln('Currency variable C passed to Variant variable V is ',S,' expecting 822337203685477.5807');
Halt(2);
end;
WriteLn('OK');
end.