Move clear-database util to prod classpath

The dev tooling is on the prod classpath, so can't use the test
classpath since we AOT everything. This moves the clear-database util to
a dev tooling ns to allow AOT to work. There are a couple of issues here
that we should address in the future:

- dev tooling shouldn't be on the prod CP
- we shouldn't AOT everything, just a main entry point

Author: tobias

src/clojars/dev/setup.clj

@@ -6,8 +6,8 @@
    [clojars.file-utils :as fu]
    [clojars.search :as search]
    [clojars.stats :as stats]
-   [clojars.test-helper :as help]
    [clojure.java.io :as io]
+   [clojure.java.jdbc :as jdbc]
    [clojure.string :as str])
   (:import
    (org.apache.maven.artifact.repository.metadata
@@ -17,6 +17,18 @@
     MetadataXpp3Reader
     MetadataXpp3Writer)))
 
+(defn clear-database! [db]
+  (try
+    (jdbc/db-do-commands
+     db
+     ["delete from deps"
+      "delete from groups"
+      "delete from jars"
+      "delete from users"
+      "delete from group_verifications"
+      "delete from audit"])
+    (catch Exception _)))
+
 (defn add-test-users
   "Adds n test users of the form test0/test0."
   [db n]
@@ -114,7 +126,7 @@
       (println "Aborting.")
       (System/exit 1))
     (println "==> Clearing the" db "db...")
-    (help/clear-database db)
+    (clear-database! db)
     (println "==> Creating 10 test users...")
     (let [test-users (add-test-users db 10)]
       (println "==> Importing" repo "into the db...")

test/clojars/test_helper.clj

@@ -4,6 +4,7 @@
    [clojars.config :as config]
    [clojars.db :as db]
    [clojars.db.migrate :as migrate]
+   [clojars.dev.setup :as setup]
    [clojars.email :as email]
    [clojars.errors :as errors]
    [clojars.oauth.service :as oauth-service]
@@ -69,17 +70,7 @@
 
 (declare ^:dynamic *db*)
 
-(defn clear-database [db]
-  (try
-    (jdbc/db-do-commands
-     db
-     ["delete from deps"
-      "delete from groups"
-      "delete from jars"
-      "delete from users"
-      "delete from group_verifications"
-      "delete from audit"])
-    (catch Exception _)))
+(def clear-database setup/clear-database!)
 
 (defn with-clean-database [f]
   (binding [config/*profile* "test"]