Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Fix indent

Browse Source
This commit is contained in:
gilch 2018-04-04 12:04:34 -06:00 committed by GitHub
parent 474de9e4c3
commit be06741e03
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/native_tests/mangling.hy
View File

@ -134,9 +134,9 @@
(defn g [&kwargs x] (defn g [&kwargs x]
x) x)
(assert (= (g :foo? 3 :☘ 4 :a 1 :a-b 2) (assert (= (g :foo? 3 :☘ 4 :a 1 :a-b 2)
{"a" 1 "a_b" 2 "is_foo" 3 "hyx_XshamrockX" 4})) {"a" 1 "a_b" 2 "is_foo" 3 "hyx_XshamrockX" 4}))
(assert (= (g :is_foo 3 :hyx_XshamrockX 4 :a 1 :a_b 2) (assert (= (g :is_foo 3 :hyx_XshamrockX 4 :a 1 :a_b 2)
{"a" 1 "a_b" 2 "is_foo" 3 "hyx_XshamrockX" 4}))) {"a" 1 "a_b" 2 "is_foo" 3 "hyx_XshamrockX" 4})))
(defn test-late-mangling [] (defn test-late-mangling []
@ -146,15 +146,14 @@
(assert (= sym "foo?")) (assert (= sym "foo?"))
(assert (!= sym "is_foo")) (assert (!= sym "is_foo"))
(setv out (eval `(do (setv out (eval `(do
(setv ~sym 10) (setv ~sym 10)
[foo? is_foo]))) [foo? is_foo])))
(assert (= out [10 10]))) (assert (= out [10 10])))
(defn test-functions [] (defn test-functions []
(for [[a b] [ (for [[a b] [["---ab-cd?" "___is_ab_cd"]
["---ab-cd?" "___is_ab_cd"] ["if" "hyx_if"]
["if" "hyx_if"] ["⚘-⚘" "hyx_XflowerX_XflowerX"]]]
["⚘-⚘" "hyx_XflowerX_XflowerX"]]]
(assert (= (mangle a) b)) (assert (= (mangle a) b))
(assert (= (unmangle b) a)))) (assert (= (unmangle b) a))))