basis/math/vectors/specialization/specialization-tests.factor

   1 IN: math.vectors.specialization.tests
   2 USING: compiler.tree.debugger math.vectors tools.test kernel
   3 kernel.private math specialized-arrays ;
   4 QUALIFIED-WITH: alien.c-types c
   5 QUALIFIED-WITH: alien.complex c
   6 SPECIALIZED-ARRAY: c:double
   7 SPECIALIZED-ARRAY: c:complex-float
   8 SPECIALIZED-ARRAY: c:float
   9
  10 [ V{ t } ] [
  11     [ { double-array double-array } declare distance 0.0 < not ] final-literals
  12 ] unit-test
  13
  14 [ V{ float } ] [
  15     [ { float-array float } declare v*n norm ] final-classes
  16 ] unit-test
  17
  18 [ V{ complex } ] [
  19     [ { complex-float-array complex-float-array } declare v. ] final-classes
  20 ] unit-test
  21
  22 [ V{ float } ] [
  23     [ { float-array float } declare v*n norm ] final-classes
  24 ] unit-test
  25
  26 [ V{ float } ] [
  27     [ { complex-float-array complex } declare v*n norm ] final-classes
  28 ] unit-test