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

tests: started nested structs

Browse Source 
git-svn-id: trunk@31323 -
This commit is contained in:
mattias 2011-06-21 23:01:04 +00:00
parent b4ab1b4c27
commit cf61e78d01
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
test/codetoolstests/testcth2pas.pas
View File

@ -237,14 +237,43 @@ end;
procedure TTestCodetoolsH2Pas.TestCTH2PConvertSimpleStructs;
begin
TestIntf('convert struct SwsContext;',
(*TestIntf('convert struct SwsContext;',
'struct SwsContext;',
'type SwsContext = record end;');
TestIntf('convert struct hidp_connlist_req {uint32_t cnum;};',
'struct hidp_connlist_req {'+LineEnding
+' uint32_t cnum;'+LineEnding
+'};',
'type hidp_connlist_req = record cnum:cuint32; end;');
'type hidp_connlist_req = record cnum:cuint32; end;');*)
// nested struct
TestIntf('convert struct hidp_connlist_req {uint32_t cnum;struct hidp_conninfo ci;};',
'struct hidp_connlist_req {'+LineEnding
+' uint32_t cnum;'+LineEnding
+' struct hidp_conninfo ci;'+LineEnding
+'};',
'type'+LineEnding
+' hidp_connlist_req = record'+LineEnding
+' cnum:cuint32;'+LineEnding
+' ci:hidp_conninfo;'+LineEnding
+' end;'+LineEnding
+' hidp_conninfo = record'+LineEnding
+' end;');
// nested pointer of struct
(*TestIntf('convert struct hidp_connlist_req {uint32_t cnum;struct hidp_conninfo *ci;};',
'struct hidp_connlist_req {'+LineEnding
+' uint32_t cnum;'+LineEnding
+' struct hidp_conninfo *ci;'+LineEnding
+'};',
'type'+LineEnding
+' hidp_connlist_req = record'+LineEnding
+' cnum:cuint32;'+LineEnding
+' ci:Phidp_conninfo;'+LineEnding
+' end;'+LineEnding
+' hidp_conninfo = record'+LineEnding
+' end;'); *)
end;
initialization