paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: h2pas: simple types

Browse Source 
git-svn-id: trunk@31309 -
This commit is contained in:
mattias 2011-06-20 18:24:45 +00:00
parent cf24d60e0f
commit df7a632f0c
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
test/codetoolstests/testcth2pas.pas
View File

@ -159,12 +159,24 @@ var
begin
UsesCTypes:='uses ctypes;'+LineEnding;
EmpytImplementation:=LineEnding+'implementation'+LineEnding+'end.';
(*Test('convert int i;',
Test('convert int i;',
'int i;',
UsesCTypes+'var i: cint; cvar; external;'+EmpytImplementation);*)
UsesCTypes+'var i: cint; cvar; external;'+EmpytImplementation);
Test('convert #define c 1',
'#define c 1',
UsesCTypes+'const c=1;'+EmpytImplementation);
Test('convert int y = 7;',
'int y = 7;',
UsesCTypes+'var y:cint;cvar;external;'+EmpytImplementation);
Test('convert short signed int ssi_octal = 0123;',
'short signed int ssi_octal = 0123;',
UsesCTypes+'var ssi_octal:csshort;cvar;external;'+EmpytImplementation);
Test('convert unsigned short unsigned_short;',
'unsigned short unsigned_short;',
UsesCTypes+'var unsigned_short:cushort;cvar;external;'+EmpytImplementation);
Test('convert unsigned long long unsigned_long_long;',
'unsigned long long unsigned_long_long;',
UsesCTypes+'var unsigned_long_long:culonglong;cvar;external;'+EmpytImplementation);
end;
procedure TTestCodetoolsH2Pas.TestCTH2PConvertEnumsTypes;