     [ 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
->>

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"

        qualified-vocabs last words>> keys "um" swap member?
    ] with-compilation-unit
] unit-test

! check-local-name
{ "hello" } [
