From 57b7a5fd6f791e220ce390f401c3c24b10576a28 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 25 Apr 2013 14:48:16 -0700 Subject: [PATCH] math.matrices: add tests for square-matrix?. --- basis/math/matrices/matrices-tests.factor | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/basis/math/matrices/matrices-tests.factor b/basis/math/matrices/matrices-tests.factor index 2870385093..0140ade96f 100644 --- a/basis/math/matrices/matrices-tests.factor +++ b/basis/math/matrices/matrices-tests.factor @@ -377,3 +377,8 @@ CONSTANT: test-points { { 5 6 } square-cols ] unit-test +{ t } [ { } square-matrix? ] unit-test +{ t } [ { { 1 } } square-matrix? ] unit-test +{ t } [ { { 1 2 } { 3 4 } } square-matrix? ] unit-test +{ f } [ { { 1 } { 2 3 } } square-matrix? ] unit-test +{ f } [ { { 1 2 } } square-matrix? ] unit-test