unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / adsoda / tools / tools-tests.factor

diff --git a/adsoda/tools/tools-tests.factor b/adsoda/tools/tools-tests.factor
new file mode 100644 (file)
index 0000000..5d1ffa5
--- /dev/null
+++ b/adsoda/tools/tools-tests.factor
@@ -0,0 +1,14 @@
+! Copyright (C) 2008 Jeff Bigot
+! See http://factorcode.org/license.txt for BSD license.
+USING: 
+adsoda.tools
+tools.test
+;
+
+IN: adsoda.tools.tests
+
+
+ [ { 1 0 } ] [ { { 0 0 } { 0 1 } }  normal-vector    ] unit-test
+ [ f ] [ { { 0 0 } { 0 0 } }  normal-vector    ] unit-test
+
+ [  { 1/2 1/2 1+1/2 }  ] [ { { 1 2 } { 2 1 } }  points-to-hyperplane ] unit-test