@reventlessdev/reventless-postgres 3.0.0-alpha.1 → 3.0.0-alpha.100
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.
- package/CHANGELOG.md +792 -0
- package/README.md +83 -0
- package/lib/bs/.compiler.log +2 -2
- package/lib/bs/ReventlessPostgres.cmi +0 -0
- package/lib/bs/ReventlessPostgres.cmt +0 -0
- package/lib/bs/ReventlessPostgres.mlmap +4 -1
- package/lib/bs/compiler-info.json +2 -2
- package/lib/bs/src/DcbEventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres-ReventlessPostgres.cmj +0 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres.ast +0 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres.res +25 -340
- package/lib/bs/src/DcbEventLogStorage_Postgres.res.mjs +32 -348
- package/lib/bs/src/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres_Ops.ast +0 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres_Ops.res +350 -0
- package/lib/bs/src/DcbEventLogStorage_Postgres_Ops.res.mjs +380 -0
- package/lib/bs/src/EventLogChangeFeed-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/EventLogChangeFeed-ReventlessPostgres.cmj +0 -0
- package/lib/bs/src/EventLogChangeFeed-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/EventLogChangeFeed.ast +0 -0
- package/lib/bs/src/EventLogChangeFeed.res +187 -0
- package/lib/bs/src/EventLogChangeFeed.res.mjs +134 -0
- package/lib/bs/src/EventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/EventLogStorage_Postgres-ReventlessPostgres.cmj +0 -0
- package/lib/bs/src/EventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/EventLogStorage_Postgres.ast +0 -0
- package/lib/bs/src/EventLogStorage_Postgres.res +12 -170
- package/lib/bs/src/EventLogStorage_Postgres.res.mjs +20 -186
- package/lib/bs/src/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
- package/lib/bs/src/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/EventLogStorage_Postgres_Ops.ast +0 -0
- package/lib/bs/src/EventLogStorage_Postgres_Ops.res +180 -0
- package/lib/bs/src/EventLogStorage_Postgres_Ops.res.mjs +202 -0
- package/lib/bs/src/PgChangeFeed-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/PgChangeFeed-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/PgChangeFeed.ast +0 -0
- package/lib/bs/src/PgChangeFeed.res +6 -1
- package/lib/bs/src/PgChangeFeed.res.mjs +6 -6
- package/lib/bs/src/PgDriver-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/PgDriver-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/PgDriver-ReventlessPostgres.cmti +0 -0
- package/lib/bs/src/PgDriver.ast +0 -0
- package/lib/bs/src/PgDriver.iast +0 -0
- package/lib/bs/src/PgSchema-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/PgSchema-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/PgSchema.ast +0 -0
- package/lib/bs/src/PgSchema.res +36 -2
- package/lib/bs/src/PgSchema.res.mjs +9 -2
- package/lib/bs/src/QueryDbStorage_Postgres-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/QueryDbStorage_Postgres-ReventlessPostgres.cmj +0 -0
- package/lib/bs/src/QueryDbStorage_Postgres-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/QueryDbStorage_Postgres.ast +0 -0
- package/lib/bs/src/QueryDbStorage_Postgres.res +11 -213
- package/lib/bs/src/QueryDbStorage_Postgres.res.mjs +27 -191
- package/lib/bs/src/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
- package/lib/bs/src/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/QueryDbStorage_Postgres_Ops.ast +0 -0
- package/lib/bs/src/QueryDbStorage_Postgres_Ops.res +229 -0
- package/lib/bs/src/QueryDbStorage_Postgres_Ops.res.mjs +222 -0
- package/lib/bs/src/QueryEnginePostgres-ReventlessPostgres.cmi +0 -0
- package/lib/bs/src/QueryEnginePostgres-ReventlessPostgres.cmt +0 -0
- package/lib/bs/src/QueryEnginePostgres.ast +0 -0
- package/lib/bs/src/QueryEnginePostgres.res +280 -7
- package/lib/bs/src/QueryEnginePostgres.res.mjs +180 -15
- package/lib/bs/tests/PostgresIntegrationTest-ReventlessPostgres.cmi +0 -0
- package/lib/bs/tests/PostgresIntegrationTest-ReventlessPostgres.cmt +0 -0
- package/lib/bs/tests/PostgresIntegrationTest.ast +0 -0
- package/lib/bs/tests/PostgresIntegrationTest.res +68 -0
- package/lib/bs/tests/PostgresIntegrationTest.res.mjs +49 -0
- package/lib/bs/tests/QueryEnginePostgresListPageTest-ReventlessPostgres.cmi +0 -0
- package/lib/bs/tests/QueryEnginePostgresListPageTest-ReventlessPostgres.cmj +0 -0
- package/lib/bs/tests/QueryEnginePostgresListPageTest-ReventlessPostgres.cmt +0 -0
- package/lib/bs/tests/QueryEnginePostgresListPageTest.ast +0 -0
- package/lib/bs/tests/QueryEnginePostgresListPageTest.res +312 -0
- package/lib/bs/tests/QueryEnginePostgresListPageTest.res.mjs +461 -0
- package/lib/ocaml/.compiler.log +2 -2
- package/lib/ocaml/DcbEventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/DcbEventLogStorage_Postgres-ReventlessPostgres.cmj +0 -0
- package/lib/ocaml/DcbEventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/DcbEventLogStorage_Postgres.ast +0 -0
- package/lib/ocaml/DcbEventLogStorage_Postgres.res +25 -340
- package/lib/ocaml/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
- package/lib/ocaml/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/DcbEventLogStorage_Postgres_Ops.ast +0 -0
- package/lib/ocaml/DcbEventLogStorage_Postgres_Ops.res +350 -0
- package/lib/ocaml/EventLogChangeFeed-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/EventLogChangeFeed-ReventlessPostgres.cmj +0 -0
- package/lib/ocaml/EventLogChangeFeed-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/EventLogChangeFeed.ast +0 -0
- package/lib/ocaml/EventLogChangeFeed.res +187 -0
- package/lib/ocaml/EventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/EventLogStorage_Postgres-ReventlessPostgres.cmj +0 -0
- package/lib/ocaml/EventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/EventLogStorage_Postgres.ast +0 -0
- package/lib/ocaml/EventLogStorage_Postgres.res +12 -170
- package/lib/ocaml/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
- package/lib/ocaml/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/EventLogStorage_Postgres_Ops.ast +0 -0
- package/lib/ocaml/EventLogStorage_Postgres_Ops.res +180 -0
- package/lib/ocaml/PgChangeFeed-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/PgChangeFeed-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/PgChangeFeed.ast +0 -0
- package/lib/ocaml/PgChangeFeed.res +6 -1
- package/lib/ocaml/PgDriver-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/PgDriver-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/PgDriver-ReventlessPostgres.cmti +0 -0
- package/lib/ocaml/PgDriver.ast +0 -0
- package/lib/ocaml/PgDriver.iast +0 -0
- package/lib/ocaml/PgSchema-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/PgSchema-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/PgSchema.ast +0 -0
- package/lib/ocaml/PgSchema.res +36 -2
- package/lib/ocaml/PostgresIntegrationTest.res +68 -0
- package/lib/ocaml/QueryDbStorage_Postgres-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/QueryDbStorage_Postgres-ReventlessPostgres.cmj +0 -0
- package/lib/ocaml/QueryDbStorage_Postgres-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/QueryDbStorage_Postgres.ast +0 -0
- package/lib/ocaml/QueryDbStorage_Postgres.res +11 -213
- package/lib/ocaml/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
- package/lib/ocaml/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/QueryDbStorage_Postgres_Ops.ast +0 -0
- package/lib/ocaml/QueryDbStorage_Postgres_Ops.res +229 -0
- package/lib/ocaml/QueryEnginePostgres-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/QueryEnginePostgres-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/QueryEnginePostgres.ast +0 -0
- package/lib/ocaml/QueryEnginePostgres.res +280 -7
- package/lib/ocaml/QueryEnginePostgresListPageTest.res +312 -0
- package/lib/ocaml/ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/ReventlessPostgres.mlmap +5 -0
- package/package.json +12 -12
- package/rescript.json +2 -1
- package/src/DcbEventLogStorage_Postgres.res +25 -340
- package/src/DcbEventLogStorage_Postgres.res.mjs +32 -348
- package/src/DcbEventLogStorage_Postgres_Ops.res +350 -0
- package/src/DcbEventLogStorage_Postgres_Ops.res.mjs +380 -0
- package/src/EventLogChangeFeed.res +187 -0
- package/src/EventLogChangeFeed.res.mjs +134 -0
- package/src/EventLogStorage_Postgres.res +12 -170
- package/src/EventLogStorage_Postgres.res.mjs +20 -186
- package/src/EventLogStorage_Postgres_Ops.res +180 -0
- package/src/EventLogStorage_Postgres_Ops.res.mjs +202 -0
- package/src/PgChangeFeed.res +6 -1
- package/src/PgChangeFeed.res.mjs +6 -6
- package/src/PgSchema.res +36 -2
- package/src/PgSchema.res.mjs +9 -2
- package/src/QueryDbStorage_Postgres.res +11 -213
- package/src/QueryDbStorage_Postgres.res.mjs +27 -191
- package/src/QueryDbStorage_Postgres_Ops.res +229 -0
- package/src/QueryDbStorage_Postgres_Ops.res.mjs +222 -0
- package/src/QueryEnginePostgres.res +280 -7
- package/src/QueryEnginePostgres.res.mjs +180 -15
- package/tests/PostgresIntegrationTest.res +68 -0
- package/tests/QueryEnginePostgresListPageTest.res +312 -0
- package/lib/ocaml/PostgresIntegrationTest-ReventlessPostgres.cmi +0 -0
- package/lib/ocaml/PostgresIntegrationTest-ReventlessPostgres.cmj +0 -0
- package/lib/ocaml/PostgresIntegrationTest-ReventlessPostgres.cmt +0 -0
- package/lib/ocaml/PostgresIntegrationTest.ast +0 -0
- package/tests/PostgresIntegrationTest.res.mjs +0 -328
|
@@ -0,0 +1,312 @@
|
|
|
1
|
+
// Parity harness for the Postgres connection-list push-down (B3.2a-1).
|
|
2
|
+
//
|
|
3
|
+
// `QueryEnginePostgres.listPage` builds `item->>'field'` predicates + keyset
|
|
4
|
+
// WHERE + ORDER BY … LIMIT to serve a page without materialising the whole read
|
|
5
|
+
// model. Its result MUST equal `QueryDbListQuery.run` (the shared spec in
|
|
6
|
+
// reventless-core that the in-memory backend, the SQLite push-down, and the
|
|
7
|
+
// resolver fallback all use) for every shape it claims to handle. This is the
|
|
8
|
+
// Postgres twin of reventless-local's `QueryDbListPushdownParityTest` — same
|
|
9
|
+
// capability, same rows, same (data, args) matrix — so all three backends are
|
|
10
|
+
// held to one spec.
|
|
11
|
+
//
|
|
12
|
+
// Skipped unless PG_URL is set (like PostgresIntegrationTest), so the default
|
|
13
|
+
// `pnpm test` stays dependency-free. Run with e.g.:
|
|
14
|
+
// PG_URL=postgres://postgres:postgres@localhost:5432/postgres pnpm test
|
|
15
|
+
|
|
16
|
+
open JestGlobals
|
|
17
|
+
open ReventlessCore
|
|
18
|
+
|
|
19
|
+
@val external processEnv: dict<string> = "process.env"
|
|
20
|
+
|
|
21
|
+
let capability: GraphQL_FragmentGenerator.serverCapability = {
|
|
22
|
+
filterFields: [
|
|
23
|
+
{name: "status", gqlType: "String", range: false},
|
|
24
|
+
{name: "qty", gqlType: "Int", range: true},
|
|
25
|
+
],
|
|
26
|
+
sortFields: ["name", "qty", "status"],
|
|
27
|
+
}
|
|
28
|
+
|
|
29
|
+
let mk = (id, status, name, qty) => {
|
|
30
|
+
let o = Dict.make()
|
|
31
|
+
o->Dict.set("id", JSON.Encode.string(id))
|
|
32
|
+
o->Dict.set("status", JSON.Encode.string(status))
|
|
33
|
+
o->Dict.set("name", JSON.Encode.string(name))
|
|
34
|
+
o->Dict.set("qty", JSON.Encode.int(qty))
|
|
35
|
+
JSON.Encode.object(o)
|
|
36
|
+
}
|
|
37
|
+
|
|
38
|
+
// Names differ from id-order; status has duplicates (tiebreak); qty exercises the
|
|
39
|
+
// numeric-field-as-string comparison the push-down must match.
|
|
40
|
+
let rows = [
|
|
41
|
+
("p-1", "active", "Charlie", 3),
|
|
42
|
+
("p-2", "active", "Alpha", 1),
|
|
43
|
+
("p-3", "inactive", "Echo", 5),
|
|
44
|
+
("p-4", "active", "Bravo", 2),
|
|
45
|
+
("p-5", "inactive", "Delta", 4),
|
|
46
|
+
]
|
|
47
|
+
|
|
48
|
+
// The exact items seeded, in memory — the spec runs over these (equivalent to a
|
|
49
|
+
// full scan of the table, since every save upserts one of these by id).
|
|
50
|
+
let seededItems = rows->Array.map(((id, status, name, qty)) => mk(id, status, name, qty))
|
|
51
|
+
|
|
52
|
+
// ── normalise a connection to a comparable value ────────────────────────────
|
|
53
|
+
type normEdge = {id: string, cursor: string}
|
|
54
|
+
type normConn = {
|
|
55
|
+
edges: array<normEdge>,
|
|
56
|
+
hasNext: bool,
|
|
57
|
+
hasPrev: bool,
|
|
58
|
+
startCursor: option<string>,
|
|
59
|
+
endCursor: option<string>,
|
|
60
|
+
}
|
|
61
|
+
|
|
62
|
+
let field = (j, k) => j->JSON.Decode.object->Option.flatMap(d => d->Dict.get(k))
|
|
63
|
+
let str = (j, k) => j->field(k)->Option.flatMap(JSON.Decode.string)
|
|
64
|
+
|
|
65
|
+
let norm = (conn: JSON.t): normConn => {
|
|
66
|
+
let edges =
|
|
67
|
+
conn
|
|
68
|
+
->field("edges")
|
|
69
|
+
->Option.flatMap(JSON.Decode.array)
|
|
70
|
+
->Option.getOr([])
|
|
71
|
+
->Array.map(e => {
|
|
72
|
+
id: e->field("node")->Option.flatMap(n => n->str("id"))->Option.getOr(""),
|
|
73
|
+
cursor: e->str("cursor")->Option.getOr(""),
|
|
74
|
+
})
|
|
75
|
+
let pi = conn->field("pageInfo")->Option.getOr(JSON.Encode.null)
|
|
76
|
+
{
|
|
77
|
+
edges,
|
|
78
|
+
hasNext: pi->field("hasNextPage")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false),
|
|
79
|
+
hasPrev: pi->field("hasPreviousPage")->Option.flatMap(JSON.Decode.bool)->Option.getOr(false),
|
|
80
|
+
startCursor: pi->str("startCursor"),
|
|
81
|
+
endCursor: pi->str("endCursor"),
|
|
82
|
+
}
|
|
83
|
+
}
|
|
84
|
+
|
|
85
|
+
let argsOf = (entries: array<(string, JSON.t)>): dict<JSON.t> => Dict.fromArray(entries)
|
|
86
|
+
let filterOf = (entries: array<(string, JSON.t)>): JSON.t =>
|
|
87
|
+
JSON.Encode.object(Dict.fromArray(entries))
|
|
88
|
+
let orderBy = (f, dir) =>
|
|
89
|
+
JSON.Encode.object(
|
|
90
|
+
Dict.fromArray([("field", JSON.Encode.string(f)), ("direction", JSON.Encode.string(dir))]),
|
|
91
|
+
)
|
|
92
|
+
let cur = QueryDbListQuery.encodeCursor
|
|
93
|
+
|
|
94
|
+
let expectedFor = argsDict =>
|
|
95
|
+
QueryDbListQuery.run(
|
|
96
|
+
~items=seededItems,
|
|
97
|
+
~argsDict,
|
|
98
|
+
~capability,
|
|
99
|
+
~labelField="name",
|
|
100
|
+
~decodeLocalId=_ => None,
|
|
101
|
+
)->norm
|
|
102
|
+
|
|
103
|
+
switch processEnv->Dict.get("PG_URL") {
|
|
104
|
+
| None =>
|
|
105
|
+
testSync("Postgres list push-down parity (skipped — set PG_URL to run)", () =>
|
|
106
|
+
expect(true)->toBe(true)
|
|
107
|
+
)
|
|
108
|
+
| Some(url) =>
|
|
109
|
+
let pool = PgDriver.makePool({connectionString: url})
|
|
110
|
+
module Eng = QueryEnginePostgres.Make({
|
|
111
|
+
let pool = pool
|
|
112
|
+
})
|
|
113
|
+
let name = "listparity"
|
|
114
|
+
|
|
115
|
+
// Seed via the real storage ops (upsert by id → table converges to the 5 rows).
|
|
116
|
+
beforeAllAsync(async () => {
|
|
117
|
+
let ops = QueryDbStorage_Postgres.makeOperations(~pool, ~name, ~indexes=[], ~subIdField=None)
|
|
118
|
+
for i in 0 to rows->Array.length - 1 {
|
|
119
|
+
let (id, status, nm, qty) = rows->Array.getUnsafe(i)
|
|
120
|
+
let _ = await ops.save(id, mk(id, status, nm, qty), QueryDb.Any, None)
|
|
121
|
+
}
|
|
122
|
+
})
|
|
123
|
+
afterAll(() => {
|
|
124
|
+
let _ = pool->PgDriver.endPool
|
|
125
|
+
})
|
|
126
|
+
|
|
127
|
+
// Assert the push-down serves this shape AND matches the spec exactly.
|
|
128
|
+
let checkPushed = async (~label, args) => {
|
|
129
|
+
let argsDict = argsOf(args)
|
|
130
|
+
switch await Eng.listPage(~readModelName=name, ~argsDict, ~capability, ~labelField="name") {
|
|
131
|
+
| Some(actual) => expect(actual->norm)->toEqual(expectedFor(argsDict))
|
|
132
|
+
| None => expect("push-down for " ++ label)->toBe("returned None")
|
|
133
|
+
}
|
|
134
|
+
}
|
|
135
|
+
|
|
136
|
+
// Assert the push-down declines this shape (resolver falls back to the spec).
|
|
137
|
+
let checkFallback = async args => {
|
|
138
|
+
let r = await Eng.listPage(~readModelName=name, ~argsDict=argsOf(args), ~capability, ~labelField="name")
|
|
139
|
+
expect(r->Option.isSome)->toBe(false)
|
|
140
|
+
}
|
|
141
|
+
|
|
142
|
+
describe("QueryDb list push-down parity (Postgres ≡ QueryDbListQuery spec)", () => {
|
|
143
|
+
testPromise("bare page", () => checkPushed(~label="bare", []))
|
|
144
|
+
testPromise("first:2", () => checkPushed(~label="first", [("first", JSON.Encode.int(2))]))
|
|
145
|
+
testPromise("first:2 + after", () =>
|
|
146
|
+
checkPushed(
|
|
147
|
+
~label="after",
|
|
148
|
+
[("first", JSON.Encode.int(2)), ("after", JSON.Encode.string(cur("p-2")))],
|
|
149
|
+
)
|
|
150
|
+
)
|
|
151
|
+
testPromise("statusEq active", () =>
|
|
152
|
+
checkPushed(~label="eq", [("filter", filterOf([("statusEq", JSON.Encode.string("active"))]))])
|
|
153
|
+
)
|
|
154
|
+
testPromise("statusEq active + first:2", () =>
|
|
155
|
+
checkPushed(
|
|
156
|
+
~label="eq+first",
|
|
157
|
+
[
|
|
158
|
+
("filter", filterOf([("statusEq", JSON.Encode.string("active"))])),
|
|
159
|
+
("first", JSON.Encode.int(2)),
|
|
160
|
+
],
|
|
161
|
+
)
|
|
162
|
+
)
|
|
163
|
+
testPromise("orderBy name ASC", () =>
|
|
164
|
+
checkPushed(~label="order-asc", [("orderBy", orderBy("name", "ASC"))])
|
|
165
|
+
)
|
|
166
|
+
testPromise("orderBy name DESC", () =>
|
|
167
|
+
checkPushed(~label="order-desc", [("orderBy", orderBy("name", "DESC"))])
|
|
168
|
+
)
|
|
169
|
+
testPromise("orderBy name DESC + first:2 + after", () =>
|
|
170
|
+
checkPushed(
|
|
171
|
+
~label="order-desc-after",
|
|
172
|
+
[
|
|
173
|
+
("orderBy", orderBy("name", "DESC")),
|
|
174
|
+
("first", JSON.Encode.int(2)),
|
|
175
|
+
("after", JSON.Encode.string(cur("Delta"))),
|
|
176
|
+
],
|
|
177
|
+
)
|
|
178
|
+
)
|
|
179
|
+
// status has duplicate values → exercises the id tiebreak in ORDER BY.
|
|
180
|
+
testPromise("orderBy status ASC (tiebreak by id)", () =>
|
|
181
|
+
checkPushed(~label="order-tiebreak", [("orderBy", orderBy("status", "ASC"))])
|
|
182
|
+
)
|
|
183
|
+
// qty is numeric → exercises `item->>'qty'` (text) vs Float.toString string parity.
|
|
184
|
+
testPromise("qty range From/To (numeric-as-string)", () =>
|
|
185
|
+
checkPushed(
|
|
186
|
+
~label="range",
|
|
187
|
+
[
|
|
188
|
+
(
|
|
189
|
+
"filter",
|
|
190
|
+
filterOf([("qtyFrom", JSON.Encode.string("2")), ("qtyTo", JSON.Encode.string("4"))]),
|
|
191
|
+
),
|
|
192
|
+
],
|
|
193
|
+
)
|
|
194
|
+
)
|
|
195
|
+
testPromise("orderBy qty ASC (numeric-as-string sort)", () =>
|
|
196
|
+
checkPushed(~label="order-qty", [("orderBy", orderBy("qty", "ASC"))])
|
|
197
|
+
)
|
|
198
|
+
|
|
199
|
+
// Shapes the push-down declines → resolver uses the JS fallback.
|
|
200
|
+
testPromise("search → fallback", () =>
|
|
201
|
+
checkFallback([("filter", filterOf([("search", JSON.Encode.string("alp"))]))])
|
|
202
|
+
)
|
|
203
|
+
testPromise("searchPrefix → fallback", () =>
|
|
204
|
+
checkFallback([("filter", filterOf([("searchPrefix", JSON.Encode.string("A"))]))])
|
|
205
|
+
)
|
|
206
|
+
testPromise("ids → fallback", () =>
|
|
207
|
+
checkFallback([("filter", filterOf([("ids", JSON.Encode.array([JSON.Encode.string("p-1")]))]))])
|
|
208
|
+
)
|
|
209
|
+
testPromise("backward (last/before) → fallback", () =>
|
|
210
|
+
checkFallback([("last", JSON.Encode.int(2)), ("before", JSON.Encode.string(cur("p-4")))])
|
|
211
|
+
)
|
|
212
|
+
})
|
|
213
|
+
|
|
214
|
+
// ── indexLookup / byIds push-downs ────────────────────────────────────────
|
|
215
|
+
let idsOf = (items: array<JSON.t>): array<string> =>
|
|
216
|
+
items->Array.filterMap(i => i->str("id"))->Array.toSorted(String.compare)
|
|
217
|
+
|
|
218
|
+
describe("QueryEnginePostgres index / batch push-downs", () => {
|
|
219
|
+
testPromise("indexLookup by status = active", async () => {
|
|
220
|
+
let items = await Eng.indexLookup(~readModelName=name, "status", "active")
|
|
221
|
+
expect(items->idsOf)->toEqual(["p-1", "p-2", "p-4"])
|
|
222
|
+
})
|
|
223
|
+
testPromise("indexLookup miss → empty", async () => {
|
|
224
|
+
let items = await Eng.indexLookup(~readModelName=name, "status", "nope")
|
|
225
|
+
expect(items->Array.length)->toBe(0)
|
|
226
|
+
})
|
|
227
|
+
testPromise("byIds returns matches, drops missing", async () => {
|
|
228
|
+
let items = await Eng.byIds(~readModelName=name, ["p-1", "p-3", "absent"])
|
|
229
|
+
expect(items->idsOf)->toEqual(["p-1", "p-3"])
|
|
230
|
+
})
|
|
231
|
+
testPromise("byIds [] → empty (no query)", async () => {
|
|
232
|
+
let items = await Eng.byIds(~readModelName=name, [])
|
|
233
|
+
expect(items->Array.length)->toBe(0)
|
|
234
|
+
})
|
|
235
|
+
})
|
|
236
|
+
|
|
237
|
+
// ── itemsPage (sub-id connection) ─────────────────────────────────────────
|
|
238
|
+
// A sub-id read model: partition "order-1" holds 5 lines keyed by `seq`.
|
|
239
|
+
let itemsName = "itemsparity"
|
|
240
|
+
let mkLine = seq => {
|
|
241
|
+
let o = Dict.make()
|
|
242
|
+
o->Dict.set("id", JSON.Encode.string("order-1"))
|
|
243
|
+
o->Dict.set("seq", JSON.Encode.string(seq))
|
|
244
|
+
JSON.Encode.object(o)
|
|
245
|
+
}
|
|
246
|
+
let seqs = ["a", "b", "c", "d", "e"]
|
|
247
|
+
beforeAllAsync(async () => {
|
|
248
|
+
let ops = QueryDbStorage_Postgres.makeOperations(
|
|
249
|
+
~pool,
|
|
250
|
+
~name=itemsName,
|
|
251
|
+
~indexes=[],
|
|
252
|
+
~subIdField=Some("seq"),
|
|
253
|
+
)
|
|
254
|
+
for i in 0 to seqs->Array.length - 1 {
|
|
255
|
+
let _ = await ops.save("order-1", mkLine(seqs->Array.getUnsafe(i)), QueryDb.Any, None)
|
|
256
|
+
}
|
|
257
|
+
})
|
|
258
|
+
|
|
259
|
+
// Extract node `seq` values in edge order.
|
|
260
|
+
let itemSeqs = (conn: JSON.t) =>
|
|
261
|
+
conn
|
|
262
|
+
->field("edges")
|
|
263
|
+
->Option.flatMap(JSON.Decode.array)
|
|
264
|
+
->Option.getOr([])
|
|
265
|
+
->Array.filterMap(e => e->field("node")->Option.flatMap(n => n->str("seq")))
|
|
266
|
+
|
|
267
|
+
let pageInfoBool = (conn, key) =>
|
|
268
|
+
conn->field("pageInfo")->Option.getOr(JSON.Encode.null)->field(key)->Option.flatMap(JSON.Decode.bool)->Option.getOr(false)
|
|
269
|
+
|
|
270
|
+
let itemsPage = args =>
|
|
271
|
+
Eng.itemsPage(~readModelName=itemsName, ~subIdField="seq", ~id="order-1", ~argsDict=argsOf(args))
|
|
272
|
+
|
|
273
|
+
describe("QueryEnginePostgres itemsPage (sub-id keyset)", () => {
|
|
274
|
+
testPromise("bare → all lines ASC, no next page", async () => {
|
|
275
|
+
let r = await itemsPage([])
|
|
276
|
+
expect(r->itemSeqs)->toEqual(["a", "b", "c", "d", "e"])
|
|
277
|
+
expect(pageInfoBool(r, "hasNextPage"))->toBe(false)
|
|
278
|
+
})
|
|
279
|
+
testPromise("first:2 → [a,b], hasNextPage", async () => {
|
|
280
|
+
let r = await itemsPage([("first", JSON.Encode.int(2))])
|
|
281
|
+
expect(r->itemSeqs)->toEqual(["a", "b"])
|
|
282
|
+
expect(pageInfoBool(r, "hasNextPage"))->toBe(true)
|
|
283
|
+
})
|
|
284
|
+
testPromise("first:2 after b → [c,d]", async () => {
|
|
285
|
+
let r = await itemsPage([("first", JSON.Encode.int(2)), ("after", JSON.Encode.string(cur("b")))])
|
|
286
|
+
expect(r->itemSeqs)->toEqual(["c", "d"])
|
|
287
|
+
})
|
|
288
|
+
testPromise("order DESC → [e..a]", async () => {
|
|
289
|
+
let r = await itemsPage([("filter", filterOf([("order", JSON.Encode.string("DESC"))]))])
|
|
290
|
+
expect(r->itemSeqs)->toEqual(["e", "d", "c", "b", "a"])
|
|
291
|
+
})
|
|
292
|
+
testPromise("filter eq c → [c]", async () => {
|
|
293
|
+
let r = await itemsPage([("filter", filterOf([("eq", JSON.Encode.string("c"))]))])
|
|
294
|
+
expect(r->itemSeqs)->toEqual(["c"])
|
|
295
|
+
})
|
|
296
|
+
testPromise("filter from b to d → [b,c,d]", async () => {
|
|
297
|
+
let r = await itemsPage([
|
|
298
|
+
("filter", filterOf([("from", JSON.Encode.string("b")), ("to", JSON.Encode.string("d"))])),
|
|
299
|
+
])
|
|
300
|
+
expect(r->itemSeqs)->toEqual(["b", "c", "d"])
|
|
301
|
+
})
|
|
302
|
+
testPromise("prefix c → [c]", async () => {
|
|
303
|
+
let r = await itemsPage([("filter", filterOf([("prefix", JSON.Encode.string("c"))]))])
|
|
304
|
+
expect(r->itemSeqs)->toEqual(["c"])
|
|
305
|
+
})
|
|
306
|
+
testPromise("backward last:2 before d → [b,c] (logical ASC)", async () => {
|
|
307
|
+
let r = await itemsPage([("last", JSON.Encode.int(2)), ("before", JSON.Encode.string(cur("d")))])
|
|
308
|
+
expect(r->itemSeqs)->toEqual(["b", "c"])
|
|
309
|
+
expect(pageInfoBool(r, "hasPreviousPage"))->toBe(true)
|
|
310
|
+
})
|
|
311
|
+
})
|
|
312
|
+
}
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
@@ -1,328 +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 EventLogStorage_Postgres$ReventlessPostgres from "../src/EventLogStorage_Postgres.res.mjs";
|
|
10
|
-
import * as DcbEventLogStorage_Postgres$ReventlessPostgres from "../src/DcbEventLogStorage_Postgres.res.mjs";
|
|
11
|
-
|
|
12
|
-
let opts = {};
|
|
13
|
-
|
|
14
|
-
function jsonObj(pairs) {
|
|
15
|
-
return Object.fromEntries(pairs);
|
|
16
|
-
}
|
|
17
|
-
|
|
18
|
-
function stored(eventType, tags, data) {
|
|
19
|
-
return {
|
|
20
|
-
eventType: eventType,
|
|
21
|
-
data: data,
|
|
22
|
-
tags: tags,
|
|
23
|
-
meta: Message$ReventlessCore.generateMeta("pg-test", undefined, undefined, undefined, undefined, undefined, undefined, undefined)
|
|
24
|
-
};
|
|
25
|
-
}
|
|
26
|
-
|
|
27
|
-
function evJson(msgId, v) {
|
|
28
|
-
return Object.fromEntries([
|
|
29
|
-
[
|
|
30
|
-
"msgId",
|
|
31
|
-
msgId
|
|
32
|
-
],
|
|
33
|
-
[
|
|
34
|
-
"v",
|
|
35
|
-
v
|
|
36
|
-
]
|
|
37
|
-
]);
|
|
38
|
-
}
|
|
39
|
-
|
|
40
|
-
let url = process.env["PG_URL"];
|
|
41
|
-
|
|
42
|
-
if (url !== undefined) {
|
|
43
|
-
let pool = PgDriver$ReventlessPostgres.makePool({
|
|
44
|
-
connectionString: url
|
|
45
|
-
});
|
|
46
|
-
globalThis.beforeAll(async () => {
|
|
47
|
-
await PgSchema$ReventlessPostgres.ensureSchema(pool);
|
|
48
|
-
return await PgSchema$ReventlessPostgres.truncateAll(pool);
|
|
49
|
-
});
|
|
50
|
-
globalThis.afterAll(() => {
|
|
51
|
-
PgDriver$ReventlessPostgres.endPool(pool);
|
|
52
|
-
});
|
|
53
|
-
globalThis.describe("classic OCC event log", () => {
|
|
54
|
-
globalThis.test("append, replay, and conflict on wrong seq", async () => {
|
|
55
|
-
let match = EventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "ct-orders", opts, undefined);
|
|
56
|
-
let ops = match[1];
|
|
57
|
-
let r0 = await ops.append(0, "agg-1", [
|
|
58
|
-
evJson("m0", 1),
|
|
59
|
-
evJson("m1", 2)
|
|
60
|
-
]);
|
|
61
|
-
if (r0.TAG === "Ok") {
|
|
62
|
-
globalThis.expect(true).toBe(true);
|
|
63
|
-
} else {
|
|
64
|
-
globalThis.expect("append").toBe("ok");
|
|
65
|
-
}
|
|
66
|
-
let rStale = await ops.append(0, "agg-1", [evJson("m2", 3)]);
|
|
67
|
-
if (rStale.TAG === "Ok") {
|
|
68
|
-
globalThis.expect("stale").toBe("conflict");
|
|
69
|
-
} else {
|
|
70
|
-
let tmp = rStale._0;
|
|
71
|
-
if (typeof tmp !== "object") {
|
|
72
|
-
globalThis.expect(true).toBe(true);
|
|
73
|
-
} else {
|
|
74
|
-
globalThis.expect("stale").toBe("conflict");
|
|
75
|
-
}
|
|
76
|
-
}
|
|
77
|
-
let rGap = await ops.append(5, "agg-1", [evJson("m3", 4)]);
|
|
78
|
-
if (rGap.TAG === "Ok") {
|
|
79
|
-
globalThis.expect("gap").toBe("conflict");
|
|
80
|
-
} else {
|
|
81
|
-
let tmp$1 = rGap._0;
|
|
82
|
-
if (typeof tmp$1 !== "object") {
|
|
83
|
-
globalThis.expect(true).toBe(true);
|
|
84
|
-
} else {
|
|
85
|
-
globalThis.expect("gap").toBe("conflict");
|
|
86
|
-
}
|
|
87
|
-
}
|
|
88
|
-
let rNext = await ops.append(2, "agg-1", [evJson("m4", 5)]);
|
|
89
|
-
if (rNext.TAG === "Ok") {
|
|
90
|
-
globalThis.expect(true).toBe(true);
|
|
91
|
-
} else {
|
|
92
|
-
globalThis.expect("next").toBe("ok");
|
|
93
|
-
}
|
|
94
|
-
let evs = await ops.replay("agg-1");
|
|
95
|
-
globalThis.expect(evs.length).toBe(3);
|
|
96
|
-
let rEmpty = await ops.append(3, "agg-1", []);
|
|
97
|
-
if (rEmpty.TAG === "Ok") {
|
|
98
|
-
globalThis.expect(true).toBe(true);
|
|
99
|
-
return;
|
|
100
|
-
}
|
|
101
|
-
globalThis.expect("empty").toBe("ok");
|
|
102
|
-
});
|
|
103
|
-
});
|
|
104
|
-
globalThis.describe("DCB event log", () => {
|
|
105
|
-
let makeLog = name => DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, name, [], {
|
|
106
|
-
TAG: "Simple",
|
|
107
|
-
_0: {
|
|
108
|
-
key: "k"
|
|
109
|
-
}
|
|
110
|
-
}, undefined, opts, undefined, undefined);
|
|
111
|
-
globalThis.test("append + read round-trips events with tags", async () => {
|
|
112
|
-
let match = makeLog("dcb-rt");
|
|
113
|
-
let ops = match[1];
|
|
114
|
-
let e1 = stored("ItemAdded", [{
|
|
115
|
-
key: "itemId",
|
|
116
|
-
value: "x1"
|
|
117
|
-
}], Object.fromEntries([[
|
|
118
|
-
"n",
|
|
119
|
-
"w"
|
|
120
|
-
]]));
|
|
121
|
-
let r = await ops.append([e1], undefined);
|
|
122
|
-
if (r.TAG === "Ok") {
|
|
123
|
-
globalThis.expect(true).toBe(true);
|
|
124
|
-
} else {
|
|
125
|
-
globalThis.expect(r._0).toBe("ok");
|
|
126
|
-
}
|
|
127
|
-
let read = await ops.read([], undefined);
|
|
128
|
-
globalThis.expect(read.events.length).toBe(1);
|
|
129
|
-
let first = read.events[0];
|
|
130
|
-
globalThis.expect(first.eventType).toBe("ItemAdded");
|
|
131
|
-
globalThis.expect(first.tags[0].key).toBe("itemId");
|
|
132
|
-
globalThis.expect(first.tags[0].value).toBe("x1");
|
|
133
|
-
});
|
|
134
|
-
globalThis.test("conditional append conflicts when the boundary already has an event", async () => {
|
|
135
|
-
let match = makeLog("dcb-cond");
|
|
136
|
-
let ops = match[1];
|
|
137
|
-
let mk = who => stored("Reserved", [{
|
|
138
|
-
key: "seatId",
|
|
139
|
-
value: "s1"
|
|
140
|
-
}], Object.fromEntries([[
|
|
141
|
-
"who",
|
|
142
|
-
who
|
|
143
|
-
]]));
|
|
144
|
-
let r1 = await ops.append([mk("a")], undefined);
|
|
145
|
-
if (r1.TAG === "Ok") {
|
|
146
|
-
globalThis.expect(true).toBe(true);
|
|
147
|
-
} else {
|
|
148
|
-
globalThis.expect("first").toBe("ok");
|
|
149
|
-
}
|
|
150
|
-
let cond_query = [{
|
|
151
|
-
eventTypes: ["Reserved"],
|
|
152
|
-
tags: [{
|
|
153
|
-
key: "seatId",
|
|
154
|
-
value: "s1"
|
|
155
|
-
}]
|
|
156
|
-
}];
|
|
157
|
-
let cond = {
|
|
158
|
-
query: cond_query
|
|
159
|
-
};
|
|
160
|
-
let r2 = await ops.append([mk("b")], cond);
|
|
161
|
-
if (r2.TAG === "Ok") {
|
|
162
|
-
globalThis.expect("second").toBe("conflict");
|
|
163
|
-
return;
|
|
164
|
-
}
|
|
165
|
-
let tmp = r2._0;
|
|
166
|
-
if (typeof tmp !== "object") {
|
|
167
|
-
globalThis.expect(true).toBe(true);
|
|
168
|
-
return;
|
|
169
|
-
}
|
|
170
|
-
globalThis.expect("second").toBe("conflict");
|
|
171
|
-
});
|
|
172
|
-
let writeSkew = (strategy, logName) => {
|
|
173
|
-
globalThis.test(`write-skew: exactly one of two concurrent appends wins (` + logName + `)`, async () => {
|
|
174
|
-
let match = DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, logName, [], {
|
|
175
|
-
TAG: "Simple",
|
|
176
|
-
_0: {
|
|
177
|
-
key: "k"
|
|
178
|
-
}
|
|
179
|
-
}, undefined, opts, strategy, undefined);
|
|
180
|
-
let ops = match[1];
|
|
181
|
-
let cond_query = [{
|
|
182
|
-
eventTypes: ["Reserved"],
|
|
183
|
-
tags: [{
|
|
184
|
-
key: "seatId",
|
|
185
|
-
value: "hot"
|
|
186
|
-
}]
|
|
187
|
-
}];
|
|
188
|
-
let cond = {
|
|
189
|
-
query: cond_query
|
|
190
|
-
};
|
|
191
|
-
let mk = who => stored("Reserved", [{
|
|
192
|
-
key: "seatId",
|
|
193
|
-
value: "hot"
|
|
194
|
-
}], Object.fromEntries([[
|
|
195
|
-
"who",
|
|
196
|
-
who
|
|
197
|
-
]]));
|
|
198
|
-
let p1 = ops.append([mk("a")], cond);
|
|
199
|
-
let p2 = ops.append([mk("b")], cond);
|
|
200
|
-
let r1 = await p1;
|
|
201
|
-
let r2 = await p2;
|
|
202
|
-
let isOk = r => r.TAG === "Ok";
|
|
203
|
-
let isConflict = r => Primitive_object.equal(r, {
|
|
204
|
-
TAG: "Error",
|
|
205
|
-
_0: "Conflict"
|
|
206
|
-
});
|
|
207
|
-
let oks = [
|
|
208
|
-
r1,
|
|
209
|
-
r2
|
|
210
|
-
].filter(isOk).length;
|
|
211
|
-
let conflicts = [
|
|
212
|
-
r1,
|
|
213
|
-
r2
|
|
214
|
-
].filter(isConflict).length;
|
|
215
|
-
globalThis.expect(oks).toBe(1);
|
|
216
|
-
globalThis.expect(conflicts).toBe(1);
|
|
217
|
-
let read = await ops.read([{
|
|
218
|
-
tags: [{
|
|
219
|
-
key: "seatId",
|
|
220
|
-
value: "hot"
|
|
221
|
-
}]
|
|
222
|
-
}], undefined);
|
|
223
|
-
globalThis.expect(read.events.length).toBe(1);
|
|
224
|
-
});
|
|
225
|
-
};
|
|
226
|
-
writeSkew("AdvisoryLocks", "dcb-skew-advisory");
|
|
227
|
-
writeSkew("RowLocks", "dcb-skew-rows");
|
|
228
|
-
globalThis.test("hot tag: N concurrent conditional appends, exactly one wins", async () => {
|
|
229
|
-
let match = makeLog("dcb-hot");
|
|
230
|
-
let ops = match[1];
|
|
231
|
-
let cond_query = [{
|
|
232
|
-
eventTypes: ["Claimed"],
|
|
233
|
-
tags: [{
|
|
234
|
-
key: "prizeId",
|
|
235
|
-
value: "p1"
|
|
236
|
-
}]
|
|
237
|
-
}];
|
|
238
|
-
let cond = {
|
|
239
|
-
query: cond_query
|
|
240
|
-
};
|
|
241
|
-
let promises = Stdlib_Array.make(12, 0).map((param, i) => ops.append([stored("Claimed", [{
|
|
242
|
-
key: "prizeId",
|
|
243
|
-
value: "p1"
|
|
244
|
-
}], Object.fromEntries([[
|
|
245
|
-
"who",
|
|
246
|
-
i
|
|
247
|
-
]]))], cond));
|
|
248
|
-
let results = await Promise.all(promises);
|
|
249
|
-
let oks = results.filter(r => r.TAG === "Ok").length;
|
|
250
|
-
globalThis.expect(oks).toBe(1);
|
|
251
|
-
let read = await ops.read([{
|
|
252
|
-
tags: [{
|
|
253
|
-
key: "prizeId",
|
|
254
|
-
value: "p1"
|
|
255
|
-
}]
|
|
256
|
-
}], undefined);
|
|
257
|
-
globalThis.expect(read.events.length).toBe(1);
|
|
258
|
-
});
|
|
259
|
-
globalThis.test("cursors are monotonic and usable as `after`", async () => {
|
|
260
|
-
let match = makeLog("dcb-cursor");
|
|
261
|
-
let ops = match[1];
|
|
262
|
-
let mk = i => stored("Tick", [{
|
|
263
|
-
key: "streamId",
|
|
264
|
-
value: "c1"
|
|
265
|
-
}], Object.fromEntries([[
|
|
266
|
-
"i",
|
|
267
|
-
i
|
|
268
|
-
]]));
|
|
269
|
-
await ops.append([mk(0)], undefined);
|
|
270
|
-
let pos = await ops.append([mk(1)], undefined);
|
|
271
|
-
let mid;
|
|
272
|
-
mid = pos.TAG === "Ok" ? pos._0 : "";
|
|
273
|
-
await ops.append([mk(2)], undefined);
|
|
274
|
-
let read = await ops.read([{
|
|
275
|
-
tags: [{
|
|
276
|
-
key: "streamId",
|
|
277
|
-
value: "c1"
|
|
278
|
-
}]
|
|
279
|
-
}], mid);
|
|
280
|
-
globalThis.expect(read.events.length).toBe(1);
|
|
281
|
-
globalThis.expect(read.events[0].eventType).toBe("Tick");
|
|
282
|
-
});
|
|
283
|
-
});
|
|
284
|
-
globalThis.describe("change feed", () => {
|
|
285
|
-
globalThis.test("drains all events and checkpoints", async () => {
|
|
286
|
-
let match = DcbEventLogStorage_Postgres$ReventlessPostgres.makeStorage(pool, "feed-log", [], {
|
|
287
|
-
TAG: "Simple",
|
|
288
|
-
_0: {
|
|
289
|
-
key: "k"
|
|
290
|
-
}
|
|
291
|
-
}, undefined, opts, undefined, undefined);
|
|
292
|
-
let mk = i => stored("Fed", [{
|
|
293
|
-
key: "id",
|
|
294
|
-
value: "f"
|
|
295
|
-
}], Object.fromEntries([[
|
|
296
|
-
"i",
|
|
297
|
-
i
|
|
298
|
-
]]));
|
|
299
|
-
await match[1].append([
|
|
300
|
-
mk(0),
|
|
301
|
-
mk(1),
|
|
302
|
-
mk(2)
|
|
303
|
-
], undefined);
|
|
304
|
-
let collected = {
|
|
305
|
-
contents: 0
|
|
306
|
-
};
|
|
307
|
-
let processed = await PgChangeFeed$ReventlessPostgres.drain(pool, "feed-log", "sub-1", undefined, async evs => {
|
|
308
|
-
collected.contents = collected.contents + evs.length | 0;
|
|
309
|
-
});
|
|
310
|
-
globalThis.expect(processed).toBe(3);
|
|
311
|
-
globalThis.expect(collected.contents).toBe(3);
|
|
312
|
-
let again = await PgChangeFeed$ReventlessPostgres.drain(pool, "feed-log", "sub-1", undefined, async param => {});
|
|
313
|
-
globalThis.expect(again).toBe(0);
|
|
314
|
-
});
|
|
315
|
-
});
|
|
316
|
-
} else {
|
|
317
|
-
globalThis.test("Postgres integration (skipped — set PG_URL to run)", () => {
|
|
318
|
-
globalThis.expect(true).toBe(true);
|
|
319
|
-
});
|
|
320
|
-
}
|
|
321
|
-
|
|
322
|
-
export {
|
|
323
|
-
opts,
|
|
324
|
-
jsonObj,
|
|
325
|
-
stored,
|
|
326
|
-
evJson,
|
|
327
|
-
}
|
|
328
|
-
/* url Not a pure module */
|