160 lines
3.7 KiB
Hy
160 lines
3.7 KiB
Hy
;; Copyright 2018 the authors.
|
|
;; This file is part of Hy, which is free software licensed under the Expat
|
|
;; license. See the LICENSE.
|
|
|
|
|
|
(import [hy._compat [PY3]])
|
|
|
|
|
|
(defn test-hyphen []
|
|
(setv a-b 1)
|
|
(assert (= a-b 1))
|
|
(assert (= a_b 1))
|
|
(setv -a-_b- 2)
|
|
(assert (= -a-_b- 2))
|
|
(assert (= -a--b- 2))
|
|
(assert (= -a__b- 2))
|
|
(setv -_- 3)
|
|
(assert (= -_- 3))
|
|
(assert (= --- 3))
|
|
(assert (= ___ 3)))
|
|
|
|
|
|
(defn test-underscore-number []
|
|
(setv _42 3)
|
|
(assert (= _42 3))
|
|
(assert (!= _42 -42))
|
|
(assert (not (in "_hyx_42" (locals)))))
|
|
|
|
|
|
(defn test-question-mark []
|
|
(setv foo? "nachos")
|
|
(assert (= foo? "nachos"))
|
|
(assert (= is_foo "nachos"))
|
|
(setv ___ab_cd? "tacos")
|
|
(assert (= ___ab_cd? "tacos"))
|
|
(assert (= ___is_ab_cd "tacos")))
|
|
|
|
|
|
(defn test-py-forbidden-ascii []
|
|
|
|
(setv # "no comment")
|
|
(assert (= # "no comment"))
|
|
(assert (= hyx_Xnumber_signX "no comment"))
|
|
|
|
(setv $ "dosh")
|
|
(assert (= $ "dosh"))
|
|
(assert (= hyx_Xdollar_signX "dosh")))
|
|
|
|
|
|
(defn test-basic-multilingual-plane []
|
|
(setv ♥ "love"
|
|
⚘ab "flower")
|
|
(assert (= (+ ⚘ab ♥) "flowerlove"))
|
|
(assert (= (+ hyx_XflowerXab hyx_Xblack_heart_suitX) "flowerlove"))
|
|
(setv ⚘-⚘ "doubleflower")
|
|
(assert (= ⚘-⚘ "doubleflower"))
|
|
(assert (= hyx_XflowerX_XflowerX "doubleflower"))
|
|
(setv ⚘? "mystery")
|
|
(assert (= ⚘? "mystery"))
|
|
(assert (= hyx_is_XflowerX "mystery")))
|
|
|
|
|
|
(defn test-higher-unicode []
|
|
(setv 😂 "emoji")
|
|
(assert (= 😂 "emoji"))
|
|
(if PY3
|
|
(assert (= hyx_Xface_with_tears_of_joyX "emoji"))
|
|
(assert (= hyx_XU1f602X "emoji"))))
|
|
|
|
|
|
(defn test-nameless-unicode []
|
|
(setv "private use")
|
|
(assert (= "private use"))
|
|
(assert (= hyx_XUe000X "private use")))
|
|
|
|
|
|
(defn test-charname-with-hyphen []
|
|
(setv a<b "little")
|
|
(assert (= a<b "little"))
|
|
(assert (= hyx_aXlessHthan_signXb "little")))
|
|
|
|
|
|
(defn test-delimiters []
|
|
(setv X☠ "treasure")
|
|
(assert (= hyx_Xlatin_capital_letter_xXXskull_and_crossbonesX "treasure")))
|
|
|
|
|
|
(defmacro m---x [form]
|
|
[form form])
|
|
(defn test-macro []
|
|
(setv x "")
|
|
(assert (= (m---x (do (+= x "a") 1)) [1 1]))
|
|
(assert (= (m___x (do (+= x "b") 2)) [2 2]))
|
|
(assert (= x "aabb")))
|
|
|
|
|
|
(deftag tm---x [form]
|
|
[form form])
|
|
(defn test-tag-macro []
|
|
(setv x "")
|
|
(assert (= #tm---x (do (+= x "a") 1) [1 1]))
|
|
(assert (= #tm___x (do (+= x "b") 2) [2 2]))
|
|
(assert (= x "aabb")))
|
|
|
|
|
|
(defn test-special-form []
|
|
(setv not-in 1)
|
|
; We set the variable to make sure that if this test works, it's
|
|
; because we're calling the special form instead of the shadow
|
|
; function.
|
|
(assert (is (not-in 2 [1 2 3]) False))
|
|
(assert (is (not_in 2 [1 2 3]) False)))
|
|
|
|
|
|
(defn test-python-keyword []
|
|
(setv if 3)
|
|
(assert (= if 3))
|
|
(assert (= hyx_if 3)))
|
|
|
|
|
|
(defn test-operator []
|
|
(setv + 3)
|
|
(assert (= + 3))
|
|
(assert (= hyx_Xplus_signX 3)))
|
|
|
|
|
|
(defn test-keyword-args []
|
|
|
|
(defn f [a a-b foo? ☘]
|
|
[a a-b foo? ☘])
|
|
(assert (= (f :foo? 3 :☘ 4 :a 1 :a-b 2) [1 2 3 4]))
|
|
(assert (= (f :is_foo 3 :hyx_XshamrockX 4 :a 1 :a_b 2) [1 2 3 4]))
|
|
|
|
(defn g [&kwargs x]
|
|
x)
|
|
(assert (= (g :foo? 3 :☘ 4 :a 1 :a-b 2)
|
|
{"a" 1 "a_b" 2 "is_foo" 3 "hyx_XshamrockX" 4}))
|
|
(assert (= (g :is_foo 3 :hyx_XshamrockX 4 :a 1 :a_b 2)
|
|
{"a" 1 "a_b" 2 "is_foo" 3 "hyx_XshamrockX" 4})))
|
|
|
|
|
|
(defn test-late-mangling []
|
|
; Mangling should only happen during compilation.
|
|
(assert (!= 'foo? 'is_foo))
|
|
(setv sym 'foo?)
|
|
(assert (= sym "foo?"))
|
|
(assert (!= sym "is_foo"))
|
|
(setv out (eval `(do
|
|
(setv ~sym 10)
|
|
[foo? is_foo])))
|
|
(assert (= out [10 10])))
|
|
|
|
|
|
(defn test-functions []
|
|
(for [[a b] [["---ab-cd?" "___is_ab_cd"]
|
|
["if" "hyx_if"]
|
|
["⚘-⚘" "hyx_XflowerX_XflowerX"]]]
|
|
(assert (= (mangle a) b))
|
|
(assert (= (unmangle b) a))))
|