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

codetools: h2pas: convert anonymous enum

Browse Source 
git-svn-id: trunk@31305 -
This commit is contained in:
mattias 2011-06-20 17:43:15 +00:00
parent 357f42936c
commit 4ba4710664
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/codetoolstests/testcth2pas.pas
View File

@ -168,8 +168,11 @@ var
begin
UsesCTypes:='uses ctypes;'+LineEnding;
EmpytImplementation:=LineEnding+'implementation'+LineEnding+'end.';
Test('convert anonymous enum{ENUM1};',
(*Test('convert anonymous enum{ENUM1};',
'enum{ENUM1};',
UsesCTypes+'type enumENUM1 = (ENUM1);'+EmpytImplementation);*)
Test('convert one named enum color{red};',
'enum color{red};',
UsesCTypes+'type enumENUM1 = (ENUM1);'+EmpytImplementation);
end;