1 USING: jamshred.oint tools.test ;
2 IN: jamshred.oint.tests
4 { { 0 -1 -1 } } [ { 0 1 -1 } { 0 -1 0 } reflect ] unit-test
5 { { 0 1 0 } } [ { 1 1 0 } { 1 0 0 } proj-perp ] unit-test
6 { { 1 0 0 } } [ { 1 1 0 } { 0 1 0 } proj-perp ] unit-test
7 { { 1/2 -1/2 0 } } [ { 1 0 0 } { 1 1 0 } proj-perp ] unit-test
8 { { -1/2 1/2 0 } } [ { 0 1 0 } { 1 1 0 } proj-perp ] unit-test