yogsototh/marginalia
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

A couple of parser tests

Browse source
This commit is contained in:
fogus 2013-06-07 11:25:45 -04:00
parent 0c4520fdc4
commit 7195993718
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test/marginalia/test/parse.clj
View file

@ -5,8 +5,20 @@
(deftest test-inline-literals
(is (= (count (marginalia.parser/parse "(ns test)")) 1))
;(is (= (count (marginalia.parser/parse "(ns test)\n123")) 1)) still failing
;; (is (= (count (marginalia.parser/parse "(ns test)\n123")) 1)) ;; still failing
(is (= (count (marginalia.parser/parse "(ns test)\n123\n")) 1))
(is (= (count (marginalia.parser/parse "(ns test)\n\"string\"")) 1))
(is (= (count (marginalia.parser/parse "(ns test)\n\"some string\"")) 1))
(is (= (count (marginalia.parser/parse "(ns test (:require [marginalia.parser :as parser]))\n(defn foo [] ::parser/foo)")) 1)))
(def simple-fn
"(defn some-fn
\"the docstring\"
[x]
(* x x))")
(deftest test-parse-fn-docstring
(let [{:keys [type docstring]} (first (marginalia.parser/parse simple-fn))]
(is (= :code type))
(is (= "the docstring" docstring))))