From f268403d49f02f00e43fdd8808fae24e6a25c329 Mon Sep 17 00:00:00 2001 From: "Paul R. Tagliamonte" Date: Thu, 18 Apr 2013 21:46:30 -0400 Subject: [PATCH] Add another small test on this --- tests/native_tests/language.hy | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy index b1d7f7f..1480d94 100644 --- 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)))))