@reventlessdev/reventless-postgres 3.0.0-alpha.33 → 3.0.0-alpha.35

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (85) hide show
  1. package/CHANGELOG.md +16 -0
  2. package/lib/bs/.compiler.log +2 -2
  3. package/lib/bs/ReventlessPostgres.cmt +0 -0
  4. package/lib/bs/compiler-info.json +1 -1
  5. package/lib/bs/src/DcbEventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
  6. package/lib/bs/src/DcbEventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
  7. package/lib/bs/src/DcbEventLogStorage_Postgres.ast +0 -0
  8. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  9. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  10. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops.ast +0 -0
  11. package/lib/bs/src/EventLogChangeFeed-ReventlessPostgres.cmi +0 -0
  12. package/lib/bs/src/EventLogChangeFeed-ReventlessPostgres.cmt +0 -0
  13. package/lib/bs/src/EventLogChangeFeed.ast +0 -0
  14. package/lib/bs/src/EventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
  15. package/lib/bs/src/EventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
  16. package/lib/bs/src/EventLogStorage_Postgres.ast +0 -0
  17. package/lib/bs/src/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  18. package/lib/bs/src/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  19. package/lib/bs/src/EventLogStorage_Postgres_Ops.ast +0 -0
  20. package/lib/bs/src/PgChangeFeed-ReventlessPostgres.cmi +0 -0
  21. package/lib/bs/src/PgChangeFeed-ReventlessPostgres.cmt +0 -0
  22. package/lib/bs/src/PgChangeFeed.ast +0 -0
  23. package/lib/bs/src/PgDriver-ReventlessPostgres.cmi +0 -0
  24. package/lib/bs/src/PgDriver-ReventlessPostgres.cmt +0 -0
  25. package/lib/bs/src/PgDriver-ReventlessPostgres.cmti +0 -0
  26. package/lib/bs/src/PgDriver.ast +0 -0
  27. package/lib/bs/src/PgDriver.iast +0 -0
  28. package/lib/bs/src/PgSchema-ReventlessPostgres.cmi +0 -0
  29. package/lib/bs/src/PgSchema-ReventlessPostgres.cmt +0 -0
  30. package/lib/bs/src/PgSchema.ast +0 -0
  31. package/lib/bs/src/QueryDbStorage_Postgres-ReventlessPostgres.cmi +0 -0
  32. package/lib/bs/src/QueryDbStorage_Postgres-ReventlessPostgres.cmt +0 -0
  33. package/lib/bs/src/QueryDbStorage_Postgres.ast +0 -0
  34. package/lib/bs/src/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  35. package/lib/bs/src/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  36. package/lib/bs/src/QueryDbStorage_Postgres_Ops.ast +0 -0
  37. package/lib/bs/src/QueryEnginePostgres-ReventlessPostgres.cmi +0 -0
  38. package/lib/bs/src/QueryEnginePostgres-ReventlessPostgres.cmt +0 -0
  39. package/lib/bs/src/QueryEnginePostgres.ast +0 -0
  40. package/lib/bs/tests/PostgresIntegrationTest-ReventlessPostgres.cmi +0 -0
  41. package/lib/bs/tests/PostgresIntegrationTest-ReventlessPostgres.cmt +0 -0
  42. package/lib/bs/tests/PostgresIntegrationTest.ast +0 -0
  43. package/lib/bs/tests/QueryEnginePostgresListPageTest-ReventlessPostgres.cmi +0 -0
  44. package/lib/bs/tests/QueryEnginePostgresListPageTest-ReventlessPostgres.cmt +0 -0
  45. package/lib/bs/tests/QueryEnginePostgresListPageTest.ast +0 -0
  46. package/lib/ocaml/.compiler.log +2 -2
  47. package/lib/ocaml/DcbEventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
  48. package/lib/ocaml/DcbEventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
  49. package/lib/ocaml/DcbEventLogStorage_Postgres.ast +0 -0
  50. package/lib/ocaml/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  51. package/lib/ocaml/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  52. package/lib/ocaml/DcbEventLogStorage_Postgres_Ops.ast +0 -0
  53. package/lib/ocaml/EventLogChangeFeed-ReventlessPostgres.cmi +0 -0
  54. package/lib/ocaml/EventLogChangeFeed-ReventlessPostgres.cmt +0 -0
  55. package/lib/ocaml/EventLogChangeFeed.ast +0 -0
  56. package/lib/ocaml/EventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
  57. package/lib/ocaml/EventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
  58. package/lib/ocaml/EventLogStorage_Postgres.ast +0 -0
  59. package/lib/ocaml/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  60. package/lib/ocaml/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  61. package/lib/ocaml/EventLogStorage_Postgres_Ops.ast +0 -0
  62. package/lib/ocaml/PgChangeFeed-ReventlessPostgres.cmi +0 -0
  63. package/lib/ocaml/PgChangeFeed-ReventlessPostgres.cmt +0 -0
  64. package/lib/ocaml/PgChangeFeed.ast +0 -0
  65. package/lib/ocaml/PgDriver-ReventlessPostgres.cmi +0 -0
  66. package/lib/ocaml/PgDriver-ReventlessPostgres.cmt +0 -0
  67. package/lib/ocaml/PgDriver-ReventlessPostgres.cmti +0 -0
  68. package/lib/ocaml/PgDriver.ast +0 -0
  69. package/lib/ocaml/PgDriver.iast +0 -0
  70. package/lib/ocaml/PgSchema-ReventlessPostgres.cmi +0 -0
  71. package/lib/ocaml/PgSchema-ReventlessPostgres.cmt +0 -0
  72. package/lib/ocaml/PgSchema.ast +0 -0
  73. package/lib/ocaml/QueryDbStorage_Postgres-ReventlessPostgres.cmi +0 -0
  74. package/lib/ocaml/QueryDbStorage_Postgres-ReventlessPostgres.cmt +0 -0
  75. package/lib/ocaml/QueryDbStorage_Postgres.ast +0 -0
  76. package/lib/ocaml/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  77. package/lib/ocaml/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  78. package/lib/ocaml/QueryDbStorage_Postgres_Ops.ast +0 -0
  79. package/lib/ocaml/QueryEnginePostgres-ReventlessPostgres.cmi +0 -0
  80. package/lib/ocaml/QueryEnginePostgres-ReventlessPostgres.cmt +0 -0
  81. package/lib/ocaml/QueryEnginePostgres.ast +0 -0
  82. package/lib/ocaml/ReventlessPostgres.cmt +0 -0
  83. package/package.json +11 -11
  84. package/tests/PostgresIntegrationTest.res.mjs +0 -377
  85. package/tests/QueryEnginePostgresListPageTest.res.mjs +0 -461
package/CHANGELOG.md CHANGED
@@ -3,6 +3,22 @@
3
3
  All notable changes to this project will be documented in this file.
4
4
  See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
5
5
 
6
+ # 3.0.0-alpha.35 (2026-07-17)
7
+
8
+ **Note:** Version bump only for package @reventlessdev/reventless-postgres
9
+
10
+
11
+
12
+
13
+
14
+ # 3.0.0-alpha.34 (2026-07-16)
15
+
16
+ **Note:** Version bump only for package @reventlessdev/reventless-postgres
17
+
18
+
19
+
20
+
21
+
6
22
  # 3.0.0-alpha.33 (2026-07-15)
7
23
 
8
24
  **Note:** Version bump only for package @reventlessdev/reventless-postgres
@@ -1,2 +1,2 @@
1
- #Start(1784147778230)
2
- #Done(1784147783134)
1
+ #Start(1784279703238)
2
+ #Done(1784279707866)
Binary file
@@ -4,5 +4,5 @@
4
4
  "bsc_hash": "75e3a59c95cc953608fd3dd6ea6ed68141bba4414a20a52f114261b8a48385fa",
5
5
  "rescript_config_hash": "af2af60a0fa33b8249a96ff2758f36482843126dc4e07b9302842d011e0ad8c6",
6
6
  "runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
7
- "generated_at": "1784147783145"
7
+ "generated_at": "1784279707873"
8
8
  }
Binary file
Binary file
Binary file
Binary file
Binary file
Binary file
@@ -1,2 +1,2 @@
1
- #Start(1784147778230)
2
- #Done(1784147783134)
1
+ #Start(1784279703238)
2
+ #Done(1784279707866)
Binary file
Binary file
Binary file
Binary file
Binary file
Binary file
Binary file
package/package.json CHANGED
@@ -1,6 +1,6 @@
1
1
  {
2
2
  "name": "@reventlessdev/reventless-postgres",
3
- "version": "3.0.0-alpha.33",
3
+ "version": "3.0.0-alpha.35",
4
4
  "description": "Postgres storage backend for Reventless (classic + DCB event logs, query DB, change feed). Connection-string only — RDS/Aurora, any managed provider, or a local container.",
5
5
  "license": "Apache-2.0",
6
6
  "jest": {
@@ -22,21 +22,21 @@
22
22
  "dependencies": {
23
23
  "pg": "^8.13.1",
24
24
  "sury": "11.0.0-alpha.4",
25
- "@reventlessdev/rescript-effect": "0.1.0-alpha.27",
26
- "@reventlessdev/rescript-jest": "1.0.0-alpha.7",
27
- "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.15",
28
- "@reventlessdev/reventless-core": "3.0.0-alpha.169",
29
- "@reventlessdev/reventless-infra": "3.0.0-alpha.100",
30
- "@reventlessdev/reventless-spec": "3.0.0-alpha.77"
25
+ "@reventlessdev/rescript-jest": "1.0.0-alpha.9",
26
+ "@reventlessdev/rescript-effect": "0.1.0-alpha.29",
27
+ "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.17",
28
+ "@reventlessdev/reventless-core": "3.0.0-alpha.171",
29
+ "@reventlessdev/reventless-infra": "3.0.0-alpha.102",
30
+ "@reventlessdev/reventless-spec": "3.0.0-alpha.79"
31
31
  },
32
32
  "devDependencies": {
33
33
  "@types/pg": "^8.11.10",
34
- "rescript": "^12.3.0",
34
+ "rescript": "12.3.0",
35
35
  "sury-ppx": "11.0.0-alpha.2",
36
- "@reventlessdev/reventless-ppx": "1.0.0-alpha.53"
36
+ "@reventlessdev/reventless-ppx": "1.0.0-alpha.54"
37
37
  },
38
38
  "peerDependencies": {
39
- "rescript": "^12.3.0"
39
+ "rescript": "12.3.0"
40
40
  },
41
41
  "publishConfig": {
42
42
  "registry": "https://registry.npmjs.org"
@@ -44,7 +44,7 @@
44
44
  "repository": {
45
45
  "type": "git",
46
46
  "url": "git+https://github.com/ReventlessDev/reventless-core.git",
47
- "directory": "reventless/reventless-postgres"
47
+ "directory": "reventless/postgres"
48
48
  },
49
49
  "scripts": {
50
50
  "build": "rescript build",
@@ -1,377 +0,0 @@
1
- // Generated by ReScript, PLEASE EDIT WITH CARE
2
-
3
- import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
4
- import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
5
- import * as Message$ReventlessCore from "@reventlessdev/reventless-core/src/Message.res.mjs";
6
- import * as PgDriver$ReventlessPostgres from "../src/PgDriver.res.mjs";
7
- import * as PgSchema$ReventlessPostgres from "../src/PgSchema.res.mjs";
8
- import * as PgChangeFeed$ReventlessPostgres from "../src/PgChangeFeed.res.mjs";
9
- import * as EventLogChangeFeed$ReventlessPostgres from "../src/EventLogChangeFeed.res.mjs";
10
- import * as EventLogStorage_Postgres$ReventlessPostgres from "../src/EventLogStorage_Postgres.res.mjs";
11
- import * as DcbEventLogStorage_Postgres$ReventlessPostgres from "../src/DcbEventLogStorage_Postgres.res.mjs";
12
-
13
- let opts = {};
14
-
15
- function jsonObj(pairs) {
16
- return Object.fromEntries(pairs);
17
- }
18
-
19
- function stored(eventType, tags, data) {
20
- return {
21
- eventType: eventType,
22
- data: data,
23
- tags: tags,
24
- meta: Message$ReventlessCore.generateMeta("pg-test", undefined, undefined, undefined, undefined, undefined, undefined, undefined)
25
- };
26
- }
27
-
28
- function evJson(msgId, v) {
29
- return Object.fromEntries([
30
- [
31
- "msgId",
32
- msgId
33
- ],
34
- [
35
- "v",
36
- v
37
- ]
38
- ]);
39
- }
40
-
41
- let url = process.env["PG_URL"];
42
-
43
- if (url !== undefined) {
44
- let pool = PgDriver$ReventlessPostgres.makePool({
45
- connectionString: url
46
- });
47
- globalThis.beforeAll(async () => {
48
- await PgSchema$ReventlessPostgres.ensureSchema(pool);
49
- return await PgSchema$ReventlessPostgres.truncateAll(pool);
50
- });
51
- globalThis.afterAll(() => {
52
- PgDriver$ReventlessPostgres.endPool(pool);
53
- });
54
- globalThis.describe("classic OCC event log", () => {
55
- globalThis.test("append, replay, and conflict on wrong seq", async () => {
56
- let match = EventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "ct-orders", opts, undefined);
57
- let ops = match[1];
58
- let r0 = await ops.append(0, "agg-1", [
59
- evJson("m0", 1),
60
- evJson("m1", 2)
61
- ]);
62
- if (r0.TAG === "Ok") {
63
- globalThis.expect(true).toBe(true);
64
- } else {
65
- globalThis.expect("append").toBe("ok");
66
- }
67
- let rStale = await ops.append(0, "agg-1", [evJson("m2", 3)]);
68
- if (rStale.TAG === "Ok") {
69
- globalThis.expect("stale").toBe("conflict");
70
- } else {
71
- let tmp = rStale._0;
72
- if (typeof tmp !== "object") {
73
- globalThis.expect(true).toBe(true);
74
- } else {
75
- globalThis.expect("stale").toBe("conflict");
76
- }
77
- }
78
- let rGap = await ops.append(5, "agg-1", [evJson("m3", 4)]);
79
- if (rGap.TAG === "Ok") {
80
- globalThis.expect("gap").toBe("conflict");
81
- } else {
82
- let tmp$1 = rGap._0;
83
- if (typeof tmp$1 !== "object") {
84
- globalThis.expect(true).toBe(true);
85
- } else {
86
- globalThis.expect("gap").toBe("conflict");
87
- }
88
- }
89
- let rNext = await ops.append(2, "agg-1", [evJson("m4", 5)]);
90
- if (rNext.TAG === "Ok") {
91
- globalThis.expect(true).toBe(true);
92
- } else {
93
- globalThis.expect("next").toBe("ok");
94
- }
95
- let evs = await ops.replay("agg-1");
96
- globalThis.expect(evs.length).toBe(3);
97
- let rEmpty = await ops.append(3, "agg-1", []);
98
- if (rEmpty.TAG === "Ok") {
99
- globalThis.expect(true).toBe(true);
100
- return;
101
- }
102
- globalThis.expect("empty").toBe("ok");
103
- });
104
- });
105
- globalThis.describe("DCB event log", () => {
106
- let makeLog = name => DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, name, [], {
107
- TAG: "Simple",
108
- _0: {
109
- key: "k"
110
- }
111
- }, undefined, opts, undefined, undefined);
112
- globalThis.test("append + read round-trips events with tags", async () => {
113
- let match = makeLog("dcb-rt");
114
- let ops = match[1];
115
- let e1 = stored("ItemAdded", [{
116
- key: "itemId",
117
- value: "x1"
118
- }], Object.fromEntries([[
119
- "n",
120
- "w"
121
- ]]));
122
- let r = await ops.append([e1], undefined);
123
- if (r.TAG === "Ok") {
124
- globalThis.expect(true).toBe(true);
125
- } else {
126
- globalThis.expect(r._0).toBe("ok");
127
- }
128
- let read = await ops.read([], undefined);
129
- globalThis.expect(read.events.length).toBe(1);
130
- let first = read.events[0];
131
- globalThis.expect(first.eventType).toBe("ItemAdded");
132
- globalThis.expect(first.tags[0].key).toBe("itemId");
133
- globalThis.expect(first.tags[0].value).toBe("x1");
134
- });
135
- globalThis.test("conditional append conflicts when the boundary already has an event", async () => {
136
- let match = makeLog("dcb-cond");
137
- let ops = match[1];
138
- let mk = who => stored("Reserved", [{
139
- key: "seatId",
140
- value: "s1"
141
- }], Object.fromEntries([[
142
- "who",
143
- who
144
- ]]));
145
- let r1 = await ops.append([mk("a")], undefined);
146
- if (r1.TAG === "Ok") {
147
- globalThis.expect(true).toBe(true);
148
- } else {
149
- globalThis.expect("first").toBe("ok");
150
- }
151
- let cond_query = [{
152
- eventTypes: ["Reserved"],
153
- tags: [{
154
- key: "seatId",
155
- value: "s1"
156
- }]
157
- }];
158
- let cond = {
159
- query: cond_query
160
- };
161
- let r2 = await ops.append([mk("b")], cond);
162
- if (r2.TAG === "Ok") {
163
- globalThis.expect("second").toBe("conflict");
164
- return;
165
- }
166
- let tmp = r2._0;
167
- if (typeof tmp !== "object") {
168
- globalThis.expect(true).toBe(true);
169
- return;
170
- }
171
- globalThis.expect("second").toBe("conflict");
172
- });
173
- let writeSkew = (strategy, logName) => {
174
- globalThis.test(`write-skew: exactly one of two concurrent appends wins (` + logName + `)`, async () => {
175
- let match = DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, logName, [], {
176
- TAG: "Simple",
177
- _0: {
178
- key: "k"
179
- }
180
- }, undefined, opts, strategy, undefined);
181
- let ops = match[1];
182
- let cond_query = [{
183
- eventTypes: ["Reserved"],
184
- tags: [{
185
- key: "seatId",
186
- value: "hot"
187
- }]
188
- }];
189
- let cond = {
190
- query: cond_query
191
- };
192
- let mk = who => stored("Reserved", [{
193
- key: "seatId",
194
- value: "hot"
195
- }], Object.fromEntries([[
196
- "who",
197
- who
198
- ]]));
199
- let p1 = ops.append([mk("a")], cond);
200
- let p2 = ops.append([mk("b")], cond);
201
- let r1 = await p1;
202
- let r2 = await p2;
203
- let isOk = r => r.TAG === "Ok";
204
- let isConflict = r => Primitive_object.equal(r, {
205
- TAG: "Error",
206
- _0: "Conflict"
207
- });
208
- let oks = [
209
- r1,
210
- r2
211
- ].filter(isOk).length;
212
- let conflicts = [
213
- r1,
214
- r2
215
- ].filter(isConflict).length;
216
- globalThis.expect(oks).toBe(1);
217
- globalThis.expect(conflicts).toBe(1);
218
- let read = await ops.read([{
219
- tags: [{
220
- key: "seatId",
221
- value: "hot"
222
- }]
223
- }], undefined);
224
- globalThis.expect(read.events.length).toBe(1);
225
- });
226
- };
227
- writeSkew("AdvisoryLocks", "dcb-skew-advisory");
228
- writeSkew("RowLocks", "dcb-skew-rows");
229
- globalThis.test("hot tag: N concurrent conditional appends, exactly one wins", async () => {
230
- let match = makeLog("dcb-hot");
231
- let ops = match[1];
232
- let cond_query = [{
233
- eventTypes: ["Claimed"],
234
- tags: [{
235
- key: "prizeId",
236
- value: "p1"
237
- }]
238
- }];
239
- let cond = {
240
- query: cond_query
241
- };
242
- let promises = Stdlib_Array.make(12, 0).map((param, i) => ops.append([stored("Claimed", [{
243
- key: "prizeId",
244
- value: "p1"
245
- }], Object.fromEntries([[
246
- "who",
247
- i
248
- ]]))], cond));
249
- let results = await Promise.all(promises);
250
- let oks = results.filter(r => r.TAG === "Ok").length;
251
- globalThis.expect(oks).toBe(1);
252
- let read = await ops.read([{
253
- tags: [{
254
- key: "prizeId",
255
- value: "p1"
256
- }]
257
- }], undefined);
258
- globalThis.expect(read.events.length).toBe(1);
259
- });
260
- globalThis.test("cursors are monotonic and usable as `after`", async () => {
261
- let match = makeLog("dcb-cursor");
262
- let ops = match[1];
263
- let mk = i => stored("Tick", [{
264
- key: "streamId",
265
- value: "c1"
266
- }], Object.fromEntries([[
267
- "i",
268
- i
269
- ]]));
270
- await ops.append([mk(0)], undefined);
271
- let pos = await ops.append([mk(1)], undefined);
272
- let mid;
273
- mid = pos.TAG === "Ok" ? pos._0 : "";
274
- await ops.append([mk(2)], undefined);
275
- let read = await ops.read([{
276
- tags: [{
277
- key: "streamId",
278
- value: "c1"
279
- }]
280
- }], mid);
281
- globalThis.expect(read.events.length).toBe(1);
282
- globalThis.expect(read.events[0].eventType).toBe("Tick");
283
- });
284
- });
285
- globalThis.describe("change feed", () => {
286
- globalThis.test("drains all events and checkpoints", async () => {
287
- let match = DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "feed-log", [], {
288
- TAG: "Simple",
289
- _0: {
290
- key: "k"
291
- }
292
- }, undefined, opts, undefined, undefined);
293
- let mk = i => stored("Fed", [{
294
- key: "id",
295
- value: "f"
296
- }], Object.fromEntries([[
297
- "i",
298
- i
299
- ]]));
300
- await match[1].append([
301
- mk(0),
302
- mk(1),
303
- mk(2)
304
- ], undefined);
305
- let collected = {
306
- contents: 0
307
- };
308
- let processed = await PgChangeFeed$ReventlessPostgres.drain(pool, "feed-log", "sub-1", undefined, async evs => {
309
- collected.contents = collected.contents + evs.length | 0;
310
- });
311
- globalThis.expect(processed).toBe(3);
312
- globalThis.expect(collected.contents).toBe(3);
313
- let again = await PgChangeFeed$ReventlessPostgres.drain(pool, "feed-log", "sub-1", undefined, async param => {});
314
- globalThis.expect(again).toBe(0);
315
- });
316
- });
317
- globalThis.describe("classic change feed (event_log, B2.5)", () => {
318
- globalThis.test("drains classic events in commit order, with fields, then checkpoints", async () => {
319
- let match = EventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "cf-orders", opts, undefined);
320
- let ops = match[1];
321
- await ops.append(0, "agg-1", [
322
- evJson("m0", 1),
323
- evJson("m1", 2)
324
- ]);
325
- await ops.append(0, "agg-2", [evJson("m2", 3)]);
326
- let collected = {
327
- contents: []
328
- };
329
- let processed = await EventLogChangeFeed$ReventlessPostgres.drain(pool, "cf-orders", "cf-sub", undefined, async evs => {
330
- collected.contents = collected.contents.concat(evs);
331
- });
332
- globalThis.expect(processed).toBe(3);
333
- globalThis.expect(collected.contents.length).toBe(3);
334
- let first = collected.contents[0];
335
- globalThis.expect(first.aggregateId).toBe("agg-1");
336
- globalThis.expect(first.seqNr).toBe(0);
337
- globalThis.expect(first.msgId).toEqual("m0");
338
- let cursors = collected.contents.map(e => e.cursor);
339
- let increasing = true;
340
- for (let i = 1, i_finish = cursors.length; i < i_finish; ++i) {
341
- if (cursors[i] <= cursors[i - 1 | 0]) {
342
- increasing = false;
343
- }
344
- }
345
- globalThis.expect(increasing).toBe(true);
346
- let again = await EventLogChangeFeed$ReventlessPostgres.drain(pool, "cf-orders", "cf-sub", undefined, async param => {});
347
- globalThis.expect(again).toBe(0);
348
- });
349
- globalThis.test("concurrent appends across aggregates: every event drained exactly once", async () => {
350
- let match = EventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "cf-concurrent", opts, undefined);
351
- let ops = match[1];
352
- let promises = Stdlib_Array.make(20, 0).map((param, i) => ops.append(0, "agg-" + i.toString(), [evJson("m" + i.toString(), i)]));
353
- await Promise.all(promises);
354
- let collected = {
355
- contents: []
356
- };
357
- await EventLogChangeFeed$ReventlessPostgres.drain(pool, "cf-concurrent", "cf-conc-sub", undefined, async evs => {
358
- collected.contents = collected.contents.concat(evs);
359
- });
360
- globalThis.expect(collected.contents.length).toBe(20);
361
- let distinctCursors = new Set(collected.contents.map(e => e.cursor));
362
- globalThis.expect(distinctCursors.size).toBe(20);
363
- });
364
- });
365
- } else {
366
- globalThis.test("Postgres integration (skipped — set PG_URL to run)", () => {
367
- globalThis.expect(true).toBe(true);
368
- });
369
- }
370
-
371
- export {
372
- opts,
373
- jsonObj,
374
- stored,
375
- evJson,
376
- }
377
- /* url Not a pure module */
@@ -1,461 +0,0 @@
1
- // Generated by ReScript, PLEASE EDIT WITH CARE
2
-
3
- import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
4
- import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
5
- import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
6
- import * as Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
7
- import * as PgDriver$ReventlessPostgres from "../src/PgDriver.res.mjs";
8
- import * as QueryDbListQuery$ReventlessCore from "@reventlessdev/reventless-core/src/components/Api/QueryDbListQuery.res.mjs";
9
- import * as QueryEnginePostgres$ReventlessPostgres from "../src/QueryEnginePostgres.res.mjs";
10
- import * as QueryDbStorage_Postgres$ReventlessPostgres from "../src/QueryDbStorage_Postgres.res.mjs";
11
-
12
- let capability_filterFields = [
13
- {
14
- name: "status",
15
- gqlType: "String",
16
- range: false
17
- },
18
- {
19
- name: "qty",
20
- gqlType: "Int",
21
- range: true
22
- }
23
- ];
24
-
25
- let capability_sortFields = [
26
- "name",
27
- "qty",
28
- "status"
29
- ];
30
-
31
- let capability = {
32
- filterFields: capability_filterFields,
33
- sortFields: capability_sortFields
34
- };
35
-
36
- function mk(id, status, name, qty) {
37
- let o = {};
38
- o["id"] = id;
39
- o["status"] = status;
40
- o["name"] = name;
41
- o["qty"] = qty;
42
- return o;
43
- }
44
-
45
- let rows = [
46
- [
47
- "p-1",
48
- "active",
49
- "Charlie",
50
- 3
51
- ],
52
- [
53
- "p-2",
54
- "active",
55
- "Alpha",
56
- 1
57
- ],
58
- [
59
- "p-3",
60
- "inactive",
61
- "Echo",
62
- 5
63
- ],
64
- [
65
- "p-4",
66
- "active",
67
- "Bravo",
68
- 2
69
- ],
70
- [
71
- "p-5",
72
- "inactive",
73
- "Delta",
74
- 4
75
- ]
76
- ];
77
-
78
- let seededItems = rows.map(param => mk(param[0], param[1], param[2], param[3]));
79
-
80
- function field(j, k) {
81
- return Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(j), d => d[k]);
82
- }
83
-
84
- function str(j, k) {
85
- return Stdlib_Option.flatMap(field(j, k), Stdlib_JSON.Decode.string);
86
- }
87
-
88
- function norm(conn) {
89
- let edges = Stdlib_Option.getOr(Stdlib_Option.flatMap(field(conn, "edges"), Stdlib_JSON.Decode.array), []).map(e => ({
90
- id: Stdlib_Option.getOr(Stdlib_Option.flatMap(field(e, "node"), n => str(n, "id")), ""),
91
- cursor: Stdlib_Option.getOr(str(e, "cursor"), "")
92
- }));
93
- let pi = Stdlib_Option.getOr(field(conn, "pageInfo"), null);
94
- return {
95
- edges: edges,
96
- hasNext: Stdlib_Option.getOr(Stdlib_Option.flatMap(field(pi, "hasNextPage"), Stdlib_JSON.Decode.bool), false),
97
- hasPrev: Stdlib_Option.getOr(Stdlib_Option.flatMap(field(pi, "hasPreviousPage"), Stdlib_JSON.Decode.bool), false),
98
- startCursor: str(pi, "startCursor"),
99
- endCursor: str(pi, "endCursor")
100
- };
101
- }
102
-
103
- function argsOf(entries) {
104
- return Object.fromEntries(entries);
105
- }
106
-
107
- function filterOf(entries) {
108
- return Object.fromEntries(entries);
109
- }
110
-
111
- function orderBy(f, dir) {
112
- return Object.fromEntries([
113
- [
114
- "field",
115
- f
116
- ],
117
- [
118
- "direction",
119
- dir
120
- ]
121
- ]);
122
- }
123
-
124
- function expectedFor(argsDict) {
125
- return norm(QueryDbListQuery$ReventlessCore.run(seededItems, argsDict, capability, "name", param => {}));
126
- }
127
-
128
- let url = process.env["PG_URL"];
129
-
130
- if (url !== undefined) {
131
- let pool = PgDriver$ReventlessPostgres.makePool({
132
- connectionString: url
133
- });
134
- let Eng = QueryEnginePostgres$ReventlessPostgres.Make({
135
- pool: pool
136
- });
137
- let name = "listparity";
138
- globalThis.beforeAll(async () => {
139
- let ops = QueryDbStorage_Postgres$ReventlessPostgres.makeOperations(pool, name, [], undefined);
140
- for (let i = 0, i_finish = rows.length; i < i_finish; ++i) {
141
- let match = rows[i];
142
- let id = match[0];
143
- await ops.save(id, mk(id, match[1], match[2], match[3]), "Any", undefined);
144
- }
145
- });
146
- globalThis.afterAll(() => {
147
- PgDriver$ReventlessPostgres.endPool(pool);
148
- });
149
- let checkPushed = async (label, args) => {
150
- let argsDict = Object.fromEntries(args);
151
- let actual = await Eng.listPage(name, argsDict, capability, "name");
152
- if (actual !== undefined) {
153
- globalThis.expect(norm(actual)).toEqual(expectedFor(argsDict));
154
- } else {
155
- globalThis.expect("push-down for " + label).toBe("returned None");
156
- }
157
- };
158
- let checkFallback = async args => {
159
- let r = await Eng.listPage(name, Object.fromEntries(args), capability, "name");
160
- globalThis.expect(Stdlib_Option.isSome(r)).toBe(false);
161
- };
162
- globalThis.describe("QueryDb list push-down parity (Postgres ≡ QueryDbListQuery spec)", () => {
163
- globalThis.test("bare page", () => checkPushed("bare", []));
164
- globalThis.test("first:2", () => checkPushed("first", [[
165
- "first",
166
- 2
167
- ]]));
168
- globalThis.test("first:2 + after", () => checkPushed("after", [
169
- [
170
- "first",
171
- 2
172
- ],
173
- [
174
- "after",
175
- QueryDbListQuery$ReventlessCore.encodeCursor("p-2")
176
- ]
177
- ]));
178
- globalThis.test("statusEq active", () => checkPushed("eq", [[
179
- "filter",
180
- Object.fromEntries([[
181
- "statusEq",
182
- "active"
183
- ]])
184
- ]]));
185
- globalThis.test("statusEq active + first:2", () => checkPushed("eq+first", [
186
- [
187
- "filter",
188
- Object.fromEntries([[
189
- "statusEq",
190
- "active"
191
- ]])
192
- ],
193
- [
194
- "first",
195
- 2
196
- ]
197
- ]));
198
- globalThis.test("orderBy name ASC", () => checkPushed("order-asc", [[
199
- "orderBy",
200
- orderBy("name", "ASC")
201
- ]]));
202
- globalThis.test("orderBy name DESC", () => checkPushed("order-desc", [[
203
- "orderBy",
204
- orderBy("name", "DESC")
205
- ]]));
206
- globalThis.test("orderBy name DESC + first:2 + after", () => checkPushed("order-desc-after", [
207
- [
208
- "orderBy",
209
- orderBy("name", "DESC")
210
- ],
211
- [
212
- "first",
213
- 2
214
- ],
215
- [
216
- "after",
217
- QueryDbListQuery$ReventlessCore.encodeCursor("Delta")
218
- ]
219
- ]));
220
- globalThis.test("orderBy status ASC (tiebreak by id)", () => checkPushed("order-tiebreak", [[
221
- "orderBy",
222
- orderBy("status", "ASC")
223
- ]]));
224
- globalThis.test("qty range From/To (numeric-as-string)", () => checkPushed("range", [[
225
- "filter",
226
- Object.fromEntries([
227
- [
228
- "qtyFrom",
229
- "2"
230
- ],
231
- [
232
- "qtyTo",
233
- "4"
234
- ]
235
- ])
236
- ]]));
237
- globalThis.test("orderBy qty ASC (numeric-as-string sort)", () => checkPushed("order-qty", [[
238
- "orderBy",
239
- orderBy("qty", "ASC")
240
- ]]));
241
- globalThis.test("search → fallback", () => checkFallback([[
242
- "filter",
243
- Object.fromEntries([[
244
- "search",
245
- "alp"
246
- ]])
247
- ]]));
248
- globalThis.test("searchPrefix → fallback", () => checkFallback([[
249
- "filter",
250
- Object.fromEntries([[
251
- "searchPrefix",
252
- "A"
253
- ]])
254
- ]]));
255
- globalThis.test("ids → fallback", () => checkFallback([[
256
- "filter",
257
- Object.fromEntries([[
258
- "ids",
259
- ["p-1"]
260
- ]])
261
- ]]));
262
- globalThis.test("backward (last/before) → fallback", () => checkFallback([
263
- [
264
- "last",
265
- 2
266
- ],
267
- [
268
- "before",
269
- QueryDbListQuery$ReventlessCore.encodeCursor("p-4")
270
- ]
271
- ]));
272
- });
273
- let idsOf = items => Stdlib_Array.filterMap(items, i => str(i, "id")).toSorted(Primitive_string.compare);
274
- globalThis.describe("QueryEnginePostgres index / batch push-downs", () => {
275
- globalThis.test("indexLookup by status = active", async () => {
276
- let items = await Eng.indexLookup(name, "status", "active");
277
- globalThis.expect(idsOf(items)).toEqual([
278
- "p-1",
279
- "p-2",
280
- "p-4"
281
- ]);
282
- });
283
- globalThis.test("indexLookup miss → empty", async () => {
284
- let items = await Eng.indexLookup(name, "status", "nope");
285
- globalThis.expect(items.length).toBe(0);
286
- });
287
- globalThis.test("byIds returns matches, drops missing", async () => {
288
- let items = await Eng.byIds(name, [
289
- "p-1",
290
- "p-3",
291
- "absent"
292
- ]);
293
- globalThis.expect(idsOf(items)).toEqual([
294
- "p-1",
295
- "p-3"
296
- ]);
297
- });
298
- globalThis.test("byIds [] → empty (no query)", async () => {
299
- let items = await Eng.byIds(name, []);
300
- globalThis.expect(items.length).toBe(0);
301
- });
302
- });
303
- let itemsName = "itemsparity";
304
- let mkLine = seq => {
305
- let o = {};
306
- o["id"] = "order-1";
307
- o["seq"] = seq;
308
- return o;
309
- };
310
- let seqs = [
311
- "a",
312
- "b",
313
- "c",
314
- "d",
315
- "e"
316
- ];
317
- globalThis.beforeAll(async () => {
318
- let ops = QueryDbStorage_Postgres$ReventlessPostgres.makeOperations(pool, itemsName, [], "seq");
319
- for (let i = 0, i_finish = seqs.length; i < i_finish; ++i) {
320
- await ops.save("order-1", mkLine(seqs[i]), "Any", undefined);
321
- }
322
- });
323
- let itemSeqs = conn => Stdlib_Array.filterMap(Stdlib_Option.getOr(Stdlib_Option.flatMap(field(conn, "edges"), Stdlib_JSON.Decode.array), []), e => Stdlib_Option.flatMap(field(e, "node"), n => str(n, "seq")));
324
- let pageInfoBool = (conn, key) => Stdlib_Option.getOr(Stdlib_Option.flatMap(field(Stdlib_Option.getOr(field(conn, "pageInfo"), null), key), Stdlib_JSON.Decode.bool), false);
325
- let itemsPage = args => Eng.itemsPage(itemsName, "seq", "order-1", Object.fromEntries(args));
326
- globalThis.describe("QueryEnginePostgres itemsPage (sub-id keyset)", () => {
327
- globalThis.test("bare → all lines ASC, no next page", async () => {
328
- let r = await itemsPage([]);
329
- globalThis.expect(itemSeqs(r)).toEqual([
330
- "a",
331
- "b",
332
- "c",
333
- "d",
334
- "e"
335
- ]);
336
- globalThis.expect(pageInfoBool(r, "hasNextPage")).toBe(false);
337
- });
338
- globalThis.test("first:2 → [a,b], hasNextPage", async () => {
339
- let r = await itemsPage([[
340
- "first",
341
- 2
342
- ]]);
343
- globalThis.expect(itemSeqs(r)).toEqual([
344
- "a",
345
- "b"
346
- ]);
347
- globalThis.expect(pageInfoBool(r, "hasNextPage")).toBe(true);
348
- });
349
- globalThis.test("first:2 after b → [c,d]", async () => {
350
- let r = await itemsPage([
351
- [
352
- "first",
353
- 2
354
- ],
355
- [
356
- "after",
357
- QueryDbListQuery$ReventlessCore.encodeCursor("b")
358
- ]
359
- ]);
360
- globalThis.expect(itemSeqs(r)).toEqual([
361
- "c",
362
- "d"
363
- ]);
364
- });
365
- globalThis.test("order DESC → [e..a]", async () => {
366
- let r = await itemsPage([[
367
- "filter",
368
- Object.fromEntries([[
369
- "order",
370
- "DESC"
371
- ]])
372
- ]]);
373
- globalThis.expect(itemSeqs(r)).toEqual([
374
- "e",
375
- "d",
376
- "c",
377
- "b",
378
- "a"
379
- ]);
380
- });
381
- globalThis.test("filter eq c → [c]", async () => {
382
- let r = await itemsPage([[
383
- "filter",
384
- Object.fromEntries([[
385
- "eq",
386
- "c"
387
- ]])
388
- ]]);
389
- globalThis.expect(itemSeqs(r)).toEqual(["c"]);
390
- });
391
- globalThis.test("filter from b to d → [b,c,d]", async () => {
392
- let r = await itemsPage([[
393
- "filter",
394
- Object.fromEntries([
395
- [
396
- "from",
397
- "b"
398
- ],
399
- [
400
- "to",
401
- "d"
402
- ]
403
- ])
404
- ]]);
405
- globalThis.expect(itemSeqs(r)).toEqual([
406
- "b",
407
- "c",
408
- "d"
409
- ]);
410
- });
411
- globalThis.test("prefix c → [c]", async () => {
412
- let r = await itemsPage([[
413
- "filter",
414
- Object.fromEntries([[
415
- "prefix",
416
- "c"
417
- ]])
418
- ]]);
419
- globalThis.expect(itemSeqs(r)).toEqual(["c"]);
420
- });
421
- globalThis.test("backward last:2 before d → [b,c] (logical ASC)", async () => {
422
- let r = await itemsPage([
423
- [
424
- "last",
425
- 2
426
- ],
427
- [
428
- "before",
429
- QueryDbListQuery$ReventlessCore.encodeCursor("d")
430
- ]
431
- ]);
432
- globalThis.expect(itemSeqs(r)).toEqual([
433
- "b",
434
- "c"
435
- ]);
436
- globalThis.expect(pageInfoBool(r, "hasPreviousPage")).toBe(true);
437
- });
438
- });
439
- } else {
440
- globalThis.test("Postgres list push-down parity (skipped — set PG_URL to run)", () => {
441
- globalThis.expect(true).toBe(true);
442
- });
443
- }
444
-
445
- let cur = QueryDbListQuery$ReventlessCore.encodeCursor;
446
-
447
- export {
448
- capability,
449
- mk,
450
- rows,
451
- seededItems,
452
- field,
453
- str,
454
- norm,
455
- argsOf,
456
- filterOf,
457
- orderBy,
458
- cur,
459
- expectedFor,
460
- }
461
- /* seededItems Not a pure module */