paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: h2pas: convert enum

Browse Source 
git-svn-id: trunk@31306 -
This commit is contained in:
mattias 2011-06-20 17:46:10 +00:00
parent 4ba4710664
commit 63e9ed66b0
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/codetoolstests/testcth2pas.pas
View File

@ -168,12 +168,18 @@ var
begin begin
UsesCTypes:='uses ctypes;'+LineEnding; UsesCTypes:='uses ctypes;'+LineEnding;
EmpytImplementation:=LineEnding+'implementation'+LineEnding+'end.'; EmpytImplementation:=LineEnding+'implementation'+LineEnding+'end.';
(*Test('convert anonymous enum{ENUM1};', Test('convert anonymous enum{ENUM1};',
'enum{ENUM1};', 'enum{ENUM1};',
UsesCTypes+'type enumENUM1 = (ENUM1);'+EmpytImplementation);*) UsesCTypes+'type enumENUM1 = (ENUM1);'+EmpytImplementation);
Test('convert one named enum color{red};', Test('convert one named enum color{red};',
'enum color{red};', 'enum color{red};',
UsesCTypes+'type enumENUM1 = (ENUM1);'+EmpytImplementation); UsesCTypes+'type color = (red);'+EmpytImplementation);
Test('convert named enum with id: color{red=1};',
'enum color{red=1};',
UsesCTypes+'type color = (red=1);'+EmpytImplementation);
Test('convert multi enums: color{red,green,blue};',
'enum color{red,green,blue};',
UsesCTypes+'type color = (red,green,blue);'+EmpytImplementation);
end; end;
initialization initialization