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

IN: ui.gadgets.glass.tests
USING: tools.test ui.gadgets.glass ui.gadgets.worlds ui.gadgets
math.rectangles namespaces accessors models sequences arrays ;

{ } [
    <world-attributes>
    <gadget> 1array >>gadgets
    <world>
    { 1000 1000 } >>dim
    "w" set
] unit-test

{ } [ <gadget> "g" set ] unit-test

{ } [ "w" get "g" get { 0 0 } { 100 100 } <rect> show-glass ] unit-test

{ } [ "g" get hide-glass ] unit-test

{ f } [ "g" get parent>> parent>> ] unit-test

{ t } [ "w" get layers>> empty? ] unit-test