1 USING: alien alien.syntax alien.c-types kernel tools.test
2 sequences system libc alien.strings io.encodings.utf8 ;
3 IN: alien.c-types.tests
7 [ 492 ] [ { "int" xyz } heap-size ] unit-test
9 [ -1 ] [ -1 <char> *char ] unit-test
10 [ -1 ] [ -1 <short> *short ] unit-test
11 [ -1 ] [ -1 <int> *int ] unit-test
17 [ f ] [ "char*" c-type "void*" c-type eq? ] unit-test
18 [ t ] [ "char**" c-type "void*" c-type eq? ] unit-test
20 [ t ] [ "foo" heap-size "int" heap-size = ] unit-test
24 [ t ] [ "int" c-type "MyInt" c-type eq? ] unit-test
25 [ t ] [ "void*" c-type "MyInt*" c-type eq? ] unit-test
29 [ t ] [ "char" c-type "MyChar" c-type eq? ] unit-test
30 [ f ] [ "void*" c-type "MyChar*" c-type eq? ] unit-test
31 [ t ] [ "char*" c-type "MyChar*" c-type eq? ] unit-test
33 [ 32 ] [ { "int" 8 } heap-size ] unit-test
35 TYPEDEF: char* MyString
37 [ t ] [ "char*" c-type "MyString" c-type eq? ] unit-test
38 [ t ] [ "void*" c-type "MyString*" c-type eq? ] unit-test
40 TYPEDEF: int* MyIntArray
42 [ t ] [ "void*" c-type "MyIntArray" c-type eq? ] unit-test
44 TYPEDEF: uchar* MyLPBYTE
46 [ t ] [ { char* utf8 } c-type "MyLPBYTE" c-type = ] unit-test
49 0 B{ 1 2 3 4 } <displaced-alien> <void*>
52 os windows? cpu x86.64? and [
53 [ -2147467259 ] [ 2147500037 <long> *long ] unit-test