Testing the behavior of (quote "foo")
This commit is contained in:
parent
16194dd661
commit
997b32e18c
@ -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
|
||||||
|
@ -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)))
|
||||||
|
Loading…
Reference in New Issue
Block a user