-IN: alien.c-types.tests
USING: alien alien.syntax alien.c-types kernel tools.test
sequences system libc alien.strings io.encodings.utf8 ;
+IN: alien.c-types.tests
-: foo ( -- n ) "fdafd" f dlsym [ 123 ] unless* ;
+CONSTANT: xyz 123
-[ 123 ] [ foo ] unit-test
+[ { "blah" 123 } ] [ { "blah" xyz } expand-constants ] unit-test
[ -1 ] [ -1 <char> *char ] unit-test
[ -1 ] [ -1 <short> *short ] unit-test
0 B{ 1 2 3 4 } <displaced-alien> <void*>
] must-fail
-[ t ] [ { t f t } >c-bool-array { 1 0 1 } >c-int-array = ] unit-test
+os windows? cpu x86.64? and [
+ [ -2147467259 ] [ 2147500037 <long> *long ] unit-test
+] when