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

Update defmacro(/g)! tests for mangling

Browse Source
This commit is contained in:
Kodi Arfer 2018-06-05 17:08:13 -07:00
parent 498a54e770
commit d621d7c3ab
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/native_tests/native_macros.hy
View File

@ -194,7 +194,7 @@
(assert (in (mangle "_;a|") s2)) (assert (in (mangle "_;a|") s2))
(assert (not (= s1 s2)))) (assert (not (= s1 s2))))
(defn test-defmacro-g! [] (defn test-defmacro/g! []
(import ast) (import ast)
(import [astor.code-gen [to-source]]) (import [astor.code-gen [to-source]])
(import [hy.importer [import_buffer_to_ast]]) (import [hy.importer [import_buffer_to_ast]])
@ -213,8 +213,8 @@
(setv _ast2 (import_buffer_to_ast macro1 "foo")) (setv _ast2 (import_buffer_to_ast macro1 "foo"))
(setv s1 (to_source _ast1)) (setv s1 (to_source _ast1))
(setv s2 (to_source _ast2)) (setv s2 (to_source _ast2))
(assert (in "_;res|" s1)) (assert (in (mangle "_;res|") s1))
(assert (in "_;res|" s2)) (assert (in (mangle "_;res|") s2))
(assert (not (= s1 s2))) (assert (not (= s1 s2)))
;; defmacro/g! didn't like numbers initially because they ;; defmacro/g! didn't like numbers initially because they
@ -242,8 +242,8 @@
(setv _ast2 (import_buffer_to_ast macro1 "foo")) (setv _ast2 (import_buffer_to_ast macro1 "foo"))
(setv s1 (to_source _ast1)) (setv s1 (to_source _ast1))
(setv s2 (to_source _ast2)) (setv s2 (to_source _ast2))
(assert (in "_;res|" s1)) (assert (in (mangle "_;res|") s1))
(assert (in "_;res|" s2)) (assert (in (mangle "_;res|") s2))
(assert (not (= s1 s2))) (assert (not (= s1 s2)))
;; defmacro/g! didn't like numbers initially because they ;; defmacro/g! didn't like numbers initially because they