Units/parser-clojure.r/clojure-methods.b: Add for method testing.

universal-ctags · Dec 2, 2024 · 01fc488 · 01fc488
1 parent 4cac738
commit 01fc488
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 0 deletions.
diff --git a/Units/parser-clojure.r/clojure-methods.b/expected.tags 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
diff --git a/Units/parser-clojure.r/clojure-methods.b/input.clj 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)