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

* renamed tb0488.pp to tb0488a.pp

Browse Source 
* added tb0488b test program

git-svn-id: trunk@1774 -
This commit is contained in:
tom_at_work 2005-11-16 20:51:45 +00:00
parent 9d7ac02696
commit c97dfde06d
3 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -5064,7 +5064,8 @@ tests/tbs/tb0484.pp svneol=native#text/plain
tests/tbs/tb0485.pp svneol=native#text/plain
tests/tbs/tb0486.pp svneol=native#text/plain
tests/tbs/tb0487.pp svneol=native#text/plain
tests/tbs/tb0488.pp svneol=native#text/plain
tests/tbs/tb0488a.pp svneol=native#text/plain
tests/tbs/tb0488b.pp -text
tests/tbs/tb0489.pp svneol=native#text/plain
tests/tbs/tb0490.pp svneol=native#text/plain
tests/tbs/tb0491.pp svneol=native#text/plain

0
tests/tbs/tb0488.pp → tests/tbs/tb0488a.pp
View File

18
tests/tbs/tb0488b.pp Normal file
View File

@ -0,0 +1,18 @@
{ Checks whether the %x format string supports qwords.
This is a variation of tb0488a
}
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
procedure Check(a,b:ansistring);
begin
if a<>b then
begin
writeln(a,' should be equal to ',b);
error;
end;
end;
begin
check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF');
end.