Move a quoting test to get rid of a directory

This commit is contained in:
Kodi Arfer 2017-04-15 17:38:05 -07:00
parent 8afd13cb16
commit d085fba5fe
4 changed files with 8 additions and 13 deletions

View File

@ -1,11 +0,0 @@
;;;
;;;
(import [hy [HyExpression HySymbol HyString HyBytes]])
(defn test-basic-quoting []
(assert (= (type (quote (foo bar))) HyExpression))
(assert (= (type (quote foo)) HySymbol))
(assert (= (type (quote "string")) HyString))
(assert (= (type (quote b"string")) HyBytes)))

View File

@ -1 +0,0 @@
from .native.quoting import * # NOQA

View File

@ -1,4 +1,4 @@
(import hy)
(import [hy [HyExpression HySymbol HyString HyBytes]])
(defn test-quote []
@ -8,6 +8,13 @@
(assert (= q [(quote a) (quote b) (quote c)])))
(defn test-basic-quoting []
(assert (= (type (quote (foo bar))) HyExpression))
(assert (= (type (quote foo)) HySymbol))
(assert (= (type (quote "string")) HyString))
(assert (= (type (quote b"string")) HyBytes)))
(defn test-quoted-hoistable []
"NATIVE: check whether quote works on hoisted things"
(setv f (quote (if True True True)))