Adding tests for quoted forms in lisp.parser
parent
db1a69f6aa
commit
6899bb2898
|
@ -65,4 +65,12 @@ IN: lisp.parser.tests
|
||||||
}
|
}
|
||||||
} [
|
} [
|
||||||
"(1 (3 4) 2)" lisp-expr
|
"(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
|
] unit-test
|
Loading…
Reference in New Issue