 USING: accessors alien alien.c-types alien.libraries
 alien.syntax arrays classes.struct combinators
-compiler continuations destructors effects fry generalizations io
+compiler continuations destructors effects generalizations io
 io.backend io.pathnames io.streams.string kernel
 math memory namespaces namespaces.private parser
 quotations sequences specialized-arrays stack-checker


<promise> "p" set
[
    [
        thread-callback-1 thread-callback-invoker "p" get fulfill
    ] with-destructors
] in-thread
{ 200 } [
    thread-callback-2 thread-callback-invoker
] unit-test-with-destructors
[ 100 ] [ "p" get ?promise ] unit-test

! More alien-assembly tests are in cpu.* vocabs

SPECIALIZED-ARRAY: char
IN: compiler.tests.alien

! Make sure that invalid inputs don't pass the stack checker
[ [ void { } "cdecl" alien-indirect ] infer ] must-fail
[ [ "void" { } cdecl alien-indirect ] infer ] must-fail
