math.matrices: use any? and all? directly in tests.
parent
464f0a11ef
commit
dfdbde9f33
|
@ -33,7 +33,7 @@ PRIVATE>
|
|||
{ { { } } }
|
||||
{ { } { } { } }
|
||||
{ { { } } { { { } } } }
|
||||
} [ null-matrix? ] map [ ] all?
|
||||
} [ null-matrix? ] all?
|
||||
] unit-test
|
||||
|
||||
{ f } [ {
|
||||
|
@ -41,7 +41,7 @@ PRIVATE>
|
|||
{ { 1 2 } }
|
||||
{ { 1 } { 2 } }
|
||||
{ { { 1 } } { 2 } { } }
|
||||
} [ null-matrix? ] map [ ] any?
|
||||
} [ null-matrix? ] any?
|
||||
] 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
|
||||
|
||||
{ f } [ {
|
||||
|
@ -353,7 +353,7 @@ PRIVATE>
|
|||
{ { 1 2 } }
|
||||
{ { 1 } { 2 } }
|
||||
{ { { 1 } } { 2 } { } }
|
||||
} [ null-matrix? ] map [ ] any?
|
||||
} [ null-matrix? ] any?
|
||||
] unit-test
|
||||
|
||||
{ t } [ 10 dup <zero-matrix> zero-matrix? ] unit-test
|
||||
|
|
Loading…
Reference in New Issue