Adding tests for quoted forms in lisp.parser

db4
James Cash 2008-09-09 12:25:14 -04:00
parent db1a69f6aa
commit 6899bb2898
1 changed files with 8 additions and 0 deletions

View File

@ -65,4 +65,12 @@ IN: lisp.parser.tests
}
} [
"(1 (3 4) 2)" lisp-expr
] unit-test
{ { T{ lisp-symbol { name "quote" } } { 1 2 3 } } } [
"'(1 2 3)" lisp-expr cons>seq
] unit-test
{ { T{ lisp-symbol f "quote" } T{ lisp-symbol f "foo" } } } [
"'foo" lisp-expr cons>seq
] unit-test