Clean up some duplication
[factor/jcg.git] / extra / adsoda / tools / tools-tests.factor
blobbb5419417c85c2a20dd502a04b4be52965055a4a
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
11  [ { 1 0 } ] [ { { 0 0 } { 0 1 } }  normal-vector    ] unit-test\r
12  [ f ] [ { { 0 0 } { 0 0 } }  normal-vector    ] unit-test\r
14  [  { 1/2 1/2 1+1/2 }  ] [ { { 1 2 } { 2 1 } }  points-to-hyperplane ] unit-test\r