all-ns

user=> (all-ns)
(#<Namespace clojure.set> #<Namespace clojure.pprint> #<Namespace cake.contrib.server-socket> #<Namespace user> #<Namespace clojure.main> #<Namespace useful.io> #<Namespace clojure.core> #<Namespace clojure.java.shell> #<Namespace cake.tasks.help> #<Namespace clojure.zip> #<Namespace clojure.java.browse> #<Namespace clojure.repl> #<Namespace cake.tasks.new> #<Namespace cake.server> #<Namespace cake.ant> #<Namespace cake.contrib.find-namespaces> #<Namespace clojure.java.io> #<Namespace clojure.stacktrace> #<Namespace clojure.core.protocols> #<Namespace cake.project> #<Namespace clojure.xml> #<Namespace clojure.java.javadoc> #<Namespace useful> #<Namespace complete> #<Namespace cake>)

;; The names of all your current namespaces that end in "-test":

(->> (all-ns)
     (map ns-name)
     (map name)
     (filter #(clojure.string/ends-with? % "-test")))
;;=> ("core-test" "farg.pmatch-test")