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
# 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.models.symbol HySymbol)
(import-from hy HyExpression HySymbol HyString)
(defn test-basic-quoting []
(assert (= (type (quote (foo bar))) HyExpression))
(assert (= (type (quote foo)) HySymbol)))
(assert (= (type (quote foo)) HySymbol))
(assert (= (type (quote "string")) HyString)))