luciano/next-jdbc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve readability of informational messages in tests

Browse source
This commit is contained in:
Sean Corfield 2020-06-07 09:40:05 -07:00
parent 35fc00d4b3
commit cfd403301f
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/next/jdbc/datafy_test.clj
View file

@ -40,7 +40,8 @@
:schema/exception))) :schema/exception)))
data (set (keys (d/datafy con)))] data (set (keys (d/datafy con)))]
(when-let [diff (seq (set/difference data reference-keys))] (when-let [diff (seq (set/difference data reference-keys))]
(println (:dbtype (db)) :connection (sort diff))) (println (format "%6s :%-10s %s"
(:dbtype (db)) "connection" (str (sort diff)))))
(is (= reference-keys (is (= reference-keys
(set/intersection reference-keys data))))))) (set/intersection reference-keys data)))))))
@ -87,7 +88,8 @@
:rowIdLifetime/exception))) :rowIdLifetime/exception)))
data (set (keys (d/datafy (.getMetaData con))))] data (set (keys (d/datafy (.getMetaData con))))]
(when-let [diff (seq (set/difference data reference-keys))] (when-let [diff (seq (set/difference data reference-keys))]
(println (:dbtype (db)) :db-meta (sort diff))) (println (format "%6s :%-10s %s"
(:dbtype (db)) "db-meta" (str (sort diff)))))
(is (= reference-keys (is (= reference-keys
(set/intersection reference-keys data)))))) (set/intersection reference-keys data))))))
(testing "nav to catalogs yields object" (testing "nav to catalogs yields object"

3
test/next/jdbc/middleware_test.clj
View file

@ -72,4 +72,5 @@
:sql-params-fn start-fn :sql-params-fn start-fn
:execute-fn exec-fn}) :execute-fn exec-fn})
sql-p) sql-p)
(println (:dbtype (db)) (:calls @timing) "calls took" (long (:total @timing)) "nanoseconds"))) (println (format "%6s %d calls took %,10d nanoseconds"
(:dbtype (db)) (:calls @timing) (long (:total @timing))))))