steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This reverts commit 7c24c671b0.
char-rename
John Benediktsson 2017-01-08 18:10:32 -08:00
parent 7c24c671b0
commit 8453582484
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/locals/parser/parser-tests.factor
View File

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