Merge pull request #4126 from aartaka/more-clojure-tags

Tests for more Clojure tags

Author: masatake

Units/parser-clojure.r/clojure-methods.b/README

@@ -0,0 +1 @@
+About methodId kind, see #4126.

Units/parser-clojure.r/clojure-methods.b/args.ctags

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+KzZ

Units/parser-clojure.r/clojure-methods.b/expected.tags

@@ -0,0 +1,7 @@
+multimethod.test	input.clj	/^(ns multimethod.test)$/;"	kind:namespace
+test	input.clj	/^(defmulti test$/;"	kind:multi	scope:namespace:multimethod.test
+documented-multimethod	input.clj	/^(defmulti documented-multimethod "Documentation"$/;"	kind:multi	scope:namespace:multimethod.test
+test	input.clj	/^(defmethod test nil$/;"	kind:method	scope:namespace:multimethod.test
+test	input.clj	/^(defmethod test :test$/;"	kind:method	scope:namespace:multimethod.test
+test	input.clj	/^(defmethod test :test2 named-method$/;"	kind:method	scope:namespace:multimethod.test
+named-method	input.clj	/^(defmethod test :test2 named-method$/;"	kind:methodId	method:test	scope:namespace:multimethod.test

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)

Units/parser-clojure.r/clojure-vars.b/args.ctags

@@ -0,0 +1,2 @@
+--sort=no
+--fields=+KzZ

Units/parser-clojure.r/clojure-vars.b/expected.tags

@@ -0,0 +1,7 @@
+vars.test	input.clj	/^(ns vars.test)$/;"	kind:namespace
+var	input.clj	/^(def var 'var)$/;"	kind:variable	namespace:vars.test
+doc-var	input.clj	/^(def doc-var "Documentation" 'var)$/;"	kind:variable	scope:namespace:vars.test
+dynamic-var	input.clj	/^(def dynamic-var ^:dynamic 'var)$/;"	kind:variable	scope:namespace:vars.test
+const-var	input.clj	/^(def const-var ^:const 'var)$/;"	kind:variable	scope:namespace:vars.test
+once-var	input.clj	/^(defonce once-var 'evaluated-once)$/;"	kind:variable	scope:namespace:vars.test
+fn-var	input.clj	/^(def fn-var (fn [] true))$/;"	kind:function	scope:namespace:vars.test

Units/parser-clojure.r/clojure-vars.b/input.clj

@@ -0,0 +1,13 @@
+(ns vars.test)
+
+(def var 'var)
+
+(def doc-var "Documentation" 'var)
+
+(def dynamic-var ^:dynamic 'var)
+
+(def const-var ^:const 'var)
+
+(defonce once-var 'evaluated-once)
+
+(def fn-var (fn [] true))