Minimal SQLite key-value store for OCaml
fix(sqlite): rename Sqlite.create to Sqlite.v across callers
Update ocaml-pds and ocaml-sqlite test callers to match the
renamed constructor.
+4
-4
+4
-4
test/test_sqlite.ml
+4
-4
test/test_sqlite.ml
···
13
13
Eio.Path.(tmp_dir / Printf.sprintf "test_%d.db" (Random.int 1_000_000))
14
14
in
15
15
Eio.Switch.run @@ fun sw ->
16
-
let db = Sqlite.create ~sw path in
16
+
let db = Sqlite.v ~sw path in
17
17
Fun.protect ~finally:(fun () -> Sqlite.close db) (fun () -> f fs db)
18
18
19
19
(* Basic operations *)
···
264
264
in
265
265
(* Create and write *)
266
266
Eio.Switch.run (fun sw ->
267
-
let db = Sqlite.create ~sw path in
267
+
let db = Sqlite.v ~sw path in
268
268
Sqlite.put db "key1" "value1";
269
269
Sqlite.put db "key2" "value2";
270
270
Sqlite.close db);
···
288
288
in
289
289
(* Create, write, delete *)
290
290
Eio.Switch.run (fun sw ->
291
-
let db = Sqlite.create ~sw path in
291
+
let db = Sqlite.v ~sw path in
292
292
Sqlite.put db "keep" "value1";
293
293
Sqlite.put db "delete" "value2";
294
294
Sqlite.delete db "delete";
···
313
313
in
314
314
(* Create with tables *)
315
315
Eio.Switch.run (fun sw ->
316
-
let db = Sqlite.create ~sw path in
316
+
let db = Sqlite.v ~sw path in
317
317
let t1 = Sqlite.Table.create db ~name:"blocks" in
318
318
let t2 = Sqlite.Table.create db ~name:"refs" in
319
319
Sqlite.Table.put t1 "cid1" "data1";