! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors tools.test alien.complex classes.struct kernel
alien.c-types alien.syntax namespaces math ;
IN: alien.complex.tests

STRUCT: complex-holder
    { z complex-float } ;

: <complex-holder> ( z -- alien )
    complex-holder <struct-boa> ;

[ ] [
    C{ 1.0 2.0 } <complex-holder> "h" set
] unit-test

[ C{ 1.0 2.0 } ] [ "h" get z>> ] unit-test

[ complex ] [ complex-float c-type-boxed-class ] unit-test

[ complex ] [ complex-double c-type-boxed-class ] unit-test