From a271b84bba6c3c00c08ad2e6b03c52cf2f48ddfb Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 21 Oct 2007 18:47:46 -0400 Subject: [PATCH] Fix quaternions unit tests --- extra/math/quaternions/quaternions-tests.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/math/quaternions/quaternions-tests.factor b/extra/math/quaternions/quaternions-tests.factor index 42cb72acb1..4f59798df0 100644 --- a/extra/math/quaternions/quaternions-tests.factor +++ b/extra/math/quaternions/quaternions-tests.factor @@ -14,8 +14,8 @@ math.constants ; [ t ] [ qj qj q* q1 v+ q0 = ] unit-test [ t ] [ qk qk q* q1 v+ q0 = ] unit-test [ t ] [ qi qj qk q* q* q1 v+ q0 = ] unit-test -[ t ] [ i qj n*v qk = ] unit-test -[ t ] [ qj i q*n qk v+ q0 = ] unit-test +[ t ] [ C{ 0 1 } qj n*v qk = ] unit-test +[ t ] [ qj C{ 0 1 } q*n qk v+ q0 = ] unit-test [ t ] [ qk qj q/ qi = ] unit-test [ t ] [ qi qk q/ qj = ] unit-test [ t ] [ qj qi q/ qk = ] unit-test @@ -23,4 +23,4 @@ math.constants ; [ t ] [ qj q>v v>q qj = ] unit-test [ t ] [ qk q>v v>q qk = ] unit-test [ t ] [ 1 c>q q1 = ] unit-test -[ t ] [ i c>q qi = ] unit-test +[ t ] [ C{ 0 1 } c>q qi = ] unit-test