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

classes.struct unit tests to check union heap-size and that structs can be passed as FFI args

db4
Joe Groff 2009-08-18 13:10:52 -05:00
parent 600bf6bcdc
commit 4d87c91d59
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/classes/struct/struct-tests.factor
View File

@ -1,6 +1,6 @@
! (c)Joe Groff bsd license ! (c)Joe Groff bsd license
USING: accessors alien.c-types classes.c-types classes.struct USING: accessors alien.c-types classes.c-types classes.struct
combinators kernel math tools.test ; combinators kernel libc math tools.test ;
IN: classes.struct.tests IN: classes.struct.tests
STRUCT: foo STRUCT: foo
@ -35,4 +35,6 @@ UNION-STRUCT: float-and-bits
{ bits uint } ; { bits uint } ;
[ 1.0 ] [ float-and-bits <struct> 1.0 float>bits >>bits f>> ] unit-test [ 1.0 ] [ float-and-bits <struct> 1.0 float>bits >>bits f>> ] unit-test
[ 4 ] [ float-and-bits heap-size ] unit-test
[ ] [ foo malloc-struct free ] unit-test