extra/ui/traverse/traverse-tests.factor

   1 IN: temporary
   2 USING: ui.gadgets ui.gadgets.labels namespaces sequences kernel
   3 math arrays tools.test io ui.gadgets.panes ui.traverse
   4 definitions ;
   5
   6 M: array gadget-children ;
   7
   8 GENERIC: (flatten-tree) ( node -- )
   9
  10 M: node (flatten-tree)
  11     node-children [ (flatten-tree) ] each ;
  12
  13 M: object (flatten-tree) , ;
  14
  15 : flatten-tree ( seq -- newseq )
  16     [ [ (flatten-tree) ] each ] { } make ;
  17
  18 : gadgets-in-range ( frompath topath gadget -- seq )
  19     gadget-subtree flatten-tree ;
  20
  21 [ { "a" "b" "c" "d" } ] [
  22     { 0 } { } { "a" "b" "c" "d" } gadgets-in-range
  23 ] unit-test
  24
  25 [ { "a" "b" } ] [
  26     { } { 1 } { "a" "b" "c" "d" } gadgets-in-range
  27 ] unit-test
  28
  29 [ { "a" } ] [
  30     { 0 } { 0 } { "a" "b" "c" "d" } gadgets-in-range
  31 ] unit-test
  32
  33 [ { "a" "b" "c" } ] [
  34     { 0 } { 2 } { "a" "b" "c" "d" } gadgets-in-range
  35 ] unit-test
  36
  37 [ { "a" "b" "c" "d" } ] [
  38     { 0 } { 3 } { "a" "b" "c" "d" } gadgets-in-range
  39 ] unit-test
  40
  41 [ { "a" "b" "c" "d" } ] [
  42     { 0 0 } { 0 3 } { { "a" "b" "c" "d" } } gadgets-in-range
  43 ] unit-test
  44
  45 [ { "b" "c" "d" "e" } ] [
  46     { 0 1 } { 1 } { { "a" "b" "c" "d" } "e" } gadgets-in-range
  47 ] unit-test
  48
  49 [ { "b" "c" "d" "e" "f" } ] [
  50     { 0 1 } { 1 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } } gadgets-in-range
  51 ] unit-test
  52
  53 [ { "b" "c" "d" { "e" "f" "g" } "h" "i" } ] [
  54     { 0 1 } { 2 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } { "h" "i" } } gadgets-in-range
  55 ] unit-test
  56
  57 [ { "b" "c" "d" { "e" "f" "g" } "h" } ] [
  58     { 0 1 } { 2 0 0 } { { "a" "b" "c" "d" } { "e" "f" "g" } { { "h" "i" } "j" } } gadgets-in-range
  59 ] unit-test
  60
  61 [ { "b" "c" "d" { "e" "f" "g" } "h" "i" } ] [
  62     { 0 1 } { 2 0 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } { { "h" "i" } "j" } } gadgets-in-range
  63 ] unit-test
  64
  65 { array gadget-children } forget