 : callback-10-test ( x1 x2 callback -- result )
     test_struct_14 { double double } cdecl alien-indirect ;
 
-[ 1.0 2.0 ] [
+{ 1.0 2.0 } [
     1.0 2.0 callback-10 callback-10-test
     [ x1>> ] [ x2>> ] bi
-] unit-test
+] unit-test-with-destructors
 
 FUNCTION: test-struct-12 ffi_test_41 ( int a, double x ) ;
 


[ 1.0 2.0 ] [
    1.0 2.0 callback-12 callback-12-test [ x>> ] [ y>> ] bi
] unit-test

STRUCT: test_struct_16
    { x float }

    void { void* void* double-rect } cdecl alien-indirect
    "example" get-global ;

{ byte-array 1.0 2.0 3.0 4.0 } [
    1.0 2.0 3.0 4.0 <double-rect>
    double-rect-callback double-rect-test
    [ >c-ptr class-of ] [ >double-rect< ] bi
] unit-test-with-destructors

STRUCT: test_struct_14
    { x1 double }
