7 lines
220 B
Factor
7 lines
220 B
Factor
|
IN: compiler.tree.combinators.tests
|
||
|
USING: compiler.tree.combinators tools.test kernel ;
|
||
|
|
||
|
{ 1 0 } [ [ drop ] each-node ] must-infer-as
|
||
|
{ 1 1 } [ [ ] map-nodes ] must-infer-as
|
||
|
{ 1 1 } [ [ ] contains-node? ] must-infer-as
|