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