basis/ui/gadgets/grid-lines/grid-lines-tests.factor

   1 IN: ui.gadgets.grid-lines.tests
   2 USING: tools.test ui.gadgets ui.gadgets.grid-lines ui.gadgets.grid-lines.private
   3 ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
   4
   5 : 100x100 ( -- gadget ) <gadget> { 100 100 } >>dim ;
   6
   7 [
   8     {
   9         { { 0 0 } { 0 101 } }
  10         { { 0 0 } { 101 0 } }
  11         { { 0 100 } { 101 100 } }
  12         { { 100 0 } { 100 101 } }
  13     }
  14 ] [
  15     100x100 1array
  16     1array
  17     <grid>
  18     { 100 100 } >>dim
  19     compute-grid-lines natural-sort
  20 ] unit-test
  21
  22 [
  23     {
  24         { { 5 5 } { 5 116 } }
  25         { { 5 5 } { 116 5 } }
  26         { { 5 115 } { 116 115 } }
  27         { { 115 5 } { 115 116 } }
  28     }
  29 ] [
  30     100x100 1array
  31     1array
  32     <grid>
  33     { 10 10 } >>gap
  34     dup prefer
  35     compute-grid-lines natural-sort
  36 ] unit-test
  37
  38 [
  39     {
  40         { { 0 0 } { 0 201 } }
  41         { { 0 0 } { 201 0 } }
  42         { { 0 100 } { 201 100 } }
  43         { { 0 200 } { 201 200 } }
  44         { { 100 0 } { 100 201 } }
  45         { { 200 0 } { 200 201 } }
  46     }
  47 ] [
  48     100x100 100x100 2array
  49     100x100 100x100 2array
  50     2array
  51     <grid>
  52     { 200 200 } >>dim
  53     compute-grid-lines natural-sort
  54 ] unit-test
  55
  56 [
  57     {
  58         { { 0 0 } { 0 3 } }
  59         { { 2 0 } { 2 3 } }
  60         { { 0 0 } { 3 0 } }
  61         { { 0 2 } { 3 2 } }
  62     }
  63 ] [
  64     <gadget> { 1 1 } >>dim
  65     1array 1array <grid> { 1 1 } >>gap
  66     dup prefer
  67     compute-grid-lines
  68 ] unit-test