Fix unit tests
parent
0580b67542
commit
7fddef29da
|
@ -1,6 +1,6 @@
|
||||||
IN: ui.gadgets.glass.tests
|
IN: ui.gadgets.glass.tests
|
||||||
USING: tools.test ui.gadgets.glass ui.gadgets.worlds ui.gadgets
|
USING: tools.test ui.gadgets.glass ui.gadgets.worlds ui.gadgets
|
||||||
math.rectangles namespaces accessors models ;
|
math.rectangles namespaces accessors models sequences ;
|
||||||
|
|
||||||
<gadget> "" f <model> <world>
|
<gadget> "" f <model> <world>
|
||||||
{ 1000 1000 } >>dim
|
{ 1000 1000 } >>dim
|
||||||
|
@ -12,6 +12,6 @@ math.rectangles namespaces accessors models ;
|
||||||
|
|
||||||
[ ] [ "g" get hide-glass ] unit-test
|
[ ] [ "g" get hide-glass ] unit-test
|
||||||
|
|
||||||
[ f ] [ "g" get parent>> ] unit-test
|
[ f ] [ "g" get parent>> parent>> ] unit-test
|
||||||
|
|
||||||
[ t ] [ "w" get layers>> empty? ] unit-test
|
[ t ] [ "w" get layers>> empty? ] unit-test
|
|
@ -1,5 +1,5 @@
|
||||||
IN: ui.tests
|
IN: ui.tests
|
||||||
USING: ui tools.test ;
|
USING: ui ui.private tools.test ;
|
||||||
|
|
||||||
\ open-window must-infer
|
\ open-window must-infer
|
||||||
\ update-ui must-infer
|
\ update-ui must-infer
|
Loading…
Reference in New Issue