extra/math/quaternions/quaternions-tests.factor

   1 IN: temporary
   2 USING: tools.test math.quaternions kernel math.vectors
   3 math.constants ;
   4
   5 [ 1 ] [ qi norm ] unit-test
   6 [ 1 ] [ qj norm ] unit-test
   7 [ 1 ] [ qk norm ] unit-test
   8 [ 1 ] [ q1 norm ] unit-test
   9 [ 0 ] [ q0 norm ] unit-test
  10 [ t ] [ qi qj q* qk = ] unit-test
  11 [ t ] [ qj qk q* qi = ] unit-test
  12 [ t ] [ qk qi q* qj = ] unit-test
  13 [ t ] [ qi qi q* q1 v+ q0 = ] unit-test
  14 [ t ] [ qj qj q* q1 v+ q0 = ] unit-test
  15 [ t ] [ qk qk q* q1 v+ q0 = ] unit-test
  16 [ t ] [ qi qj qk q* q* q1 v+ q0 = ] unit-test
  17 [ t ] [ i qj n*v qk = ] unit-test
  18 [ t ] [ qj i q*n qk v+ q0 = ] unit-test
  19 [ t ] [ qk qj q/ qi = ] unit-test
  20 [ t ] [ qi qk q/ qj = ] unit-test
  21 [ t ] [ qj qi q/ qk = ] unit-test
  22 [ t ] [ qi q>v v>q qi = ] unit-test
  23 [ t ] [ qj q>v v>q qj = ] unit-test
  24 [ t ] [ qk q>v v>q qk = ] unit-test
  25 [ t ] [ 1 c>q q1 = ] unit-test
  26 [ t ] [ i c>q qi = ] unit-test