2013-04-08 20:23:51 -04:00
|
|
|
;;;
|
|
|
|
;;;
|
|
|
|
|
2013-04-20 16:06:32 +02:00
|
|
|
(import [hy [HyExpression HySymbol HyString]])
|
2013-04-08 20:23:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
(defn test-basic-quoting []
|
2013-04-08 20:24:47 -04:00
|
|
|
(assert (= (type (quote (foo bar))) HyExpression))
|
2013-04-08 22:31:26 -04:00
|
|
|
(assert (= (type (quote foo)) HySymbol))
|
|
|
|
(assert (= (type (quote "string")) HyString)))
|