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

   1 USING: kernel ui.gadgets ui.gadgets.tracks tools.test
   2        math.geometry.rect accessors ;
   3 IN: ui.gadgets.tracks.tests
   4
   5 [ { 100 100 } ] [
   6     { 0 1 } <track>
   7         <gadget> { 100 100 } >>dim 1 track-add
   8     pref-dim
   9 ] unit-test
  10
  11 [ { 100 110 } ] [
  12     { 0 1 } <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     { 0 1 } <track>
  20         <gadget> { 10 10 } >>dim 1 track-add
  21         <gadget> { 10 10 } >>dim 0 track-add
  22     pref-dim
  23 ] unit-test