 : 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 ) ;
 

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

: callback-11-test ( x1 x2 callback -- result )
    test-struct-12 { int double } cdecl alien-indirect ;

{ 1 2.0 } [
    1 2.0 callback-11 callback-11-test
    [ a>> ] [ x>> ] bi
] unit-test-with-destructors

STRUCT: test_struct_15
    { x float }
