From 7fddef29daf757179ccb833287ae5c6ec0cdadae Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 20 Feb 2009 23:30:46 -0600
Subject: [PATCH] Fix unit tests
---
basis/ui/gadgets/glass/glass-tests.factor | 4 ++--
basis/ui/ui-tests.factor | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/basis/ui/gadgets/glass/glass-tests.factor b/basis/ui/gadgets/glass/glass-tests.factor
index f5a5ea0b13..d4e4306656 100644
--- 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 f7ed4579d4..4b4bf9d9ee 100644
--- 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