Revert "locals.parser: remove << >> from tests to see if it works now."

This reverts commit 7c24c671b01ad35a3528aab05dedb49bacd06f01.

diff --git a/basis/locals/parser/parser-tests.factor b/basis/locals/parser/parser-tests.factor
index 52fb84644db08309cd61d13746e3494112b206b5..50ba01c4a36d1602d75619bd73f98960d680bc78 100644 (file)
--- a/basis/locals/parser/parser-tests.factor
+++ b/basis/locals/parser/parser-tests.factor
@@ -1,7 +1,11 @@
-USING: accessors assocs compiler.units kernel lexer
-locals.backend locals.parser parser prettyprint sequences
-tools.test vocabs.parser ;
+USING: accessors assocs compiler.units kernel lexer locals.backend
+locals.parser namespaces parser prettyprint sequences sorting
+tools.test vocabs vocabs.parser ;
+IN: locals.parser.tests
 
+! XXX: remove the << and >> below and make test-all pass
+
+<<
 ! (::)
 {
     "dobiedoo"
@@ -22,6 +26,7 @@ tools.test vocabs.parser ;
         qualified-vocabs last words>> keys "um" swap member?
     ] with-compilation-unit
 ] unit-test
+>>
 
 ! check-local-name
 { "hello" } [
@@ -53,12 +58,15 @@ tools.test vocabs.parser ;
     [ locals>> [ name>> ] map ] [ keys ] bi*
 ] unit-test
 
+<<
 {
     "V{ 99 :> kkk kkk }"
 } [
     [
+        "locals" use-vocab
         { "99 :> kkk kkk ;" } <lexer> [
             H{ } clone [ \ ; parse-until ] with-lambda-scope
         ] with-lexer
     ] with-compilation-unit unparse
 ] unit-test
+>>