73 lines
2.4 KiB
Factor
73 lines
2.4 KiB
Factor
! (c)2009 Joe Groff bsd license
|
|
USING: accessors alien.c-types alien.parser alien.syntax
|
|
tools.test vocabs.parser parser eval debugger kernel
|
|
continuations words ;
|
|
IN: alien.parser.tests
|
|
|
|
TYPEDEF: char char2
|
|
|
|
SYMBOL: not-c-type
|
|
|
|
CONSTANT: eleven 11
|
|
|
|
[
|
|
"alien.parser.tests" use-vocab
|
|
"alien.c-types" use-vocab
|
|
|
|
[ int ] [ "int" parse-c-type ] unit-test
|
|
[ { int 5 } ] [ "int[5]" parse-c-type ] unit-test
|
|
[ { int 5 10 11 } ] [ "int[5][10][11]" parse-c-type ] unit-test
|
|
[ { int 5 10 eleven } ] [ "int[5][10][eleven]" parse-c-type ] unit-test
|
|
[ pointer: void ] [ "void*" parse-c-type ] unit-test
|
|
[ pointer: int ] [ "int*" parse-c-type ] unit-test
|
|
[ pointer: int* ] [ "int**" parse-c-type ] unit-test
|
|
[ pointer: int** ] [ "int***" parse-c-type ] unit-test
|
|
[ pointer: int*** ] [ "int****" parse-c-type ] unit-test
|
|
[ { pointer: int 3 } ] [ "int*[3]" parse-c-type ] unit-test
|
|
[ { pointer: void 3 } ] [ "void*[3]" parse-c-type ] unit-test
|
|
[ pointer: { int 3 } ] [ "int[3]*" parse-c-type ] unit-test
|
|
[ c-string ] [ "c-string" parse-c-type ] unit-test
|
|
[ char2 ] [ "char2" parse-c-type ] unit-test
|
|
[ pointer: char2 ] [ "char2*" parse-c-type ] unit-test
|
|
|
|
[ "void[3]" parse-c-type ] must-fail
|
|
[ "int[3" parse-c-type ] must-fail
|
|
[ "int[3][4" parse-c-type ] must-fail
|
|
[ "not-word" parse-c-type ] [ error>> no-word-error? ] must-fail-with
|
|
] with-file-vocabs
|
|
|
|
FUNCTION: void* alien-parser-function-effect-test ( int *arg1 float arg2 ) ;
|
|
|
|
[ ( arg1 arg2 -- void* ) ] [
|
|
\ alien-parser-function-effect-test "declared-effect" word-prop
|
|
] unit-test
|
|
|
|
[ t ] [ \ alien-parser-function-effect-test inline? ] unit-test
|
|
|
|
FUNCTION-ALIAS: (alien-parser-function-effect-test) void* alien-parser-function-effect-test ( int *arg1 float arg2 ) ;
|
|
|
|
[ ( arg1 arg2 -- void* ) ] [
|
|
\ (alien-parser-function-effect-test) "declared-effect" word-prop
|
|
] unit-test
|
|
|
|
[ t ] [ \ (alien-parser-function-effect-test) inline? ] unit-test
|
|
|
|
CALLBACK: void* alien-parser-callback-effect-test ( int *arg1 float arg2 ) ;
|
|
|
|
[ ( arg1 arg2 -- void* ) ] [
|
|
\ alien-parser-callback-effect-test "callback-effect" word-prop
|
|
] unit-test
|
|
|
|
[ t ] [ \ alien-parser-callback-effect-test inline? ] unit-test
|
|
|
|
! Reported by mnestic
|
|
TYPEDEF: int alien-parser-test-int ! reasonably unique name...
|
|
|
|
[ "OK!" ] [
|
|
[
|
|
"USE: specialized-arrays SPECIALIZED-ARRAY: alien-parser-test-int" eval( -- )
|
|
! after restart, we end up here
|
|
"OK!"
|
|
] [ :1 ] recover
|
|
] unit-test
|