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

   1 USING: kernel ui.gadgets ui.gadgets.tracks tools.test
   2 math.rectangles accessors sequences namespaces ;
   3 IN: ui.gadgets.tracks.tests
   4
   5 [ { 100 100 } ] [
   6     vertical <track>
   7         <gadget> { 100 100 } >>dim 1 track-add
   8     pref-dim
   9 ] unit-test
  10
  11 [ { 100 110 } ] [
  12     vertical <track>
  13         <gadget> { 10 10 } >>dim f track-add
  14         <gadget> { 100 100 } >>dim 1 track-add
  15     pref-dim
  16 ] unit-test
  17
  18 [ { 10 10 } ] [
  19     vertical <track>
  20         <gadget> { 10 10 } >>dim 1 track-add
  21         <gadget> { 10 10 } >>dim 0 track-add
  22     pref-dim
  23 ] unit-test
  24
  25 [ { 10 30 } ] [
  26     vertical <track>
  27         <gadget> { 10 10 } >>dim f track-add
  28         <gadget> { 10 10 } >>dim f track-add
  29         <gadget> { 10 10 } >>dim f track-add
  30     pref-dim
  31 ] unit-test
  32
  33 [ { 10 40 } ] [
  34     vertical <track>
  35         { 5 5 } >>gap
  36         <gadget> { 10 10 } >>dim f track-add
  37         <gadget> { 10 10 } >>dim f track-add
  38         <gadget> { 10 10 } >>dim f track-add
  39     pref-dim
  40 ] unit-test
  41
  42 [ V{ { 10 10 } { 10 80 } { 10 10 } } ] [
  43     vertical <track>
  44         0 >>fill
  45         <gadget> { 10 10 } >>dim f track-add
  46         <gadget> { 10 10 } >>dim 1 track-add
  47         <gadget> { 10 10 } >>dim f track-add
  48     { 10 100 } >>dim
  49     [ layout ] [ children>> [ dim>> ] map ] bi
  50 ] unit-test
  51
  52 [ ] [
  53     vertical <track>
  54         0 >>fill
  55         <gadget> { 10 10 } >>dim f track-add
  56         <gadget> { 10 10 } >>dim dup "g1" set 1/2 track-add
  57         <gadget> { 10 10 } >>dim dup "g2" set f track-add
  58         <gadget> { 10 10 } >>dim 1/2 track-add
  59         <gadget> { 10 10 } >>dim f track-add
  60     { 10 100 } >>dim
  61     "track" set
  62 ] unit-test
  63
  64 [ V{ { 10 10 } { 10 35 } { 10 10 } { 10 35 } { 10 10 } } ]
  65 [ "track" get [ layout ] [ children>> [ dim>> ] map ] bi ] unit-test
  66
  67 [ V{ { 10 10 } { 10 80 } { 10 10 } } ] [
  68     "g1" get unparent
  69     "g2" get unparent
  70     "track" get [ layout ] [ children>> [ dim>> ] map ] bi
  71 ] unit-test
  72
  73 [ 3 ] [ "track" get sizes>> length ] unit-test