Postgres: domain service and tests ready

Author: karimarttila

webstore-demo/integrant-simple-server/src/clj/simpleserver/service/domain/domain_postgres.clj

@@ -36,12 +36,23 @@
   (get-product
     [_ _ pg-id p-id]
     (log/debug (str "ENTER get-product, pg-id: " pg-id ", p-id: " p-id))
-    ))
+    (if-let [kv (sql-get-product db {:pg-id (str pg-id) :p-id (str p-id)})]
+      [(:id kv)
+       (:pg_id kv)
+       (:title kv)
+       (.toPlainString (.stripTrailingZeros (:price kv)))
+       (:a_or_d kv)
+       (str (:year kv))
+       (:country kv)
+       (:g_or_l kv)])))
 
 
 (comment
   (simpleserver.test-config/go)
+  (simpleserver.test-config/halt)
   (simpleserver.test-config/test-env)
   (let [db (get-in (simpleserver.test-config/test-env) [:service :domain :db])]
     (sql-get-products db {:pg-id (str 2)}))
+  (let [db (get-in (simpleserver.test-config/test-env) [:service :domain :db])]
+    (sql-get-product db {:pg-id (str 2) :p-id (str 4)}))
   )

webstore-demo/integrant-simple-server/test/clj/simpleserver/service/domain/domain_test.clj

@@ -54,6 +54,7 @@
 ; Rich comment.
 #_(comment
   (ss-tc/go)
+  (ss-domain-s/get-product (ss-tc/test-env) 2 4)
   (ss-test-service/init-domain (ss-tc/test-env))
   (ss-tc/test-env)
   )