basis/ui/gadgets/grids/grids-tests.factor

   1 USING: ui.gadgets ui.gadgets.grids tools.test kernel arrays
   2 namespaces math.rectangles accessors ui.gadgets.grids.private
   3 ui.gadgets.debug sequences ;
   4 IN: ui.gadgets.grids.tests
   5
   6 [ { { { 1 "a" } { 1 "b" } } { { 2 "a" } { 2 "b" } } } ]
   7 [ { 1 2 } { "a" "b" } cross-zip ] unit-test
   8
   9 [ { 0 0 } ] [ { } <grid> pref-dim ] unit-test
  10
  11 : 100x100 ( -- gadget ) <gadget> { 100 100 } >>dim ;
  12
  13 [ { 100 100 } ] [
  14     100x100
  15     1array 1array <grid> pref-dim
  16 ] unit-test
  17
  18 [ { 100 100 } ] [
  19     100x100
  20     1array 1array <grid> pref-dim
  21 ] unit-test
  22
  23 [ { 200 100 } ] [
  24     100x100
  25     100x100
  26     2array 1array <grid> pref-dim
  27 ] unit-test
  28
  29 [ { 100 200 } ] [
  30     100x100
  31     100x100
  32     [ 1array ] bi@ 2array <grid> pref-dim
  33 ] unit-test
  34
  35 [ ] [
  36     100x100
  37     100x100
  38     [ 1array ] bi@ 2array <grid> layout
  39 ] unit-test
  40
  41 [ { 230 120 } { 100 100 } { 100 100 } ] [
  42     100x100 dup "a" set
  43     100x100 dup "b" set
  44     2array 1array <grid>
  45     { 10 10 } >>gap
  46     dup prefer
  47     dup layout
  48     dim>>
  49     "a" get dim>>
  50     "b" get dim>>
  51 ] unit-test
  52
  53 [ ] [
  54     100x100 dup "a" set
  55     100x100 dup "b" set
  56     100x100 dup "c" set
  57     [ 1array ] tri@ 3array
  58     <grid>
  59     { 10 10 } >>gap "g" set
  60 ] unit-test
  61
  62 [ ] [ "g" get prefer ] unit-test
  63 [ ] [ "g" get layout ] unit-test
  64
  65 [ { 10 10 } ] [ "a" get loc>> ] unit-test
  66 [ { 100 100 } ] [ "a" get dim>> ] unit-test
  67
  68 [ { 10 120 } ] [ "b" get loc>> ] unit-test
  69 [ { 100 100 } ] [ "b" get dim>> ] unit-test
  70
  71 [ { 10 230 } ] [ "c" get loc>> ] unit-test
  72 [ { 100 100 } ] [ "c" get dim>> ] unit-test
  73
  74 5 10 { 10 10 } <baseline-gadget>
  75 10 10 { 10 10 } <baseline-gadget> 2array
  76 1array <grid> f >>fill?
  77 "g" set
  78
  79 [ ] [ "g" get prefer ] unit-test
  80
  81 [ { 20 15 } ] [ "g" get dim>> ] unit-test
  82
  83 [ V{ { 0 5 } { 10 0 } } ] [
  84     "g" get
  85     dup layout
  86     children>> [ loc>> ] map
  87 ] unit-test