test for doto macro

relates #567
2014-04-21 13:21:11 +03:00 · 2014-04-21 13:21:11 +03:00 · 8a5a1eea27
commit 8a5a1eea27
parent 21cff9d14f
1 changed files with 7 additions and 0 deletions
--- a/tests/native_tests/core.hy
+++ b/tests/native_tests/core.hy
@ -478,3 +478,10 @@
  (assert-equal (list res) [4 4 4])
  (setv res (zipwith operator.sub [3 7 9] [1 2 4]))
  (assert-equal (list res) [2 5 5]))
+
+(defn test-doto []
+  "NATIVE: testing doto macro"
+  (setv collection [])
+  (doto collection (.append 1) (.append 2) (.append 3))
+  (assert-equal collection [1 2 3]))
+