Testing the behavior of (quote "foo")

This commit is contained in:
Paul R. Tagliamonte 2013-04-08 22:31:26 -04:00
parent 16194dd661
commit 997b32e18c
2 changed files with 10 additions and 3 deletions

View File

@ -25,3 +25,10 @@ __version__ = "0.9.5"
import hy.importer # NOQA import hy.importer # NOQA
# we import for side-effects. # we import for side-effects.
from hy.models.expression import HyExpression # NOQA
from hy.models.integer import HyInteger # NOQA
from hy.models.string import HyString # NOQA
from hy.models.symbol import HySymbol # NOQA
from hy.models.dict import HyDict # NOQA
from hy.models.list import HyList # NOQA

View File

@ -1,10 +1,10 @@
;;; ;;;
;;; ;;;
(import-from hy.models.expression HyExpression) (import-from hy HyExpression HySymbol HyString)
(import-from hy.models.symbol HySymbol)
(defn test-basic-quoting [] (defn test-basic-quoting []
(assert (= (type (quote (foo bar))) HyExpression)) (assert (= (type (quote (foo bar))) HyExpression))
(assert (= (type (quote foo)) HySymbol))) (assert (= (type (quote foo)) HySymbol))
(assert (= (type (quote "string")) HyString)))