Revert "locals.parser: remove << >> from tests to see if it works now."
This reverts commit 7c24c671b0
.
char-rename
parent
7c24c671b0
commit
8453582484
|
@ -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
|
||||
>>
|
||||
|
|
Loading…
Reference in New Issue