18 lines
469 B
Factor
18 lines
469 B
Factor
IN: compiler.tree.combinators.tests
|
|
USING: compiler.tree.combinators compiler.tree.builder tools.test
|
|
kernel ;
|
|
|
|
[ ] [ [ 1 ] build-tree [ ] transform-nodes drop ] unit-test
|
|
[ ] [ [ 1 2 3 ] build-tree [ ] transform-nodes drop ] unit-test
|
|
|
|
{ 1 0 } [ [ iterate-next ] iterate-nodes ] must-infer-as
|
|
|
|
{ 1 0 }
|
|
[
|
|
[ [ iterate-next ] iterate-nodes ] with-node-iterator
|
|
] must-infer-as
|
|
|
|
{ 1 0 } [ [ drop ] each-node ] must-infer-as
|
|
|
|
{ 1 0 } [ [ ] map-children ] must-infer-as
|