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

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