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

   1 USING: kernel ui.gadgets ui.gadgets.tracks tools.test ;
   2 IN: temporary
   3
   4 [ { 100 100 } ] [
   5     [
   6         <gadget> { 100 100 } over set-rect-dim 1 track,
   7     ] { 0 1 } make-track pref-dim
   8 ] unit-test
   9
  10 [ { 100 110 } ] [
  11     [
  12         <gadget> { 10 10 } over set-rect-dim f track,
  13         <gadget> { 100 100 } over set-rect-dim 1 track,
  14     ] { 0 1 } make-track pref-dim
  15 ] unit-test