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 []
|
||||
@ -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)))
|
||||
|
Loading…
Reference in New Issue
Block a user