factor/extra/ui/traverse/traverse-tests.factor

IN: ui.traverse.tests
USING: ui.gadgets ui.gadgets.labels namespaces sequences kernel
math arrays tools.test io ui.gadgets.panes ui.traverse
definitions compiler.units ;

M: array gadget-children ;

GENERIC: (flatten-tree) ( node -- )

M: node (flatten-tree)
    node-children [ (flatten-tree) ] each ;

M: object (flatten-tree) , ;

: flatten-tree ( seq -- newseq )
    [ [ (flatten-tree) ] each ] { } make ;

: gadgets-in-range ( frompath topath gadget -- seq )
    gadget-subtree flatten-tree ;

[ { "a" "b" "c" "d" } ] [
    { 0 } { } { "a" "b" "c" "d" } gadgets-in-range
] unit-test

[ { "a" "b" } ] [
    { } { 1 } { "a" "b" "c" "d" } gadgets-in-range
] unit-test

[ { "a" } ] [
    { 0 } { 0 } { "a" "b" "c" "d" } gadgets-in-range
] unit-test

[ { "a" "b" "c" } ] [
    { 0 } { 2 } { "a" "b" "c" "d" } gadgets-in-range
] unit-test

[ { "a" "b" "c" "d" } ] [
    { 0 } { 3 } { "a" "b" "c" "d" } gadgets-in-range
] unit-test

[ { "a" "b" "c" "d" } ] [
    { 0 0 } { 0 3 } { { "a" "b" "c" "d" } } gadgets-in-range
] unit-test

[ { "b" "c" "d" "e" } ] [
    { 0 1 } { 1 } { { "a" "b" "c" "d" } "e" } gadgets-in-range
] unit-test

[ { "b" "c" "d" "e" "f" } ] [
    { 0 1 } { 1 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } } gadgets-in-range
] unit-test

[ { "b" "c" "d" { "e" "f" "g" } "h" "i" } ] [
    { 0 1 } { 2 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } { "h" "i" } } gadgets-in-range
] unit-test

[ { "b" "c" "d" { "e" "f" "g" } "h" } ] [
    { 0 1 } { 2 0 0 } { { "a" "b" "c" "d" } { "e" "f" "g" } { { "h" "i" } "j" } } gadgets-in-range
] unit-test

[ { "b" "c" "d" { "e" "f" "g" } "h" "i" } ] [
    { 0 1 } { 2 0 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } { { "h" "i" } "j" } } gadgets-in-range
] unit-test

[ { array gadget-children } forget ] with-compilation-unit