Move a quoting test to get rid of a directory
This commit is contained in:
parent
8afd13cb16
commit
d085fba5fe
@ -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)))
|
|
@ -1 +0,0 @@
|
|||||||
from .native.quoting import * # NOQA
|
|
@ -1,4 +1,4 @@
|
|||||||
(import hy)
|
(import [hy [HyExpression HySymbol HyString HyBytes]])
|
||||||
|
|
||||||
|
|
||||||
(defn test-quote []
|
(defn test-quote []
|
||||||
@ -8,6 +8,13 @@
|
|||||||
(assert (= q [(quote a) (quote b) (quote c)])))
|
(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 []
|
(defn test-quoted-hoistable []
|
||||||
"NATIVE: check whether quote works on hoisted things"
|
"NATIVE: check whether quote works on hoisted things"
|
||||||
(setv f (quote (if True True True)))
|
(setv f (quote (if True True True)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user