fiverunner 1.2.1 → 1.3.0

package/dist/fiverunner.js

@@ -6,7 +6,7 @@ import { basename, dirname, isAbsolute, join, relative, resolve, sep } from "nod
 import { createServer } from "node:http";
 var package_default = {
 	name: "fiverunner",
-	version: "1.2.1",
+	version: "1.3.0",
 	description: "Run FiveM resources (Lua, JavaScript and NUI) in your browser and in CI. No GTA V, no server, no restarts.",
 	keywords: [
 		"fivem",
@@ -73755,6 +73755,10 @@ var EventManager = class {
 		if (resources === void 0) this.#resources.set(event, [resource]);
 		else if (!resources.includes(resource)) resources.unshift(resource);
 	}
+	/** The events that resources registered for, in the order they first did, with those resources, newest first. */
+	registered() {
+		return [...this.#resources].map(([event, resources]) => [event, [...resources]]);
+	}
 	/**
 	* Triggers an event now and returns whether it was not canceled. `source`
 	* is "" for events of the process itself, and `target`, when given, is the
@@ -74006,7 +74010,7 @@ function intArgument(object) {
 	return Number(object.value);
 }
 /** The arguments of a call, as msgpack-c converts them to a vector, which fails for what is no array. */
-function argumentsOf(object) {
+function argumentsOf$1(object) {
 	if (object.type === "array") return object.items;
 	throw new ConversionError("arguments that are no array, which msgpack fails to convert to a vector");
 }
@@ -74339,7 +74343,7 @@ var NIL$3 = { type: "nil" };
 function callback(manager, name, fn) {
 	return ext(manager.callbacks.create((args) => {
 		try {
-			fn(argumentsOf(args));
+			fn(argumentsOf$1(args));
 		} catch (error) {
 			if (!(error instanceof ConversionError)) throw error;
 			manager.output.diagnose(manager.currentResource?.name ?? "", `${name} was given ${error.message}: msgpack throws then, which FiveRunner does not emulate, and it ignores the rest of the call.`);
@@ -98391,7 +98395,7 @@ function streamingNatives(side) {
 			hash: 12832350468514893849n,
 			result: "char*",
 			params: ["Hash modelHash"]
-		}, () => "CARNOTFOUND"),
+		}, (ctx, model) => model === 0 || ctx.manager.world.kindOf(model) === EntityType.ped ? "CARNOTFOUND" : (model >>> 0).toString(16).toUpperCase().padStart(8, "0")),
 		defineNative({
 			name: "SET_MODEL_AS_NO_LONGER_NEEDED",
 			hash: 16515533089562745515n,
@@ -101949,58 +101953,6 @@ function createProcess(options, clock, side, name, lua, start, processOptions =
 	});
 }
 //#endregion
-//#region src/dev/hosts.ts
-/**
-* The domain of the dev UI, which browsers take for the local machine, as
-* they do every name under localhost. Frames are at names under it, an
-* origin for each host of FiveM's that a client has frames at, so that
-* frames keep their storage to themselves and stay out of the UI, as in
-* FiveM, where each is at an origin of its own: https://cfx-nui-<resource>,
-* or nui://<resource>.
-*/
-var DEV_DOMAIN = "fiverunner.localhost";
-new TextEncoder();
-var decoder$2 = new TextDecoder();
-/** What a name of frameHost stands for, or undefined for other names. */
-function parseFrameHost(name) {
-	const match = /^(.+)\.c([1-9][0-9]*)\.([a-z0-9]+)\.fiverunner\.localhost$/.exec(name);
-	if (match === null) return void 0;
-	const [, label = "", number = "", tab = ""] = match;
-	const client = Number(number);
-	if (/^[a-z0-9_-]+$/.test(label)) return {
-		host: label,
-		client,
-		tab
-	};
-	const hex = /^((?:[0-9a-f]{2})+)\.x$/.exec(label)?.[1];
-	if (hex === void 0) return void 0;
-	const bytes = Uint8Array.from(hex.match(/../g), (pair) => parseInt(pair, 16));
-	return {
-		host: decoder$2.decode(bytes),
-		client,
-		tab
-	};
-}
-//#endregion
-//#region src/dev/remote.ts
-/** Where the dev server serves what the dev UI needs of it. */
-var API = "/__fiverunner/api/";
-new TextDecoder();
-/** The bytes in base 64. */
-function toBase64(bytes) {
-	let text = "";
-	for (let at = 0; at < bytes.length; at += 32768) text += String.fromCharCode(...bytes.subarray(at, at + 32768));
-	return btoa(text);
-}
-/** The bytes that `text` has in base 64. */
-function fromBase64(text) {
-	return Uint8Array.from(atob(text), (char) => char.charCodeAt(0));
-}
-//#endregion
-//#region src/dev/routes.ts
-/** Where the dev server serves what the frames of the dev UI run on: its service worker, and the bridge to the UI. */
-var DEV_PATH = "/__fiverunner/";
-//#endregion
 //#region src/node/disk.ts
 /**
 * The files of a directory of the host, as a source of MemoryFileSystems,
@@ -102143,397 +102095,6 @@ function withoutTests(source) {
 	};
 }
 //#endregion
-//#region src/node/watch.ts
-/** Milliseconds that the watcher waits for changes to stop before it tells of them. */
-var SETTLE = 150;
-/**
-* Watches the files of the project at `root`, but those of node_modules
-* and of dot directories, and calls `changed` with the paths of those that
-* changed, relative to the root, with slashes, once changes stop for a
-* moment, or with none when the host did not tell which. Gives what stops
-* watching.
-*/
-function watchProject(root, changed) {
-	let timer;
-	let paths = /* @__PURE__ */ new Set();
-	const heard = (file) => {
-		const parts = (file ?? "").split(/[\\/]/);
-		if (parts.some((part) => part === "node_modules" || part.startsWith("."))) return;
-		if (file === null) paths = void 0;
-		else paths?.add(parts.join("/"));
-		clearTimeout(timer);
-		timer = setTimeout(() => {
-			const told = paths === void 0 ? void 0 : [...paths].sort();
-			paths = /* @__PURE__ */ new Set();
-			changed(told);
-		}, SETTLE);
-	};
-	let watcher;
-	try {
-		watcher = watch(root, { recursive: true }, (_, file) => heard(file));
-		watcher.on("error", () => {});
-	} catch {
-		watcher = void 0;
-	}
-	return () => {
-		clearTimeout(timer);
-		watcher?.close();
-	};
-}
-//#endregion
-//#region src/node/devserver.ts
-/** The port that the dev server listens on unless told otherwise, or the next that is free. */
-var DEFAULT_PORT = 30120;
-/** The types of the files of the dev UI, by their extensions. */
-var TYPES$1 = {
-	html: "text/html; charset=utf-8",
-	js: "text/javascript; charset=utf-8",
-	css: "text/css; charset=utf-8",
-	json: "application/json",
-	wasm: "application/wasm",
-	svg: "image/svg+xml",
-	png: "image/png"
-};
-/**
-* Starts the dev server of a project, which serves the dev UI, at
-* fiverunner.localhost, and what it asks of the server: the project and its
-* files, but its test files, cfxlua.wasm, and the HTTP requests of its
-* scripts, which the server sends; and the service worker and the bridge
-* of the origins of frames, at the names under it. It tells the dev UIs as
-* files of the project change. It listens on the local machine only, and
-* answers only requests for the names of the local machine, which keeps
-* pages of the web from reading through it.
-*/
-async function startDevServer(options) {
-	let project = openProject(options.root);
-	if (project === void 0) throw new Error(`${options.root} has no FiveM project`);
-	const http = options.http ?? fetchHttpClient;
-	const listeners = /* @__PURE__ */ new Set();
-	let port = 0;
-	const handle = async (request, response) => {
-		const name = /^(.*?)(?::(\d+))?$/.exec(request.headers.host ?? "");
-		const hostname = (name?.[1] ?? "").toLowerCase();
-		const url = new URL(request.url ?? "/", "http://local");
-		if (name?.[2] !== String(port)) return reply(response, 403, "FiveRunner serves the local machine only.");
-		if (hostname === "localhost" || hostname === "127.0.0.1" || hostname === "[::1]") {
-			response.writeHead(302, { Location: `http://${DEV_DOMAIN}:${port}${url.pathname}${url.search}` });
-			return response.end();
-		}
-		if (hostname === "fiverunner.localhost") return ui(request, response, url);
-		if (parseFrameHost(hostname) !== void 0) return frames(response, url);
-		return reply(response, 403, "FiveRunner serves the local machine only.");
-	};
-	/** Answers the requests of the dev UI. */
-	const ui = async (request, response, url) => {
-		const { pathname } = url;
-		if (pathname === "/") return asset(response, "index.html");
-		if (!pathname.startsWith("/__fiverunner/api/")) {
-			if (pathname.startsWith("/__fiverunner/")) return asset(response, pathname.slice(DEV_PATH.length));
-			return reply(response, 404, "Not found");
-		}
-		const what = pathname.slice(API.length);
-		if (what === "events" && request.method === "GET") {
-			response.writeHead(200, {
-				"Content-Type": "text/event-stream",
-				"Cache-Control": "no-cache",
-				Connection: "keep-alive"
-			});
-			response.write(": FiveRunner\n\n");
-			listeners.add(response);
-			request.on("close", () => listeners.delete(response));
-			return;
-		}
-		if (request.headers["X-FiveRunner".toLowerCase()] !== "1") return reply(response, 403, "Forbidden");
-		const current = project;
-		if (what === "project" && request.method === "GET") {
-			const info = {
-				name: basename(options.root),
-				kind: current.kind,
-				mount: current.mount,
-				commands: current.commands
-			};
-			return reply(response, 200, JSON.stringify(info), TYPES$1.json);
-		}
-		if ((what === "list" || what === "read") && request.method === "GET") {
-			const path = url.searchParams.get("path") ?? "";
-			try {
-				if (!listed(current.visible, path)) return reply(response, 404, "Not found");
-				if (what === "list") return reply(response, 200, JSON.stringify(current.visible.list(path)), TYPES$1.json);
-				return reply(response, 200, current.visible.read(path), "application/octet-stream");
-			} catch {
-				return reply(response, 404, "Not found");
-			}
-		}
-		if (what === "cfxlua.wasm" && request.method === "GET") return reply(response, 200, options.cfxlua, TYPES$1.wasm);
-		if (what === "http" && request.method === "POST") {
-			const proxied = JSON.parse(await text$1(request));
-			const result = await http({
-				...proxied,
-				body: fromBase64(proxied.body)
-			});
-			const answered = "code" in result ? result : {
-				status: result.status,
-				headers: result.headers,
-				body: toBase64(result.body)
-			};
-			return reply(response, 200, JSON.stringify(answered), TYPES$1.json);
-		}
-		return reply(response, 404, "Not found");
-	};
-	/** Answers the requests that reach the server at the origins of frames, which their service workers leave to it. */
-	const frames = (response, url) => {
-		const { pathname } = url;
-		if (pathname.startsWith("/__fiverunner/")) {
-			const path = pathname.slice(DEV_PATH.length);
-			return asset(response, path, path === "sw.js" ? { "Service-Worker-Allowed": "/" } : {});
-		}
-		return reply(response, 503, "This frame of FiveRunner's NUI loads through its dev UI.");
-	};
-	/** Serves a file of the dev UI, by a path of a URL, which has no dot parts and stays in the assets. */
-	const asset = (response, path, headers = {}) => {
-		let bytes;
-		try {
-			bytes = readFileSync(join(options.assets, path));
-		} catch {
-			return reply(response, 404, "Not found");
-		}
-		const type = TYPES$1[path.slice(path.lastIndexOf(".") + 1)] ?? "application/octet-stream";
-		return reply(response, 200, bytes, type, headers);
-	};
-	const server = createServer((request, response) => {
-		handle(request, response).catch((error) => {
-			if (!response.headersSent) reply(response, 500, String(error));
-			else response.end();
-		});
-	});
-	port = await listen(server, options.port ?? 30120);
-	const stopWatching = watchProject(options.root, (paths) => {
-		project = openProject(options.root) ?? project;
-		const data = JSON.stringify(paths ?? null);
-		for (const listener of listeners) listener.write(`event: change
-data: ${data}
-
-`);
-		options.onChange?.();
-	});
-	return {
-		url: `http://${DEV_DOMAIN}:${port}/`,
-		port,
-		close: () => {
-			stopWatching();
-			for (const listener of listeners) listener.end();
-			return new Promise((resolve) => server.close(() => resolve()));
-		}
-	};
-}
-/**
-* Whether the directories of `source` list `path`, and those it is in, as
-* sources list what they read: which no path does with test files, or with
-* parts that are empty, dots, or drives, which would lead out of the
-* project. Parts of paths that are files fail to list.
-*/
-function listed(source, path) {
-	if (path === "") return true;
-	let directory = "";
-	for (const part of path.split("/")) {
-		if (!source.list(directory).some((entry) => entry.name === part)) return false;
-		directory = directory === "" ? part : `${directory}/${part}`;
-	}
-	return true;
-}
-/** Answers with `status`, `body`, and the type, as what the dev UI gets is never cached. */
-function reply(response, status, body, type = "text/plain; charset=utf-8", headers = {}) {
-	response.writeHead(status, {
-		"Content-Type": type,
-		"Cache-Control": "no-cache",
-		...headers
-	});
-	response.end(body);
-}
-/** The body of a request, as text. */
-async function text$1(request) {
-	const chunks = [];
-	for await (const chunk of request) chunks.push(chunk);
-	return Buffer.concat(chunks).toString("utf8");
-}
-/** Listens on `port` of the local machine, or on the next ports while those are taken, and resolves with the port. */
-function listen(server, port) {
-	return new Promise((resolve, reject) => {
-		const attempt = (at) => {
-			const failed = (error) => {
-				server.off("listening", listening);
-				if (error.code === "EADDRINUSE" && at !== 0 && at < port + 20) attempt(at + 1);
-				else reject(error);
-			};
-			const listening = () => {
-				server.off("error", failed);
-				resolve(server.address().port);
-			};
-			server.once("error", failed);
-			server.once("listening", listening);
-			server.listen(at, "127.0.0.1");
-		};
-		attempt(port);
-	});
-}
-//#endregion
-//#region src/cli/dev.ts
-var USAGE$3 = `Usage: fiverunner dev [options]
-
-Runs the project in this directory in the dev UI, in the browser: its
-server, with its console and its resources, and players that connect to
-it, each with a screen that shows the frames of its NUI. The dev UI
-restarts the resources whose files change. It needs a browser that takes the
-names under localhost for the local machine, as Chrome, Edge and Firefox do.
-
-Options:
-  -p, --port <port>  Listen on this port, or the next free one (${DEFAULT_PORT} by default)
-  -h, --help         Show this help
-`;
-/**
-* Runs the dev server of the project in the directory that the tool runs
-* in until the tool is interrupted, and returns the exit code: 0 once it
-* stopped, and 2 if the arguments make no sense to it, or there is no
-* project.
-*/
-async function dev(args, host) {
-	if (args.length === 1 && (args[0] === "-h" || args[0] === "--help")) {
-		host.stdout(USAGE$3);
-		return 0;
-	}
-	const fail = (why) => {
-		host.stderr(`fiverunner: ${why}\n\n${USAGE$3}`);
-		return 2;
-	};
-	let port = DEFAULT_PORT;
-	for (let at = 0; at < args.length; at++) {
-		const arg = args[at];
-		if (arg !== "-p" && arg !== "--port") return fail(`unknown argument ${arg}`);
-		const value = args[++at];
-		if (value === void 0 || !/^\d{1,5}$/.test(value) || Number(value) > 65535) return fail(`${arg} needs a port, from 0 to 65535`);
-		port = Number(value);
-	}
-	const project = openProject(host.cwd);
-	if (project === void 0) {
-		host.stderr("fiverunner: there is no FiveM project here: a resource has an fxmanifest.lua or a __resource.lua, and a server a resources directory\n");
-		return 2;
-	}
-	if (!existsSync(join(host.assets, "index.html"))) {
-		host.stderr(`fiverunner: the dev UI is not built: there is no ${join(host.assets, "index.html")}\n`);
-		return 2;
-	}
-	const server = await startDevServer({
-		root: host.cwd,
-		assets: host.assets,
-		cfxlua: host.wasm(),
-		port,
-		onChange: () => host.stdout("Files changed: the dev UI restarts the resources they are in\n")
-	});
-	const name = project.kind === "resource" ? `the resource ${project.name}` : "the server";
-	host.stdout(`FiveRunner runs ${name} at ${server.url}\nPress Ctrl+C to stop\n`);
-	await host.interrupted();
-	await server.close();
-	return 0;
-}
-//#endregion
-//#region src/cli/types.lua?raw
-var types_default = "---@meta\n\n-- What the tests of FiveRunner have, for the Lua language server:\n-- https://github.com/DariusHQ/fiverunner/blob/main/docs/testing.md\n\n---@class Identity\n---@field name? string\n---@field guid? string\n---@field endpoint? string\n---@field identifiers? string[]\n---@field tokens? string[]\n---@field card? table What the player answers the adaptive cards of deferrals with\n\n---@class Player\n---@field id integer The id of the player on the server, its source\n---@field name string\nlocal Player = {}\n\n--- Runs Lua code in the client of the player, with `...` as its arguments, and returns what it returns.\n---@param code string\n---@param ... any\n---@return any ...\nfunction Player:run(code, ...) end\n\n--- Triggers an event on the server from the client, and returns once the server got it.\n---@param event string\n---@param ... any\nfunction Player:emit(event, ...) end\n\n--- The arguments of each `event` that the client got from the server, in the order they came.\n---@param event string\n---@return any[][]\nfunction Player:received(event) end\n\n--- What the client printed, line by line, as `[channel] text`, without colors.\n---@return string[]\nfunction Player:output() end\n\n--- Disconnects the player, and returns once the server dropped it.\n---@param reason? string\nfunction Player:disconnect(reason) end\n\n--- What the client sent the NUI frame of `resource` with SendNUIMessage, in the order it sent them.\n---@param resource string\n---@return table[]\nfunction Player:nuiMessages(resource) end\n\n--- Calls a NUI callback, as the page of the resource does, and returns what it answered, and the status.\n---@param resource string\n---@param name string\n---@param data? table\n---@return any answer\n---@return integer status\nfunction Player:nuiCallback(resource, name, data) end\n\n--- Whether NUI has the focus on the client, and whether it shows the cursor.\n---@return boolean focused\n---@return boolean cursor\nfunction Player:nuiFocus() end\n\n--- Has a key of the keyboard of the client, such as `E` or `LMENU`, go down.\n---@param key string\nfunction Player:keyDown(key) end\n\n--- Has a key of the keyboard of the client go up.\n---@param key string\nfunction Player:keyUp(key) end\n\n--- Has a key go down, and up a frame later.\n---@param key string\nfunction Player:press(key) end\n\n--- Mocks a native on the client, for the rest of the test.\n---@param name string\n---@param fn function\nfunction Player:mock(name, fn) end\n\n---@class Expectation\n---@field never Expectation Negates the matchers\n---@field toBe fun(expected: any)\n---@field toEqual fun(expected: any)\n---@field toBeTruthy fun()\n---@field toBeFalsy fun()\n---@field toBeNil fun()\n---@field toBeGreaterThan fun(n: number)\n---@field toBeGreaterThanOrEqual fun(n: number)\n---@field toBeLessThan fun(n: number)\n---@field toBeLessThanOrEqual fun(n: number)\n---@field toBeCloseTo fun(n: number, digits?: integer)\n---@field toContain fun(item: any)\n---@field toContainEqual fun(item: any)\n---@field toHaveLength fun(n: integer)\n---@field toMatch fun(pattern: string)\n---@field toThrow fun(text?: string)\n\n---@class fiverunnerlib\nfiverunner = {}\n\n--- Connects a player, and returns it once its client started the resources of the server, or nil and why the server refused it.\n---@param identity? Identity\n---@return Player? player\n---@return string? reason\nfunction fiverunner.connect(identity) end\n\n--- What the server printed, line by line, as `[channel] text`, without colors.\n---@return string[]\nfunction fiverunner.output() end\n\n--- Calls `check` at each tick until it returns something truthy, and returns that.\n---@generic T\n---@param check fun(): T\n---@param timeout? integer In milliseconds\n---@return T\nfunction fiverunner.waitFor(check, timeout) end\n\n--- Has `fn` run in place of a native on the server, for every resource, for the rest of the test.\n---@param name string\n---@param fn function\nfunction fiverunner.mock(name, fn) end\n\n--- Groups tests.\n---@param name string\n---@param fn fun()\nfunction describe(name, fn) end\n\n--- Adds a test, which fails if it does not end within `timeout` milliseconds: 5000 unless given.\n---@param name string\n---@param fn fun()\n---@param timeout? integer\nfunction it(name, fn, timeout) end\n\n--- Adds a test.\n---@param name string\n---@param fn fun()\n---@param timeout? integer\nfunction test(name, fn, timeout) end\n\n--- Adds a hook that runs before each test of the describe it is in, or of the file.\n---@param fn fun()\nfunction beforeEach(fn) end\n\n--- Adds a hook that runs after each test of the describe it is in, or of the file.\n---@param fn fun()\nfunction afterEach(fn) end\n\n--- Checks a value with a matcher, which is called with a dot.\n---@param value any\n---@return Expectation\nfunction expect(value) end\n";
-//#endregion
-//#region src/cli/init.ts
-var USAGE$2 = `Usage: fiverunner init
-
-Adds tests to the project in this directory: a test file, which checks
-that the project starts without script errors, what the Lua language
-server needs to know the functions of tests, and, at the root of a git
-repository, a GitHub Actions workflow that runs the tests on each push.
-It writes over nothing that is there.
-
-Options:
-  -h, --help  Show this help
-`;
-/** The workflow of GitHub Actions that runs the tests of the project on each push. */
-var WORKFLOW = `name: Tests
-
-on: [push, pull_request]
-
-jobs:
-  test:
-    runs-on: ubuntu-latest
-    steps:
-      - uses: actions/checkout@v7
-      - uses: DariusHQ/fiverunner-action@v1
-`;
-/** Where the types of tests go, which the settings of the Lua language server name. */
-var TYPES = ".fiverunner/fiverunner.lua";
-var SETTINGS = `${JSON.stringify({
-	"runtime.version": "Lua 5.4",
-	"workspace.library": [".fiverunner"]
-}, null, 2)}\n`;
-/** A test file of `subject`, a Lua expression of the name of the tests, whose test checks the start of the project, on the server and on the client of a player, and what `checks` says. */
-function testFile(subject, checks) {
-	return `-- The tests of the project, which \`npx fiverunner test\` runs:
--- https://github.com/DariusHQ/fiverunner/blob/main/docs/testing.md
-
-local function errors(output)
-    local found = {}
-    for _, line in ipairs(output) do
-        if line:find('SCRIPT ERROR', 1, true) or line:find('Failed to load script', 1, true) then
-            found[#found + 1] = line
-        end
-    end
-    return found
-end
-
-describe(${subject}, function()
-    it('starts without script errors', function()
-${checks}        -- Players reach servers once they started, which takes the big ones seconds.
-        while GetGameTimer() < 3000 do Wait(100) end
-        local player, refused = fiverunner.connect({ name = 'Ann' })
-        expect(refused).toBeNil()
-        expect(errors(fiverunner.output())).toEqual({})
-        expect(errors(player:output())).toEqual({})
-    end, 120000)
-end)
-`;
-}
-/**
-* Adds a test file and a workflow to the project in the directory that
-* the tool runs in, and returns the exit code: 0 once it did, and 2 if the
-* arguments make no sense to it, or there is no project.
-*/
-function init(args, host) {
-	if (args.length === 1 && (args[0] === "-h" || args[0] === "--help")) {
-		host.stdout(USAGE$2);
-		return 0;
-	}
-	if (args.length > 0) {
-		host.stderr(`fiverunner: unknown argument ${args[0]}\n\n${USAGE$2}`);
-		return 2;
-	}
-	const project = openProject(host.cwd);
-	if (project === void 0) {
-		host.stderr("fiverunner: there is no FiveM project here: a resource has an fxmanifest.lua or a __resource.lua, and a server a resources directory\n");
-		return 2;
-	}
-	const files = project.kind === "resource" ? [[`tests/${project.name}.test.lua`, testFile(JSON.stringify(project.name), `        expect(GetResourceState(${JSON.stringify(project.name)})).toBe('started')\n`)]] : [["tests/server.test.lua", testFile("'the server'", "")]];
-	files.push([TYPES, types_default], [".luarc.json", SETTINGS]);
-	const repository = existsSync(join(host.cwd, ".git"));
-	if (repository) files.push([".github/workflows/fiverunner.yml", WORKFLOW]);
-	for (const [path, text] of files) {
-		const at = join(host.cwd, path);
-		if (existsSync(at)) {
-			host.stdout(`Kept ${path}, which is there\n`);
-			continue;
-		}
-		mkdirSync(dirname(at), { recursive: true });
-		writeFileSync(at, text);
-		host.stdout(`Wrote ${path}\n`);
-	}
-	if (!repository) host.stdout("Wrote no GitHub workflow, as GitHub looks for them at the root of a git repository, which this is not\n");
-	host.stdout("Run the tests with npx fiverunner test\n");
-	return 0;
-}
-//#endregion
 //#region src/runner/coverage.ts
 /** The chunks of the scripts of resources, as ScriptRuntime names them: @@resource/path. */
 var SCRIPT_CHUNK = /^@@([^/:]+)\/(.+)$/;
@@ -102603,7 +102164,7 @@ var Coverage = class {
 var client_default = "--[[\n    FiveRunner's client helper: the client script of the resource that runs\n    the tests, which tells the harness once the client started the resources\n    of the server, and runs the code that tests give the player.\n]]\n\nlocal load, pcall, tostring = load, pcall, tostring\nlocal table_pack, table_unpack = table.pack, table.unpack\n\n-- Runs code that a test gave the player, with the arguments it gave, and\n-- gives the harness back what the code returned or raised. FiveM runs each\n-- handler of an event in a thread of its own, so the code may wait.\nRegisterNetEvent('fiverunner:run', function(request, code, args)\n    local chunk, problem = load(code, '=(run)', 't')\n    if chunk == nil then\n        TriggerServerEvent('fiverunner:result', request, false, problem)\n        return\n    end\n    local results = table_pack(pcall(chunk, table_unpack(args, 1, args.n)))\n    if results[1] then\n        TriggerServerEvent('fiverunner:result', request, true, table_pack(table_unpack(results, 2, results.n)))\n    else\n        local shown, message = pcall(tostring, results[2])\n        TriggerServerEvent('fiverunner:result', request, false, shown and message or '(error object is not a string)')\n    end\nend)\n\n-- The resource that runs the tests starts after those of the project.\nTriggerServerEvent('fiverunner:ready')\n";
 //#endregion
 //#region src/runner/lua/harness.lua?raw
-var harness_default = "--[[\n    FiveRunner's test harness: the server script of the resource that runs\n    the tests of a test file, each in a server of its own.\n\n    It loads the test file that the runner names, as FiveM loads the server\n    scripts of a resource, and collects the tests that the file adds with\n    describe and it. Then it either tells the runner what they are, or runs\n    the one that the runner asks for, in a thread of its own, between the\n    beforeEach and afterEach hooks of the describes that the test is in,\n    and tells the runner what failed.\n\n    expect checks the values that tests give it, and fails the test with\n    the first that is not as expected. fiverunner connects players, whose\n    clients run the client script of the resource, which runs the code\n    that tests give them.\n]]\n\nlocal type, error, tostring = type, error, tostring\nlocal pcall, xpcall, next, ipairs = pcall, xpcall, next, ipairs\nlocal rawequal, rawget, rawlen = rawequal, rawget, rawlen\nlocal setmetatable = setmetatable\nlocal string_format, string_find, string_gsub = string.format, string.find, string.gsub\nlocal table_concat, table_insert, table_sort = table.concat, table.insert, table.sort\nlocal table_pack, table_unpack = table.pack, table.unpack\nlocal math_type, math_abs, math_huge = math.type, math.abs, math.huge\nlocal debug_getinfo = debug.getinfo\nlocal msgpack_pack = msgpack.pack\n\nlocal call = FiverunnerCall\nlocal resource = GetCurrentResourceName()\n\n-- Asks the runner for something, with arguments that msgpack packs.\nlocal function ask(method, args)\n    return call(method, msgpack_pack(args or {}))\nend\n\n--[[ Errors ]]\n\nlocal HARNESS = debug_getinfo(1, 'S').source\n\n-- Raises an error at the first call outside the harness, as Lua's own\n-- functions raise theirs where they were called.\nlocal function raise(message)\n    local level = 2\n    while true do\n        local info = debug_getinfo(level, 'S')\n        if info == nil or info.source ~= HARNESS then\n            break\n        end\n        level = level + 1\n    end\n    error(message, level)\nend\n\n-- Checks that argument `index` of the function `name` is of the type\n-- `expected`, as Lua's own functions check theirs.\nlocal function checkArgument(name, index, value, expected)\n    if type(value) ~= expected then\n        raise(string_format(\"bad argument #%d to '%s' (%s expected, got %s)\", index, name, expected, type(value)))\n    end\nend\n\n-- What expect fails tests with, whose message tostring gives.\nlocal Failure = {}\n\nfunction Failure.__tostring(failure)\n    return failure.message\nend\n\n-- The message of an error, as tostring gives it.\nlocal function messageOf(err)\n    local ok, message = pcall(tostring, err)\n    return ok and message or '(error object is not a string)'\nend\n\n--[[ Collecting tests ]]\n\n-- The describes form a tree, whose root is the file, and each test is in one.\nlocal root = { beforeEach = {}, afterEach = {} }\nlocal suite = root\nlocal tests = {}\nlocal loading = true\n\n-- Checks that a test, a describe or a hook is added as the test file loads.\nlocal function checkLoading(name)\n    if not loading then\n        raise(string_format('%s adds to the tests of the file only as it loads', name))\n    end\nend\n\nlocal function addSuite(name, mode, title, fn)\n    checkArgument(name, 1, title, 'string')\n    checkArgument(name, 2, fn, 'function')\n    checkLoading(name)\n    local parent = suite\n    suite = { name = title, parent = parent, mode = mode, beforeEach = {}, afterEach = {} }\n    fn()\n    suite = parent\nend\n\nlocal function addTest(name, mode, title, fn, timeout)\n    checkArgument(name, 1, title, 'string')\n    checkArgument(name, 2, fn, 'function')\n    if timeout ~= nil and not (type(timeout) == 'number' and timeout > 0 and timeout < math_huge) then\n        local got = type(timeout) == 'number' and tostring(timeout) or type(timeout)\n        raise(string_format(\"bad argument #3 to '%s' (milliseconds expected, got %s)\", name, got))\n    end\n    checkLoading(name)\n    tests[#tests + 1] = { name = title, suite = suite, mode = mode, fn = fn, timeout = timeout }\nend\n\n-- describe and it, which skip and only mark: tests that are skipped do not\n-- run, and when a file marks some with only, its other tests do not either.\nlocal function entry(name, add)\n    return setmetatable({\n        skip = function(...)\n            add(name .. '.skip', 'skip', ...)\n        end,\n        only = function(...)\n            add(name .. '.only', 'only', ...)\n        end,\n    }, {\n        __call = function(_, ...)\n            add(name, 'run', ...)\n        end,\n    })\nend\n\ndescribe = entry('describe', addSuite)\nit = entry('it', addTest)\ntest = entry('test', addTest)\n\n-- beforeEach and afterEach, which add hooks to the describe they are in.\nlocal function hook(name)\n    return function(fn)\n        checkArgument(name, 1, fn, 'function')\n        checkLoading(name)\n        local hooks = suite[name]\n        hooks[#hooks + 1] = fn\n    end\nend\n\nbeforeEach = hook('beforeEach')\nafterEach = hook('afterEach')\n\n-- The names of the describes that a test is in, and its own.\nlocal function namesOf(test)\n    local names = { test.name }\n    local at = test.suite\n    while at ~= root do\n        table_insert(names, 1, at.name)\n        at = at.parent\n    end\n    return names\nend\n\n-- How a test runs: skip if it or a describe it is in is skipped, and else\n-- only if it or one of them is marked only.\nlocal function modeOf(test)\n    local skip, only = test.mode == 'skip', test.mode == 'only'\n    local at = test.suite\n    while at ~= root do\n        skip = skip or at.mode == 'skip'\n        only = only or at.mode == 'only'\n        at = at.parent\n    end\n    return skip and 'skip' or only and 'only' or 'run'\nend\n\n--[[ Showing values ]]\n\nlocal KEYWORDS = {}\nfor keyword in ('and break do else elseif end false for function goto if in local nil not or repeat return then true until while'):gmatch('%a+') do\n    KEYWORDS[keyword] = true\nend\n\n-- Shows no more than this many entries of a table, and tables no deeper than this.\nlocal SHOWN_ENTRIES = 20\nlocal SHOWN_DEPTH = 3\n\n-- Orders the keys of tables to show them: by type, then numbers by value\n-- and the others as tostring gives them.\nlocal function before(a, b)\n    local ta, tb = type(a), type(b)\n    if ta ~= tb then\n        return ta < tb\n    end\n    if ta == 'number' then\n        return a < b\n    end\n    return tostring(a) < tostring(b)\nend\n\n-- Shows a value as Lua code would write it, as far as it can.\nlocal function show(value, depth)\n    local kind = type(value)\n    if kind == 'string' then\n        return (string_gsub(string_format('%q', value), '\\\\\\n', '\\\\n'))\n    elseif kind ~= 'table' then\n        return tostring(value)\n    end\n    depth = depth or 0\n    if depth >= SHOWN_DEPTH then\n        return next(value) == nil and '{}' or '{...}'\n    end\n    local length = rawlen(value)\n    local keys = {}\n    for key in next, value do\n        if not (math_type(key) == 'integer' and key >= 1 and key <= length) then\n            keys[#keys + 1] = key\n        end\n    end\n    if length + #keys == 0 then\n        return '{}'\n    end\n    table_sort(keys, before)\n    local parts = {}\n    for index = 1, length do\n        if #parts == SHOWN_ENTRIES then\n            break\n        end\n        parts[#parts + 1] = show(rawget(value, index), depth + 1)\n    end\n    for _, key in ipairs(keys) do\n        if #parts == SHOWN_ENTRIES then\n            break\n        end\n        local name = key\n        if type(key) ~= 'string' or KEYWORDS[key] or not string_find(key, '^[%a_][%w_]*$') then\n            name = '[' .. show(key, depth + 1) .. ']'\n        end\n        parts[#parts + 1] = name .. ' = ' .. show(rawget(value, key), depth + 1)\n    end\n    if length + #keys > SHOWN_ENTRIES then\n        parts[#parts + 1] = '...'\n    end\n    return '{ ' .. table_concat(parts, ', ') .. ' }'\nend\n\n--[[ Comparing values ]]\n\n-- Whether two values are the same, as toBe compares them, with NaN the\n-- same as NaN.\nlocal function same(a, b)\n    return rawequal(a, b) or (a ~= a and b ~= b)\nend\n\n-- Whether two values are equal, as toEqual compares them: tables when\n-- they have the same keys, with equal values, whatever their metatables,\n-- and other values when they are the same.\nlocal function equal(a, b, seen)\n    if same(a, b) then\n        return true\n    end\n    if type(a) ~= 'table' or type(b) ~= 'table' then\n        return false\n    end\n    -- Tables that hold themselves are equal as far as they go.\n    seen = seen or {}\n    local compared = seen[a]\n    if compared == nil then\n        compared = {}\n        seen[a] = compared\n    elseif compared[b] then\n        return true\n    end\n    compared[b] = true\n    for key, value in next, a do\n        if not equal(value, rawget(b, key), seen) then\n            return false\n        end\n    end\n    for key in next, b do\n        if rawget(a, key) == nil then\n            return false\n        end\n    end\n    return true\nend\n\n--[[ Expectations ]]\n\n-- The matchers of expect: each takes the value and the arguments of the\n-- matcher, and returns whether the value matches, with what fails the test\n-- if it does not, and what fails it if it does when negated with never.\nlocal matchers = {}\n\nfunction matchers.toBe(actual, expected)\n    local hint = ''\n    if type(actual) == 'table' and type(expected) == 'table' and equal(actual, expected) then\n        hint = ', the same table: toEqual compares what tables hold'\n    end\n    return same(actual, expected),\n        string_format('expected %s to be %s%s', show(actual), show(expected), hint),\n        string_format('expected %s not to be %s', show(actual), show(expected))\nend\n\nfunction matchers.toEqual(actual, expected)\n    return equal(actual, expected),\n        string_format('expected %s to equal %s', show(actual), show(expected)),\n        string_format('expected %s not to equal %s', show(actual), show(expected))\nend\n\nfunction matchers.toBeTruthy(actual)\n    return actual ~= nil and actual ~= false,\n        string_format('expected %s to be truthy', show(actual)),\n        string_format('expected %s not to be truthy', show(actual))\nend\n\nfunction matchers.toBeFalsy(actual)\n    return actual == nil or actual == false,\n        string_format('expected %s to be falsy', show(actual)),\n        string_format('expected %s not to be falsy', show(actual))\nend\n\nfunction matchers.toBeNil(actual)\n    return actual == nil,\n        string_format('expected %s to be nil', show(actual)),\n        'expected the value not to be nil'\nend\n\n-- Adds a matcher that compares numbers.\nlocal function comparison(name, phrase, compare)\n    matchers[name] = function(actual, expected)\n        if type(actual) ~= 'number' or type(expected) ~= 'number' then\n            raise(string_format('%s compares numbers, not %s and %s', name, type(actual), type(expected)))\n        end\n        return compare(actual, expected),\n            string_format('expected %s to be %s %s', show(actual), phrase, show(expected)),\n            string_format('expected %s not to be %s %s', show(actual), phrase, show(expected))\n    end\nend\n\ncomparison('toBeGreaterThan', 'greater than', function(a, b)\n    return a > b\nend)\ncomparison('toBeGreaterThanOrEqual', 'greater than or equal to', function(a, b)\n    return a >= b\nend)\ncomparison('toBeLessThan', 'less than', function(a, b)\n    return a < b\nend)\ncomparison('toBeLessThanOrEqual', 'less than or equal to', function(a, b)\n    return a <= b\nend)\n\nfunction matchers.toBeCloseTo(actual, expected, digits)\n    if type(actual) ~= 'number' or type(expected) ~= 'number' then\n        raise(string_format('toBeCloseTo compares numbers, not %s and %s', type(actual), type(expected)))\n    end\n    digits = digits == nil and 2 or digits\n    if type(digits) ~= 'number' then\n        raise(string_format('toBeCloseTo takes a number of digits, not %s', type(digits)))\n    end\n    local within = 10 ^ -digits / 2\n    return actual == expected or math_abs(actual - expected) < within,\n        string_format('expected %s to be close to %s, within %s', show(actual), show(expected), show(within)),\n        string_format('expected %s not to be close to %s, within %s', show(actual), show(expected), show(within))\nend\n\n-- Whether a table has a value that `matches` takes as the item.\nlocal function holds(t, item, matches)\n    for _, value in next, t do\n        if matches(value, item) then\n            return true\n        end\n    end\n    return false\nend\n\nfunction matchers.toContain(actual, item)\n    local found\n    if type(actual) == 'string' then\n        if type(item) ~= 'string' then\n            raise(string_format('toContain finds strings in strings, not %s', type(item)))\n        end\n        found = string_find(actual, item, 1, true) ~= nil\n    elseif type(actual) == 'table' then\n        found = holds(actual, item, same)\n    else\n        raise(string_format('toContain finds values in strings and tables, not in %s', type(actual)))\n    end\n    return found,\n        string_format('expected %s to contain %s', show(actual), show(item)),\n        string_format('expected %s not to contain %s', show(actual), show(item))\nend\n\nfunction matchers.toContainEqual(actual, item)\n    if type(actual) ~= 'table' then\n        raise(string_format('toContainEqual finds values in tables, not in %s', type(actual)))\n    end\n    return holds(actual, item, equal),\n        string_format('expected %s to contain a value equal to %s', show(actual), show(item)),\n        string_format('expected %s not to contain a value equal to %s', show(actual), show(item))\nend\n\nfunction matchers.toHaveLength(actual, length)\n    if type(actual) ~= 'string' and type(actual) ~= 'table' then\n        raise(string_format('toHaveLength measures strings and tables, not %s', type(actual)))\n    end\n    local actualLength = #actual\n    return actualLength == length,\n        string_format('expected %s to have length %s, not %s', show(actual), show(length), show(actualLength)),\n        string_format('expected %s not to have length %s', show(actual), show(length))\nend\n\nfunction matchers.toMatch(actual, pattern)\n    if type(actual) ~= 'string' or type(pattern) ~= 'string' then\n        raise(string_format('toMatch matches strings with patterns, not %s with %s', type(actual), type(pattern)))\n    end\n    local ok, found = pcall(string_find, actual, pattern)\n    if not ok then\n        raise(string_format('toMatch takes Lua patterns: %s', found))\n    end\n    return found ~= nil,\n        string_format('expected %s to match %s', show(actual), show(pattern)),\n        string_format('expected %s not to match %s', show(actual), show(pattern))\nend\n\nfunction matchers.toThrow(actual, expected)\n    if type(actual) ~= 'function' then\n        raise(string_format('toThrow calls functions, not %s', type(actual)))\n    end\n    if expected ~= nil and type(expected) ~= 'string' then\n        raise(string_format('toThrow finds strings in what functions throw, not %s', type(expected)))\n    end\n    local ok, err = pcall(actual)\n    local with = expected == nil and '' or string_format(' an error with %s', show(expected))\n    if ok then\n        return false, string_format('expected the function to throw%s', with), ''\n    end\n    local message = messageOf(err)\n    return expected == nil or string_find(message, expected, 1, true) ~= nil,\n        string_format('expected the function to throw%s, but it threw %s', with, show(message)),\n        string_format('expected the function not to throw%s, but it threw %s', with, show(message))\nend\n\n-- Runs a matcher on the value that expect took, and fails the test if the\n-- value does not match, or if it does but `negated` says it should not.\nlocal function check(expectation, name, matcher, actual, negated, ...)\n    if rawequal((...), expectation) then\n        raise(string_format('call %s with a dot, as in expect(value).%s(...), not with a colon', name, name))\n    end\n    local matches, message, negatedMessage = matcher(actual, ...)\n    if matches == negated then\n        error(setmetatable({ message = negated and negatedMessage or message }, Failure))\n    end\nend\n\n-- Takes a value to check with the matchers that it gives, or that its\n-- field never gives, which fail when the value matches.\nfunction expect(actual)\n    local expectation, negation = {}, {}\n    for name, matcher in next, matchers do\n        expectation[name] = function(...)\n            check(expectation, name, matcher, actual, false, ...)\n        end\n        negation[name] = function(...)\n            check(negation, name, matcher, actual, true, ...)\n        end\n    end\n    expectation.never = negation\n    return expectation\nend\n\n--[[ Players ]]\n\nfiverunner = {}\n\n-- The ids of the players whose clients started the resources of the server.\nlocal ready = {}\n-- What the clients of players gave back of the code they ran, by request.\nlocal results = {}\nlocal requests = 0\n\nRegisterNetEvent('fiverunner:ready', function()\n    ready[source] = true\nend)\n\nRegisterNetEvent('fiverunner:result', function(request, ok, values)\n    results[request] = { ok = ok, values = values }\nend)\n\n-- What players are, by the types of what the identities of players have.\nlocal IDENTITY = { name = 'string', guid = 'string', endpoint = 'string', identifiers = 'table', tokens = 'table', card = 'table' }\n\n-- A player that connected, by its id on the server and its name.\nlocal Player = {}\nPlayer.__index = Player\n\n-- Connects a player, as its identity says: its name, its guid, the\n-- endpoint it connects from, its identifiers and tokens, which are lists\n-- of strings, and what it answers the cards of deferrals with. Returns the\n-- player once its client started the resources of the server, or nil and\n-- why the server refused it.\nfunction fiverunner.connect(identity)\n    if identity ~= nil then\n        checkArgument('fiverunner.connect', 1, identity, 'table')\n        for key, value in next, identity do\n            local expected = IDENTITY[key]\n            if expected == nil then\n                raise(string_format('players have a name, a guid, an endpoint, identifiers, tokens and a card, not %s', show(key)))\n            end\n            if type(value) ~= expected then\n                raise(string_format('the %s of a player is a %s, not a %s', key, expected, type(value)))\n            end\n            if expected == 'table' and key ~= 'card' then\n                for _, item in next, value do\n                    if type(item) ~= 'string' then\n                        raise(string_format('the %s of a player are strings, not %s', key, type(item)))\n                    end\n                end\n            end\n        end\n    end\n    local answer = identity ~= nil and identity.card ~= nil and json.encode(identity.card) or nil\n    local connection = ask('connect', { identity = identity, answer = answer })\n    while true do\n        local state = ask('connection', connection)\n        if state.state == 'rejected' then\n            return nil, state.reason\n        elseif state.state == 'dropped' then\n            return nil, 'the server dropped the player'\n        elseif state.state == 'joined' and ready[state.id] then\n            return setmetatable({ id = state.id, name = state.name }, Player)\n        end\n        Wait(0)\n    end\nend\n\n-- Runs `code` in the client of the player, as a chunk of its own that\n-- takes `...`, in a thread of its own, and returns what it returns once\n-- the client gave it back. Raises what the code raised.\nfunction Player:run(code, ...)\n    checkArgument('run', 1, code, 'string')\n    requests = requests + 1\n    local request = requests\n    TriggerClientEvent('fiverunner:run', self.id, request, code, table_pack(...))\n    while results[request] == nil do\n        if not DoesPlayerExist(self.id) then\n            raise(string_format('player %d left before its client ran the code', self.id))\n        end\n        Wait(0)\n    end\n    local result = results[request]\n    if not result.ok then\n        raise(string_format('the client of player %d raised: %s', self.id, result.values))\n    end\n    return table_unpack(result.values, 1, result.values.n)\nend\n\n-- Triggers `event` on the server from the client of the player, with\n-- `...`, and returns once the server got it.\nfunction Player:emit(event, ...)\n    checkArgument('emit', 1, event, 'string')\n    self:run('TriggerServerEvent(...)', event, ...)\nend\n\n-- The arguments of each `event` that the client of the player got from the\n-- network, in the order they came.\nfunction Player:received(event)\n    checkArgument('received', 1, event, 'string')\n    return ask('received', { id = self.id, event = event })\nend\n\n-- What the client of the player printed on its console, line by line.\nfunction Player:output()\n    return ask('output', { id = self.id })\nend\n\n-- Disconnects the client of the player, as players quit, for `reason`,\n-- and returns once the server dropped the player.\nfunction Player:disconnect(reason)\n    if reason ~= nil then\n        checkArgument('disconnect', 1, reason, 'string')\n    end\n    ask('disconnect', { id = self.id, reason = reason })\n    while DoesPlayerExist(self.id) do\n        Wait(0)\n    end\nend\n\n-- Has `fn` run in place of the native that the Lua global `name` stands\n-- for, on the server or on the client of a player, for the rest of the\n-- test, with the arguments of the native, for the first of its results to\n-- be what the native returns.\nlocal function mock(id, name, fn)\n    checkArgument('mock', 1, name, 'string')\n    checkArgument('mock', 2, fn, 'function')\n    if not ask('mock', { id = id, name = name, fn = fn }) then\n        raise(string_format('there is no native %s to mock', show(name)))\n    end\nend\n\nfunction fiverunner.mock(name, fn)\n    mock(nil, name, fn)\nend\n\nfunction Player:mock(name, fn)\n    mock(self.id, name, fn)\nend\n\n-- What the scripts of the client of the player sent the frame of the NUI\n-- of `resource`, as SendNUIMessage gives it, in the order they sent it.\nfunction Player:nuiMessages(resource)\n    checkArgument('nuiMessages', 1, resource, 'string')\n    local messages = {}\n    for i, text in ipairs(ask('nuiMessages', { id = self.id, resource = resource })) do\n        messages[i] = json.decode(text)\n    end\n    return messages\nend\n\n-- Calls the NUI callback `name` of `resource` on the client of the\n-- player, as the page of the resource does, with `data` as JSON, and\n-- returns what the callback answered once it did, as JSON reads it, or as\n-- it is when it is no JSON, and the status of the answer.\nfunction Player:nuiCallback(resource, name, data)\n    checkArgument('nuiCallback', 1, resource, 'string')\n    checkArgument('nuiCallback', 2, name, 'string')\n    local request = ask('nuiCallback', { id = self.id, resource = resource, name = name, data = json.encode(data or {}) })\n    while true do\n        local answer = ask('nuiAnswer', request)\n        if answer.status ~= nil then\n            local ok, value = pcall(json.decode, answer.body)\n            if ok then\n                return value, answer.status\n            end\n            return answer.body, answer.status\n        end\n        Wait(0)\n    end\nend\n\n-- Whether NUI has the focus on the client of the player, and whether it\n-- shows the cursor, as SetNuiFocus left them.\nfunction Player:nuiFocus()\n    local focus = ask('nuiFocus', { id = self.id })\n    return focus.focused, focus.cursor\nend\n\n-- Has the key `key` of the keyboard of the client of the player, by the\n-- name of FiveM's keyboard mapper, such as E or LMENU, go down before the\n-- next frame: it presses the controls of the game that it presses, and\n-- runs the commands that resources bound to it with RegisterKeyMapping.\nfunction Player:keyDown(key)\n    checkArgument('keyDown', 1, key, 'string')\n    ask('key', { id = self.id, key = key, down = true })\nend\n\n-- Has the key `key` go up before the next frame, which runs -command for\n-- the +command that resources bound to it.\nfunction Player:keyUp(key)\n    checkArgument('keyUp', 1, key, 'string')\n    ask('key', { id = self.id, key = key, down = false })\nend\n\n-- Presses the key `key`: it goes down, and up a frame later.\nfunction Player:press(key)\n    self:keyDown(key)\n    Wait(0)\n    self:keyUp(key)\nend\n\n-- What the server printed on its console, line by line.\nfunction fiverunner.output()\n    return ask('output')\nend\n\n-- Calls `check` at each tick until it returns something truthy, and\n-- returns that, or fails the test once `timeout` milliseconds went by.\nfunction fiverunner.waitFor(check, timeout)\n    checkArgument('fiverunner.waitFor', 1, check, 'function')\n    if timeout ~= nil then\n        checkArgument('fiverunner.waitFor', 2, timeout, 'number')\n    end\n    local start = GetGameTimer()\n    while true do\n        local value = check()\n        if value then\n            return value\n        end\n        if timeout ~= nil and GetGameTimer() - start >= timeout then\n            error(setmetatable({ message = string_format('waitFor gave up after %s ms', show(timeout)) }, Failure))\n        end\n        Wait(0)\n    end\nend\n\n--[[ Running tests ]]\n\nlocal target = ask('target')\nlocal chunkName = string_format('@@%s/%s', resource, target.file)\n\n-- Reports no more than this many lines that failures came through.\nlocal REPORTED_FRAMES = 20\n\n-- What failed, from what was raised: the message, with the lines of the\n-- test file that the stack was at, innermost first.\nlocal function failureOf(err)\n    local frames = {}\n    local level = 2\n    while #frames < REPORTED_FRAMES do\n        local info = debug_getinfo(level, 'Sln')\n        if info == nil then\n            break\n        end\n        if info.source == chunkName then\n            frames[#frames + 1] = { line = info.currentline, name = info.name }\n        end\n        level = level + 1\n    end\n    return { message = messageOf(err), frames = frames }\nend\n\n-- Calls `fn`, and returns what failed, if anything did. Lua calls no\n-- handler for errors of memory, and gives the error of the handler if\n-- the handler fails.\nlocal function attempt(fn)\n    local failure\n    local ok, err = xpcall(fn, function(raised)\n        failure = failureOf(raised)\n    end)\n    if ok then\n        return nil\n    end\n    return failure or { message = messageOf(err), frames = {} }\nend\n\n-- Runs a test with the hooks of the describes it is in: the beforeEach\n-- hooks from the outermost describe in, the test if they did not fail, and\n-- the afterEach hooks from the innermost describe out, in each the last\n-- first. Returns what failed.\nlocal function run(test)\n    local failures = {}\n    local function note(failure)\n        failures[#failures + 1] = failure\n        return failure == nil\n    end\n    local suites = {}\n    local at = test.suite\n    while at ~= nil do\n        table_insert(suites, 1, at)\n        at = at.parent\n    end\n    local ready = true\n    for _, inner in ipairs(suites) do\n        for _, fn in ipairs(inner.beforeEach) do\n            ready = ready and note(attempt(fn))\n        end\n    end\n    if ready then\n        note(attempt(test.fn))\n    end\n    for index = #suites, 1, -1 do\n        local hooks = suites[index].afterEach\n        for hookIndex = #hooks, 1, -1 do\n            note(attempt(hooks[hookIndex]))\n        end\n    end\n    return failures\nend\n\nlocal loadFailure\nlocal chunk, syntaxError = load(LoadResourceFile(resource, target.file), chunkName, 't')\nif chunk == nil then\n    loadFailure = { message = syntaxError, frames = {} }\nelse\n    loadFailure = attempt(chunk)\nend\nloading = false\n\nif target.test == nil then\n    local collected = {}\n    for index, entry in ipairs(tests) do\n        collected[index] = { names = namesOf(entry), mode = modeOf(entry), timeout = entry.timeout }\n    end\n    ask('report', { tests = collected, failure = loadFailure })\nelse\n    local entry = tests[target.test]\n    if loadFailure ~= nil or entry == nil then\n        local failure = loadFailure or { message = 'the test file has fewer tests than it had', frames = {} }\n        ask('report', { failures = { failure } })\n    else\n        -- The scripts of the project start their threads before the test runs.\n        CreateThread(function()\n            local failures = run(entry)\n            ask('report', { names = namesOf(entry), failures = failures })\n        end)\n    end\nend\n";
+var harness_default = "--[[\n    FiveRunner's test harness: the server script of the resource that runs\n    the tests of a test file, each in a server of its own.\n\n    It loads the test file that the runner names, as FiveM loads the server\n    scripts of a resource, and collects the tests that the file adds with\n    describe and it. Then it either tells the runner what they are, or runs\n    the one that the runner asks for, in a thread of its own, between the\n    beforeEach and afterEach hooks of the describes that the test is in,\n    and tells the runner what failed.\n\n    expect checks the values that tests give it, and fails the test with\n    the first that is not as expected. fiverunner connects players, whose\n    clients run the client script of the resource, which runs the code\n    that tests give them.\n]]\n\nlocal type, error, tostring = type, error, tostring\nlocal pcall, xpcall, next, ipairs = pcall, xpcall, next, ipairs\nlocal rawequal, rawget, rawlen = rawequal, rawget, rawlen\nlocal setmetatable = setmetatable\nlocal string_format, string_find, string_gsub = string.format, string.find, string.gsub\nlocal table_concat, table_insert, table_sort = table.concat, table.insert, table.sort\nlocal table_pack, table_unpack = table.pack, table.unpack\nlocal math_type, math_abs, math_huge = math.type, math.abs, math.huge\nlocal debug_getinfo = debug.getinfo\nlocal msgpack_pack = msgpack.pack\n\nlocal call = FiverunnerCall\nlocal resource = GetCurrentResourceName()\n\n-- Asks the runner for something, with arguments that msgpack packs.\nlocal function ask(method, args)\n    return call(method, msgpack_pack(args or {}))\nend\n\n--[[ Errors ]]\n\nlocal HARNESS = debug_getinfo(1, 'S').source\n\n-- Raises an error at the first call outside the harness, as Lua's own\n-- functions raise theirs where they were called.\nlocal function raise(message)\n    local level = 2\n    while true do\n        local info = debug_getinfo(level, 'S')\n        if info == nil or info.source ~= HARNESS then\n            break\n        end\n        level = level + 1\n    end\n    error(message, level)\nend\n\n-- Checks that argument `index` of the function `name` is of the type\n-- `expected`, as Lua's own functions check theirs.\nlocal function checkArgument(name, index, value, expected)\n    if type(value) ~= expected then\n        raise(string_format(\"bad argument #%d to '%s' (%s expected, got %s)\", index, name, expected, type(value)))\n    end\nend\n\n-- What expect fails tests with, whose message tostring gives.\nlocal Failure = {}\n\nfunction Failure.__tostring(failure)\n    return failure.message\nend\n\n-- The message of an error, as tostring gives it.\nlocal function messageOf(err)\n    local ok, message = pcall(tostring, err)\n    return ok and message or '(error object is not a string)'\nend\n\n--[[ Collecting tests ]]\n\n-- The describes form a tree, whose root is the file, and each test is in one.\nlocal root = { beforeEach = {}, afterEach = {} }\nlocal suite = root\nlocal tests = {}\nlocal loading = true\n\n-- Checks that a test, a describe or a hook is added as the test file loads.\nlocal function checkLoading(name)\n    if not loading then\n        raise(string_format('%s adds to the tests of the file only as it loads', name))\n    end\nend\n\nlocal function addSuite(name, mode, title, fn)\n    checkArgument(name, 1, title, 'string')\n    checkArgument(name, 2, fn, 'function')\n    checkLoading(name)\n    local parent = suite\n    suite = { name = title, parent = parent, mode = mode, beforeEach = {}, afterEach = {} }\n    fn()\n    suite = parent\nend\n\nlocal function addTest(name, mode, title, fn, timeout)\n    checkArgument(name, 1, title, 'string')\n    checkArgument(name, 2, fn, 'function')\n    if timeout ~= nil and not (type(timeout) == 'number' and timeout > 0 and timeout < math_huge) then\n        local got = type(timeout) == 'number' and tostring(timeout) or type(timeout)\n        raise(string_format(\"bad argument #3 to '%s' (milliseconds expected, got %s)\", name, got))\n    end\n    checkLoading(name)\n    tests[#tests + 1] = { name = title, suite = suite, mode = mode, fn = fn, timeout = timeout }\nend\n\n-- describe and it, which skip and only mark: tests that are skipped do not\n-- run, and when a file marks some with only, its other tests do not either.\nlocal function entry(name, add)\n    return setmetatable({\n        skip = function(...)\n            add(name .. '.skip', 'skip', ...)\n        end,\n        only = function(...)\n            add(name .. '.only', 'only', ...)\n        end,\n    }, {\n        __call = function(_, ...)\n            add(name, 'run', ...)\n        end,\n    })\nend\n\ndescribe = entry('describe', addSuite)\nit = entry('it', addTest)\ntest = entry('test', addTest)\n\n-- beforeEach and afterEach, which add hooks to the describe they are in.\nlocal function hook(name)\n    return function(fn)\n        checkArgument(name, 1, fn, 'function')\n        checkLoading(name)\n        local hooks = suite[name]\n        hooks[#hooks + 1] = fn\n    end\nend\n\nbeforeEach = hook('beforeEach')\nafterEach = hook('afterEach')\n\n-- The names of the describes that a test is in, and its own.\nlocal function namesOf(test)\n    local names = { test.name }\n    local at = test.suite\n    while at ~= root do\n        table_insert(names, 1, at.name)\n        at = at.parent\n    end\n    return names\nend\n\n-- How a test runs: skip if it or a describe it is in is skipped, and else\n-- only if it or one of them is marked only.\nlocal function modeOf(test)\n    local skip, only = test.mode == 'skip', test.mode == 'only'\n    local at = test.suite\n    while at ~= root do\n        skip = skip or at.mode == 'skip'\n        only = only or at.mode == 'only'\n        at = at.parent\n    end\n    return skip and 'skip' or only and 'only' or 'run'\nend\n\n--[[ Showing values ]]\n\nlocal KEYWORDS = {}\nfor keyword in ('and break do else elseif end false for function goto if in local nil not or repeat return then true until while'):gmatch('%a+') do\n    KEYWORDS[keyword] = true\nend\n\n-- Shows no more than this many entries of a table, and tables no deeper than this.\nlocal SHOWN_ENTRIES = 20\nlocal SHOWN_DEPTH = 3\n\n-- Orders the keys of tables to show them: by type, then numbers by value\n-- and the others as tostring gives them.\nlocal function before(a, b)\n    local ta, tb = type(a), type(b)\n    if ta ~= tb then\n        return ta < tb\n    end\n    if ta == 'number' then\n        return a < b\n    end\n    return tostring(a) < tostring(b)\nend\n\n-- Shows a value as Lua code would write it, as far as it can.\nlocal function show(value, depth)\n    local kind = type(value)\n    if kind == 'string' then\n        return (string_gsub(string_format('%q', value), '\\\\\\n', '\\\\n'))\n    elseif kind ~= 'table' then\n        return tostring(value)\n    end\n    depth = depth or 0\n    if depth >= SHOWN_DEPTH then\n        return next(value) == nil and '{}' or '{...}'\n    end\n    local length = rawlen(value)\n    local keys = {}\n    for key in next, value do\n        if not (math_type(key) == 'integer' and key >= 1 and key <= length) then\n            keys[#keys + 1] = key\n        end\n    end\n    if length + #keys == 0 then\n        return '{}'\n    end\n    table_sort(keys, before)\n    local parts = {}\n    for index = 1, length do\n        if #parts == SHOWN_ENTRIES then\n            break\n        end\n        parts[#parts + 1] = show(rawget(value, index), depth + 1)\n    end\n    for _, key in ipairs(keys) do\n        if #parts == SHOWN_ENTRIES then\n            break\n        end\n        local name = key\n        if type(key) ~= 'string' or KEYWORDS[key] or not string_find(key, '^[%a_][%w_]*$') then\n            name = '[' .. show(key, depth + 1) .. ']'\n        end\n        parts[#parts + 1] = name .. ' = ' .. show(rawget(value, key), depth + 1)\n    end\n    if length + #keys > SHOWN_ENTRIES then\n        parts[#parts + 1] = '...'\n    end\n    return '{ ' .. table_concat(parts, ', ') .. ' }'\nend\n\n--[[ Comparing values ]]\n\n-- Whether two values are the same, as toBe compares them, with NaN the\n-- same as NaN.\nlocal function same(a, b)\n    return rawequal(a, b) or (a ~= a and b ~= b)\nend\n\n-- Whether two values are equal, as toEqual compares them: tables when\n-- they have the same keys, with equal values, whatever their metatables,\n-- and other values when they are the same.\nlocal function equal(a, b, seen)\n    if same(a, b) then\n        return true\n    end\n    if type(a) ~= 'table' or type(b) ~= 'table' then\n        return false\n    end\n    -- Tables that hold themselves are equal as far as they go.\n    seen = seen or {}\n    local compared = seen[a]\n    if compared == nil then\n        compared = {}\n        seen[a] = compared\n    elseif compared[b] then\n        return true\n    end\n    compared[b] = true\n    for key, value in next, a do\n        if not equal(value, rawget(b, key), seen) then\n            return false\n        end\n    end\n    for key in next, b do\n        if rawget(a, key) == nil then\n            return false\n        end\n    end\n    return true\nend\n\n--[[ Expectations ]]\n\n-- The matchers of expect: each takes the value and the arguments of the\n-- matcher, and returns whether the value matches, with what fails the test\n-- if it does not, and what fails it if it does when negated with never.\nlocal matchers = {}\n\nfunction matchers.toBe(actual, expected)\n    local hint = ''\n    if type(actual) == 'table' and type(expected) == 'table' and equal(actual, expected) then\n        hint = ', the same table: toEqual compares what tables hold'\n    end\n    return same(actual, expected),\n        string_format('expected %s to be %s%s', show(actual), show(expected), hint),\n        string_format('expected %s not to be %s', show(actual), show(expected))\nend\n\nfunction matchers.toEqual(actual, expected)\n    return equal(actual, expected),\n        string_format('expected %s to equal %s', show(actual), show(expected)),\n        string_format('expected %s not to equal %s', show(actual), show(expected))\nend\n\nfunction matchers.toBeTruthy(actual)\n    return actual ~= nil and actual ~= false,\n        string_format('expected %s to be truthy', show(actual)),\n        string_format('expected %s not to be truthy', show(actual))\nend\n\nfunction matchers.toBeFalsy(actual)\n    return actual == nil or actual == false,\n        string_format('expected %s to be falsy', show(actual)),\n        string_format('expected %s not to be falsy', show(actual))\nend\n\nfunction matchers.toBeNil(actual)\n    return actual == nil,\n        string_format('expected %s to be nil', show(actual)),\n        'expected the value not to be nil'\nend\n\n-- Adds a matcher that compares numbers.\nlocal function comparison(name, phrase, compare)\n    matchers[name] = function(actual, expected)\n        if type(actual) ~= 'number' or type(expected) ~= 'number' then\n            raise(string_format('%s compares numbers, not %s and %s', name, type(actual), type(expected)))\n        end\n        return compare(actual, expected),\n            string_format('expected %s to be %s %s', show(actual), phrase, show(expected)),\n            string_format('expected %s not to be %s %s', show(actual), phrase, show(expected))\n    end\nend\n\ncomparison('toBeGreaterThan', 'greater than', function(a, b)\n    return a > b\nend)\ncomparison('toBeGreaterThanOrEqual', 'greater than or equal to', function(a, b)\n    return a >= b\nend)\ncomparison('toBeLessThan', 'less than', function(a, b)\n    return a < b\nend)\ncomparison('toBeLessThanOrEqual', 'less than or equal to', function(a, b)\n    return a <= b\nend)\n\nfunction matchers.toBeCloseTo(actual, expected, digits)\n    if type(actual) ~= 'number' or type(expected) ~= 'number' then\n        raise(string_format('toBeCloseTo compares numbers, not %s and %s', type(actual), type(expected)))\n    end\n    digits = digits == nil and 2 or digits\n    if type(digits) ~= 'number' then\n        raise(string_format('toBeCloseTo takes a number of digits, not %s', type(digits)))\n    end\n    local within = 10 ^ -digits / 2\n    return actual == expected or math_abs(actual - expected) < within,\n        string_format('expected %s to be close to %s, within %s', show(actual), show(expected), show(within)),\n        string_format('expected %s not to be close to %s, within %s', show(actual), show(expected), show(within))\nend\n\n-- Whether a table has a value that `matches` takes as the item.\nlocal function holds(t, item, matches)\n    for _, value in next, t do\n        if matches(value, item) then\n            return true\n        end\n    end\n    return false\nend\n\nfunction matchers.toContain(actual, item)\n    local found\n    if type(actual) == 'string' then\n        if type(item) ~= 'string' then\n            raise(string_format('toContain finds strings in strings, not %s', type(item)))\n        end\n        found = string_find(actual, item, 1, true) ~= nil\n    elseif type(actual) == 'table' then\n        found = holds(actual, item, same)\n    else\n        raise(string_format('toContain finds values in strings and tables, not in %s', type(actual)))\n    end\n    return found,\n        string_format('expected %s to contain %s', show(actual), show(item)),\n        string_format('expected %s not to contain %s', show(actual), show(item))\nend\n\nfunction matchers.toContainEqual(actual, item)\n    if type(actual) ~= 'table' then\n        raise(string_format('toContainEqual finds values in tables, not in %s', type(actual)))\n    end\n    return holds(actual, item, equal),\n        string_format('expected %s to contain a value equal to %s', show(actual), show(item)),\n        string_format('expected %s not to contain a value equal to %s', show(actual), show(item))\nend\n\nfunction matchers.toHaveLength(actual, length)\n    if type(actual) ~= 'string' and type(actual) ~= 'table' then\n        raise(string_format('toHaveLength measures strings and tables, not %s', type(actual)))\n    end\n    local actualLength = #actual\n    return actualLength == length,\n        string_format('expected %s to have length %s, not %s', show(actual), show(length), show(actualLength)),\n        string_format('expected %s not to have length %s', show(actual), show(length))\nend\n\nfunction matchers.toMatch(actual, pattern)\n    if type(actual) ~= 'string' or type(pattern) ~= 'string' then\n        raise(string_format('toMatch matches strings with patterns, not %s with %s', type(actual), type(pattern)))\n    end\n    local ok, found = pcall(string_find, actual, pattern)\n    if not ok then\n        raise(string_format('toMatch takes Lua patterns: %s', found))\n    end\n    return found ~= nil,\n        string_format('expected %s to match %s', show(actual), show(pattern)),\n        string_format('expected %s not to match %s', show(actual), show(pattern))\nend\n\nfunction matchers.toThrow(actual, expected)\n    if type(actual) ~= 'function' then\n        raise(string_format('toThrow calls functions, not %s', type(actual)))\n    end\n    if expected ~= nil and type(expected) ~= 'string' then\n        raise(string_format('toThrow finds strings in what functions throw, not %s', type(expected)))\n    end\n    local ok, err = pcall(actual)\n    local with = expected == nil and '' or string_format(' an error with %s', show(expected))\n    if ok then\n        return false, string_format('expected the function to throw%s', with), ''\n    end\n    local message = messageOf(err)\n    return expected == nil or string_find(message, expected, 1, true) ~= nil,\n        string_format('expected the function to throw%s, but it threw %s', with, show(message)),\n        string_format('expected the function not to throw%s, but it threw %s', with, show(message))\nend\n\n-- Runs a matcher on the value that expect took, and fails the test if the\n-- value does not match, or if it does but `negated` says it should not.\nlocal function check(expectation, name, matcher, actual, negated, ...)\n    if rawequal((...), expectation) then\n        raise(string_format('call %s with a dot, as in expect(value).%s(...), not with a colon', name, name))\n    end\n    local matches, message, negatedMessage = matcher(actual, ...)\n    if matches == negated then\n        error(setmetatable({ message = negated and negatedMessage or message }, Failure))\n    end\nend\n\n-- Takes a value to check with the matchers that it gives, or that its\n-- field never gives, which fail when the value matches.\nfunction expect(actual)\n    local expectation, negation = {}, {}\n    for name, matcher in next, matchers do\n        expectation[name] = function(...)\n            check(expectation, name, matcher, actual, false, ...)\n        end\n        negation[name] = function(...)\n            check(negation, name, matcher, actual, true, ...)\n        end\n    end\n    expectation.never = negation\n    return expectation\nend\n\n--[[ Players ]]\n\nfiverunner = {}\n\n-- The ids of the players whose clients started the resources of the server.\nlocal ready = {}\n-- What the clients of players gave back of the code they ran, by request.\nlocal results = {}\nlocal requests = 0\n\nRegisterNetEvent('fiverunner:ready', function()\n    ready[source] = true\nend)\n\nRegisterNetEvent('fiverunner:result', function(request, ok, values)\n    results[request] = { ok = ok, values = values }\nend)\n\n-- What players are, by the types of what the identities of players have.\nlocal IDENTITY = { name = 'string', guid = 'string', endpoint = 'string', identifiers = 'table', tokens = 'table', card = 'table' }\n\n-- A player that connected, by its id on the server and its name.\nlocal Player = {}\nPlayer.__index = Player\n\n-- Connects a player, as its identity says: its name, its guid, the\n-- endpoint it connects from, its identifiers and tokens, which are lists\n-- of strings, and what it answers the cards of deferrals with. Returns the\n-- player once its client started the resources of the server, or nil and\n-- why the server refused it.\nfunction fiverunner.connect(identity)\n    if identity ~= nil then\n        checkArgument('fiverunner.connect', 1, identity, 'table')\n        for key, value in next, identity do\n            local expected = IDENTITY[key]\n            if expected == nil then\n                raise(string_format('players have a name, a guid, an endpoint, identifiers, tokens and a card, not %s', show(key)))\n            end\n            if type(value) ~= expected then\n                raise(string_format('the %s of a player is a %s, not a %s', key, expected, type(value)))\n            end\n            if expected == 'table' and key ~= 'card' then\n                for _, item in next, value do\n                    if type(item) ~= 'string' then\n                        raise(string_format('the %s of a player are strings, not %s', key, type(item)))\n                    end\n                end\n            end\n        end\n    end\n    local answer = identity ~= nil and identity.card ~= nil and json.encode(identity.card) or nil\n    local connection = ask('connect', { identity = identity, answer = answer })\n    while true do\n        local state = ask('connection', connection)\n        if state.state == 'rejected' then\n            return nil, state.reason\n        elseif state.state == 'dropped' then\n            return nil, 'the server dropped the player'\n        elseif state.state == 'joined' and ready[state.id] then\n            return setmetatable({ id = state.id, name = state.name }, Player)\n        end\n        Wait(0)\n    end\nend\n\n-- Runs `code` in the client of the player, as a chunk of its own that\n-- takes `...`, in a thread of its own, and returns what it returns once\n-- the client gave it back. Raises what the code raised.\nfunction Player:run(code, ...)\n    checkArgument('run', 1, code, 'string')\n    requests = requests + 1\n    local request = requests\n    TriggerClientEvent('fiverunner:run', self.id, request, code, table_pack(...))\n    while results[request] == nil do\n        if not DoesPlayerExist(self.id) then\n            raise(string_format('player %d left before its client ran the code', self.id))\n        end\n        Wait(0)\n    end\n    local result = results[request]\n    results[request] = nil\n    if not result.ok then\n        raise(string_format('the client of player %d raised: %s', self.id, result.values))\n    end\n    return table_unpack(result.values, 1, result.values.n)\nend\n\n-- Triggers `event` on the server from the client of the player, with\n-- `...`, and returns once the server got it.\nfunction Player:emit(event, ...)\n    checkArgument('emit', 1, event, 'string')\n    self:run('TriggerServerEvent(...)', event, ...)\nend\n\n-- The arguments of each `event` that the client of the player got from the\n-- network, in the order they came.\nfunction Player:received(event)\n    checkArgument('received', 1, event, 'string')\n    return ask('received', { id = self.id, event = event })\nend\n\n-- What the client of the player printed on its console, line by line, from\n-- line `from` on, when given.\nfunction Player:output(from)\n    if from ~= nil then\n        checkArgument('output', 1, from, 'number')\n    end\n    return ask('output', { id = self.id, from = from })\nend\n\n-- Disconnects the client of the player, as players quit, for `reason`,\n-- and returns once the server dropped the player.\nfunction Player:disconnect(reason)\n    if reason ~= nil then\n        checkArgument('disconnect', 1, reason, 'string')\n    end\n    ask('disconnect', { id = self.id, reason = reason })\n    while DoesPlayerExist(self.id) do\n        Wait(0)\n    end\nend\n\n-- Has `fn` run in place of the native that the Lua global `name` stands\n-- for, on the server or on the client of a player, for the rest of the\n-- test, with the arguments of the native, for the first of its results to\n-- be what the native returns.\nlocal function mock(id, name, fn)\n    checkArgument('mock', 1, name, 'string')\n    checkArgument('mock', 2, fn, 'function')\n    if not ask('mock', { id = id, name = name, fn = fn }) then\n        raise(string_format('there is no native %s to mock', show(name)))\n    end\nend\n\nfunction fiverunner.mock(name, fn)\n    mock(nil, name, fn)\nend\n\nfunction Player:mock(name, fn)\n    mock(self.id, name, fn)\nend\n\n-- What the scripts of the client of the player sent the frame of the NUI\n-- of `resource`, as SendNUIMessage gives it, in the order they sent it.\nfunction Player:nuiMessages(resource)\n    checkArgument('nuiMessages', 1, resource, 'string')\n    local messages = {}\n    for i, text in ipairs(ask('nuiMessages', { id = self.id, resource = resource })) do\n        messages[i] = json.decode(text)\n    end\n    return messages\nend\n\n-- Calls the NUI callback `name` of `resource` on the client of the\n-- player, as the page of the resource does, with `data` as JSON, and\n-- returns what the callback answered once it did, as JSON reads it, or as\n-- it is when it is no JSON, and the status of the answer.\nfunction Player:nuiCallback(resource, name, data)\n    checkArgument('nuiCallback', 1, resource, 'string')\n    checkArgument('nuiCallback', 2, name, 'string')\n    local request = ask('nuiCallback', { id = self.id, resource = resource, name = name, data = json.encode(data or {}) })\n    while true do\n        local answer = ask('nuiAnswer', request)\n        if answer.status ~= nil then\n            local ok, value = pcall(json.decode, answer.body)\n            if ok then\n                return value, answer.status\n            end\n            return answer.body, answer.status\n        end\n        Wait(0)\n    end\nend\n\n-- Whether NUI has the focus on the client of the player, and whether it\n-- shows the cursor, as SetNuiFocus left them.\nfunction Player:nuiFocus()\n    local focus = ask('nuiFocus', { id = self.id })\n    return focus.focused, focus.cursor\nend\n\n-- Has the key `key` of the keyboard of the client of the player, by the\n-- name of FiveM's keyboard mapper, such as E or LMENU, go down before the\n-- next frame: it presses the controls of the game that it presses, and\n-- runs the commands that resources bound to it with RegisterKeyMapping.\nfunction Player:keyDown(key)\n    checkArgument('keyDown', 1, key, 'string')\n    ask('key', { id = self.id, key = key, down = true })\nend\n\n-- Has the key `key` go up before the next frame, which runs -command for\n-- the +command that resources bound to it.\nfunction Player:keyUp(key)\n    checkArgument('keyUp', 1, key, 'string')\n    ask('key', { id = self.id, key = key, down = false })\nend\n\n-- Presses the key `key`: it goes down, and up a frame later.\nfunction Player:press(key)\n    self:keyDown(key)\n    Wait(0)\n    self:keyUp(key)\nend\n\n-- What the server printed on its console, line by line, from line `from` on,\n-- when given.\nfunction fiverunner.output(from)\n    if from ~= nil then\n        checkArgument('fiverunner.output', 1, from, 'number')\n    end\n    return ask('output', { from = from })\nend\n\n-- The events that the resources of the server handle, as { name, resources },\n-- in the order they first registered for them, those of tests left out.\nfunction fiverunner.events()\n    return ask('events')\nend\n\n-- Calls `check` at each tick until it returns something truthy, and\n-- returns that, or fails the test once `timeout` milliseconds went by.\nfunction fiverunner.waitFor(check, timeout)\n    checkArgument('fiverunner.waitFor', 1, check, 'function')\n    if timeout ~= nil then\n        checkArgument('fiverunner.waitFor', 2, timeout, 'number')\n    end\n    local start = GetGameTimer()\n    while true do\n        local value = check()\n        if value then\n            return value\n        end\n        if timeout ~= nil and GetGameTimer() - start >= timeout then\n            error(setmetatable({ message = string_format('waitFor gave up after %s ms', show(timeout)) }, Failure))\n        end\n        Wait(0)\n    end\nend\n\n--[[ Running tests ]]\n\nlocal target = ask('target')\nlocal chunkName = string_format('@@%s/%s', resource, target.file)\n\n-- Reports no more than this many lines that failures came through.\nlocal REPORTED_FRAMES = 20\n\n-- What failed, from what was raised: the message, with the lines of the\n-- test file that the stack was at, innermost first.\nlocal function failureOf(err)\n    local frames = {}\n    local level = 2\n    while #frames < REPORTED_FRAMES do\n        local info = debug_getinfo(level, 'Sln')\n        if info == nil then\n            break\n        end\n        if info.source == chunkName then\n            frames[#frames + 1] = { line = info.currentline, name = info.name }\n        end\n        level = level + 1\n    end\n    return { message = messageOf(err), frames = frames }\nend\n\n-- Calls `fn`, and returns what failed, if anything did. Lua calls no\n-- handler for errors of memory, and gives the error of the handler if\n-- the handler fails.\nlocal function attempt(fn)\n    local failure\n    local ok, err = xpcall(fn, function(raised)\n        failure = failureOf(raised)\n    end)\n    if ok then\n        return nil\n    end\n    return failure or { message = messageOf(err), frames = {} }\nend\n\n-- Runs a test with the hooks of the describes it is in: the beforeEach\n-- hooks from the outermost describe in, the test if they did not fail, and\n-- the afterEach hooks from the innermost describe out, in each the last\n-- first. Returns what failed.\nlocal function run(test)\n    local failures = {}\n    local function note(failure)\n        failures[#failures + 1] = failure\n        return failure == nil\n    end\n    local suites = {}\n    local at = test.suite\n    while at ~= nil do\n        table_insert(suites, 1, at)\n        at = at.parent\n    end\n    local ready = true\n    for _, inner in ipairs(suites) do\n        for _, fn in ipairs(inner.beforeEach) do\n            ready = ready and note(attempt(fn))\n        end\n    end\n    if ready then\n        note(attempt(test.fn))\n    end\n    for index = #suites, 1, -1 do\n        local hooks = suites[index].afterEach\n        for hookIndex = #hooks, 1, -1 do\n            note(attempt(hooks[hookIndex]))\n        end\n    end\n    return failures\nend\n\nlocal loadFailure\nlocal chunk, syntaxError = load(LoadResourceFile(resource, target.file), chunkName, 't')\nif chunk == nil then\n    loadFailure = { message = syntaxError, frames = {} }\nelse\n    loadFailure = attempt(chunk)\nend\nloading = false\n\nif target.test == nil then\n    local collected = {}\n    for index, entry in ipairs(tests) do\n        collected[index] = { names = namesOf(entry), mode = modeOf(entry), timeout = entry.timeout }\n    end\n    ask('report', { tests = collected, failure = loadFailure })\nelse\n    local entry = tests[target.test]\n    if loadFailure ~= nil or entry == nil then\n        local failure = loadFailure or { message = 'the test file has fewer tests than it had', frames = {} }\n        ask('report', { failures = { failure } })\n    else\n        -- The scripts of the project start their threads before the test runs.\n        CreateThread(function()\n            local failures = run(entry)\n            ask('report', { names = namesOf(entry), failures = failures })\n        end)\n    end\nend\n";
 //#endregion
 //#region src/runner/output.ts
 /**
@@ -102798,7 +102359,7 @@ var World = class World {
 	* `test`th of them.
 	*/
 	static async create(options, file, test, parse) {
-		const output = new Output();
+		const output = new Output(options.onLine);
 		const pending = [];
 		let world;
 		const call = defineNative({
@@ -102885,11 +102446,11 @@ var World = class World {
 				const { name, id } = fields(args);
 				const reference = (object?.type === "map" ? object.entries.find(([key]) => plain(key) === "fn") : void 0)?.[1];
 				if (reference?.type !== "ext") throw new Error("Mocks need a function");
-				const ref = decoder.decode(reference.extension.data);
+				const ref = decoder$2.decode(reference.extension.data);
 				const { server } = this.engine;
-				const native = (id === void 0 ? server : this.#connectionOf(count(id)).client).natives.mock(text(name), (_, ...values) => {
+				const native = (id === void 0 ? server : this.#connectionOf(count(id)).client).natives.mock(text$1(name), (_, ...values) => {
 					const results = server.invokeFunctionReference(ref, pack(values));
-					if (results == null) throw new Error(`the mock of ${text(name)} failed`);
+					if (results == null) throw new Error(`the mock of ${text$1(name)} failed`);
 					return resultOf(native.sets ?? native.result, unpackObject(results));
 				});
 				return pack(native !== void 0);
@@ -102905,32 +102466,38 @@ var World = class World {
 				const { player } = this.#connectionOf(count(id));
 				return packObject({
 					type: "array",
-					items: this.#received.filter((received) => received.player === player && received.name === text(event)).map((received) => unpackObject(received.payload))
+					items: this.#received.filter((received) => received.player === player && received.name === text$1(event)).map((received) => unpackObject(received.payload))
 				});
 			}
+			case "events": return pack(this.engine.server.events.registered().map(([name, resources]) => ({
+				name,
+				resources: resources.filter((resource) => resource !== TEST_RESOURCE)
+			})).filter(({ resources }) => resources.length > 0));
 			case "output": {
-				const { id } = fields(args);
+				const { id, from } = fields(args);
 				const process = id === void 0 ? "server" : this.#connectionOf(count(id)).process;
-				return pack(this.output.lines.filter((line) => line.process === process && line.kind === "console").map(({ channel, text }) => `[${channel}] ${text.replace(/\^\d/g, "")}`));
+				const lines = this.output.lines.filter((line) => line.process === process && line.kind === "console");
+				const first = from === void 0 ? 0 : Math.max(0, Math.trunc(Number(from)) - 1);
+				return pack(lines.slice(first).map(({ channel, text }) => `[${channel}] ${text.replace(/\^\d/g, "")}`));
 			}
 			case "nuiMessages": {
 				const { id, resource } = fields(args);
 				const { messages } = this.#connectionOf(count(id));
-				return pack(messages.filter((message) => message.resource === text(resource)).map(({ json }) => json));
+				return pack(messages.filter((message) => message.resource === text$1(resource)).map(({ json }) => json));
 			}
 			case "nuiCallback": {
 				const { id, resource, name, data } = fields(args);
 				const nui = this.#connectionOf(count(id)).client.nui;
 				const answer = {};
-				nui.request(text(resource), {
+				nui.request(text$1(resource), {
 					method: "POST",
-					path: `/${text(name)}`,
+					path: `/${text$1(name)}`,
 					query: "",
-					headers: [["Content-Type", "application/json; charset=UTF-8"], ["Origin", `https://cfx-nui-${text(resource)}`]],
-					body: encoder.encode(text(data))
+					headers: [["Content-Type", "application/json; charset=UTF-8"], ["Origin", `https://cfx-nui-${text$1(resource)}`]],
+					body: encoder$1.encode(text$1(data))
 				}).then((response) => {
 					answer.status = response.status;
-					answer.body = decoder.decode(response.body);
+					answer.body = decoder$2.decode(response.body);
 				});
 				this.#answers.push(answer);
 				return pack(this.#answers.length);
@@ -102956,7 +102523,7 @@ var World = class World {
 				const client = this.#connectionOf(count(id)).client;
 				this.#actions.push(() => this.#survive(() => {
 					const { input } = client.world;
-					const commands = down === true ? input.keyDown(text(key)) : input.keyUp(text(key));
+					const commands = down === true ? input.keyDown(text$1(key)) : input.keyUp(text$1(key));
 					for (const command of commands) client.console.commands.invoke(command, "");
 				}));
 				return pack(null);
@@ -102964,7 +102531,7 @@ var World = class World {
 			case "disconnect": {
 				const { id, reason } = fields(args);
 				const { player } = this.#connectionOf(count(id));
-				const why = reason === void 0 ? void 0 : text(reason);
+				const why = reason === void 0 ? void 0 : text$1(reason);
 				this.#actions.push(() => this.#survive(() => player.quit(why)));
 				return pack(null);
 			}
@@ -102984,7 +102551,7 @@ var World = class World {
 			player: void 0,
 			client: void 0,
 			messages: [],
-			...answer === void 0 ? {} : { answer: text(answer) }
+			...answer === void 0 ? {} : { answer: text$1(answer) }
 		};
 		this.#connections.push(connection);
 		this.#actions.push(async () => {
@@ -103051,7 +102618,13 @@ var World = class World {
 /** What the processes of a server printed and reported, line by line. */
 var Output = class {
 	#lines = [];
-	#writer = new LineOutput((line) => this.#lines.push(line));
+	#writer;
+	constructor(onLine) {
+		this.#writer = new LineOutput((line) => {
+			this.#lines.push(line);
+			onLine?.(line);
+		});
+	}
 	/** Where the process `process` writes. */
 	of(process) {
 		return this.#writer.of(process);
@@ -103061,8 +102634,8 @@ var Output = class {
 		return [...this.#lines, ...this.#writer.unended];
 	}
 };
-var decoder = new TextDecoder();
-var encoder = new TextEncoder();
+var decoder$2 = new TextDecoder();
+var encoder$1 = new TextEncoder();
 /** A msgpack value as JavaScript has it, with maps as objects by their keys as strings. */
 function plain(object) {
 	switch (object.type) {
@@ -103074,7 +102647,7 @@ function plain(object) {
 		case "positive":
 		case "negative": return Number(object.value);
 		case "str":
-		case "bin": return decoder.decode(object.bytes);
+		case "bin": return decoder$2.decode(object.bytes);
 		case "array": return object.items.map(plain);
 		case "map": return Object.fromEntries(object.entries.map(([key, value]) => [plain(key), plain(value)]));
 	}
@@ -103116,7 +102689,7 @@ function loadedOf(value) {
 function ranOf(value) {
 	const ran = record(value);
 	return {
-		names: ran.names === void 0 ? void 0 : list(ran.names).map(text),
+		names: ran.names === void 0 ? void 0 : list(ran.names).map(text$1),
 		failures: list(ran.failures).map(failureOf)
 	};
 }
@@ -103126,7 +102699,7 @@ function collectedOf(value) {
 	if (mode !== "run" && mode !== "skip" && mode !== "only") throw new Error(`Unknown mode ${String(mode)}`);
 	if (timeout !== void 0 && typeof timeout !== "number") throw new Error("Timeouts are numbers");
 	return {
-		names: list(test.names).map(text),
+		names: list(test.names).map(text$1),
 		mode,
 		timeout
 	};
@@ -103138,11 +102711,11 @@ function failureOf(value) {
 		if (typeof frame.line !== "number") throw new Error("Frames have lines");
 		return frame.name === void 0 ? { line: frame.line } : {
 			line: frame.line,
-			name: text(frame.name)
+			name: text$1(frame.name)
 		};
 	});
 	return {
-		message: text(failure.message),
+		message: text$1(failure.message),
 		frames
 	};
 }
@@ -103168,18 +102741,594 @@ function count(value) {
 function identityOf(value) {
 	const { name, guid, endpoint, identifiers, tokens } = fields(value);
 	return {
-		...name === void 0 ? {} : { name: text(name) },
-		...guid === void 0 ? {} : { guid: text(guid) },
-		...endpoint === void 0 ? {} : { endpoint: text(endpoint) },
-		identifiers: identifiers === void 0 ? [licenseOf(name === void 0 ? void 0 : text(name))] : list(identifiers).map(text),
-		...tokens === void 0 ? {} : { tokens: list(tokens).map(text) }
+		...name === void 0 ? {} : { name: text$1(name) },
+		...guid === void 0 ? {} : { guid: text$1(guid) },
+		...endpoint === void 0 ? {} : { endpoint: text$1(endpoint) },
+		identifiers: identifiers === void 0 ? [licenseOf(name === void 0 ? void 0 : text$1(name))] : list(identifiers).map(text$1),
+		...tokens === void 0 ? {} : { tokens: list(tokens).map(text$1) }
 	};
 }
-function text(value) {
+function text$1(value) {
 	if (typeof value !== "string") throw new Error("Expected a string");
 	return value;
 }
 //#endregion
+//#region src/cli/audit.lua?raw
+var audit_default = "-- FiveRunner's audit, which `fiverunner audit` runs as a test of the project:\n-- it triggers each event of the server that clients may trigger, from a\n-- player, with the arguments that cheaters give, and tells what each changed\n-- of what the player has, of the database and of the world, as lines of JSON.\n\nlocal MARK = 'fiverunner:audit '\n\n--- Tells `fiverunner audit` of something, as a line of JSON.\nlocal function tell(record)\n    print(MARK .. json.encode(record))\nend\n\nlocal function started(name)\n    return GetResourceState(name) == 'started'\nend\n\n-- The framework that logs players in, and the inventory that holds their items.\nlocal framework = started('qbx_core') and 'qbx' or started('qb-core') and 'qb' or started('es_extended') and 'esx' or nil\nlocal oxInventory = started('ox_inventory')\n\nlocal CHARINFO = { firstname = 'Audit', lastname = 'Player', birthdate = '1990-01-01', gender = 0, nationality = 'Romania' }\n\nlocal core\n\n--- The shared object of QBCore or ESX, which exports copy whole, so once.\nlocal function coreOf()\n    if core == nil then\n        if framework == 'qb' then core = exports['qb-core']:GetCoreObject() end\n        if framework == 'esx' then core = exports.es_extended:getSharedObject() end\n    end\n    return core\nend\n\n--- The object of the framework for a player, once it logged in.\nlocal function frameworkPlayer(id)\n    local ok, found = pcall(function()\n        if framework == 'qbx' then return exports.qbx_core:GetPlayer(id) end\n        if framework == 'qb' then return coreOf().Functions.GetPlayer(id) end\n        if framework == 'esx' then return coreOf().GetPlayerFromId(id) end\n    end)\n    return ok and found or nil\nend\n\n--- Whether the client of `player` sent the page of `resource` a message of `action`.\nlocal function sent(player, resource, action)\n    for _, message in ipairs(player:nuiMessages(resource)) do\n        if message.action == action then return true end\n    end\n    return false\nend\n\nlocal joined = 0\n\n--- Connects a player and logs it in with a new character, as the framework of the server has players do.\nlocal function join()\n    joined = joined + 1\n    local player, why = fiverunner.connect({ name = 'audit' .. joined })\n    if not player then return nil, why end\n    pcall(function()\n        if framework == 'qbx' then\n            exports.qbx_core:Login(player.id, nil, { charinfo = CHARINFO })\n        elseif framework == 'qb' and started('qb-multicharacter') then\n            fiverunner.waitFor(function() return sent(player, 'qb-multicharacter', 'ui') end, 10000)\n            player:nuiCallback('qb-multicharacter', 'createNewCharacter', {\n                firstname = 'Audit', lastname = 'Player', nationality = 'Romania', birthdate = '1990-01-01', gender = 'Male', cid = 1,\n            })\n        elseif framework == 'qb' then\n            coreOf().Player.Login(player.id, false, { charinfo = CHARINFO })\n        end\n    end)\n    if framework then\n        pcall(fiverunner.waitFor, function() return frameworkPlayer(player.id) end, 10000)\n    end\n    return player\nend\n\n--- Whether `player` is still on the server, and still logged in to its framework.\nlocal function present(player)\n    if GetPlayerName(player.id) == nil then return false end\n    return framework == nil or frameworkPlayer(player.id) ~= nil\nend\n\n--- What `player` has: money by account, items by name, job, gang, group, and whether it may run every command.\nlocal function holdings(player)\n    local held = { money = {}, items = {}, admin = IsPlayerAceAllowed(player.id, 'command') }\n    local found = frameworkPlayer(player.id)\n    pcall(function()\n        if found and framework == 'esx' then\n            for account, money in pairs(found.getAccounts(true)) do held.money[account] = money end\n            if not oxInventory then\n                for name, count in pairs(found.getInventory(true)) do held.items[name] = count end\n            end\n            local job = found.getJob()\n            held.job = ('%s %s'):format(job.name, job.grade)\n            held.group = found.getGroup()\n        elseif found then\n            local data = found.PlayerData\n            for account, money in pairs(data.money or {}) do held.money[account] = money end\n            if not oxInventory then\n                for _, item in pairs(data.items or {}) do\n                    held.items[item.name] = (held.items[item.name] or 0) + (item.amount or item.count or 0)\n                end\n            end\n            if data.job then held.job = ('%s %s'):format(data.job.name, data.job.grade and data.job.grade.level) end\n            if data.gang then held.gang = ('%s %s'):format(data.gang.name, data.gang.grade and data.gang.grade.level) end\n        end\n    end)\n    if oxInventory then\n        pcall(function()\n            for _, item in pairs(exports.ox_inventory:GetInventoryItems(player.id) or {}) do\n                held.items[item.name] = (held.items[item.name] or 0) + item.count\n            end\n        end)\n    end\n    return held\nend\n\nlocal function byText(a, b)\n    return a.text < b.text\nend\n\n--- What `player` gained from `before` to `after`, as { kind, text }, with\n--- kind money, item or field, and the money that it lost, as words.\nlocal function diff(before, after)\n    local gained, lost = {}, {}\n    for account, money in pairs(after.money) do\n        local was = before.money[account] or 0\n        if type(money) == 'number' and type(was) == 'number' then\n            if money > was then\n                gained[#gained + 1] = { kind = 'money', text = ('%s +%s'):format(account, money - was) }\n            elseif money < was then\n                lost[#lost + 1] = ('%s -%s'):format(account, was - money)\n            end\n        end\n    end\n    for name, count in pairs(after.items) do\n        local was = before.items[name] or 0\n        if count > was then gained[#gained + 1] = { kind = 'item', text = ('item %s +%s'):format(name, count - was) } end\n    end\n    for _, field in ipairs({ 'job', 'gang', 'group' }) do\n        if after[field] ~= before[field] and after[field] ~= nil then\n            gained[#gained + 1] = { kind = 'field', text = ('%s %s'):format(field, after[field]) }\n        end\n    end\n    if after.admin and not before.admin then gained[#gained + 1] = { kind = 'field', text = 'every command' } end\n    table.sort(gained, byText)\n    table.sort(lost)\n    return gained, lost\nend\n\n--- Whether `changes` has any of `kind`.\nlocal function has(changes, kind)\n    for _, change in ipairs(changes) do\n        if change.kind == kind then return true end\n    end\n    return false\nend\n\n--- What `player` holds once it stays the same for 2 seconds, within 10, as\n--- frameworks give new characters their starter items a moment after they\n--- log in: QBCore once its other resources had a second to load the player.\nlocal function settled(player)\n    local before, stable = holdings(player), 0\n    for _ = 1, 20 do\n        Wait(500)\n        local now = holdings(player)\n        local gained, lost = diff(before, now)\n        stable = (#gained == 0 and #lost == 0) and stable + 1 or 0\n        if stable == 4 then return now end\n        before = now\n    end\n    return before\nend\n\n--- The rows of each table of the database, as JSON, by the names of the tables.\nlocal function tables()\n    local rows = {}\n    if not started('oxmysql') then return rows end\n    pcall(function()\n        for _, row in ipairs(exports.oxmysql:query_async('SHOW TABLES') or {}) do\n            local _, name = next(row)\n            rows[name] = json.encode(exports.oxmysql:query_async(('SELECT * FROM `%s`'):format(name)))\n        end\n    end)\n    return rows\nend\n\n--- The tables whose rows differ from `before` to `after`.\nlocal function changed(before, after)\n    local found = {}\n    for name, rows in pairs(after) do\n        if before[name] ~= rows then found[#found + 1] = name end\n    end\n    table.sort(found)\n    return found\nend\n\nlocal function entities()\n    return #GetAllVehicles() + #GetAllPeds() + #GetAllObjects()\nend\n\n--- An item that the server knows of, for arguments that name items.\nlocal function anItem()\n    local name\n    pcall(function()\n        if oxInventory then\n            name = next(exports.ox_inventory:Items())\n        elseif framework == 'qb' then\n            name = next(coreOf().Shared.Items)\n        elseif framework == 'esx' then\n            name = next(coreOf().Items)\n        end\n    end)\n    return name or 'water'\nend\n\nit('audits the events that clients may trigger', function()\n    while GetGameTimer() < 3000 do Wait(100) end\n    local events = fiverunner.events()\n\n    -- Which events clients may trigger. Each resource that handles one but not\n    -- for net refuses it from clients, saying so, so a scout triggers them all at\n    -- once, and those that every resource of theirs refused are closed. The scout\n    -- leaves, so that what the events did to it is nothing of the player's.\n    local scout, why = fiverunner.connect({ name = 'scout' })\n    if not scout then\n        tell({ type = 'refused', reason = why })\n        return\n    end\n    local names = {}\n    for _, event in ipairs(events) do\n        if event.name ~= '*' then names[#names + 1] = event.name end\n    end\n    local from = #fiverunner.output() + 1\n    scout:run('for _, name in ipairs(...) do TriggerServerEvent(name) end', names)\n    Wait(500)\n    local refusals = {}\n    for _, line in ipairs(fiverunner.output(from)) do\n        local name = line:match('[Ee]vent (.-) was not safe for net')\n        if name then refusals[name] = (refusals[name] or 0) + 1 end\n    end\n    if GetPlayerName(scout.id) ~= nil then scout:disconnect() end\n\n    local player\n    player, why = join()\n    if not player then\n        tell({ type = 'refused', reason = why })\n        return\n    end\n    local item = anItem()\n    local payloads = {\n        {},\n        { 1000000 },\n        { -1000000 },\n        { 'money', 1000000 },\n        { 'bank', 1000000 },\n        { item, 100 },\n        { 'police', 4 },\n        { player.id, 1000000 },\n        { { amount = 1000000, count = 100, item = item, money = 1000000, price = -1000000 } },\n    }\n    local openEvents = 0\n    for _, event in ipairs(events) do\n        if event.name ~= '*' and (refusals[event.name] or 0) < #event.resources then openEvents = openEvents + 1 end\n    end\n    tell({ type = 'start', framework = framework, events = #events, open = openEvents, loggedIn = frameworkPlayer(player.id) ~= nil })\n    local RANK = { low = 1, medium = 2, high = 3 }\n\n    local held, rows, count = settled(player), tables(), entities()\n    local seen = #fiverunner.output()\n    for _, event in ipairs(events) do\n        local name, resources = event.name, event.resources\n        local open = name ~= '*' and (refusals[name] or 0) < #resources\n        -- What the arguments that did the most did, of all that the event got.\n        local worst\n        for _, payload in ipairs(open and payloads or {}) do\n            player:emit(name, table.unpack(payload))\n            Wait(100)\n            local errors = {}\n            -- Only what the server printed since it last read, which may be long.\n            local output = fiverunner.output(seen + 1)\n            for _, line in ipairs(output) do\n                if line:find('SCRIPT ERROR', 1, true) and not line:find(MARK, 1, true) then\n                    errors[#errors + 1] = line\n                end\n            end\n            seen = seen + #output\n            local effects, severity = {}, nil\n            local stayed = present(player)\n            if stayed then\n                local now = holdings(player)\n                local gained, lost = diff(held, now)\n                held = now\n                -- Money that comes at once may be pay that comes on its own, such as\n                -- paychecks, so it counts only when the same arguments bring more.\n                if has(gained, 'money') then\n                    player:emit(name, table.unpack(payload))\n                    Wait(100)\n                    stayed = present(player)\n                    local again = stayed and holdings(player) or now\n                    if not has((diff(now, again)), 'money') then\n                        for i = #gained, 1, -1 do\n                            if gained[i].kind == 'money' then table.remove(gained, i) end\n                        end\n                    end\n                    held = again\n                end\n                for _, gain in ipairs(gained) do effects[#effects + 1] = gain.text end\n                if #gained > 0 then\n                    -- What the player paid for, such as an item of a shop, is a trade.\n                    severity = #lost > 0 and 'medium' or 'high'\n                    for _, loss in ipairs(lost) do effects[#effects + 1] = loss end\n                end\n            end\n            local nowCount = entities()\n            if nowCount > count then\n                effects[#effects + 1] = ('%d entities'):format(nowCount - count)\n                severity = severity or 'medium'\n            end\n            count = nowCount\n            if #errors > 0 then\n                effects[#effects + 1] = 'error: ' .. errors[1]\n                severity = severity or 'low'\n            end\n            if severity and (worst == nil or RANK[severity] > RANK[worst.severity]) then\n                worst = { severity = severity, args = payload, effects = effects }\n            end\n            if not stayed then\n                tell({ type = 'dropped', event = name, resources = resources, args = payload })\n                player = join()\n                if not player then return end\n                payloads[8][1] = player.id\n                -- What joining did is no effect of the event, whose other arguments\n                -- would only drop the new player, such as by a ban, as anti-cheats do.\n                held, rows, count = settled(player), tables(), entities()\n                seen = seen + #fiverunner.output(seen + 1)\n                break\n            end\n        end\n        -- The rows of the database, once all the arguments went, as reading them\n        -- takes far longer than the rest: whichever changed them, the event writes\n        -- what clients send.\n        if open then\n            local nowRows = tables()\n            local tablesChanged = changed(rows, nowRows)\n            rows = nowRows\n            if #tablesChanged > 0 then\n                local effect = 'database: ' .. table.concat(tablesChanged, ', ')\n                if worst and RANK[worst.severity] >= RANK.medium then\n                    worst.effects[#worst.effects + 1] = effect\n                else\n                    worst = { severity = 'medium', effects = { effect, table.unpack(worst and worst.effects or {}) } }\n                end\n            end\n        end\n        if worst then\n            tell({ type = 'finding', event = name, resources = resources, args = worst.args, severity = worst.severity, effects = worst.effects })\n        end\n        tell({ type = 'event', event = name, resources = resources, open = open })\n        -- What the event left behind, such as copies of the objects of frameworks,\n        -- is garbage that generational collection lets grow on servers of many resources.\n        collectgarbage()\n    end\n    tell({ type = 'end' })\nend, 3600000)\n";
+//#endregion
+//#region src/cli/audit.ts
+var USAGE$4 = `Usage: fiverunner audit
+
+Audits the project in this directory as cheaters would: a player triggers
+each event of the server that clients may trigger, with the arguments that
+cheaters give, and the audit tells what each changed. A player who gains
+money, items, a job or permissions is a finding of high severity, a change
+to the database or new entities one of medium, and an error one of low.
+The player logs in with a character when Qbox, QBCore or ESX runs.
+
+It exits with 1 when it found anything of high severity, so CI can fail on it.
+
+Options:
+  --json      Write what it found as JSON
+  -h, --help  Show this help
+`;
+/** What starts the lines of the script of the audit. */
+var MARK = "fiverunner:audit ";
+/** Where the script of the audit runs from, in the resource of tests. */
+var PATH = ".fiverunner/audit.test.lua";
+var HEADINGS = {
+	high: "High: what any client gains",
+	medium: "Medium: what any client changes",
+	low: "Low: errors on what clients send"
+};
+/**
+* Runs the audit of the project in the directory that the tool runs in, and
+* returns its exit code: 1 when it found anything of high severity or could
+* not run, 0 otherwise, and 2 when the arguments make no sense to it.
+*/
+async function audit(args, host) {
+	if (args.length === 1 && (args[0] === "-h" || args[0] === "--help")) {
+		host.stdout(USAGE$4);
+		return 0;
+	}
+	const json = args.includes("--json");
+	const unknown = args.find((arg) => arg !== "--json");
+	if (unknown !== void 0) {
+		host.stderr(`fiverunner: unknown argument ${unknown}\n\n${USAGE$4}`);
+		return 2;
+	}
+	const project = openProject(host.cwd);
+	if (project === void 0) {
+		host.stderr("fiverunner: there is no FiveM project here: a resource has an fxmanifest.lua or a __resource.lua, and a server a resources directory\n");
+		return 2;
+	}
+	const [cfxlua, sqlite, quickjs] = await Promise.all([
+		host.cfxlua(),
+		host.sqlite(),
+		host.quickjs?.()
+	]);
+	let open = 0;
+	let tried = 0;
+	const onLine = (line) => {
+		const record = recordOf(line);
+		if (record?.type === "start") {
+			open = record.open;
+			host.stderr(`Triggering the ${open} events that clients may trigger, of the ${record.events} that the server handles\n`);
+		} else if (record?.type === "event" && record.open && ++tried % 10 === 0 && tried < open) host.stderr(`  ${tried} of ${open}\n`);
+	};
+	const result = await runFile({
+		path: PATH,
+		source: audit_default
+	}, {
+		cfxlua,
+		sqlite,
+		project,
+		onLine,
+		...quickjs === void 0 ? {} : { quickjs }
+	});
+	const records = recordsOf(result);
+	if (json) host.stdout(`${JSON.stringify(records, null, 2)}\n`);
+	else host.stdout(reportOf(records));
+	if (!records.some((record) => record.type === "end")) {
+		const failure = result.failure ?? result.tests[0]?.failures[0];
+		host.stderr(`fiverunner: the audit did not end${failure === void 0 ? "" : `: ${failure.message}`}\n`);
+		return 1;
+	}
+	return records.some((record) => record.type === "finding" && record.severity === "high") ? 1 : 0;
+}
+/** What the script of the audit told with a line that the server printed, if it told anything. */
+function recordOf({ process, text }) {
+	if (process !== "server" || !text.startsWith(MARK)) return void 0;
+	return JSON.parse(text.slice(17));
+}
+/** What the script of the audit told, from what the server printed as it ran. */
+function recordsOf(result) {
+	return result.tests.flatMap(({ output }) => output.flatMap((line) => {
+		const record = recordOf(line);
+		return record === void 0 ? [] : [record];
+	}));
+}
+/** The arguments that an event got, as a script would give them, if the finding has them. */
+function argumentsOf(args) {
+	if (args === void 0) return "";
+	return `(${args.map((arg) => typeof arg === "string" ? `'${arg}'` : JSON.stringify(arg)).join(", ")})`;
+}
+/** The report of an audit, as people read it. */
+function reportOf(records) {
+	const lines = [];
+	const start = records.find((record) => record.type === "start");
+	const refused = records.find((record) => record.type === "refused");
+	if (refused !== void 0) return `The server refused the player of the audit${refused.reason === void 0 ? "" : `: ${refused.reason}`}\n`;
+	if (start !== void 0) {
+		const framework = start.framework === void 0 ? "no framework" : `the framework ${start.framework}`;
+		lines.push(`The server runs ${framework}${start.framework === void 0 ? "" : start.loggedIn ? ", with a character for the player" : ", but the player has no character"}.`);
+	}
+	const findings = records.filter((record) => record.type === "finding");
+	for (const severity of [
+		"high",
+		"medium",
+		"low"
+	]) {
+		const found = findings.filter((finding) => finding.severity === severity);
+		if (found.length === 0) continue;
+		lines.push("", HEADINGS[severity]);
+		for (const finding of found) lines.push(`  ${finding.resources.join(", ")}  ${finding.event}${argumentsOf(finding.args)}  ${finding.effects.join("; ")}`);
+	}
+	const dropped = records.filter((record) => record.type === "dropped");
+	if (dropped.length > 0) {
+		lines.push("", "What dropped the player, or logged it out");
+		for (const record of dropped) lines.push(`  ${record.resources.join(", ")}  ${record.event}${argumentsOf(record.args)}`);
+	}
+	const events = records.filter((record) => record.type === "event");
+	const open = events.filter((record) => record.open).length;
+	const count = (severity) => findings.filter((finding) => finding.severity === severity).length;
+	lines.push("", `Events: ${events.length}, of which clients may trigger ${open}. Findings: ${count("high")} high, ${count("medium")} medium, ${count("low")} low.`);
+	return `${lines.join("\n")}\n`;
+}
+//#endregion
+//#region src/dev/hosts.ts
+/**
+* The domain of the dev UI, which browsers take for the local machine, as
+* they do every name under localhost. Frames are at names under it, an
+* origin for each host of FiveM's that a client has frames at, so that
+* frames keep their storage to themselves and stay out of the UI, as in
+* FiveM, where each is at an origin of its own: https://cfx-nui-<resource>,
+* or nui://<resource>.
+*/
+var DEV_DOMAIN = "fiverunner.localhost";
+new TextEncoder();
+var decoder$1 = new TextDecoder();
+/** What a name of frameHost stands for, or undefined for other names. */
+function parseFrameHost(name) {
+	const match = /^(.+)\.c([1-9][0-9]*)\.([a-z0-9]+)\.fiverunner\.localhost$/.exec(name);
+	if (match === null) return void 0;
+	const [, label = "", number = "", tab = ""] = match;
+	const client = Number(number);
+	if (/^[a-z0-9_-]+$/.test(label)) return {
+		host: label,
+		client,
+		tab
+	};
+	const hex = /^((?:[0-9a-f]{2})+)\.x$/.exec(label)?.[1];
+	if (hex === void 0) return void 0;
+	const bytes = Uint8Array.from(hex.match(/../g), (pair) => parseInt(pair, 16));
+	return {
+		host: decoder$1.decode(bytes),
+		client,
+		tab
+	};
+}
+//#endregion
+//#region src/dev/remote.ts
+/** Where the dev server serves what the dev UI needs of it. */
+var API = "/__fiverunner/api/";
+new TextDecoder();
+/** The bytes in base 64. */
+function toBase64(bytes) {
+	let text = "";
+	for (let at = 0; at < bytes.length; at += 32768) text += String.fromCharCode(...bytes.subarray(at, at + 32768));
+	return btoa(text);
+}
+/** The bytes that `text` has in base 64. */
+function fromBase64(text) {
+	return Uint8Array.from(atob(text), (char) => char.charCodeAt(0));
+}
+//#endregion
+//#region src/dev/routes.ts
+/** Where the dev server serves what the frames of the dev UI run on: its service worker, and the bridge to the UI. */
+var DEV_PATH = "/__fiverunner/";
+//#endregion
+//#region src/node/watch.ts
+/** Milliseconds that the watcher waits for changes to stop before it tells of them. */
+var SETTLE = 150;
+/**
+* Watches the files of the project at `root`, but those of node_modules
+* and of dot directories, and calls `changed` with the paths of those that
+* changed, relative to the root, with slashes, once changes stop for a
+* moment, or with none when the host did not tell which. Gives what stops
+* watching.
+*/
+function watchProject(root, changed) {
+	let timer;
+	let paths = /* @__PURE__ */ new Set();
+	const heard = (file) => {
+		const parts = (file ?? "").split(/[\\/]/);
+		if (parts.some((part) => part === "node_modules" || part.startsWith("."))) return;
+		if (file === null) paths = void 0;
+		else paths?.add(parts.join("/"));
+		clearTimeout(timer);
+		timer = setTimeout(() => {
+			const told = paths === void 0 ? void 0 : [...paths].sort();
+			paths = /* @__PURE__ */ new Set();
+			changed(told);
+		}, SETTLE);
+	};
+	let watcher;
+	try {
+		watcher = watch(root, { recursive: true }, (_, file) => heard(file));
+		watcher.on("error", () => {});
+	} catch {
+		watcher = void 0;
+	}
+	return () => {
+		clearTimeout(timer);
+		watcher?.close();
+	};
+}
+//#endregion
+//#region src/node/devserver.ts
+/** The port that the dev server listens on unless told otherwise, or the next that is free. */
+var DEFAULT_PORT = 30120;
+/** The types of the files of the dev UI, by their extensions. */
+var TYPES$1 = {
+	html: "text/html; charset=utf-8",
+	js: "text/javascript; charset=utf-8",
+	css: "text/css; charset=utf-8",
+	json: "application/json",
+	wasm: "application/wasm",
+	svg: "image/svg+xml",
+	png: "image/png"
+};
+/**
+* Starts the dev server of a project, which serves the dev UI, at
+* fiverunner.localhost, and what it asks of the server: the project and its
+* files, but its test files, cfxlua.wasm, and the HTTP requests of its
+* scripts, which the server sends; and the service worker and the bridge
+* of the origins of frames, at the names under it. It tells the dev UIs as
+* files of the project change. It listens on the local machine only, and
+* answers only requests for the names of the local machine, which keeps
+* pages of the web from reading through it.
+*/
+async function startDevServer(options) {
+	let project = openProject(options.root);
+	if (project === void 0) throw new Error(`${options.root} has no FiveM project`);
+	const http = options.http ?? fetchHttpClient;
+	const listeners = /* @__PURE__ */ new Set();
+	let port = 0;
+	const handle = async (request, response) => {
+		const name = /^(.*?)(?::(\d+))?$/.exec(request.headers.host ?? "");
+		const hostname = (name?.[1] ?? "").toLowerCase();
+		const url = new URL(request.url ?? "/", "http://local");
+		if (name?.[2] !== String(port)) return reply(response, 403, "FiveRunner serves the local machine only.");
+		if (hostname === "localhost" || hostname === "127.0.0.1" || hostname === "[::1]") {
+			response.writeHead(302, { Location: `http://${DEV_DOMAIN}:${port}${url.pathname}${url.search}` });
+			return response.end();
+		}
+		if (hostname === "fiverunner.localhost") return ui(request, response, url);
+		if (parseFrameHost(hostname) !== void 0) return frames(response, url);
+		return reply(response, 403, "FiveRunner serves the local machine only.");
+	};
+	/** Answers the requests of the dev UI. */
+	const ui = async (request, response, url) => {
+		const { pathname } = url;
+		if (pathname === "/") return asset(response, "index.html");
+		if (!pathname.startsWith("/__fiverunner/api/")) {
+			if (pathname.startsWith("/__fiverunner/")) return asset(response, pathname.slice(DEV_PATH.length));
+			return reply(response, 404, "Not found");
+		}
+		const what = pathname.slice(API.length);
+		if (what === "events" && request.method === "GET") {
+			response.writeHead(200, {
+				"Content-Type": "text/event-stream",
+				"Cache-Control": "no-cache",
+				Connection: "keep-alive"
+			});
+			response.write(": FiveRunner\n\n");
+			listeners.add(response);
+			request.on("close", () => listeners.delete(response));
+			return;
+		}
+		if (request.headers["X-FiveRunner".toLowerCase()] !== "1") return reply(response, 403, "Forbidden");
+		const current = project;
+		if (what === "project" && request.method === "GET") {
+			const info = {
+				name: basename(options.root),
+				kind: current.kind,
+				mount: current.mount,
+				commands: current.commands
+			};
+			return reply(response, 200, JSON.stringify(info), TYPES$1.json);
+		}
+		if ((what === "list" || what === "read") && request.method === "GET") {
+			const path = url.searchParams.get("path") ?? "";
+			try {
+				if (!listed(current.visible, path)) return reply(response, 404, "Not found");
+				if (what === "list") return reply(response, 200, JSON.stringify(current.visible.list(path)), TYPES$1.json);
+				return reply(response, 200, current.visible.read(path), "application/octet-stream");
+			} catch {
+				return reply(response, 404, "Not found");
+			}
+		}
+		if (what === "cfxlua.wasm" && request.method === "GET") return reply(response, 200, options.cfxlua, TYPES$1.wasm);
+		if (what === "http" && request.method === "POST") {
+			const proxied = JSON.parse(await text(request));
+			const result = await http({
+				...proxied,
+				body: fromBase64(proxied.body)
+			});
+			const answered = "code" in result ? result : {
+				status: result.status,
+				headers: result.headers,
+				body: toBase64(result.body)
+			};
+			return reply(response, 200, JSON.stringify(answered), TYPES$1.json);
+		}
+		return reply(response, 404, "Not found");
+	};
+	/** Answers the requests that reach the server at the origins of frames, which their service workers leave to it. */
+	const frames = (response, url) => {
+		const { pathname } = url;
+		if (pathname.startsWith("/__fiverunner/")) {
+			const path = pathname.slice(DEV_PATH.length);
+			return asset(response, path, path === "sw.js" ? { "Service-Worker-Allowed": "/" } : {});
+		}
+		return reply(response, 503, "This frame of FiveRunner's NUI loads through its dev UI.");
+	};
+	/** Serves a file of the dev UI, by a path of a URL, which has no dot parts and stays in the assets. */
+	const asset = (response, path, headers = {}) => {
+		let bytes;
+		try {
+			bytes = readFileSync(join(options.assets, path));
+		} catch {
+			return reply(response, 404, "Not found");
+		}
+		const type = TYPES$1[path.slice(path.lastIndexOf(".") + 1)] ?? "application/octet-stream";
+		return reply(response, 200, bytes, type, headers);
+	};
+	const server = createServer((request, response) => {
+		handle(request, response).catch((error) => {
+			if (!response.headersSent) reply(response, 500, String(error));
+			else response.end();
+		});
+	});
+	port = await listen(server, options.port ?? 30120);
+	const stopWatching = watchProject(options.root, (paths) => {
+		project = openProject(options.root) ?? project;
+		const data = JSON.stringify(paths ?? null);
+		for (const listener of listeners) listener.write(`event: change
+data: ${data}
+
+`);
+		options.onChange?.();
+	});
+	return {
+		url: `http://${DEV_DOMAIN}:${port}/`,
+		port,
+		close: () => {
+			stopWatching();
+			for (const listener of listeners) listener.end();
+			return new Promise((resolve) => server.close(() => resolve()));
+		}
+	};
+}
+/**
+* Whether the directories of `source` list `path`, and those it is in, as
+* sources list what they read: which no path does with test files, or with
+* parts that are empty, dots, or drives, which would lead out of the
+* project. Parts of paths that are files fail to list.
+*/
+function listed(source, path) {
+	if (path === "") return true;
+	let directory = "";
+	for (const part of path.split("/")) {
+		if (!source.list(directory).some((entry) => entry.name === part)) return false;
+		directory = directory === "" ? part : `${directory}/${part}`;
+	}
+	return true;
+}
+/** Answers with `status`, `body`, and the type, as what the dev UI gets is never cached. */
+function reply(response, status, body, type = "text/plain; charset=utf-8", headers = {}) {
+	response.writeHead(status, {
+		"Content-Type": type,
+		"Cache-Control": "no-cache",
+		...headers
+	});
+	response.end(body);
+}
+/** The body of a request, as text. */
+async function text(request) {
+	const chunks = [];
+	for await (const chunk of request) chunks.push(chunk);
+	return Buffer.concat(chunks).toString("utf8");
+}
+/** Listens on `port` of the local machine, or on the next ports while those are taken, and resolves with the port. */
+function listen(server, port) {
+	return new Promise((resolve, reject) => {
+		const attempt = (at) => {
+			const failed = (error) => {
+				server.off("listening", listening);
+				if (error.code === "EADDRINUSE" && at !== 0 && at < port + 20) attempt(at + 1);
+				else reject(error);
+			};
+			const listening = () => {
+				server.off("error", failed);
+				resolve(server.address().port);
+			};
+			server.once("error", failed);
+			server.once("listening", listening);
+			server.listen(at, "127.0.0.1");
+		};
+		attempt(port);
+	});
+}
+//#endregion
+//#region src/cli/dev.ts
+var USAGE$3 = `Usage: fiverunner dev [options]
+
+Runs the project in this directory in the dev UI, in the browser: its
+server, with its console and its resources, and players that connect to
+it, each with a screen that shows the frames of its NUI. The dev UI
+restarts the resources whose files change. It needs a browser that takes the
+names under localhost for the local machine, as Chrome, Edge and Firefox do.
+
+Options:
+  -p, --port <port>  Listen on this port, or the next free one (${DEFAULT_PORT} by default)
+  -h, --help         Show this help
+`;
+/**
+* Runs the dev server of the project in the directory that the tool runs
+* in until the tool is interrupted, and returns the exit code: 0 once it
+* stopped, and 2 if the arguments make no sense to it, or there is no
+* project.
+*/
+async function dev(args, host) {
+	if (args.length === 1 && (args[0] === "-h" || args[0] === "--help")) {
+		host.stdout(USAGE$3);
+		return 0;
+	}
+	const fail = (why) => {
+		host.stderr(`fiverunner: ${why}\n\n${USAGE$3}`);
+		return 2;
+	};
+	let port = DEFAULT_PORT;
+	for (let at = 0; at < args.length; at++) {
+		const arg = args[at];
+		if (arg !== "-p" && arg !== "--port") return fail(`unknown argument ${arg}`);
+		const value = args[++at];
+		if (value === void 0 || !/^\d{1,5}$/.test(value) || Number(value) > 65535) return fail(`${arg} needs a port, from 0 to 65535`);
+		port = Number(value);
+	}
+	const project = openProject(host.cwd);
+	if (project === void 0) {
+		host.stderr("fiverunner: there is no FiveM project here: a resource has an fxmanifest.lua or a __resource.lua, and a server a resources directory\n");
+		return 2;
+	}
+	if (!existsSync(join(host.assets, "index.html"))) {
+		host.stderr(`fiverunner: the dev UI is not built: there is no ${join(host.assets, "index.html")}\n`);
+		return 2;
+	}
+	const server = await startDevServer({
+		root: host.cwd,
+		assets: host.assets,
+		cfxlua: host.wasm(),
+		port,
+		onChange: () => host.stdout("Files changed: the dev UI restarts the resources they are in\n")
+	});
+	const name = project.kind === "resource" ? `the resource ${project.name}` : "the server";
+	host.stdout(`FiveRunner runs ${name} at ${server.url}\nPress Ctrl+C to stop\n`);
+	await host.interrupted();
+	await server.close();
+	return 0;
+}
+//#endregion
+//#region src/cli/types.lua?raw
+var types_default = "---@meta\n\n-- What the tests of FiveRunner have, for the Lua language server:\n-- https://github.com/DariusHQ/fiverunner/blob/main/docs/testing.md\n\n---@class Identity\n---@field name? string\n---@field guid? string\n---@field endpoint? string\n---@field identifiers? string[]\n---@field tokens? string[]\n---@field card? table What the player answers the adaptive cards of deferrals with\n\n---@class Player\n---@field id integer The id of the player on the server, its source\n---@field name string\nlocal Player = {}\n\n--- Runs Lua code in the client of the player, with `...` as its arguments, and returns what it returns.\n---@param code string\n---@param ... any\n---@return any ...\nfunction Player:run(code, ...) end\n\n--- Triggers an event on the server from the client, and returns once the server got it.\n---@param event string\n---@param ... any\nfunction Player:emit(event, ...) end\n\n--- The arguments of each `event` that the client got from the server, in the order they came.\n---@param event string\n---@return any[][]\nfunction Player:received(event) end\n\n--- What the client printed, line by line, as `[channel] text`, without colors, from line `from` on, when given.\n---@param from? integer\n---@return string[]\nfunction Player:output(from) end\n\n--- Disconnects the player, and returns once the server dropped it.\n---@param reason? string\nfunction Player:disconnect(reason) end\n\n--- What the client sent the NUI frame of `resource` with SendNUIMessage, in the order it sent them.\n---@param resource string\n---@return table[]\nfunction Player:nuiMessages(resource) end\n\n--- Calls a NUI callback, as the page of the resource does, and returns what it answered, and the status.\n---@param resource string\n---@param name string\n---@param data? table\n---@return any answer\n---@return integer status\nfunction Player:nuiCallback(resource, name, data) end\n\n--- Whether NUI has the focus on the client, and whether it shows the cursor.\n---@return boolean focused\n---@return boolean cursor\nfunction Player:nuiFocus() end\n\n--- Has a key of the keyboard of the client, such as `E` or `LMENU`, go down.\n---@param key string\nfunction Player:keyDown(key) end\n\n--- Has a key of the keyboard of the client go up.\n---@param key string\nfunction Player:keyUp(key) end\n\n--- Has a key go down, and up a frame later.\n---@param key string\nfunction Player:press(key) end\n\n--- Mocks a native on the client, for the rest of the test.\n---@param name string\n---@param fn function\nfunction Player:mock(name, fn) end\n\n---@class Expectation\n---@field never Expectation Negates the matchers\n---@field toBe fun(expected: any)\n---@field toEqual fun(expected: any)\n---@field toBeTruthy fun()\n---@field toBeFalsy fun()\n---@field toBeNil fun()\n---@field toBeGreaterThan fun(n: number)\n---@field toBeGreaterThanOrEqual fun(n: number)\n---@field toBeLessThan fun(n: number)\n---@field toBeLessThanOrEqual fun(n: number)\n---@field toBeCloseTo fun(n: number, digits?: integer)\n---@field toContain fun(item: any)\n---@field toContainEqual fun(item: any)\n---@field toHaveLength fun(n: integer)\n---@field toMatch fun(pattern: string)\n---@field toThrow fun(text?: string)\n\n---@class fiverunnerlib\nfiverunner = {}\n\n--- Connects a player, and returns it once its client started the resources of the server, or nil and why the server refused it.\n---@param identity? Identity\n---@return Player? player\n---@return string? reason\nfunction fiverunner.connect(identity) end\n\n--- What the server printed, line by line, as `[channel] text`, without colors, from line `from` on, when given.\n---@param from? integer\n---@return string[]\nfunction fiverunner.output(from) end\n\n--- The events that the resources of the server handle, in the order they first registered for them, those of tests left out.\n---@return { name: string, resources: string[] }[]\nfunction fiverunner.events() end\n\n--- Calls `check` at each tick until it returns something truthy, and returns that.\n---@generic T\n---@param check fun(): T\n---@param timeout? integer In milliseconds\n---@return T\nfunction fiverunner.waitFor(check, timeout) end\n\n--- Has `fn` run in place of a native on the server, for every resource, for the rest of the test.\n---@param name string\n---@param fn function\nfunction fiverunner.mock(name, fn) end\n\n--- Groups tests.\n---@param name string\n---@param fn fun()\nfunction describe(name, fn) end\n\n--- Adds a test, which fails if it does not end within `timeout` milliseconds: 5000 unless given.\n---@param name string\n---@param fn fun()\n---@param timeout? integer\nfunction it(name, fn, timeout) end\n\n--- Adds a test.\n---@param name string\n---@param fn fun()\n---@param timeout? integer\nfunction test(name, fn, timeout) end\n\n--- Adds a hook that runs before each test of the describe it is in, or of the file.\n---@param fn fun()\nfunction beforeEach(fn) end\n\n--- Adds a hook that runs after each test of the describe it is in, or of the file.\n---@param fn fun()\nfunction afterEach(fn) end\n\n--- Checks a value with a matcher, which is called with a dot.\n---@param value any\n---@return Expectation\nfunction expect(value) end\n";
+//#endregion
+//#region src/cli/init.ts
+var USAGE$2 = `Usage: fiverunner init
+
+Adds tests to the project in this directory: a test file, which checks
+that the project starts without script errors, what the Lua language
+server needs to know the functions of tests, and, at the root of a git
+repository, a GitHub Actions workflow that runs the tests on each push.
+It writes over nothing that is there.
+
+Options:
+  -h, --help  Show this help
+`;
+/** The workflow of GitHub Actions that runs the tests of the project on each push. */
+var WORKFLOW = `name: Tests
+
+on: [push, pull_request]
+
+jobs:
+  test:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v7
+      - uses: DariusHQ/fiverunner-action@v1
+`;
+/** Where the types of tests go, which the settings of the Lua language server name. */
+var TYPES = ".fiverunner/fiverunner.lua";
+var SETTINGS = `${JSON.stringify({
+	"runtime.version": "Lua 5.4",
+	"workspace.library": [".fiverunner"]
+}, null, 2)}\n`;
+/** A test file of `subject`, a Lua expression of the name of the tests, whose test checks the start of the project, on the server and on the client of a player, and what `checks` says. */
+function testFile(subject, checks) {
+	return `-- The tests of the project, which \`npx fiverunner test\` runs:
+-- https://github.com/DariusHQ/fiverunner/blob/main/docs/testing.md
+
+local function errors(output)
+    local found = {}
+    for _, line in ipairs(output) do
+        if line:find('SCRIPT ERROR', 1, true) or line:find('Failed to load script', 1, true) then
+            found[#found + 1] = line
+        end
+    end
+    return found
+end
+
+describe(${subject}, function()
+    it('starts without script errors', function()
+${checks}        -- Players reach servers once they started, which takes the big ones seconds.
+        while GetGameTimer() < 3000 do Wait(100) end
+        local player, refused = fiverunner.connect({ name = 'Ann' })
+        expect(refused).toBeNil()
+        expect(errors(fiverunner.output())).toEqual({})
+        expect(errors(player:output())).toEqual({})
+    end, 120000)
+end)
+`;
+}
+/**
+* Adds a test file and a workflow to the project in the directory that
+* the tool runs in, and returns the exit code: 0 once it did, and 2 if the
+* arguments make no sense to it, or there is no project.
+*/
+function init(args, host) {
+	if (args.length === 1 && (args[0] === "-h" || args[0] === "--help")) {
+		host.stdout(USAGE$2);
+		return 0;
+	}
+	if (args.length > 0) {
+		host.stderr(`fiverunner: unknown argument ${args[0]}\n\n${USAGE$2}`);
+		return 2;
+	}
+	const project = openProject(host.cwd);
+	if (project === void 0) {
+		host.stderr("fiverunner: there is no FiveM project here: a resource has an fxmanifest.lua or a __resource.lua, and a server a resources directory\n");
+		return 2;
+	}
+	const files = project.kind === "resource" ? [[`tests/${project.name}.test.lua`, testFile(JSON.stringify(project.name), `        expect(GetResourceState(${JSON.stringify(project.name)})).toBe('started')\n`)]] : [["tests/server.test.lua", testFile("'the server'", "")]];
+	files.push([TYPES, types_default], [".luarc.json", SETTINGS]);
+	const repository = existsSync(join(host.cwd, ".git"));
+	if (repository) files.push([".github/workflows/fiverunner.yml", WORKFLOW]);
+	for (const [path, text] of files) {
+		const at = join(host.cwd, path);
+		if (existsSync(at)) {
+			host.stdout(`Kept ${path}, which is there\n`);
+			continue;
+		}
+		mkdirSync(dirname(at), { recursive: true });
+		writeFileSync(at, text);
+		host.stdout(`Wrote ${path}\n`);
+	}
+	if (!repository) host.stdout("Wrote no GitHub workflow, as GitHub looks for them at the root of a git repository, which this is not\n");
+	host.stdout("Run the tests with npx fiverunner test\n");
+	return 0;
+}
+//#endregion
 //#region src/cli/junit.ts
 /** What XML 1.0 takes of `text`, with what it reads as markup escaped, for attributes and text alike. */
 function escaped(text) {
@@ -103535,6 +103684,7 @@ Commands:
   test [paths...]  Run the tests of the project in this directory
   dev              Run the project in this directory in the dev UI, in the browser
   init             Add a test file and a GitHub workflow to the project in this directory
+  audit            Trigger the events of the server as cheaters would, and tell what they change
 
 Options:
   -h, --help       Show this help
@@ -103550,6 +103700,7 @@ async function main(args, host) {
 	if (first === "test") return test(rest, host);
 	if (first === "dev") return dev(rest, host);
 	if (first === "init") return init(rest, host);
+	if (first === "audit") return audit(rest, host);
 	if (rest.length === 0 && (first === void 0 || first === "-h" || first === "--help")) {
 		host.stdout(`FiveRunner ${package_default.version}\n\n${USAGE}`);
 		return 0;