11 lines
188 B
Factor
11 lines
188 B
Factor
|
USING: accessors compiler.tree kernel tools.test ;
|
||
|
|
IN: compiler.tree.tests
|
||
|
|
|
||
|
|
{
|
||
|
|
"label"
|
||
|
|
"a-child"
|
||
|
|
} [
|
||
|
|
"label" f "a-child" <#recursive>
|
||
|
|
[ label>> ] [ child>> ] bi
|
||
|
|
] unit-test
|