Skip to content
Browse files

Add test for keyword-invoke

  • Loading branch information...
1 parent 5888c8f commit 12e2c577f4d7fa9060a1706ae96d6f9a98a27c4e @frenchy64 committed Jul 5, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 test/analyze/test/core.clj
View
5 test/analyze/test/core.clj
@@ -9,3 +9,8 @@
(deftest test-ast-in-ns
(is (= (-> (ast-in-ns clojure.core 1) :op)
:number)))
+
+(deftest test-keyword-invoke-kw
+ (is (= (-> (ast (let [a {}] (:abc a)))
+ :fexpr :methods first :body :exprs first :body :exprs first :kw :val)
+ :abc)))

0 comments on commit 12e2c57

Please sign in to comment.
Something went wrong with that request. Please try again.