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.double
   4 specialized-arrays.complex-float
   5 specialized-arrays.float ;
   6
   7 [ V{ t } ] [
   8     [ { double-array double-array } declare distance 0.0 < not ] final-literals
   9 ] unit-test
  10
  11 [ V{ float } ] [
  12     [ { float-array float } declare v*n norm ] final-classes
  13 ] unit-test
  14
  15 [ V{ number } ] [
  16     [ { complex-float-array complex-float-array } declare v. ] final-classes
  17 ] unit-test
  18
  19 [ V{ real } ] [
  20     [ { complex-float-array complex } declare v*n norm ] final-classes
  21 ] unit-test