Add another small test on this

2013-04-18 21:46:30 -04:00 · 2013-04-18 21:46:30 -04:00 · f268403d49
commit f268403d49
parent d3a019b3dd
1 changed files with 2 additions and 1 deletions
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@ -623,4 +623,5 @@
 (defn test-quoted-hoistable []
  "NATIVE: test quoted hoistable"
  (setf f (quote (if true true true)))
-  (assert (= (car f) "if")))
+  (assert (= (car f) "if"))
+  (assert (= (cdr f) (quote (true true true)))))