diff --git a/Units/parser-clojure.r/clojure-methods.b/expected.tags b/Units/parser-clojure.r/clojure-methods.b/expected.tags new file mode 100644 index 0000000000..b7ed0ad53a --- /dev/null +++ b/Units/parser-clojure.r/clojure-methods.b/expected.tags @@ -0,0 +1,6 @@ +documented-multimethod input.clj /^(defmulti documented-multimethod "Documentation"$/;" M multimethod.test +named-method input.clj /^(defmethod test :test2 named-method$/;" m multimethod.test +test input.clj /^(defmulti test$/;" M multimethod.test +test input.clj /^(defmethod test nil$/;" m multimethod.test +test input.clj /^(defmethod test :test$/;" m multimethod.test +test input.clj /^(defmethod test :test2 named-method$/;" m multimethod.test \ No newline at end of file diff --git a/Units/parser-clojure.r/clojure-methods.b/input.clj b/Units/parser-clojure.r/clojure-methods.b/input.clj new file mode 100644 index 0000000000..31b4784212 --- /dev/null +++ b/Units/parser-clojure.r/clojure-methods.b/input.clj @@ -0,0 +1,19 @@ +(ns multimethod.test) + +(defmulti test + (fn [type] type)) + +(defmulti documented-multimethod "Documentation" + (fn [type] type)) + +(defmethod test nil + [& _] + nil) + +(defmethod test :test + [& _] + nil) + +(defmethod test :test2 named-method + [& _] + nil)