kern-db 0.1.0 → 0.3.0

package/dist/builder.d.mts

@@ -1,4 +1,4 @@
-import { B as toMissingResult, D as encodeParameter, E as bindParameter, I as createFieldDecodeError, L as createResultDecodeError, N as ResultMode, R as isRecordKey, S as renderFragment, T as assertUntypedValue, V as toValueRows, _ as ParameterBinder, a as SqlQuery, c as StatementSource, l as startSqlQuery, v as SqlFragment, z as takeOnlyRow } from "./query-B8QCiInv.mjs";
+import { B as takeOnlyRow, C as renderFragment, D as bindParameter, E as assertUntypedValue, H as toValueRows, L as createFieldDecodeError, O as encodeParameter, P as ResultMode, R as createResultDecodeError, V as toMissingResult, a as SqlQuery, c as StatementSource, l as startSqlQuery, v as ParameterBinder, y as SqlFragment, z as isRecordKey } from "./query-BrvYBvWC.mjs";
 /** Quotes `name` as a PostgreSQL identifier, which keeps its case and any characters in it. */
 export declare function quoteIdentifier(name: string): string;
 export { type ParameterBinder, type ResultMode, SqlFragment, SqlQuery, type StatementSource, assertUntypedValue, bindParameter, createFieldDecodeError, createResultDecodeError, encodeParameter, isRecordKey, renderFragment, startSqlQuery, takeOnlyRow, toMissingResult, toValueRows };

package/dist/builder.mjs

@@ -1 +1 @@
-export { d as SqlFragment, t as SqlQuery, v as assertUntypedValue, y as bindParameter, a as createFieldDecodeError, o as createResultDecodeError, b as encodeParameter, s as isRecordKey, x as quoteIdentifier, g as renderFragment, n as startSqlQuery, c as takeOnlyRow, l as toMissingResult, u as toValueRows } from "./query-g8iaj0Fx.mjs";
+export { d as SqlFragment, t as SqlQuery, v as assertUntypedValue, y as bindParameter, a as createFieldDecodeError, o as createResultDecodeError, b as encodeParameter, s as isRecordKey, x as quoteIdentifier, g as renderFragment, n as startSqlQuery, c as takeOnlyRow, l as toMissingResult, u as toValueRows } from "./query-FKBN7BMY.mjs";

package/dist/{database-B2UHm2En.mjs → database-0i2749JZ.mjs}

@@ -1,5 +1,5 @@
 import { i as decodeBoolean } from "./bytea-DNZ_ftio.mjs";
-import { S as createStatement, _ as sql, f as compileFragment, n as startSqlQuery, p as compileScript, x as quoteIdentifier } from "./query-g8iaj0Fx.mjs";
+import { S as createStatement, _ as sql, f as compileFragment, n as startSqlQuery, p as compileScript, x as quoteIdentifier } from "./query-FKBN7BMY.mjs";
 import { i as setBrand, n as QueryError, r as isInstance, t as ConnectionError } from "./driver-error-26zcdHeU.mjs";
 import { n as formatArray } from "./array-BLt8ZNR5.mjs";
 import { AsyncLocalStorage } from "node:async_hooks";
@@ -210,6 +210,23 @@ var TransactionConnectionError = class TransactionConnectionError extends Connec
 	}
 };
 /**
+* Tells whether the outcome of an operation that rejected with `error` is unknown, since its connection failed.
+*
+* Pass it the error that a whole operation rejected with: `execute` or `query` of a database outside a transaction, a statement in a session, or a whole `transaction`.
+* A `ConnectionError` of a statement caught in the callback of a transaction is not such an error: the transaction rolls back anyway, and its own error tells its outcome.
+*
+* - `TransactionConnectionError` of phase `commit` gives `true`, since `COMMIT` may have succeeded.
+* - `TransactionConnectionError` of another phase gives `false`, since the transaction was not committed.
+* - Another `ConnectionError` gives `true`, since a statement outside a transaction may have run before its connection failed.
+* - Any other error gives `false`, such as a `QueryError`, or a `ResultDecodeError` of a statement that has run: `false` does not mean that the operation applied nothing.
+*
+* Classification depends only on the error class, so failures before the statement was sent, such as a failure to acquire a connection, also give `true`.
+*/
+function isOutcomeUnknown(error) {
+	if (error instanceof TransactionConnectionError) return error.phase === "commit";
+	return error instanceof ConnectionError;
+}
+/**
 * Reserved connection of a transaction of `transaction` that records the first `ConnectionError` of its statements and scripts, including those of its nested levels.
 *
 * A failure before `COMMIT` is sent makes the transaction roll back rather than commit, since the statement may not have run.
@@ -1419,6 +1436,16 @@ function createDatabaseClosedError(operation) {
 	return /* @__PURE__ */ new Error(`Cannot ${operation}: the database is closed`);
 }
 // src/database.ts
+/** Marks a database of `createDatabase` of any copy of kern-db, which `isDatabase` of another copy recognizes. */
+const databaseBrand = /* @__PURE__ */ Symbol.for("kern-db.Database");
+/**
+* Checks whether `value` is a database of `createDatabase`, also of another copy of kern-db, such as to reject a client of PostgreSQL or a `Db` of kern-orm passed instead of a database.
+*
+* It checks the brand that `createDatabase` sets, so it rejects a spread copy of a database.
+*/
+function isDatabase(value) {
+	return typeof value === "object" && value !== null && value[databaseBrand] === true;
+}
 const coordinators = /* @__PURE__ */ new WeakMap();
 /**
 * Returns the transaction coordinator of a database of `createDatabase`, such as for the test helpers.
@@ -1453,7 +1480,8 @@ function createDatabase({ driver, ...options }) {
 		close: () => coordinator.close(),
 		[Symbol.asyncDispose]: () => coordinator.close()
 	};
+	Object.defineProperty(database, databaseBrand, { value: true });
 	coordinators.set(database, coordinator);
 	return database;
 }
-export { TransactionConnectionError as i, getCoordinator as n, isQueryError as r, createDatabase as t };
+export { TransactionConnectionError as a, isQueryError as i, getCoordinator as n, isOutcomeUnknown as o, isDatabase as r, pause as s, createDatabase as t };

package/dist/{driver-CYKarcaa.d.mts → driver-CSfbXOBJ.d.mts}

@@ -49,6 +49,12 @@ interface Driver {
    */
   close(): Promise<void>;
 }
+/**
+ * Checks whether `value` is a driver: an object with the methods of `Driver`, such as to reject a client of PostgreSQL passed instead of its driver.
+ *
+ * It checks the methods rather than a brand, since an application may write a driver of its own.
+ */
+declare function isDriver(value: unknown): value is Driver;
 /** Connection reserved by a driver, such as for a transaction or a session. */
 interface Connection {
   /**
@@ -68,4 +74,4 @@ interface Connection {
    */
   release(): void | Promise<void>;
 }
-export { TextValue as a, SqlStatement as i, Driver as n, createStatement as o, DriverResult as r, Connection as t };
+export { TextValue as a, SqlStatement as i, Driver as n, createStatement as o, DriverResult as r, isDriver as s, Connection as t };

package/dist/index.d.mts

@@ -1,6 +1,6 @@
-import { a as TextValue, i as SqlStatement, n as Driver, o as createStatement, r as DriverResult, t as Connection } from "./driver-CYKarcaa.mjs";
+import { a as TextValue, i as SqlStatement, n as Driver, o as createStatement, r as DriverResult, s as isDriver, t as Connection } from "./driver-CSfbXOBJ.mjs";
 import { a as BaseDerivableType, c as Type, d as TypeOutput, f as TypeTransform, h as typeValues, i as AnyType, l as TypeInput, m as isType, n as AcceptedValues, o as DerivableType, p as defineType, r as AnyDerivableType, s as DerivableTypeWithParameters, t as AcceptedNull, u as TypeOptions } from "./type-CbrtxvDF.mjs";
-import { A as OneValueRows, C as sql, F as ValueRows, M as ResultDecodeError, O as NotFoundError, P as ResultRows, a as SqlQuery, b as identifier, d as DatabaseOptions, f as IsolationLevel, g as createDatabase, h as TransactionOptions, i as InitialSqlQueryState, j as ResultByRows, k as OneRow, m as SessionOptions, n as DecodedFields, o as SqlQueryResult, p as PollLockOptions, r as FieldTypes, s as SqlQueryState, t as AnySqlQuery, u as Database, v as SqlFragment, w as UntypedValue, x as param, y as SqlValue } from "./query-B8QCiInv.mjs";
+import { A as OneRow, F as ResultRows, I as ValueRows, M as ResultByRows, N as ResultDecodeError, S as param, T as UntypedValue, _ as isDatabase, a as SqlQuery, b as SqlValue, d as DatabaseOptions, f as IsolationLevel, g as createDatabase, h as TransactionOptions, i as InitialSqlQueryState, j as OneValueRows, k as NotFoundError, m as SessionOptions, n as DecodedFields, o as SqlQueryResult, p as PollLockOptions, r as FieldTypes, s as SqlQueryState, t as AnySqlQuery, u as Database, w as sql, x as identifier, y as SqlFragment } from "./query-BrvYBvWC.mjs";
 /**
  * Error of a statement that PostgreSQL rejected, such as for a violated constraint; the connection of the statement stays usable.
  *
@@ -357,4 +357,18 @@ export declare class TransactionConnectionError extends ConnectionError {
   /** Tells whether `value` is an instance of the class, including one of `TransactionConnectionError` of another copy of kern-db. */
   static [Symbol.hasInstance]<T>(this: abstract new (...args: never) => T, value: unknown): value is T;
 }
-export { type AcceptedNull, type AcceptedValues, type AnyDerivableType, type AnySqlQuery, type AnyType, type BaseDerivableType, type Connection, type Database, type DatabaseOptions, type DecodedFields, type DerivableType, type DerivableTypeWithParameters, type Driver, type DriverErrorFields, type DriverResult, type FieldTypes, type InitialSqlQueryState, type IsolationLevel, NotFoundError, type OneRow, type OneValueRows, type PollLockOptions, type QueryErrorCode, type QueryErrorCondition, type ResultByRows, ResultDecodeError, type ResultRows, type SessionOptions, type SqlFragment, type SqlQuery, type SqlQueryResult, type SqlQueryState, type SqlStatement, type SqlValue, type TextValue, type TransactionOptions, type Type, type TypeInput, type TypeOptions, type TypeOutput, type TypeTransform, type UntypedValue, type ValueRows, createDatabase, createStatement, defineType, identifier, isType, param, sql, type typeValues };
+/**
+ * Tells whether the outcome of an operation that rejected with `error` is unknown, since its connection failed.
+ *
+ * Pass it the error that a whole operation rejected with: `execute` or `query` of a database outside a transaction, a statement in a session, or a whole `transaction`.
+ * A `ConnectionError` of a statement caught in the callback of a transaction is not such an error: the transaction rolls back anyway, and its own error tells its outcome.
+ *
+ * - `TransactionConnectionError` of phase `commit` gives `true`, since `COMMIT` may have succeeded.
+ * - `TransactionConnectionError` of another phase gives `false`, since the transaction was not committed.
+ * - Another `ConnectionError` gives `true`, since a statement outside a transaction may have run before its connection failed.
+ * - Any other error gives `false`, such as a `QueryError`, or a `ResultDecodeError` of a statement that has run: `false` does not mean that the operation applied nothing.
+ *
+ * Classification depends only on the error class, so failures before the statement was sent, such as a failure to acquire a connection, also give `true`.
+ */
+export declare function isOutcomeUnknown(error: unknown): boolean;
+export { type AcceptedNull, type AcceptedValues, type AnyDerivableType, type AnySqlQuery, type AnyType, type BaseDerivableType, type Connection, type Database, type DatabaseOptions, type DecodedFields, type DerivableType, type DerivableTypeWithParameters, type Driver, type DriverErrorFields, type DriverResult, type FieldTypes, type InitialSqlQueryState, type IsolationLevel, NotFoundError, type OneRow, type OneValueRows, type PollLockOptions, type QueryErrorCode, type QueryErrorCondition, type ResultByRows, ResultDecodeError, type ResultRows, type SessionOptions, type SqlFragment, type SqlQuery, type SqlQueryResult, type SqlQueryState, type SqlStatement, type SqlValue, type TextValue, type TransactionOptions, type Type, type TypeInput, type TypeOptions, type TypeOutput, type TypeTransform, type UntypedValue, type ValueRows, createDatabase, createStatement, defineType, identifier, isDatabase, isDriver, isType, param, sql, type typeValues };

package/dist/index.mjs

@@ -1,5 +1,5 @@
 import { o as defineType, s as isType } from "./bytea-DNZ_ftio.mjs";
-import { S as createStatement, _ as sql, h as param, i as ResultDecodeError, m as identifier, r as NotFoundError } from "./query-g8iaj0Fx.mjs";
+import { C as isDriver, S as createStatement, _ as sql, h as param, i as ResultDecodeError, m as identifier, r as NotFoundError } from "./query-FKBN7BMY.mjs";
 import { a as toDriverError, n as QueryError, t as ConnectionError } from "./driver-error-26zcdHeU.mjs";
-import { i as TransactionConnectionError, r as isQueryError, t as createDatabase } from "./database-B2UHm2En.mjs";
-export { ConnectionError, NotFoundError, QueryError, ResultDecodeError, TransactionConnectionError, createDatabase, createStatement, defineType, identifier, isQueryError, isType, param, sql, toDriverError };
+import { a as TransactionConnectionError, i as isQueryError, o as isOutcomeUnknown, r as isDatabase, t as createDatabase } from "./database-0i2749JZ.mjs";
+export { ConnectionError, NotFoundError, QueryError, ResultDecodeError, TransactionConnectionError, createDatabase, createStatement, defineType, identifier, isDatabase, isDriver, isOutcomeUnknown, isQueryError, isType, param, sql, toDriverError };

package/dist/node-postgres.d.mts

@@ -1,4 +1,4 @@
-import { n as Driver } from "./driver-CYKarcaa.mjs";
+import { n as Driver } from "./driver-CSfbXOBJ.mjs";
 import { Pool } from "pg";
 /**
  * Creates a kern-db driver over a node-postgres pool; the pool keeps managing its connections.

package/dist/postgres-js.d.mts

@@ -1,4 +1,4 @@
-import { n as Driver } from "./driver-CYKarcaa.mjs";
+import { n as Driver } from "./driver-CSfbXOBJ.mjs";
 import { Sql } from "postgres";
 /**
  * Creates a kern-db driver over a postgres.js client; the client keeps managing its pool.

package/dist/{query-B8QCiInv.d.mts → query-BrvYBvWC.d.mts}

@@ -1,4 +1,4 @@
-import { a as TextValue, i as SqlStatement, n as Driver, r as DriverResult } from "./driver-CYKarcaa.mjs";
+import { a as TextValue, i as SqlStatement, n as Driver, r as DriverResult } from "./driver-CSfbXOBJ.mjs";
 import { c as Type, d as TypeOutput, i as AnyType } from "./type-CbrtxvDF.mjs";
 /**
  * How a query returns its rows: `many` as an array; `one` as one row, rejecting without it; `nullable` as one row or `null` without it; `optional` as one row or `undefined` without it.
@@ -267,6 +267,12 @@ interface DatabaseOptions {
    */
   onReleaseError?: (error: unknown) => void;
 }
+/**
+ * Checks whether `value` is a database of `createDatabase`, also of another copy of kern-db, such as to reject a client of PostgreSQL or a `Db` of kern-orm passed instead of a database.
+ *
+ * It checks the brand that `createDatabase` sets, so it rejects a spread copy of a database.
+ */
+declare function isDatabase(value: unknown): value is Database;
 /** Creates a database over a driver. */
 declare function createDatabase({ driver, ...options }: DatabaseOptions): Database;
 /** Compiles the statement of a query of SQL text, each time the query executes or compiles, so that what it reads when it compiles, such as a PostgreSQL schema of the current tenant, is current. */
@@ -419,4 +425,4 @@ declare class SqlQuery<out S extends SqlQueryState> {
 type AnySqlQuery = SqlQuery<any>;
 /** Starts the query of the statement that `source` compiles, executed on `database`, which resolves to the number of the rows of its command tag. */
 declare function startSqlQuery(source: StatementSource, database: Pick<Database, "execute">): SqlQuery<InitialSqlQueryState>;
-export { OneValueRows as A, toMissingResult as B, sql as C, encodeParameter as D, bindParameter as E, ValueRows as F, createFieldDecodeError as I, createResultDecodeError as L, ResultDecodeError as M, ResultMode as N, NotFoundError as O, ResultRows as P, isRecordKey as R, renderFragment as S, assertUntypedValue as T, toValueRows as V, ParameterBinder as _, SqlQuery as a, identifier as b, StatementSource as c, DatabaseOptions as d, IsolationLevel as f, createDatabase as g, TransactionOptions as h, InitialSqlQueryState as i, ResultByRows as j, OneRow as k, startSqlQuery as l, SessionOptions as m, DecodedFields as n, SqlQueryResult as o, PollLockOptions as p, FieldTypes as r, SqlQueryState as s, AnySqlQuery as t, Database as u, SqlFragment as v, UntypedValue as w, param as x, SqlValue as y, takeOnlyRow as z };
+export { OneRow as A, takeOnlyRow as B, renderFragment as C, bindParameter as D, assertUntypedValue as E, ResultRows as F, toValueRows as H, ValueRows as I, createFieldDecodeError as L, ResultByRows as M, ResultDecodeError as N, encodeParameter as O, ResultMode as P, createResultDecodeError as R, param as S, UntypedValue as T, toMissingResult as V, isDatabase as _, SqlQuery as a, SqlValue as b, StatementSource as c, DatabaseOptions as d, IsolationLevel as f, createDatabase as g, TransactionOptions as h, InitialSqlQueryState as i, OneValueRows as j, NotFoundError as k, startSqlQuery as l, SessionOptions as m, DecodedFields as n, SqlQueryResult as o, PollLockOptions as p, FieldTypes as r, SqlQueryState as s, AnySqlQuery as t, Database as u, ParameterBinder as v, sql as w, identifier as x, SqlFragment as y, isRecordKey as z };

package/dist/{query-g8iaj0Fx.mjs → query-FKBN7BMY.mjs}

@@ -7,6 +7,15 @@ function createStatement(text, parameters = []) {
 		parameters
 	};
 }
+/**
+* Checks whether `value` is a driver: an object with the methods of `Driver`, such as to reject a client of PostgreSQL passed instead of its driver.
+*
+* It checks the methods rather than a brand, since an application may write a driver of its own.
+*/
+function isDriver(value) {
+	const driver = value;
+	return (typeof driver === "object" || typeof driver === "function") && driver !== null && typeof driver.execute === "function" && typeof driver.executeScript === "function" && typeof driver.acquire === "function" && typeof driver.close === "function";
+}
 // src/identifier.ts
 /** Quotes `name` as a PostgreSQL identifier, which keeps its case and any characters in it. */
 function quoteIdentifier(name) {
@@ -427,4 +436,4 @@ function requireType(value, what) {
 	if (!isType(value)) throw new TypeError(`${what} takes a type`);
 	return value;
 }
-export { createStatement as S, sql as _, createFieldDecodeError as a, encodeParameter as b, takeOnlyRow as c, SqlFragment as d, compileFragment as f, renderFragment as g, param as h, ResultDecodeError as i, toMissingResult as l, identifier as m, startSqlQuery as n, createResultDecodeError as o, compileScript as p, NotFoundError as r, isRecordKey as s, SqlQuery as t, toValueRows as u, assertUntypedValue as v, quoteIdentifier as x, bindParameter as y };
+export { isDriver as C, createStatement as S, sql as _, createFieldDecodeError as a, encodeParameter as b, takeOnlyRow as c, SqlFragment as d, compileFragment as f, renderFragment as g, param as h, ResultDecodeError as i, toMissingResult as l, identifier as m, startSqlQuery as n, createResultDecodeError as o, compileScript as p, NotFoundError as r, isRecordKey as s, SqlQuery as t, toValueRows as u, assertUntypedValue as v, quoteIdentifier as x, bindParameter as y };

package/dist/testing.d.mts

@@ -1,5 +1,5 @@
-import { n as Driver } from "./driver-CYKarcaa.mjs";
-import { f as IsolationLevel, u as Database } from "./query-B8QCiInv.mjs";
+import { n as Driver, t as Connection } from "./driver-CSfbXOBJ.mjs";
+import { f as IsolationLevel, u as Database } from "./query-BrvYBvWC.mjs";
 /** Test fixture of `useTestFixture`, open while the tests of its `describe` block or test file run. */
 interface TestFixture<T = unknown> {
   /** Result of the seed of the fixture; reading it while the fixture is not open throws. */
@@ -98,4 +98,30 @@ interface DriverContractRunner extends TestHooks {
  * They run in the empty database of its clients and leave it unchanged.
  */
 export declare function describeDriverContract(options: DriverContractOptions, runner: DriverContractRunner): void;
-export type { DriverContractOptions, DriverContractRunner, OpenedTestFixture, PendingTestFixture, TestFixture, TestFixtureOptions, TestHelpers, TestHooks, TestTransactionOptions };
+/** Options of `waitForLock` and `waitForLockedStatement`. */
+interface LockWaitOptions {
+  /** Milliseconds to wait before rejecting; 2000 by default, shorter than the default timeout of a test, so that the helper rejects with its own error. */
+  timeout?: number;
+}
+/**
+ * Resolves to the process ID of the backend of PostgreSQL that runs the statements of `target`, `pg_backend_pid()`.
+ *
+ * Call it on the connection that will wait for a lock, such as inside its transaction or session: on the pool of a database or a driver, it gives the backend of whichever connection runs the statement.
+ */
+export declare function getBackendPid(target: Pick<Connection, "execute">): Promise<number>;
+/**
+ * Waits until the backend `pid` waits for a lock, such as of a row or an advisory lock that another transaction holds, and rejects when it does not in time.
+ *
+ * `observer` runs the checks: a database, a driver, or a connection other than the one that waits.
+ * It reads the locks with `pg_blocking_pids`, which reads the current lock state even inside a transaction.
+ */
+export declare function waitForLock(observer: Pick<Connection, "execute">, pid: number, options?: LockWaitOptions): Promise<void>;
+/**
+ * Waits until a backend of the current database other than that of `observer` waits for a lock in a statement whose text contains `fragment`, and resolves to its backend PID.
+ *
+ * It finds a backend that the test does not know, such as one of the pool of the code under test.
+ * `observer` runs the checks: a database, a driver, or a connection other than the one that waits.
+ * It rejects when no such backend waits in time.
+ */
+export declare function waitForLockedStatement(observer: Pick<Connection, "execute">, fragment: string, options?: LockWaitOptions): Promise<number>;
+export type { DriverContractOptions, DriverContractRunner, LockWaitOptions, OpenedTestFixture, PendingTestFixture, TestFixture, TestFixtureOptions, TestHelpers, TestHooks, TestTransactionOptions };

package/dist/testing.mjs

@@ -1,7 +1,7 @@
 import { r as boolean, t as bytea } from "./bytea-DNZ_ftio.mjs";
-import { S as createStatement, _ as sql, h as param, m as identifier } from "./query-g8iaj0Fx.mjs";
+import { S as createStatement, _ as sql, h as param, m as identifier } from "./query-FKBN7BMY.mjs";
 import { n as QueryError, t as ConnectionError } from "./driver-error-26zcdHeU.mjs";
-import { i as TransactionConnectionError, n as getCoordinator, t as createDatabase } from "./database-B2UHm2En.mjs";
+import { a as TransactionConnectionError, n as getCoordinator, s as pause, t as createDatabase } from "./database-0i2749JZ.mjs";
 import { t as array } from "./array-BLt8ZNR5.mjs";
 import { _ as interval, a as bigint, b as timestamptz, c as numeric, f as inet, g as date, h as enumOf, m as jsonb, n as char, o as doublePrecision, r as text, s as integer, t as uuid, v as time, y as timestamp } from "./types-Dl2oicjV.mjs";
 import assert from "node:assert/strict";
@@ -738,4 +738,80 @@ function describeDriverContract(options, runner) {
 		});
 	});
 }
-export { createTestHelpers, describeDriverContract };
+// src/lock-wait.ts
+/** Time that the helpers wait by default, in milliseconds. */
+const defaultTimeout = 2e3;
+/** Pause between two checks in milliseconds, so that waiting does not keep the observer busy. */
+const pollInterval = 5;
+/**
+* Resolves to the process ID of the backend of PostgreSQL that runs the statements of `target`, `pg_backend_pid()`.
+*
+* Call it on the connection that will wait for a lock, such as inside its transaction or session: on the pool of a database or a driver, it gives the backend of whichever connection runs the statement.
+*/
+async function getBackendPid(target) {
+	const { rows } = await target.execute(createStatement("SELECT pg_backend_pid()"));
+	return Number(rows[0][0]);
+}
+/**
+* Waits until the backend `pid` waits for a lock, such as of a row or an advisory lock that another transaction holds, and rejects when it does not in time.
+*
+* `observer` runs the checks: a database, a driver, or a connection other than the one that waits.
+* It reads the locks with `pg_blocking_pids`, which reads the current lock state even inside a transaction.
+*/
+async function waitForLock(observer, pid, options = {}) {
+	const timeout = options.timeout ?? defaultTimeout;
+	const statement = createStatement("SELECT cardinality(pg_blocking_pids($1::integer)) > 0", [String(pid)]);
+	await poll(timeout, `Backend ${pid} did not wait for a lock within ${timeout} ms`, async () => {
+		const { rows } = await observer.execute(statement);
+		return rows[0][0] === "t" ? true : void 0;
+	});
+}
+/**
+* Waits until a backend of the current database other than that of `observer` waits for a lock in a statement whose text contains `fragment`, and resolves to its backend PID.
+*
+* It finds a backend that the test does not know, such as one of the pool of the code under test.
+* `observer` runs the checks: a database, a driver, or a connection other than the one that waits.
+* It rejects when no such backend waits in time.
+*/
+async function waitForLockedStatement(observer, fragment, options = {}) {
+	const timeout = options.timeout ?? defaultTimeout;
+	const clearSnapshot = createStatement("SELECT pg_stat_clear_snapshot()");
+	const statement = createStatement(`SELECT pid FROM pg_stat_activity
+    WHERE datname = current_database() AND pid <> pg_backend_pid()
+      AND position($1::text IN query) > 0 AND cardinality(pg_blocking_pids(pid)) > 0
+    ORDER BY pid LIMIT 1`, [fragment]);
+	return await poll(timeout, `No statement with "${fragment}" waited for a lock within ${timeout} ms`, async (isWaiting) => {
+		await observer.execute(clearSnapshot);
+		if (!isWaiting()) return;
+		const { rows } = await observer.execute(statement);
+		return rows.length > 0 ? Number(rows[0][0]) : void 0;
+	});
+}
+/**
+* Calls `check` until it resolves to a value other than `undefined`, pausing between the calls, and resolves to that value.
+*
+* It rejects with `message` once `timeout` passes, also while a check still runs, such as on a pool that has no free connection; such a check settles without the helper.
+* A check must send no further statement once `isWaiting` returns `false`.
+*/
+async function poll(timeout, message, check) {
+	let waiting = true;
+	const isWaiting = () => waiting;
+	let timer;
+	const expired = new Promise((_, reject) => {
+		timer = setTimeout(() => {
+			waiting = false;
+			reject(new Error(message));
+		}, timeout);
+	});
+	try {
+		for (;;) {
+			const value = await Promise.race([check(isWaiting), expired]);
+			if (value !== void 0) return value;
+			await Promise.race([pause(pollInterval, void 0), expired]);
+		}
+	} finally {
+		waiting = false;
+		clearTimeout(timer);
+	}
+}
+export { createTestHelpers, describeDriverContract, getBackendPid, waitForLock, waitForLockedStatement };

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "kern-db",
-  "version": "0.1.0",
+  "version": "0.3.0",
   "description": "PostgreSQL database layer with ambient transactions, typed SQL queries, and test transactions",
   "keywords": [
     "database",