Fix unit tests

diff --git a/basis/ui/gadgets/glass/glass-tests.factor b/basis/ui/gadgets/glass/glass-tests.factor
index f5a5ea0b134d82cc9fd0af3da29dc15c84c7a254..d4e4306656f510a8c4fc0315160fc617f3400b48 100644 (file)
--- a/basis/ui/gadgets/glass/glass-tests.factor
+++ b/basis/ui/gadgets/glass/glass-tests.factor
@@ -1,6 +1,6 @@
 IN: ui.gadgets.glass.tests
 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>
 { 1000 1000 } >>dim
@@ -12,6 +12,6 @@ math.rectangles namespaces accessors models ;
 
 [ ] [ "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
\ No newline at end of file

diff --git a/basis/ui/ui-tests.factor b/basis/ui/ui-tests.factor
index f7ed4579d4fbbb386fb73a1b28cf9723584b1d2b..4b4bf9d9eebb3186805a879c957e5baaa98db8e0 100644 (file)
--- a/basis/ui/ui-tests.factor
+++ b/basis/ui/ui-tests.factor
@@ -1,5 +1,5 @@
 IN: ui.tests
-USING: ui tools.test ;
+USING: ui ui.private tools.test ;
 
 \ open-window must-infer
 \ update-ui must-infer
\ No newline at end of file