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

   1 USING: accessors tools.test ui.gadgets ui.gadgets.labels ;
   2 IN: ui.gadgets.labels.tests
   3
   4 { { 119 14 } } [
   5     <gadget> { 100 14 } >>dim
   6     <gadget> { 14 14 } >>dim
   7     label-on-right { 5 5 } >>gap
   8     pref-dim
   9 ] unit-test