math.matrices: add tests for square-matrix?.

db4
John Benediktsson 2013-04-25 14:48:16 -07:00
parent 339be3f517
commit 57b7a5fd6f
1 changed files with 5 additions and 0 deletions

View File

@ -377,3 +377,8 @@ CONSTANT: test-points {
{ 5 6 } square-cols { 5 6 } square-cols
] unit-test ] 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