basis/specialized-arrays/complex-double/complex-double-tests.factor

   1 USING: kernel sequences specialized-arrays.complex-double tools.test ;
   2 IN: specialized-arrays.complex-double.tests
   3
   4 [ C{ 3.0 2.0 } ]
   5 [ complex-double-array{ 1.0 C{ 3.0 2.0 } 5.0 } second ] unit-test
   6
   7 [ C{ 1.0 0.0 } ]
   8 [ complex-double-array{ 1.0 C{ 3.0 2.0 } 5.0 } first ] unit-test
   9
  10 [ complex-double-array{ 1.0 C{ 6.0 -7.0 } 5.0 } ] [
  11     complex-double-array{ 1.0 C{ 3.0 2.0 } 5.0 }
  12     dup [ C{ 6.0 -7.0 } 1 ] dip set-nth
  13 ] unit-test