1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors tools.test alien.complex classes.struct kernel
4 alien.c-types alien.syntax namespaces math ;
5 IN: alien.complex.tests
10 : <complex-holder> ( z -- alien )
11 complex-holder <struct-boa> ;
14 C{ 1.0 2.0 } <complex-holder> "h" set
17 [ C{ 1.0 2.0 } ] [ "h" get z>> ] unit-test
19 [ complex ] [ complex-float c-type-boxed-class ] unit-test
21 [ complex ] [ complex-double c-type-boxed-class ] unit-test