Clojure and Coffee with Instaparse

brackets.clj

(ns brackets.core-test
  (:use clojure.test
        brackets.core
        instaparse.core))

(def my-parser
  (parser
   "S = func-apply | vector | integer
    integer = #'[0-9]+'
    <space> = <' '>
    vector = <'['> space* (integer space*)* <']'>
    function = #'[a-z-]+'
    func-apply = function space* vector
    "
   ))

(my-parser "[1]")

(def transform-options
  {:S identity
   :integer read-string
   :vector (comp vec list)
   :function (comp resolve read-string)
   :func-apply (comp eval list)
   })

(defn pparse [input]
  (->> (my-parser input) (transform transform-options)))

(pparse "count [1 2 3]")
(pparse "second [1 2 3]")


(deftest integer-test
  (testing "ints"
    (is (= (pparse "1") 1))))

(deftest vector-test
  (testing "vector"
    (is (= (pparse "[1]") [1]))
    (is (= (pparse "[1 2 3]") [1 2 3]))))

(deftest func-apply-test
  (testing "func-apply"
    (is (= (pparse "count [1]") 1))
    (is (= (pparse "count [1 2 3]") 3))
    (is (= (pparse "second [1 2 3]") 2))
))

(run-tests)