Using a String for Clojure test names.

deftest*.clj

(require 'clojure.test)

(defmacro deftest*
  [name-string & body]
  (let [name-symbol
        (-> name-string
            clojure.string/lower-case
            (clojure.string/replace #"\W" "-")
            (clojure.string/replace #"-+" "-")
            (clojure.string/replace #"-$" "")
            symbol)]
  `(clojure.test/deftest ~name-symbol ~@body)))

(macroexpand-1 '(deftest* "this is a test" (is true)))
;=> (clojure.test/deftest this-is-a-test (is true))

👍