Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Add tests for quasiquoting

Browse Source
This commit is contained in:
Nicolas Dandrimont 2013-05-10 23:42:13 +02:00
parent 58bb3239ee
commit e039c73abd
3 changed files with 46 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/__init__.py
View File

@ -4,6 +4,7 @@
import hy # noqa import hy # noqa
from .native_tests.defclass import * # noqa from .native_tests.defclass import * # noqa
from .native_tests.math import * # noqa from .native_tests.math import * # noqa
from .native_tests.quote import * # noqa
from .native_tests.language import * # noqa from .native_tests.language import * # noqa
from .native_tests.unless import * # noqa from .native_tests.unless import * # noqa
from .native_tests.when import * # noqa from .native_tests.when import * # noqa

6
tests/native_tests/language.hy
View File

@ -656,12 +656,6 @@
(assert (= (foo 1 2 3 4) [1 2 3 4]))) (assert (= (foo 1 2 3 4) [1 2 3 4])))
(defn test-quoted-hoistable []
"NATIVE: test quoted hoistable"
(setf f (quote (if true true true)))
(assert (= (car f) "if"))
(assert (= (cdr f) (quote (true true true)))))
(defn test-undefined-name [] (defn test-undefined-name []
"NATIVE: test that undefined names raise errors" "NATIVE: test that undefined names raise errors"
(try (try

45
tests/native_tests/quote.hy Normal file
View File

@ -0,0 +1,45 @@
(defn test-quote []
"NATIVE: test for quoting functionality"
(setf q (quote (a b c)))
(assert (= (len q) 3))
(assert (= q [(quote a) (quote b) (quote c)])))
(defn test-quoted-hoistable []
"NATIVE: check whether quote works on hoisted things"
(setf f (quote (if true true true)))
(assert (= (car f) (quote if)))
(assert (= (cdr f) (quote (true true true)))))
(defn test-quasiquote []
"NATIVE: test that quasiquote and quote are equivalent for simple cases"
(setf q (quote (a b c)))
(setf qq (quasiquote (a b c)))
(assert (= q qq)))
(defn test-unquote []
"NATIVE: test that unquote works as expected"
(setf q (quote (unquote foo)))
(assert (= (len q) 2))
(assert (= (get q 1) (quote foo)))
(setf qq (quasiquote (a b c (unquote (+ 1 2)))))
(assert (= (len qq) 4))
(assert (= qq (quote (a b c 3)))))
(defn test-unquote-splice []
"NATIVE: test splicing unquotes"
(setf q (quote (c d e)))
(setf qq (quasiquote (a b (unquote-splice q))))
(assert (= (len qq) 5))
(assert (= qq (quote (a b c d e)))))
(defn test-nested-quasiquote []
"NATIVE: test nested quasiquotes"
(setf qq (quasiquote (1 (quasiquote (unquote (+ 1 (unquote (+ 2 3))))) 4)))
(setf q (quote (1 (quasiquote (unquote (+ 1 5))) 4)))
(assert (= (len q) 3))
(assert (= (get qq 1) (quote (quasiquote (unquote (+ 1 5))))))
(assert (= q qq)))