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

   1 IN: ui.gadgets.borders.tests
   2 USING: tools.test accessors namespaces kernel ui.gadgets
   3 ui.gadgets.borders ui.gadgets.borders.private math.rectangles ;
   4
   5 [ { 110 210 } ] [ <gadget> { 100 200 } >>dim { 5 5 } <border> pref-dim ] unit-test
   6
   7 [ ] [ <gadget> { 100 200 } >>dim "g" set ] unit-test
   8
   9 [ ] [ "g" get { 0 0 } <border> { 100 200 } >>dim "b" set ] unit-test
  10
  11 [ T{ rect f { 0 0 } { 100 200 } } ] [ "b" get border-child-rect ] unit-test
  12
  13 [ ] [ "g" get { 5 5 } <border> { 210 210 } >>dim "b" set ] unit-test
  14
  15 [ T{ rect f { 55 5 } { 100 200 } } ] [ "b" get border-child-rect ] unit-test
  16
  17 [ ] [ "b" get { 0 0 } >>align drop ] unit-test
  18
  19 [ { 5 5 } ] [ "b" get { 100 200 } border-loc ] unit-test
  20
  21 [ T{ rect f { 5 5 } { 100 200 } } ] [ "b" get border-child-rect ] unit-test
  22
  23 [ ] [ "b" get { 1 1 } >>fill drop ] unit-test
  24
  25 [ T{ rect f { 5 5 } { 200 200 } } ] [ "b" get border-child-rect ] unit-test