unmaintained/adsoda/tools/tools-tests.factor

   1 ! Copyright (C) 2008 Jeff Bigot
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING:
   4 adsoda.tools
   5 tools.test
   6 ;
   7
   8 IN: adsoda.tools.tests
   9
  10
  11  [ { 1 0 } ] [ { { 0 0 } { 0 1 } }  normal-vector    ] unit-test
  12  [ f ] [ { { 0 0 } { 0 0 } }  normal-vector    ] unit-test
  13
  14  [  { 1/2 1/2 1+1/2 }  ] [ { { 1 2 } { 2 1 } }  points-to-hyperplane ] unit-test