math.matrices: use any? and all? directly in tests.

flac
John Benediktsson 2020-01-28 20:44:19 -08:00 committed by Steve Ayerhart
parent 8ce628014a
commit 2d55a76eb9
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 4 additions and 4 deletions

View File

@ -33,7 +33,7 @@ PRIVATE>
{ { { } } } { { { } } }
{ { } { } { } } { { } { } { } }
{ { { } } { { { } } } } { { { } } { { { } } } }
} [ null-matrix? ] map [ ] all? } [ null-matrix? ] all?
] unit-test ] unit-test
{ f } [ { { f } [ {
@ -41,7 +41,7 @@ PRIVATE>
{ { 1 2 } } { { 1 2 } }
{ { 1 } { 2 } } { { 1 } { 2 } }
{ { { 1 } } { 2 } { } } { { { 1 } } { 2 } { } }
} [ null-matrix? ] map [ ] any? } [ null-matrix? ] any?
] unit-test ] unit-test
{ t } [ 10 dup <zero-matrix> zero-matrix? ] unit-test { t } [ 10 dup <zero-matrix> zero-matrix? ] unit-test
@ -345,7 +345,7 @@ PRIVATE>
{ { { } } } { { { } } }
{ { } { } { } } { { } { } { } }
{ { { } } { { { } } } } { { { } } { { { } } } }
} [ null-matrix? ] map [ ] all? } [ null-matrix? ] all?
] unit-test ] unit-test
{ f } [ { { f } [ {
@ -353,7 +353,7 @@ PRIVATE>
{ { 1 2 } } { { 1 2 } }
{ { 1 } { 2 } } { { 1 } { 2 } }
{ { { 1 } } { 2 } { } } { { { 1 } } { 2 } { } }
} [ null-matrix? ] map [ ] any? } [ null-matrix? ] any?
] unit-test ] unit-test
{ t } [ 10 dup <zero-matrix> zero-matrix? ] unit-test { t } [ 10 dup <zero-matrix> zero-matrix? ] unit-test