hy/tests/native_tests/language.hy
2013-03-07 22:52:47 -05:00

15 lines
254 B
Hy

;
(def test_lists (fn []
"NATIVE: test lists work right"
(assert (= [1 2 3 4] (+ [1 2] [3 4])))))
(def test_for_loop (fn []
"NATIVE: test for loops?"
(def count 0)
(for [x [1 2 3 4 5]]
(def count (+ count x)))
(assert (= count 15))))