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

   1 USING: ui.gadgets ui.gadgets.grids tools.test kernel arrays
   2 namespaces math.geometry.rect accessors ;
   3 IN: ui.gadgets.grids.tests
   4
   5 [ { 0 0 } ] [ { } <grid> pref-dim ] unit-test
   6
   7 : 100x100 <gadget> { 100 100 } >>dim ;
   8
   9 [ { 100 100 } ] [
  10     100x100
  11     1array 1array <grid> pref-dim
  12 ] unit-test
  13
  14 [ { 100 100 } ] [
  15     100x100
  16     1array 1array <grid> pref-dim
  17 ] unit-test
  18
  19 [ { 200 100 } ] [
  20     100x100
  21     100x100
  22     2array 1array <grid> pref-dim
  23 ] unit-test
  24
  25 [ { 100 200 } ] [
  26     100x100
  27     100x100
  28     [ 1array ] bi@ 2array <grid> pref-dim
  29 ] unit-test
  30
  31 [ ] [
  32     100x100
  33     100x100
  34     [ 1array ] bi@ 2array <grid> layout
  35 ] unit-test
  36
  37 [ { 230 120 } { 100 100 } { 100 100 } ] [
  38     100x100 dup "a" set
  39     100x100 dup "b" set
  40     2array 1array <grid>
  41     { 10 10 } >>gap
  42     dup prefer
  43     dup layout
  44     rect-dim
  45     "a" get rect-dim
  46     "b" get rect-dim
  47 ] unit-test