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
|
||||
] 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
|
Loading…
Reference in New Issue