math.matrices: add tests for square-matrix?.
parent
339be3f517
commit
57b7a5fd6f
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue