22 lines
572 B
Factor
22 lines
572 B
Factor
! 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
|
|
|
|
[ number ] [ "complex-float" c-type-boxed-class ] unit-test
|
|
|
|
[ number ] [ "complex-double" c-type-boxed-class ] unit-test
|