working on testing.

src/clj/auto_ap/datomic.clj

@@ -12,7 +12,9 @@
             [clj-time.core :as time]
             [clj-time.coerce :as coerce]))
 
-  (def uri "datomic:sql://invoices?jdbc:postgresql://database:5432/datomic?user=datomic&password=datomic")
+#_  (def uri "datomic:sql://invoices?jdbc:postgresql://database:5432/datomic?user=datomic&password=datomic")
+
+(def uri "datomic:mem://datomic-transactor:4334/invoice")
 
 (defn create-database []
   (d/create-database uri))

src/clj/auto_ap/datomic/migrate.clj

@@ -48,8 +48,8 @@
                                                           :invoice-status/unpaid)]])})}]] )
 
 (defn -main [& args]
-    (println "Creating database...")
-  (d/create-database uri)
+  (println "Creating database ..." uri)
+  (doto (d/create-database uri) println)
   
   (let [
         conn (d/connect uri)
@@ -138,7 +138,9 @@
                    }]
       (println "Conforming database...")
       (println (c/ensure-conforms  conn norms-map))
-      (d/release conn)
+      (when (not (seq args))
+        (d/release conn))
       (println "Done")))
-#_(-main)
+#_(-main false)
+
 

src/cljs/auto_ap/views/pages/admin/rules/form.cljs

@@ -264,7 +264,6 @@
 
 (defn test-results-modal []
   (when (:visible? @(re-frame/subscribe [::subs/modal-state ::test-results]))
-    (println "TEST" @(re-frame/subscribe [::test-results]))
     [modal {:title "Rule results"
             :hide-event [::events/modal-status ::test-results {:visible? false}]}
      [:table.table.is-fullwidth.compact