File tree 1 file changed +19
-10
lines changed 1 file changed +19
-10
lines changed Original file line number Diff line number Diff line change 10
10
value
11
11
default ))
12
12
13
+ (defn await [chan]
14
+ (let [[r err] (<!! chan)]
15
+ (if err
16
+ (throw err)
17
+ r)))
18
+
19
+
13
20
(defn create-tables [db]
14
- (let [[_ err] (<!! (go (dosql
15
- [_ (<execute! db [" drop table if exists clj_pg_test" ])
16
- _ (<execute! db [" create table clj_pg_test (
17
- id serial, t varchar(10)
18
- )" ])])))]
19
- (if err
20
- (throw err))))
21
+ (await (<execute! db [" drop table if exists clj_pg_test" ]))
22
+ (await (<execute! db [" create table clj_pg_test (
23
+ id serial, t varchar(10))" ])))
24
+
25
+ (defn await [chan]
26
+ (let [[r err] (<!! chan)]
27
+ (if err
28
+ (throw err)
29
+ r)))
21
30
22
31
(defn db-fixture [f]
23
32
(binding [*db* (open-db {:hostname (env " PG_HOST" " localhost" )
35
44
36
45
(deftest queries
37
46
(testing " <query! returns rows as map"
38
- (let [[ rs err] ( <!! (<query! *db* [" select 1 as x" ]))]
47
+ (let [rs ( await (<query! *db* [" select 1 as x" ]))]
39
48
(is (= 1 (get-in rs [0 :x ]))))))
40
49
41
50
(deftest inserts
42
51
(testing " insert return row count"
43
- (let [[ rs err] ( <!! (<insert! *db* {:table " clj_pg_test" } {:t " x" }))]
52
+ (let [rs ( await (<insert! *db* {:table " clj_pg_test" } {:t " x" }))]
44
53
(is (= 1 (:updated rs)))))
45
54
(testing " insert with returning returns generated keys"
46
- (let [[ rs err] ( <!! (<insert! *db* {:table " clj_pg_test" :returning " id" } {:t " y" }))]
55
+ (let [rs ( await (<insert! *db* {:table " clj_pg_test" :returning " id" } {:t " y" }))]
47
56
(is (get-in rs [:rows 0 :id ])))))
48
57
49
58
(deftest sql-macro
You can’t perform that action at this time.
0 commit comments