1 USING: alien alien.syntax alien.c-types alien.data kernel tools.test
2 sequences system libc words vocabs namespaces layouts ;
3 IN: alien.structs.tests
9 [ 36 ] [ "bar" heap-size ] unit-test
10 [ t ] [ \ <displaced-alien> "bar" c-type-getter memq? ] unit-test
16 os winnt? cpu x86? and [
17 [ 16 ] [ "align-test" heap-size ] unit-test
21 { "long" "a" } { "double" "b" } { "int" "c" } ;
23 [ 24 ] [ "one" heap-size ] unit-test
30 { { "int" MAX_FOOS } "x" } ;
32 [ 120 ] [ "foox" heap-size ] unit-test
38 [ 120 ] [ "barx" heap-size ] unit-test
41 "print-topic" "help" lookup "help" set
42 [ ] [ \ foox-x "help" get execute ] unit-test
43 [ ] [ \ set-foox-x "help" get execute ] unit-test