unmaintained/adsoda/tools/tools-tests.factor

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