X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Falien%2Fparser%2Fparser-tests.factor;h=37f10722d1845e02e2d8592ad91a4075926ddbcc;hp=d2aec71f52db0f6ce1de5af42edead1e07a629fa;hb=7decccf8bb11874881d5d54a20a21c5430a64927;hpb=aef979b552924bf95ade129676c8452be1124005 diff --git a/basis/alien/parser/parser-tests.factor b/basis/alien/parser/parser-tests.factor index d2aec71f52..37f10722d1 100644 --- a/basis/alien/parser/parser-tests.factor +++ b/basis/alien/parser/parser-tests.factor @@ -30,9 +30,14 @@ CONSTANT: eleven 11 [ "not-word" parse-c-type ] [ error>> no-word-error? ] must-fail-with ] with-file-vocabs -FUNCTION: void* alien-parser-effect-test ( int *arg1 float arg2 ) ; +FUNCTION: void* alien-parser-function-effect-test ( int *arg1 float arg2 ) ; [ (( arg1 arg2 -- void* )) ] [ - \ alien-parser-effect-test "declared-effect" word-prop + \ alien-parser-function-effect-test "declared-effect" word-prop +] 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 ! Reported by mnestic