2013-03-05 22:08:53 -05:00
|
|
|
;
|
|
|
|
|
|
2013-03-06 18:57:21 -05:00
|
|
|
|
2013-03-08 18:18:43 -05:00
|
|
|
(defn test_lists []
|
2013-03-05 22:15:45 -05:00
|
|
|
"NATIVE: test lists work right"
|
2013-03-08 18:18:43 -05:00
|
|
|
(assert (= [1 2 3 4] (+ [1 2] [3 4]))))
|
2013-03-07 22:52:47 -05:00
|
|
|
|
|
|
|
|
|
2013-03-08 18:18:43 -05:00
|
|
|
(defn test_for_loop []
|
2013-03-07 22:52:47 -05:00
|
|
|
"NATIVE: test for loops?"
|
|
|
|
|
(def count 0)
|
|
|
|
|
(for [x [1 2 3 4 5]]
|
|
|
|
|
(def count (+ count x)))
|
2013-03-08 18:18:43 -05:00
|
|
|
(assert (= count 15)))
|
