23 lines
476 B
Factor
23 lines
476 B
Factor
IN: temporary
|
|
USING: generic kernel lists math memory words prettyprint
|
|
sequences test ;
|
|
|
|
TUPLE: testing x y z ;
|
|
|
|
[ f 1 2 3 ] [ 1 2 3 <testing> [ ] each-slot ] unit-test
|
|
|
|
[ ] [
|
|
num-types [
|
|
type>class [
|
|
dup \ cons = [
|
|
! too many conses!
|
|
drop
|
|
] [
|
|
"predicate" word-prop instances [
|
|
class drop
|
|
] each
|
|
] ifte
|
|
] when*
|
|
] each
|
|
] unit-test
|