-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
+USING: accessors assocs compiler.units kernel lexer
+locals.backend locals.parser parser prettyprint sequences
+tools.test vocabs.parser ;
 
-! 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" } [

    [ locals>> [ name>> ] map ] [ keys ] bi*
] unit-test

{
    "V{ 99 :> kkk kkk }"
} [
    [
        { "99 :> kkk kkk ;" } <lexer> [
            H{ } clone [ \ ; parse-until ] with-lambda-scope
        ] with-lexer
    ] with-compilation-unit unparse
] unit-test
