USING: alien alien.syntax alien.c-types kernel tools.test
sequences system libc alien.strings io.encodings.utf8 ;
IN: alien.c-types.tests

CONSTANT: xyz 123

[ { "blah" 123 } ] [ { "blah" xyz } expand-constants ] unit-test

[ -1 ] [ -1 <char> *char ] unit-test
[ -1 ] [ -1 <short> *short ] unit-test
[ -1 ] [ -1 <int> *int ] unit-test

C-UNION: foo
    "int"
    "int" ;

[ f ] [ "char*" c-type "void*" c-type eq? ] unit-test
[ t ] [ "char**" c-type "void*" c-type eq? ] unit-test

[ t ] [ "foo" heap-size "int" heap-size = ] unit-test

TYPEDEF: int MyInt

[ t ] [ "int" c-type "MyInt" c-type eq? ] unit-test
[ t ] [ "void*" c-type "MyInt*" c-type eq? ] unit-test

TYPEDEF: char MyChar

[ t ] [ "char" c-type "MyChar" c-type eq? ] unit-test
[ f ] [ "void*" c-type "MyChar*" c-type eq? ] unit-test
[ t ] [ "char*" c-type "MyChar*" c-type eq? ] unit-test

[ 32 ] [ { "int" 8 } heap-size ] unit-test

TYPEDEF: char* MyString

[ t ] [ "char*" c-type "MyString" c-type eq? ] unit-test
[ t ] [ "void*" c-type "MyString*" c-type eq? ] unit-test

TYPEDEF: int* MyIntArray

[ t ] [ "void*" c-type "MyIntArray" c-type eq? ] unit-test

TYPEDEF: uchar* MyLPBYTE

[ t ] [ { "char*" utf8 } c-type "MyLPBYTE" c-type = ] unit-test

[
    0 B{ 1 2 3 4 } <displaced-alien> <void*>
] must-fail

os windows? cpu x86.64? and [
    [ -2147467259 ] [ 2147500037 <long> *long ] unit-test
] when