Add test case with complex metadata

Author: SophieBosio

test/clojure-mode-util-test.el

@@ -388,7 +388,12 @@
     (with-clojure-buffer-point
         "(defn- |^{:doc \"A function\"} foo [] 1)
          (defn- ^:private bar 2)"
-        (expect (clojure-find-def) :to-equal '("defn-" "foo"))))
+        (expect (clojure-find-def) :to-equal '("defn-" "foo")))
+    (with-clojure-buffer-point
+        "(def foo 1)
+         (defn- ^{:|a {}} complex-metadata |[x y z] z)
+         (def bar 2)"
+        (expect (clojure-find-def) :to-equal '("defn-" "complex-metadata"))))
   (it "should recognize def...-, with or without metadata"
     (with-clojure-buffer-point
         "(def foo 1)