steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

classes.struct: add test cases for see on structs.

db4
John Benediktsson 2011-09-25 17:25:28 -07:00
parent 645fb8ccd3
commit 82e34082ec
2 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/classes/struct/prettyprint/prettyprint.factor
View File

@ -12,8 +12,9 @@ IN: classes.struct.prettyprint
: struct-definer-word ( class -- word )
struct-slots
{
{ [ dup [ offset>> 0 = ] all? ] [ drop \ UNION-STRUCT: ] }
{ [ dup [ packed?>> ] all? ] [ drop \ PACKED-STRUCT: ] }
{ [ dup length 1 <= ] [ drop \ STRUCT: ] }
{ [ dup [ offset>> 0 = ] all? ] [ drop \ UNION-STRUCT: ] }
[ drop \ STRUCT: ]
} cond ;

20
basis/classes/struct/struct-tests.factor
View File

@ -514,3 +514,23 @@ PACKED-STRUCT: packed-struct-test
[ POSTPONE: PACKED-STRUCT: ]
[ packed-struct-test struct-definer-word ] unit-test
STRUCT: struct-1 { a c:int } ;
PACKED-STRUCT: struct-1-packed { a c:int } ;
UNION-STRUCT: struct-1-union { a c:int } ;
[ "USING: alien.c-types classes.struct ;
IN: classes.struct.tests
STRUCT: struct-1 { a int initial: 0 } ;
" ]
[ \ struct-1 [ see ] with-string-writer ] unit-test
[ "USING: alien.c-types classes.struct ;
IN: classes.struct.tests
PACKED-STRUCT: struct-1-packed { a int initial: 0 } ;
" ]
[ \ struct-1-packed [ see ] with-string-writer ] unit-test
[ "USING: alien.c-types classes.struct ;
IN: classes.struct.tests
STRUCT: struct-1-union { a int initial: 0 } ;
" ]
[ \ struct-1-union [ see ] with-string-writer ] unit-test