From 3fd5d8c40e448cf6c1c5858bcf02bcfa28f51140 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 2 Jan 2008 23:07:59 -0400
Subject: [PATCH] Fixing unit tests

---
 extra/ui/operations/operations-tests.factor   | 4 ++--
 extra/ui/tools/listener/listener-tests.factor | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)
 mode change 100644 => 100755 extra/ui/operations/operations-tests.factor

diff --git a/extra/ui/operations/operations-tests.factor b/extra/ui/operations/operations-tests.factor
old mode 100644
new mode 100755
index fcb6af012b..efa1ac3f52
--- a/extra/ui/operations/operations-tests.factor
+++ b/extra/ui/operations/operations-tests.factor
@@ -13,10 +13,10 @@ io.streams.string math help help.markup ;
 
 [ "3" ] [ [ 3 "op" get invoke-command ] string-out ] unit-test
 
-[ drop t ] \ my-pprint [ parse ] [ editor-string ] f operation construct-boa
+[ drop t ] \ my-pprint [ ] [ editor-string ] f operation construct-boa
 "op" set
 
-[ "[ 4 ]" ] [
+[ "\"4\"" ] [
     [
         "4" <editor> [ set-editor-string ] keep
         "op" get invoke-command
diff --git a/extra/ui/tools/listener/listener-tests.factor b/extra/ui/tools/listener/listener-tests.factor
index 4e59fd63ee..2a7ecf0b0f 100755
--- a/extra/ui/tools/listener/listener-tests.factor
+++ b/extra/ui/tools/listener/listener-tests.factor
@@ -13,8 +13,8 @@ timers [ init-timers ] unless
 [ ] [ <listener-gadget> "listener" set ] unit-test
 
 "listener" get [
-    { "kernel" } [ vocab-words ] map use associate
-    "listener" get listener-gadget-input set-interactor-vars
+    { "kernel" } [ vocab-words ] map
+    "listener" get listener-gadget-input set-interactor-use
 
     [ "dup" ] [ \ dup "listener" get word-completion-string ] unit-test
 
@@ -22,14 +22,14 @@ timers [ init-timers ] unless
     [ \ word-name "listener" get word-completion-string ] unit-test
 
     <pane> <interactor> "i" set
-    H{ } "i" get set-interactor-vars
+    f "i" get set-interactor-use
 
     [ t ] [ "i" get interactor? ] unit-test
 
     [ ] [ "SYMBOL:" "i" get set-editor-string ] unit-test
 
     [ ] [
-        "i" get [ "SYMBOL:" parse ] catch go-to-error
+        "i" get [ { "SYMBOL:" } parse-lines ] catch go-to-error
     ] unit-test
 
     [ t ] [