factor/basis/struct-arrays/struct-arrays-tests.factor

IN: struct-arrays.tests
USING: struct-arrays tools.test kernel math sequences
alien.syntax alien.c-types destructors libc accessors
destructors ;

C-STRUCT: test-struct
{ "int" "x" }
{ "int" "y" } ;

: make-point ( x y -- struct )
    "test-struct" <c-object>
    [ set-test-struct-y ] keep
    [ set-test-struct-x ] keep ;

[ 5/4 ] [
    2 "test-struct" <struct-array>
    1 2 make-point over set-first
    3 4 make-point over set-second
    0 [ [ test-struct-x ] [ test-struct-y ] bi / + ] reduce
] unit-test

[ 5/4 ] [
    [
        2 "test-struct" malloc-struct-array
        dup &free drop
        1 2 make-point over set-first
        3 4 make-point over set-second
        0 [ [ test-struct-x ] [ test-struct-y ] bi / + ] reduce
    ] with-destructors
] unit-test

[ ] [ ALIEN: 123 10 "test-struct" <direct-struct-array> drop ] unit-test

[ ] [
    [
        10 "test-struct" malloc-struct-array
        &free drop
    ] with-destructors
] unit-test