   ([] (is false)))
 
 
+(defn do-with-dbspec
+  [f] {:post [(mu/not-fn? %)]
+       :pre  [(fn? f)]}
+  (let [g (sp/wrap-dbspec dbspec f)]
+    (g)))
+
+
+(defn do-with-sjt
+  "Execute f in the context of datasource and SimpleJdbcTemplate"
+  [f] {:post [(mu/not-fn? %)]
+       :pre  [(fn? f)]}
+  (let [g (sp/wrap-dbspec dbspec
+            (jd/wrap-sjt f))]
+    (g)))
+
+
 (defn query-for-int-test
   []
   (setup)


(deftest test-insert-give-id
  (testing "test-insert-give-id"
    ((sp/wrap-dbspec dbspec
       (jd/wrap-sjt insert-give-id-test)))))


(defn insert-give-idmap-test


(deftest test-query-for-list
  (testing "test-query-for-list"
    (do-with-sjt
      query-for-list-test)))


(defn update-test
