From 5f6ec2ba8b2a3941c5984d41517b2a6a9ac59349 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 22 Oct 2015 23:33:46 +0200
Subject: [PATCH] ui.tools.listener.tests: fix tests, manifest needs to be set
 and vocab used

---
 basis/ui/tools/listener/listener-tests.factor | 21 ++++++++++---------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/basis/ui/tools/listener/listener-tests.factor b/basis/ui/tools/listener/listener-tests.factor
index d312b93130..779be54b4b 100644
--- a/basis/ui/tools/listener/listener-tests.factor
+++ b/basis/ui/tools/listener/listener-tests.factor
@@ -1,7 +1,8 @@
 USING: accessors arrays calendar concurrency.promises continuations
 documents io kernel lexer listener math namespaces parser quotations
 sequences threads tools.test ui.gadgets.debug ui.gadgets.editors
-ui.gadgets.panes ui.gestures ui.tools.common ui.tools.listener ;
+ui.gadgets.panes ui.gestures ui.tools.common ui.tools.listener
+vocabs.parser ;
 IN: ui.tools.listener.tests
 
 [
@@ -210,16 +211,16 @@ CONSTANT: text "Hello world.\nThis is a test."
 { [ 3 4 + ] } [
     <listener-gadget> input>> [ register-self ] keep
     [ { "3 4 +" } swap interactor-continue ] keep
-    stream-read-quot
+    [ "math" use-vocab stream-read-quot ] with-manifest
 ] unit-test
 
 ! try-parse
-{ t } [
-    { "goga" } try-parse
-    [ callable? ] [ length 2 = ] [ first lexer-error? ] tri and and
-] unit-test
-
-{ [ sq ] t } [
-    { "sq" } try-parse
-    { "[" } try-parse first lexer-error?
+{ [ sq ] t t } [
+    [
+        "math" use-vocab
+        { "sq" } try-parse
+        { "[" } try-parse first lexer-error?
+        { "goga" } try-parse
+        [ callable? ] [ length 2 = ] [ first lexer-error? ] tri and and
+    ] with-manifest
 ] unit-test