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

View File

@ -1,6 +1,6 @@
! (c)Joe Groff bsd license
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
STRUCT: foo
@ -35,4 +35,6 @@ UNION-STRUCT: float-and-bits
{ bits uint } ;
[ 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