diff --git a/.gitattributes b/.gitattributes
index e4b52966..668d793f 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -45,3 +45,7 @@ test/repro-templates/vb6/** -text
 # in every checkout for the same reason: PngDump.bas is VB6's, and the copy is compared
 # with the template line by line.
 test/repro-templates/png/** -text
+
+# A package test project's resources are read by its cases byte for byte (TBMANLIB_RES
+# compares them with what it returns), and most have no extension git would know.
+test/package-tests/*/Resources/** -text
diff --git a/WIP.PackageTests.md b/WIP.PackageTests.md
index f3b301cc..f2536d42 100644
--- a/WIP.PackageTests.md
+++ b/WIP.PackageTests.md
@@ -86,6 +86,17 @@ Available Packages with Embedded cleared) and restarts the compiler; an author p
 their own build. The runner embeds the package from `%TEMP%\tb-twinserv` instead, as
 `check_examples` does, so it never touches a packages folder.
 
+## Compile cases that expect an error are a project of their own (owner)
+
+A compile case that expects an error is, by design, a compile error of the project it is in, and
+the compiler's test mode runs nothing in a project with errors: `tbrun --tests` reports every
+`[TestCase]` *not run*. The first package with such claims (Generics: TB5074 on `New` of a package
+generic, TB5124 on its unusable tuples) lost all its run-time cases to one line. So those cases
+go in the package folder's `compile/`, a second project that `package_tests.mjs` stages with the
+package embedded and judges with the rest. The published project stays `Sources/` alone, which
+compiles, so the author's Sub Main still runs every run-time case; the compile cases are the
+documentation's own re-check on each new build and version.
+
 ## Markers, and a gate that only tightens
 
 A callout names its cases in an HTML comment on the line above it. The marker lives with the
diff --git a/WIP.md b/WIP.md
index 7142ba3d..a303f340 100644
--- a/WIP.md
+++ b/WIP.md
@@ -35,7 +35,7 @@ sibling. History goes nowhere: git keeps it.
 
 Reference documentation is **complete** for all thirteen packages: VBA, VBRUN, VB, WebView2, Assert, CustomControls, CEF, WinEventLogLib, WinNamedPipesLib, WinServicesLib, tbIDE, WinNativeCommonCtls and AppGlobalClassObject. It is adapted from primary sources: Microsoft VBA-Docs (CC-BY-4.0) for the runtime library, `.twin` source for the twinBASIC-specific packages. The CEF and WebView2 packages also carry a tutorial set.
 
-Twenty-six **contributed** packages from TWINSERV have sections under `docs/Reference/Contributed/`: ArrayListLib, FileProps, Fmt, Generics, OLEGuids, WinReg, TwinTimerLib, tbFileSysTools, TBMANLIB, TBMANLIB_Aes, TBMANLIB_ConsoleComponents, TBMANLIB_ConsoleCore, TBMANLIB_Diagnostic, TBMANLIB_Dialog, TBMANLIB_ListBoxHScroll, TBMANLIB_RES, TBMANLIB_Xml, tbProjPacker, tbRegExp, tsJson, tsPwGen, VBA_JSON and xCalendar complete; AutoCompleteLib, BigNumberLib and VBComDlg their main class only. The two console packages' console claims follow the source, because the samples harness cannot capture a console. Generics (seven tuple classes) and xCalendar (one control) are each one page (owner), so `analyze` in audit mode lists their classes and members as undocumented. What xCalendar's page says it does at run time comes from `test/package-tests/xCalendar/probe/`, which runs the control on a form in a built exe. Fmt documents its test code (`HelloWorldClass`, `HelloWorldModule`, `Pootle`) in one paragraph of its landing page, which `exclude_from_docs` names; Generics' `exclude_from_docs` names its test code, `HelloWorldModule`, which the page does not mention. VBComDlg's `exclude_from_docs` names `CommonDialogBase`, a module whose public procedures only its class calls. tbRegExp's `exclude_from_docs` names its private engine module, `StaticRegex`, and tbProjPacker's its helper modules, `modImpExp` and `modWin32`: the indexer counts a Public Enum as public even inside a Private Module, because a built-in package's are reached through its library symbol written with an asterisk (`*WinNativeCommonCtls`, as `ImlDrawConstants` says). By its bare name no such enum is reachable, in a built-in or a contributed package (TB5079 on BETA 1005). OLEGuids documents each interface's methods on the interface's page. What TBMANLIB_Dialog's pages say its dialogs do comes from `test/package-tests/TBMANLIB_Dialog/probe/`, which operates them in a built exe on a private desktop; run it again when the package's version changes. TBMANLIB_Dialog 1.1.0.0 has a page of its own for each class except cDialog, which keeps a page for each member, so `analyze` in audit mode lists the members of those one-page classes as undocumented; its `exclude_from_docs` names its test module, `TestModule`, and the seven COM interface declarations that cDialogEx calls inside (`IOleWindow`, `IModalWindow`, `IShellItem`, `IShellItemArray`, `IFileDialog`, `IFileOpenDialog`, `IFileSaveDialog`), which its landing page describes in a paragraph. cDialogEx 1.1.0.0 returns the name of the chosen file, not its path, ignores `InitialDir` and ignores a `Filter` that has no closing pipe, each documented as a WARNING. tbRegExp is the first section drafted by the doc-draft workflow ([WIP.Indexer.md](WIP.Indexer.md#draft-and-the-doc-draft-workflow)), then reviewed against the sources, the package's README and VBScript's own **RegExp** under `cscript`. tbRegExp 1.9.0.0 raises `vbObjectError + 3016` from a search that uses up its step budget and returns nothing (1.8.0.0's `SearchAborted` is gone); the budget is 10 steps for each character squared, at least 1,000,000 and at most 100,000,000, for the search of one match, and `RegExp.SearchStepLimit` replaces it with a fixed number, documented on its own page and in a section of the landing page. On the dev box (BETA 1005, win32) `\d+x` costs between 2.0 and 2.2 × n² steps, so it finishes on 7,000 digits (15 s) and raises on 10,000 (16 s); `(a+)+b` raises in 0.2 s on 30 or 300 `a` but takes 16 s on 3,000; `a*` matches 1,000,000 characters whole in about half a second. Its pattern syntax has a page of its own, `PatternSyntax.md`. Each one has a chapter in the book's Packages part. **ArrayListLib, BigNumberLib, TBMANLIB, TBMANLIB_Aes, TBMANLIB_ConsoleComponents, TBMANLIB_ConsoleCore, TBMANLIB_Diagnostic, TBMANLIB_Dialog, TBMANLIB_Xml, WinReg and xCalendar are listed under Experimental Packages** (`docs/Reference/Experimental.md`, owner): ArrayListLib and WinReg do not compile on BETA 1005 (each documented from its source and a copy of it that builds, its samples compile-only; in a copy of ArrayListLib 1.6.151.1 with the arguments of its three `VSwap` calls passed `ByVal` and `LSetByVal` taking a `LongPtr`, a For Each over a list with no items fails, ToString of such a list never returns, Reverse keeps the middle pair of an even run in place and a second GetEnumerator over a list ignores its arguments; in a copy of WinReg's source with its four failing calls passed `ByVal`, ReadString, GetRegistryValueType and the first ConvertValueToString give wrong results), xCalendar has a grid that keeps the old month's dates when Value is set to another month, and text colour properties that have no effect, BigNumberLib 1.0.2.0 compiles, but loses the minus sign after `IsNegative = True` and in a negative operand of the greatest common divisor and the least common multiple, makes a zero from `AssignFromLong` negative, and does not return from the modular inverse of zero (all four confirmed by a second agent), TBMANLIB 1.0.0.29 does not compile in a 64-bit build (TB5001 in cSubClass, where the window procedure is passed as a Long) and has many members that fail or give wrong results, TBMANLIB_ConsoleComponents cannot take a cConsole of the published TBMANLIB_ConsoleCore (it embeds a copy of it, the same package at 1.0.0.1, whose types the compiler treats as different; checked in a project made by the IDE's own import, in either order), TBMANLIB_ConsoleCore reads keys wrongly, TBMANLIB_Diagnostic cannot create its Dictionary and misplaces List items, TBMANLIB_Dialog 1.1.0.0 has classes that fail at their main task (cDialogFindReplace reports nothing, cDialogPageSetup ignores paper and orientation, cDialogEx returns names without their folder, cDialogPassword shows the password in its confirmation boxes; every defect confirmed by a second agent, owner), TBMANLIB_Aes runs other cipher modes than the ones named (its default CBC is ECB) and fails the NIST test vectors, and TBMANLIB_Xml's parser misreads self-closing elements and entities and does not return for some malformed text (and its XPath engine reads the step `..` and `and` with `or` wrongly). TBMANLIB_Xml's `exclude_from_docs` names its test module, `mXmlTests`, which its landing page describes in a paragraph, and the five types of its XPath engine (`XPathTokenType`, `XPathAxisType`, `XPathOperator`, `XPathStep`, `XPathPredicate`), which no public member takes or returns and which the mXPath page mentions in a paragraph; tsPwGen's names its five test modules and its six internal modules, and tsJson's its test and internal modules likewise, which their landing pages describe in a paragraph each. See *Where things live* for how a package moves between the two lists.
+Twenty-six **contributed** packages from TWINSERV have sections under `docs/Reference/Contributed/`: ArrayListLib, FileProps, Fmt, Generics, OLEGuids, WinReg, TwinTimerLib, tbFileSysTools, TBMANLIB, TBMANLIB_Aes, TBMANLIB_ConsoleComponents, TBMANLIB_ConsoleCore, TBMANLIB_Diagnostic, TBMANLIB_Dialog, TBMANLIB_ListBoxHScroll, TBMANLIB_RES, TBMANLIB_Xml, tbProjPacker, tbRegExp, tsJson, tsPwGen, VBA_JSON and xCalendar complete; AutoCompleteLib, BigNumberLib and VBComDlg their main class only. TBMANLIB_ConsoleCore's console claims are checked by its test cases, each on a console screen buffer of its own with its input written by `WriteConsoleInput`; TBMANLIB_ConsoleComponents' follow the source, because the samples harness cannot capture a console. Generics (seven tuple classes) and xCalendar (one control) are each one page (owner), so `analyze` in audit mode lists their classes and members as undocumented. What xCalendar's page says it does at run time comes from `test/package-tests/xCalendar/probe/`, which runs the control on a form in a built exe. Fmt documents its test code (`HelloWorldClass`, `HelloWorldModule`, `Pootle`) in one paragraph of its landing page, which `exclude_from_docs` names; Generics' `exclude_from_docs` names its test code, `HelloWorldModule`, which the page does not mention. VBComDlg's `exclude_from_docs` names `CommonDialogBase`, a module whose public procedures only its class calls. tbRegExp's `exclude_from_docs` names its private engine module, `StaticRegex`, and tbProjPacker's its helper modules, `modImpExp` and `modWin32`: the indexer counts a Public Enum as public even inside a Private Module, because a built-in package's are reached through its library symbol written with an asterisk (`*WinNativeCommonCtls`, as `ImlDrawConstants` says). By its bare name no such enum is reachable, in a built-in or a contributed package (TB5079 on BETA 1005). OLEGuids documents each interface's methods on the interface's page. What TBMANLIB_Dialog's pages say its dialogs do comes from `test/package-tests/TBMANLIB_Dialog/probe/`, which operates them in a built exe on a private desktop; run it again when the package's version changes. TBMANLIB_Dialog 1.1.0.0 has a page of its own for each class except cDialog, which keeps a page for each member, so `analyze` in audit mode lists the members of those one-page classes as undocumented; its `exclude_from_docs` names its test module, `TestModule`, and the seven COM interface declarations that cDialogEx calls inside (`IOleWindow`, `IModalWindow`, `IShellItem`, `IShellItemArray`, `IFileDialog`, `IFileOpenDialog`, `IFileSaveDialog`), which its landing page describes in a paragraph. cDialogEx 1.1.0.0 returns the name of the chosen file, not its path, ignores `InitialDir` and ignores a `Filter` that has no closing pipe, each documented as a WARNING. tbRegExp is the first section drafted by the doc-draft workflow ([WIP.Indexer.md](WIP.Indexer.md#draft-and-the-doc-draft-workflow)), then reviewed against the sources, the package's README and VBScript's own **RegExp** under `cscript`. tbRegExp 1.9.0.0 raises `vbObjectError + 3016` from a search that uses up its step budget and returns nothing (1.8.0.0's `SearchAborted` is gone); the budget is 10 steps for each character squared, at least 1,000,000 and at most 100,000,000, for the search of one match, and `RegExp.SearchStepLimit` replaces it with a fixed number, documented on its own page and in a section of the landing page. On the dev box (BETA 1005, win32) `\d+x` costs between 2.0 and 2.2 × n² steps, so it finishes on 7,000 digits (15 s) and raises on 10,000 (16 s); `(a+)+b` raises in 0.2 s on 30 or 300 `a` but takes 16 s on 3,000; `a*` matches 1,000,000 characters whole in about half a second. Its pattern syntax has a page of its own, `PatternSyntax.md`. Each one has a chapter in the book's Packages part. **ArrayListLib, BigNumberLib, TBMANLIB, TBMANLIB_Aes, TBMANLIB_ConsoleComponents, TBMANLIB_ConsoleCore, TBMANLIB_Diagnostic, TBMANLIB_Dialog, TBMANLIB_ListBoxHScroll, TBMANLIB_Xml, WinReg and xCalendar are listed under Experimental Packages** (`docs/Reference/Experimental.md`, owner): ArrayListLib and WinReg do not compile on BETA 1005 (each documented from its source and a copy of it that builds, its samples compile-only; in a copy of ArrayListLib 1.6.151.1 with the arguments of its three `VSwap` calls passed `ByVal` and `LSetByVal` taking a `LongPtr`, a For Each over a list with no items fails, ToString of such a list never returns, Reverse keeps the middle pair of an even run in place and a second GetEnumerator over a list ignores its arguments; in a copy of WinReg's source with its four failing calls passed `ByVal`, ReadString, GetRegistryValueType and the first ConvertValueToString give wrong results), xCalendar has a grid that keeps the old month's dates when Value is set to another month, and text colour properties that have no effect, BigNumberLib 1.0.2.0 compiles, but loses the minus sign after `IsNegative = True` and in a negative operand of the greatest common divisor and the least common multiple, makes a zero from `AssignFromLong` negative, and does not return from the modular inverse of zero (all four confirmed by a second agent), TBMANLIB 1.0.0.29 does not compile in a 64-bit build (TB5001 in cSubClass, where the window procedure is passed as a Long) and has many members that fail or give wrong results, TBMANLIB_ConsoleComponents cannot take a cConsole of the published TBMANLIB_ConsoleCore (it embeds a copy of it, the same package at 1.0.0.1, whose types the compiler treats as different; checked in a project made by the IDE's own import, in either order), TBMANLIB_ConsoleCore reads keys wrongly, TBMANLIB_Diagnostic cannot create its Dictionary and misplaces List items, TBMANLIB_Dialog 1.1.0.0 has classes that fail at their main task (cDialogFindReplace reports nothing, cDialogPageSetup ignores paper and orientation, cDialogEx returns names without their folder, cDialogPassword shows the password in its confirmation boxes; every defect confirmed by a second agent, owner), TBMANLIB_ListBoxHScroll 1.0.0.1 moves the thumb 20 px per arrow and one page per track click while the list box scrolls its contents by its own step, so thumb and text disagree (confirmed by a second agent, owner), TBMANLIB_Aes runs other cipher modes than the ones named (its default CBC is ECB) and fails the NIST test vectors, and TBMANLIB_Xml's parser misreads self-closing elements and entities and does not return for some malformed text (and its XPath engine reads the step `..` and `and` with `or` wrongly). TBMANLIB_Xml's `exclude_from_docs` names its test module, `mXmlTests`, which its landing page describes in a paragraph, and the five types of its XPath engine (`XPathTokenType`, `XPathAxisType`, `XPathOperator`, `XPathStep`, `XPathPredicate`), which no public member takes or returns and which the mXPath page mentions in a paragraph; tsPwGen's names its five test modules and its six internal modules, and tsJson's its test and internal modules likewise, which their landing pages describe in a paragraph each. See *Where things live* for how a package moves between the two lists.
 
 The rest of this file is the maintenance guide for updating existing pages or adding new ones: package surface notes, page conventions, and the integrity check.
 
@@ -80,7 +80,7 @@ The rest of this file is the maintenance guide for updating existing pages or ad
   > would file the page as a *static file* and serve the raw markdown. Editors on
   > Windows add a BOM unasked. `lib/frontmatter.mjs` strips a leading BOM before parsing.
 - `docs/Reference/Built-In/tbIDE/` — IDE Extensibility package (this is the **addin SDK**). The package is type-only — it ships **public interfaces + CoClasses** that an addin DLL binds to; every implementation behind them lives in the twinBASIC IDE itself. The user-facing surface is one entry-point factory (`tbCreateCompilerAddin`) plus 23 CoClasses grouped by role: the addin contract (`AddIn`), the root API (`Host`), the loaded `Project`, the editors collection (`Editor` / `CodeEditor` / `Editors`), the virtual file system (`FileSystem` / `FileSystemItem` / `Folder` / `File`), the in-IDE UI surface (`Toolbar` / `Toolbars` / `Button` / `ToolWindow` / `ToolWindows`), the HTML DOM inside a tool window (`HtmlElement` / `HtmlElements` / `HtmlElementProperty` / `HtmlElementProperties` / `HtmlEventProperty` / `HtmlEventProperties`), the `DebugConsole`, `KeyboardShortcuts`, `Themes`, and the single concrete user-instantiable helper class `AddinTimer`. Flat layout — one page per CoClass / Class plus the index landing.
-- `docs/Reference/Contributed/` — the contributed packages, one folder each, landing page `Contributed.md` beside it. **A package's landing page opens, under its H1, with `**Author:**`** (owner): the publisher TWINSERV lists (`publisher` in `indexer/.packages/manifests/contributed.json`), or the author the package's own sources name when that is someone else (VBA_JSON: Tim Hall, published by WaynePhillipsEA). Next to the author, on the same line, `**Version:**`: the version the section documents, which is its `indexed_from` and changes with it (owner). Then `**On GitHub:**` with a link, when a repository holds the package, or the library the package says it is made from; search GitHub for the package's name and the author's account, and check that the repository holds the package's code (its history too: `TBMANLIB_*` were never in woeoio's `tbman`). A landing page with one or two sections has no `* TOC` list. A class with member pages is a folder, `<Class>/index.md` at `/tB/Packages/Contributed/<Package>/<Class>/` with its members beside it, so a member links to its class as `(.)`; a class documented on one page is `<Class>.md`. Each package is a chapter of the book's Packages part in `_book.yml`. A section's `indexed_from` is the four-part TWINSERV version, and its snapshot is under `indexer/snapshots/contributed/`. **Every NOTE and WARNING of a section is backed by test cases** in the package's test project, `test/package-tests/<Package>/` (owner; [its README](test/package-tests/README.md)), and names them in a `<!-- test: ... -->` marker on the line above it, which `check_package_tests.mjs` in `test.bat` enforces. **A NOTE or WARNING is only for a real difference or limit** (owner): a statement that describes how the package works stays prose, tied to its cases by a region, the marker on a line of its own above it and `<!-- /test -->` after it (owner). A difference from the object the package replaces that gives a different result silently (tbRegExp's `\1(a)`, `{,m}`, `$~` against VBScript) is a NOTE, not a WARNING (owner). A case checks what is correct, not what the package does (owner): a defect is a failing case, recorded in the project's `expect.json`, so the project tells the package's author what to fix. A section whose project is not written yet is in that gate's `PENDING` set. `package-tests.bat` runs the cases; a case it reports *fixed* means the callout goes. **The landing page ends, after See Also, with `## Test cases`**: one or two sentences linking to `<Package>-tests.twinproj` (owner), which the build publishes beside the section without the package's code in it (owner): it references the package as a linked package, which the reader puts in `%APPDATA%\twinBASIC\packages` ([WIP.PackageTests.md](WIP.PackageTests.md)). Its samples compile in the `contributed-<Package>` sample template, whose `Settings` names the package's version: **change that version with `indexed_from`** ([WIP.ExamplesBuild.md](WIP.ExamplesBuild.md#template-projects)). **A contributed package is documented and its samples compiled against the newest twinBASIC BETA installed, never an older one** (owner): the version that matters is the package's, and a statement about the compiler (such as "does not compile on BETA 1005") names that newest build. **A contributed package that does not compile on that build, or has defects that a program would meet, is listed under Experimental Packages** (owner); a minor defect that the section documents does not make it Experimental (owner: VBComDlg, whose Replace All raises no event, stays Contributed; owner: nor does a fixed limit that the section states at the top of its landing page). **A package moves from Contributed to Experimental for its defects only after a separate agent has reproduced each defect independently** and ruled out misuse, a wrong expectation, a twinBASIC defect and the harness (owner): `docs/Reference/Experimental.md`, at `/tB/Packages/Experimental/`, after Contributed Packages. Its landing page's `parent:` is `Experimental Packages`, its line is in `Experimental.md` and not in `Contributed.md`, and its book chapter follows the Experimental Packages chapter. Its folder and URLs stay under `Contributed/`, so a package that is fixed moves back by changing only those three, and its pages keep their addresses.
+- `docs/Reference/Contributed/` — the contributed packages, one folder each, landing page `Contributed.md` beside it. **A package's landing page opens, under its H1, with `**Author:**`** (owner): the publisher TWINSERV lists (`publisher` in `indexer/.packages/manifests/contributed.json`), or the author the package's own sources name when that is someone else (VBA_JSON: Tim Hall, published by WaynePhillipsEA). Next to the author, on the same line, `**Version:**`: the version the section documents, which is its `indexed_from` and changes with it (owner). Then `**On GitHub:**` with a link, when a repository holds the package, or the library the package says it is made from; search GitHub for the package's name and the author's account, and check that the repository holds the package's code (its history too: `TBMANLIB_*` were never in woeoio's `tbman`). A landing page with one or two sections has no `* TOC` list. A class with member pages is a folder, `<Class>/index.md` at `/tB/Packages/Contributed/<Package>/<Class>/` with its members beside it, so a member links to its class as `(.)`; a class documented on one page is `<Class>.md`. Each package is a chapter of the book's Packages part in `_book.yml`. A section's `indexed_from` is the four-part TWINSERV version, and its snapshot is under `indexer/snapshots/contributed/`. **Every NOTE and WARNING of a section is backed by test cases** in the package's test project, `test/package-tests/<Package>/` (owner; [its README](test/package-tests/README.md)), and names them in a `<!-- test: ... -->` marker on the line above it, which `check_package_tests.mjs` in `test.bat` enforces. **A NOTE or WARNING is only for a real difference or limit** (owner): a statement that describes how the package works stays prose, tied to its cases by a region, the marker on a line of its own above it and `<!-- /test -->` after it (owner). A difference from the object the package replaces that gives a different result silently (tbRegExp's `\1(a)`, `{,m}`, `$~` against VBScript) is a NOTE, not a WARNING (owner). A case checks what is correct, not what the package does (owner): a defect is a failing case, recorded in the project's `expect.json`, so the project tells the package's author what to fix. A section whose project is not written yet is in that gate's `PENDING` set. **A package that does not compile on the newest BETA gets no test project** (owner: ArrayListLib, WinReg): it stays in `PENDING` until a version of it compiles. One that compiles for one architecture only is tested on that one (owner: TBMANLIB, win32; `arches` in its `expect.json`, test/package-tests/README.md). `package-tests.bat` runs the cases; a case it reports *fixed* means the callout goes. **The landing page ends, after See Also, with `## Test cases`**: one or two sentences linking to `<Package>-tests.twinproj` (owner), which the build publishes beside the section without the package's code in it (owner; one exception, owner: TBMANLIB_ConsoleComponents' project carries verbatim copies of seven of its component files, in `Sources/ComponentSources/`, because the package's own components cannot be given a console object, and its drawing can be checked only on the copies): it references the package as a linked package, which the reader puts in `%APPDATA%\twinBASIC\packages` ([WIP.PackageTests.md](WIP.PackageTests.md)). Its samples compile in the `contributed-<Package>` sample template, whose `Settings` names the package's version: **change that version with `indexed_from`** ([WIP.ExamplesBuild.md](WIP.ExamplesBuild.md#template-projects)). **A contributed package is documented and its samples compiled against the newest twinBASIC BETA installed, never an older one** (owner): the version that matters is the package's, and a statement about the compiler (such as "does not compile on BETA 1005") names that newest build. **A contributed package that does not compile on that build, or has defects that a program would meet, is listed under Experimental Packages** (owner); a minor defect that the section documents does not make it Experimental (owner: VBComDlg, whose Replace All raises no event, stays Contributed; owner: nor does a fixed limit that the section states at the top of its landing page; owner: tsJson 1.0.15.0 stays Contributed, its defects confirmed by a second agent and each stated in a WARNING with a way round it). **A package moves from Contributed to Experimental for its defects only after a separate agent has reproduced each defect independently** and ruled out misuse, a wrong expectation, a twinBASIC defect and the harness (owner): `docs/Reference/Experimental.md`, at `/tB/Packages/Experimental/`, after Contributed Packages. Its landing page's `parent:` is `Experimental Packages`, its line is in `Experimental.md` and not in `Contributed.md`, and its book chapter follows the Experimental Packages chapter. Its folder and URLs stay under `Contributed/`, so a package that is fixed moves back by changing only those three, and its pages keep their addresses.
 - `docs/Downloads/index.md` — the Downloads page, `/Downloads`, a top-level page at `nav_order: 4` and in `_book.yml`'s `left_out:`. **Every file the documentation publishes for readers has a card or a row there**, and the page that documents it keeps its own link (owner). Cards are `<div class="download-card">` inside `<div class="download-grid">` (styles at the end of `custom.scss`), with the theme's `.btn` for each file. The release job publishes every same-site link on the built page that has the `download` attribute, beside the zip and the PDF, so a new download needs no change to the workflow. `{{tbdocs:size:<site path>}}` gives a published file's size and `{{tbdocs:packageTestRows}}` the test projects' rows, both expanded before render; the help add-in's size is prose ("about 51 MB" in October 2026; it is also on the Help Add-In page), because its project embeds the offline tree, this page included, so it cannot be known before render. The PDF's release URL spells it `twinBASIC.Book.pdf`: GitHub turns the space into a dot, and the spaced name 404s. The footer's **Read Offline** link (`read_offline_link` in `_config.yml`) goes to the page's `#read-offline`.
 - `docs/Reference/Statements.md` — alphabetical index of language statements.
 - `docs/Reference/Procedures and Functions.md` — alphabetical index of procedures/functions.
diff --git a/builder/package-tests.mjs b/builder/package-tests.mjs
index f1e5e7e4..0e65d899 100644
--- a/builder/package-tests.mjs
+++ b/builder/package-tests.mjs
@@ -18,7 +18,14 @@
 
 import { promises as fs } from "node:fs";
 import path from "node:path";
-import { downloadName, packageTestNames, templateSettings, testSettings, testSources } from "../lib/package-tests.mjs";
+import {
+  downloadName,
+  packageTestNames,
+  resourceFiles,
+  templateSettings,
+  testSettings,
+  testSources,
+} from "../lib/package-tests.mjs";
 import { packFiles } from "../scripts/impexp.mjs";
 import { posix } from "./paths.mjs";
 
@@ -50,6 +57,7 @@ export async function packPackageTests(cfg, pkg) {
   const files = [{ rel: "Settings", bytes: Buffer.from(`${JSON.stringify(settings, null, "\t")}\n`, "utf8") }];
   for (const f of testSources(cfg.src, pkg))
     files.push({ rel: `Sources/${f.name}`, bytes: Buffer.from(f.text, "utf8") });
+  for (const r of resourceFiles(cfg.src, pkg)) files.push({ rel: `Resources/${r.name}`, bytes: r.bytes });
   return packFiles(files, `${pkg}Tests`).bytes;
 }
 
diff --git a/docs/Documentation/Tools-Compiler.md b/docs/Documentation/Tools-Compiler.md
index fd0a32e0..39938c43 100644
--- a/docs/Documentation/Tools-Compiler.md
+++ b/docs/Documentation/Tools-Compiler.md
@@ -179,7 +179,7 @@ A defect that is a compile-time diagnostic is a **compile case** instead: a line
 | `--llvm` | Compile the whole probe, and the exe, with LLVM. The same as `--compiler-options +llvm`. |
 | `--compiler-options <s>` | The project's compiler options, for the run and the exe. |
 | `--exe` | Also run the built exe; print what it writes with `TbRun.Out`, its exit code, the fault the event log records for it, and the boxes it opened, each closed with OK. |
-| `--tests` | Build nothing: judge the compile cases and run each `[TestCase]` Sub in the compiler's test mode, printing `PASS` or `FAIL` for each. `--timeout` is the limit on each case. Not with `--exe`. |
+| `--tests` | Build nothing: judge the compile cases and run each `[TestCase]` Sub in the compiler's test mode, printing `PASS` or `FAIL` for each. `--timeout` is the limit on each case, not on the run. A case still running at the limit is reported as `no answer from the compiler`, and the cases after it as `not run: <case> did not return`: the compiler cannot stop a case, and refuses every other request (`main thread is busy`) until it ends. Run the cases after it again in a new `tbrun` with `--only`. Not with `--exe`. |
 | `--raw` | Keep the console's timestamp column, which is otherwise stripped. |
 | `--json` | One object with the path of the built file, the target, the captured lines, whether the probe returned, the licence an LLVM run checked, the exe's run, the IDE pid and anything reaped. |
 | `--keep` | Leave the IDE running and print its pid as `ide-pid: <n>` (with `--json`, `idePid`) and the `taskkill` commands, as for `tbbuild`. Implies `--no-reap`, and leaves the IDE's registry entries for the probe as they are. |
diff --git a/docs/Documentation/Tools-Samples.md b/docs/Documentation/Tools-Samples.md
index 154b237c..7757684f 100644
--- a/docs/Documentation/Tools-Samples.md
+++ b/docs/Documentation/Tools-Samples.md
@@ -118,6 +118,8 @@ For each package and architecture (both by default), the tool stages the project
 - **fixed** --- `expect.json` says it fails or never returns, and it passes: the page's callout and the entry go;
 - **changed** --- anything else: a claim of the page is no longer true, or the case is wrong.
 
+A compile case that expects an error is in the package folder's `compile/`, a second project of compile cases only, because a project with compile errors runs none of its test cases. The tool stages it with the package embedded as well and judges its cases with the others; it is not published.
+
 A case that never returns stops the compiler. The tool catches it, runs the cases after it again in a new IDE, and from then on, once `expect.json` says so, runs it alone with `--hang-timeout`. `--update` writes `expect.json` from the run, for the architectures run. The run also writes `RunAll.twin` again whenever the cases or `expect.json` change; [`check_package_tests.mjs`](Tools-Toolchain-Tests#check-package-tests) fails while it is out of date.
 
 The build publishes each project as `<Package>-tests.twinproj` beside the package's section, and the section's landing page links to it. It carries none of the package's code: it references the package as a [linked package](../../Features/Packages/Linked), which the IDE loads from `%APPDATA%\twinBASIC\packages`. With the package's file there, the project's `Sub Main` runs every case and prints `PASS`, `FAIL` or `SKIP` for each in the DEBUG CONSOLE.
diff --git a/docs/Documentation/Tools-Toolchain-Tests.md b/docs/Documentation/Tools-Toolchain-Tests.md
index befb63ba..5c04200a 100644
--- a/docs/Documentation/Tools-Toolchain-Tests.md
+++ b/docs/Documentation/Tools-Toolchain-Tests.md
@@ -370,7 +370,7 @@ A callout names its cases in an HTML comment on the line above it:
 
 The same comment anywhere else opens a region, which `<!-- /test -->` closes: it ties the paragraphs, lists, tables and samples between them, which describe how the package works, to the cases that check them. Regions do not nest, and a callout inside one is marked by it.
 
-Each item is a `Fixture.Sub` for a `[TestCase]`, `compile <Name>` for a compile case, `probe <id>` for a scenario of the package's `probe/` harness, or `none -- <reason>` for a callout no program can check. For a package with a test project, the gate fails when a callout has neither a marker nor a region around it, when a region is not closed or opens inside another, when an item names nothing that exists, when a case is named by no marker, when a `[TestCase]` does not start with `Expect.Begin` and end with `Expect.Done`, when `expect.json` is for another version than the section's `indexed_from` or names a case that does not exist, and when the generated `RunAll.twin` is out of date. A section with no test project yet is listed in the script's `PENDING` set; the gate fails on a name there with a project, and on a section neither there nor with one, so the list only shrinks.
+Each item is a `Fixture.Sub` for a `[TestCase]`, `compile <Name>` for a compile case, `probe <id>` for a scenario of the package's `probe/` harness, or `none -- <reason>` for a callout no program can check. For a package with a test project, the gate fails when a callout has neither a marker nor a region around it, when a region is not closed or opens inside another, when an item names nothing that exists, when a case is named by no marker (a compile case of the package's `compile/` project included), when `compile/` holds a `[TestCase]`, when a `[TestCase]` does not start with `Expect.Begin` and end with `Expect.Done`, when `expect.json` is for another version than the section's `indexed_from` or names a case that does not exist, and when the generated `RunAll.twin` is out of date. A section with no test project yet is listed in the script's `PENDING` set; the gate fails on a name there with a project, and on a section neither there nor with one, so the list only shrinks.
 
 Thirteen probes run first, on pages, sources and an `expect.json` built in memory: how a marker, a region and their items are read, the RunAll module, how `expect.json` is read and written, and how a case's result is judged.
 
diff --git a/docs/Downloads/index.md b/docs/Downloads/index.md
index 95205081..cf444614 100644
--- a/docs/Downloads/index.md
+++ b/docs/Downloads/index.md
@@ -66,7 +66,7 @@ Every page of this site, to read from disk in any browser with no network. Navig
 
 ## Package test projects
 
-Each contributed package that has test cases publishes them as a twinBASIC project. The project holds only the tests: it references the package, which goes in `%APPDATA%\twinBASIC\packages`. The package's landing page says what the cases check.
+For each contributed package it has test cases for, the documentation project publishes those cases as a twinBASIC project. The project holds only the tests: it references the package, which goes in `%APPDATA%\twinBASIC\packages`. The package's landing page says what the cases check.
 
 | Package | Test project | Size |
 |---------|--------------|------|
diff --git a/docs/Reference/Contributed.md b/docs/Reference/Contributed.md
index a68773f3..fda89630 100644
--- a/docs/Reference/Contributed.md
+++ b/docs/Reference/Contributed.md
@@ -18,7 +18,6 @@ Each package is versioned apart from twinBASIC, and its section says which versi
 - [**Generics**](Generics/) -- tuples, read-only objects that hold one to seven values of declared types
 - [**OLEGuids**](OLEGuids/) -- OLE and COM interfaces and structures in twinBASIC source, in place of `OLEGuids.tlb`
 - [**tbFileSysTools**](tbFileSysTools/) -- files, folders, drives and text streams, in place of the Scripting Runtime's **FileSystemObject**
-- [**TBMANLIB_ListBoxHScroll**](TBMANLIB_ListBoxHScroll/) -- a horizontal scroll bar for a **ListBox**
 - [**TBMANLIB_RES**](TBMANLIB_RES/) -- resources embedded in an executable, as bytes, strings, hex, Base64 or pictures
 - [**tbProjPacker**](tbProjPacker/) -- a `.twinproj` or `.twinpack` file unpacked into a folder of source files, and packed again
 - [**tbRegExp**](tbRegExp/) -- regular expressions, in place of VBScript's **RegExp** object
diff --git a/docs/Reference/Contributed/AutoCompleteLib/AutoComplete.md b/docs/Reference/Contributed/AutoCompleteLib/AutoComplete.md
index 112a3708..f456c110 100644
--- a/docs/Reference/Contributed/AutoCompleteLib/AutoComplete.md
+++ b/docs/Reference/Contributed/AutoCompleteLib/AutoComplete.md
@@ -10,7 +10,9 @@ has_toc: false
 
 A class that attaches Windows shell auto-complete behaviour to a text-input control's window handle.
 
+<!-- test: InitTests.CustomSource_CompletesTheTypedText, InitTests.FileSystem_CompletesAPath, InitTests.All_CompletesAPath, InitTests.HistoryMruAndAll_RaiseNothing -->
 **AutoComplete** wraps the `IAutoComplete2` COM interface. After calling [**Init**](#init) with the window handle of an edit box and a source type, the Windows shell begins offering suggestions as the user types. The source can be the shell history, the file system, the most-recently-used list, all three combined, or a custom string array supplied through [**CustomSource**](#customsource).
+<!-- /test -->
 
 ```tb check_build
 Private m_AC As AutoComplete
@@ -34,10 +36,14 @@ Returns or sets a one-dimensional **String** array used as the suggestion list w
 
 Syntax: *object*.**CustomSource** [ = *StringArray* ]
 
+<!-- test: CustomSourceTests.Set_Strings_AreKeptInOrder, CustomSourceTests.Set_EmptyStrings_AreIgnored, CustomSourceTests.Set_NonStringElements_AreIgnored, CustomSourceTests.Set_ArrayOfNumbers_GivesAnEmptyList, CustomSourceTests.Set_TypedStringArray_WithALowerBound_IsKept, CustomSourceTests.Set_ZeroLengthArray_ClearsTheList, CustomSourceTests.Set_Empty_ClearsTheList, CustomSourceTests.Set_TwoDimensionalArray_Raises5_AndKeepsTheList, CustomSourceTests.Set_UnallocatedArray_Raises91_AndKeepsTheList, CustomSourceTests.Set_AValueThatIsNotAnArray_Raises380, InitTests.CustomSource_ClearedAfterInit_CompletesNothing -->
 *StringArray*
-: A one-dimensional **Variant** holding a **String** array. Empty strings and non-string elements are silently ignored. Assigning **Empty** clears the list. A two-or-more-dimensional array raises run-time error 5 ("Array must be single dimensioned"). An unallocated array raises run-time error 91. Any other value that is not an array raises run-time error 380.
+: A one-dimensional **Variant** holding a **String** array. Empty strings and non-string elements are silently ignored. Assigning **Empty** clears the list. A two-or-more-dimensional array raises run-time error 5 ("Array must be single dimensioned"). An unallocated array raises run-time error 91. Any other value that is not an array raises run-time error 380. An assignment that raises an error leaves the list as it was.
+<!-- /test -->
 
-The getter returns the filtered array currently stored in the object. Assigning a new value replaces the previous list in full; there is no way to append individual entries.
+<!-- test: CustomSourceTests.Get_ReturnsAZeroBasedStringArray, CustomSourceTests.Set_TypedStringArray_WithALowerBound_IsKept, CustomSourceTests.Set_NewArray_ReplacesThePreviousListInFull, CustomSourceTests.Get_EmptyList_IsAnArrayThatIsNotAllocated, InitTests.CustomSource_ReplacedAfterInit_CompletesFromTheNewList, InitTests.CustomSource_NoMatch_LeavesTheText, InitTests.CustomSource_EmptyList_LeavesTheText -->
+The getter returns the filtered array currently stored in the object: a zero-based array of **String**, whatever the bounds of the array that was assigned. While the list is empty, the array is not allocated, and **UBound** of it raises run-time error 9. Assigning a new value replaces the previous list in full, also while the list is attached to a window; there is no way to append individual entries.
+<!-- /test -->
 
 ### FileSystemOptions
 {: .no_toc }
@@ -59,6 +65,10 @@ Syntax: *object*.**FileSystemOptions** [ = *value* ]
 | **AutoCompleteFileSystemOptionFileSysOnly** | 16 | File-system items only (no virtual shell folders). |
 | **AutoCompleteFileSystemOptionFileSysDirs** | 32 | Directories only. |
 
+<!-- test: FileSystemOptionsTests.EachConstant_IsKept, FileSystemOptionsTests.Combination_IsKept, FileSystemOptionsTests.FileSysDirs_OffersADirectory, FileSystemOptionsTests.FileSysDirs_DoesNotOfferAFile, FileSystemOptionsTests.FileSysOnly_OffersAFile, FileSystemOptionsTests.SetBeforeInit_Applies, FileSystemOptionsTests.SetAfterInit_Applies, FileSystemOptionsTests.AllSource_FollowsTheSetting, OptionsTests.Constants_HaveTheDocumentedValues -->
+The getter returns the value that was set. The setting applies whether it is made before or after [**Init**](#init), and to the source **AutoCompleteSourceAll** as to **AutoCompleteSourceFileSystem**. With **AutoCompleteFileSystemOptionFileSysDirs**, the list offers directories and no files; with **AutoCompleteFileSystemOptionFileSysOnly**, it offers files.
+<!-- /test -->
+
 ### Options
 {: .no_toc }
 
@@ -81,6 +91,10 @@ Syntax: *object*.**Options** [ = *value* ]
 | **AutoCompleteOptionUpDownKeyDropsList** | &H20 | Opens the drop-down list when the user presses the **Up** or **Down** arrow key. |
 | **AutoCompleteOptionRightToLeft** | &H40 | Shows the text of the drop-down list from right to left. |
 
+<!-- test: OptionsTests.EachConstant_IsKept, OptionsTests.Combination_IsKept, OptionsTests.Append_AppendsTheBestMatch, OptionsTests.None_AppendsNothing, OptionsTests.SetAfterInit_Applies, InitTests.CustomSource_CompletesTheTypedText -->
+The getter returns the value that was set. The setting applies whether it is made before or after [**Init**](#init). With **AutoCompleteOptionAppend** the text of the best match is appended to what was typed and selected; with **AutoCompleteOptionNone** nothing is appended.
+<!-- /test -->
+
 ## Methods
 
 ### Disable
@@ -90,7 +104,9 @@ Disables auto-complete without destroying the object.
 
 Syntax: *object*.**Disable**
 
+<!-- test: SwitchTests.Disable_StopsTheSuggestions, SwitchTests.Disable_KeepsTheSourceAndTheList -->
 Auto-complete stops offering suggestions. Call [**Enable**](#enable) to turn it back on without calling [**Init**](#init) again.
+<!-- /test -->
 
 ### DroppedDown
 {: .no_toc }
@@ -101,10 +117,16 @@ Syntax: *object*.**DroppedDown** ( ) **As Boolean**
 
 Returns **True** when the drop-down is open, **False** otherwise. The return value is **False** if the `IAutoCompleteDropDown` interface cannot be obtained.
 
+<!-- test: SwitchTests.DroppedDown_BeforeAnyList_IsFalse -->
+An object that has not been initialised, and one whose list has not been opened, return **False**.
+<!-- /test -->
+
 ### Enable
 {: .no_toc }
 
+<!-- test: SwitchTests.Enable_ResumesTheSuggestions -->
 Re-enables auto-complete after a call to [**Disable**](#disable).
+<!-- /test -->
 
 Syntax: *object*.**Enable**
 
@@ -130,7 +152,17 @@ Syntax: *object*.**Init** *hWndEdit*, *Source*
 | **AutoCompleteSourceAll** | 4 | History, file system, and MRU combined through an `IObjMgr`. |
 | **AutoCompleteSourceCustomSource** | 5 | The one-dimensional string array set through [**CustomSource**](#customsource). |
 
-The target control must exist when **Init** is called, and **Init** is called before the user starts typing. Calling **Init** with **AutoCompleteSourceNone**, or with any other value outside the table, raises run-time error 380 (Invalid property value). If the internal `IAutoComplete2` object could not be created when the **AutoComplete** object was created, **Init** exits silently.
+The target control must exist when **Init** is called, and **Init** is called before the user starts typing.
+
+<!-- test: InitTests.SourceNone_Raises380, InitTests.SourceOutsideTheTable_Raises380, InitTests.WindowHandleZero_Raises5 -->
+Calling **Init** with **AutoCompleteSourceNone**, or with any other value outside the table, raises run-time error 380 (Invalid property value). A *hWndEdit* of 0 raises run-time error 5 (Automation error).
+<!-- /test -->
+
+If the internal `IAutoComplete2` object could not be created when the **AutoComplete** object was created, **Init** exits silently.
+
+<!-- test: InitTests.SecondCall_OnTheSameObject_Raises, InitTests.OneObjectForEachWindow_RaiseNothing -->
+> [!NOTE] 1.0.3.0
+> An **AutoComplete** object attaches to one window, once. A second call to **Init** on the same object, for the same window or for another, raises run-time error -2147467259 (Automation error) and attaches nothing. Create one **AutoComplete** object for each text box.
 
 ### Refresh
 {: .no_toc }
diff --git a/docs/Reference/Contributed/AutoCompleteLib/index.md b/docs/Reference/Contributed/AutoCompleteLib/index.md
index 679a285f..6382d292 100644
--- a/docs/Reference/Contributed/AutoCompleteLib/index.md
+++ b/docs/Reference/Contributed/AutoCompleteLib/index.md
@@ -16,3 +16,7 @@ The **AutoCompleteLib** contributed package provides Windows shell auto-complete
 ## Classes
 
 - [AutoComplete](AutoComplete) -- attaches Windows shell auto-complete behaviour to a text-input control's window handle.
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [AutoCompleteLib-tests.twinproj](AutoCompleteLib-tests.twinproj), a twinBASIC project. It uses AutoCompleteLib as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/BigNumberLib/BigNumber.md b/docs/Reference/Contributed/BigNumberLib/BigNumber.md
index ba8731fb..3c56eb88 100644
--- a/docs/Reference/Contributed/BigNumberLib/BigNumber.md
+++ b/docs/Reference/Contributed/BigNumberLib/BigNumber.md
@@ -8,6 +8,7 @@ has_toc: false
 # BigNumber class
 {: .no_toc }
 
+<!-- test: OverflowTests.Capacity_4096BitNumberIsHeld, ArithmeticTests.AssignMultiplication_OperandsOf2048Bits, ArithmeticTests.AssignAddition_ManualExample -->
 A **BigNumber** represents an arbitrary-precision signed integer backed by the TomsFastMath (libtfm) C library, supporting numbers up to 4096 bits. A multiplication accepts operands of up to 2048 bits each. The default property is [**ValueString**](#valuestring).
 
 ```tb check_build check_run
@@ -20,13 +21,17 @@ b.ValueString = "987654321098765432109876543210"
 result.AssignAddition a, b
 Debug.Print result.ValueString   ' 1111111110111111111011111111100
 ```
+<!-- /test -->
 
+<!-- test: none -- a statement about the twinBASIC build the class needs -->
 > [!NOTE] since BETA 434
 > The class needs this build of twinBASIC or a later one.
 
+<!-- test: ConversionTests.ValueString_StopsAtFirstInvalidCharacter, ConversionTests.ValueHex_StopsAtFirstInvalidCharacter -->
 > [!NOTE] 1.0.2.0
 > String-to-value conversions silently stop at the first invalid character --- for example, setting `ValueHex = "ABC123he"` stores `&HABC123` without raising an error.
 
+<!-- test: OverflowTests.Overflow_ShiftLeftBeyondTheLibrary_RaisesErrorOrIsRight, OverflowTests.Overflow_MultiplicationBeyondTheLibrary_RaisesErrorOrIsRight, OverflowTests.Overflow_AdditionBeyondTheLibrary_RaisesErrorOrIsRight, OverflowTests.Overflow_ValueStringWithTooManyDigits_RaisesErrorOrIsRight, OverflowTests.Overflow_ValueHexWithTooManyDigits_RaisesErrorOrIsRight, OverflowTests.Capacity_ShiftLeftToTheLibraryLimitIsRight, OverflowTests.Capacity_AFewBitsOver4096IsStillRight -->
 > [!WARNING] 1.0.2.0
 > Overflow is not trapped. A result that needs more bits than the library holds loses its high bits, and a string with more digits than fit gives a wrong value. No error is raised in either case. The library holds a little more than the 4096 bits the class supports, 4352 bits in a 32-bit program and 4608 in a 64-bit one, so a result a few bits over 4096 may still be right.
 
@@ -38,6 +43,7 @@ Debug.Print result.ValueString   ' 1111111110111111111011111111100
 ### ValueString
 {: .no_toc }
 
+<!-- test: ConversionTests.ValueString_NewNumberIsZero, ConversionTests.ValueString_RoundTrip, ConversionTests.ValueString_IsTheDefaultMember, ConversionTests.ValueString_LeadingPlusOrSpaceGivesZero, ConversionTests.ValueString_NoDigitsGivesZero -->
 Returns or sets the value as a decimal string representation. **Default property.**
 
 Syntax: *object*.**ValueString** [ = *value* ]
@@ -46,10 +52,12 @@ Syntax: *object*.**ValueString** [ = *value* ]
 : A **String** containing a decimal integer, optionally preceded by a minus sign. Conversion stops at the first character that is not a valid decimal digit, so a leading plus sign or space gives 0. A string with no digits gives 0.
 
 The getter returns the decimal digits, preceded by a minus sign for a negative value.
+<!-- /test -->
 
 ### ValueHex
 {: .no_toc }
 
+<!-- test: ConversionTests.ValueHex_UpperCaseWithoutLeadingZeros, ConversionTests.ValueHex_PrefixIsNotAccepted, ConversionTests.ValueHex_Negative, ConversionTests.Conversions_NegativeNumberInEveryBase, ConversionTests.Conversions_PowerOfTwoInEveryBase, ConversionTests.Conversions_LargeNumberSameInEveryBase -->
 Returns or sets the value as a hexadecimal string representation.
 
 Syntax: *object*.**ValueHex** [ = *value* ]
@@ -70,10 +78,12 @@ Debug.Print n.ValueHex       ' -FF
 Debug.Print n.ValueOctal     ' -377
 Debug.Print n.ValueBinary    ' -11111111
 ```
+<!-- /test -->
 
 ### ValueOctal
 {: .no_toc }
 
+<!-- test: ConversionTests.ValueOctal_RoundTripAndStop -->
 Returns or sets the value as an octal string representation.
 
 Syntax: *object*.**ValueOctal** [ = *value* ]
@@ -82,10 +92,12 @@ Syntax: *object*.**ValueOctal** [ = *value* ]
 : A **String** containing an octal integer (digits `0`--`7`), optionally preceded by a minus sign. Conversion stops at the first character that is not a valid octal digit.
 
 The getter returns the digits without leading zeros, preceded by a minus sign for a negative value.
+<!-- /test -->
 
 ### ValueBinary
 {: .no_toc }
 
+<!-- test: ConversionTests.ValueBinary_RoundTripAndStop -->
 Returns or sets the value as a binary string representation.
 
 Syntax: *object*.**ValueBinary** [ = *value* ]
@@ -94,10 +106,12 @@ Syntax: *object*.**ValueBinary** [ = *value* ]
 : A **String** containing a binary integer (digits `0` and `1`), optionally preceded by a minus sign. Conversion stops at the first character that is not `0` or `1`.
 
 The getter returns the digits without leading zeros, preceded by a minus sign for a negative value.
+<!-- /test -->
 
 ### IsNegative
 {: .no_toc }
 
+<!-- test: SignTests.IsNegative_ReadsTheSignOfTheValue, SignTests.IsNegative_SetFalseMakesNumberNonNegative -->
 Returns or sets whether the value is negative.
 
 Syntax: *object*.**IsNegative** [ = *value* ]
@@ -106,7 +120,9 @@ Syntax: *object*.**IsNegative** [ = *value* ]
 : A **Boolean**. Setting **False** makes the number non-negative. Setting **True** is meant to make it negative, but see the warning.
 
 The getter returns **True** for a negative number, and **False** for a positive number and for zero, except the negative zero that [**AssignFromLong**](#assignfromlong) describes.
+<!-- /test -->
 
+<!-- test: SignTests.IsNegative_SetTrueShowsMinusSign, SignTests.IsNegative_SetTrueShowsMinusSignInEveryBase, SignTests.IsNegative_SetTrueMakesArithmeticRight, SignTests.IsNegative_SetTrueMakesNumberLessThanZero -->
 > [!WARNING] 1.0.2.0
 > Setting **IsNegative** to **True** does not make the number negative. The property stores -1, the value of **True**, where the library expects 1, so the number is in a state that the library does not handle: [**ValueString**](#valuestring) and the other conversions show no minus sign, **IsNegative** still returns **True**, and arithmetic with the number gives wrong results. To make a number negative, set **ValueString** to a string that starts with a minus sign, or use [**AssignNegation**](#assignnegation). [**AssignGreatestCommonDivisor**](#assigngreatestcommondivisor) and [**AssignLeastCommonMultiple**](#assignleastcommonmultiple) set this state in a negative operand.
 
@@ -123,6 +139,7 @@ Debug.Print n.ValueString    ' 5
 ### AssignAddition
 {: .no_toc }
 
+<!-- test: ArithmeticTests.AssignAddition_Signs, ArithmeticTests.AssignAddition_LargeNumbers -->
 Sets this instance to `a + b`.
 
 Syntax: *object*.**AssignAddition** *a*, *b*
@@ -132,10 +149,12 @@ Syntax: *object*.**AssignAddition** *a*, *b*
 
 *b*
 : *required* A **BigNumber** holding the second operand.
+<!-- /test -->
 
 ### AssignSubtraction
 {: .no_toc }
 
+<!-- test: ArithmeticTests.AssignSubtraction_Signs, ArithmeticTests.AssignSubtraction_LargeNumbers -->
 Sets this instance to `a - b`.
 
 Syntax: *object*.**AssignSubtraction** *a*, *b*
@@ -145,10 +164,12 @@ Syntax: *object*.**AssignSubtraction** *a*, *b*
 
 *b*
 : *required* A **BigNumber** holding the subtrahend.
+<!-- /test -->
 
 ### AssignMultiplication
 {: .no_toc }
 
+<!-- test: ArithmeticTests.AssignMultiplication_Signs, ArithmeticTests.AssignMultiplication_LargeNumbers -->
 Sets this instance to `a * b`.
 
 Syntax: *object*.**AssignMultiplication** *a*, *b*
@@ -158,10 +179,12 @@ Syntax: *object*.**AssignMultiplication** *a*, *b*
 
 *b*
 : *required* A **BigNumber** holding the second factor.
+<!-- /test -->
 
 ### AssignDivision
 {: .no_toc }
 
+<!-- test: ArithmeticTests.AssignDivision_TruncatesTowardZero, ArithmeticTests.AssignDivision_LargeNumbers, ErrorTests.AssignDivision_ByZero_RaisesError5, ErrorTests.AssignDivision_ByZero_KeepsTheValue -->
 Sets this instance to the integer quotient `a \ b`, truncated toward zero. Raises run-time error 5 if *b* is zero.
 
 Syntax: *object*.**AssignDivision** *a*, *b*
@@ -189,10 +212,12 @@ q.AssignDivision a, b
 Debug.Print Err.Number & " " & Err.Description    ' 5 invalid operation
 Debug.Print q.ValueString               ' -3
 ```
+<!-- /test -->
 
 ### AssignModulus
 {: .no_toc }
 
+<!-- test: ModulusTests.AssignModulus_PositiveDivisor, ModulusTests.AssignModulus_NegativeDivisor, ModulusTests.AssignModulus_ManualExamples, ModulusTests.AssignModulus_LargeNumbers, ErrorTests.AssignModulus_ByZero_RaisesError5 -->
 Sets this instance to `a Mod b`. The result is zero or has the sign of *b*, so `-7 Mod 2` is 1 and `7 Mod -2` is -1. Raises run-time error 5 if *b* is zero.
 
 Syntax: *object*.**AssignModulus** *a*, *b*
@@ -202,7 +227,9 @@ Syntax: *object*.**AssignModulus** *a*, *b*
 
 *b*
 : *required* A **BigNumber** holding the divisor. Must not be zero.
+<!-- /test -->
 
+<!-- test: ModulusTests.AssignModulus_NegativeDivisor_ZeroResultIsNotNegative, ModulusTests.AssignModulus_NegativeDivisor_ZeroResultEqualsZero -->
 > [!WARNING] 1.0.2.0
 > When *b* is negative and the result is zero, the result is a negative zero: [**IsNegative**](#isnegative) returns **True** and [**IsEqualTo**](#isequalto) does not find it equal to a zero read from a string. [**AssignFromLong**](#assignfromlong) describes it.
 
@@ -224,19 +251,23 @@ Debug.Print r.ValueString    ' -1
 ### AssignSquared
 {: .no_toc }
 
+<!-- test: ArithmeticTests.AssignSquared_Signs, ArithmeticTests.AssignSquared_LargeNumber -->
 Sets this instance to `a * a` (the square of *a*).
 
 Syntax: *object*.**AssignSquared** *a*
 
 *a*
 : *required* A **BigNumber** holding the value to square.
+<!-- /test -->
 
+<!-- test: SignTests.AssignSquared_Zero_IsNotNegative, SignTests.AssignSquared_Zero_EqualsZeroFromString -->
 > [!WARNING] 1.0.2.0
 > The square of zero is a negative zero, as [**AssignFromLong**](#assignfromlong) describes.
 
 ### AssignAdditionModulus
 {: .no_toc }
 
+<!-- test: ModulusTests.AssignAdditionModulus_PositiveModulus, ModulusTests.AssignAdditionModulus_NegativeModulus, ModulusTests.AssignAdditionModulus_ManualExamples, ErrorTests.AssignAdditionModulus_ByZero_RaisesError5 -->
 Sets this instance to `(a + b) Mod mod_c`. Raises run-time error 5 if *mod_c* is zero.
 
 Syntax: *object*.**AssignAdditionModulus** *a*, *b*, *mod_c*
@@ -267,10 +298,12 @@ Debug.Print r.ValueString    ' 0
 r.AssignMultiplicationModulus a, b, m
 Debug.Print r.ValueString    ' 2
 ```
+<!-- /test -->
 
 ### AssignSubtractionModulus
 {: .no_toc }
 
+<!-- test: ModulusTests.AssignSubtractionModulus_PositiveModulus, ModulusTests.AssignSubtractionModulus_NegativeModulus, ErrorTests.AssignSubtractionModulus_ByZero_RaisesError5 -->
 Sets this instance to `(a - b) Mod mod_c`. Raises run-time error 5 if *mod_c* is zero. [**AssignAdditionModulus**](#assignadditionmodulus) describes the sign of the result.
 
 Syntax: *object*.**AssignSubtractionModulus** *a*, *b*, *mod_c*
@@ -283,10 +316,12 @@ Syntax: *object*.**AssignSubtractionModulus** *a*, *b*, *mod_c*
 
 *mod_c*
 : *required* A **BigNumber** holding the modulus. It should be positive.
+<!-- /test -->
 
 ### AssignMultiplicationModulus
 {: .no_toc }
 
+<!-- test: ModulusTests.AssignMultiplicationModulus_PositiveModulus, ModulusTests.AssignMultiplicationModulus_NegativeModulus, ModulusTests.AssignMultiplicationModulus_LargeNumbers, ErrorTests.AssignMultiplicationModulus_ByZero_RaisesError5 -->
 Sets this instance to `(a * b) Mod mod_c`. Raises run-time error 5 if *mod_c* is zero. [**AssignAdditionModulus**](#assignadditionmodulus) describes the sign of the result.
 
 Syntax: *object*.**AssignMultiplicationModulus** *a*, *b*, *mod_c*
@@ -299,10 +334,12 @@ Syntax: *object*.**AssignMultiplicationModulus** *a*, *b*, *mod_c*
 
 *mod_c*
 : *required* A **BigNumber** holding the modulus. It should be positive.
+<!-- /test -->
 
 ### AssignSquaredModulus
 {: .no_toc }
 
+<!-- test: ModulusTests.AssignSquaredModulus_PositiveModulus, ModulusTests.AssignSquaredModulus_NegativeModulus, ErrorTests.AssignSquaredModulus_ByZero_RaisesError5 -->
 Sets this instance to `(a * a) Mod mod_b`. Raises run-time error 5 if *mod_b* is zero. [**AssignAdditionModulus**](#assignadditionmodulus) describes the sign of the result.
 
 Syntax: *object*.**AssignSquaredModulus** *a*, *mod_b*
@@ -312,11 +349,13 @@ Syntax: *object*.**AssignSquaredModulus** *a*, *mod_b*
 
 *mod_b*
 : *required* A **BigNumber** holding the modulus. It should be positive.
+<!-- /test -->
 
 ### AssignModularMultiplicativeInverse
 {: .no_toc }
 
-Sets this instance to the modular multiplicative inverse of *a* modulo *mod_b* --- the value *x* such that `(a * x) Mod mod_b = 1`. Raises run-time error 5 if the inverse does not exist, which is the case when *a* and *mod_b* have a common factor and when *a* is a multiple of *mod_b*. For a negative *a* the result is negative: the inverse of -3 modulo 7 is -5, because `(-3 * -5) Mod 7` is 1.
+<!-- test: InverseTests.Inverse_ManualExample, InverseTests.Inverse_ProductWithResultIsOneModuloModulus, InverseTests.Inverse_KnownValues, InverseTests.Inverse_NegativeValueGivesNegativeResult, InverseTests.Inverse_CommonFactorRaisesError5, InverseTests.Inverse_MultipleOfModulusRaisesError5, InverseTests.Inverse_ModulusOneRaisesNoError -->
+Sets this instance to the modular multiplicative inverse of *a* modulo *mod_b* --- the value *x* such that `(a * x) Mod mod_b = 1`. Raises run-time error 5 if the inverse does not exist, which is the case when *a* and *mod_b* have a common factor greater than 1, such as when *a* is a multiple of *mod_b*. For a negative *a* the result is negative: the inverse of -3 modulo 7 is -5, because `(-3 * -5) Mod 7` is 1. Modulo 1 there is no error: the inverse of 5 modulo 1 is 0.
 
 Syntax: *object*.**AssignModularMultiplicativeInverse** *a*, *mod_b*
 
@@ -325,7 +364,9 @@ Syntax: *object*.**AssignModularMultiplicativeInverse** *a*, *mod_b*
 
 *mod_b*
 : *required* A **BigNumber** holding the modulus. It must be positive.
+<!-- /test -->
 
+<!-- test: InverseTests.Inverse_ZeroValueOddModulus_RaisesError5, InverseTests.Inverse_NegativeOddModulus_RaisesError5, InverseTests.Inverse_ZeroValueEvenModulusRaisesError5, InverseTests.Inverse_NegativeEvenModulusRaisesError5 -->
 > [!WARNING] 1.0.2.0
 > The call does not return, and the program stops responding, when *mod_b* is odd and either *a* is zero or *mod_b* is negative. A zero *a* with an even *mod_b*, and any *a* with a negative even *mod_b*, raise error 5.
 
@@ -348,6 +389,7 @@ Debug.Print Err.Number & " " & Err.Description    ' 5 invalid operation
 ### AssignGreatestCommonDivisor
 {: .no_toc }
 
+<!-- test: GcdLcmTests.Gcd_PositiveValues, GcdLcmTests.Gcd_WithZero, GcdLcmTests.Gcd_ResultIsNonNegativeWhateverTheSigns, GcdLcmTests.Gcd_LargeNumbers -->
 Sets this instance to the greatest common divisor of *a* and *b*. The signs of *a* and *b* are ignored; the result is always non-negative. The greatest common divisor of zero and *b* is the absolute value of *b*, and that of two zeros is zero.
 
 Syntax: *object*.**AssignGreatestCommonDivisor** *a*, *b*
@@ -357,7 +399,9 @@ Syntax: *object*.**AssignGreatestCommonDivisor** *a*, *b*
 
 *b*
 : *required* A **BigNumber** holding the second value.
+<!-- /test -->
 
+<!-- test: GcdLcmTests.Gcd_NegativeFirstOperandKeepsItsValue, GcdLcmTests.Gcd_NegativeSecondOperandKeepsItsValue, GcdLcmTests.Gcd_NegativeOperandStillAddsCorrectly -->
 > [!WARNING] 1.0.2.0
 > A negative *a* or *b* is changed by the call. The method clears the sign of each operand and puts it back with [**IsNegative**](#isnegative), which leaves the operand in the state that the warning there describes: it shows no minus sign, and arithmetic with it gives wrong results.
 
@@ -375,7 +419,8 @@ Debug.Print a.ValueString    ' 12
 ### AssignLeastCommonMultiple
 {: .no_toc }
 
-Sets this instance to the least common multiple of *a* and *b*. The signs of *a* and *b* are ignored; the result is non-negative. The least common multiple of zero and any value is zero.
+<!-- test: GcdLcmTests.Lcm_PositiveValues, GcdLcmTests.Lcm_WithZero, GcdLcmTests.Lcm_ResultIsNonNegativeWhateverTheSigns, GcdLcmTests.Lcm_LargeNumbers -->
+Sets this instance to the least common multiple of *a* and *b*. The signs of *a* and *b* are ignored; the result is non-negative. The least common multiple of zero and a value that is not zero is zero.
 
 Syntax: *object*.**AssignLeastCommonMultiple** *a*, *b*
 
@@ -384,13 +429,20 @@ Syntax: *object*.**AssignLeastCommonMultiple** *a*, *b*
 
 *b*
 : *required* A **BigNumber** holding the second value.
+<!-- /test -->
 
+<!-- test: GcdLcmTests.Lcm_NegativeFirstOperandKeepsItsValue, GcdLcmTests.Lcm_NegativeSecondOperandKeepsItsValue, GcdLcmTests.Lcm_NegativeOperandStillAddsCorrectly -->
 > [!WARNING] 1.0.2.0
 > A negative *a* or *b* is changed by the call, as [**AssignGreatestCommonDivisor**](#assigngreatestcommondivisor) describes.
 
+<!-- test: GcdLcmTests.Lcm_OfTwoZeros_64Bit -->
+> [!WARNING] 1.0.2.0
+> In a 64-bit program, when *a* and *b* are both zero, this instance keeps the value it had: the result is not set to zero. In a 32-bit program the result is zero or the value the instance had, differing from one build of the program to the next.
+
 ### AssignShiftRight
 {: .no_toc }
 
+<!-- test: ShiftTests.ShiftRight_DividesByPowerOfTwoTruncatingTowardZero, ShiftTests.ShiftRight_ManualExamples, ShiftTests.ShiftRight_LargeNumber, ShiftTests.ShiftRight_NegativeAmountLeavesValueUnchanged -->
 Sets this instance to *a* right-shifted by *shiftAmount_b* bits (equivalent to integer division by 2^*shiftAmount_b*, truncated toward zero, so shifting -1 right by any positive amount gives 0).
 
 Syntax: *object*.**AssignShiftRight** *a*, *shiftAmount_b*
@@ -411,10 +463,12 @@ a.ValueString = "-1"
 r.AssignShiftRight a, 1
 Debug.Print r.ValueString    ' 0
 ```
+<!-- /test -->
 
 ### AssignShiftLeft
 {: .no_toc }
 
+<!-- test: ShiftTests.ShiftLeft_MultipliesByPowerOfTwo, ShiftTests.ShiftLeft_ManualExample, ShiftTests.ShiftLeft_ByThousandsOfBits, ShiftTests.ShiftLeft_NegativeAmountDoesNotShiftRight -->
 Sets this instance to *a* left-shifted by *shiftAmount_b* bits (equivalent to multiplication by 2^*shiftAmount_b*).
 
 Syntax: *object*.**AssignShiftLeft** *a*, *shiftAmount_b*
@@ -432,10 +486,12 @@ a.ValueString = "5"
 r.AssignShiftLeft a, 100
 Debug.Print r.ValueString    ' 6338253001141147007483516026880
 ```
+<!-- /test -->
 
 ### AssignNegation
 {: .no_toc }
 
+<!-- test: SignTests.AssignNegation_ChangesTheSign, SignTests.AssignNegation_OfZeroIsZero, SignTests.AssignNegation_ResultOfNegationAddsToZero, SignTests.AssignNegation_ReturnValueIsFalse -->
 Sets this instance to the arithmetic negation of *a* (`-a`).
 
 Syntax: *object*.**AssignNegation** *a*
@@ -444,10 +500,12 @@ Syntax: *object*.**AssignNegation** *a*
 : *required* A **BigNumber** holding the value to negate.
 
 **AssignNegation** is declared as a **Function** returning **Boolean**, but the return value is never set and is always **False**.
+<!-- /test -->
 
 ### AssignAbsolute
 {: .no_toc }
 
+<!-- test: SignTests.AssignAbsolute_DropsTheSign, SignTests.AssignAbsolute_ReturnValueIsFalse -->
 Sets this instance to the absolute value of *a*.
 
 Syntax: *object*.**AssignAbsolute** *a*
@@ -456,17 +514,21 @@ Syntax: *object*.**AssignAbsolute** *a*
 : *required* A **BigNumber** holding the value whose absolute value is taken.
 
 **AssignAbsolute** is declared as a **Function** returning **Boolean**, but the return value is never set and is always **False**.
+<!-- /test -->
 
 ### AssignFromLong
 {: .no_toc }
 
+<!-- test: SignTests.AssignFromLong_Values, SignTests.AssignFromLong_MostNegativeLong, SignTests.AssignFromLong_ReplacesThePreviousValue -->
 Sets this instance to a value from a native **Long** integer.
 
 Syntax: *object*.**AssignFromLong** *a*
 
 *a*
 : *required* A **Long** holding the value to assign. Negative values (including `&H80000000`) are handled correctly.
+<!-- /test -->
 
+<!-- test: SignTests.AssignFromLong_Zero_IsNotNegative, SignTests.AssignFromLong_Zero_EqualsZeroFromString, SignTests.AssignFromLong_Zero_IsNotLessThanZeroFromString, SignTests.AssignFromLong_Zero_TextIsZero, SignTests.AssignFromLong_Zero_AddsAndSubtractsAsZero, SignTests.AssignFromLong_Zero_ValueStringZeroGivesTrueZero, SignTests.AssignFromLong_Zero_IsNegativeFalseGivesTrueZero -->
 > [!WARNING] 1.0.2.0
 > Assigning 0 gives a negative zero: [**IsNegative**](#isnegative) returns **True**, [**IsLessThan**](#islessthan) finds the number less than a zero read from the string `"0"`, and [**IsEqualTo**](#isequalto) does not find it equal. Its text is still `0`, and adding it to another number or subtracting it gives the right result. The same negative zero comes from [**AssignSquared**](#assignsquared) with a zero argument, and from [**AssignModulus**](#assignmodulus) when the divisor is negative and the result is zero. To get a true zero, set [**ValueString**](#valuestring) to `"0"`, or set **IsNegative** to **False** after the assignment.
 
@@ -484,66 +546,79 @@ Debug.Print z.IsLessThan(s)   ' True
 ### HandleError
 {: .no_toc }
 
+<!-- test: ErrorTests.HandleError_NewNumberRaisesNothing, ErrorTests.HandleError_AfterAFailureRaisesAgain, ErrorTests.HandleError_StaysAfterAMethodThatStoresNoStatus, ErrorTests.HandleError_ClearedByAMemberThatStoresStatus -->
 Examines the last status code the class stored from the library and raises run-time error 5 if it is a failure. The error description is "invalid operation" or "out of memory".
 
 Syntax: *object*.**HandleError**
 
 The string-conversion properties, **AssignDivision**, **AssignModulus**, the four modular-arithmetic methods (**AssignAdditionModulus**, **AssignSubtractionModulus**, **AssignMultiplicationModulus**, **AssignSquaredModulus**) and **AssignModularMultiplicativeInverse** store the library's status and call **HandleError** themselves. The other methods do not store a status. The stored status stays in place until one of those members runs again, so calling **HandleError** later raises the error again.
+<!-- /test -->
 
 ## Comparison functions
 
 ### IsEqualTo
 {: .no_toc }
 
+<!-- test: ComparisonTests.IsEqualTo_AllPairs, ComparisonTests.IsEqualTo_SameValueFromDifferentBases, ComparisonTests.Comparisons_LargeNumbers -->
 Returns **True** if this instance equals *b*.
 
 Syntax: *object*.**IsEqualTo**( *b* )
 
 *b*
 : *required* A **BigNumber** to compare against.
+<!-- /test -->
 
 ### IsLessThan
 {: .no_toc }
 
+<!-- test: ComparisonTests.IsLessThan_AllPairs -->
 Returns **True** if this instance is less than *b*.
 
 Syntax: *object*.**IsLessThan**( *b* )
 
 *b*
 : *required* A **BigNumber** to compare against.
+<!-- /test -->
 
 ### IsLessThanOrEqualTo
 {: .no_toc }
 
+<!-- test: ComparisonTests.IsLessThanOrEqualTo_AllPairs -->
 Returns **True** if this instance is less than or equal to *b*.
 
 Syntax: *object*.**IsLessThanOrEqualTo**( *b* )
 
 *b*
 : *required* A **BigNumber** to compare against.
+<!-- /test -->
 
 ### IsGreaterThan
 {: .no_toc }
 
+<!-- test: ComparisonTests.IsGreaterThan_AllPairs -->
 Returns **True** if this instance is greater than *b*.
 
 Syntax: *object*.**IsGreaterThan**( *b* )
 
 *b*
 : *required* A **BigNumber** to compare against.
+<!-- /test -->
 
 ### IsGreaterThanOrEqualTo
 {: .no_toc }
 
+<!-- test: ComparisonTests.IsGreaterThanOrEqualTo_AllPairs -->
 Returns **True** if this instance is greater than or equal to *b*.
 
 Syntax: *object*.**IsGreaterThanOrEqualTo**( *b* )
 
 *b*
 : *required* A **BigNumber** to compare against.
+<!-- /test -->
 
 ## Example
 
+<!-- test: ArithmeticTests.Example_Factorial50 -->
 This example computes the factorial of 50 using **BigNumber** arithmetic.
 
 ```tb check_build check_run
@@ -562,6 +637,7 @@ Next i
 
 Debug.Print result.ValueString   ' 30414093201713378043612608166064768844377641568960512000000000000
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/BigNumberLib/index.md b/docs/Reference/Contributed/BigNumberLib/index.md
index 757f3130..e63963e1 100644
--- a/docs/Reference/Contributed/BigNumberLib/index.md
+++ b/docs/Reference/Contributed/BigNumberLib/index.md
@@ -40,12 +40,14 @@ The **BigNumberLib** contributed package provides arbitrary-precision signed int
 
 A number is set and read as a string in decimal, hexadecimal, octal or binary, or is set from a **Long**. The class adds, subtracts, multiplies, divides and squares; takes a remainder, also of a sum, a difference, a product or a square; finds a modular inverse, a greatest common divisor and a least common multiple; shifts; and compares.
 
+<!-- test: SignTests.IsNegative_SetTrueShowsMinusSign, GcdLcmTests.Gcd_NegativeFirstOperandKeepsItsValue, GcdLcmTests.Lcm_NegativeFirstOperandKeepsItsValue, SignTests.AssignFromLong_Zero_EqualsZeroFromString, SignTests.AssignSquared_Zero_IsNotNegative, ModulusTests.AssignModulus_NegativeDivisor_ZeroResultIsNotNegative, GcdLcmTests.Lcm_OfTwoZeros_64Bit, InverseTests.Inverse_ZeroValueOddModulus_RaisesError5, InverseTests.Inverse_NegativeOddModulus_RaisesError5, OverflowTests.Overflow_ShiftLeftBeyondTheLibrary_RaisesErrorOrIsRight, OverflowTests.Overflow_AdditionBeyondTheLibrary_RaisesErrorOrIsRight -->
 > [!WARNING] 1.0.2.0
 > Some members give wrong results, or do not return. Each is described under its member on the [**BigNumber**](BigNumber) page:
 >
 > - Setting [**IsNegative**](BigNumber#isnegative) to **True** does not make a number negative. [**AssignGreatestCommonDivisor**](BigNumber#assigngreatestcommondivisor) and [**AssignLeastCommonMultiple**](BigNumber#assignleastcommonmultiple) leave a negative operand in the same state, with its minus sign gone.
 > - [**AssignFromLong**](BigNumber#assignfromlong) with 0 gives a zero that is flagged negative, which [**IsEqualTo**](BigNumber#isequalto) does not find equal to a zero read from a string. [**AssignSquared**](BigNumber#assignsquared) of zero and [**AssignModulus**](BigNumber#assignmodulus) with a negative divisor can give the same zero.
 > - [**AssignModularMultiplicativeInverse**](BigNumber#assignmodularmultiplicativeinverse) does not return when the modulus is odd and the value is zero or the modulus is negative.
+> - [**AssignLeastCommonMultiple**](BigNumber#assignleastcommonmultiple) of two zeros leaves the number as it was.
 > - Overflow is not trapped: a result of more than the library holds, a little over 4096 bits, loses its high bits, with no error.
 
 ## Classes
@@ -57,3 +59,7 @@ A number is set and read as a string in decimal, hexadecimal, octal or binary, o
 The package also contains **BigNumberTests**, a module with one **Sub**, **RunAllTests**, which runs the **RunTests** Sub of 22 test modules, one for each operation and each string conversion (**Addition**, **Divide**, **Modulus**, **ShiftLeft**, **ValueHex**, **Comparisons** and so on). Together they make 777 checks with **Debug.Assert**, which a built program skips. Run in the IDE, version 1.0.2.0 passes all of them. These modules have no pages of their own here.
 
 **BigNumber** also declares a structure type, **fp_int**, which holds the number for the library, and a program does not use it.
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [BigNumberLib-tests.twinproj](BigNumberLib-tests.twinproj), a twinBASIC project. It uses BigNumberLib as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/FileProps/FileProperties/Count.md b/docs/Reference/Contributed/FileProps/FileProperties/Count.md
index 450e701a..19b06807 100644
--- a/docs/Reference/Contributed/FileProps/FileProperties/Count.md
+++ b/docs/Reference/Contributed/FileProps/FileProperties/Count.md
@@ -14,7 +14,9 @@ Syntax: *object*.**Count**
 *object*
 : *required* An object expression that evaluates to a **FileProperties** object.
 
-**Count** returns a **Long** equal to the total number of shell properties available for the file. Valid index values for [**Item**](Item) range from `0` to `Count - 1`.
+<!-- test: CollectionTests.Count_DiffersByFileType, CollectionTests.Count_IsOneMoreThanTheLastIndex -->
+**Count** returns a **Long** equal to the total number of shell properties available for the file. Different file types have different numbers of properties. Valid index values for [**Item**](Item) range from `0` to `Count - 1`.
+<!-- /test -->
 
 ### Example
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperties/FilePath.md b/docs/Reference/Contributed/FileProps/FileProperties/FilePath.md
index faaf3a36..e1f46a46 100644
--- a/docs/Reference/Contributed/FileProps/FileProperties/FilePath.md
+++ b/docs/Reference/Contributed/FileProps/FileProperties/FilePath.md
@@ -14,7 +14,9 @@ Syntax: *object*.**FilePath**
 *object*
 : *required* An object expression that evaluates to a **FileProperties** object.
 
+<!-- test: CollectionTests.FilePath_IsThePathPassedToOpenFile -->
 The value is the full path of the file that was passed to [**FilePropertyExplorer.OpenFile**](../FilePropertyExplorer/OpenFile) or selected through [**FilePropertyExplorer.BrowseAndOpenFile**](../FilePropertyExplorer/BrowseAndOpenFile) when the **FileProperties** collection was created.
+<!-- /test -->
 
 ### Example
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperties/Item.md b/docs/Reference/Contributed/FileProps/FileProperties/Item.md
index 0f571d0b..a069474a 100644
--- a/docs/Reference/Contributed/FileProps/FileProperties/Item.md
+++ b/docs/Reference/Contributed/FileProps/FileProperties/Item.md
@@ -17,7 +17,21 @@ Syntax: *object*.**Item**(*IndexOrNameOrID*)
 *IndexOrNameOrID*
 : *required* A **Variant** identifying the property to retrieve. Pass an integer index (zero-based, from `0` to `Count - 1`), a **String** matching **FileProperty.Name**, or a **String** matching **FileProperty.ID**.
 
-**Item** forwards the call to the underlying Virtual-COM object. Passing an integer retrieves the property at that position in the collection. Passing a string retrieves the property whose **FileProperty.Name** (the system identity name, such as `"System.Audio.EncodingBitrate"`) or **FileProperty.ID** (the unique identifier of the shell property) equals that string.
+<!-- test: CollectionTests.Item_ByIndex_ReturnsThePropertyAtThatPosition, CollectionTests.Item_ByName_ReturnsThePropertyOfThatName, CollectionTests.Item_ByID_ReturnsThePropertyWithThatID, CollectionTests.Item_NameAndID_IgnoreCase, CollectionTests.Count_IsOneMoreThanTheLastIndex, CollectionTests.Item_UnknownName_RaisesElementNotFound, CollectionTests.Item_NegativeIndex_RaisesFail, CollectionTests.ForEach_VisitsEveryProperty -->
+**Item** forwards the call to the underlying Virtual-COM object. Passing an integer retrieves the property at that position in the collection. Passing a string retrieves the property whose **FileProperty.Name** (the system identity name, such as `"System.Audio.EncodingBitrate"`) or **FileProperty.ID** (the unique identifier of the shell property) equals that string. A name or an ID matches without regard to case. A **String** of digits is a name, not an index.
+
+**Item** raises run-time error -2147211517 (*Requested index is out of bounds*) for an index of **Count** or more, -2147467259 (*Generic failure code*) for a negative index, and -2147211518 (*The requested element was not found in the collection*) for a name that is not the name of a shell property.
+
+A **For Each** loop over a **FileProperties** object visits the properties in the order of their indexes.
+<!-- /test -->
+
+<!-- test: CollectionTests.Item_ByID_ComputedProperty_ReturnsThePropertyWithThatID -->
+> [!NOTE] 1.7.1.0
+> **Item** raises run-time error 13 (*Generic failure code*) when it is given the ID of some properties, among them `System.ItemTypeText`, `System.ItemFolderNameDisplay`, `System.ItemPathDisplay` and `System.Kind`. Look such a property up by its name or its index.
+
+<!-- test: CollectionTests.Item_ByID_UnknownID_RaisesElementNotFound, CollectionTests.Item_ByID_UnknownID_ReturnsAPropertyWithNoValue -->
+> [!NOTE] 1.7.1.0
+> An ID that no property of the file has raises no error. **Item** returns a property that has that ID, an empty **Name** and an empty **Value**.
 
 ### Example
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperties/VCOMObject.md b/docs/Reference/Contributed/FileProps/FileProperties/VCOMObject.md
index a57b0b3a..a550ba5b 100644
--- a/docs/Reference/Contributed/FileProps/FileProperties/VCOMObject.md
+++ b/docs/Reference/Contributed/FileProps/FileProperties/VCOMObject.md
@@ -9,6 +9,7 @@ permalink: /tB/Packages/Contributed/FileProps/FileProperties/VCOMObject
 
 Holds the native-code COM object created internally by the Virtual-COM library. For internal use only.
 
+<!-- test: none -- a rule of use for an internal member, with nothing a program can observe -->
 > [!WARNING] timeless
 >
 > **VCOMObject** is an internal implementation detail of the FileProps Virtual-COM loader, and the package marks it as for internal use only. Do not use it in application code.
diff --git a/docs/Reference/Contributed/FileProps/FileProperties/index.md b/docs/Reference/Contributed/FileProps/FileProperties/index.md
index a0229a8a..983acf93 100644
--- a/docs/Reference/Contributed/FileProps/FileProperties/index.md
+++ b/docs/Reference/Contributed/FileProps/FileProperties/index.md
@@ -38,7 +38,9 @@ Returns the number of shell properties in the collection. **Long**. Read-only.
 
 Syntax: *object*.**Count**
 
+<!-- test: CollectionTests.Count_DiffersByFileType, CollectionTests.Count_IsOneMoreThanTheLastIndex -->
 The count is the number of properties the shell exposes for the opened file. Different file types expose different property sets.
+<!-- /test -->
 
 ### FilePath
 {: .no_toc }
@@ -47,7 +49,9 @@ Returns the full file path of the file that was opened. **String**. Read-only.
 
 Syntax: *object*.**FilePath**
 
+<!-- test: CollectionTests.FilePath_IsThePathPassedToOpenFile -->
 The value is the full path of the file passed to [**FilePropertyExplorer.OpenFile**](../FilePropertyExplorer/OpenFile). When a collection is obtained through [**FilePropertyExplorer.BrowseAndOpenFile**](../FilePropertyExplorer/BrowseAndOpenFile), it is the path of the file the user selected in the dialog.
+<!-- /test -->
 
 ### Item
 {: .no_toc }
@@ -74,11 +78,24 @@ Set Prop = Props.Item(0)
 Set Prop = Props.Item("System.Media.Duration")
 ```
 
+<!-- test: CollectionTests.Item_ByIndex_ReturnsThePropertyAtThatPosition, CollectionTests.Item_ByName_ReturnsThePropertyOfThatName, CollectionTests.Item_ByID_ReturnsThePropertyWithThatID, CollectionTests.Item_NameAndID_IgnoreCase, CollectionTests.Count_IsOneMoreThanTheLastIndex, CollectionTests.Item_UnknownName_RaisesElementNotFound, CollectionTests.Item_NegativeIndex_RaisesFail, CollectionTests.ForEach_VisitsEveryProperty -->
+A name or an ID matches without regard to case. A **String** of digits is a name, not an index. **Item** raises run-time error -2147211517 (*Requested index is out of bounds*) for an index of **Count** or more, -2147467259 (*Generic failure code*) for a negative index, and -2147211518 (*The requested element was not found in the collection*) for a name that is not the name of a shell property. A **For Each** loop over a **FileProperties** object visits the properties in the order of their indexes.
+<!-- /test -->
+
+<!-- test: CollectionTests.Item_ByID_ComputedProperty_ReturnsThePropertyWithThatID -->
+> [!NOTE] 1.7.1.0
+> **Item** raises run-time error 13 (*Generic failure code*) when it is given the ID of some properties, among them `System.ItemTypeText`, `System.ItemFolderNameDisplay`, `System.ItemPathDisplay` and `System.Kind`. Look such a property up by its name or its index.
+
+<!-- test: CollectionTests.Item_ByID_UnknownID_RaisesElementNotFound, CollectionTests.Item_ByID_UnknownID_ReturnsAPropertyWithNoValue -->
+> [!NOTE] 1.7.1.0
+> An ID that no property of the file has raises no error. **Item** returns a property that has that ID, an empty **Name** and an empty **Value**.
+
 ### VCOMObject
 {: .no_toc }
 
 Holds the native-code COM object created internally by the Virtual-COM library. **Object**. For internal use only.
 
+<!-- test: none -- a rule of use for an internal member, with nothing a program can observe -->
 > [!WARNING] timeless
 > Do not read, assign, or pass **VCOMObject** to any function. The package marks it as for internal use only, and **Count**, **FilePath** and **Item** forward their calls to it.
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperty/ID.md b/docs/Reference/Contributed/FileProps/FileProperty/ID.md
index 6c0de500..4fccd4a8 100644
--- a/docs/Reference/Contributed/FileProps/FileProperty/ID.md
+++ b/docs/Reference/Contributed/FileProps/FileProperty/ID.md
@@ -14,9 +14,13 @@ Syntax: *object*.**ID**
 *object*
 : *required* An object expression that evaluates to a **FileProperty** object.
 
-The **ID** property returns a **String** that is a unique identity for the property and can always be used to refer to it. It consists of a GUID identifying the property schema, followed by an integer identifying the property's index within that schema.
+<!-- test: PropertyTests.ID_IsAGuidAndAnIndex -->
+The **ID** property returns a **String** that is a unique identity for the property. It consists of a GUID identifying the property schema, a slash, and an integer identifying the property's index within that schema, as in `{B725F130-47EF-101A-A5F1-02608C9EEBAC}/12`. No two properties of a file have the same ID.
+<!-- /test -->
 
-Unlike [**Name**](Name), which is a dotted system name such as `System.ItemFolderNameDisplay`, the **ID** string is made of the schema GUID and the index.
+Unlike [**Name**](Name), which is a dotted system name such as `System.ItemFolderNameDisplay`, the **ID** string is made of the schema GUID and the index. A property that has no system name still has an ID.
+
+Pass the ID to [**FileProperties.Item**](../FileProperties/Item) to get the property back. That call raises an error for some properties; see the note on **Item**.
 
 ### Example
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperty/Name.md b/docs/Reference/Contributed/FileProps/FileProperty/Name.md
index 62dbb6ad..ec644a4f 100644
--- a/docs/Reference/Contributed/FileProps/FileProperty/Name.md
+++ b/docs/Reference/Contributed/FileProps/FileProperty/Name.md
@@ -14,7 +14,13 @@ Syntax: *object*.**Name**
 *object*
 : *required* An object expression that evaluates to a **FileProperty** object.
 
+<!-- test: PropertyTests.Name_IsTheSystemName -->
 Returns a **String** containing the system identity name of the property, such as `"System.ItemFolderNameDisplay"`. This name is safe to use as an identity field even on non-English systems.
+<!-- /test -->
+
+<!-- test: PropertyTests.Name_PropertyWithoutSystemName_IsEmpty -->
+A property that has no system name returns an empty string. Use [**ID**](ID) to identify such a property.
+<!-- /test -->
 
 ### Remarks
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperty/NameDesc.md b/docs/Reference/Contributed/FileProps/FileProperty/NameDesc.md
index e8ff1087..ecc22e30 100644
--- a/docs/Reference/Contributed/FileProps/FileProperty/NameDesc.md
+++ b/docs/Reference/Contributed/FileProps/FileProperty/NameDesc.md
@@ -16,7 +16,11 @@ Syntax: *object*.**NameDesc**
 
 Returns a **String** containing a localized version of the property's name. This name is suitable for display to the user.
 
-The localized name is not always available. Use [**Name**](Name) instead when a locale-independent identifier is needed --- for example, when storing or comparing property names across systems.
+<!-- test: PropertyTests.NameDesc_IsAStringAndNotAlwaysAvailable -->
+The localized name is not always available: for some properties **NameDesc** is an empty string.
+<!-- /test -->
+
+Use [**Name**](Name) instead when a locale-independent identifier is needed --- for example, when storing or comparing property names across systems.
 
 ### See Also
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperty/VCOMObject.md b/docs/Reference/Contributed/FileProps/FileProperty/VCOMObject.md
index 93323f72..813cc233 100644
--- a/docs/Reference/Contributed/FileProps/FileProperty/VCOMObject.md
+++ b/docs/Reference/Contributed/FileProps/FileProperty/VCOMObject.md
@@ -9,6 +9,7 @@ permalink: /tB/Packages/Contributed/FileProps/FileProperty/VCOMObject
 
 Holds the native-code COM object created internally by the Virtual-COM library. For internal use only.
 
+<!-- test: none -- a rule of use for an internal member, with nothing a program can observe -->
 > [!WARNING] timeless
 >
 > **VCOMObject** is an internal implementation detail of the FileProps Virtual-COM loader, and the package marks it as for internal use only. Do not use it in application code.
diff --git a/docs/Reference/Contributed/FileProps/FileProperty/Value.md b/docs/Reference/Contributed/FileProps/FileProperty/Value.md
index 55dbf828..9656b69d 100644
--- a/docs/Reference/Contributed/FileProps/FileProperty/Value.md
+++ b/docs/Reference/Contributed/FileProps/FileProperty/Value.md
@@ -18,7 +18,9 @@ Syntax: *object*.**Value**
 *object*
 : *required* An object expression that evaluates to a **FileProperty** object.
 
-The type of the returned value depends on the property. A multi-value property can return an array.
+<!-- test: PropertyTests.Value_TypeDependsOnTheProperty, PropertyTests.Value_PropertyWithNoValue_IsEmpty, PropertyTests.Value_MultiValueProperty_IsAnArray -->
+The type of the returned value depends on the property. A property that has no value for the file returns **Empty**. A multi-value property can return an array.
+<!-- /test -->
 
 To obtain a localized string representation of the same data, use [**ValueDesc**](ValueDesc) instead.
 
@@ -33,11 +35,18 @@ Syntax: *object*.**Value** **=** *value*
 
 > [!IMPORTANT] timeless
 >
-> Write support requires Windows Vista or newer. Assigning a property that is not writable raises a *Permission denied* error.
+> Write support requires Windows Vista or newer.
+
+<!-- test: WriteTests.Value_Let_WithoutWriteSupport_Raises, WriteTests.Value_Let_NotWritableProperty_Raises, WriteTests.Value_Let_NotWritableProperty_RaisesPermissionDenied, WriteTests.Value_Let_NotWritableProperty_RaisesTheSameErrorEverywhere -->
+> [!NOTE] 1.7.1.0
+>
+> Assigning a property that is not writable raises run-time error -2147352567 (*Exception occurred*), not *Permission denied* (error 70). An assignment to a property of a collection opened without write support raises the same error.
 
 ### Remarks
 
-Not all shell properties are writable. To assign **Value**, open the file with write support enabled by passing **True** as the *WriteSupport* argument of [**FilePropertyExplorer.OpenFile**](../FilePropertyExplorer/OpenFile) or [**FilePropertyExplorer.BrowseAndOpenFile**](../FilePropertyExplorer/BrowseAndOpenFile).
+<!-- test: WriteTests.Value_Let_Title_IsStored, WriteTests.Value_Let_Rating_IsStored, WriteTests.Value_Let_Array_IsStoredAsMultiValue, WriteTests.Value_Let_WithoutWriteSupport_Raises -->
+Not all shell properties are writable. To assign **Value**, open the file with write support enabled by passing **True** as the *WriteSupport* argument of [**FilePropertyExplorer.OpenFile**](../FilePropertyExplorer/OpenFile) or [**FilePropertyExplorer.BrowseAndOpenFile**](../FilePropertyExplorer/BrowseAndOpenFile). The value is stored in the file, and a collection opened again reads it. An array assigned to a multi-value property is stored as its values.
+<!-- /test -->
 
 ### Example
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperty/ValueDesc.md b/docs/Reference/Contributed/FileProps/FileProperty/ValueDesc.md
index 9b0dd9f3..194f2c1f 100644
--- a/docs/Reference/Contributed/FileProps/FileProperty/ValueDesc.md
+++ b/docs/Reference/Contributed/FileProps/FileProperty/ValueDesc.md
@@ -14,7 +14,9 @@ Syntax: *object*.**ValueDesc**
 *object*
 : *required* An object expression that evaluates to a **FileProperty** object.
 
-**ValueDesc** returns a **String** containing the property value in localized form, suitable for display. For multi-value properties, all values are combined into a single string; no array handling is required.
+<!-- test: PropertyTests.ValueDesc_IsAString, PropertyTests.ValueDesc_MultiValueProperty_IsOneString, PropertyTests.Value_PropertyWithNoValue_IsEmpty -->
+**ValueDesc** returns a **String** containing the property value in localized form, suitable for display. For multi-value properties, all values are combined into a single string; no array handling is required. A property that has no value returns an empty string.
+<!-- /test -->
 
 To retrieve the value as a **Variant** (which can be an array for multi-value properties), use the [**Value**](Value) property instead.
 
diff --git a/docs/Reference/Contributed/FileProps/FileProperty/index.md b/docs/Reference/Contributed/FileProps/FileProperty/index.md
index f7c2c164..0bdb0e1e 100644
--- a/docs/Reference/Contributed/FileProps/FileProperty/index.md
+++ b/docs/Reference/Contributed/FileProps/FileProperty/index.md
@@ -35,7 +35,11 @@ A unique identifier string for the shell property.
 
 Syntax: *object*.**ID** **As String** (read-only)
 
-The identifier consists of a GUID identifying the property schema, followed by an integer identifying the property index within that schema. It can always be used to refer to a specific property unambiguously.
+<!-- test: PropertyTests.ID_IsAGuidAndAnIndex -->
+The identifier consists of a GUID identifying the property schema, a slash, and an integer identifying the property index within that schema. It identifies one property unambiguously: no two properties of a file have the same ID.
+<!-- /test -->
+
+Pass the ID to [**FileProperties.Item**](../FileProperties/Item) to get the property back. That call raises an error for some properties; see the note on **Item**.
 
 ### Name
 {: .no_toc }
@@ -44,7 +48,13 @@ The system identity name of the property.
 
 Syntax: *object*.**Name** **As String** (read-only)
 
+<!-- test: PropertyTests.Name_IsTheSystemName -->
 Returns a system name such as `"System.ItemFolderNameDisplay"`. This name is safe to use as an identity field even on non-English systems. For the localized name, use [**NameDesc**](#namedesc).
+<!-- /test -->
+
+<!-- test: PropertyTests.Name_PropertyWithoutSystemName_IsEmpty -->
+A property that has no system name returns an empty string. Use [**ID**](#id) to identify such a property.
+<!-- /test -->
 
 ### NameDesc
 {: .no_toc }
@@ -53,7 +63,9 @@ The localized name of the property.
 
 Syntax: *object*.**NameDesc** **As String** (read-only)
 
-Returns a localized version of the name. It is not always available. Use [**Name**](#name) for a locale-independent identifier.
+<!-- test: PropertyTests.NameDesc_IsAStringAndNotAlwaysAvailable -->
+Returns a localized version of the name. It is not always available: for some properties it is an empty string. Use [**Name**](#name) for a locale-independent identifier.
+<!-- /test -->
 
 ### Value
 {: .no_toc }
@@ -62,10 +74,19 @@ The current value of the shell property as a **Variant**.
 
 Syntax: *object*.**Value** [ **=** *value* ]
 
-Reading this property returns the value of the property as exposed by the operating system. The type of the returned **Variant** depends on the property. A multi-value property can return an array.
+<!-- test: PropertyTests.Value_TypeDependsOnTheProperty, PropertyTests.Value_PropertyWithNoValue_IsEmpty -->
+Reading this property returns the value of the property as exposed by the operating system. The type of the returned **Variant** depends on the property. A property that has no value for the file returns **Empty**. A multi-value property can return an array.
+<!-- /test -->
+
+<!-- test: WriteTests.Value_Let_Title_IsStored, WriteTests.Value_Let_Rating_IsStored, WriteTests.Value_Let_Array_IsStoredAsMultiValue -->
+Assigning a value writes the property into the file. The file must have been opened with write support, which requires Windows Vista or newer.
+<!-- /test -->
 
-Assigning a value writes the property. Write support requires Windows Vista or newer. Assigning a property that is not writable raises a *Permission denied* error.
+<!-- test: WriteTests.Value_Let_WithoutWriteSupport_Raises, WriteTests.Value_Let_NotWritableProperty_Raises, WriteTests.Value_Let_NotWritableProperty_RaisesPermissionDenied, WriteTests.Value_Let_NotWritableProperty_RaisesTheSameErrorEverywhere -->
+> [!NOTE] 1.7.1.0
+> Assigning a property that is not writable raises run-time error -2147352567 (*Exception occurred*), not *Permission denied* (error 70). An assignment to a property of a collection opened without write support raises the same error.
 
+<!-- test: PropertyTests.Value_MultiValueProperty_IsAnArray -->
 > [!NOTE] timeless
 > Multi-value properties can return a **Variant** array. Check `IsArray(Prop.Value)` before using the result as a scalar.
 
@@ -78,7 +99,9 @@ The current value of the property as a localized string.
 
 Syntax: *object*.**ValueDesc** **As String** (read-only)
 
-Returns the property value in localized form, combined into a single string. Multi-value properties that can return an array from [**Value**](#value) are already combined into one string here.
+<!-- test: PropertyTests.ValueDesc_IsAString, PropertyTests.ValueDesc_MultiValueProperty_IsOneString, PropertyTests.Value_PropertyWithNoValue_IsEmpty -->
+Returns the property value in localized form, combined into a single string. Multi-value properties that can return an array from [**Value**](#value) are already combined into one string here. A property that has no value returns an empty string.
+<!-- /test -->
 
 Use this property when displaying values to an end user. Use [**Value**](#value) when the typed value is needed for computation or comparison.
 
@@ -89,6 +112,7 @@ Holds the native-code COM object created internally by the Virtual-COM library.
 
 Syntax: *object*.**VCOMObject** **As Object**
 
+<!-- test: none -- a rule of use for an internal member, with nothing a program can observe -->
 > [!WARNING] timeless
 > This member is for internal use only. Do not read or assign **VCOMObject** from application code. All public members of **FileProperty** forward their calls to it.
 
diff --git a/docs/Reference/Contributed/FileProps/FilePropertyExplorer/BrowseAndOpenFile.md b/docs/Reference/Contributed/FileProps/FilePropertyExplorer/BrowseAndOpenFile.md
index 4d850630..00d96238 100644
--- a/docs/Reference/Contributed/FileProps/FilePropertyExplorer/BrowseAndOpenFile.md
+++ b/docs/Reference/Contributed/FileProps/FilePropertyExplorer/BrowseAndOpenFile.md
@@ -17,7 +17,7 @@ Syntax: *object*.**BrowseAndOpenFile** [ (*WriteSupport*) ]
 *WriteSupport*
 : *optional* A **Boolean** that controls whether the returned **FileProperties** collection is opened with write support for property values. **False** (default) opens it without write support. Pass **True** to allow setting [**FileProperty.Value**](../FileProperty/Value). Write support requires Windows Vista or newer.
 
-**BrowseAndOpenFile** opens a file dialog for the user to select a file, and returns a [**FileProperties**](../FileProperties/) collection for the selected file, as [**OpenFile**](OpenFile) does for a path. The returned collection contains the [**FileProperty**](../FileProperty/) entries for the properties the operating system exposes for the selected file.
+**BrowseAndOpenFile** opens a file dialog for the user to select a file, and returns a [**FileProperties**](../FileProperties/) collection for the selected file, as [**OpenFile**](OpenFile) does for a path. The returned collection contains the [**FileProperty**](../FileProperty/) entries for the properties the operating system exposes for the selected file. The notes and the warning on [**OpenFile**](OpenFile) about write support and about opening a file again apply to the collection this function returns.
 
 ### Example
 
diff --git a/docs/Reference/Contributed/FileProps/FilePropertyExplorer/OpenFile.md b/docs/Reference/Contributed/FileProps/FilePropertyExplorer/OpenFile.md
index 13024a18..549106ef 100644
--- a/docs/Reference/Contributed/FileProps/FilePropertyExplorer/OpenFile.md
+++ b/docs/Reference/Contributed/FileProps/FilePropertyExplorer/OpenFile.md
@@ -20,10 +20,26 @@ Syntax: *object*.**OpenFile**(*FilePath* [ **,** *WriteSupport* ])
 *WriteSupport*
 : *optional* A **Boolean** that controls whether the returned **FileProperties** collection is opened with write support for property values. **False** (default) opens it without write support. Pass **True** to allow setting [**FileProperty.Value**](../FileProperty/Value).
 
+<!-- test: ExplorerTests.OpenFile_FullPath_ReturnsCollection, ExplorerTests.OpenFile_NewInstance_ReturnsCollection, ExplorerTests.OpenFile_MissingFile_RaisesFileNotFound, CollectionTests.FilePath_IsThePathPassedToOpenFile -->
 **OpenFile** returns a [**FileProperties**](../FileProperties/) collection for the specified file. The collection contains the [**FileProperty**](../FileProperty/) entries for the properties the operating system exposes for that file. Common examples include the duration of an audio file such as an MP3 and the EXIF properties of a JPEG image.
 
+**OpenFile** raises run-time error -2147212790 (*File not found or is not accessible*) when the file does not exist. It never returns **Nothing**.
+<!-- /test -->
+
 Write support requires Windows Vista or newer.
 
+<!-- test: ExplorerTests.OpenFile_RelativePath_RaisesFileNotFound, ExplorerTests.OpenFile_DotDotSegment_RaisesFileNotFound, ExplorerTests.OpenFile_ForwardSlashes_RaisesFileNotFound -->
+> [!NOTE] 1.7.1.0
+> *FilePath* must be a full path that uses backslashes, such as `C:\Folder\File.ext`. A path that is relative, has a `..` segment or uses forward slashes raises the same error as a missing file, although the file exists.
+
+<!-- test: ExplorerTests.OpenFile_WriteSupport_JpegListsTheHandlersProperties, ExplorerTests.OpenFile_WriteSupport_TextFileListsTheSameProperties -->
+> [!NOTE] 1.7.1.0
+> For a file type that has a property handler of its own, such as JPEG, a collection opened with *WriteSupport* set to **True** holds only the properties of that handler. It has a lower **Count** than a collection of the same file opened without write support, and a property of the file system, such as `System.Size`, is in it with an empty **Value**. Read those properties from a collection opened without write support. A file type without a handler, such as a text file, lists the same properties either way.
+
+<!-- test: ExplorerTests.OpenFile_TwoReadOnlyCollections_BothHoldTheProperties, ExplorerTests.OpenFile_WhileWriteSupportCollectionIsOpen_ListsTheProperties, ExplorerTests.OpenFile_WriteSupportWhileWriteSupportCollectionIsOpen_ListsTheProperties, ExplorerTests.OpenFile_WriteSupportWhileACollectionIsOpen_Returns -->
+> [!WARNING] 1.7.1.0
+> A file that has a property handler, such as a JPEG file, can be open in one collection at a time when write support is involved. Calling **OpenFile** with *WriteSupport* set to **True** while a collection of the same file opened without write support exists never returns. Calling **OpenFile**, with or without write support, while a collection of the file opened with write support exists returns a collection whose **Count** is 0, with no error. Set the first collection to **Nothing** before opening the file again. Any number of collections opened without write support can exist together.
+
 ### Example
 
 This example opens an MP3 file and prints all its shell properties to the Debug console.
diff --git a/docs/Reference/Contributed/FileProps/FilePropertyExplorer/index.md b/docs/Reference/Contributed/FileProps/FilePropertyExplorer/index.md
index b83e9963..0899b1bf 100644
--- a/docs/Reference/Contributed/FileProps/FilePropertyExplorer/index.md
+++ b/docs/Reference/Contributed/FileProps/FilePropertyExplorer/index.md
@@ -12,12 +12,14 @@ A predeclared factory class that opens a file and returns a [**FileProperties**]
 
 **FilePropertyExplorer** is a Virtual-COM wrapper that gives access to the detailed file properties the operating system exposes, commonly called shell property handlers. Common examples include the duration of an audio file such as an MP3 and the EXIF properties of a JPEG image.
 
+<!-- test: ExplorerTests.OpenFile_FullPath_ReturnsCollection, ExplorerTests.OpenFile_NewInstance_ReturnsCollection -->
 The class has the `[ PredeclaredId ]` attribute, so it acts as a default instance and its methods are callable without creating an explicit object variable:
 
 ```tb check_build
 Dim Props As FileProperties
 Set Props = FilePropertyExplorer.OpenFile("C:\Music\track.mp3")
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
@@ -84,9 +86,26 @@ End If
 
 The shell property handler infrastructure requires Windows 2000 or later. If the memory for the native code cannot be allocated when the class is created, the class raises error 7 (*Out of memory*).
 
+<!-- test: WriteTests.Value_Let_Title_IsStored, WriteTests.Value_Let_Rating_IsStored, WriteTests.Value_Let_Array_IsStoredAsMultiValue -->
 > [!NOTE] timeless
 > Write support for [**FileProperty.Value**](../FileProperty/Value) requires Windows Vista or newer.
 
+<!-- test: ExplorerTests.OpenFile_FullPath_ReturnsCollection, ExplorerTests.OpenFile_MissingFile_RaisesFileNotFound -->
+**OpenFile** raises run-time error -2147212790 (*File not found or is not accessible*) when the file does not exist. It never returns **Nothing**.
+<!-- /test -->
+
+<!-- test: ExplorerTests.OpenFile_RelativePath_RaisesFileNotFound, ExplorerTests.OpenFile_DotDotSegment_RaisesFileNotFound, ExplorerTests.OpenFile_ForwardSlashes_RaisesFileNotFound -->
+> [!NOTE] 1.7.1.0
+> *FilePath* of **OpenFile** must be a full path that uses backslashes, such as `C:\Folder\File.ext`. A path that is relative, has a `..` segment or uses forward slashes raises the same error as a missing file, although the file exists.
+
+<!-- test: ExplorerTests.OpenFile_WriteSupport_JpegListsTheHandlersProperties, ExplorerTests.OpenFile_WriteSupport_TextFileListsTheSameProperties -->
+> [!NOTE] 1.7.1.0
+> For a file type that has a property handler of its own, such as JPEG, a collection opened with *WriteSupport* set to **True** holds only the properties of that handler. It has a lower **Count** than a collection of the same file opened without write support, and a property of the file system, such as `System.Size`, is in it with an empty **Value**. Read those properties from a collection opened without write support. A file type without a handler, such as a text file, lists the same properties either way.
+
+<!-- test: ExplorerTests.OpenFile_TwoReadOnlyCollections_BothHoldTheProperties, ExplorerTests.OpenFile_WhileWriteSupportCollectionIsOpen_ListsTheProperties, ExplorerTests.OpenFile_WriteSupportWhileWriteSupportCollectionIsOpen_ListsTheProperties, ExplorerTests.OpenFile_WriteSupportWhileACollectionIsOpen_Returns -->
+> [!WARNING] 1.7.1.0
+> A file that has a property handler, such as a JPEG file, can be open in one collection at a time when write support is involved. Calling **OpenFile** with *WriteSupport* set to **True** while a collection of the same file opened without write support exists never returns. Calling **OpenFile**, with or without write support, while a collection of the file opened with write support exists returns a collection whose **Count** is 0, with no error. Set the first collection to **Nothing** before opening the file again. Any number of collections opened without write support can exist together.
+
 ## Example
 
 This example opens a file-open dialog, then prints all shell properties for the selected file to the Debug console.
diff --git a/docs/Reference/Contributed/FileProps/index.md b/docs/Reference/Contributed/FileProps/index.md
index e77eda30..228e6e13 100644
--- a/docs/Reference/Contributed/FileProps/index.md
+++ b/docs/Reference/Contributed/FileProps/index.md
@@ -32,3 +32,7 @@ The **FileProps** contributed package provides access to Windows shell file prop
 - [FilePropertyExplorer](FilePropertyExplorer/) -- a predeclared factory class that opens a file and returns a FileProperties collection of its Windows shell properties
   - [BrowseAndOpenFile](FilePropertyExplorer/BrowseAndOpenFile) -- displays a file-open dialog and returns a FileProperties collection for the selected file
   - [OpenFile](FilePropertyExplorer/OpenFile) -- opens a file by path and returns a FileProperties collection of its shell properties
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [FileProps-tests.twinproj](FileProps-tests.twinproj), a twinBASIC project. It uses FileProps as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/Fmt/AsciiEscapeBase.md b/docs/Reference/Contributed/Fmt/AsciiEscapeBase.md
index 6463e6e5..0142490e 100644
--- a/docs/Reference/Contributed/Fmt/AsciiEscapeBase.md
+++ b/docs/Reference/Contributed/Fmt/AsciiEscapeBase.md
@@ -8,6 +8,8 @@ has_toc: false
 # AsciiEscapeBase enumeration
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.AsciiEscapeBase_Values -->
+
 Selects the number base of the digits in an ASCII escape sequence.
 
 **AsciiEscapeBase** is used by the *base* parameter of [**EscapeSequence.Create**](EscapeSequence/Create) and by the [**AsciiBase**](EscapeSequence/AsciiBase) property. It matters only for an escape sequence created with *isAsciiReplacement* set to **True**. The enumeration is declared in the [**EscapeSequence**](EscapeSequence/) class module, and its members are used without a qualifier or with the name `AsciiEscapeBase`.
@@ -25,6 +27,8 @@ Debug.Print Hexadecimal                  ' 1
 
 [**StringHelper**](StringHelper) registers `\xHH` as a **Hexadecimal** escape and `\ooo` as an **Octal** one.
 
+<!-- /test -->
+
 ## See Also
 
 - [EscapeSequence](EscapeSequence/) class -- one escape sequence
diff --git a/docs/Reference/Contributed/Fmt/CurrencySFI.md b/docs/Reference/Contributed/Fmt/CurrencySFI.md
index f09aa859..5642b345 100644
--- a/docs/Reference/Contributed/Fmt/CurrencySFI.md
+++ b/docs/Reference/Contributed/Fmt/CurrencySFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # CurrencySFI class
 {: .no_toc }
 
+<!-- test: CurrencyTests.Default_TwoDecimalPlacesAndATrailingDollar, CurrencyTests.Precision_SetsTheDecimalPlaces, CurrencyTests.PrecisionZero_IsTheDefault, CurrencyTests.ThousandsSeparators_FollowTheRegionalSettings, CurrencyTests.DollarSign_IsAfterTheNumber, CurrencyTests.Negative_KeepsTheSignInFront, CurrencyTests.Class_MatchesCAndOnlyC, CurrencyTests.Class_GetFormattedValue_ReadsThePrecision -->
+
 Formats a number as an amount of money for the **C** identifier.
 
 **CurrencySFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and matches the identifier **C** or **c** in any case. [**StringHelper**](StringHelper) registers it, so `{0:C}` in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it for a numeric value. The class is predeclared, and its two members are reached through the interface.
@@ -34,6 +36,8 @@ The output shown is for an English (United States) system.
 
 Both are implemented as private members of the interface.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/DateTimeSFI.md b/docs/Reference/Contributed/Fmt/DateTimeSFI.md
index 1554f779..7ae2ac44 100644
--- a/docs/Reference/Contributed/Fmt/DateTimeSFI.md
+++ b/docs/Reference/Contributed/Fmt/DateTimeSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # DateTimeSFI class
 {: .no_toc }
 
+<!-- test: DateTests.DateTimeSFI_GivesTheSameResultsAsGeneric -->
+
 Formats a **Date** for the same identifiers as **GenericDateTimeSFI**, but is not registered with **StringHelper**.
 
 **DateTimeSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and contains the same code as [**GenericDateTimeSFI**](GenericDateTimeSFI): the identifiers **d**, **D**, **f**, **F**, **g**, **G**, **s**, **t**, **T** and **C** give the same results, and any other identifier does not match. The table of identifiers is on the [**GenericDateTimeSFI**](GenericDateTimeSFI#identifiers) page.
@@ -37,6 +39,8 @@ Debug.Print f.GetFormattedValue(#2026-10-11 14:05:09#, spec)  ' 2026-10-11
 
 Both are implemented as private members of the interface.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/DecimalSFI.md b/docs/Reference/Contributed/Fmt/DecimalSFI.md
index 5e6b694a..5cec28c4 100644
--- a/docs/Reference/Contributed/Fmt/DecimalSFI.md
+++ b/docs/Reference/Contributed/Fmt/DecimalSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # DecimalSFI class
 {: .no_toc }
 
+<!-- test: DecimalTests.Default_IsTheWholeNumber, DecimalTests.Precision_PadsWithZeros, DecimalTests.FractionalValue_IsRounded, DecimalTests.Negative_KeepsTheSignInFrontOfThePadding, DecimalTests.LongerNumber_IsNotShortened, DecimalTests.Class_MatchesDAndOnlyD, DecimalTests.Class_GetFormattedValue_ReadsThePrecision -->
+
 Formats a number as whole-number digits for the **D** identifier.
 
 **DecimalSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and matches the identifier **D** or **d** in any case. [**StringHelper**](StringHelper) registers it, so `{0:D}` in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it for a numeric value. The class is predeclared, and its two members are reached through the interface.
@@ -32,6 +34,8 @@ Debug.Print StringFormat("{0:D2}:{1:D2}", 7, 5)  ' 07:05
 
 Both are implemented as private members of the interface. [**GeneralNumericSFI**](GeneralNumericSFI) calls this class for **Integer** and **Long** values.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/EscapeSequence/AsciiBase.md b/docs/Reference/Contributed/Fmt/EscapeSequence/AsciiBase.md
index 0cc87430..f05857ba 100644
--- a/docs/Reference/Contributed/Fmt/EscapeSequence/AsciiBase.md
+++ b/docs/Reference/Contributed/Fmt/EscapeSequence/AsciiBase.md
@@ -8,6 +8,8 @@ has_toc: false
 # AsciiBase
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Create_Plain_HoldsTheArguments, EscapeSequenceTests.Create_Ascii_HoldsTheArguments, EscapeSequenceTests.Friend_Setters_CanBeCalledByAProject -->
+
 Returns or sets the number base of the digits that an ASCII escape sequence captures.
 
 ## Get
@@ -34,6 +36,8 @@ Syntax: *object*.**AsciiBase** **=** *value*
 
 [**Create**](Create) sets the property from its *base* argument. [**Execute**](Execute) reads the captured digits with the prefix `&O` for **Octal** and `&H` for **Hexadecimal**.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/EscapeSequence/Create.md b/docs/Reference/Contributed/Fmt/EscapeSequence/Create.md
index 8c86fa7c..97e1e228 100644
--- a/docs/Reference/Contributed/Fmt/EscapeSequence/Create.md
+++ b/docs/Reference/Contributed/Fmt/EscapeSequence/Create.md
@@ -8,6 +8,8 @@ has_toc: false
 # Create
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Create_Plain_HoldsTheArguments, EscapeSequenceTests.Create_Ascii_HoldsTheArguments, EscapeSequenceTests.Create_ReturnsANewObjectEachTime, EscapeSequenceTests.Execute_Ascii_Hexadecimal -->
+
 Creates an escape sequence, plain or ASCII.
 
 Syntax: *object*.**Create** ( *escape*, *replacement* [, *isAsciiReplacement* [, *base* ]] ) **As EscapeSequence**
@@ -33,6 +35,8 @@ Returns a new **EscapeSequence** whose [**EscapeString**](EscapeString), [**Repl
 
 **Create** is the intended way to make an escape sequence. It fills in a new instance through the **Friend** setters of the properties and returns it through [**Self**](Self).
 
+<!-- /test -->
+
 ## Example
 
 This example creates a plain sequence and an ASCII sequence.
diff --git a/docs/Reference/Contributed/Fmt/EscapeSequence/EscapeString.md b/docs/Reference/Contributed/Fmt/EscapeSequence/EscapeString.md
index f0f29013..00340a2f 100644
--- a/docs/Reference/Contributed/Fmt/EscapeSequence/EscapeString.md
+++ b/docs/Reference/Contributed/Fmt/EscapeSequence/EscapeString.md
@@ -8,6 +8,8 @@ has_toc: false
 # EscapeString
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Create_Plain_HoldsTheArguments, EscapeSequenceTests.Friend_Setters_CanBeCalledByAProject -->
+
 Returns or sets the text, or the regular expression, that the escape sequence looks for.
 
 ## Get
@@ -34,6 +36,8 @@ Syntax: *object*.**EscapeString** **=** *value*
 
 [**Create**](Create) sets the property from its *escape* argument.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/EscapeSequence/Execute.md b/docs/Reference/Contributed/Fmt/EscapeSequence/Execute.md
index 1d1388e1..580d2e5d 100644
--- a/docs/Reference/Contributed/Fmt/EscapeSequence/Execute.md
+++ b/docs/Reference/Contributed/Fmt/EscapeSequence/Execute.md
@@ -8,6 +8,8 @@ has_toc: false
 # Execute
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Execute_Plain_ReplacesEveryOccurrence, EscapeSequenceTests.Execute_Plain_TakesLetterCaseIntoAccount, EscapeSequenceTests.Execute_Plain_LeavesAStringWithoutTheTextAlone, EscapeSequenceTests.Execute_Ascii_Hexadecimal, EscapeSequenceTests.Execute_Ascii_Octal, EscapeSequenceTests.Execute_Ascii_PatternIgnoresLetterCase, EscapeSequenceTests.Execute_Ascii_PatternWithoutABackslash_HasNoEffectOnAStringWithoutOne, EscapeSequenceTests.Execute_Ascii_InvalidDigits_RaisesTypeMismatch -->
+
 Applies the escape sequence to a string, replacing it in place.
 
 Syntax: *object*.**Execute** ( *string_value* )
@@ -27,6 +29,8 @@ An ASCII sequence reads [**EscapeString**](EscapeString) as a regular expression
 - The expression is applied only when the string contains a backslash. A pattern that does not match a backslash, such as `#(\d{3})`, has no effect on a string that has none.
 - Digits that are not valid in the base, as in `\189` read as octal, raise run-time error 13, *Type mismatch*.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/EscapeSequence/IsAsciiCharacter.md b/docs/Reference/Contributed/Fmt/EscapeSequence/IsAsciiCharacter.md
index 9ed291ba..1710630b 100644
--- a/docs/Reference/Contributed/Fmt/EscapeSequence/IsAsciiCharacter.md
+++ b/docs/Reference/Contributed/Fmt/EscapeSequence/IsAsciiCharacter.md
@@ -8,6 +8,8 @@ has_toc: false
 # IsAsciiCharacter
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Create_Plain_HoldsTheArguments, EscapeSequenceTests.Create_Ascii_HoldsTheArguments, EscapeSequenceTests.Friend_Setters_CanBeCalledByAProject -->
+
 Returns or sets whether the escape sequence stands for a character code instead of fixed text.
 
 ## Get
@@ -34,6 +36,8 @@ Syntax: *object*.**IsAsciiCharacter** **=** *value*
 
 [**Create**](Create) sets the property from its *isAsciiReplacement* argument. [**Execute**](Execute) takes the ASCII path when the value is **True**, reading the digits in the base given by [**AsciiBase**](AsciiBase).
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/EscapeSequence/ReplacementString.md b/docs/Reference/Contributed/Fmt/EscapeSequence/ReplacementString.md
index fee79aef..b48760dd 100644
--- a/docs/Reference/Contributed/Fmt/EscapeSequence/ReplacementString.md
+++ b/docs/Reference/Contributed/Fmt/EscapeSequence/ReplacementString.md
@@ -8,6 +8,8 @@ has_toc: false
 # ReplacementString
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Create_Plain_HoldsTheArguments, EscapeSequenceTests.Friend_Setters_CanBeCalledByAProject, EscapeSequenceTests.Execute_Plain_ReplacesEveryOccurrence -->
+
 Returns or sets the text that replaces a plain escape sequence.
 
 ## Get
@@ -34,6 +36,8 @@ Syntax: *object*.**ReplacementString** **=** *value*
 
 [**Create**](Create) sets the property from its *replacement* argument. [**Execute**](Execute) puts the value in place of every occurrence of [**EscapeString**](EscapeString).
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/EscapeSequence/Self.md b/docs/Reference/Contributed/Fmt/EscapeSequence/Self.md
index dd30bfe4..363c4512 100644
--- a/docs/Reference/Contributed/Fmt/EscapeSequence/Self.md
+++ b/docs/Reference/Contributed/Fmt/EscapeSequence/Self.md
@@ -8,6 +8,8 @@ has_toc: false
 # Self
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Self_ReturnsTheSameObject -->
+
 Returns the escape sequence object itself.
 
 Syntax: *object*.**Self**
@@ -19,7 +21,9 @@ Returns the same **EscapeSequence** that *object* refers to. The property is rea
 
 ## Remarks
 
-[**Create**](Create) builds the new instance inside a `With New EscapeSequence` block and returns it through **Self**, because a `With` block does not give a way to name the object it works on. A project that references the package can call **Self** as well (checked on BETA 1005), though it only returns what the caller already holds.
+[**Create**](Create) builds the new instance inside a `With New EscapeSequence` block and returns it through **Self**, because a `With` block does not give a way to name the object it works on. A project that references the package can call **Self** as well, though it only returns what the caller already holds.
+
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/Fmt/EscapeSequence/index.md b/docs/Reference/Contributed/Fmt/EscapeSequence/index.md
index 944fac15..d46b3ecd 100644
--- a/docs/Reference/Contributed/Fmt/EscapeSequence/index.md
+++ b/docs/Reference/Contributed/Fmt/EscapeSequence/index.md
@@ -8,6 +8,8 @@ has_toc: false
 # EscapeSequence class
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Create_Plain_HoldsTheArguments, EscapeSequenceTests.Create_Ascii_HoldsTheArguments, EscapeSequenceTests.Execute_Plain_ReplacesEveryOccurrence, EscapeSequenceTests.Execute_Ascii_Hexadecimal, EscapeSequenceTests.Friend_Setters_CanBeCalledByAProject, EscapeSequenceTests.Self_ReturnsTheSameObject -->
+
 Describes one escape sequence of a format string, the text to look for and what replaces it, and applies it to a string.
 
 An escape sequence is either plain or ASCII:
@@ -30,6 +32,8 @@ Debug.Print text  ' aZZb
 > [!NOTE] BETA 1005
 > [**Self**](Self) and the four property setters ([**AsciiBase**](AsciiBase), [**EscapeString**](EscapeString), [**IsAsciiCharacter**](IsAsciiCharacter) and [**ReplacementString**](ReplacementString) with **Let**) are declared **Friend**, for [**Create**](Create) to use. A project that references the package can call them too, so the properties of an instance can be changed after it is created.
 
+<!-- /test -->
+
 ## Properties
 
 - [AsciiBase](AsciiBase) -- returns the number base of an ASCII sequence
diff --git a/docs/Reference/Contributed/Fmt/ExponentialSFI.md b/docs/Reference/Contributed/Fmt/ExponentialSFI.md
index ceb83b62..2a29b281 100644
--- a/docs/Reference/Contributed/Fmt/ExponentialSFI.md
+++ b/docs/Reference/Contributed/Fmt/ExponentialSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # ExponentialSFI class
 {: .no_toc }
 
+<!-- test: ExponentialTests.Default_SixDecimalPlaces, ExponentialTests.Precision_SetsTheDecimalPlaces, ExponentialTests.LowerCaseIdentifier_GivesALowerCaseE, ExponentialTests.NegativeExponent_HasNoLeadingZeros, ExponentialTests.ParseExponent_ReadsTheTextAfterTheE, ExponentialTests.Class_MatchesEAndOnlyE, ExponentialTests.Class_GetFormattedValue_ReadsThePrecisionAndTheIdentifier -->
+
 Formats a number in exponential notation for the **E** identifier, and reads the exponent back from such a text.
 
 **ExponentialSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and matches the identifier **E** or **e** in any case. [**StringHelper**](StringHelper) registers it, so `{0:E}` in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it for a numeric value. The class is predeclared. Its interface members are reached through the interface, and [**ParseExponent**](#parseexponent) is public.
@@ -54,6 +56,8 @@ Debug.Print ExponentialSFI.ParseExponent("1.5e12")  ' 12
 
 Both are implemented as private members of the interface.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/FixedPointSFI.md b/docs/Reference/Contributed/Fmt/FixedPointSFI.md
index 99f890a9..de4ec022 100644
--- a/docs/Reference/Contributed/Fmt/FixedPointSFI.md
+++ b/docs/Reference/Contributed/Fmt/FixedPointSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # FixedPointSFI class
 {: .no_toc }
 
+<!-- test: FixedPointTests.Default_TwoDecimalPlaces, FixedPointTests.Precision_SetsTheDecimalPlaces, FixedPointTests.PrecisionZero_IsTwoDecimalPlaces, FixedPointTests.NoThousandsSeparator, FixedPointTests.Class_MatchesFAndOnlyF, FixedPointTests.Class_GetFormattedValue_ReadsThePrecision -->
+
 Formats a number with a fixed count of decimal places for the **F** identifier.
 
 **FixedPointSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and matches the identifier **F** or **f** in any case. [**StringHelper**](StringHelper) registers it, so `{0:F}` in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it for a numeric value. The class is predeclared, and its two members are reached through the interface.
@@ -31,6 +33,8 @@ Debug.Print StringFormat("{0:F2}", 12345.678) ' 12345.68
 
 Both are implemented as private members of the interface. [**GeneralNumericSFI**](GeneralNumericSFI) calls this class when it chooses fixed-point notation.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/FormerEntryPoint/FormerStringFormat.md b/docs/Reference/Contributed/Fmt/FormerEntryPoint/FormerStringFormat.md
index b5a40c46..884f31fc 100644
--- a/docs/Reference/Contributed/Fmt/FormerEntryPoint/FormerStringFormat.md
+++ b/docs/Reference/Contributed/Fmt/FormerEntryPoint/FormerStringFormat.md
@@ -8,6 +8,8 @@ has_toc: false
 # FormerStringFormat
 {: .no_toc }
 
+<!-- test: FormerStringFormatTests.CommonNotation_GivesTheSameAsStringFormat, FormerStringFormatTests.N_IsUnderstood, FormerStringFormatTests.CustomNumberFormat_IsPassedToFormat, FormerStringFormatTests.G_WithoutPrecision_TakesTheDigitsAfterThePoint, FormerStringFormatTests.X_PrefixIsUpperCaseForBothCases, FormerStringFormatTests.HexEscape_IsNotExpanded, FormerStringFormatTests.NonNumericValue_WithNumericIdentifier_RaisesInvalidNumberArgument, FormerStringFormatTests.E_PrecisionZero_RaisesInvalidFormatString, FormerStringFormatTests.WrongCount_HasTheSameNumberAndTextWithItsOwnSource -->
+
 Builds a string from a format string and a list of values, with the earlier implementation of the formatter.
 
 Syntax: **FormerStringFormat** ( *format_string* [, *values* ] ) **As String**
@@ -47,6 +49,8 @@ Debug.Print FormerStringFormat("{0:G}", 123.456)        ' 123.46
 Debug.Print StringFormat("{0:G}", 123.456)              ' 1.23456E2
 ```
 
+<!-- /test -->
+
 ## Example
 
 This example uses **N** and a custom number format, which only this function accepts. The results depend on the regional settings, so the output shown is for English (United States).
diff --git a/docs/Reference/Contributed/Fmt/FormerEntryPoint/index.md b/docs/Reference/Contributed/Fmt/FormerEntryPoint/index.md
index fa8ad666..55266954 100644
--- a/docs/Reference/Contributed/Fmt/FormerEntryPoint/index.md
+++ b/docs/Reference/Contributed/Fmt/FormerEntryPoint/index.md
@@ -8,6 +8,8 @@ has_toc: false
 # FormerEntryPoint module
 {: .no_toc }
 
+<!-- test: FormerStringFormatTests.CommonNotation_GivesTheSameAsStringFormat -->
+
 Holds **FormerStringFormat**, the earlier implementation of the formatter, which is kept in the package beside the newer one.
 
 **FormerEntryPoint** is a standard module with one function, [**FormerStringFormat**](FormerStringFormat). The function does the whole job in one procedure, in the style of VB6 code. It does not use [**StringHelper**](../StringHelper), [**StringFormatSpecifier**](../StringFormatSpecifier/) or the format identifier classes, and only borrows [**EscapeSequence**](../EscapeSequence/) for the simple escape sequences. It takes the same format strings as [**StringFormat**](../PublicEntryPoints/StringFormat) with a few differences, which are listed on the page of the function. A project that references the package calls it by name or as `FormerEntryPoint.FormerStringFormat`.
@@ -16,6 +18,8 @@ Holds **FormerStringFormat**, the earlier implementation of the formatter, which
 Debug.Print FormerStringFormat("{0} {1:F2}", "x", 2.5)  ' x 2.50
 ```
 
+<!-- /test -->
+
 ## Functions
 
 - [FormerStringFormat](FormerStringFormat) -- builds a string from a format string and a list of values, with the earlier implementation
diff --git a/docs/Reference/Contributed/Fmt/FormerEscapeSequence/Create.md b/docs/Reference/Contributed/Fmt/FormerEscapeSequence/Create.md
index ec94efb7..d989762a 100644
--- a/docs/Reference/Contributed/Fmt/FormerEscapeSequence/Create.md
+++ b/docs/Reference/Contributed/Fmt/FormerEscapeSequence/Create.md
@@ -8,6 +8,8 @@ has_toc: false
 # Create
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Former_Create_ReturnsANewObjectWithTheArguments -->
+
 Creates a **FormerEscapeSequence** that holds a text and its replacement.
 
 Syntax: *object*.**Create** ( *escape*, *replacement* ) **As FormerEscapeSequence**
@@ -27,6 +29,8 @@ Returns a new **FormerEscapeSequence** whose [**EscapeString**](EscapeString) an
 
 The class has no constructor with arguments. **Create** takes its place: it makes a new instance, fills in the two properties through their **Friend** setters and returns it.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/FormerEscapeSequence/EscapeString.md b/docs/Reference/Contributed/Fmt/FormerEscapeSequence/EscapeString.md
index b0ec5e3d..28435f6d 100644
--- a/docs/Reference/Contributed/Fmt/FormerEscapeSequence/EscapeString.md
+++ b/docs/Reference/Contributed/Fmt/FormerEscapeSequence/EscapeString.md
@@ -8,6 +8,8 @@ has_toc: false
 # EscapeString
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Former_Create_ReturnsANewObjectWithTheArguments, EscapeSequenceTests.Former_Friend_Setters_CanBeCalledByAProject -->
+
 Returns or sets the text that the escape sequence looks for.
 
 ## Get
@@ -34,6 +36,8 @@ Syntax: *object*.**EscapeString** **=** *value*
 
 [**Create**](Create) sets the property on the instance that it returns.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/FormerEscapeSequence/ReplacementString.md b/docs/Reference/Contributed/Fmt/FormerEscapeSequence/ReplacementString.md
index ba3f5648..ff154a6b 100644
--- a/docs/Reference/Contributed/Fmt/FormerEscapeSequence/ReplacementString.md
+++ b/docs/Reference/Contributed/Fmt/FormerEscapeSequence/ReplacementString.md
@@ -8,6 +8,8 @@ has_toc: false
 # ReplacementString
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Former_Create_ReturnsANewObjectWithTheArguments, EscapeSequenceTests.Former_Friend_Setters_CanBeCalledByAProject -->
+
 Returns or sets the text that replaces the escape sequence.
 
 ## Get
@@ -34,6 +36,8 @@ Syntax: *object*.**ReplacementString** **=** *value*
 
 [**Create**](Create) sets the property on the instance that it returns.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/FormerEscapeSequence/index.md b/docs/Reference/Contributed/Fmt/FormerEscapeSequence/index.md
index 96e1449d..2c7ef66e 100644
--- a/docs/Reference/Contributed/Fmt/FormerEscapeSequence/index.md
+++ b/docs/Reference/Contributed/Fmt/FormerEscapeSequence/index.md
@@ -8,11 +8,13 @@ has_toc: false
 # FormerEscapeSequence class
 {: .no_toc }
 
+<!-- test: EscapeSequenceTests.Former_Create_ReturnsANewObjectWithTheArguments, EscapeSequenceTests.Former_Friend_Setters_CanBeCalledByAProject -->
+
 Holds a piece of text and its replacement, in the form of the earlier escape sequence class of the package.
 
 **FormerEscapeSequence** has two properties, [**EscapeString**](EscapeString) and [**ReplacementString**](ReplacementString), and a [**Create**](Create) method that returns a new instance. It has no method that applies the sequence to a string and cannot describe an ASCII escape. Nothing in the package uses it: [**FormerStringFormat**](../FormerEntryPoint/FormerStringFormat) creates [**EscapeSequence**](../EscapeSequence/) objects.
 
-Unlike **EscapeSequence**, the class is not predeclared, so an instance is created with `New`, and **Create** is called on that instance. The two property setters are declared **Friend**, and a project that references the package can call them as well (checked on BETA 1005).
+Unlike **EscapeSequence**, the class is not predeclared, so an instance is created with `New`, and **Create** is called on that instance. The two property setters are declared **Friend**, and a project that references the package can call them as well.
 
 ```tb check_build check_run
 Dim blank As New FormerEscapeSequence
@@ -22,6 +24,8 @@ Set esc = blank.Create("\z", "ZZ")
 Debug.Print esc.EscapeString & " " & esc.ReplacementString  ' \z ZZ
 ```
 
+<!-- /test -->
+
 ## Properties
 
 - [EscapeString](EscapeString) -- returns or sets the text to look for
diff --git a/docs/Reference/Contributed/Fmt/GeneralNumericSFI.md b/docs/Reference/Contributed/Fmt/GeneralNumericSFI.md
index 8a36e8ac..28aabb1b 100644
--- a/docs/Reference/Contributed/Fmt/GeneralNumericSFI.md
+++ b/docs/Reference/Contributed/Fmt/GeneralNumericSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # GeneralNumericSFI class
 {: .no_toc }
 
+<!-- test: GeneralTests.Integer_IsFormattedAsD, GeneralTests.Double_WithoutPrecision_IsExponential, GeneralTests.Double_ExponentAtOrAbovePrecision_IsExponential, GeneralTests.Double_ExponentBelowPrecision_IsFixedPoint, GeneralTests.LowerCaseIdentifier_GivesALowerCaseE, GeneralTests.Single_GivesTheValue, GeneralTests.Currency_GivesTheValue, GeneralTests.Byte_GivesTheValue, GeneralTests.Decimal_GivesTheValue, GeneralTests.NumericString_GivesTheValue, GeneralTests.Class_MatchesGAndOnlyG, GeneralTests.Class_GetFormattedValue_IsPublic, FormerStringFormatTests.G_WithoutPrecision_StringFormatGivesExponential, FormerStringFormatTests.G_WithoutPrecision_TakesTheDigitsAfterThePoint -->
+
 Formats a number for the **G** identifier, as whole-number digits, fixed-point or exponential notation depending on its type and size.
 
 **GeneralNumericSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and matches the identifier **G** or **g** in any case. [**StringHelper**](StringHelper) registers it, so `{0:G}` in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it for a numeric value. The class is predeclared. Its interface members are reached through the interface, and [**GetFormattedValue**](#getformattedvalue) is also public.
@@ -18,7 +20,7 @@ The result depends on the **TypeName** of the value:
 
 - An **Integer** or a **Long** is formatted by [**DecimalSFI**](DecimalSFI): whole-number digits, padded with zeros to the precision.
 - A **Double** is first formatted by [**ExponentialSFI**](ExponentialSFI) with the same precision. The exponent of that text is read back with [**ParseExponent**](ExponentialSFI#parseexponent). When the exponent is greater than -5 and its absolute value is less than the precision, the value is formatted again by [**FixedPointSFI**](FixedPointSFI), with the precision as the count of decimal places. Otherwise the exponential text is the result. Without a precision the second test cannot succeed, so a **Double** is always in exponential notation.
-- A value of any other type, such as a **Single**, **Currency**, **Byte**, **Decimal** or a numeric **String**, gives an empty string.
+- A value of any other type, such as a **Single**, **Currency**, **Byte**, **Decimal** or a numeric **String**, is not formatted and gives an empty string.
 
 The precision is therefore a count of decimal places and a limit for the exponent. It is not a count of significant digits, as it is in .NET. The case of the identifier is kept: `g` gives a lower-case `e` in exponential notation. The decimal point follows the Windows regional settings.
 
@@ -34,6 +36,9 @@ Debug.Print StringFormat("{0:g}", 12345.678)        ' 1.234568e4
 Debug.Print "[" & StringFormat("{0:G}", 3.14!) & "]"  ' []
 ```
 
+> [!WARNING] 1.0.0.0
+> The value is lost without an error when its type is not **Integer**, **Long** or **Double**: `{0:G}` of a **Single**, **Currency**, **Byte**, **Decimal** or numeric **String** gives an empty string, and alignment pads it. Convert the value to a **Double** or a **Long** first, as in `CDbl(x)`.
+
 > [!NOTE] 1.0.0.0
 > **FormerStringFormat** treats a missing precision differently: it derives one from the count of digits after the decimal point in the value. `{0:G}` of `123.456` gives `123.46` there and `1.23456E2` here. See [FormerStringFormat](FormerEntryPoint/FormerStringFormat).
 
@@ -64,6 +69,8 @@ Debug.Print GeneralNumericSFI.GetFormattedValue(12345.678, spec)  ' 1.235E4
 
 Returns **True** when the specifier's [**identifier**](StringFormatSpecifier/identifier) is `G` or `g`. It is implemented as a private member of the interface.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/GenericDateTimeSFI.md b/docs/Reference/Contributed/Fmt/GenericDateTimeSFI.md
index 99c9c777..22684e66 100644
--- a/docs/Reference/Contributed/Fmt/GenericDateTimeSFI.md
+++ b/docs/Reference/Contributed/Fmt/GenericDateTimeSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # GenericDateTimeSFI class
 {: .no_toc }
 
+<!-- test: DateTests.ShortDate_d, DateTests.LongDate_D, DateTests.LongDateShortTime_f, DateTests.LongDateLongTime_F, DateTests.ShortDateShortTime_g, DateTests.ShortDateLongTime_G, DateTests.Sortable_s, DateTests.ShortTime_t, DateTests.LongTime_T, DateTests.Custom_C_PassesTheTextToFormat, DateTests.Custom_C_Empty_IsTheGeneralDate, DateTests.Letters_AreCaseSensitiveExceptC, DateTests.TextAfterTheLetter_IsIgnoredExceptForC, DateTests.UnknownLetter_RaisesFormatError, DateTests.Generic_Class_MatchesTheTenLetters -->
+
 Formats a **Date** for the date and time identifiers **d**, **D**, **f**, **F**, **g**, **G**, **s**, **t**, **T** and **C**.
 
 **GenericDateTimeSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier). [**StringHelper**](StringHelper) registers it as the only date and time identifier, so every date item in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it. A value is treated as a date when its **TypeName** is `Date`. The class is predeclared, and its two members are reached through the interface.
@@ -55,6 +57,8 @@ The output shown is for an English (United States) system.
 
 Both are implemented as private members of the interface.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/HexSFI.md b/docs/Reference/Contributed/Fmt/HexSFI.md
index 2128c2e6..678b6d07 100644
--- a/docs/Reference/Contributed/Fmt/HexSFI.md
+++ b/docs/Reference/Contributed/Fmt/HexSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # HexSFI class
 {: .no_toc }
 
+<!-- test: HexTests.Default_IsThePrefixAndTheDigits, HexTests.LowerCaseIdentifier_GivesALowerCaseResult, HexTests.Precision_PadsWithZeros, HexTests.Precision_CutsFromTheLeft, HexTests.Negative_IntegerIs16Bits_LongIs32Bits, HexTests.FractionalValue_IsRounded, HexTests.Class_MatchesXAndOnlyX, FormerStringFormatTests.X_PrefixIsUpperCaseForBothCases -->
+
 Formats a number as hexadecimal digits with an `&H` prefix for the **X** identifier.
 
 **HexSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and matches the identifier **X** or **x** in any case. [**StringHelper**](StringHelper) registers it, so `{0:X}` in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it for a numeric value. The class is predeclared, and its two members are reached through the interface.
@@ -40,6 +42,8 @@ Debug.Print StringFormat("{0:X}", -1&)     ' &HFFFFFFFF
 
 Both are implemented as private members of the interface.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/IStringFormatIdentifier.md b/docs/Reference/Contributed/Fmt/IStringFormatIdentifier.md
index af856bcf..5a463ac5 100644
--- a/docs/Reference/Contributed/Fmt/IStringFormatIdentifier.md
+++ b/docs/Reference/Contributed/Fmt/IStringFormatIdentifier.md
@@ -8,6 +8,8 @@ has_toc: false
 # IStringFormatIdentifier interface
 {: .no_toc }
 
+<!-- test: IdentifierInterfaceTests.OwnClass_CanBeCalledThroughTheInterface, IdentifierInterfaceTests.OwnClass_IsNotKnownToStringFormat, IdentifierInterfaceTests.EveryClass_ImplementsTheInterface -->
+
 The contract that a format identifier class implements: it says whether it handles an item's identifier, and formats a value for it.
 
 Each of the eleven format identifier classes of the package implements **IStringFormatIdentifier**: [**CurrencySFI**](CurrencySFI), [**DateTimeSFI**](DateTimeSFI), [**DecimalSFI**](DecimalSFI), [**ExponentialSFI**](ExponentialSFI), [**FixedPointSFI**](FixedPointSFI), [**GeneralNumericSFI**](GeneralNumericSFI), [**GenericDateTimeSFI**](GenericDateTimeSFI), [**HexSFI**](HexSFI), [**NumericPaddingSFI**](NumericPaddingSFI), [**PercentSFI**](PercentSFI) and [**RoundTripSFI**](RoundTripSFI). [**StringHelper**](StringHelper) holds one list of them for numeric values and one for dates. For each format item it asks every class of the list that suits the value's type whether it matches the item's identifier, and a class that matches formats the value. It does not stop at the first match, so the last matching class decides. The classes of one list match different letters, so at most one of them matches an item.
@@ -44,6 +46,8 @@ Syntax: *object*.**IsIdentifierMatch** ( *specifier* ) **As Boolean**
 
 Returns **True** when the class formats items with that identifier. The classes of the package compare the specifier's [**identifier**](StringFormatSpecifier/identifier) with their own letter. The numeric classes ignore the case of the identifier. The date classes treat nine of their letters as case-sensitive and accept `C` in either case.
 
+<!-- /test -->
+
 ## Example
 
 This example implements the interface in a class that upper-cases a value for the identifier `U`, and calls it directly.
diff --git a/docs/Reference/Contributed/Fmt/NumericPaddingSFI.md b/docs/Reference/Contributed/Fmt/NumericPaddingSFI.md
index 5c63a7e7..a93e64e4 100644
--- a/docs/Reference/Contributed/Fmt/NumericPaddingSFI.md
+++ b/docs/Reference/Contributed/Fmt/NumericPaddingSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # NumericPaddingSFI class
 {: .no_toc }
 
+<!-- test: HexTests.NumericPadding_NeverMatches, HexTests.NumericPadding_GetFormattedValue_RaisesError5, ItemTests.DotNet_NumberIdentifierN_DoesNotExist -->
+
 A placeholder format identifier that never matches and cannot format.
 
 **NumericPaddingSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) but has no identifier of its own. [**StringHelper**](StringHelper) registers it last among the numeric identifiers, and because its **IsIdentifierMatch** always returns **False**, [**StringFormat**](PublicEntryPoints/StringFormat) never calls its **GetFormattedValue**. The package's source states no purpose for it. The class is predeclared, and its two members are reached through the interface.
@@ -34,6 +36,8 @@ Debug.Print f.GetFormattedValue(1, spec)
 Debug.Print Err.Number & ": " & Err.Description  ' 5: Invalid procedure call or argument
 ```
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/PercentSFI.md b/docs/Reference/Contributed/Fmt/PercentSFI.md
index 3a42eba0..c4a69a89 100644
--- a/docs/Reference/Contributed/Fmt/PercentSFI.md
+++ b/docs/Reference/Contributed/Fmt/PercentSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # PercentSFI class
 {: .no_toc }
 
+<!-- test: PercentRoundTripTests.Percent_Default_IsAWholeNumberOfPercent, PercentRoundTripTests.Percent_Precision_SetsTheDecimalPlaces, PercentRoundTripTests.Percent_HasThousandsSeparators, PercentRoundTripTests.Percent_Class_MatchesPAndOnlyP -->
+
 Formats a number as a percentage for the **P** identifier.
 
 **PercentSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and matches the identifier **P** or **p** in any case. [**StringHelper**](StringHelper) registers it, so `{0:P}` in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it for a numeric value. The class is predeclared, and its two members are reached through the interface.
@@ -31,6 +33,8 @@ Debug.Print StringFormat("{0:P}", 0.005)     ' 1%
 
 Both are implemented as private members of the interface.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/PublicEntryPoints/StringFormat.md b/docs/Reference/Contributed/Fmt/PublicEntryPoints/StringFormat.md
index 0f079a9c..36350a81 100644
--- a/docs/Reference/Contributed/Fmt/PublicEntryPoints/StringFormat.md
+++ b/docs/Reference/Contributed/Fmt/PublicEntryPoints/StringFormat.md
@@ -24,6 +24,7 @@ The syntax of a format item, the identifiers and the escape sequences are in the
 
 ## Remarks
 
+<!-- test: ItemTests.Values_UnusedValue_RaisesFormatError, ItemTests.Values_MissingValue_RaisesFormatError, ItemTests.Values_IndexGap_RaisesFormatError, ItemTests.Values_NoValuesButAnItem_RaisesFormatError, ItemTests.Values_NoItems_IgnoresTheValues, ItemTests.Index_RepeatedIndexUsesTheValueEachTime, ItemTests.Identifier_TextValue_IsRefused, ItemTests.Identifier_NumericText_UsesTheNumericIdentifiers, ItemTests.Identifier_Boolean_UsesTheNumericIdentifiers, ItemTests.NoIdentifier_ConvertsTheValueToString, ItemTests.Error_NullValue_RaisesInvalidUseOfNull, ItemTests.Alignment_Positive_RightJustifies, ItemTests.Alignment_Negative_LeftJustifies, ItemTests.Alignment_WiderValue_IsNotShortened, ItemTests.Alignment_IsAppliedAfterTheIdentifier, EscapeTests.Values_EscapesInAValue_AreExpanded, EscapeTests.Literal_EscapesInAValue_AreNotExpanded, EscapeTests.Values_ALaterItemInAValue_IsReplacedToo, EscapeTests.Escape_Chr27_BecomesABackslash, ItemTests.Item_LeadingZeroIndex_IsNotReplaced, ItemTests.Item_LeadingZeroAlignment_IsNotReplaced, ItemTests.Item_ZeroAlignment_IsNotReplaced, ItemTests.DoubledBrace_IsNotAnEscape, ItemTests.Index_Word_RaisesTypeMismatch, ItemTests.DotNet_CustomNumericFormat_IsRefused, ItemTests.DotNet_CustomDateFormat_IsRefused, ItemTests.DotNet_NumberIdentifierN_DoesNotExist, ItemTests.DotNet_Precision_IsDecimalPlacesNotSignificantDigits, ItemTests.Results_NumericResultsComeFromFormat, ItemTests.Results_DateResultsComeFromFormat, DateTests.Custom_C_PassesTheTextToFormat -->
 **Which values are needed.** The function finds the format items first. When there are any, the number of distinct indexes must equal the number of values, and the highest index must be below that number. In practice every value must be used, and the indexes must run from `0` to one less than the number of values without a gap; the same index can occur any number of times. Anything else raises error `-2147212503`. A format string with no items accepts any number of values and ignores them.
 
 **How a value is formatted.** The type of the value decides which identifiers an item may use:
@@ -50,6 +51,8 @@ An item is found again in the text by the text that [**ToString**](../StringForm
 > [!NOTE] timeless
 > The results come from **Format$**, so the decimal separator, the thousands separator and the layout of dates and times follow the Windows regional settings. The output shown on this page is for an English (United States) system.
 
+<!-- /test -->
+
 ## Example
 
 This example inserts values into a string, in the order of the format items and out of it.
diff --git a/docs/Reference/Contributed/Fmt/PublicEntryPoints/index.md b/docs/Reference/Contributed/Fmt/PublicEntryPoints/index.md
index 8a04736d..916c08b1 100644
--- a/docs/Reference/Contributed/Fmt/PublicEntryPoints/index.md
+++ b/docs/Reference/Contributed/Fmt/PublicEntryPoints/index.md
@@ -8,6 +8,8 @@ has_toc: false
 # PublicEntryPoints module
 {: .no_toc }
 
+<!-- test: ItemTests.Alignment_Negative_LeftJustifies, ItemTests.Index_SelectsValueByPosition -->
+
 Holds **StringFormat**, the main entry point of the package.
 
 **PublicEntryPoints** is a standard module with one function, [**StringFormat**](StringFormat). Its **ParamArray** takes the values to format as arguments. It copies them into an array and passes them to [**StringHelper**](../StringHelper), which does the work. A project that references the package calls it by name or as `PublicEntryPoints.StringFormat`.
@@ -17,6 +19,8 @@ Debug.Print StringFormat("I'm eating a very nice {0} {1}", "Bramleys", 3.142)  '
 Debug.Print PublicEntryPoints.StringFormat("{0,-6}|{1,6}|", "ab", "cd")        ' ab    |    cd|
 ```
 
+<!-- /test -->
+
 ## Functions
 
 - [StringFormat](StringFormat) -- builds a string from a format string and a list of values
diff --git a/docs/Reference/Contributed/Fmt/RoundTripSFI.md b/docs/Reference/Contributed/Fmt/RoundTripSFI.md
index 364c1479..c549c050 100644
--- a/docs/Reference/Contributed/Fmt/RoundTripSFI.md
+++ b/docs/Reference/Contributed/Fmt/RoundTripSFI.md
@@ -8,6 +8,8 @@ has_toc: false
 # RoundTripSFI class
 {: .no_toc }
 
+<!-- test: PercentRoundTripTests.RoundTrip_ConvertsTheValueToText, PercentRoundTripTests.RoundTrip_NumericString_IsReturnedAsANumber, PercentRoundTripTests.RoundTrip_KeepsAtMost15SignificantDigits, PercentRoundTripTests.RoundTrip_IgnoresThePrecision, PercentRoundTripTests.RoundTrip_Class_MatchesRAndOnlyR -->
+
 Converts a number to a **Double** and returns its text for the **R** identifier.
 
 **RoundTripSFI** is a format identifier class. It implements [**IStringFormatIdentifier**](IStringFormatIdentifier) and matches the identifier **R** or **r** in any case. [**StringHelper**](StringHelper) registers it, so `{0:R}` in a call to [**StringFormat**](PublicEntryPoints/StringFormat) uses it for a numeric value. The class is predeclared, and its two members are reached through the interface.
@@ -29,6 +31,8 @@ Debug.Print StringFormat("{0:R}", "1.50")  ' 1.5
 
 Both are implemented as private members of the interface.
 
+<!-- /test -->
+
 ## See Also
 
 - [IStringFormatIdentifier](IStringFormatIdentifier) interface -- the contract every format identifier class implements
diff --git a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/Alignment.md b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/Alignment.md
index 3e3888f9..18c58f37 100644
--- a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/Alignment.md
+++ b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/Alignment.md
@@ -8,6 +8,8 @@ has_toc: false
 # Alignment
 {: .no_toc }
 
+<!-- test: SpecifierTests.Defaults, SpecifierTests.Alignment_ProducesTheComma, ItemTests.Alignment_Positive_RightJustifies, ItemTests.Alignment_Negative_LeftJustifies, ItemTests.Alignment_WiderValue_IsNotShortened -->
+
 Returns or sets the width and the justification of a formatted value.
 
 ## Get
@@ -34,6 +36,8 @@ Syntax: *object*.**Alignment** **=** *value*
 
 [**StringHelper**](../StringHelper) sets the property from the comma part of a format item, so `{0,8}` gives `8` and `{0,-8}` gives `-8`, and it pads the result after the format identifier class has produced it. The padding character is a space. A formatted value that is wider than the alignment is not shortened. The format identifier classes do not read the property.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/CustomSpecifier.md b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/CustomSpecifier.md
index 689846cc..83ea88d7 100644
--- a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/CustomSpecifier.md
+++ b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/CustomSpecifier.md
@@ -8,6 +8,8 @@ has_toc: false
 # CustomSpecifier
 {: .no_toc }
 
+<!-- test: SpecifierTests.CustomSpecifier_Numeric_SetsThePrecision, SpecifierTests.CustomSpecifier_NotNumeric_KeepsThePrecision, SpecifierTests.CustomSpecifier_Zero_KeepsThePrecision, DateTests.Custom_C_PassesTheTextToFormat -->
+
 Returns or sets the text of a format item that follows its identifier letter.
 
 ## Get
@@ -36,6 +38,8 @@ The text is stored as written. When it is numeric and not zero, [**Precision**](
 
 The meaning of the text belongs to the format identifier class. The numeric classes read it as a precision through [**Precision**](Precision). [**GenericDateTimeSFI**](../GenericDateTimeSFI) passes it to **Format$** as a custom date and time format when the identifier is `C`.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/IndexProperty.md b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/IndexProperty.md
index 48bb1181..dc703dc5 100644
--- a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/IndexProperty.md
+++ b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/IndexProperty.md
@@ -8,6 +8,8 @@ has_toc: false
 # Index
 {: .no_toc }
 
+<!-- test: SpecifierTests.Index_IsNotCheckedWhenAssigned, ItemTests.Index_RepeatedIndexUsesTheValueEachTime -->
+
 Returns or sets the position of the value that a format item refers to.
 
 ## Get
@@ -34,6 +36,8 @@ Syntax: *object*.**Index** **=** *value*
 
 [**StringHelper**](../StringHelper) sets the property from the number at the start of a format item, so `{2}` gives `2`. The same index can occur in several items. The property is not checked when it is assigned; [**StringHelper**](../StringHelper) checks the indexes of a whole format string against the number of values.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/Precision.md b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/Precision.md
index 96f63c0c..96ef943c 100644
--- a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/Precision.md
+++ b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/Precision.md
@@ -8,6 +8,8 @@ has_toc: false
 # Precision
 {: .no_toc }
 
+<!-- test: SpecifierTests.Precision_IsTheNumberAfterTheLetter, SpecifierTests.CustomSpecifier_Numeric_SetsThePrecision, SpecifierTests.CustomSpecifier_NotNumeric_KeepsThePrecision, SpecifierTests.CustomSpecifier_Zero_KeepsThePrecision -->
+
 Returns the number that follows the identifier letter of a format item.
 
 Syntax: *object*.**Precision**
@@ -23,6 +25,8 @@ The property is read-only. It changes only when [**CustomSpecifier**](CustomSpec
 
 The meaning of the number depends on the format identifier class: a count of decimal places for [**FixedPointSFI**](../FixedPointSFI), [**ExponentialSFI**](../ExponentialSFI), [**CurrencySFI**](../CurrencySFI) and [**PercentSFI**](../PercentSFI), a count of digits for [**DecimalSFI**](../DecimalSFI) and [**HexSFI**](../HexSFI), and both a count of decimal places and a limit for the exponent for [**GeneralNumericSFI**](../GeneralNumericSFI). A precision of `0` selects each class's default.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/ToString.md b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/ToString.md
index 555c56ae..9729572b 100644
--- a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/ToString.md
+++ b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/ToString.md
@@ -8,6 +8,8 @@ has_toc: false
 # ToString
 {: .no_toc }
 
+<!-- test: SpecifierTests.ToString_RebuildsTheItem, SpecifierTests.ToString_AlignmentAndIdentifier, ItemTests.Item_LeadingZeroIndex_IsNotReplaced, ItemTests.Item_LeadingZeroAlignment_IsNotReplaced, ItemTests.Item_ZeroAlignment_IsNotReplaced -->
+
 Returns the text of the format item that the properties describe.
 
 Syntax: *object*.**ToString** ( ) **As String**
@@ -28,6 +30,8 @@ Debug.Print StringFormat("[{0,08}]", 5)   ' [{0,08}]
 Debug.Print StringFormat("[{0,0}]", 5)    ' [{0,0}]
 ```
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/identifier.md b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/identifier.md
index 37261a38..8ef80bfd 100644
--- a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/identifier.md
+++ b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/identifier.md
@@ -8,6 +8,8 @@ has_toc: false
 # identifier
 {: .no_toc }
 
+<!-- test: SpecifierTests.Identifier_KeepsTheCaseAsWritten, HexTests.LowerCaseIdentifier_GivesALowerCaseResult, GeneralTests.LowerCaseIdentifier_GivesALowerCaseE -->
+
 Returns or sets the letter that selects the format of a format item.
 
 ## Get
@@ -36,6 +38,8 @@ Syntax: *object*.**identifier** **=** *value*
 
 The property keeps the letter as written, including its case. The format identifier classes compare it with their own letter, and [**HexSFI**](../HexSFI) and [**GeneralNumericSFI**](../GeneralNumericSFI) copy its case into their results.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/index.md b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/index.md
index f585c7d8..b73a772f 100644
--- a/docs/Reference/Contributed/Fmt/StringFormatSpecifier/index.md
+++ b/docs/Reference/Contributed/Fmt/StringFormatSpecifier/index.md
@@ -8,6 +8,8 @@ has_toc: false
 # StringFormatSpecifier class
 {: .no_toc }
 
+<!-- test: SpecifierTests.Defaults, SpecifierTests.ToString_RebuildsTheItem -->
+
 Describes one format item of a format string: its index, alignment, identifier and the text that follows the identifier.
 
 [**StringHelper**](../StringHelper) creates one **StringFormatSpecifier** for every format item it finds in a format string, and passes it to the [format identifier classes](../IStringFormatIdentifier), which read the identifier and the precision from it. For the item `{2,-8:G3}` the index is `2`, the alignment is `-8`, the identifier is `G` and the custom specifier is `3`, which is also the precision.
@@ -25,6 +27,8 @@ Debug.Print spec.ToString()  ' {2,-8:G3}
 Debug.Print spec.Precision   ' 3
 ```
 
+<!-- /test -->
+
 ## Properties
 
 - [Alignment](Alignment) -- returns or sets the width and justification of the formatted value
diff --git a/docs/Reference/Contributed/Fmt/StringHelper.md b/docs/Reference/Contributed/Fmt/StringHelper.md
index 2cf4ce45..5b5a5df6 100644
--- a/docs/Reference/Contributed/Fmt/StringHelper.md
+++ b/docs/Reference/Contributed/Fmt/StringHelper.md
@@ -8,6 +8,8 @@ has_toc: false
 # StringHelper class
 {: .no_toc }
 
+<!-- test: SpecifierTests.StringHelper_StringFormat_TakesAnArray, SpecifierTests.StringHelper_NewInstance_BehavesLikeThePredeclaredOne, SpecifierTests.StringHelper_Errors_HaveTheSourceStringHelper, ItemTests.Alignment_Positive_RightJustifies -->
+
 The class that does the work behind **StringFormat**: it finds the format items in a format string, formats the values and expands the escape sequences.
 
 **StringHelper** is predeclared, so its one public method is called on the class name, `StringHelper.StringFormat`. [**StringFormat**](PublicEntryPoints/StringFormat) in the [**PublicEntryPoints**](PublicEntryPoints/) module copies its **ParamArray** into an array and calls this method. Call the method directly when the values are already in an array. A project can also create an instance with `New StringHelper`, which behaves in the same way.
@@ -48,6 +50,8 @@ Debug.Print StringHelper.StringFormat("{0}-{1:F1}", values)  ' x-2.5
 Debug.Print StringHelper.StringFormat("{0} and {1}", Array("salt", "pepper"))  ' salt and pepper
 ```
 
+<!-- /test -->
+
 ## See Also
 
 - [StringFormat](PublicEntryPoints/StringFormat) function -- the entry point that takes the values as arguments
diff --git a/docs/Reference/Contributed/Fmt/StringValidation/CopyCapitalisation.md b/docs/Reference/Contributed/Fmt/StringValidation/CopyCapitalisation.md
index 8934da44..e2c4e9d8 100644
--- a/docs/Reference/Contributed/Fmt/StringValidation/CopyCapitalisation.md
+++ b/docs/Reference/Contributed/Fmt/StringValidation/CopyCapitalisation.md
@@ -8,6 +8,8 @@ has_toc: false
 # CopyCapitalisation
 {: .no_toc }
 
+<!-- test: StringValidationTests.CopyCapitalisation_FollowsTheWholeSource, HexTests.LowerCaseIdentifier_GivesALowerCaseResult -->
+
 Returns a string in upper case or in lower case, following the case of another string.
 
 Syntax: **CopyCapitalisation** ( *source*, *applyTo* ) **As String**
@@ -26,6 +28,8 @@ The function looks at *source* as a whole and does not copy case letter by lette
 
 The format identifier classes use it to give a result the case of the identifier that was written: `{0:X}` and `{0:x}` give `&HFF` and `&hff`.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringValidation/StringContains.md b/docs/Reference/Contributed/Fmt/StringValidation/StringContains.md
index 6fd79e03..7d376fcd 100644
--- a/docs/Reference/Contributed/Fmt/StringValidation/StringContains.md
+++ b/docs/Reference/Contributed/Fmt/StringValidation/StringContains.md
@@ -8,6 +8,8 @@ has_toc: false
 # StringContains
 {: .no_toc }
 
+<!-- test: StringValidationTests.StringContains_IgnoresCaseUnlessAsked, StringValidationTests.StringContains_EmptyNeedle_IsTrue, StringValidationTests.StringContains_Null_RaisesInvalidUseOfNull -->
+
 Returns whether a string contains another string, ignoring letter case unless asked not to.
 
 Syntax: **StringContains** ( *haystack*, *needle* [, *caseSensitive* ] ) **As Boolean**
@@ -29,6 +31,8 @@ The function calls **InStr** with the text-comparison mode, or the binary mode w
 
 [**StringContainsAny**](StringContainsAny) takes *caseSensitive* as a required argument before its list of strings. Here it is the last argument and is optional.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringValidation/StringContainsAny.md b/docs/Reference/Contributed/Fmt/StringValidation/StringContainsAny.md
index 2b2ba7d2..e9fd469f 100644
--- a/docs/Reference/Contributed/Fmt/StringValidation/StringContainsAny.md
+++ b/docs/Reference/Contributed/Fmt/StringValidation/StringContainsAny.md
@@ -8,6 +8,8 @@ has_toc: false
 # StringContainsAny
 {: .no_toc }
 
+<!-- test: StringValidationTests.StringContainsAny_FindsAnyNeedle -->
+
 Returns whether a string contains at least one of several strings.
 
 Syntax: **StringContainsAny** ( *haystack*, *caseSensitive* [, *needles* ] ) **As Boolean**
@@ -27,6 +29,8 @@ Returns **True** when at least one of *needles* occurs in *haystack*, and **Fals
 
 The function passes each needle in turn to [**StringContains**](StringContains) and returns **True** at the first one that is found, so later needles are not tried. With no needles the result is **False**.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringValidation/StringMatchesAny.md b/docs/Reference/Contributed/Fmt/StringValidation/StringMatchesAny.md
index 2fd8597b..eb78ab47 100644
--- a/docs/Reference/Contributed/Fmt/StringValidation/StringMatchesAny.md
+++ b/docs/Reference/Contributed/Fmt/StringValidation/StringMatchesAny.md
@@ -8,6 +8,8 @@ has_toc: false
 # StringMatchesAny
 {: .no_toc }
 
+<!-- test: StringValidationTests.StringMatchesAny_ComparesWholeStringsExactly -->
+
 Returns whether a string is equal to at least one of several values.
 
 Syntax: **StringMatchesAny** ( *searchString* [, *possibleMatches* ] ) **As Boolean**
@@ -24,6 +26,8 @@ Returns **True** when *searchString* is equal to at least one of *possibleMatche
 
 The comparison is an equality test of whole strings, not a search for a substring. It takes letter case into account, because the module has no `Option Compare` statement and the default comparison is binary. A number among the values is compared as its text, so `1` matches `"1"`. With no values the result is **False**.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringValidation/StringStartsWith.md b/docs/Reference/Contributed/Fmt/StringValidation/StringStartsWith.md
index a968d12a..840634a6 100644
--- a/docs/Reference/Contributed/Fmt/StringValidation/StringStartsWith.md
+++ b/docs/Reference/Contributed/Fmt/StringValidation/StringStartsWith.md
@@ -8,6 +8,8 @@ has_toc: false
 # StringStartsWith
 {: .no_toc }
 
+<!-- test: StringValidationTests.StringStartsWith_ArgumentOrder_IsStartThenSource, StringValidationTests.StringStartsWith_IsBinary_EmptyStartIsTrue, EscapeTests.Literal_AtSign_TurnsEscapesOff -->
+
 Returns whether a string begins with another string, taking letter case into account.
 
 Syntax: **StringStartsWith** ( *startingSequence*, *source* ) **As Boolean**
@@ -29,6 +31,8 @@ The comparison is binary, so `"he"` does not start `"Hello"`. An empty *starting
 
 [**StringFormat**](../PublicEntryPoints/StringFormat) uses the function to test whether a format string begins with `@`.
 
+<!-- /test -->
+
 ## Example
 
 ```tb check_build check_run
diff --git a/docs/Reference/Contributed/Fmt/StringValidation/index.md b/docs/Reference/Contributed/Fmt/StringValidation/index.md
index 75f93acd..d0af1453 100644
--- a/docs/Reference/Contributed/Fmt/StringValidation/index.md
+++ b/docs/Reference/Contributed/Fmt/StringValidation/index.md
@@ -8,6 +8,8 @@ has_toc: false
 # StringValidation module
 {: .no_toc }
 
+<!-- test: StringValidationTests.Functions_CanBeCalledDespiteOptionPrivateModule -->
+
 Holds the small string tests and the case helper that the package's formatter is built on.
 
 **StringValidation** is a standard module of five public functions. [**StringContains**](StringContains), [**StringContainsAny**](StringContainsAny), [**StringMatchesAny**](StringMatchesAny) and [**StringStartsWith**](StringStartsWith) return a **Boolean** about the text of a string, and [**CopyCapitalisation**](CopyCapitalisation) returns a string in the letter case of another. The formatter calls them to look for backslashes and escape sequences, to test whether a format string begins with `@` and to follow the case of an identifier. A project that references the package can call them too, by name or as `StringValidation.StringContains`.
@@ -23,6 +25,8 @@ Debug.Print StringStartsWith("He", "Hello")              ' True
 Debug.Print CopyCapitalisation("HELLO", "world")         ' WORLD
 ```
 
+<!-- /test -->
+
 ## Functions
 
 - [CopyCapitalisation](CopyCapitalisation) -- returns a string in upper case or lower case, following another string
diff --git a/docs/Reference/Contributed/Fmt/index.md b/docs/Reference/Contributed/Fmt/index.md
index fd48cb7b..8dfabd79 100644
--- a/docs/Reference/Contributed/Fmt/index.md
+++ b/docs/Reference/Contributed/Fmt/index.md
@@ -31,6 +31,7 @@ The functions are public, so **StringFormat** is called by name, as the samples
 
 ## Format items
 
+<!-- test: ItemTests.Index_SelectsValueByPosition, ItemTests.Index_RepeatedIndexUsesTheValueEachTime, ItemTests.Index_Word_RaisesTypeMismatch, ItemTests.Alignment_Positive_RightJustifies, ItemTests.Alignment_Negative_LeftJustifies, ItemTests.Alignment_WiderValue_IsNotShortened, ItemTests.Alignment_IsAppliedAfterTheIdentifier, ItemTests.NoIdentifier_ConvertsTheValueToString, ItemTests.Item_WithSpaces_StaysText, ItemTests.Item_WithoutClosingBrace_StaysText, ItemTests.Item_LeadingZeroIndex_IsNotReplaced, ItemTests.Item_LeadingZeroAlignment_IsNotReplaced, ItemTests.Item_ZeroAlignment_IsNotReplaced, ItemTests.Precision_Zero_IsTheSameAsNone, ItemTests.DoubledBrace_IsNotAnEscape, ItemTests.Values_UnusedValue_RaisesFormatError, ItemTests.Values_MissingValue_RaisesFormatError, ItemTests.Values_IndexGap_RaisesFormatError, ItemTests.Values_NoValuesButAnItem_RaisesFormatError, ItemTests.Values_NoItems_IgnoresTheValues -->
 A format item is written
 
 ```
@@ -57,10 +58,13 @@ Debug.Print StringFormat("[{0, 8}]", 5)    ' [{0, 8}]
 Debug.Print StringFormat("[{00}]", 5)      ' [{00}]
 ```
 
+<!-- /test -->
+
 [**StringFormat**](PublicEntryPoints/StringFormat) describes how the items are processed. The properties of one item are held by a [**StringFormatSpecifier**](StringFormatSpecifier/).
 
 ## Format identifiers
 
+<!-- test: ItemTests.Identifier_TextValue_IsRefused, ItemTests.Identifier_NumericText_UsesTheNumericIdentifiers, ItemTests.Identifier_Boolean_UsesTheNumericIdentifiers, ItemTests.Error_NullValue_RaisesInvalidUseOfNull, ItemTests.Error_UnknownIdentifier_NumberSourceAndDescription, ItemTests.DotNet_NumberIdentifierN_DoesNotExist, CurrencyTests.Default_TwoDecimalPlacesAndATrailingDollar, CurrencyTests.Precision_SetsTheDecimalPlaces, DecimalTests.Default_IsTheWholeNumber, DecimalTests.Precision_PadsWithZeros, ExponentialTests.Default_SixDecimalPlaces, ExponentialTests.Precision_SetsTheDecimalPlaces, FixedPointTests.Default_TwoDecimalPlaces, FixedPointTests.Precision_SetsTheDecimalPlaces, GeneralTests.Integer_IsFormattedAsD, GeneralTests.Double_WithoutPrecision_IsExponential, GeneralTests.Double_ExponentAtOrAbovePrecision_IsExponential, GeneralTests.Double_ExponentBelowPrecision_IsFixedPoint, GeneralTests.Single_GivesTheValue, PercentRoundTripTests.Percent_Default_IsAWholeNumberOfPercent, PercentRoundTripTests.Percent_Precision_SetsTheDecimalPlaces, PercentRoundTripTests.RoundTrip_ConvertsTheValueToText, HexTests.Default_IsThePrefixAndTheDigits, HexTests.Precision_PadsWithZeros, HexTests.Precision_CutsFromTheLeft, HexTests.NumericPadding_NeverMatches -->
 The type of the value decides which identifiers an item can use. A value for which **IsNumeric** is **True** (a number, a **Boolean**, a **String** that looks like a number) uses the numeric identifiers. A value of type **Date** uses the date identifiers. A value of any other type takes no identifier. An identifier that does not suit the value raises error `-2147212503`, *Invalid format string*. A **Null** value raises error 94.
 
 ### Numeric values
@@ -98,8 +102,11 @@ Debug.Print StringFormat("{0:C}", 1234567.891)             ' 1,234,567.89$
 Debug.Print StringFormat("{0:C}", -5)                      ' -5.00$
 ```
 
+<!-- /test -->
+
 ### Dates
 
+<!-- test: DateTests.ShortDate_d, DateTests.LongDate_D, DateTests.LongDateShortTime_f, DateTests.LongDateLongTime_F, DateTests.ShortDateShortTime_g, DateTests.ShortDateLongTime_G, DateTests.Sortable_s, DateTests.ShortTime_t, DateTests.LongTime_T, DateTests.Custom_C_PassesTheTextToFormat, DateTests.Letters_AreCaseSensitiveExceptC, DateTests.TextAfterTheLetter_IsIgnoredExceptForC, DateTests.UnknownLetter_RaisesFormatError, DateTests.NumericIdentifier_ForADate_RaisesFormatError, ItemTests.DotNet_CustomDateFormat_IsRefused, ItemTests.Results_NumericResultsComeFromFormat, ItemTests.Results_DateResultsComeFromFormat -->
 The date identifiers are the letters of [**GenericDateTimeSFI**](GenericDateTimeSFI). They are case-sensitive, except `C`.
 
 | Identifier | Result | Example for 11 October 2026, 14:05:09 |
@@ -130,8 +137,11 @@ Debug.Print StringFormat("{0:Cyyyy-MM-dd}", d)  ' 2026-10-11
 > [!NOTE] timeless
 > The results come from **Format$**, so the decimal separator, the thousands separator and the layout of dates and times follow the Windows regional settings. The output shown for the currency and date identifiers is for an English (United States) system.
 
+<!-- /test -->
+
 ## Escape sequences
 
+<!-- test: EscapeTests.Newline_IsVbNewLine, EscapeTests.Quote_IsADoubleQuote, EscapeTests.Tab_IsVbTab, EscapeTests.Alert_And_Backspace_AreCodes7And8, EscapeTests.VerticalTab_FormFeed_CarriageReturn_AreCodes13_14_15, EscapeTests.HexEscape_GivesTheCharactersOfC, EscapeTests.HexEscape_TwoDigits, EscapeTests.OctalEscape_ThreeDigits, EscapeTests.HexEscape_InvalidDigits_RaisesTypeMismatch, EscapeTests.OctalEscape_InvalidDigits_RaisesTypeMismatch, EscapeTests.DoubledBackslash_IsOneBackslash, EscapeTests.UnknownEscape_StaysAsWritten, EscapeTests.Literal_AtSign_TurnsEscapesOff, EscapeTests.Values_EscapesInAValue_AreExpanded, EscapeTests.Literal_EscapesInAValue_AreNotExpanded -->
 The formatter replaces these sequences in the finished string, values included. A backslash that starts none of them stays as it is.
 
 | Sequence | Result |
@@ -163,8 +173,11 @@ Debug.Print StringFormat("@a\nb")       ' a\nb
 
 An `\xHH` or `\ooo` sequence with digits that are not valid in its base, such as `\xzz` or `\189`, raises error 13.
 
+<!-- /test -->
+
 ## Errors
 
+<!-- test: ItemTests.Error_WrongCount_NumberSourceAndDescription, ItemTests.Error_UnknownIdentifier_NumberSourceAndDescription, ItemTests.Error_NullValue_RaisesInvalidUseOfNull, ItemTests.Index_Word_RaisesTypeMismatch, EscapeTests.HexEscape_InvalidDigits_RaisesTypeMismatch, ItemTests.Values_NoValuesButAnItem_RaisesFormatError, FormerStringFormatTests.NonNumericValue_WithNumericIdentifier_RaisesInvalidNumberArgument, FormerStringFormatTests.WrongCount_HasTheSameNumberAndTextWithItsOwnSource -->
 | Number | Description | Raised when |
 |--------|-------------|-------------|
 | `-2147212503` (`vbObjectError Or 9001`) | *The number indicating an argument to format is less than zero, or greater than or equal to the length of the args array.* | The format string has items, and the distinct indexes do not number exactly the values, or the highest index is not below that number, or no values were given. |
@@ -174,8 +187,11 @@ An `\xHH` or `\ooo` sequence with digits that are not valid in its base, such as
 
 The first two have the source `StringHelper`. [**FormerStringFormat**](FormerEntryPoint/FormerStringFormat) raises the same numbers from the source `FormerStringFormat`, and adds `-2147212501` (`vbObjectError Or 9003`), *Invalid number argument*.
 
+<!-- /test -->
+
 ## Differences from .NET
 
+<!-- test: ItemTests.DoubledBrace_IsNotAnEscape, ItemTests.Index_Word_RaisesTypeMismatch, ItemTests.Values_UnusedValue_RaisesFormatError, ItemTests.DotNet_NumberIdentifierN_DoesNotExist, ItemTests.DotNet_CustomNumericFormat_IsRefused, ItemTests.DotNet_Precision_IsDecimalPlacesNotSignificantDigits, ItemTests.DotNet_CustomDateFormat_IsRefused, DateTests.Letters_AreCaseSensitiveExceptC, CurrencyTests.DollarSign_IsAfterTheNumber, HexTests.LowerCaseIdentifier_GivesALowerCaseResult, PercentRoundTripTests.RoundTrip_KeepsAtMost15SignificantDigits -->
 The function follows the notation of .NET's **String.Format** and departs from it in these ways:
 
 - Doubled braces do not escape a brace.
@@ -186,6 +202,7 @@ The function follows the notation of .NET's **String.Format** and departs from i
 - `C` writes a `$` after the number whatever the regional settings, `X` writes an `&H` prefix, and `R` keeps 15 significant digits.
 - Only the identifiers of the date table exist for dates, and they are case-sensitive. The custom format of a date is the `C` identifier with a **Format$** string, whose letters are VBA's.
 - Escape sequences are expanded by the function itself and use the C-style letters of the table above.
+<!-- /test -->
 
 ## Modules
 
@@ -250,3 +267,7 @@ Each of these implements [**IStringFormatIdentifier**](IStringFormatIdentifier)
 ## Other public names
 
 The package also exposes `HelloWorldClass`, `HelloWorldModule` and `Pootle`. They are test code that was left in the package, and they are not part of its formatting API. `HelloWorldClass.Show` and `HelloWorldModule.Show` each display a message box that says *Hello world!*, and `Pootle.SimpleTest` prints the results of four sample calls to **StringFormat** to the Immediate window. These three names have no pages.
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [Fmt-tests.twinproj](Fmt-tests.twinproj), a twinBASIC project. It uses Fmt as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/Generics/index.md b/docs/Reference/Contributed/Generics/index.md
index cf04e2db..14200fdd 100644
--- a/docs/Reference/Contributed/Generics/index.md
+++ b/docs/Reference/Contributed/Generics/index.md
@@ -17,12 +17,14 @@ The **Generics** contributed package provides seven tuple classes, **TupleOf1**
 
 A tuple lets a function return several values at once, without a user-defined type declared for the purpose or **ByRef** parameters for the results. Each class is a [generic class](../../../../Features/Language/Generics): **TupleOf2(Of Long, String)** holds a **Long** and a **String**, and its **Item1** and **Item2** properties return them with those types. The classes follow .NET's **System.Tuple** classes, and their source comments are taken from .NET's, under the MIT licence. This section documents version 1.0.0.0, published under the MIT licence.
 
+<!-- test: ItemTests.TupleOf3_ReturnsItemsInOrder -->
 ```tb check_build check_run
 Dim t As TupleOf3(Of String, Long, Date) = New TupleOf3(Of String, Long, Date)("Ada", 36, #12/10/1815#)
 Debug.Print t.Item1        ' Ada
 Debug.Print t.Item2        ' 36
 Debug.Print Year(t.Item3)  ' 1815
 ```
+<!-- /test -->
 
 ## Syntax
 
@@ -45,7 +47,9 @@ Debug.Print Year(t.Item3)  ' 1815
 *k*
 : The number of an item, 1 to *n*.
 
+<!-- test: ItemTests.TupleOf1_ReturnsItem, ItemTests.TupleOf2_ReturnsItemsInOrder, ItemTests.TupleOf3_ReturnsItemsInOrder, ItemTests.TupleOf5_ReturnsItemsInOrder, ItemTests.TupleOf6_ReturnsItemsInOrder, ItemTests.TupleOf7_ReturnsItemsInOrder -->
 **Item***k* returns the *k*th item, of type *Tk*. The properties are read-only: an item is set only when the tuple is created, and nothing changes it afterwards. The classes have no other members.
+<!-- /test -->
 
 | Class | Type parameters | Properties |
 |:------|:----------------|:-----------|
@@ -69,6 +73,7 @@ Set size = New TupleOf2(Of Long, Long)(640, 480)
 Debug.Print size.Item1 * size.Item2  ' 307200
 ```
 
+<!-- test: TupleTests.Function_ReturnsTuple -->
 A function that returns a tuple declares the tuple's type as its return type:
 
 ```tb check_build slot=file
@@ -95,7 +100,9 @@ Module GenericsMinMaxDemo
     End Sub
 End Module
 ```
+<!-- /test -->
 
+<!-- test: compile NewWithoutDeclaration -->
 > [!NOTE] BETA 1005
 > **New** with a generic class from a package compiles only when some declaration in the project or the package names the same class with the same type arguments. A variable declared with the tuple's type is such a declaration. Without one, `Dim t As Any = New TupleOf2(Of String, Long)("a", 2)` fails with TB5074, *Could not bind to parameterized constructor of class 'TupleOf2'*, and so does **New** assigned to an **Object** or **Variant** variable or passed as an argument. A generic class declared in the project's own code is not affected. Assign the tuple to a variable of its own type first; that variable can then be assigned to an **Object** or **Variant** variable, through which the items are read late-bound:
 >
@@ -106,6 +113,7 @@ End Module
 > Debug.Print o.Item1; o.Item2  ' width 640
 > ```
 
+<!-- test: TupleTests.New_KeepsACopyOfEachItem, TupleTests.New_ConversionOfAByteVariable, compile ByteVariableForLongItem -->
 The constructor's parameters are declared without **ByVal**, so they are **ByRef**. A variable passed for an item must have the item's type exactly: a **Byte** variable passed for a **Long** item fails with TB5001, *cannot coerce type 'Byte' to [ByRef] 'Long'*. A literal or any other expression is converted as usual, so wrap such a variable in a conversion function. The tuple keeps a copy of each value, and a later change to the variable does not change the tuple:
 
 ```tb check_build check_run
@@ -114,10 +122,12 @@ Dim t As TupleOf1(Of Long) = New TupleOf1(Of Long)(CLng(b))
 b = 1
 Debug.Print t.Item1  ' 200
 ```
+<!-- /test -->
 
 ## Reading the items
 
-Each item is read through its **Item** property, which returns it with the type it was declared with. A tuple is an object, so it is assigned with [**Set**](../../../Core/Set), and a variable that has not been assigned one is **Nothing**. Two tuples with equal items are still two objects: [**Is**](../../../Core/Is) compares the objects themselves, so the items are compared one by one. [**TypeName**](../../../Modules/Information/TypeName) returns the class's name without its type arguments:
+<!-- test: ItemTests.Items_KeepTheirDeclaredTypes, TupleTests.Variable_NotAssignedIsNothing, TupleTests.Is_TwoTuplesWithEqualItemsAreTwoObjects, TupleTests.TypeName_IsTheClassWithoutItsTypeArguments, TupleTests.LateBound_ReadsItemsThroughObject -->
+Each item is read through its **Item** property, which returns it with the type it was declared with. An **Object** or **Variant** variable that holds a tuple reads the items late-bound, through the same names. A tuple is an object, so it is assigned with [**Set**](../../../Core/Set), and a variable that has not been assigned one is **Nothing**. Two tuples with equal items are still two objects: [**Is**](../../../Core/Is) compares the objects themselves, so the items are compared one by one. [**TypeName**](../../../Modules/Information/TypeName) returns the class's name without its type arguments:
 
 ```tb check_build check_run
 Dim a As TupleOf2(Of Long, String) = New TupleOf2(Of Long, String)(1, "x")
@@ -126,22 +136,35 @@ Debug.Print TypeName(a)                              ' TupleOf2
 Debug.Print a Is b                                   ' False
 Debug.Print a.Item1 = b.Item1 And a.Item2 = b.Item2  ' True
 ```
+<!-- /test -->
 
 Unlike .NET's tuples, the classes have no method that compares two tuples or converts one to a string.
 
 ## Types of the items
 
-An item can have any numeric type, **String**, **Boolean**, **Date**, **Currency** or **LongPtr**. Three kinds of type cannot be used:
+<!-- test: ItemTests.Items_KeepTheirDeclaredTypes, ItemTests.Items_LongPtr, ItemTests.Items_DateKeepsTimeOfDay -->
+An item can have any numeric type, **String**, **Boolean**, **Date**, **Currency** or **LongPtr**.
+<!-- /test -->
+
+<!-- test: compile VariantTypeArgument -->
+Three kinds of type cannot be used:
 
 - **Variant.** twinBASIC refuses **Variant** as a type argument: TB5124, *Cannot pass Variant datatype as a generic specifier, use a more explicit type instead*.
-- **Object types.** The constructor stores each item with `=`, not with **Set**. A class whose default member takes an argument, such as **Collection**, fails to compile, with TB5092 *Missing argument 'Index'* reported in the package's source. **Object** compiles, but creating the tuple raises run-time error 91, *Object variable or With block variable not set*, even when the item passed is **Nothing**. So a tuple cannot hold another tuple either.
+- **Object types.** A tuple cannot hold an object, another tuple included; see the first note below.
 - **Arrays**, such as **Long()**.
+<!-- /test -->
+
+<!-- test: ObjectItemTests.New_ObjectItemHoldsAnObject, ObjectItemTests.New_ObjectItemHoldsNothing -->
+> [!NOTE] 1.0.0.0
+> The constructor stores each item with `=`, not with **Set**, so creating a tuple of an object type fails. For **Object**, which compiles, **New** raises run-time error 91, *Object variable or With block variable not set*, even when the item passed is **Nothing**. A class whose default member takes an argument, such as **Collection**, fails to compile, with TB5092 *Missing argument 'Index'* reported in the package's source.
 
+<!-- test: none -- the compiler crashes, so no program and no case can run; bugs/generic-array-type-argument-crash holds the reproducer -->
 > [!WARNING] BETA 1005
 > A tuple type with an array as a type argument, such as `TupleOf1(Of Long())`, crashes the compiler wherever it is written: in a declaration, a parameter, a function's result type or after **New**. The compiler restarts and crashes again, so nothing in the project compiles until the line is removed. The same happens with a generic class declared in a project's own code.
 
 ## TupleOf4
 
+<!-- test: compile TupleOf4FourTypeArguments -->
 > [!NOTE] 1.0.0.0
 > **TupleOf4** cannot be used. The package declares it with three type parameters, `TupleOf4(Of T1, T2, T3)`, but its fourth item uses a fourth, *T4*, which is not declared. With four type arguments, a declaration fails with TB5124, *Too many generic specifiers*. With three, the package's source fails with TB5079, *Unrecognized datatype symbol 'T4'*. A project that does not use **TupleOf4** is not affected. For four values, use **TupleOf5** and leave its last item unused.
 
@@ -150,3 +173,7 @@ An item can have any numeric type, **String**, **Boolean**, **Date**, **Currency
 - [Generics](../../../../Features/Language/Generics) -- generic classes, procedures and types in twinBASIC
 - [Parameterized class constructors](../../../../Features/Advanced/Classes-and-Modules#parameterized-class-constructors) -- the **Sub New** that each tuple class declares
 - [New](../../../Core/New) operator -- creates an object, passing arguments to its constructor
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [Generics-tests.twinproj](Generics-tests.twinproj), a twinBASIC project. It uses Generics as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/OLEGuids/IDataObject.md b/docs/Reference/Contributed/OLEGuids/IDataObject.md
index 7cfe7720..91ca5532 100644
--- a/docs/Reference/Contributed/OLEGuids/IDataObject.md
+++ b/docs/Reference/Contributed/OLEGuids/IDataObject.md
@@ -10,7 +10,9 @@ has_toc: false
 
 Names the COM interface that transfers data between applications, as the clipboard and drag and drop do; declared here as a stub with no methods.
 
+<!-- test: ImplementTests.IDataObject_AnswersToItsIdentifier -->
 **IDataObject** has the interface identifier `0000010E-0000-0000-C000-000000000046` and extends **stdole.IUnknown**. It is declared `[OleAutomation(False)]`. Its description marks it as a stub and points to the tbShellLib package for the full version. Microsoft Learn describes the Windows interface: [IDataObject](https://learn.microsoft.com/en-us/windows/win32/api/objidl/nn-objidl-idataobject).
+<!-- /test -->
 
 The stub declares none of the methods that get, set and describe data formats. The type exists so that other declarations of the package can name it: [**IRichEditOle.GetClipboardData**](IRichEditOle#getclipboarddata) and [**IRichEditOleCallback.GetClipboardData**](IRichEditOleCallback#getclipboarddata) return one, and [**IRichEditOle.ImportDataObject**](IRichEditOle#importdataobject) and [**IRichEditOleCallback.QueryAcceptData**](IRichEditOleCallback#queryacceptdata) take one. Nothing can be called through a variable of this type.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IDispatchUnrestricted.md b/docs/Reference/Contributed/OLEGuids/IDispatchUnrestricted.md
index c03f960b..a6274f41 100644
--- a/docs/Reference/Contributed/OLEGuids/IDispatchUnrestricted.md
+++ b/docs/Reference/Contributed/OLEGuids/IDispatchUnrestricted.md
@@ -16,6 +16,7 @@ Finds and calls the members of an automation object by name or by dispatch ident
 
 The declaration is complete: it has all four methods of the Windows interface. Each is a **Sub** that hides the HRESULT: a failure code raises a run-time error, and a success code other than `S_OK` is read with [**Err.LastHresult**](../../../Modules/ErrObject/LastHresult). The interface identifiers are the package's [OLECLSID](OLECLSID). **Invoke** takes its three structure parameters as pointers (**LongPtr**): the address of an [OLEDISPPARAMS](OLEDISPPARAMS), of a **Variant** and of an `EXCEPINFO` structure, from [**VarPtr**](../../../Modules/Information/VarPtr), or 0 where the parameter is optional.
 
+<!-- test: DispatchTests.StdoleIDispatch_CallIsLateBoundAndDoesNotReachTheMethods, DispatchTests.Assign_ObjectVariableToIDispatchUnrestricted, DispatchTests.Assign_StdoleIDispatchVariableToIDispatchUnrestricted, compile NoIDispatchInThePackage -->
 > [!NOTE] 1.0.10.0
 > The package has no declaration named **IDispatch**. A variable declared `As IDispatch` has the type of **stdole**, and a call through it is late-bound by name, so the four methods are not reached. To reach them, assign the object to an **IDispatchUnrestricted** variable. The assignment asks the object for the **IDispatch** interface, and it accepts an **Object** variable and a **stdole.IDispatch** variable alike. [IOleControlSite.GetExtendedControl](IOleControlSite#getextendedcontrol) returns a **stdole.IDispatch**.
 
@@ -38,7 +39,9 @@ The [IDispatch](../../../../Reference/COM-Interfaces/IDispatch) page in the COM
 Sub GetTypeInfoCount(ByRef pctInfo As Long)
 ```
 
+<!-- test: DispatchTests.GetTypeInfoCount_ClassObjectHasTypeInformation, DispatchTests.Assign_CollectionAsksForIDispatch -->
 Says whether the object can describe itself with type information. *pctInfo* receives 1 when the object has type information and 0 when it has none. An object of a twinBASIC class has it.
+<!-- /test -->
 
 ### GetTypeInfo
 
@@ -46,7 +49,9 @@ Says whether the object can describe itself with type information. *pctInfo* rec
 Sub GetTypeInfo(ByVal itinfo As Long, ByVal lcid As Long, ByRef pptinfo As LongPtr)
 ```
 
+<!-- test: DispatchTests.GetTypeInfo_IndexZeroReturnsTypeInformation, DispatchTests.GetTypeInfo_OtherIndexRaisesBadIndex -->
 Returns the object's type information, as an `ITypeInfo*` in *pptinfo*. *itinfo* is the index of the type information: 0 selects the type information of the object's own implementation of **IDispatch**. *lcid* is the locale of the information. An object of a twinBASIC class has the one description, and any other index raises run-time error -2147352565, which is `DISP_E_BADINDEX` (`&H8002000B`).
+<!-- /test -->
 
 ### GetIDsOfNames
 
@@ -56,6 +61,7 @@ Sub GetIDsOfNames(ByRef riid As OLEGuids.OLECLSID, ByRef rgszNames As LongPtr, B
 
 Converts the names of a member and its parameters into dispatch identifiers. *riid* is reserved: pass an [OLECLSID](OLECLSID) holding only zeros. *rgszNames* is the first element of an array of *cNames* pointers to Unicode strings, such as `StrPtr(name)` in a **LongPtr** variable, and *rgDispId* receives one identifier for each name.
 
+<!-- test: DispatchTests.GetIDsOfNames_KnownNameReturnsAnIdentifier, DispatchTests.GetIDsOfNames_UnknownNameRaisesError438 -->
 A name that the object does not have raises run-time error 438, *Object doesn't support this property or method*. **Err.LastHresult** then holds `DISP_E_UNKNOWNNAME` (`&H80020006`), and *rgDispId* holds -1 (`DISPID_UNKNOWN`).
 
 ```tb check_run
@@ -70,6 +76,7 @@ Debug.Print Err.Number            ' 438
 Debug.Print Hex(Err.LastHresult)  ' 80020006
 Debug.Print id                    ' -1
 ```
+<!-- /test -->
 
 ### Invoke
 
@@ -83,9 +90,13 @@ Calls the member with the dispatch identifier *DispId*. *riid* is reserved and h
 
 The package declares no `EXCEPINFO` type, and the **stdole** type cannot be used: some of its members are of unsigned types, which twinBASIC does not support, as VB6 does not, so a variable of it does not compile (TB5106). A project that wants the details declares a structure of the same layout with signed members, as the [IDispatch](../../../../Reference/COM-Interfaces/IDispatch) page does.
 
+<!-- test: DispatchTests.Invoke_MemberErrorWithoutExcepinfoIsRaisedAsItIs, DispatchTests.Invoke_MemberErrorWithExcepinfoRaisesDispEException -->
 A member that raises an error is reported in one of two ways. With *lpexcepinfo* set to 0, the member's own error is raised: an `Err.Raise 5, , "boom"` in the member raises error 5 with the description *boom*. With *lpexcepinfo* the address of a structure, the call raises error -2147352567, which is `DISP_E_EXCEPTION` (`&H80020009`), and the structure holds the error: *scode* is the Windows code of the member's error (`&H800A0005` for error 5), and *bstrSource* and *bstrDescription* are its source and description.
+<!-- /test -->
 
+<!-- test: DispatchTests.Invoke_UnknownIdentifierRaisesError438 -->
 An identifier that the object has no member for raises error 438. **Err.LastHresult** holds `DISP_E_MEMBERNOTFOUND` (`&H80020003`).
+<!-- /test -->
 
 ## Example
 
@@ -112,6 +123,7 @@ Class Calculator
 End Class
 ```
 
+<!-- test: DispatchTests.Invoke_CallsAMethodWithTheArgumentsInReverseOrder -->
 The arguments are an array of **Variant** values in **reverse** order: the last argument of the call is element 0. The call `Subtract(10, 3)` puts 3 in element 0 and 10 in element 1.
 
 ```tb check_run
@@ -134,6 +146,7 @@ Dim argErr As Long
 d.Invoke id, iid, 0, 1, VarPtr(params), VarPtr(result), 0, argErr
 Debug.Print result  ' 7
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/OLEGuids/IEnumVARIANTUnrestricted.md b/docs/Reference/Contributed/OLEGuids/IEnumVARIANTUnrestricted.md
index 0dde0e4e..543fefe3 100644
--- a/docs/Reference/Contributed/OLEGuids/IEnumVARIANTUnrestricted.md
+++ b/docs/Reference/Contributed/OLEGuids/IEnumVARIANTUnrestricted.md
@@ -18,8 +18,9 @@ The enumerator declared in **stdole** cannot be implemented from twinBASIC, beca
 
 The declaration extends **stdole.IDispatch**. The Windows **IEnumVARIANT** extends **IUnknown**.
 
+<!-- test: EnumVariantTests.Next_CallsTheSlotAfterIUnknown, EnumVariantTests.Skip_CallsTheSlotAfterNext, EnumVariantTests.Reset_CallsTheSlotAfterSkip, EnumVariantTests.Clone_CallsTheLastSlot -->
 > [!WARNING] 1.0.10.0
-> Because the declaration extends **stdole.IDispatch**, its four methods come after the seven of **IDispatch** in the method table, where the table of an **IEnumVARIANT** has them straight after the three of **IUnknown**. So every method called through this interface on a real enumerator, such as the one a **Collection** returns, calls a slot past the end of its table: **Next**, **Skip** and **Clone** end the program with an access violation, and **Reset** raises a run-time error or does nothing. **For Each** over an object whose enumerator is a class that implements this interface ends the program the same way, without calling any of the class's methods. A program that calls or writes an enumerator declares its own copy of the interface, which extends **stdole.IUnknown**, as the [IEnumVARIANT](../../../../Reference/COM-Interfaces/IEnumVARIANT) page in the COM Interfaces section shows.
+> Because the declaration extends **stdole.IDispatch**, its four methods come after the seven of **IDispatch** in the method table, where the table of an **IEnumVARIANT** has them straight after the three of **IUnknown**: **Next** is entry 7 of the table, not 3, **Skip** 8, **Reset** 9 and **Clone** 10. So every method called through this interface on a real enumerator, such as the one a **Collection** returns, calls an entry past the end of its table, and what that does depends on what lies there: **Next** on the enumerator of a **Collection** ends the program with an access violation. A program that calls or writes an enumerator declares its own copy of the interface, which extends **stdole.IUnknown**, as the [IEnumVARIANT](../../../../Reference/COM-Interfaces/IEnumVARIANT) page in the COM Interfaces section shows.
 
 The declaration is complete: it has all four methods of the Windows interface. Each is a **Sub**, so the HRESULT is hidden: a failure code raises a run-time error, and a success code such as `S_FALSE` is read with [**Err.LastHresult**](../../../Modules/ErrObject/LastHresult). The [IEnumVARIANT](../../../../Reference/COM-Interfaces/IEnumVARIANT) page in the COM Interfaces section gives the contract of the four methods, how **For Each** uses them, and a project's own declaration of the interface.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IObjectSafety.md b/docs/Reference/Contributed/OLEGuids/IObjectSafety.md
index af7d49b8..26db88fc 100644
--- a/docs/Reference/Contributed/OLEGuids/IObjectSafety.md
+++ b/docs/Reference/Contributed/OLEGuids/IObjectSafety.md
@@ -10,7 +10,9 @@ has_toc: false
 
 Lets a host ask an object which safety options it supports for an interface, and set them.
 
+<!-- test: ImplementTests.IObjectSafety_AnswersToItsIdentifier -->
 **IObjectSafety** has the interface identifier `CB5BDC81-93C1-11CF-8F20-00805F2CD064` and extends **stdole.IUnknown**. It is declared `[OleAutomation(False)]`. Microsoft Learn describes the Windows interface: [IObjectSafety](https://learn.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa768224(v=vs.85)).
+<!-- /test -->
 
 A host, such as a web browser that runs scripts, asks an object that may be called by untrusted code whether it agrees to be. An object implements the interface to say that it does. The declaration is complete: it has both methods of the Windows interface. They are **Sub** members, so the HRESULT is hidden: a failure code raises a run-time error, and a class that implements the interface sets [**Err.ReturnHResult**](../../../Modules/ErrObject/ReturnHResult) to return one. Neither method is marked `[PreserveSig]`, so a class can implement the interface.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IOleClientSite.md b/docs/Reference/Contributed/OLEGuids/IOleClientSite.md
index e1953f52..8fc5ee59 100644
--- a/docs/Reference/Contributed/OLEGuids/IOleClientSite.md
+++ b/docs/Reference/Contributed/OLEGuids/IOleClientSite.md
@@ -10,7 +10,9 @@ has_toc: false
 
 Names the container-side site of an embedded OLE object; declared here as a stub with no methods.
 
+<!-- test: ImplementTests.IOleClientSite_AnswersToItsIdentifier -->
 **IOleClientSite** has the interface identifier `00000118-0000-0000-C000-000000000046` and extends **stdole.IUnknown**. It is declared `[OleAutomation(False)]`. Its description marks it as a stub and points to the tbShellLib package for the full version.
+<!-- /test -->
 
 In Windows, a container implements the interface to give an embedded object the services of its site: saving the object, naming its moniker and container, showing it, and resizing it. Microsoft Learn describes the Windows interface: [IOleClientSite](https://learn.microsoft.com/en-us/windows/win32/api/oleidl/nn-oleidl-ioleclientsite).
 
diff --git a/docs/Reference/Contributed/OLEGuids/IOleControlVB.md b/docs/Reference/Contributed/OLEGuids/IOleControlVB.md
index 5cefe03d..b23e19f1 100644
--- a/docs/Reference/Contributed/OLEGuids/IOleControlVB.md
+++ b/docs/Reference/Contributed/OLEGuids/IOleControlVB.md
@@ -10,7 +10,9 @@ has_toc: false
 
 Visual Basic-style versions of the **IOleControl** methods **GetControlInfo** and **OnMnemonic**, which a class can implement.
 
+<!-- test: ImplementTests.IOleControlVB_AnswersToItsIdentifier -->
 **IOleControlVB** is not a Windows interface. It has the interface identifier `C895C8F9-6564-4123-8760-529F72AB9322` and extends **stdole.IDispatch**. It is not declared `[OleAutomation(False)]`, as the package's Windows interfaces are. Its two methods have the dispatch identifiers 1 and 2 (`[DispId(1)]` and `[DispId(2)]`).
+<!-- /test -->
 
 It exists because [**IOleControl**](IOleControl) has `[PreserveSig]` members, which a twinBASIC class cannot implement. Each method here is a **Sub** that corresponds to one of those two methods, with signature types that Visual Basic code uses. The other two methods of **IOleControl**, **OnAmbientPropertyChange** and **FreezeEvents**, have no counterpart.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IOleInPlaceActiveObjectVB.md b/docs/Reference/Contributed/OLEGuids/IOleInPlaceActiveObjectVB.md
index 3ab07e27..0d089b49 100644
--- a/docs/Reference/Contributed/OLEGuids/IOleInPlaceActiveObjectVB.md
+++ b/docs/Reference/Contributed/OLEGuids/IOleInPlaceActiveObjectVB.md
@@ -10,7 +10,9 @@ has_toc: false
 
 A Visual Basic-style version of **IOleInPlaceActiveObject.TranslateAccelerator**, which a class can implement.
 
+<!-- test: ImplementTests.IOleInPlaceActiveObjectVB_AnswersToItsIdentifier -->
 **IOleInPlaceActiveObjectVB** is not a Windows interface. It has the interface identifier `38584260-0CFB-45E7-8FBB-5D20B311F5B8` and extends **stdole.IDispatch**. It is not declared `[OleAutomation(False)]`, as the package's Windows interfaces are.
+<!-- /test -->
 
 It exists because [**IOleInPlaceActiveObject**](IOleInPlaceActiveObject) has `[PreserveSig]` members, which a twinBASIC class cannot implement. This interface has one **Sub** that corresponds to the **TranslateAccelerator** method of that interface, with signature types that Visual Basic code uses.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IOleInPlaceObjectWindowlessVB.md b/docs/Reference/Contributed/OLEGuids/IOleInPlaceObjectWindowlessVB.md
index fadd9d50..dcc38512 100644
--- a/docs/Reference/Contributed/OLEGuids/IOleInPlaceObjectWindowlessVB.md
+++ b/docs/Reference/Contributed/OLEGuids/IOleInPlaceObjectWindowlessVB.md
@@ -10,7 +10,9 @@ has_toc: false
 
 A Visual Basic-style version of **IOleInPlaceObjectWindowless.OnWindowMessage**, which a class can implement.
 
+<!-- test: ImplementTests.IOleInPlaceObjectWindowlessVB_AnswersToItsIdentifier -->
 **IOleInPlaceObjectWindowlessVB** is not a Windows interface. It has the interface identifier `061D3A2F-A213-4016-9756-B89140604819` and extends **stdole.IDispatch**. It is not declared `[OleAutomation(False)]`, as the package's Windows interfaces are. Its one method has the dispatch identifier 1 (`[DispId(1)]`).
+<!-- /test -->
 
 It exists because [**IOleInPlaceObjectWindowless**](IOleInPlaceObjectWindowless) has `[PreserveSig]` members, which a twinBASIC class cannot implement. This interface has one **Sub** that corresponds to the **OnWindowMessage** method of that interface, with signature types that Visual Basic code uses. **GetDropTarget** has no counterpart.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IOleWindow.md b/docs/Reference/Contributed/OLEGuids/IOleWindow.md
index 3b6618b2..4ab2d2c7 100644
--- a/docs/Reference/Contributed/OLEGuids/IOleWindow.md
+++ b/docs/Reference/Contributed/OLEGuids/IOleWindow.md
@@ -10,7 +10,9 @@ has_toc: false
 
 Returns the handle of a window that an OLE object or container uses, and turns context-sensitive help mode on and off.
 
+<!-- test: ImplementTests.IOleWindow_AnswersToItsIdentifier -->
 **IOleWindow** has the interface identifier `00000114-0000-0000-C000-000000000046` and extends **stdole.IUnknown**. It is declared `[OleAutomation(False)]`. Microsoft Learn describes the Windows interface: [IOleWindow](https://learn.microsoft.com/en-us/windows/win32/api/oleidl/nn-oleidl-iolewindow).
+<!-- /test -->
 
 It is the base of the in-place activation interfaces: [IOleInPlaceObject](IOleInPlaceObject), [IOleInPlaceUIWindow](IOleInPlaceUIWindow) (and through it [IOleInPlaceFrame](IOleInPlaceFrame)) and [IOleInPlaceSite](IOleInPlaceSite) extend it. Neither method is marked `[PreserveSig]`, so the HRESULT is hidden: a failure code raises a run-time error.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IPerPropertyBrowsingVB.md b/docs/Reference/Contributed/OLEGuids/IPerPropertyBrowsingVB.md
index 5e98d667..175bb0cb 100644
--- a/docs/Reference/Contributed/OLEGuids/IPerPropertyBrowsingVB.md
+++ b/docs/Reference/Contributed/OLEGuids/IPerPropertyBrowsingVB.md
@@ -10,7 +10,9 @@ has_toc: false
 
 Visual Basic-style versions of three **IPerPropertyBrowsing** methods, which a class can implement.
 
+<!-- test: ImplementTests.IPerPropertyBrowsingVB_AnswersToItsIdentifier -->
 **IPerPropertyBrowsingVB** is not a Windows interface. It has the interface identifier `D5D3BBE3-DB60-4522-AF5B-D767FE736DDB` and extends **stdole.IDispatch**. It is not declared `[OleAutomation(False)]`, as the package's Windows interfaces are. Its three methods have the dispatch identifiers 1, 2 and 3 (`[DispId(1)]`, `[DispId(2)]` and `[DispId(3)]`).
+<!-- /test -->
 
 It exists because [**IPerPropertyBrowsing**](IPerPropertyBrowsing) has `[PreserveSig]` members, which a twinBASIC class cannot implement. Each method here is a **Sub** that corresponds to one of that interface's methods, and uses Visual Basic types in place of pointers: a **String** for a `BSTR*`, and arrays of **String** and **Long** for the counted arrays. **MapPropertyToPage** has no counterpart.
 
diff --git a/docs/Reference/Contributed/OLEGuids/ISpecifyPropertyPages.md b/docs/Reference/Contributed/OLEGuids/ISpecifyPropertyPages.md
index 673d3ac8..0af52e46 100644
--- a/docs/Reference/Contributed/OLEGuids/ISpecifyPropertyPages.md
+++ b/docs/Reference/Contributed/OLEGuids/ISpecifyPropertyPages.md
@@ -10,7 +10,9 @@ has_toc: false
 
 Lets an object list the class identifiers of its property pages.
 
+<!-- test: ImplementTests.ISpecifyPropertyPages_AnswersToItsIdentifier -->
 **ISpecifyPropertyPages** has the interface identifier `B196B28B-BAB4-101A-B69C-00AA00341D07` and extends **stdole.IUnknown**. It is declared `[OleAutomation(False)]`. Microsoft Learn describes the Windows interface: [ISpecifyPropertyPages](https://learn.microsoft.com/en-us/windows/win32/api/ocidl/nn-ocidl-ispecifypropertypages).
+<!-- /test -->
 
 The declaration is complete: it has the one method of the Windows interface. The method is a **Sub**, so the HRESULT is hidden: a failure code raises a run-time error.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IStorage.md b/docs/Reference/Contributed/OLEGuids/IStorage.md
index 3f22e8e3..cf97471e 100644
--- a/docs/Reference/Contributed/OLEGuids/IStorage.md
+++ b/docs/Reference/Contributed/OLEGuids/IStorage.md
@@ -10,7 +10,9 @@ has_toc: false
 
 Names the COM structured-storage interface, which holds streams and nested storages in a compound file; declared here as a stub with no methods.
 
+<!-- test: ImplementTests.IStorage_AnswersToItsIdentifier -->
 **IStorage** has the interface identifier `0000000B-0000-0000-C000-000000000046` and extends **stdole.IUnknown**. It is declared `[OleAutomation(False)]`. Its description marks it as a stub and points to the tbShellLib package for the full version. Microsoft Learn describes the Windows interface: [IStorage](https://learn.microsoft.com/en-us/windows/win32/api/objidl/nn-objidl-istorage).
+<!-- /test -->
 
 The stub declares none of the methods that create, open, copy, enumerate and commit streams and storages. The type exists so that other declarations of the package can name it: [**IRichEditOle.SaveCompleted**](IRichEditOle#savecompleted) takes one, and [**IRichEditOleCallback.GetNewStorage**](IRichEditOleCallback#getnewstorage) and [**IRichEditOleCallback.QueryInsertObject**](IRichEditOleCallback#queryinsertobject) pass one. Nothing can be called through a variable of this type.
 
diff --git a/docs/Reference/Contributed/OLEGuids/IUnknownUnrestricted.md b/docs/Reference/Contributed/OLEGuids/IUnknownUnrestricted.md
index 14adb82b..4c523212 100644
--- a/docs/Reference/Contributed/OLEGuids/IUnknownUnrestricted.md
+++ b/docs/Reference/Contributed/OLEGuids/IUnknownUnrestricted.md
@@ -25,10 +25,13 @@ See [IUnknown](../../../../Reference/COM-Interfaces/IUnknown) for the contract o
 Function QueryInterface(ByVal priid As LongPtr, ByRef ppvObject As LongPtr) As Long
 ```
 
+<!-- test: UnknownTests.QueryInterface_SupportedInterfaceReturnsSOk, UnknownTests.QueryInterface_UnsupportedInterfaceOfCollectionReturnsENoInterface, UnknownTests.QueryInterface_UnsupportedInterfaceOfClassObjectReturnsENoInterface, UnknownTests.QueryInterface_ReturnedPointerHoldsAReference -->
 Asks the object for another interface. *priid* is the address of the interface identifier requested, such as the address of an [OLECLSID](OLECLSID) variable. *ppvObject* is passed by reference and receives the interface pointer. The result is the HRESULT: 0 (`S_OK`) on success, `&H80004002` (`E_NOINTERFACE`) when the interface is not supported.
 
 A pointer that **QueryInterface** returns comes with a reference, which the caller gives back with **Release**.
+<!-- /test -->
 
+<!-- test: UnknownTests.QueryInterface_UnsupportedInterfaceOfClassObjectSetsPointerToZero, UnknownTests.QueryInterface_UnsupportedInterfaceOfCollectionSetsPointerToZero -->
 > [!NOTE] BETA 1005
 > When the interface is not supported, the COM contract sets *ppvObject* to 0. An object of a class that the project compiles --- a class, a form, a control --- returns `E_NOINTERFACE` and leaves the variable as it was. The runtime's own objects, such as a **Collection**, set it to 0, as every object of VB6 does. Set the variable to 0 before the call, and test the result rather than the pointer.
 
@@ -51,6 +54,7 @@ Debug.Print p        ' 0
 Function AddRef() As Long
 ```
 
+<!-- test: UnknownTests.AddRef_Release_ReturnTheNewCount -->
 Adds a reference to the object and returns the new reference count.
 
 ### Release
@@ -61,9 +65,11 @@ Function Release() As Long
 ```
 
 Removes a reference from the object and returns the new reference count. An object whose count reaches 0 may free itself.
+<!-- /test -->
 
 ## Example
 
+<!-- test: UnknownTests.Example_ReferenceCountIncludesTheProcedureVariables -->
 This function adds a reference and removes it again, and returns the object's reference count at that moment. The count includes the references that the procedure's own variables hold.
 
 ```tb check_build
@@ -73,6 +79,7 @@ Private Function ReferenceCount(ByVal Obj As Object) As Long
     Return u.Release()
 End Function
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/OLEGuids/OLEACCELMSG.md b/docs/Reference/Contributed/OLEGuids/OLEACCELMSG.md
index 33a30fc5..17308c67 100644
--- a/docs/Reference/Contributed/OLEGuids/OLEACCELMSG.md
+++ b/docs/Reference/Contributed/OLEGuids/OLEACCELMSG.md
@@ -8,9 +8,12 @@ has_toc: false
 # OLEACCELMSG type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLEACCELMSG_HasTheLayoutOfMsg -->
 A window message, with the layout of the Windows `MSG` structure.
 
 **OLEACCELMSG** is a user-defined type declared in the package's `OLEGuids` module, so both `OLEACCELMSG` and `OLEGuids.OLEACCELMSG` name it. It mirrors the Windows structure [MSG](https://learn.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-msg).
+<!-- /test -->
+
 ```tb inert=signature
 Public Type OLEACCELMSG
     hWnd As LongPtr
diff --git a/docs/Reference/Contributed/OLEGuids/OLECADWORD.md b/docs/Reference/Contributed/OLEGuids/OLECADWORD.md
index c19b7972..bfc1c2a1 100644
--- a/docs/Reference/Contributed/OLEGuids/OLECADWORD.md
+++ b/docs/Reference/Contributed/OLEGuids/OLECADWORD.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLECADWORD type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLECADWORD_HasTheLayoutOfCadword -->
 A counted array of 32-bit values, with the layout of the Windows `CADWORD` structure.
 
 **OLECADWORD** is a user-defined type declared in the package's `OLEGuids` module, so both `OLECADWORD` and `OLEGuids.OLECADWORD` name it. It mirrors the Windows structure [CADWORD](https://learn.microsoft.com/en-us/windows/win32/api/ocidl/ns-ocidl-cadword), which holds the number of elements of an array and the address of the array.
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLECADWORD
diff --git a/docs/Reference/Contributed/OLEGuids/OLECALPOLESTR.md b/docs/Reference/Contributed/OLEGuids/OLECALPOLESTR.md
index f9dc1b3f..a25867d6 100644
--- a/docs/Reference/Contributed/OLEGuids/OLECALPOLESTR.md
+++ b/docs/Reference/Contributed/OLEGuids/OLECALPOLESTR.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLECALPOLESTR type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLECALPOLESTR_HasTheLayoutOfCalpolestr -->
 A counted array of pointers to Unicode strings, with the layout of the Windows `CALPOLESTR` structure.
 
 **OLECALPOLESTR** is a user-defined type declared in the package's `OLEGuids` module, so both `OLECALPOLESTR` and `OLEGuids.OLECALPOLESTR` name it. It mirrors the Windows structure [CALPOLESTR](https://learn.microsoft.com/en-us/windows/win32/api/ocidl/ns-ocidl-calpolestr), which holds the number of elements of an array and the address of the array.
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLECALPOLESTR
diff --git a/docs/Reference/Contributed/OLEGuids/OLECAUUID.md b/docs/Reference/Contributed/OLEGuids/OLECAUUID.md
index dca35087..92f37116 100644
--- a/docs/Reference/Contributed/OLEGuids/OLECAUUID.md
+++ b/docs/Reference/Contributed/OLEGuids/OLECAUUID.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLECAUUID type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLECAUUID_HasTheLayoutOfCauuid -->
 A counted array of GUIDs, with the layout of the Windows `CAUUID` structure.
 
 **OLECAUUID** is a user-defined type declared in the package's `OLEGuids` module, so both `OLECAUUID` and `OLEGuids.OLECAUUID` name it. It mirrors the Windows structure [CAUUID](https://learn.microsoft.com/en-us/windows/win32/api/ocidl/ns-ocidl-cauuid), which holds the number of elements of an array and the address of the array.
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLECAUUID
diff --git a/docs/Reference/Contributed/OLEGuids/OLECLSID.md b/docs/Reference/Contributed/OLEGuids/OLECLSID.md
index 025a4198..dc35a431 100644
--- a/docs/Reference/Contributed/OLEGuids/OLECLSID.md
+++ b/docs/Reference/Contributed/OLEGuids/OLECLSID.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLECLSID type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLECLSID_HasTheLayoutOfGuid -->
 A class or interface identifier, with the layout of the Windows `GUID` structure.
 
 **OLECLSID** is a user-defined type declared in the package's `OLEGuids` module, so both `OLECLSID` and `OLEGuids.OLECLSID` name it. It mirrors the Windows structure [GUID](https://learn.microsoft.com/en-us/windows/win32/api/guiddef/ns-guiddef-guid), which the interface declarations use for a class identifier (CLSID) and for an interface identifier (IID) alike.
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLECLSID
diff --git a/docs/Reference/Contributed/OLEGuids/OLECONTROLINFO.md b/docs/Reference/Contributed/OLEGuids/OLECONTROLINFO.md
index 404c1582..8a5f8d98 100644
--- a/docs/Reference/Contributed/OLEGuids/OLECONTROLINFO.md
+++ b/docs/Reference/Contributed/OLEGuids/OLECONTROLINFO.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLECONTROLINFO type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLECONTROLINFO_HasTheLayoutOfControlinfo -->
 The keyboard mnemonic table of an OLE control, with the layout of the Windows `CONTROLINFO` structure.
 
 **OLECONTROLINFO** is a user-defined type declared in the package's `OLEGuids` module, so both `OLECONTROLINFO` and `OLEGuids.OLECONTROLINFO` name it. It mirrors the Windows structure [CONTROLINFO](https://learn.microsoft.com/en-us/windows/win32/api/ocidl/ns-ocidl-controlinfo).
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLECONTROLINFO
diff --git a/docs/Reference/Contributed/OLEGuids/OLEDISPPARAMS.md b/docs/Reference/Contributed/OLEGuids/OLEDISPPARAMS.md
index a224497e..bdc199a0 100644
--- a/docs/Reference/Contributed/OLEGuids/OLEDISPPARAMS.md
+++ b/docs/Reference/Contributed/OLEGuids/OLEDISPPARAMS.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLEDISPPARAMS type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLEDISPPARAMS_HasTheLayoutOfDispparams -->
 The arguments of a call through **IDispatch.Invoke**, with the layout of the Windows `DISPPARAMS` structure.
 
 **OLEDISPPARAMS** is a user-defined type declared in the package's `OLEGuids` module, so both `OLEDISPPARAMS` and `OLEGuids.OLEDISPPARAMS` name it. It mirrors the Windows structure [DISPPARAMS](https://learn.microsoft.com/en-us/windows/win32/api/oaidl/ns-oaidl-dispparams), which holds the addresses and the counts of the arguments and of the named arguments of a call.
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLEDISPPARAMS
@@ -37,7 +39,10 @@ End Type
 
 A variable that is not filled in holds only zeros, which is a call with no arguments.
 
+<!-- test: DispatchTests.Invoke_AssignsAPropertyWithPropertyPut -->
 An assignment to a property passes the new value as the only argument, named with the reserved identifier `DISPID_PROPERTYPUT` (-3): *cArgs* and *cNamedArgs* are 1, and *rgdispidNamedArgs* is the address of a **Long** holding -3. The [IDispatch](../../../../Reference/COM-Interfaces/IDispatch#the-dispparams-structure) page in the COM Interfaces section describes the structure further.
+<!-- /test -->
+
 
 ## Where it is used
 
diff --git a/docs/Reference/Contributed/OLEGuids/OLEINPLACEFRAMEINFO.md b/docs/Reference/Contributed/OLEGuids/OLEINPLACEFRAMEINFO.md
index 830b0135..ddf1174a 100644
--- a/docs/Reference/Contributed/OLEGuids/OLEINPLACEFRAMEINFO.md
+++ b/docs/Reference/Contributed/OLEGuids/OLEINPLACEFRAMEINFO.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLEINPLACEFRAMEINFO type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLEINPLACEFRAMEINFO_HasTheLayoutOfOleinplaceframeinfo -->
 The accelerator information of a container's frame window in in-place activation, with the layout of the Windows `OLEINPLACEFRAMEINFO` structure.
 
 **OLEINPLACEFRAMEINFO** is a user-defined type declared in the package's `OLEGuids` module, so both `OLEINPLACEFRAMEINFO` and `OLEGuids.OLEINPLACEFRAMEINFO` name it. It mirrors the Windows structure [OLEINPLACEFRAMEINFO](https://learn.microsoft.com/en-us/windows/win32/api/oleidl/ns-oleidl-oleinplaceframeinfo).
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLEINPLACEFRAMEINFO
diff --git a/docs/Reference/Contributed/OLEGuids/OLEPOINT.md b/docs/Reference/Contributed/OLEGuids/OLEPOINT.md
index c5858001..91f88972 100644
--- a/docs/Reference/Contributed/OLEGuids/OLEPOINT.md
+++ b/docs/Reference/Contributed/OLEGuids/OLEPOINT.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLEPOINT type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLEPOINT_HasTheLayoutOfPoint -->
 A point, with the layout of the Windows `POINT` structure.
 
 **OLEPOINT** is a user-defined type declared in the package's `OLEGuids` module, so both `OLEPOINT` and `OLEGuids.OLEPOINT` name it. It mirrors the Windows structure [POINT](https://learn.microsoft.com/en-us/windows/win32/api/windef/ns-windef-point).
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLEPOINT
diff --git a/docs/Reference/Contributed/OLEGuids/OLERECT.md b/docs/Reference/Contributed/OLEGuids/OLERECT.md
index ee2bf7ea..8a073e1b 100644
--- a/docs/Reference/Contributed/OLEGuids/OLERECT.md
+++ b/docs/Reference/Contributed/OLEGuids/OLERECT.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLERECT type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLERECT_HasTheLayoutOfRect -->
 A rectangle, with the layout of the Windows `RECT` structure.
 
 **OLERECT** is a user-defined type declared in the package's `OLEGuids` module, so both `OLERECT` and `OLEGuids.OLERECT` name it. It mirrors the Windows structure [RECT](https://learn.microsoft.com/en-us/windows/win32/api/windef/ns-windef-rect), which holds the coordinates of the upper-left and lower-right corners of a rectangle.
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLERECT
diff --git a/docs/Reference/Contributed/OLEGuids/OLESIZE.md b/docs/Reference/Contributed/OLEGuids/OLESIZE.md
index 8f9e56bb..85446519 100644
--- a/docs/Reference/Contributed/OLEGuids/OLESIZE.md
+++ b/docs/Reference/Contributed/OLEGuids/OLESIZE.md
@@ -8,9 +8,11 @@ has_toc: false
 # OLESIZE type
 {: .no_toc }
 
+<!-- test: TypeLayoutTests.OLESIZE_HasTheLayoutOfSize -->
 A width and a height, with the layout of the Windows `SIZE` structure.
 
 **OLESIZE** is a user-defined type declared in the package's `OLEGuids` module, so both `OLESIZE` and `OLEGuids.OLESIZE` name it. It mirrors the Windows structure [SIZE](https://learn.microsoft.com/en-us/windows/win32/api/windef/ns-windef-size).
+<!-- /test -->
 
 ```tb inert=signature
 Public Type OLESIZE
diff --git a/docs/Reference/Contributed/OLEGuids/index.md b/docs/Reference/Contributed/OLEGuids/index.md
index 2d4e5a52..e601eaf9 100644
--- a/docs/Reference/Contributed/OLEGuids/index.md
+++ b/docs/Reference/Contributed/OLEGuids/index.md
@@ -22,6 +22,7 @@ Add the package in Project → References (Ctrl-T) → Available Packages. The i
 - **Call it.** Declare a variable of the interface type and assign an object to it. The assignment asks the object for that interface, and a call through the variable runs the object's method.
 - **Implement it.** Name it in an [**Implements**](../../../Core/Implements) statement in a class, and write each method. A class cannot implement an interface that has a `[PreserveSig]` member (see [How the declarations differ from Windows](#how-the-declarations-differ-from-windows)).
 
+<!-- test: TypeLayoutTests.QualifiedName_NamesTheTypeThroughTheModule, ImplementTests.Function_ResultTakesThePlaceOfTheOutputParameter -->
 A name can be written bare (`IOleWindow`, `OLERECT`) or qualified with the package name (`OLEGuids.IOleWindow`, `OLEGuids.OLERECT`). The eleven structures are declared in a module named `OLEGuids`, which is why the qualified form works for them; the module has no page of its own.
 
 ```tb check_build
@@ -30,7 +31,9 @@ Private Function InPlaceWindow(ByVal Obj As Object) As LongPtr
     Return w.GetWindow()
 End Function
 ```
+<!-- /test -->
 
+<!-- test: DispatchTests.StdoleIDispatch_CallIsLateBoundAndDoesNotReachTheMethods, DispatchTests.Assign_ObjectVariableToIDispatchUnrestricted, DispatchTests.Assign_StdoleIDispatchVariableToIDispatchUnrestricted, compile NoIDispatchInThePackage -->
 > [!NOTE] 1.0.10.0
 > The package has no declaration named **IDispatch**. In a project that references **stdole**, as every default project does, the name is **stdole**'s declaration. A call through it is late-bound by name, and its four methods are not reached (see [IDispatch](../../../../Reference/COM-Interfaces/IDispatch#the-stdole-declaration)). The package's [IDispatchUnrestricted](IDispatchUnrestricted) declares the four methods, and an object is assigned to a variable of that type like any other interface.
 
@@ -47,12 +50,15 @@ End Function
 
 The interfaces that exist in Windows have their original interface identifiers, so an object written in another language can be called through them. The declarations differ from the C headers in these ways:
 
+<!-- test: ImplementTests.Sub_SuccessCodeRaisesNoErrorAndIsReadWithLastHresult, ImplementTests.Sub_FailureCodeRaisesAnError, ImplementTests.Function_ResultTakesThePlaceOfTheOutputParameter, ImplementTests.VBInterface_ClassCanBeCalledThroughIt, compile ImplementIUnknownUnrestricted, compile ImplementIOleObject, compile ImplementIOleInPlaceObjectWindowless, compile ImplementIOleControl, compile ImplementIOleControlSite, compile ImplementIOleInPlaceActiveObject, compile ImplementIOleInPlaceSite, compile ImplementIPerPropertyBrowsing, compile ImplementIRichEditOle -->
 - **The HRESULT is hidden.** A **Sub**, and a **Function** that is not marked `[PreserveSig]`, returns nothing of the Windows method's HRESULT. A failure code raises a run-time error, and a success code other than `S_OK` is read with [**Err.LastHresult**](../../../Modules/ErrObject/LastHresult). Where the Windows method has an output parameter for its result, the **Function**'s result takes its place.
 - **`[PreserveSig]` members return the raw HRESULT** as a **Long**. A twinBASIC class cannot implement a member marked [**[PreserveSig]**](../../../Core/Attributes#preservesig): the compiler reports TB5004, *unable to match this implementation to its interface member*. The interfaces with such a member are for calling, not for implementing: [IUnknownUnrestricted](IUnknownUnrestricted), [IOleObject](IOleObject), [IOleInPlaceObjectWindowless](IOleInPlaceObjectWindowless), [IOleControl](IOleControl), [IOleControlSite](IOleControlSite), [IOleInPlaceActiveObject](IOleInPlaceActiveObject), [IOleInPlaceSite](IOleInPlaceSite), [IPerPropertyBrowsing](IPerPropertyBrowsing) and [IRichEditOle](IRichEditOle). A class sets [**Err.ReturnHResult**](../../../Modules/ErrObject/ReturnHResult) to return a specific HRESULT from a **Sub** it implements.
 - **Pointers are `LongPtr`.** A parameter that is a pointer to a structure or to an interface the package does not declare (a `RECT*`, a `MSG*`, an `IMoniker*`) is a **LongPtr**. Pass the address of a variable with [**VarPtr**](../../../Modules/Information/VarPtr), or `StrPtr` for a string.
 - **Some declarations are partial.** [IOleObject](IOleObject) declares the first nine of the 21 methods of the Windows interface. The four stub interfaces --- [IOleClientSite](IOleClientSite), [IOleInPlaceFrame](IOleInPlaceFrame), [IStorage](IStorage) and [IDataObject](IDataObject) --- declare no methods; their description says to use the tbShellLib package for the full version. A stub is useful for naming the type of a parameter or a variable, not for calling.
 - **Seven declarations are variants of a Windows interface.** [IUnknownUnrestricted](IUnknownUnrestricted) has no base interface, which makes the three methods of **IUnknown** callable. [IDispatchUnrestricted](IDispatchUnrestricted) declares the four methods of **IDispatch**, which the **stdole** declaration does not reach. [IEnumVARIANTUnrestricted](IEnumVARIANTUnrestricted) declares the **IEnumVARIANT** enumerator with **Long** counts. [IOleInPlaceActiveObjectVB](IOleInPlaceActiveObjectVB), [IOleControlVB](IOleControlVB), [IPerPropertyBrowsingVB](IPerPropertyBrowsingVB) and [IOleInPlaceObjectWindowlessVB](IOleInPlaceObjectWindowlessVB) are not Windows interfaces: they have Visual Basic-style signatures that a class can implement.
 
+<!-- /test -->
+
 Every interface except the four `VB` variants is declared `[OleAutomation(False)]`, so it is not marked as an Automation interface. The contract of each method is that of the Windows interface, which Microsoft Learn documents; each interface page links to it.
 
 ## Interfaces
@@ -96,3 +102,7 @@ Every interface except the four `VB` variants is declared `[OleAutomation(False)
 - [OLEPOINT](OLEPOINT) -- a point, with the layout of the Windows **POINT** structure
 - [OLERECT](OLERECT) -- a rectangle, with the layout of the Windows **RECT** structure
 - [OLESIZE](OLESIZE) -- a width and a height, with the layout of the Windows **SIZE** structure
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [OLEGuids-tests.twinproj](OLEGuids-tests.twinproj), a twinBASIC project. It uses OLEGuids as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB/Consts.md b/docs/Reference/Contributed/TBMANLIB/Consts.md
index 292b1e8f..036ae4c8 100644
--- a/docs/Reference/Contributed/TBMANLIB/Consts.md
+++ b/docs/Reference/Contributed/TBMANLIB/Consts.md
@@ -8,7 +8,9 @@ has_toc: false
 # Consts module
 {: .no_toc }
 
+<!-- test: SharedInstanceTests.Consts_HoldsTheMediaTypesAndHeaderNames -->
 Constants for HTTP requests: media types for the `Content-Type` header and the names of two header fields. [**cHttpClient**](cHttpClient) uses them; a program can use them to set the headers of a request. Eight constants, all **String**.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print Consts.TOOLS_HTTP_CONTENT_TYPE_JSON
@@ -58,7 +60,9 @@ The same media types are also declared in [**ToolsHttp**](ToolsHttp) with other
 ### TOOLS_HTTP_HEADER_FIELD_CONTENT_LENGHT
 {: .no_toc }
 
+<!-- test: HttpRequestTests.Fetch_Body_IsSentAsItIsWithTheTwoLengthHeaders -->
 The text `Content-Lenght`. The name of the constant and its text both misspell `Content-Length`. [**cHttpClient**](cHttpClient) sends a header with this name, with the size of the body, on every request that has a body. Servers do not read it: WinHTTP adds the correct `Content-Length` header by itself, so a request carries both.
+<!-- /test -->
 
 ### TOOLS_HTTP_HEADER_FIELD_CONTENT_TYPE
 {: .no_toc }
diff --git a/docs/Reference/Contributed/TBMANLIB/TBMAN.md b/docs/Reference/Contributed/TBMANLIB/TBMAN.md
index 42ae8ce0..59b2f1a8 100644
--- a/docs/Reference/Contributed/TBMANLIB/TBMAN.md
+++ b/docs/Reference/Contributed/TBMANLIB/TBMAN.md
@@ -20,7 +20,9 @@ Debug.Print TypeName(TBMAN.Json)
 ' cJson
 ```
 
+<!-- test: SharedInstanceTests.TBMAN_HoldsOneSharedInstanceOfEachMainClass -->
 The variables are declared `As New`, so each object is created the first time it is used. Because the instance is shared, its state is shared: the document in [**Json**](#json), the data in [**Csv**](#csv) and the settings in [**Logs**](#logs) are the same wherever the program reads them. A program that needs two documents, or logs with different settings, makes its own objects with `New`.
+<!-- /test -->
 
 The name of the package can be put in front of the name of the module, as `TBMANLIB.TBMAN.Json`, when another package the project references also has a module named **TBMAN**.
 
@@ -102,7 +104,9 @@ Returns a version number as text.
 
 Syntax: **TBMAN.Version** **As String**
 
+<!-- test: SharedInstanceTests.TBMAN_Version_IsMadeFromTheAppOfTheProgram -->
 The text is `v`, then `App.Major`, a period, `App.Minor`, a period and `App.Build`. The `App` is that of the program that uses the package, not that of the package: in a program whose version is 2.3.4.7 (major, minor, revision, build), the result is `v2.3.7`. The revision number is not in the text, and the version of the package, 1.0.0.29, is not in it either.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB/Tools.md b/docs/Reference/Contributed/TBMANLIB/Tools.md
index 38c99d24..748fa59e 100644
--- a/docs/Reference/Contributed/TBMANLIB/Tools.md
+++ b/docs/Reference/Contributed/TBMANLIB/Tools.md
@@ -8,6 +8,7 @@ has_toc: false
 # Tools module
 {: .no_toc }
 
+<!-- test: SharedInstanceTests.Tools_HoldsTheSharedInstancesOfCToolsStrAndCToolsStream -->
 The module that holds the shared instances **ToolsStr** and **ToolsStream**. Its two public variables let a program write `ToolsStr.TrimEx(...)` and `ToolsStream.LoadFileAsText(...)` with no `New`, as it could when these two were modules of the package. The module has no procedures.
 
 ```tb check_build check_run
@@ -23,6 +24,7 @@ Debug.Print TypeName(ToolsStream)
 ```
 
 The two names can be written alone, as in the first line of the example, because the members of the module are found without the name of the module. The names `TBMANLIB.Tools.ToolsStr` and `TBMANLIB.ToolsStr` also work, and are needed when another package the project references has a member of the same name.
+<!-- /test -->
 
 * TOC
 {:toc}
diff --git a/docs/Reference/Contributed/TBMANLIB/ToolsArray.md b/docs/Reference/Contributed/TBMANLIB/ToolsArray.md
index e030d1bd..77c09903 100644
--- a/docs/Reference/Contributed/TBMANLIB/ToolsArray.md
+++ b/docs/Reference/Contributed/TBMANLIB/ToolsArray.md
@@ -47,6 +47,7 @@ Syntax: **ToolsArray.DeArray** ( *Arr* **,** *OutVars* )
 *OutVars*
 : *required* Any number of variables, in a **ParamArray**. The first element of *Arr* is assigned to the first variable, the second element to the second variable, and so on. An argument that is left out, as in `a, , c`, is skipped, and its variable is not changed.
 
+<!-- test: ArrayTests.DeArray_AssignsElementsToVariablesAndSkipsOmittedOnes -->
 The copying stops at the last element of *Arr* or at the last variable, whichever comes first. The source says that an array whose lower bound is not 0 is not handled.
 
 ```tb check_build check_run
@@ -57,6 +58,7 @@ Debug.Print a & c
 ' Output:
 ' xz
 ```
+<!-- /test -->
 
 ### Extend
 {: .no_toc }
@@ -65,7 +67,11 @@ Unfinished. The source marks it with a note that means *to be continued*.
 
 Syntax: **ToolsArray.Extend** ( *Vars* ) **=** *Value*
 
-A property that is meant to assign the elements of the array *Value* to the elements of the array *Vars*. It assigns into the array *Vars* itself, so variables from which *Vars* was built, as in `Extend(Array(a, c)) = ...`, are not changed.
+A property that is meant to assign the elements of the array *Value* to the elements of the array *Vars*.
+
+<!-- test: ArrayTests.Extend_AssignsTheElementsToTheVariables -->
+> [!NOTE] 1.0.0.29
+> The property assigns into the array *Vars* itself, so variables from which *Vars* was built, as in `Extend(Array(a, c)) = ...`, are not changed.
 
 ### FindByteArray
 {: .no_toc }
@@ -80,7 +86,9 @@ Syntax: **ToolsArray.FindByteArray** ( *Arr* **,** *Keyword* ) **As Long**
 *Keyword*
 : *required* A **Byte** array, the bytes to find.
 
+<!-- test: ArrayTests.FindByteArray_ReturnsThePositionOrMinusOne -->
 Returns the position of the first place in *Arr* where all the bytes of *Keyword* follow one another, counted from the lower bound of *Arr*. Returns -1 if there is no such place. The comparison is exact, byte by byte.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Hay() As Byte
@@ -106,7 +114,9 @@ Syntax: **ToolsArray.GetArrayLength** ( *Arr* ) **As Long**
 *Arr*
 : *required* An array of **Variant**, such as the result of **Array**. An array of another type, such as the **String** array that **Split** returns, is not accepted by the parameter.
 
+<!-- test: ArrayTests.GetArrayLength_ReturnsTheNumberOfElements -->
 Returns the upper bound less the lower bound, plus 1. An array that has not been dimensioned raises error 9.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print ToolsArray.GetArrayLength(Array(10, 20, 30))
@@ -127,7 +137,9 @@ Syntax: **ToolsArray.GetIndexByValue** ( *Arr* **,** *Value* ) **As Long**
 *Value*
 : *required* A **String**, the value to find. Each element is compared with it by the `=` operator.
 
+<!-- test: ArrayTests.GetIndexByValue_ReturnsTheIndexOrMinusOne -->
 Returns the index of the first element that equals *Value*, in the numbering of the array, or -1 if there is none.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print ToolsArray.GetIndexByValue(Array("a", "b", "c"), "b")
@@ -147,7 +159,9 @@ Syntax: **ToolsArray.IsArrayEmpty** ( *Arr* ) **As Boolean**
 *Arr*
 : *required* A **Variant** that holds an array.
 
+<!-- test: ArrayTests.IsArrayEmpty_TellsEmptyFromFilled -->
 Returns **True** when the lower bound of *Arr* is greater than its upper bound, as in `Array()`, and also when the bounds cannot be read, as for an array that has not been dimensioned.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Empty1() As Long
@@ -178,6 +192,7 @@ Syntax: **ToolsArray.SliceByteArray** ( *Arr* **,** *StartPos* [ **,** *EndPos*
 
 Returns a new **Byte** array, from 0, with the bytes from *StartPos* to *EndPos*. The positions are not checked against the array. The function copies with **RtlMoveMemory**, so a position outside the array makes it read memory that does not belong to the array.
 
+<!-- test: ArrayTests.SliceByteArray_StartEqualsEnd_ReturnsTheOneByte, ArrayTests.SliceByteArray_EndBeforeStart_ReturnsOneZeroElement -->
 > [!WARNING] 1.0.0.29
 > When *EndPos* is equal to *StartPos*, the function does not return the one byte. It returns an array with one element, holding 0, as it does when *EndPos* is less than *StartPos*; the test in the source is a strict "less than". [**SliceLongArray**](#slicelongarray) does not have this error.
 
@@ -191,6 +206,7 @@ Debug.Print UBound(Part) & " " & Part(0)
 ' 0 0
 ```
 
+<!-- test: ArrayTests.SliceByteArray_Range_ReturnsTheBytesFromStartToEnd -->
 ```tb check_build check_run
 Dim Bytes() As Byte
 Dim Part() As Byte
@@ -204,6 +220,7 @@ Debug.Print ToolsStr.ToString(Part)
 ' Hello
 ' World
 ```
+<!-- /test -->
 
 ### SliceLongArray
 {: .no_toc }
@@ -221,7 +238,9 @@ Syntax: **ToolsArray.SliceLongArray** ( *Arr* **,** *StartPos* [ **,** *EndPos*
 *EndPos*
 : *optional* A **Long**, the position of the last element to copy, which is included. The default of -1 means the end of the array.
 
+<!-- test: ArrayTests.SliceLongArray_Range_ReturnsTheElementsFromStartToEnd -->
 Returns a new **Long** array, from 0, with the elements from *StartPos* to *EndPos*. When *EndPos* is less than *StartPos*, the result is an array with one element holding 0. As for [**SliceByteArray**](#slicebytearray), the positions are not checked against the array.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Longs() As Long
@@ -255,6 +274,7 @@ Syntax: **ToolsArray.SplitByteArray** ( *Arr* **,** *position* [ **,** *Offset*
 *Offset*
 : *optional* A **Long**, 0 by default, the number of bytes to leave out between the two parts: the second part starts at *position* + *Offset*.
 
+<!-- test: ArrayTests.SplitByteArray_SplitsAtAPositionWithAnOffset -->
 Returns a **Variant** array of two elements. Element 0 is a **Byte** array of the first *position* bytes, and element 1 is a **Byte** array of the bytes from *position* + *Offset* to the end. If *position* is at or past the end of *Arr*, the first part is *Arr* and the second part is an array with one element holding 0. The second part is also that array when *position* + *Offset* is at or past the end.
 
 ```tb check_build check_run
@@ -277,8 +297,11 @@ Debug.Print UBound(P) & " " & P(0)
 ' two
 ' 0 0
 ```
+<!-- /test -->
 
+<!-- test: ArrayTests.SplitByteArray_PositionZero_RaisesUnspecifiedError -->
 A *position* of 0 raises the error *Unspecified error* (-2147467259), because the first part would be dimensioned with an upper bound of -1.
+<!-- /test -->
 
 ### SplitByteArrayByKeyword
 {: .no_toc }
@@ -296,7 +319,13 @@ Syntax: **ToolsArray.SplitByteArrayByKeyword** ( *ByteArray* **,** *Keyword* [ *
 *SplitCount*
 : *optional* A **Long**, 0 by default. When it is greater than 0, the array is split at no more than that many occurrences, and the rest of the array is the last part.
 
-Returns a **Variant** array, from 0, of **Byte** arrays: the parts between the occurrences of the keyword, in order. The keyword itself is in none of them. If the keyword does not occur, there is one part, a copy of the array. A keyword at the very end leaves a last part that is an array with one element holding 0, and not an empty array. A keyword at the very start raises the error of a *position* of 0 in [**SplitByteArray**](#splitbytearray), *Unspecified error* (-2147467259).
+<!-- test: ArrayTests.SplitByteArrayByKeyword_SplitsAtEachKeyword -->
+Returns a **Variant** array, from 0, of **Byte** arrays: the parts between the occurrences of the keyword, in order. The keyword itself is in none of them. If the keyword does not occur, there is one part, a copy of the array.
+<!-- /test -->
+
+<!-- test: ArrayTests.SplitByteArrayByKeyword_KeywordAtStart_GivesAnEmptyFirstPart, ArrayTests.SplitByteArrayByKeyword_KeywordAtEnd_GivesAnEmptyLastPart -->
+> [!WARNING] 1.0.0.29
+> A keyword at the very start raises the error of a *position* of 0 in [**SplitByteArray**](#splitbytearray), *Unspecified error* (-2147467259). A keyword at the very end leaves a last part that is an array with one element holding 0, and not an empty array.
 
 ```tb check_build check_run
 Dim Bytes() As Byte
@@ -340,7 +369,9 @@ Syntax: **ToolsArray.StringToByteArray** ( *St* ) **As Byte()**
 *St*
 : *required* A **String**.
 
+<!-- test: ArrayTests.StringToByteArray_ReturnsTheAnsiBytes -->
 Returns the bytes of *St* in the ANSI code page of the system, one byte for each character of a single-byte code page, with **StrConv** and **vbFromUnicode**. A character that the code page does not have is not kept as written. To get UTF-8 bytes, use [**ToolsUtf8.Encode**](ToolsUtf8#encode).
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print UBound(ToolsArray.StringToByteArray("abc"))
diff --git a/docs/Reference/Contributed/TBMANLIB/ToolsCN.md b/docs/Reference/Contributed/TBMANLIB/ToolsCN.md
index bf848704..0fb4de9c 100644
--- a/docs/Reference/Contributed/TBMANLIB/ToolsCN.md
+++ b/docs/Reference/Contributed/TBMANLIB/ToolsCN.md
@@ -27,8 +27,11 @@ Syntax: **ToolsCN.GetPinYin** ( *CnChar* ) **As String**
 
 For each character, the code takes the number that **Asc** returns for it. A number from 1 to 159 is an ASCII character and is copied. A number from -20319 to -10247 is the code of a Chinese character in the GBK code page, which **Asc** returns as a negative number on a computer whose code page is a Chinese one; the function looks up the syllable of the table with the greatest start code that does not exceed that number, and returns it with a capital first letter (`Zhong`). Any other character is dropped. The syllables are joined with no separator.
 
+<!-- test: MathCnTests.GetPinYin_EmptyString_ReturnsAnEmptyString -->
 An empty string returns an empty string.
+<!-- /test -->
 
+<!-- test: MathCnTests.GetPinYin_EnglishLetterDigitAndSpace_AreCopied, MathCnTests.GetPinYin_ChineseCharacter_ReturnsItsPinyin, MathCnTests.GetPinYin_OtherCharacter_IsDropped -->
 > [!NOTE] 1.0.0.29
 > The function raises error -2147467259, *Unspecified error*, for any text that holds a character with a code from 1 to 159, such as an English letter, a digit or a space. The line that copies such a character is written `G = Chr(Num)()`, with a pair of parentheses after the call to **Chr**, which returns a **Variant**, and that raises the error when it runs. On a computer whose code page is not a Chinese one, a Chinese character becomes `?`, code 63, so it raises the error too. Any other character is dropped with no error: `GetPinYin(ChrW(233))` returns an empty string. The same pair of parentheses after the call to **Asc** on the line before has no effect. The loop over the characters also uses the variable `i` for its own search through the table, so on a Chinese code page it would skip characters after a Chinese character.
 
diff --git a/docs/Reference/Contributed/TBMANLIB/ToolsDic.md b/docs/Reference/Contributed/TBMANLIB/ToolsDic.md
index 5ae9f284..9eca7b18 100644
--- a/docs/Reference/Contributed/TBMANLIB/ToolsDic.md
+++ b/docs/Reference/Contributed/TBMANLIB/ToolsDic.md
@@ -34,7 +34,13 @@ Syntax: **ToolsDic.DeepCopy** ( *srcDic* ) **As Scripting.Dictionary**
 *srcDic*
 : *required* A **Scripting.Dictionary**. It is not changed.
 
-Returns a new dictionary with the same keys and values. Only the first level is copied: where a value is an object, such as a dictionary or a collection, the copy holds the same object, not a copy of it. The source says that a recursive copy is still to be written. The copy has the default comparison mode, whatever the mode of the source.
+<!-- test: DicTests.DeepCopy_FirstLevel_CopiesKeysAndValues -->
+Returns a new dictionary with the same keys and values. The copy has the default comparison mode, whatever the mode of the source.
+<!-- /test -->
+
+<!-- test: DicTests.DeepCopy_NestedDictionary_IsCopied -->
+> [!WARNING] 1.0.0.29
+> Only the first level is copied. Where a value is an object, such as a dictionary or a collection, the copy holds the same object, not a copy of it, so a change made through the copy reaches the source. The source says that a recursive copy is still to be written.
 
 ```tb check_build check_run
 Dim A As New Scripting.Dictionary
@@ -63,7 +69,13 @@ Syntax: **ToolsDic.FromWwwFormUrlencoded** ( *Content* **,** *Dic* ) **As Boolea
 *Dic*
 : *required* A **Scripting.Dictionary** that receives the pairs. A name that it already holds gets the new value, and the other entries stay.
 
-The name and the value of each pair lose the spaces at their ends. A pair with an empty name is skipped. A pair with no `=` gets an empty value. A value that holds an `=` is cut at it: in `a=b=c` the value is `b`. The text is not percent-decoded, so `%20` and `+` stay as written, and a value that holds `&` cannot be expressed. The function always returns **True**. The source says that values that are arrays are still to be handled.
+<!-- test: DicTests.FromWwwFormUrlencoded_ReadsPairsAndTrimsThem, DicTests.FromWwwFormUrlencoded_ExistingNameGetsTheNewValue -->
+The name and the value of each pair lose the spaces at their ends. A pair with an empty name is skipped. A pair with no `=` gets an empty value. The function always returns **True**. The source says that values that are arrays are still to be handled.
+<!-- /test -->
+
+<!-- test: DicTests.FromWwwFormUrlencoded_ValueWithEqualsSign_KeepsTheRest, DicTests.FromWwwFormUrlencoded_PercentEscapes_AreDecoded -->
+> [!WARNING] 1.0.0.29
+> A value that holds an `=` is cut at it: in `a=b=c` the value is `b`. The text is not decoded, so `%20` and `+` stay as written, and a value that holds `&` cannot be expressed.
 
 ### OverWrite
 {: .no_toc }
@@ -81,8 +93,11 @@ Syntax: **ToolsDic.OverWrite** ( *DistDic* **,** *srcDic* [ **,** *OnlyKey* ] )
 *OnlyKey*
 : *optional* A **Boolean**, **True** by default. When it is **True**, only the keys that *DistDic* already has are written, so the structure of *DistDic* stays as it is. When it is **False**, every key of *srcDic* is written, and the missing ones are added.
 
+<!-- test: DicTests.OverWrite_NestedDictionary_IsUpdatedInPlace -->
 Where a value of *srcDic* is an object, the method calls itself for that key with the two objects, so the nested dictionary of *DistDic* is updated in place and not replaced. A value that is not an object is assigned.
+<!-- /test -->
 
+<!-- test: DicTests.OverWrite_OnlyKeyFalse_NestedDictionaryMissingInTarget_IsAdded -->
 > [!NOTE] 1.0.0.29
 > With *OnlyKey* set to **False**, a nested dictionary of *srcDic* whose key *DistDic* does not have makes the recursive call receive an empty value for the missing key, where it needs a dictionary. The call raises error 424, *Object required*, and *DistDic* keeps the key that was looked up, with the value **Empty**.
 
@@ -112,6 +127,7 @@ Debug.Print A.Exists("m") & " " & IsEmpty(A("m"))
 ' True True
 ```
 
+<!-- test: DicTests.OverWrite_OnlyKey_WritesTheKeysTheTargetHas -->
 ```tb check_build check_run
 Dim A As New Scripting.Dictionary
 Dim B As New Scripting.Dictionary
@@ -129,6 +145,7 @@ Debug.Print A("z")
 ' 1 20 False
 ' 30
 ```
+<!-- /test -->
 
 ### TowLevelDicAssign
 {: .no_toc }
@@ -149,7 +166,9 @@ Syntax: **ToolsDic.TowLevelDicAssign** ( *Dic* **,** *Lv1Name* **,** *Lv2Name* *
 *Value*
 : *required* A **Variant**, the value to store under *Lv2Name*.
 
+<!-- test: DicTests.TowLevelDicAssign_CreatesAndUpdatesTheInnerDictionary -->
 The name has *Tow* for *Two*. If the inner dictionary exists, the value replaces the value of *Lv2Name*, or adds it. If it does not, a new dictionary is made, it receives the value, and *Dic* receives the new dictionary.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim D As New Scripting.Dictionary
diff --git a/docs/Reference/Contributed/TBMANLIB/ToolsFso.md b/docs/Reference/Contributed/TBMANLIB/ToolsFso.md
index e7990213..b280e69a 100644
--- a/docs/Reference/Contributed/TBMANLIB/ToolsFso.md
+++ b/docs/Reference/Contributed/TBMANLIB/ToolsFso.md
@@ -20,7 +20,7 @@ Debug.Print ToolsFso.MakeNewFileFulPath("C:\data\a.json", "old")
 ' a_old.json
 ```
 
-[**cJson**](cJson) uses **AutoCompleteFullPath** and **AutoMakeDir** to find and prepare the file for its [**SaveTo**](cJson#saveto), and [**cCsv**](cCsv) uses **AutoMakeDir**.
+[**cJson**](cJson) uses **AutoCompleteFullPath** and **AutoMakeDir** to find and prepare the file for its [**SaveTo**](cJson#saveto), and [**cIni**](cIni) uses **AutoMakeDir** for its [**SaveTo**](cIni#saveto).
 
 * TOC
 {:toc}
@@ -40,10 +40,13 @@ Syntax: **ToolsFso.AutoCompleteFullPath** ( *Path* [ **,** *IsFile* ] ) **As Str
 *IsFile*
 : *optional* A **Boolean**, **False** by default. Set it to **True** when *Path* names a file. When it is **False**, the result ends with a backslash, as the path of a folder does.
 
+<!-- test: FsoTests.AutoCompleteFullPath_RelativePath_StartsAtAppPath -->
 If *Path* does not contain the two characters `:\` anywhere, it is taken to be relative: `App.Path`, a backslash and *Path* are joined, and the result goes through [**ClearSpan**](#clearspan). A path that contains `:\` goes through **ClearSpan** alone. In a debug run, `App.Path` is the folder of the project.
+<!-- /test -->
 
+<!-- test: FsoTests.AutoCompleteFullPath_DriveWithForwardSlashes_IsComplete, FsoTests.AutoCompleteFullPath_NetworkPath_IsComplete, FsoTests.ClearSpan_NetworkPath_KeepsItsTwoLeadingBackslashes -->
 > [!NOTE] 1.0.0.29
-> Only `:\` marks a path as complete. A path with a drive letter written with forward slashes, such as `C:/data/a.json`, and a network path such as `\\server\share\a.json` do not contain it, so they are given the folder of the program in front of them and come out wrong.
+> Only `:\` marks a path as complete. A path with a drive letter written with forward slashes, such as `C:/data/a.json`, and a network path such as `\\server\share\a.json` do not contain it, so they are given the folder of the program in front of them and come out wrong. [**ClearSpan**](#clearspan) also turns the two backslashes at the start of a network path into one.
 
 ### AutoMakeDir
 {: .no_toc }
@@ -58,10 +61,10 @@ Syntax: **ToolsFso.AutoMakeDir** ( *Path* [ **,** *IsFile* ] ) **As String**
 *IsFile*
 : *optional* A **Boolean**, **False** by default. When it is **True**, *Path* names a file, and the folders that are created are those of its parent folder. When it is **False**, the whole of *Path* is taken to be a folder.
 
+<!-- test: FsoTests.AutoMakeDir_IsFileTrue_CreatesTheFoldersOfTheFile, FsoTests.AutoMakeDir_IsFileFalse_MakesTheLastNameAFolder -->
 All the folders of the path that do not exist are created, by the Windows function **MakeSureDirectoryPathExists**. The function returns the path of the folder after [**ClearSpan**](#clearspan), so it ends with a backslash. The result of the Windows function is not tested: if a folder cannot be created, no error is raised. That function takes ANSI text, so a folder name that has characters outside the system code page is not created as written.
 
-> [!WARNING] 1.0.0.29
-> With *IsFile* left at **False**, the last name of the path becomes a folder: `AutoMakeDir("C:\data\log.txt")` creates a folder named `log.txt`. Pass **True** for a file. [**cCsv.SaveTo**](cCsv#saveto) calls the function without it.
+With *IsFile* left at **False**, the whole path is a folder, so the last name of the path becomes one: `AutoMakeDir("C:\data\log.txt")` creates a folder named `log.txt`. Pass **True** for a file.
 
 ```tb check_build check_run
 Dim Base As String
@@ -77,6 +80,7 @@ RmDir Base
 ' True
 ' True
 ```
+<!-- /test -->
 
 ### ClearSpan
 {: .no_toc }
@@ -91,7 +95,9 @@ Syntax: **ToolsFso.ClearSpan** ( *Path* [ **,** *IsFile* ] ) **As String**
 *IsFile*
 : *optional* A **Boolean**, **False** by default. When it is **False**, a backslash is added at the end of *Path* first.
 
+<!-- test: FsoTests.ClearSpan_ReplacesSlashesOneStepAtATime -->
 The function makes four replacements, one after the other, on the whole string: each pair of backslashes becomes one, each pair of forward slashes becomes one backslash, each backslash followed by a forward slash becomes one backslash, and each remaining forward slash becomes a backslash. Each replacement is made once, from left to right, so a run of four backslashes becomes two, not one. A network path loses one of the two backslashes at its start.
+<!-- /test -->
 
 ### Inst
 {: .no_toc }
@@ -114,8 +120,11 @@ Syntax: **ToolsFso.MakeNewFileFulPath** ( *FileSrc* **,** *AppendFix* [ **,** *J
 *JoinStr*
 : *optional* A **String**, `_` by default. It is placed between the base name and *AppendFix*.
 
+<!-- test: FsoTests.MakeNewFileFulPath_NoFolder_ReturnsTheNewName -->
 Returns the base name of *FileSrc*, then *JoinStr*, then *AppendFix*, a period and the extension of *FileSrc*: `MakeNewFileFulPath("C:\data\a.json", "old")` returns `a_old.json`.
+<!-- /test -->
 
+<!-- test: FsoTests.MakeNewFileFulPath_ReturnsTheNewNameWithTheFolder, FsoTests.MakeNewFileFulPath_NoExtension_HasNoTrailingPeriod -->
 > [!NOTE] 1.0.0.29
 > Despite the word *FulPath* in the name, the result holds no folder. The function reads the folder of *FileSrc* and does not use it. Join the result to the folder with `&`. A file name with no extension gives a result that ends with a period.
 
diff --git a/docs/Reference/Contributed/TBMANLIB/ToolsHttp.md b/docs/Reference/Contributed/TBMANLIB/ToolsHttp.md
index 05a08cb4..7e8577b1 100644
--- a/docs/Reference/Contributed/TBMANLIB/ToolsHttp.md
+++ b/docs/Reference/Contributed/TBMANLIB/ToolsHttp.md
@@ -29,7 +29,9 @@ Debug.Print ToolsHttp.MapMethodName(ReqPut)
 
 ## Constants
 
+<!-- test: SharedInstanceTests.Consts_HoldsTheMediaTypesAndHeaderNames -->
 The eight constants repeat the ones in [**Consts**](Consts) under shorter names. All are **String**.
+<!-- /test -->
 
 ### C_CONTENT_TYPE_FORM_MULTIPART
 {: .no_toc }
@@ -89,7 +91,9 @@ The content types that [**cHttpClient.SetRequestContentType**](cHttpClient#setre
 ### EnumRequestMethod
 {: .no_toc }
 
+<!-- test: HttpToolsTests.MapMethod_MapMethodName_UseTheListOfMethodNames -->
 The methods of a request, for [**cHttpClient.Fetch**](cHttpClient#fetch) and [**cHttpClient.Send**](cHttpClient#send). The value is the position of the name in the list `ANY`, `POST`, `GET`, `PUT`, `DELETE`, `OPTIONS` that [**MapMethod**](#mapmethod) and [**MapMethodName**](#mapmethodname) use.
+<!-- /test -->
 
 | Member | Value | Method |
 |:-------|:------|:-------|
@@ -114,7 +118,9 @@ Syntax: **ToolsHttp.AddToQueryString** ( *Url* **,** *QS* ) **As String**
 *QS*
 : *required* A **String**, the text to add.
 
+<!-- test: HttpToolsTests.AddToQueryString_PutsTheTextAfterTheNameVer -->
 Returns *Url* followed by `?ver=` and *QS*, or by `&ver=` and *QS* when *Url* already has a `?`. The text `ver=` is always inserted, so *QS* is the value of a parameter named `ver`; see the warning at [**cHttpClient.RequestDataQuery**](cHttpClient#requestdataquery), which calls the function.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print ToolsHttp.AddToQueryString("http://host/p", "a=1")
@@ -134,7 +140,9 @@ Syntax: **ToolsHttp.MakeContent** ( *Dic* ) **As String**
 *Dic*
 : *required* A **Scripting.Dictionary**.
 
+<!-- test: HttpToolsTests.MakeContent_JoinsPairsWithoutEncodingThem -->
 Returns the keys and items as `key=value` pairs joined by `&`, in the order of the dictionary, or an empty string for an empty dictionary. Nothing is encoded. Compare [**ToolsDic.FromWwwFormUrlencoded**](ToolsDic#fromwwwformurlencoded), which does the reverse.
+<!-- /test -->
 
 ### MapMethod
 {: .no_toc }
@@ -167,7 +175,13 @@ Syntax: **ToolsHttp.ParseContent** ( *Content* **,** *Obj* ) **As Boolean**
 *Obj*
 : *required* A **Scripting.Dictionary**. It receives the pairs; an earlier item of the same key is replaced and the other items stay.
 
-Each pair is cut at its first `=` and both parts are trimmed. A pair without `=` gets an empty value, and a pair whose name is empty is skipped. The text is not decoded: `%20` stays as it is. The function returns **False** always, whatever it did, because it never assigns its result; read the dictionary instead.
+<!-- test: HttpToolsTests.ParseContent_ReadsPairsIntoTheDictionary -->
+Each pair is cut at its first `=` and both parts are trimmed. A pair without `=` gets an empty value, and a pair whose name is empty is skipped. The text is not decoded: `%20` stays as it is.
+<!-- /test -->
+
+<!-- test: HttpToolsTests.ParseContent_ReturnsTrueWhenThePairsAreRead -->
+> [!WARNING] 1.0.0.29
+> The function returns **False** always, whatever it did, because it never assigns its result. Read the dictionary instead.
 
 ```tb check_build check_run
 Dim Form As New Scripting.Dictionary
@@ -193,7 +207,13 @@ Syntax: **ToolsHttp.ParseKeyValue** ( *Content* **,** *Obj* ) **As Boolean**
 *Obj*
 : *required* A **Scripting.Dictionary**. It receives one item per line.
 
-Each line is cut at its first colon and both parts are trimmed, so the value of a line that has more colons is cut: `Date: Tue, 13 Oct 2026 18:00:00 GMT` is stored as `Tue, 13 Oct 2026 18`. A line without a colon becomes an item with the empty text, and an empty line (the last line of a header block is empty) becomes the item with the empty key. Like [**ParseContent**](#parsecontent), the function returns **False** always. [**cHttpClient**](cHttpClient) calls it to fill [**ResponseHeaders**](cHttpClient#responseheaders).
+<!-- test: HttpToolsTests.ParseKeyValue_ReadsHeaderLines -->
+Each line is cut at its first colon and both parts are trimmed. A line without a colon becomes an item with the empty text, and an empty line (the last line of a header block is empty) becomes the item with the empty key. [**cHttpClient**](cHttpClient) calls the function to fill [**ResponseHeaders**](cHttpClient#responseheaders).
+<!-- /test -->
+
+<!-- test: HttpToolsTests.ParseKeyValue_ValueWithColons_IsKeptWhole, HttpToolsTests.ParseKeyValue_ReturnsTrueWhenTheLinesAreRead -->
+> [!WARNING] 1.0.0.29
+> The value of a line that has more colons is cut at its second one: `Date: Tue, 13 Oct 2026 18:00:00 GMT` is stored as `Tue, 13 Oct 2026 18`, and `Location: http://host/path` as `http`. Like [**ParseContent**](#parsecontent), the function returns **False** always.
 
 ```tb check_build check_run
 Dim Head As New Scripting.Dictionary
@@ -215,7 +235,9 @@ Decodes `%XX` escapes, assuming the Chinese code page GB2312.
 
 Syntax: **ToolsHttp.UrlDecode** ( *Url* ) **As String**
 
+<!-- test: HttpToolsTests.UrlDecode_LowEscapes_AreDecoded -->
 *Url* is a **String**. A `%XX` below hex 80 becomes the character with that code. A `%XX` of hex 80 or above is combined with the `%XX` after it into one double-byte character, and the pair is converted with **Chr$**. The function does not turn `+` into a space.
+<!-- /test -->
 
 That conversion works only where the ANSI code page is a double-byte one, such as GBK. On a computer with a single-byte code page, such as 1252, any escape of hex 80 or above raises error 5, *Invalid procedure call or argument*, even a single one such as `%E9`.
 
@@ -226,6 +248,7 @@ Meant to decode a URL written in UTF-8.
 
 Syntax: **ToolsHttp.UrlDecodeUtf8** ( *Url* ) **As String**
 
+<!-- test: HttpToolsTests.UrlDecodeUtf8_PercentEscapes_AreDecoded, HttpToolsTests.UrlDecodeUtf8_TextWithoutPercent_IsReturnedWithPlusAsSpace -->
 > [!NOTE] 1.0.0.29
 > The function raises error 13, *Type mismatch*, for every text that contains a `%`, and returns the text correctly only when it has none (a `+` becomes a space). The code compares a **Long** with an empty string at its first `%`.
 
@@ -238,6 +261,7 @@ Syntax: **ToolsHttp.UrlEncodUtf8** ( *szInput* ) **As String**
 
 *szInput* is a **String** (a **Variant**). A character below hex 80 is copied as it is, so a space, `&` and `=` stay: only the other characters are escaped. A character from hex 1000 up becomes three escapes, `%E4%B8%AD` for the character U+4E2D. The function returns an empty string for an empty text.
 
+<!-- test: HttpToolsTests.UrlEncodUtf8_CharactersAbove7F_AreWrittenAsPercentEscapes -->
 > [!WARNING] 1.0.0.29
 > A character from hex 80 to hex FFF, such as `é`, is written with only one `%`: `é` becomes `%C3A9` and U+0080 becomes `%C280`. The second byte has no `%` of its own, so the result is not a valid escape, and no decoder gets the character back. Characters from hex 1000 up, such as the Chinese ones, are right.
 
@@ -258,7 +282,9 @@ Encodes a text with `%XX` escapes in the ANSI code page.
 
 Syntax: **ToolsHttp.UrlEncode** ( *strURL* ) **As String**
 
+<!-- test: HttpToolsTests.UrlEncode_EscapesWhatIsNotALetterADigitOrOneOfTheKeptMarks -->
 *strURL* is a **String**, passed by reference. A letter of the English alphabet and the characters `-`, `,`, `.`, `/` and `0` to `9` are copied. Every other character becomes `%` and the hex code of its byte: `%20` for a space, `%5F` for `_`. A character with two bytes in the code page (a Chinese character in GBK) becomes two escapes. On a computer with a single-byte code page, a character such as `é` becomes one escape, `%E9`.
+<!-- /test -->
 
 ### Test
 {: .no_toc }
diff --git a/docs/Reference/Contributed/TBMANLIB/ToolsHttpMimeType.md b/docs/Reference/Contributed/TBMANLIB/ToolsHttpMimeType.md
index 367301a7..d3467117 100644
--- a/docs/Reference/Contributed/TBMANLIB/ToolsHttpMimeType.md
+++ b/docs/Reference/Contributed/TBMANLIB/ToolsHttpMimeType.md
@@ -35,13 +35,17 @@ Returns the media type of a file name.
 Syntax: **ToolsHttpMimeType.MapMimeType** ( *FilePath* ) **As String**
 
 *FilePath*
-: *required* A **String**, a file name or a path. The extension is the text after the last dot, so a name or a path with no dot is its own extension. The comparison respects letter case, and the table holds lower-case extensions: `report.PDF` is not found. A leading dot is fine, so `.html` and `html` give the same result.
+: *required* A **String**, a file name or a path. The extension is the text after the last dot, so a name or a path with no dot is its own extension. A leading dot is fine, so `.html` and `html` give the same result.
 
+<!-- test: MimeTests.MapMimeType_PathsAndOtherExtensions -->
 Returns the media type of the extension in the table below. For an extension that is not in the table it returns `application/octet-stream`. An empty string raises error 9, *Subscript out of range*.
+<!-- /test -->
 
+<!-- test: MimeTests.MapMimeType_UpperCaseExtension_IsFound, MimeTests.MapMimeType_WoffAndWoff2_HaveFontTypes, MimeTests.MapMimeType_CommonExtensionsMissingFromTheTable_HaveTheirTypes, MimeTests.MapMimeType_Java_IsTheMediaTypeOfJavaSource -->
 > [!NOTE] 1.0.0.29
-> The extension `woff` is in the table with no media type, so it returns an empty string, not `application/x-font-woff`; `woff2` returns `application/x-font-woff`. The table also lacks `htm`, `mp3`, `ogg` and `wasm`, which return `application/octet-stream`, and `java` returns the text `text/x-java-source,java`.
+> The extension is compared with its letter case, and the table holds lower-case extensions, so `report.PDF` is not found and gives `application/octet-stream`. The extension `woff` is in the table with no media type, so it returns an empty string, not `application/x-font-woff`; `woff2` returns `application/x-font-woff`. The table also lacks `htm`, `mp3`, `ogg` and `wasm`, which return `application/octet-stream`, and `java` returns the text `text/x-java-source,java`.
 
+<!-- test: MimeTests.MapMimeType_TableOfThePage_GivesTheMediaTypeOfEachExtension -->
 | Extension | Media type |
 |:----------|:-----------|
 | `7z` | `application/x-7z-compressed` |
@@ -143,6 +147,7 @@ Returns the media type of the extension in the table below. For an extension tha
 | `xslt` | `application/xslt+xml` |
 | `xul` | `application/vnd.mozilla.xul+xml` |
 | `zip` | `application/zip` |
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB/ToolsMath.md b/docs/Reference/Contributed/TBMANLIB/ToolsMath.md
index cf28e12a..66c02741 100644
--- a/docs/Reference/Contributed/TBMANLIB/ToolsMath.md
+++ b/docs/Reference/Contributed/TBMANLIB/ToolsMath.md
@@ -39,7 +39,13 @@ Syntax: **ToolsMath.Ceil** ( *Num* [ **,** *Dot* ] ) **As Double**
 *Dot*
 : *optional* A **Long**, the number of decimal places to keep, 0 by default. A negative value rounds to tens, hundreds and so on: `Ceil(1234, -2)` is 1300.
 
-The result is the smallest number with *Dot* decimal places that is not less than *Num*: `Ceil(1.231, 2)` is 1.24 and `Ceil(-1.5)` is -1. The function multiplies *Num* by 10 to the power *Dot*, rounds up with **Int**, and divides again. The arithmetic is in binary floating point, so a number that has no exact binary form can multiply to a value a little above a whole number and round up one step too far: `Ceil(0.07, 2)` returns 0.08, because 0.07 multiplied by 100 is a little more than 7.
+<!-- test: MathCnTests.Ceil_RoundsUpToDecimalPlaces -->
+The result is the smallest number with *Dot* decimal places that is not less than *Num*: `Ceil(1.231, 2)` is 1.24 and `Ceil(-1.5)` is -1. The function multiplies *Num* by 10 to the power *Dot*, rounds up with **Int**, and divides again.
+<!-- /test -->
+
+<!-- test: MathCnTests.Ceil_ExactDecimalNumber_IsNotRoundedUp -->
+> [!WARNING] 1.0.0.29
+> The arithmetic is in binary floating point, so a number that has no exact binary form can multiply to a value a little above a whole number and round up one step too far: `Ceil(0.07, 2)` returns 0.08, because 0.07 multiplied by 100 is a little more than 7.
 
 ### GetRandRange
 {: .no_toc }
@@ -54,7 +60,9 @@ Syntax: **ToolsMath.GetRandRange** ( *a* **,** *b* ) **As Long**
 *b*
 : *required* A **Long**, the largest value. It is passed by reference and is not changed. If it is less than *a*, the result is not in the range.
 
+<!-- test: MathCnTests.GetRandRange_StaysInTheRangeAndReachesBothEnds -->
 Each call runs **Randomize** with no argument, which seeds the generator from the system timer, then returns `Int((b - a + 1) * Rnd() + a)`. The numbers come from the generator of the language and are not suitable for passwords, keys or any other use where they have to be unpredictable.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB/ToolsUtf8.md b/docs/Reference/Contributed/TBMANLIB/ToolsUtf8.md
index 23097aa8..e4beceb9 100644
--- a/docs/Reference/Contributed/TBMANLIB/ToolsUtf8.md
+++ b/docs/Reference/Contributed/TBMANLIB/ToolsUtf8.md
@@ -40,9 +40,11 @@ Syntax: **ToolsUtf8.Decode** ( *Utf* ) **As String**
 *Utf*
 : *required* A **Byte** array that holds UTF-8 text. It is passed by reference and is not changed.
 
+<!-- test: Utf8Tests.Decode_Utf8Bytes_ReturnsTheText, Utf8Tests.Decode_ByteOrderMark_BecomesTheCharacterFeff, Utf8Tests.Decode_ArrayNotDimensioned_ReturnsAnEmptyString -->
 Returns the text as a **String**. A byte order mark (EF BB BF) at the start of the bytes is not removed: it becomes the character U+FEFF at the start of the string.
 
 If *Utf* has not been dimensioned, the function returns an empty string.
+<!-- /test -->
 
 ### DecodeToByteArray
 {: .no_toc }
@@ -56,6 +58,7 @@ Syntax: **ToolsUtf8.DecodeToByteArray** ( *Utf* ) **As Byte()**
 
 The conversion produces two bytes for each character of the text, but the array that the function returns is resized to a length in bytes equal to the number of characters, so it holds the first half of the converted bytes only.
 
+<!-- test: Utf8Tests.DecodeToByteArray_ReturnsAllTheUtf16Bytes -->
 > [!WARNING] 1.0.0.29
 > The result is cut off without an error. For the five UTF-8 bytes of the text `caf` followed by the letter e with an acute accent, which is four characters and eight UTF-16 bytes, the array has four bytes. To get the whole text as UTF-16 bytes, convert with [**Decode**](#decode) and assign the string to a **Byte** array.
 
@@ -69,7 +72,9 @@ Debug.Print UBound(Half) + 1
 ' 4
 ```
 
+<!-- test: Utf8Tests.DecodeToByteArray_ArrayNotDimensioned_Raises9 -->
 If *Utf* has not been dimensioned, the call raises error 9.
+<!-- /test -->
 
 ### Encode
 {: .no_toc }
@@ -81,6 +86,7 @@ Syntax: **ToolsUtf8.Encode** ( *UCS* ) **As Byte()**
 *UCS*
 : *required* A **String**.
 
+<!-- test: Utf8Tests.Encode_ReturnsUtf8BytesWithNoByteOrderMark, Utf8Tests.Encode_EmptyString_ReturnsAnArrayThatIsNotDimensioned -->
 Returns a **Byte** array that starts at index 0 and holds the text in UTF-8, with no byte order mark and no terminating zero byte.
 
 For an empty string the function returns an array that has not been dimensioned, so `UBound` of the result raises error 9.
@@ -94,6 +100,7 @@ Debug.Print Err.Number
 ' Output:
 ' 9
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB/cCsv.md b/docs/Reference/Contributed/TBMANLIB/cCsv.md
index 6b3325b0..0d06a448 100644
--- a/docs/Reference/Contributed/TBMANLIB/cCsv.md
+++ b/docs/Reference/Contributed/TBMANLIB/cCsv.md
@@ -50,8 +50,8 @@ Kill Path
 
 - **LoadFrom** reads a line at a time and splits it at the character in [**Delimiter**](#delimiter), `,` by default. **SaveTo** joins the fields with the same character and ends each line with a carriage return and line feed.
 - A field may be enclosed in double quotes. Inside quotes the delimiter is part of the field, and a pair of double quotes stands for one. **LoadFrom** removes the enclosing quotes. **SaveTo** adds them to a field that holds the delimiter or a double quote, and to no other.
-- **LoadFrom** removes the spaces at both ends of every field, also of a quoted one. **SaveTo** does not add or remove any.
-- A field cannot hold a line break. **LoadFrom** reads one line at a time, so a quoted field that continues on the next line is read as two lines. **SaveTo** writes a line break inside a field as it is, and the file then has more lines than the table.
+- **LoadFrom** removes the spaces at both ends of every field, also of a quoted one; see the note at **LoadFrom**. **SaveTo** does not add or remove any.
+- A field cannot hold a line break; see the warning at **SaveTo**.
 - The files are opened as ANSI text, in the code page of the system, not as Unicode or UTF-8, and **SaveTo** cannot write a character that the code page does not have (see the warning at **SaveTo**).
 - A line that is empty or holds only spaces is skipped. Its number is still counted, so the numbers of the lines in **Data** have a gap there.
 
@@ -137,9 +137,13 @@ Syntax: *object*.**value** ( *LineNumber* **,** *ColumnNumber* )
 *ColumnNumber*
 : *required* A **Long**, the number of the column.
 
+<!-- test: CsvTests.value_MissingLineOrColumn_ReturnsOneAndSetsLastError -->
 Returns the field as a **Variant**. When the line or the column does not exist, the result is the integer 1 (the value of **vbNull**, which the source uses where it means a null) and [**LastError**](#lasterror) holds a Chinese text that says which of the two is missing.
+<!-- /test -->
 
-The class declares a **Set** accessor for the property and no **Let** accessor, and neither works. `T.value(2, 3) = "x"` and `Set T.value(2, 3) = Nothing` each compile and raise an error (-2147467259 and -2147352567), and the field is not changed. To change a field, use [**SetCurrentLineData**](#setcurrentlinedata) or write into the dictionary of the line.
+<!-- test: CsvTests.value_Assignment_ChangesTheField -->
+> [!NOTE] 1.0.0.29
+> The class declares a **Set** accessor for the property and no **Let** accessor, and neither works. `T.value(2, 3) = "x"` and `Set T.value(2, 3) = Nothing` each compile and raise an error (-2147467259 and -2147352567), and the field is not changed. To change a field, use [**SetCurrentLineData**](#setcurrentlinedata) or write into the dictionary of the line.
 
 ## Methods
 
@@ -153,8 +157,11 @@ Syntax: *object*.**DeleteColumn** ( [ *ColumnNumber* ] ) **As Boolean**
 *ColumnNumber*
 : *optional* A **Long**, the column to remove. If it is left out, or 0, the last column of the current line is removed.
 
+<!-- test: CsvTests.DeleteColumn_LastColumn_RemovesIt, CsvTests.DeleteColumn_NoFirstLine_ReturnsFalse -->
 The function needs line 1 to exist; when it does not, it returns **False** and sets [**LastError**](#lasterror). Otherwise it removes the column from every line, its title and its width, and returns **True**. The other columns keep their numbers.
+<!-- /test -->
 
+<!-- test: CsvTests.DeleteColumn_MiddleColumn_SavesTheRemainingColumns -->
 > [!WARNING] 1.0.0.29
 > Only the last column can be removed without damage. A column in front of others leaves a gap in the column numbers, which the other methods do not expect. [**SaveTo**](#saveto) writes the columns for the numbers 1 to the new count of columns, so it writes an empty field in the place of the missing one and leaves out the last column: after removing column 2 of three, a line `a,b,c` is saved as `a,`. [**value**](#value) with the old numbers still finds the fields that remain.
 
@@ -194,8 +201,9 @@ Syntax: *object*.**GetLine** ( *LineNumber* [ **,** *LineDic* ] ) **As Boolean**
 : *required* A **Long**, the key of the line in [**Data**](#data).
 
 *LineDic*
-: *optional* A **Scripting.Dictionary** variable that is meant to receive the line. The variable that is passed is not changed, whether it is **Nothing** or holds a dictionary. Use [**CurrentLineDic**](#currentlinedic).
+: *optional* A **Scripting.Dictionary** variable that receives the line. It is set to the same dictionary as [**CurrentLineDic**](#currentlinedic), whether it was **Nothing** or held a dictionary.
 
+<!-- test: CsvTests.GetLine_MakesTheLineCurrent -->
 Sets [**CurrentLineDic**](#currentlinedic) and [**CurrentLineNumber**](#currentlinenumber) and returns **True**. When the line does not exist, returns **False** and sets [**LastError**](#lasterror).
 
 ```tb check_build check_run
@@ -214,6 +222,7 @@ Debug.Print T.CurrentLineNumber
 ' False
 ' 2
 ```
+<!-- /test -->
 
 ### LoadFrom
 {: .no_toc }
@@ -228,10 +237,19 @@ Syntax: *object*.**LoadFrom** ( *FilePath* [ **,** *IsFirstHead* ] ) **As cCsv**
 *IsFirstHead*
 : *optional* A **Boolean**, **True** by default. It is meant to say that the first line holds the titles. The function does not use it: the titles are never taken from the file.
 
+<!-- test: CsvTests.LoadFrom_LinesOfOtherLength_AreCutOrFilledToTheFirstLine, CsvTests.LoadFrom_QuotedFields_AreParsed -->
 Returns the object itself. The file is read as described in *The file format*. **Data** is replaced when the file has been opened, with one line for each line of the file that is not blank, numbered by its place in the file. Lines with more fields than the first line are cut to its count, and shorter ones are filled with empty strings. [**HeadTitle**](#headtitle) and [**HeadTitleWidth**](#headtitlewidth) get an entry for each column that has none.
+<!-- /test -->
 
+<!-- test: CsvTests.LoadFrom_MissingFile_RaisesNothingAndSetsLastError -->
 An error, such as a file that does not exist, is not raised. It is caught, [**LastError**](#lasterror) is set to its number, a `#`, the description, a colon and the path, and **Data** is not changed.
+<!-- /test -->
+
+<!-- test: CsvTests.LoadFrom_SpacesAtTheEndsOfAField_AreKept -->
+> [!NOTE] 1.0.0.29
+> **LoadFrom** removes the spaces at both ends of every field, also of a quoted one. In RFC 4180 a space is part of a field, so a field that begins or ends with a space does not come back as it was written.
 
+<!-- test: CsvTests.NewLine_AfterABlankLineInTheFile_AddsALine, CsvTests.LoadFrom_BlankLine_IsSkippedAndItsNumberCounted -->
 > [!NOTE] 1.0.0.29
 > A blank line in the file leaves a gap in the line numbers of **Data**: for a file of three lines whose second is blank, the keys are 1 and 3, and the count is 2. [**NewLine**](#newline) numbers the new line with the count plus 1, which here is 3, a line that exists, and raises error 457, *This key is already associated with an element of this collection*. Lines can then not be added until the gap is gone.
 
@@ -274,8 +292,11 @@ Syntax: *object*.**NewColumn** ( *Title* [ **,** *Width* ] [ **,** *Content* ] )
 *Content*
 : *optional* A **String**, the field for every other line, an empty string by default. With **IsFirstLineToHead** set to **False**, it is the field of the first line as well.
 
+<!-- test: CsvTests.NewColumn_AddsTheColumnToEveryLine, CsvTests.NewColumn_TableWithNoLines_AddsNothing -->
 The new column gets the number after the last column of each line. A table with no lines gets no column, and no title.
+<!-- /test -->
 
+<!-- test: CsvTests.NewColumn_ReturnsTrueWhenTheColumnIsAdded -->
 > [!WARNING] 1.0.0.29
 > The function always returns **False**, also when it has added the column: the result is never set. A program cannot use it to see whether the call worked.
 
@@ -302,9 +323,11 @@ Syntax: *object*.**NewLine** ( [ *FieldsData* ] ) **As Boolean**
 *FieldsData*
 : *optional* Any number of values, in a **ParamArray**: the fields of the line. A **Null** or **Empty** value becomes an empty string. As the only argument, a **Scripting.Dictionary** with the column numbers as keys is copied, with its items, and the copy becomes the line; later changes to the dictionary do not reach the table.
 
+<!-- test: CsvTests.NewLine_FillsAndCutsLinesToTheWidthOfTheFirstLine, CsvTests.NewLine_Dictionary_IsCopiedIntoTheTable -->
 The line gets the number after the count of the lines in [**Data**](#data). It is filled to the number of columns of the first line, or cut to it, and becomes the current line ([**CurrentLineDic**](#currentlinedic), [**CurrentLineNumber**](#currentlinenumber)). **HeadTitle** and **HeadTitleWidth** get an entry for each column that has none. Without arguments the line has one empty field, filled up to the width of the table. The first line of a table fixes the number of columns for all the others.
 
 Returns **True**. An error is raised when the number is taken; see the note at [**LoadFrom**](#loadfrom).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim T As New cCsv
@@ -330,7 +353,9 @@ Syntax: *object*.**Reset** ( [ *OnlyData* ] )
 *OnlyData*
 : *optional* A **Boolean**, **False** by default. With **True**, only the table is emptied; the settings stay as they are.
 
+<!-- test: CsvTests.Reset_EmptiesTheTableAndRestoresTheSettings -->
 Empties [**Data**](#data), [**HeadTitle**](#headtitle), [**HeadTitleWidth**](#headtitlewidth) and [**CurrentLineDic**](#currentlinedic), and sets [**CurrentLineNumber**](#currentlinenumber) to 0. Without *OnlyData*, it also sets [**Delimiter**](#delimiter), [**HasHeadTitle**](#hasheadtitle), [**HeadTitleWidthDefault**](#headtitlewidthdefault), [**HeadTitleWidthMax**](#headtitlewidthmax) and [**IsFirstLineToHead**](#isfirstlinetohead) to their values at the start. [**LastError**](#lasterror) is not cleared.
+<!-- /test -->
 
 ### SaveTo
 {: .no_toc }
@@ -342,11 +367,19 @@ Syntax: *object*.**SaveTo** ( *FilePath* ) **As Boolean**
 *FilePath*
 : *required* A **String**, the file to write. A file that exists is replaced. The folder must exist: the function does not create it.
 
+<!-- test: CsvTests.SaveTo_MissingFolder_ReturnsFalseAndSetsLastError -->
 Writes the lines of [**Data**](#data) in the order of their keys, each as described in *The file format*, and returns **True**. When an error occurs, such as a folder that does not exist, it returns **False** and [**LastError**](#lasterror) holds its number, a `#` and the description. The titles in [**HeadTitle**](#headtitle) are not written.
+<!-- /test -->
+
+<!-- test: CsvTests.SaveTo_FieldWithALineBreak_ReadsBackAsOneField -->
+> [!WARNING] 1.0.0.29
+> A field that holds a line break is written as it is, and the file then has more lines than the table. **LoadFrom** reads one line at a time, so it reads a line break inside a field, quoted or not, as the end of the line. A table with such a field does not come back as it was written, and no error is raised. RFC 4180 allows a line break in a quoted field.
 
+<!-- test: CsvTests.SaveTo_CharacterOutsideTheCodePage_KeepsThePreviousFile -->
 > [!WARNING] 1.0.0.29
 > The file is created, or emptied if it exists, before the first field is written. When a field holds a character that the code page of the system does not have, such as `ChrW(&H4E2D)` on a system with the Western code page 1252, writing it fails with error 5, the function returns **False**, and the file is left with no content. The previous content of a file is lost.
 
+<!-- test: CsvTests.SaveTo_QuotesFieldsThatHoldTheDelimiterOrAQuote -->
 ```tb check_build check_run
 Dim T As New cCsv
 Dim Path As String
@@ -369,6 +402,7 @@ Kill Path
 ' plain;a,b;"say ""hi"""
 ' "x;y";a,b; pad
 ```
+<!-- /test -->
 
 ### SetCurrentLineData
 {: .no_toc }
@@ -386,7 +420,9 @@ Syntax: *object*.**SetCurrentLineData** ( *ColumnNumber* **,** *Dat* [ **,** *Li
 *LineDic*
 : *optional* A **Scripting.Dictionary** variable. The parameter has no effect: the function works on [**CurrentLineDic**](#currentlinedic), and the variable that is passed is not changed.
 
+<!-- test: CsvTests.SetCurrentLineData_ChangesAFieldOfTheCurrentLine -->
 Returns **True** when the field was changed. It returns **False** and sets [**LastError**](#lasterror) when the current line has no such column, which includes the case that the table has no current line.
+<!-- /test -->
 
 ### SetHeadTitleWidth
 {: .no_toc }
@@ -401,7 +437,9 @@ Syntax: *object*.**SetHeadTitleWidth** ( *ColumnNumber* **,** *ColumnWidth* ) **
 *ColumnWidth*
 : *required* A **Long**, the width. A value above [**HeadTitleWidthMax**](#headtitlewidthmax) is replaced by it.
 
+<!-- test: CsvTests.SetHeadTitleWidth_StoresTheWidthUpToTheMaximum -->
 Returns **True** when the width was stored. Returns **False** and sets [**LastError**](#lasterror) when the column has no entry.
+<!-- /test -->
 
 ### SetHeadTitleWidthByDic
 {: .no_toc }
@@ -413,8 +451,11 @@ Syntax: *object*.**SetHeadTitleWidthByDic** ( *Dic* ) **As Boolean**
 *Dic*
 : *required* A **Scripting.Dictionary** with column numbers as keys and widths as items.
 
+<!-- test: CsvTests.SetHeadTitleWidthByDic_StoresTheWidthsOfTheColumnsItHas -->
 For each key of *Dic* that has an entry in [**HeadTitleWidth**](#headtitlewidth), the width is stored; other keys are skipped. The widths are not limited by [**HeadTitleWidthMax**](#headtitlewidthmax).
+<!-- /test -->
 
+<!-- test: CsvTests.SetHeadTitleWidthByDic_ReturnsTrueWhenTheWidthsAreStored -->
 > [!WARNING] 1.0.0.29
 > The function always returns **False**, also when it has stored the widths: the result is never set.
 
@@ -431,7 +472,9 @@ Syntax: *object*.**SetLine** ( *LineNumber* **,** *LineDic* ) **As Boolean**
 *LineDic*
 : *required* A **Scripting.Dictionary** with the column numbers as keys.
 
+<!-- test: CsvTests.SetLine_ReplacesALineAndClearsTheCurrentLine -->
 Fills *LineDic* or cuts it to the number of columns of the first line, stores it in **Data** under *LineNumber* in place of the old line, and returns **True**. The dictionary itself is stored, not a copy, so later changes to it change the table. When the line does not exist, the function returns **False** and sets [**LastError**](#lasterror). [**CurrentLineDic**](#currentlinedic) is **Nothing** afterwards, and until the next [**GetLine**](#getline) or [**NewLine**](#newline) [**SetCurrentLineData**](#setcurrentlinedata) returns **False**.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB/cHttpClient.md b/docs/Reference/Contributed/TBMANLIB/cHttpClient.md
index 439c0683..a6938cad 100644
--- a/docs/Reference/Contributed/TBMANLIB/cHttpClient.md
+++ b/docs/Reference/Contributed/TBMANLIB/cHttpClient.md
@@ -30,6 +30,7 @@ Debug.Print Reply.Item("id")
 
 ## How a request runs
 
+<!-- test: HttpRequestTests.Fetch_EmptyUrl_Raises500, HttpRequestTests.RequestDataForm_Values_AreSentAsNamePairsAndThenEmptied, HttpRequestTests.RequestDataJson_Document_IsSentAsTheBody, HttpRequestTests.Fetch_Body_IsSentAsItIsWithTheTwoLengthHeaders, HttpRequestTests.RequestTimeOut_UnderFive_IsRaisedToFive, HttpRequestTests.RequestHeaders_AreSentOnEveryRequestAndEmptyOnesAreNot, HttpRequestTests.DebugInfo_DescribesTheRequestAndTheAnswer -->
 [**Fetch**](#fetch) does the work for every **Send** method. It opens the request, sets the headers, builds the body, sends it and, unless the request is asynchronous, waits for the answer. In order:
 
 1. It empties [**LastError**](#lasterror) and raises error 500 if the URL is empty.
@@ -40,7 +41,9 @@ Debug.Print Reply.Item("id")
 6. It encodes the body as UTF-8 when [**RequestChartSet**](#requestchartset) contains `utf`, and in the ANSI code page otherwise, sets the extra header `Content-Lenght` (see [Consts](Consts#tools_http_header_field_content_lenght)), and sends it.
 7. Unless the request is asynchronous, it waits [**RequestTimeOut**](#requesttimeout) seconds (at least 5) for the answer, raises the status as an error when it is 400 to 599, and reads the response headers into [**ResponseHeaders**](#responseheaders).
 8. It empties the form values, the JSON document and the query values, clears [**DebugStart**](#debugstart) and makes the next request synchronous. The headers are kept.
+<!-- /test -->
 
+<!-- test: HttpResponseTests.Fetch_ErrorStatus_IsRaisedWithItsNumberAndText, HttpRequestTests.Fetch_NoAnswerWithinTheTimeOut_Raises900 -->
 A failed request does the last step too, sets **LastError** and raises the error again. The error is raised with the number of the cause: the HTTP status for a 4xx or 5xx answer, 900 for a timeout, or the number that WinHTTP reports (such as -2147012867, *a connection with the server could not be established*).
 
 Several error texts of the class are written in Chinese. The ones that are not a status or a WinHTTP text are these:
@@ -53,10 +56,13 @@ Several error texts of the class are written in Chinese. The ones that are not a
 | 58 | the file exists | **DownloadFile**, **FinishDownloadFile** |
 | 53 | the file does not exist | **UploadFile** |
 | 1 | no download path was found, or the file could not be read | **FinishDownloadFile**, **UploadFile** |
+<!-- /test -->
 
+<!-- test: none -- the claim is about the certificate of a remote HTTPS server, which a case on the loopback address cannot offer -->
 > [!WARNING] 1.0.0.29
 > The class ignores every certificate error: an expired certificate, one from an unknown authority and one issued for another name are all accepted. An HTTPS request therefore encrypts the traffic, but does not prove who the server is, and a program that sends a password or a key with it can send it to an impostor.
 
+<!-- test: compile RequestHeadersDefaultMemberAssignment, compile RequestHeadersItemAssignment, compile RequestHeadersDefaultMemberRead -->
 > [!NOTE] BETA 1005
 > The compiler refuses an assignment written through a public dictionary field of an object, such as `Http.RequestHeaders("X-Key") = "1"`, with TB5090. Write the default member out: `Http.RequestHeaders.Item("X-Key") = "1"`. Reading `Http.RequestHeaders("X-Key")` is accepted.
 
@@ -67,6 +73,7 @@ Several error texts of the class are written in Chinese. The ones that are not a
 
 A **String**, the media type of the body. It is empty in a new object. [**SetRequestContentType**](#setrequestcontenttype) sets it from a number, and the constants of [**Consts**](Consts) and [**ToolsHttp**](ToolsHttp) are the usual values. [**Fetch**](#fetch) reads it to choose the body and, when the headers have no `Content-Type`, to set that header.
 
+<!-- test: HttpRequestTests.RequestContentType_ChangedAfterAFirstRequest_ChangesTheHeader -->
 > [!WARNING] 1.0.0.29
 > The `Content-Type` header is put into [**RequestHeaders**](#requestheaders) by the first request of an object and stays there. A later change of **RequestContentType** changes the body that is built, but not the header: after a form request, `SetRequestContentType JsonString` sends the JSON text with the header `application/x-www-form-urlencoded`. Set the item as well, `Http.RequestHeaders.Item("Content-Type") = "application/json"`, or use a new object.
 
@@ -75,7 +82,9 @@ A **String**, the media type of the body. It is empty in a new object. [**SetReq
 ### RequestChartSet
 {: .no_toc }
 
+<!-- test: HttpRequestTests.RequestChartSet_Utf8Name_EncodesTheBodyAsUtf8AndAnyOtherAsAnsi, HttpRequestTests.Settings_HaveTheirDefaults -->
 A **String**, the character set of the request body. It is `utf-8` in a new object. If the name contains `utf`, in any letter case, the body is encoded as UTF-8; any other name encodes it in the ANSI code page of the computer, whatever the name is: `gbk` does not select GBK, and a character that the code page lacks becomes `?`. The field does not set a header.
+<!-- /test -->
 
 ### RequestTimeOut
 {: .no_toc }
@@ -92,21 +101,27 @@ A **Scripting.Dictionary** of the request headers: the keys are the header names
 
 A **Scripting.Dictionary** of the values of a form: the keys are the field names. When the content type is `application/x-www-form-urlencoded` and the call gives no body, [**Fetch**](#fetch) sends `name=value` pairs joined by `&`, in the order they were added. It is emptied after each request.
 
+<!-- test: HttpRequestTests.RequestDataForm_Values_AreUrlEncoded -->
 > [!WARNING] 1.0.0.29
 > The names and values are written as they are, without URL encoding. A value with a space, `&`, `=` or `%` produces a body that a server reads as other fields: `Form.Item("city") = "A B&C"` is sent as `city=A B&C`. Such a value has to be escaped by the program before it is added; [**ToolsHttp.UrlEncode**](ToolsHttp#urlencode) does that for text in the ANSI code page.
 
 ### RequestDataJson
 {: .no_toc }
 
+<!-- test: HttpRequestTests.RequestDataJson_NonAsciiText_IsSentAsUtf8Characters, HttpRequestTests.RequestDataJson_ValueWithBackslashU_IsSent, HttpRequestTests.RequestDataJson_EmptyDocument_SendsNoBody -->
 A [**cJson**](cJson), the document that is sent when the content type is exactly `application/json` and the call gives no body. It is encoded with the characters themselves and not as `\uXXXX` escapes (the *FromUnicode* argument of [**cJson.Encode**](cJson#encode) is **True**), so the warning on that argument applies: a text value with a backslash followed by `u` raises error 13. The document is emptied after each request.
 
 If the document is empty, the request has no body and goes with `Content-Length: 0`.
+<!-- /test -->
 
 ### RequestDataQuery
 {: .no_toc }
 
+<!-- test: HttpRequestTests.RequestDataQuery_IsEmptiedAfterTheRequest -->
 A **Scripting.Dictionary** of query values. When it has items, [**Fetch**](#fetch) adds them to the URL, after a `?` or, if the URL has one, a `&`. It is emptied after each request.
+<!-- /test -->
 
+<!-- test: HttpRequestTests.RequestDataQuery_Pairs_AreSentAsParametersOfTheirOwnNames, HttpRequestTests.RequestDataQuery_UrlWithAQuery_GetsTheValuesAfterAnAmpersand -->
 > [!WARNING] 1.0.0.29
 > The pairs are written after the fixed name `ver`: the URL gets `?ver=` followed by the pairs joined by `&`. With the items `a` = 1 and `b` = 2, the request goes to `?ver=a=1&b=2`: a server reads a parameter `ver` whose value is `a=1`, and a parameter `b`. The name of the first item is lost, and no item is sent as a parameter of that name. The values are not URL encoded either. Put the query values in the URL text instead, which the call sends as given.
 
@@ -123,7 +138,9 @@ An array of **Byte**. No member reads it.
 ### EnableRedirects
 {: .no_toc }
 
+<!-- test: HttpResponseTests.EnableRedirects_True_FollowsTheRedirectToTheFinalAnswer -->
 A **Boolean**, **True** in a new object. When it is **True**, WinHTTP follows the redirects of the server (status 301, 302, 307 and so on) and the object holds the final answer. [**AllowRedirects**](#allowredirects) sets it. The value stays for every later request.
+<!-- /test -->
 
 ### MaxRedirects
 {: .no_toc }
@@ -135,17 +152,15 @@ A **Long**, 10 in a new object. Only [**FollowRedirect**](#followredirect) reads
 ### ResponseHeaders
 {: .no_toc }
 
+<!-- test: HttpResponseTests.ResponseHeaders_AreFilledAndKeptFromOneAnswerToTheNext -->
 A **Scripting.Dictionary** of the headers of the last answer, keys compared without regard to letter case. It is filled by each successful synchronous request and by [**UploadFile**](#uploadfile). It is not emptied: the headers of an earlier answer stay, and the headers of a later answer overwrite those of the same name. An answer with an error status, and an asynchronous request, leave it unchanged.
 
-Each header line is split at its first colon and both parts are trimmed, so the value is cut at its own colon:
-
-| Line | Key | Value |
-|:-----|:----|:------|
-| `Content-Type: text/plain` | `Content-Type` | `text/plain` |
-| `Date: Tue, 13 Oct 2026 18:00:00 GMT` | `Date` | `Tue, 13 Oct 2026 18` |
-| `Location: http://host/path` | `Location` | `http` |
-
 The text after a blank line at the end becomes an item with the empty key and the empty value. A header that occurs twice (`Set-Cookie`) keeps its last value.
+<!-- /test -->
+
+<!-- test: HttpResponseTests.ResponseHeaders_ValueWithColons_IsKeptWhole -->
+> [!WARNING] 1.0.0.29
+> Each header line is split at its first colon and both parts are trimmed, so the value is cut at its own colon: `Date: Tue, 13 Oct 2026 18:00:00 GMT` gives the value `Tue, 13 Oct 2026 18`, and `Location: http://host/path` gives `http`. A line with no further colon, such as `Content-Type: text/plain`, gives its whole value.
 
 ### Cookies
 {: .no_toc }
@@ -170,7 +185,9 @@ A **Boolean**. When it is set to **True** before a request, [**DebugInfo**](#deb
 ### DebugInfo
 {: .no_toc }
 
+<!-- test: HttpRequestTests.DebugInfo_DescribesTheRequestAndTheAnswer -->
 A [**cJson**](cJson). **Fetch** replaces it with an empty document at the start of every request. When [**DebugStart**](#debugstart) was set, it holds an object `Request` with `IsAsync`, `Method`, `Url`, `Body`, `Headers` (the request headers), `TimeOut` and `ChartSet`, and, for a synchronous request, an object `Response` with `Status`, `StatusText`, `Headers` and `Content`. A request that failed adds an object `Error` with `Number`, `Source` and `Description`.
+<!-- /test -->
 
 ```tb check_build
 Dim Http As New cHttpClient
@@ -185,7 +202,11 @@ Debug.Print Http.DebugInfo.Item("Response")("Status")
 ### OnResponseFinished
 {: .no_toc }
 
-An event with no arguments. The class declares it, and nothing raises it: a handler is never called. A program that sends an asynchronous request has to ask for the answer itself.
+An event with no arguments. It is meant to be raised when the answer of an asynchronous request has arrived.
+
+<!-- test: HttpResponseTests.OnResponseFinished_AsyncRequest_IsRaisedWhenTheAnswerArrives -->
+> [!NOTE] 1.0.0.29
+> The class declares the event, and nothing raises it: a handler is never called. A program that sends an asynchronous request has to ask for the answer itself.
 
 ## Methods
 
@@ -211,7 +232,9 @@ Syntax: *object*.**Async** ( *Bool* ) **As cHttpClient**
 *Bool*
 : *required* A **Boolean**.
 
+<!-- test: HttpResponseTests.Async_SendGet_ReturnsAtOnceAndTheAnswerIsReadLater -->
 Returns the object itself. The setting is for the next request only. An asynchronous [**Fetch**](#fetch) sends the request and returns at once: it does not wait, does not check the status and does not read [**ResponseHeaders**](#responseheaders). The answer is read later with a **Return** method, which raises an error (*the data necessary to complete this operation is not yet available*) until the answer is there. There is no status property and [**OnResponseFinished**](#onresponsefinished) is never raised, so the program finds out that the answer has come by trying.
+<!-- /test -->
 
 ### DownloadFile
 {: .no_toc }
@@ -229,8 +252,11 @@ Syntax: *object*.**DownloadFile** ( *url* **,** *savePath* [ **,** *Overwrite* ]
 *Overwrite*
 : *optional* A **Boolean**, **True** by default. With **False**, a file that exists makes the call raise error 58.
 
+<!-- test: HttpResponseTests.DownloadFile_WritesTheBodyToTheFile, HttpResponseTests.DownloadFile_ErrorStatus_Raises, HttpResponseTests.DownloadFile_OverwriteFalseAndFileExists_Raises58AfterTheRequest -->
 Sends the request with [**SendGet**](#sendget) (so a 4xx or 5xx status is raised as in **Fetch**), raises an error for a status other than 200, and writes the body to the file with [**cToolsStream.SaveFileAsBinary**](cToolsStream#savefileasbinary). It returns **True**. The test for **Overwrite** comes after the request, so the answer has been received when error 58 is raised; the file is not changed.
+<!-- /test -->
 
+<!-- test: HttpResponseTests.DownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone, HttpResponseTests.FinishDownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone -->
 > [!WARNING] 1.0.0.29
 > The call returns **True** also when the file could not be written, for example for a folder that does not exist: **SaveFileAsBinary** returns **False** there, and **DownloadFile** does not look at it. Check that the file exists after the call.
 
@@ -241,7 +267,9 @@ Starts a download without waiting for it.
 
 Syntax: *object*.**DownloadFileAsync** ( *url* **,** *savePath* [ **,** *Overwrite* ] ) **As cHttpClient**
 
+<!-- test: HttpResponseTests.DownloadFileAsync_ThenFinishDownloadFile_WritesTheFile -->
 The arguments are those of [**DownloadFile**](#downloadfile). The method sends an asynchronous GET request, then stores the path and the overwrite choice in [**RequestHeaders**](#requestheaders) as the items `X-Download-Path` and `X-Download-Overwrite`. [**FinishDownloadFile**](#finishdownloadfile) reads them and writes the file.
+<!-- /test -->
 
 The two items stay in **RequestHeaders**, so every later request of the object sends them to the server, with the local path in them. Remove them when the download is done: `Http.RequestHeaders.Remove "X-Download-Path"`, and the same for `X-Download-Overwrite`.
 
@@ -270,7 +298,9 @@ Writes the file of a download that [**DownloadFileAsync**](#downloadfileasync) s
 
 Syntax: *object*.**FinishDownloadFile** ( ) **As Boolean**
 
+<!-- test: HttpResponseTests.FinishDownloadFile_WithoutDownloadFileAsync_Raises -->
 Reads the answer, raises an error for a status other than 200 and, if the file exists and the overwrite choice was **False**, error 58. It then writes the file and returns **True**. While the answer has not arrived, the call raises the WinHTTP error *the data necessary to complete this operation is not yet available* (-2147483638); a program calls it again after a short wait. If the item `X-Download-Path` is not in [**RequestHeaders**](#requestheaders), it raises error 1. Like [**DownloadFile**](#downloadfile), it returns **True** also when the file could not be written.
+<!-- /test -->
 
 ### FollowRedirect
 {: .no_toc }
@@ -284,6 +314,7 @@ Syntax: *object*.**FollowRedirect** ( [ *RedirectMethod* ] ) **As cHttpClient**
 
 Reads the address with [**GetRedirectUrl**](#getredirecturl) and sends a GET request to it (for 307 and 308, the given method). Each call counts, and error 310 is raised when the count exceeds [**MaxRedirects**](#maxredirects); [**ResetRedirectCount**](#resetredirectcount) sets the count to 0. The method needs [**EnableRedirects**](#enableredirects) set to **False** with [**AllowRedirects**](#allowredirects), or no redirect answer is left to follow. It returns the object itself, and does nothing if the last answer had no `Location` header.
 
+<!-- test: HttpResponseTests.FollowRedirect_Status302_SendsARequestToTheLocation, HttpResponseTests.GetRedirectUrl_AbsoluteLocation_IsReturnedWhole -->
 > [!NOTE] 1.0.0.29
 > The method cannot send a request. The address comes from [**ResponseHeaders**](#responseheaders), which cuts a value at its first colon, so `http://host/path` is read as `http`, and WinHTTP raises error -2147012890, *the URL does not use a recognized protocol*. A `Location` header with a relative address, such as `/path`, has no colon and is read whole, but WinHTTP refuses it as well. A program that has to follow a redirect leaves **EnableRedirects** at **True**, so that WinHTTP follows it.
 
@@ -294,7 +325,9 @@ Returns the `Location` header of the last answer.
 
 Syntax: *object*.**GetRedirectUrl** ( ) **As String**
 
+<!-- test: HttpResponseTests.FollowRedirect_NoLocation_DoesNothing -->
 Returns the item `Location` of [**ResponseHeaders**](#responseheaders), or an empty string when there is none. The value is cut at its first colon (see [ResponseHeaders](#responseheaders)), so an absolute address comes back as `http` or `https`.
+<!-- /test -->
 
 ### MapRequestContentType
 {: .no_toc }
@@ -319,7 +352,9 @@ Returns the body of the last answer as bytes.
 
 Syntax: *object*.**ReturnBody** ( ) **As Byte()**
 
+<!-- test: HttpResponseTests.ReturnBody_BeforeAnyRequest_Raises -->
 Raises the WinHTTP error -2147012795, *this method cannot be called until the Send method has been called*, when the object has sent no request.
+<!-- /test -->
 
 ### ReturnJson
 {: .no_toc }
@@ -334,7 +369,9 @@ Syntax: *object*.**ReturnJson** ( [ *IsUtf8* ] [ **,** *IsConvert* ] ) **As cJso
 *IsConvert*
 : *optional* A **Boolean**.
 
+<!-- test: HttpResponseTests.ReturnText_ReturnJson_ReturnBody_ReadTheAnswer -->
 Takes the text from [**ReturnText**](#returntext) with the same arguments and decodes it with [**cJson.Decode**](cJson#decode), in a new **cJson**. A text that is not JSON raises error 10001 from the parser.
+<!-- /test -->
 
 ### ReturnStream
 {: .no_toc }
@@ -372,7 +409,9 @@ Sends a DELETE request.
 
 Syntax: *object*.**SendDelete** ( *url* [ **,** *Body* ] ) **As cHttpClient**
 
+<!-- test: HttpRequestTests.Fetch_Methods_UseTheirOwnVerbs -->
 The same as **Fetch** with **ReqDelete**.
+<!-- /test -->
 
 ### SendGet
 {: .no_toc }
@@ -430,7 +469,9 @@ Syntax: *object*.**SetCookies** ( *Value* ) **As cHttpClient**
 *Value*
 : *required* A **String**, the text of the header, such as `a=1; b=2`. Nothing happens when it is empty.
 
+<!-- test: HttpRequestTests.RequestHeaders_AreSentOnEveryRequestAndEmptyOnesAreNot -->
 Stores the text as the item `Cookie` of [**RequestHeaders**](#requestheaders), where it stays for every later request. It returns the object itself. WinHTTP adds the cookies it has received from the server to the header it sends, so a cookie can appear twice.
+<!-- /test -->
 
 ### SetRequestContentType
 {: .no_toc }
@@ -445,7 +486,9 @@ Syntax: *object*.**SetRequestContentType** ( *ReqType* [ **,** *ContentType* ] )
 *ContentType*
 : *optional* A **String**. Not used.
 
+<!-- test: HttpRequestTests.SetRequestContentType_ChoosesTheMediaTypeByNumber -->
 Returns the new text. Read the warning at [**RequestContentType**](#requestcontenttype): the call after a first request does not change the header.
+<!-- /test -->
 
 ### ShowPage
 {: .no_toc }
@@ -478,10 +521,13 @@ Syntax: *object*.**UploadFile** ( *url* **,** *filePath* [ **,** *fieldName* ] [
 *additionalFormData*
 : *optional* A **Scripting.Dictionary** of more form fields, as names and text values.
 
+<!-- test: HttpResponseTests.UploadFile_SendsTheFileAsMultipartFormData, HttpResponseTests.UploadFile_MissingFile_Raises53 -->
 The body has a part with the file and a part for each item of *additionalFormData*. The file is always sent with the type `application/octet-stream` and the file name of the path. The boundary is `----WebKitFormBoundary` followed by a random number. The call waits [**RequestTimeOut**](#requesttimeout) seconds for the answer and raises the status of a 400 or higher as an error, and error 900 for a timeout. It reads [**ResponseHeaders**](#responseheaders) and returns the object itself.
 
 The call sends neither the items of **RequestHeaders** nor the extra header of [**Fetch**](#fetch), and it follows redirects as **EnableRedirects** says. It leaves two things behind: **RequestContentType** keeps the multipart value, and **RequestHeaders** gets an item `Content-Length` with the size of the body. A later request therefore has the multipart content type, as the warning at [**RequestContentType**](#requestcontenttype) says. The `Content-Length` item does not reach the server with a later GET request.
+<!-- /test -->
 
+<!-- test: HttpResponseTests.UploadFile_ErrorStatus_RaisesWithTheTextOfTheFailure, HttpResponseTests.UploadFile_NoAnswerWithinTheTimeOut_RaisesWithTheTextOfTheFailure, HttpResponseTests.UploadFileSimple_Failure_LastErrorHoldsTheTextOfTheFailure -->
 > [!NOTE] 1.0.0.29
 > A call that fails with a status or a timeout raises the right number but a general text: *Application-defined or object-defined error* for a status, *Automation error* for error 900. The real text, such as `上传失败: 404#Not Found` (*the upload failed*), is in [**LastError**](#lasterror).
 
diff --git a/docs/Reference/Contributed/TBMANLIB/cIni.md b/docs/Reference/Contributed/TBMANLIB/cIni.md
index 58f3284d..a740e1d5 100644
--- a/docs/Reference/Contributed/TBMANLIB/cIni.md
+++ b/docs/Reference/Contributed/TBMANLIB/cIni.md
@@ -35,6 +35,7 @@ Kill Path
 
 ## The file format
 
+<!-- test: IniTests.LoadFrom_ReadsSectionsKeysAndValues, IniTests.SaveTo_WritesSectionsAndKeys -->
 The files are opened as ANSI text, in the code page of the system, not as Unicode or UTF-8. The text that **SaveTo** writes, and that **LoadFrom** reads, looks like this:
 
 ```
@@ -50,6 +51,7 @@ Back=white
 - A blank line and a line that starts with a semicolon are skipped. A line that starts with `#` is not a comment: it is read as a key if it holds an `=`, and skipped if it does not.
 - A line that has no `=` and is not a section is skipped.
 - **LoadFrom** puts the keys that come before the first section under a section whose name is the empty string.
+<!-- /test -->
 
 ## Properties
 
@@ -77,7 +79,9 @@ Syntax: *object*.**Section** ( *Key* ) **As Scripting.Dictionary**
 *Key*
 : *required* A **String**, the name of the section. Names are compared with letter case.
 
+<!-- test: IniTests.Section_CreatesTheSectionEvenForAReader -->
 The dictionary is the one that [**Root**](#root) holds for the name, so a value assigned to it is stored in **Root**: `Cfg.Section("Window")("Width") = "800"`. A name that is not in **Root** is added to it, with an empty dictionary, by the call itself, even when the program only reads.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Cfg As New cIni
@@ -107,7 +111,9 @@ Syntax: *object*.**LoadFrom** ( *Path* ) **As cIni**
 
 Returns the object itself, so a call can be followed by a member: `Cfg.LoadFrom(Path).Section("Window")`.
 
+<!-- test: IniTests.LoadFrom_AddsTheIniExtensionAndEmptiesRoot, IniTests.LoadFrom_MissingFile_RaisesNothingEmptiesRootAndSetsLastError -->
 The call empties **Root** first, so afterwards it holds only what the file holds. If the file cannot be opened, **Root** has been emptied, the call raises no error, and [**LastError**](#lasterror) says why.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Cfg As New cIni
@@ -149,7 +155,9 @@ Syntax: *object*.**SaveTo** ( [ *Path* ] ) **As Boolean**
 *Path*
 : *optional* A **String**, the file to write. The extension `.ini` is added to a name that does not end with it. A call without a path uses the name `.ini`. A file that exists is replaced. The folders of the path are created if they are missing.
 
+<!-- test: IniTests.SaveTo_CreatesTheFoldersOfThePath -->
 Returns **True** when the file was written. It returns **False** when **Root** has no entries, or when an error occurred; [**LastError**](#lasterror) then says why.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Cfg As New cIni
diff --git a/docs/Reference/Contributed/TBMANLIB/cJson.md b/docs/Reference/Contributed/TBMANLIB/cJson.md
index 30b710e4..7e10b52f 100644
--- a/docs/Reference/Contributed/TBMANLIB/cJson.md
+++ b/docs/Reference/Contributed/TBMANLIB/cJson.md
@@ -34,6 +34,7 @@ Debug.Print J.Encode()
 
 ## How the document is held
 
+<!-- test: JsonTests.Decode_ObjectAndArray_AreHeldInTheirOwnFields, JsonTests.Decode_NumberOf16Characters_IsReturnedAsText -->
 The top level of a JSON text is an object or an array, and a **cJson** keeps each in a field of its own:
 
 - [**RootItem**](#rootitem) is a **Scripting.Dictionary**, which holds a JSON object. Its keys are the names of the object, in the order they were added, and letter case matters.
@@ -42,6 +43,7 @@ The top level of a JSON text is an object or an array, and a **cJson** keeps eac
 Inside the document, a nested object is another **Scripting.Dictionary** and a nested array is another **Collection**. A JSON string is a **String**, a number is a **Double**, `true` and `false` are **Boolean** values and `null` is **Null**. A number whose text is 16 or more characters long (17 or more with a decimal point) is returned as a **String** instead, so that no digits are lost; [`ToolsJsonVba.JsonOptions`](ToolsJsonVba#jsonoptions) changes that. The parsing and writing are done by [**ToolsJsonVba**](ToolsJsonVba), the VBA-JSON code.
 
 A new **cJson** holds an empty object. Only one of the two fields is meant to hold data at a time. [**Root**](#root) returns **RootItems** when it has items and **RootItem** when it has none, and [**Encode**](#encode) with no argument writes **RootItem** when it has entries and **RootItems** only when it has none.
+<!-- /test -->
 
 ## Properties
 
@@ -85,7 +87,11 @@ Syntax: *object*.**Items** ( *Index* ) [ **=** *value* ]
 
 Reading returns a **Variant**, an object for a nested object or array. If *Index* is greater than the number of items, the result is **Empty**. A position of 0 or less is not checked, and the **Collection** raises its own error.
 
-Assigning a value, with or without **Set**, adds it as a new last item of **RootItems**, whatever *Index* is: the item at *Index* is not replaced, and an *Index* beyond the end does not leave a gap. A value that is an object, such as a **Scripting.Dictionary** or another **Collection**, is added as a nested object or array.
+Assigning a value, with or without **Set**, adds it as a new item at the end of **RootItems**; see the warning below.
+
+<!-- test: JsonTests.Items_Assignment_ReplacesTheItemAtTheIndex -->
+> [!WARNING] 1.0.0.29
+> An assignment to **Items** does not replace the item at *Index*. It adds the value as a new last item, whatever *Index* is, and an *Index* beyond the end does not leave a gap: `J.Items(1) = 5` on `[1,2]` gives `[1,2,5]`. A value that is an object, such as a **Scripting.Dictionary** or another **Collection**, is added as a nested object or array.
 
 ```tb check_build check_run
 Dim J As New cJson
@@ -105,12 +111,14 @@ Debug.Print J.Items(2)
 ### LastError
 {: .no_toc }
 
+<!-- test: JsonTests.LastError_IsNeverSet -->
 A **String** that is meant to hold the text of the last error. [**Clear**](#clear), [**Decode**](#decode) and [**Encode**](#encode) set it to an empty string, and no member of the class stores a message in it: [**Decode**](#decode) raises its errors instead. The field stays empty unless a program assigns to it.
 
 ### LastSuccess
 {: .no_toc }
 
 Returns **True** when [**LastError**](#lasterror) is empty. Because nothing stores a message in **LastError**, it is always **True**.
+<!-- /test -->
 
 ### Root
 {: .no_toc }
@@ -159,9 +167,11 @@ Empties the document.
 
 Syntax: *object*.**Clear**
 
+<!-- test: JsonTests.Clear_EmptiesTheDocumentAndTheFieldsWorkAgain -->
 Sets [**RootText**](#roottext) and [**LastError**](#lasterror) to empty strings, and releases [**RootItem**](#rootitem) and [**RootItems**](#rootitems).
+<!-- /test -->
 
-Call **Clear** before [**Decode**](#decode) when the object held another document. **Decode** replaces only the field that matches the text it reads, so the array that an earlier call stored stays in **RootItems** after an object is decoded, and [**Root**](#root) keeps returning the array.
+Call **Clear** before [**Decode**](#decode) when the object held another document; see the note at **Decode**.
 
 ### Decode
 {: .no_toc }
@@ -175,8 +185,17 @@ Syntax: *object*.**Decode** ( *Text* ) **As cJson**
 
 Returns the object itself, so a call can be followed by a member: `J.Decode(Text).Item("name")`.
 
-A text that begins with `{` replaces [**RootItem**](#rootitem), and a text that begins with `[` replaces [**RootItems**](#rootitems). An empty text changes nothing in the document.
+A text that begins with `{` replaces [**RootItem**](#rootitem), and a text that begins with `[` replaces [**RootItems**](#rootitems).
+
+<!-- test: JsonTests.Decode_EmptyText_ChangesNothing -->
+An empty text changes nothing in the document.
+<!-- /test -->
+
+<!-- test: JsonTests.Decode_ObjectAfterArray_ReplacesTheDocument, JsonTests.Decode_ArrayAfterObject_EncodeWritesTheArray -->
+> [!NOTE] 1.0.0.29
+> Only the field that matches the text is replaced, and the other one keeps what it held. After an array and then an object, [**Root**](#root) still returns the array, and after an object and then an array, [**Encode**](#encode) with no argument still writes the object. Call [**Clear**](#clear) before decoding a document into an object that held another.
 
+<!-- test: JsonTests.Decode_WhiteSpaceBeforeArray_ReadsTheArray -->
 > [!NOTE] 1.0.0.29
 > Only spaces are removed from the start of the text before it is checked for `[`. A text that has a line break or a tab in front of its `[` is taken for an object, and the array that it holds cannot be stored in **RootItem**: the call raises the error *No such interface supported* (-2147467262), with the source `DECODE`.
 
@@ -193,7 +212,8 @@ Debug.Print Err.Number & " " & J.Items(2)
 ' 0 2
 ```
 
-If the text cannot be read, **Decode** raises the error again with the same number (10001 for a syntax error), the source `DECODE`, and the description of the parser followed by `#` and the whole text. The parser is that of [ParseJson](../VBA_JSON/JsonConverter/ParseJson): it carries out no check for commas between items, and it ignores text after the closing bracket of the value.
+<!-- test: JsonTests.Decode_SyntaxError_RaisesWithTheSourceDecode -->
+If the text cannot be read, **Decode** raises the error again with the same number (10001 for a syntax error), the source `DECODE`, and the description of the parser followed by `#` and the whole text. The parser is that of [ParseJson](../VBA_JSON/JsonConverter/ParseJson).
 
 ```tb check_build check_run
 Dim J As New cJson
@@ -203,6 +223,11 @@ Debug.Print Err.Number & " " & Err.Source
 ' Output:
 ' 10001 DECODE
 ```
+<!-- /test -->
+
+<!-- test: JsonTests.Decode_MissingComma_Raises, JsonTests.Decode_TextAfterTheDocument_Raises -->
+> [!NOTE] 1.0.0.29
+> The parser accepts text that is not JSON. It does not check for a comma between the items of an object or an array, and it ignores text after the closing bracket of the value: `{"a":1 "b":2}`, `[1 2]` and `{"a":1} garbage` are all read without an error.
 
 ### Encode
 {: .no_toc }
@@ -222,8 +247,11 @@ Syntax: *object*.**Encode** ( [ *Obj* ] [ **,** *Whitespace* ] [ **,** *FromUnic
 
 The text is built by [ConvertToJson](../VBA_JSON/JsonConverter/ConvertToJson) and also stored in [**RootText**](#roottext). Non-ASCII characters and control characters are written as `\uXXXX` escapes, so the text is ASCII. With *FromUnicode* set to **True**, every `\uXXXX` in the text is turned back into the character it names, and the result holds the characters themselves.
 
-If the value written has no items, nothing is converted and the function returns [**RootText**](#roottext) as it was: the text of the last call, or an empty string for a new or cleared object. It does not return `{}` or `[]`.
+<!-- test: JsonTests.Encode_EmptyDocument_IsWrittenAsEmptyBraces, JsonTests.Encode_DocumentEmptiedAfterAnEncode_IsNotTheOldText -->
+> [!WARNING] 1.0.0.29
+> A value that has no items is not written as `{}` or `[]`. Nothing is converted, and the function returns [**RootText**](#roottext) as it was: an empty string for a new or cleared object, and, for a document whose items were removed after an earlier call, the text of that call, which no longer matches the document.
 
+<!-- test: JsonTests.Encode_FromUnicode_BackslashThenU_IsNotAnEscape, JsonTests.Encode_FromUnicode_ControlCharacter_StaysEscaped, HttpRequestTests.RequestDataJson_ValueWithBackslashU_IsSent -->
 > [!WARNING] 1.0.0.29
 > With *FromUnicode* set to **True**, the conversion looks for the two characters `\u` anywhere in the text, without regard for the escape that comes before them. A value that holds a backslash followed by the letter `u`, such as `C:\users`, is written by the converter as `C:\\users`, and the conversion meets `\u` in it and tries to read `sers` as four hexadecimal digits. That raises error 13.
 >
@@ -247,6 +275,7 @@ Debug.Print AscW(Mid$(J.Encode(, , True), 7, 1))
 ' 1
 ```
 
+<!-- test: JsonTests.Encode_Whitespace_IndentsByLevel, JsonTests.Encode_NonAscii_IsWrittenAsEscapeAndFromUnicodeReadsItBack, JsonTests.Encode_NonObjectValue_IsStoredAsText -->
 ```tb check_build check_run
 Dim J As New cJson
 J.Decode "{""a"":[1,2]}"
@@ -261,6 +290,7 @@ Debug.Print J.Encode(, , True) = "{""word"":""caf" & ChrW(233) & """}"
 ' {"word":"caf\u00E9"}
 ' True
 ```
+<!-- /test -->
 
 ### LoadFrom
 {: .no_toc }
@@ -277,6 +307,7 @@ Syntax: *object*.**LoadFrom** ( *Path* [ **,** *CharSet* ] ) **As cJson**
 
 The file is read by [**ToolsStream.LoadFileAsText**](cToolsStream#loadfileastext) and the text goes to [**Decode**](#decode), so its rules and errors apply. Returns the object itself.
 
+<!-- test: JsonTests.LoadFrom_AfterLoadFrom_ReadsTheFile, JsonTests.LoadFrom_AfterSaveTo_ReadsTheFile, JsonTests.LoadFrom_AfterFailedLoadFrom_ReadsTheFile -->
 > [!WARNING] 1.0.0.29
 > **ToolsStream.LoadFileAsText** leaves the shared stream open, and raises error 3705, *Operation is not allowed when the object is open*, when it finds it open. A **LoadFrom** therefore fails after any earlier **LoadFrom** or [**SaveTo**](#saveto) of the program, and after a file that could not be opened. See [**cToolsStream**](cToolsStream). `ToolsStream.Inst.Close` after each call makes the next one work.
 
@@ -290,6 +321,7 @@ Syntax: *object*.**NewItem** ( [ *ParentKey* ] ) **As cJson**
 *ParentKey*
 : *optional* A **String**. If it is left out, the new object becomes the next item of [**RootItems**](#rootitems), an element of the array. If it is given, the new object is stored in [**RootItem**](#rootitem) under that name.
 
+<!-- test: JsonTests.NewItem_NewItems_BuildNestedObjectsAndArrays -->
 Returns a new **cJson**. The object that it holds in its **RootItem** is the one that was added, so setting values on the returned object changes the document it was made for.
 
 ```tb check_build check_run
@@ -311,6 +343,7 @@ Debug.Print List.Encode()
 ' {"name":"Ann","home":{"city":"Oslo"}}
 ' [{"id":1},{"id":2}]
 ```
+<!-- /test -->
 
 ### NewItems
 {: .no_toc }
@@ -356,9 +389,11 @@ Syntax: *object*.**SaveTo** ( *FileName* [ **,** *CharSet* ] [ **,** *Whitespace
 
 The text is made by [**Encode**](#encode) of the object's [**Root**](#root), so the rules of that method apply, among them that an empty document writes the text of an earlier call. The function returns the text that it wrote to the file. A file written with the character set `UTF-8` begins with the byte order mark EF BB BF.
 
+<!-- test: JsonTests.SaveTo_SecondShorterDocument_WritesValidJson -->
 > [!WARNING] 1.0.0.29
 > **ToolsStream.SaveFileAsText** leaves the shared stream open and, when it finds it open, writes over the text that is still in it. After a first **SaveTo**, a second one with a shorter document, in the same or another file, writes the new text with the end of the old text after it, which is not valid JSON: saving `{"a":"long long"}` and then `{"b":1}` leaves `{"b":1}ong long"}` in the second file. No error is raised. See [**cToolsStream**](cToolsStream). `ToolsStream.Inst.Close` after each call avoids it.
 
+<!-- test: JsonTests.SaveTo_ThenLoadFrom_RoundTripsNonAscii -->
 ```tb check_build check_run
 Dim Path As String
 Path = Environ$("TEMP") & "\tbmanlib-docs\sample.json"
@@ -379,6 +414,7 @@ RmDir Environ$("TEMP") & "\tbmanlib-docs"
 ' {"word":"caf\u00E9"}
 ' 233
 ```
+<!-- /test -->
 
 ### ToArray
 {: .no_toc }
@@ -387,7 +423,9 @@ Returns the object of the document in an array.
 
 Syntax: *object*.**ToArray** ( ) **As Variant**
 
+<!-- test: JsonTests.ToArray_ObjectDocument_ReturnsOneElementArray -->
 If [**RootItem**](#rootitem) has entries, the result is an array of one element that holds that **Scripting.Dictionary**. In every other case, including a document held in [**RootItems**](#rootitems), the result is **Empty**.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB/cLogs.md b/docs/Reference/Contributed/TBMANLIB/cLogs.md
index 97bcbff1..14d6378d 100644
--- a/docs/Reference/Contributed/TBMANLIB/cLogs.md
+++ b/docs/Reference/Contributed/TBMANLIB/cLogs.md
@@ -44,11 +44,15 @@ The enumerations are declared inside the class. A program names their members wi
 
 ## Log lines
 
+<!-- test: LogsTests.Save_ByDay_AppendsTheLineToTheFileOfTheDay, LogsTests.Save_BelowLogLevelControl_DoesNothingButSetTheDefaults -->
 A line is made of the time, the level and the text: `[10/12/2026 3:04:05 PM] [WARN] disk is almost full`. The time is the value of `Now` converted to text with the settings of the system, so its form changes from one computer to another. The level is `INFO`, `WARN`, `DANGER` or `ERROR`, the names of the first four members of [**EnumLogLevel**](#enumloglevel). [**Save**](#save), [**FormView**](#formview), [**WebView**](#webview) and [**DbgView**](#dbgview) all make the line the same way, and each returns it.
 
 A level is kept when it is equal to or greater than [**LogLevelControl**](#loglevelcontrol). Below that, the member does nothing and returns an empty string.
+<!-- /test -->
 
-The levels **Debugger** and **Custom** have no name for the line: a call with either of them raises error 9, *Subscript out of range*, because the table of names has only four entries. Nothing is written.
+<!-- test: LogsTests.Save_DebuggerLevel_WritesALine, LogsTests.Save_CustomLevel_WritesALine -->
+> [!NOTE] 1.0.0.29
+> The levels **Debugger** and **Custom** have no name for the line: a call with either of them raises error 9, *Subscript out of range*, because the table of names has only four entries. Nothing is written.
 
 ```tb check_build check_run
 Dim Logs As New cLogs
@@ -66,6 +70,7 @@ Debug.Print Err.Number
 
 ## Where a log file goes
 
+<!-- test: LogsTests.Save_ByDay_AppendsTheLineToTheFileOfTheDay, LogsTests.Save_ByMonth_AppendsTheLineToTheFileOfTheMonth, LogsTests.Save_ByUser_UsesTheNameTheProgramGives, LogsTests.Save_ByUser_MissingFolderInTheFileName_FailsWithUnspecifiedError -->
 [**Save**](#save) builds the path from the properties below. `<root>` is [**LogDir**](#logdir), or the folder of the program (`App.Path`) when **LogDir** is empty. `<sub>` is [**LogSubDir**](#logsubdir).
 
 | [**LogFileNameRule**](#logfilenamerule) | File |
@@ -75,6 +80,7 @@ Debug.Print Err.Number
 | **byUser** | `<root>\<sub>\<LogFileNameByUer>` |
 
 The year, month and day come from `Now`. The folders that the path names are created if they are missing. For **byUser**, the file name may hold folders, but only the folder part made from `<root>` and `<sub>` is created, so a missing folder inside **LogFileNameByUer** makes the call fail with the error *Unspecified error* (-2147467259).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Logs As New cLogs
@@ -170,7 +176,9 @@ Syntax: *object*.**DbgView** ( *LogStr* [ **,** *LogLevel* ] ) **As String**
 *LogLevel*
 : *optional* An [**EnumLogLevel**](#enumloglevel), the level of the line. The default is **Info**.
 
+<!-- test: LogsTests.DbgView_ReturnsTheLineOrAnEmptyStringBelowTheLevel -->
 The line is passed to the Windows function **OutputDebugString**, with the text `[TBMAN-LOG]` and a full-width colon in front of it, so a tool that shows debugging output, such as DebugView, can filter the lines of the class by that prefix. Returns the line, or an empty string if its level is below [**LogLevelControl**](#loglevelcontrol).
+<!-- /test -->
 
 ### FormView
 {: .no_toc }
@@ -185,7 +193,9 @@ Syntax: *object*.**FormView** ( *LogStr* [ **,** *LogLevel* ] ) **As String**
 *LogLevel*
 : *optional* An [**EnumLogLevel**](#enumloglevel), the level of the line. The default is **Info**.
 
+<!-- test: LogsTests.FormView_NoListBox_ReturnsAnEmptyString -->
 The line is added at the top of [**FormListBox**](#formlistbox), where it is the first item, and the oldest lines are removed so that the list holds at most [**FormListBoxMaxItem**](#formlistboxmaxitem) lines. If **FormListBox** is **Nothing**, nothing happens and the result is an empty string. Otherwise the result is the line, or an empty string if its level is below [**LogLevelControl**](#loglevelcontrol).
+<!-- /test -->
 
 ```tb check_build
 Dim Logs As New cLogs
@@ -214,6 +224,7 @@ The method first sets [**LogSubDir**](#logsubdir), [**LogFileNameByUer**](#logfi
 
 Returns the line, or an empty string if its level is below [**LogLevelControl**](#loglevelcontrol).
 
+<!-- test: LogsTests.Save_OtherOutputs_KeepTheLevelOfTheLine -->
 > [!WARNING] 1.0.0.29
 > The calls to the three other members do not pass the level of the line. They make the line again at the level **Info**. A line sent to a list box, a debugging tool or a web page is therefore labelled `INFO` whatever level **Save** was given, and when **LogLevelControl** is above **Info** it is not sent at all. The result of **Save** is the text that was made last: the `INFO` line, when one of the outputs sent it.
 
@@ -248,7 +259,11 @@ Syntax: *object*.**WebView** ( *LogStr* [ **,** *LogLevel* ] ) **As String**
 *LogLevel*
 : *optional* An [**EnumLogLevel**](#enumloglevel), the level of the line. The default is **Info**.
 
-If [**WebUserCode**](#webusercode) is empty, nothing happens and the result is an empty string. Otherwise the line is sent in an asynchronous HTTP POST request, made with the late-bound object `WinHttp.WinHttpRequest.5.1`, to `http://log.vb6.pro/submit?code=` followed by **WebUserCode**, with the body `log=` followed by the line. The call does not wait for the answer and does not report whether the request worked. The result is the line, or an empty string if its level is below [**LogLevelControl**](#loglevelcontrol).
+<!-- test: LogsTests.WebView_NoUserCode_SendsNothingAndReturnsAnEmptyString -->
+If [**WebUserCode**](#webusercode) is empty, nothing happens and the result is an empty string.
+<!-- /test -->
+
+Otherwise the line is sent in an asynchronous HTTP POST request, made with the late-bound object `WinHttp.WinHttpRequest.5.1`, to `http://log.vb6.pro/submit?code=` followed by **WebUserCode**, with the body `log=` followed by the line. The call does not wait for the answer and does not report whether the request worked. The result is the line, or an empty string if its level is below [**LogLevelControl**](#loglevelcontrol).
 
 > [!IMPORTANT] 1.0.0.29
 > The request uses `http`, not `https`, and goes to a web site that is not part of the package: the code and the text of every line can be read by any computer on the way. Neither the code nor the line is URL-encoded, so a `&`, an `=`, a `%` or a `+` in the line changes what the site receives. Do not send lines that hold private data.
diff --git a/docs/Reference/Contributed/TBMANLIB/cSubClass.md b/docs/Reference/Contributed/TBMANLIB/cSubClass.md
index 09b77bb3..eb7bcb17 100644
--- a/docs/Reference/Contributed/TBMANLIB/cSubClass.md
+++ b/docs/Reference/Contributed/TBMANLIB/cSubClass.md
@@ -58,9 +58,11 @@ Syntax: *object*.**Hook** ( *hWnd* )
 *hWnd*
 : *required* A **Long**, the handle of a window of the program.
 
+<!-- test: SubClassTests.Hook_RaisesWindowProcForEachMessageOfTheWindow, SubClassTests.Hook_AnotherObjectOnTheSameWindow_Raises457 -->
 Stores the handle, saves the address of the window's procedure, installs the package's procedure, and adds the object to a collection of the internal module **mCallBackSubClass** under the handle. A call on an object that already hooks a window does nothing. Hooking a window that another **cSubClass** object has hooked raises error 457, *this key is already associated with an element of this collection*. In the IDE, the call writes a line to the Debug Console.
 
 The collection holds a reference to the object, so the object is not destroyed while the window is hooked, and the window keeps its replacement procedure until [**UnHook**](#unhook) is called. A program calls **UnHook** before the window is destroyed and before it ends.
+<!-- /test -->
 
 ### UnHook
 {: .no_toc }
@@ -69,7 +71,9 @@ Restores the window's own procedure.
 
 Syntax: *object*.**UnHook**
 
+<!-- test: SubClassTests.UnHook_RestoresTheWindowProcedureAndStopsTheEvents, SubClassTests.UnHook_WithNoHookInPlace_Raises5 -->
 Puts back the procedure that **Hook** saved and removes the object from the collection. A second call, with no hook in place, raises error 5.
+<!-- /test -->
 
 ## Events
 
@@ -83,8 +87,10 @@ Syntax: **Event** *object*_**WindowProc** ( *Msg* **,** *wParam* **,** *lParam*
 *Msg*, *wParam*, *lParam*
 : **Long** values passed by reference: the message number and its two arguments.
 
+<!-- test: SubClassTests.Hook_CancelNextCall_StopsTheMessageAndReturnsZero -->
 *CancelNextCall*
 : A **Boolean**, passed by reference, **False** on entry. When the handler sets it to **True**, the message does not reach the window's own procedure, and the window procedure returns 0. Otherwise the window handles the message after the event.
+<!-- /test -->
 
 A handler is written for a variable declared with **WithEvents**. The event is raised synchronously, in the thread that sends the message, before the window sees it. A handler cannot change the value that the window procedure returns, or the arguments that the window procedure receives (the arguments are passed by reference but the original procedure is called with the originals).
 
diff --git a/docs/Reference/Contributed/TBMANLIB/cTimer.md b/docs/Reference/Contributed/TBMANLIB/cTimer.md
index 18ad25e4..e9ab8372 100644
--- a/docs/Reference/Contributed/TBMANLIB/cTimer.md
+++ b/docs/Reference/Contributed/TBMANLIB/cTimer.md
@@ -38,7 +38,9 @@ The event is raised from the message loop of the program, so it is not raised wh
 
 A **Boolean**: whether the timer is running. It is **False** for a new object.
 
+<!-- test: TimerTests.cTimer_Enabled_FollowsTheInterval, TimerTests.cTimer_Enabled_RaisesTheTimerEventAtTheInterval -->
 Setting it to **True** starts the timer, or starts it again from zero when it is running. Setting it to **False** stops it. A start with [**Interval**](#interval) of 0 or less does nothing: **Enabled** stays **False**.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim T As New cTimer
@@ -83,7 +85,9 @@ The same as setting [**Enabled**](#enabled) to **False**.
 ### Enable
 {: .no_toc }
 
+<!-- test: TimerTests.cTimer_EnableTimer_Reset_Disable_StartAndStopTheTimer -->
 Starts the timer, with the current [**Interval**](#interval). A running timer is stopped and started again.
+<!-- /test -->
 
 Syntax: *object*.**Enable**
 
@@ -121,6 +125,7 @@ A handler is written for a variable declared with **WithEvents**. A timer that b
 
 The class keeps every running timer in a collection of the module **mTimer**, by the number that Windows gives the timer, and the callback that Windows calls, **mTimer.TimerProc**, finds the object there and raises its event. The module belongs to the package's internal code and has no page; a program does not call it.
 
+<!-- test: TimerTests.cTimer_EnabledTimerReleased_IsDestroyed, TimerTests.cTimer_NeverEnabledTimerReleased_IsDestroyed -->
 > [!NOTE] 1.0.0.29
 > The collection holds a reference to each running timer. A **cTimer** that is enabled is therefore not destroyed when the program releases its last reference: it stays registered and goes on running until [**Enabled**](#enabled) is set to **False**. A timer that was never enabled is destroyed as usual, and the timer of a destroyed object is stopped.
 
diff --git a/docs/Reference/Contributed/TBMANLIB/cTimers.md b/docs/Reference/Contributed/TBMANLIB/cTimers.md
index 06b612cc..c4e9a01d 100644
--- a/docs/Reference/Contributed/TBMANLIB/cTimers.md
+++ b/docs/Reference/Contributed/TBMANLIB/cTimers.md
@@ -44,7 +44,9 @@ Syntax: *object*.**Item** ( *Index* ) **As cTimer**
 *Index*
 : *required* An **Integer**, from 1 to [**Count**](#count).
 
+<!-- test: TimerTests.cTimers_ItemAndBulkLoad_RaiseTheirErrors -->
 It is the default member, so `Group(2)` is `Group.Item(2)`. A number above **Count** raises error -2147221504 (`vbObjectError`), with the text *Index does not Exist*, and 0 or a negative number raises error 9.
+<!-- /test -->
 
 ## Methods
 
@@ -55,7 +57,9 @@ Adds a timer to the group.
 
 Syntax: *object*.**Add** ( ) **As Integer**
 
+<!-- test: TimerTests.cTimers_Add_Count_Item_BulkLoad -->
 Returns the number of the new timer, counted from 1. The timer is off, with an [**Interval**](cTimer#interval) of 2000; start it with `Group(n).Enabled = True`.
+<!-- /test -->
 
 ### BulkLoad
 {: .no_toc }
@@ -74,7 +78,9 @@ Adds *num* + 1 timers, not *num*: a call with 3 adds 4. Any other value raises e
 ### Timer
 {: .no_toc }
 
+<!-- test: TimerTests.cTimers_Timer_IsRaisedByTheGroupWithTheNumberOfTheTimer -->
 Raised when the interval of one of the enabled timers has passed.
+<!-- /test -->
 
 Syntax: **Event** *object*_**Timer** ( *Index* )
 
@@ -100,6 +106,7 @@ Private Sub Group_Timer(ByVal Index As Integer)
 End Sub
 ```
 
+<!-- test: TimerTests.cTimers_GroupReleased_IsDestroyed, TimerTests.cTimers_EnabledTimerOfAReleasedGroup_IsDestroyed -->
 > [!NOTE] 1.0.0.29
 > A **cTimers** registers itself in a collection of the package's internal module **mTimer**, which keeps a reference to it. The group is therefore not destroyed when the program releases its last reference, and its enabled timers go on running. Set [**Enabled**](cTimer#enabled) of each timer to **False** first.
 
diff --git a/docs/Reference/Contributed/TBMANLIB/cTimeuse.md b/docs/Reference/Contributed/TBMANLIB/cTimeuse.md
index e74e22d5..c1ebfea7 100644
--- a/docs/Reference/Contributed/TBMANLIB/cTimeuse.md
+++ b/docs/Reference/Contributed/TBMANLIB/cTimeuse.md
@@ -35,7 +35,9 @@ Syntax: *object*.**Show** ( [ *Txt* ] ) **As Variant**
 *Txt*
 : *optional* A **String**, the message. Every `{*}` in it is replaced by the number of milliseconds. The default is a Chinese message: the words for *time used*, a colon, `{*}` and the word for *milliseconds*.
 
+<!-- test: TimerTests.cTimeuse_Show_ReplacesEveryPlaceholderWithTheMilliseconds, TimerTests.cTimeuse_Show_WithoutStart_IsTheTickCount -->
 Returns a **String** in a **Variant**. The number is the tick count at the call less the tick count at **Start**. If **Start** has not been called, the number is the tick count itself: the milliseconds since the computer started.
+<!-- /test -->
 
 ### Start
 {: .no_toc }
diff --git a/docs/Reference/Contributed/TBMANLIB/cToolsStr.md b/docs/Reference/Contributed/TBMANLIB/cToolsStr.md
index 68c214ca..aba6acf7 100644
--- a/docs/Reference/Contributed/TBMANLIB/cToolsStr.md
+++ b/docs/Reference/Contributed/TBMANLIB/cToolsStr.md
@@ -24,7 +24,9 @@ Debug.Print ToolsStr.UnicodeEncode("caf" & ChrW(233))
 ' caf\u00E9
 ```
 
-A few functions keep a position or a count in an **Integer** variable: **TrimEx** and the functions built on it, **InsertSpan**, **PercentEncode**, **PercentDecode**, **UnicodeEncode** and **UnicodeDecode**. They raise error 6, *Overflow*, for a string of more than 32,767 characters.
+<!-- test: StrTests.TrimEx_TextOver32767Characters_IsTrimmed, StrTests.InsertSpan_TextOver32767Characters_IsSplit, StrTests.PercentEncode_TextOver32767Characters_IsEncoded, StrTests.PercentDecode_TextOver32767Characters_IsDecoded, StrTests.UnicodeEncode_TextOver32767Characters_IsEncoded, StrTests.UnicodeDecode_TextOver32767Characters_IsDecoded -->
+> [!NOTE] 1.0.0.29
+> A few functions keep a position or a count in an **Integer** variable: **TrimEx** and the functions built on it, **InsertSpan**, **PercentEncode**, **PercentDecode**, **UnicodeEncode** and **UnicodeDecode**. They raise error 6, *Overflow*, for a string of more than 32,767 characters.
 
 Most **String** parameters are passed by reference, as the language does by default, and the functions do not change them. The two exceptions are [**IsEmptyEx**](#isemptyex), which trims the variable that is passed to it, and [**MidEx**](#midex), which sets its *starindex* argument.
 
@@ -43,8 +45,11 @@ Syntax: **ToolsStr.IsEmptyEx** ( *Text* ) **As Boolean**
 *Text*
 : *required* A **String**.
 
+<!-- test: StrTests.IsEmptyEx_WhiteSpaceOnly_IsTrue -->
 Returns **True** when *Text* has no characters left after [**TrimEx**](#trimex) removes the spaces, tabs, line breaks and other control characters at both ends.
+<!-- /test -->
 
+<!-- test: StrTests.IsEmptyEx_DoesNotChangeTheVariableItIsGiven -->
 > [!WARNING] 1.0.0.29
 > The parameter is passed by reference and the function assigns the trimmed text to it, so a variable that is passed is changed: after `IsEmptyEx(t)`, **t** holds the trimmed text. Pass an expression, such as `(t)`, to keep the variable as it is.
 
@@ -70,7 +75,9 @@ Syntax: **ToolsStr.IsString** ( *var* ) **As Boolean**
 *var*
 : *required* A **Variant**.
 
+<!-- test: StrTests.IsString_TellsStringsFromNumbers -->
 Returns **True** when `VarType(var)` is **vbString**. The text `"12"` is a string, and the number 12 is not.
+<!-- /test -->
 
 ### LeftEx
 {: .no_toc }
@@ -85,7 +92,9 @@ Syntax: **ToolsStr.LeftEx** ( *Text* **,** *Length* ) **As String**
 *Length*
 : *required* A **Long**, the number of characters.
 
+<!-- test: StrTests.LeftEx_RightEx_TrimOnlySpaces -->
 The spaces at both ends of *Text* are removed with **Trim** first. Tabs and line breaks stay. [**cJson.Decode**](cJson#decode) uses the function to see whether a text begins with `[`.
+<!-- /test -->
 
 ### RightEx
 {: .no_toc }
@@ -100,7 +109,9 @@ Syntax: **ToolsStr.RightEx** ( *Text* **,** *Length* ) **As String**
 *Length*
 : *required* A **Long**, the number of characters.
 
+<!-- test: StrTests.LeftEx_RightEx_TrimOnlySpaces -->
 The spaces at both ends of *Text* are removed with **Trim** first. Tabs and line breaks stay.
+<!-- /test -->
 
 ### TrimEx
 {: .no_toc }
@@ -112,7 +123,9 @@ Syntax: **ToolsStr.TrimEx** ( *Text* ) **As String**
 *Text*
 : *required* A **String**. It is passed by reference and is not changed.
 
+<!-- test: StrTests.TrimEx_RemovesWhiteSpaceAndControlCharactersAtBothEnds -->
 Removes the characters space, tab, carriage return, line feed and every character with a code from 0 to 31, from the start and from the end of *Text*. Other characters that look like spaces, such as the non-breaking space, stay.
+<!-- /test -->
 
 ## Searching and cutting
 
@@ -129,7 +142,9 @@ Syntax: **ToolsStr.GetFirstChar** ( *Txt* [ **,** *Length* ] ) **As String**
 *Length*
 : *optional* A **Long**, 1 by default.
 
+<!-- test: StrTests.GetFirstChar_SkipsSpacesAndReturnsTheCharacters, StrTests.GetFirstChar_NoVisibleCharacter_Raises5 -->
 The function skips every character whose code is not from 33 to 126, so spaces, control characters and non-ASCII characters are skipped, and finds the first one that is. With a *Length* of 1 the result is that character. With a larger *Length* the result is that many characters from there, taken as they stand. If *Txt* holds no character with a code from 33 to 126, the function raises error 5.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print ToolsStr.GetFirstChar("  - abc")
@@ -152,6 +167,7 @@ Syntax: **ToolsStr.GetLastChar** ( *Txt* [ **,** *Length* ] ) **As String**
 *Length*
 : *optional* A **Long**, 1 by default.
 
+<!-- test: StrTests.GetLastChar_ReturnsTheLastVisibleCharacter -->
 > [!WARNING] 1.0.0.29
 > The code of this function is a copy of the code of [**GetFirstChar**](#getfirstchar): it searches from the start of the text, and returns the first visible character, not the last. `GetLastChar("abc")` returns `a`.
 
@@ -180,7 +196,9 @@ Syntax: **ToolsStr.HasStr** ( *FindStr* **,** *FullStr* [ **,** *StartPos* ] [ *
 *CompType*
 : *optional* A **VbCompareMethod**, **vbTextCompare** by default.
 
+<!-- test: StrTests.HasStr_FindsTheTextIgnoringCaseByDefault -->
 Returns the position of the first match, counted from 1, or 0 when there is none: the result of [**InStr**](../../../Modules/Strings/InStr) with the arguments in a different order. Unlike **InStr**, the search ignores letter case unless *CompType* is **vbBinaryCompare**.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print ToolsStr.HasStr("lo", "Hello")
@@ -211,7 +229,9 @@ Syntax: **ToolsStr.MidEx** ( *FullStr* **,** *Lstr* **,** *Rstr* [ **,** *starin
 *starindex*
 : *optional* A **Long**, passed by reference. When it is not 0, the search for *Lstr* starts at that position and ignores letter case; a search from the start of *FullStr* is case-sensitive. When a match is found, the variable is set to the position after *Rstr*, so a loop that passes the same variable finds one match after another.
 
+<!-- test: StrTests.MidEx_ReturnsTheTextBetweenTheMarkersWithoutItsEnds, StrTests.MidEx_FewerThanTwoCharactersBetween_Raises5 -->
 The function finds the first *Lstr*, then the first *Rstr* after it. It returns an empty string if either is missing. Of the text between them, it removes the first and the last character, so the function suits a value that is enclosed in quotation marks: `MidEx("id=[""abc""]", "[", "]")` returns `abc`. If the text between has fewer than two characters, the call raises error 5.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Start As Long
@@ -248,6 +268,7 @@ Syntax: **ToolsStr.SliceString** ( *Arr* **,** *StartPos* [ **,** *EndPos* ] ) *
 *EndPos*
 : *optional* A **Long**, the position of the last character, which is included. The default of -1 means the end of the string.
 
+<!-- test: StrTests.SliceString_CountsFromZeroAndIncludesTheEnd -->
 ```tb check_build check_run
 Debug.Print ToolsStr.SliceString("Hello World", 0, 4)
 Debug.Print ToolsStr.SliceString("Hello World", 6)
@@ -255,6 +276,7 @@ Debug.Print ToolsStr.SliceString("Hello World", 6)
 ' Hello
 ' World
 ```
+<!-- /test -->
 
 ### SubStr
 {: .no_toc }
@@ -275,7 +297,9 @@ Syntax: **ToolsStr.SubStr** ( *Txt* **,** *txtF* [ **,** *txtE* ] [ **,** *RetIn
 *RetInt*
 : *optional* A **Boolean**, **False** by default. It chooses what the function returns when nothing is found.
 
+<!-- test: StrTests.SubStr_ReturnsTheTrimmedTextBetweenTheMarkers -->
 The function finds the first *txtF*, then the first *txtE* after it, and returns what is between them, with **Trim** applied. When *txtF* is not found, when *txtE* is not found, or when the text between is empty, it returns an empty string, or the text `0` if *RetInt* is **True**.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print ToolsStr.SubStr("key = value ;", "=", ";")
@@ -310,7 +334,9 @@ Syntax: **ToolsStr.InsertSpan** ( *inputStr* **,** *Span* **,** *SetpNum* [ **,*
 *HeadFoot*
 : *optional* A **Boolean**, **False** by default. When it is **True**, *Span* is also placed at the start and at the end of the result.
 
+<!-- test: StrTests.InsertSpan_PutsTheSeparatorBetweenGroups -->
 The separator is placed between groups, and not after the last one: `InsertSpan("abcdefg", "-", 3)` returns `abc-def-g`, and with *HeadFoot* set it returns `-abc-def-g-`.
+<!-- /test -->
 
 ### JoinStr
 {: .no_toc }
@@ -325,7 +351,9 @@ Syntax: **ToolsStr.JoinStr** ( *Span* **,** *Strings* )
 *Strings*
 : *required* Any number of values, in a **ParamArray**.
 
+<!-- test: StrTests.JoinStr_JoinsWithTheSeparator -->
 Returns the values joined with *Span* between them, as **Join** does.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print ToolsStr.JoinStr("-", "a", "b", "c")
@@ -343,7 +371,9 @@ Syntax: **ToolsStr.PercentDecode** ( *encodedStr* ) **As String**
 *encodedStr*
 : *required* A **String**. It is passed by reference and is not changed.
 
+<!-- test: StrTests.PercentDecode_ReadsHexPairsAsAnsiCharacters -->
 Each `%` and the two characters after it are read as a hexadecimal number, and replaced by **Chr** of the number. The characters are those of the ANSI code page, so the bytes of a UTF-8 text such as `%C3%A9` become two characters, not one. A `%` that is not followed by two hexadecimal digits raises error 13.
+<!-- /test -->
 
 ### PercentEncode
 {: .no_toc }
@@ -355,7 +385,12 @@ Syntax: **ToolsStr.PercentEncode** ( *inputStr* ) **As String**
 *inputStr*
 : *required* A **String**. It is passed by reference and is not changed.
 
-Despite its name, the function does not follow the rules of percent-encoding for web addresses. It replaces the digits `0` to `9` only, each with `%` and the two hexadecimal digits of its code, and leaves every other character as it is: `PercentEncode("A1b2")` returns `A%31b%32`. A space, a slash or a non-ASCII letter is not encoded. [**PercentDecode**](#percentdecode) turns the result back.
+<!-- test: StrTests.PercentEncode_SpaceSlashAndPercent_AreEncoded -->
+> [!WARNING] 1.0.0.29
+> The function does not follow the rules of percent-encoding for web addresses. A space, a slash, a percent sign or a non-ASCII letter is not encoded: the function replaces the digits `0` to `9` only.
+
+<!-- test: StrTests.PercentEncode_EncodesTheDigits -->
+The digits `0` to `9` are each replaced with `%` and the two hexadecimal digits of their code, and every other character is left as it is: `PercentEncode("A1b2")` returns `A%31b%32`. [**PercentDecode**](#percentdecode) turns the result back.
 
 ```tb check_build check_run
 Debug.Print ToolsStr.PercentEncode("A1b2")
@@ -364,6 +399,7 @@ Debug.Print ToolsStr.PercentDecode("A%31b%32")
 ' A%31b%32
 ' A1b2
 ```
+<!-- /test -->
 
 ### UniVbCrLf
 {: .no_toc }
@@ -375,8 +411,11 @@ Syntax: **ToolsStr.UniVbCrLf** ( *Text* ) **As String**
 *Text*
 : *required* A **String**. It is passed by reference and is not changed.
 
+<!-- test: StrTests.UniVbCrLf_CrAndCrLf_BecomeCrLf -->
 An empty string is returned as it is. A string that has only carriage returns, or only the pairs carriage return and line feed, is converted as expected.
+<!-- /test -->
 
+<!-- test: StrTests.UniVbCrLf_LoneLineFeed_BecomesOneCrLf, StrTests.UniVbCrLf_ThreeAtSigns_AreKept -->
 > [!WARNING] 1.0.0.29
 > A line feed that is not part of a pair becomes a carriage return and **two** line feeds. The function turns each line feed into a pair, and then turns the carriage return of that pair into a pair again. `"a" & vbLf & "b"` comes out as `"a" & vbCr & vbLf & vbLf & "b"`, five characters.
 >
@@ -410,7 +449,9 @@ Syntax: **ToolsStr.UnicodeDecode** ( *Text* [ **,** *PreFix* ] ) **As String**
 *PreFix*
 : *optional* A **String**, `\u` by default. It has to be two characters long: the function compares two characters of the text with it and then skips six, whatever its length.
 
-The four characters after each prefix are read as a hexadecimal number, and the character with that code replaces the six. The letters in the number may be of either case. Four characters that are not hexadecimal digits raise error 13. The function does not know about backslashes before the prefix, so the text `\\u0041`, a backslash that is escaped, followed by `u0041`, is read from the second backslash.
+<!-- test: StrTests.UnicodeDecode_ReplacesEscapesWithCharacters -->
+The four characters after each prefix are read as a hexadecimal number, and the character with that code replaces the six. The letters in the number may be of either case. Four characters that are not hexadecimal digits raise error 13.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print ToolsStr.UnicodeDecode("\u0041\u0042")
@@ -420,6 +461,10 @@ Debug.Print AscW(Right$(ToolsStr.UnicodeDecode("caf\u00E9"), 1))
 ' 233
 ```
 
+<!-- test: StrTests.UnicodeDecode_EscapedBackslashBeforeU_IsNotAnEscape -->
+> [!NOTE] 1.0.0.29
+> The function does not know about backslashes before the prefix, so a backslash that is escaped and followed by the letter `u` and four hexadecimal digits is read as an escape of the character, from the second backslash. This is the cause of the error that [**cJson.Encode**](cJson#encode) raises for a text such as `C:\users` when *FromUnicode* is **True**.
+
 ### UnicodeEncode
 {: .no_toc }
 
@@ -433,7 +478,9 @@ Syntax: **ToolsStr.UnicodeEncode** ( *inputString* [ **,** *PreFix* ] ) **As Str
 *PreFix*
 : *optional* A **String**, `\u` by default.
 
+<!-- test: StrTests.UnicodeEncode_EscapesNonAsciiCharacters -->
 Characters with a code from 0 to 127 stay as they are, the control characters included. Every other character becomes *PreFix* and the four hexadecimal digits of its code, with letters in upper case. A character that is made of two UTF-16 units, such as an emoji, becomes two such groups.
+<!-- /test -->
 
 ## Lines
 
@@ -447,7 +494,9 @@ Syntax: **ToolsStr.JoinLinesFromCollection** ( *Coll* ) **As String**
 *Coll*
 : *required* A **Collection**, passed by reference and not changed. The items are taken in order from 1 and converted to strings.
 
+<!-- test: StrTests.JoinLinesFromCollection_JoinsWithCrLf -->
 Returns the items with a carriage return and line feed (**vbCrLf**) between them, and none after the last. A collection with no items gives an empty string.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Lines As New Collection
@@ -471,8 +520,11 @@ Syntax: **ToolsStr.SplitLinesToCollection** ( *Text* ) **As Collection**
 *Text*
 : *required* A **String**.
 
+<!-- test: StrTests.SplitLinesToCollection_SplitsAtCrLf -->
 Returns a new **Collection** that holds one string for each line, numbered from 1. Lines end at a carriage return and line feed (**vbCrLf**) only. A line feed or a carriage return alone does not end a line: the lines of a text from another system stay in one item. An empty text gives an empty collection. A text that ends with **vbCrLf** gives an empty last item.
+<!-- /test -->
 
+<!-- test: StrTests.SplitLinesToCollection_LastLineOfOneCharacter_IsKept -->
 > [!WARNING] 1.0.0.29
 > The loop stops when its position is equal to the length of the text, which is the position of the last character. When the last line has exactly one character, the loop stops before it and the line is lost: `"a" & vbCrLf & "b"` gives one item, `a`, and the text `"a"` gives none. A last line of two or more characters is kept.
 
@@ -503,7 +555,9 @@ Syntax: **ToolsStr.LenBytes** ( *inputArray* ) **As Long**
 *inputArray*
 : *required* A **Byte** array.
 
+<!-- test: StrTests.LenBytes_CountsTheElements -->
 Returns the upper bound less the lower bound, plus 1. The comment in the source says *Unicode*, but the function counts the elements, whatever they hold.
+<!-- /test -->
 
 ### ToBytes
 {: .no_toc }
@@ -515,7 +569,9 @@ Syntax: **ToolsStr.ToBytes** ( *inputString* ) **As Byte()**
 *inputString*
 : *required* A **String**. It is passed by reference and is not changed.
 
+<!-- test: StrTests.ToBytes_ToString_ConvertWithTheAnsiCodePage -->
 Returns the bytes of the string in the ANSI code page of the system, with **StrConv** and **vbFromUnicode**, from 0. The comment in the source says *Unicode*; the result is not UTF-16 and not UTF-8. A character that the code page does not have is not kept as written. For UTF-8, use [**ToolsUtf8.Encode**](ToolsUtf8#encode).
+<!-- /test -->
 
 ### ToHex
 {: .no_toc }
@@ -527,7 +583,11 @@ Syntax: **ToolsStr.ToHex** ( *inputArray* ) **As String**
 *inputArray*
 : *required* A **Byte** array whose lower bound is 0.
 
-Returns the **Hex** of each element, joined with nothing between them. A byte below 16 gives one digit, and not two: `ToHex` of the bytes 10 and 11 is `AB`, the same as the byte 171 gives. The result cannot always be split back into bytes.
+Returns the **Hex** of each element, joined with nothing between them.
+
+<!-- test: StrTests.ToHex_WritesTwoDigitsForEachByte -->
+> [!WARNING] 1.0.0.29
+> A byte below 16 gives one digit, and not two: `ToHex` of the bytes 10 and 11 is `AB`, the same as the byte 171 gives. The result cannot always be split back into bytes.
 
 ```tb check_build check_run
 Debug.Print ToolsStr.ToHex(ToolsStr.ToBytes("AB"))
@@ -561,7 +621,9 @@ Syntax: **ToolsStr.GetGUID** ( [ *isFull* ] ) **As String**
 *isFull*
 : *optional* A **Boolean**, **False** by default. When it is **True**, the GUID is returned with the braces around it.
 
+<!-- test: StrTests.GetGUID_HasThe36CharacterForm -->
 The GUID is made by the Windows scripting object `Scriptlet.TypeLib`, which the function creates by name on each call. The result has the form `9A0F3C5E-1B2D-4C6E-8F70-123456789ABC`, 36 characters, or 38 with the braces, with the letters in upper case.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim g As String
@@ -596,7 +658,9 @@ Returns ten random bytes.
 
 Syntax: **ToolsStr.GetRandByte** ( ) **As Byte()**
 
+<!-- test: StrTests.GetRandByte_ReturnsTenBytes -->
 Returns a **Byte** array from 0 to 9. The function takes no argument, so the number of bytes is always ten. It calls **Randomize** and fills the array with `Int(Rnd * 256)`. The bytes are not suitable for keys, passwords or tokens.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim Bytes() As Byte
@@ -616,10 +680,12 @@ Syntax: **ToolsStr.GetRandStr** ( [ *Lens* ] [ **,** *Zuhe* ] ) **As String**
 *Lens*
 : *optional* An **Integer**, the number of characters, 32 by default. A value below 1 is replaced by 8.
 
+<!-- test: StrTests.GetRandStr_UsesTheNamedGroupsOfCharacters -->
 *Zuhe*
 : *optional* A **String** that says which characters can be used, `1aA` by default. It is a set of letters that stand for groups of characters: `1` for the digits, `a` for the lower-case letters `a` to `z`, `A` for the upper-case letters, and `@` for the 32 punctuation characters of ASCII. An empty string stands for all four groups. Other characters in the string are ignored; if no group is named, the result is an empty string. The name means *combination*.
 
 Each character is chosen with [**ToolsMath.GetRandRange**](ToolsMath#getrandrange), so the strings are not suitable for passwords, keys or tokens.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim s As String
diff --git a/docs/Reference/Contributed/TBMANLIB/cToolsStream.md b/docs/Reference/Contributed/TBMANLIB/cToolsStream.md
index 38fafd0a..f8a8e775 100644
--- a/docs/Reference/Contributed/TBMANLIB/cToolsStream.md
+++ b/docs/Reference/Contributed/TBMANLIB/cToolsStream.md
@@ -27,6 +27,7 @@ Kill Path
 ' True
 ```
 
+<!-- test: StreamTests.LoadFileAsText_AfterLoadFileAsText_ReadsTheFile, StreamTests.LoadFileAsText_AfterSaveFileAsText_ReadsTheFile, StreamTests.LoadFileAsText_AfterFailedLoad_ReadsTheFile, StreamTests.SaveFileAsText_AfterSaveFileAsText_ReplacesTheFile, StreamTests.BinaryFunctions_CloseAnOpenStream, StreamTests.NewObjectForEachCall_ReadsAndWritesTheFile -->
 > [!WARNING] 1.0.0.29
 > [**LoadFileAsText**](#loadfileastext) and [**SaveFileAsText**](#savefileastext) leave the stream open, and neither closes it first. That breaks the next call of either on the same object, and the shared **ToolsStream** is such an object for the whole run of the program:
 >
@@ -100,6 +101,7 @@ Syntax: **ToolsStream.LoadFileAsBinary** ( *Path* **,** *OutData* ) **As Boolean
 *OutData*
 : *required* A dynamic **Byte** array. It receives the bytes of the file.
 
+<!-- test: StreamTests.LoadFileAsBinary_MissingFile_ReturnsFalseAndTheErrorTwice, StreamTests.SaveFileAsBinary_ThenLoadFileAsBinary_RoundTripsAllByteValues -->
 Returns **True** when the file was read, and **False** when an error occurred; the text of the error is then in [**LastError**](#lasterror). The function closes the stream if it is open, sets it to the binary type, reads the file and closes the stream.
 
 The text in **LastError** is the description of the error, then `#`, then the description a second time. The number of the error is not in it.
@@ -113,6 +115,7 @@ Debug.Print S.LastError
 ' False
 ' File could not be opened.#File could not be opened.
 ```
+<!-- /test -->
 
 ### LoadFileAsText
 {: .no_toc }
@@ -127,7 +130,9 @@ Syntax: **ToolsStream.LoadFileAsText** ( *FileName* [ **,** *CharSet* ] ) **As S
 *CharSet*
 : *optional* A **String**, the name of the character set in which the file is stored, `UTF-8` by default. Any name that the ADODB.Stream accepts can be used. A byte order mark at the start of a UTF-8 file is not returned as a character.
 
+<!-- test: StreamTests.LoadFileAsText_MissingFile_Raises3002, StreamTests.LoadFileAsText_ByteOrderMark_IsNotPartOfTheText -->
 The function sets the type of the stream to text, opens it, sets its character set, loads the file and reads all the text from it. It leaves the stream open, with its position at the start. It handles no error: a failure, such as error 3002, *File could not be opened*, for a file that does not exist, is raised to the caller as the error of the stream, and leaves the stream open.
+<!-- /test -->
 
 In line mode, the text is also split into lines with [**SplitLinesToCollection**](cToolsStr#splitlinestocollection), which is stored in [**LineData**](#linedata), and [**LineNumber**](#linenumber) is set to 1. The function still returns the whole text. The rules of the split apply, among them that a last line of one character is lost.
 
@@ -143,6 +148,7 @@ Syntax: **ToolsStream.ReadLine** ( [ *Line* ] ) **As String**
 *Line*
 : *optional* A **Long**. When it is greater than 0, it is stored in [**LineNumber**](#linenumber) first, and that line is read.
 
+<!-- test: StreamTests.ReadLine_InLineMode_ReadsTheLinesOfTheFile, StreamTests.ReadLine_LineModeOff_Raises1 -->
 Returns the item of **LineData** that **LineNumber** names, and adds 1 to **LineNumber**. A number that is not the number of an item raises error 9, *Subscript out of range*. When line mode is off, the function raises error 1 with a Chinese message that means *line reading and writing is not switched on*.
 
 ```tb check_build check_run
@@ -163,6 +169,7 @@ Kill Path
 ' first second 3
 ' first
 ```
+<!-- /test -->
 
 ### SaveFileAsBinary
 {: .no_toc }
@@ -209,13 +216,20 @@ Syntax: **ToolsStream.SaveFileAsText** ( *FileName* [ **,** *Data* ] [ **,** *Ch
 : *required* A **String**, the file to write. An existing file is replaced. The folder must exist: when it does not, the call raises error 3004, *Write to file failed*.
 
 *Data*
-: *optional* A **String**, the text to write. It is declared optional, and meant to default to the lines of [**LineData**](#linedata) in line mode, or to the text the stream already holds. Neither default works: a **String** that is left out is a null string, not a missing argument, so the call tries to write a null string and raises error 3001, *Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another*. Pass the text, an empty string if need be.
+: *optional* A **String**, the text to write. It is declared optional, and meant to default to the lines of [**LineData**](#linedata) in line mode, or to the text the stream already holds; see the note below.
 
 *CharSet*
 : *optional* A **String**, the name of the character set, `UTF-8` by default. A character set of `UTF-8` writes the byte order mark EF BB BF at the start of the file.
 
+<!-- test: StreamTests.SaveFileAsText_MissingFolder_Raises3004, StreamTests.SaveFileAsText_Utf8_StartsWithTheByteOrderMark -->
 The function opens the stream if it is closed, sets its character set, writes the text into it and saves the file. It leaves the stream open. The function adds no line break to the text. See the warning at the top of the page for what happens when the stream is already open.
+<!-- /test -->
 
+<!-- test: StreamTests.SaveFileAsText_DataOmittedInLineMode_WritesTheLines -->
+> [!NOTE] 1.0.0.29
+> The text cannot be left out. Neither default of *Data* works: a **String** that is left out is a null string, not a missing argument, so the call tries to write a null string and raises error 3001, *Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another*. Pass the text, an empty string if need be.
+
+<!-- test: StreamTests.SaveFileAsText_ReturnsTrueWhenTheFileIsWritten -->
 > [!WARNING] 1.0.0.29
 > The function always returns **False**. Its result is never set, even when the file was written. A program cannot use the result to see whether the call worked, and has to handle the error that the stream raises.
 
@@ -261,6 +275,7 @@ Syntax: **ToolsStream.WriteLine** ( *Text* [ **,** *Line* ] ) **As Boolean**
 *Line*
 : *optional* A **Long**. When it is greater than 0, it is stored in [**LineNumber**](#linenumber) first.
 
+<!-- test: StreamTests.WriteLine_InLineMode_StoresTheLine, StreamTests.WriteLine_LineModeOff_Raises1 -->
 > [!NOTE] 1.0.0.29
 > The function raises error 13 every time line mode is on. It adds the line to the collection with `LineData.Add Text, LineNumber`, and a collection takes a **String** as the key of an item, not a **Long**. Items can be added to **LineData** directly with its own **Add**. When line mode is off, the function raises error 1 with a Chinese message that means *line reading and writing is not switched on*.
 
diff --git a/docs/Reference/Contributed/TBMANLIB/index.md b/docs/Reference/Contributed/TBMANLIB/index.md
index 3ee2ab1d..a49f0657 100644
--- a/docs/Reference/Contributed/TBMANLIB/index.md
+++ b/docs/Reference/Contributed/TBMANLIB/index.md
@@ -79,6 +79,7 @@ The references of a package are not visible to the project that uses it. A progr
 
 The package is built for 32-bit programs. The window procedure that **cSubClass** installs is passed to **SetWindowLong** as a **Long**, which a 64-bit program cannot hold.
 
+<!-- test: none -- the compiler refuses the package as a whole in a 64-bit build, which no case of a project can state -->
 > [!WARNING] BETA 1005
 > A project that embeds TBMANLIB and is built for 64-bit programs (**Win64**) does not compile. The compiler reports TB5001 in `cSubClass.twin`, *Validation of call to 'SetWindowLong' failed. Argument for 'dwNewLong': cannot coerce type 'Callback' to 'Long'*, even when the program uses nothing of the package. The package can be used in 32-bit programs only.
 
@@ -90,12 +91,13 @@ Part of the code is unfinished, and the source holds test code and notes to the
 
 - [**cToolsStream**](cToolsStream), and with it [**cJson.LoadFrom**](cJson#loadfrom) and [**cJson.SaveTo**](cJson#saveto), leave the shared stream open after a text call, so that the next text call fails or writes over the old text. [**SaveFileAsText**](cToolsStream#savefileastext) always returns **False**, and [**WriteLine**](cToolsStream#writeline) always raises error 13.
 - [**cCsv**](cCsv): the functions that add columns and widths return **False** always, the `value` property cannot be set, removing a column other than the last one corrupts the saved file, and a character that the system code page lacks leaves an empty file.
-- [**cHttpClient**](cHttpClient) accepts every certificate, [**RequestDataQuery**](cHttpClient#requestdataquery) loses the name of its first item, header values are cut at their first colon, so [**FollowRedirect**](cHttpClient#followredirect) cannot work, and its content type header does not follow a later change of the content type.
+- [**cHttpClient**](cHttpClient) accepts every certificate, [**RequestDataQuery**](cHttpClient#requestdataquery) loses the name of its first item, [**RequestDataForm**](cHttpClient#requestdataform) values are not URL encoded, header values are cut at their first colon, so [**FollowRedirect**](cHttpClient#followredirect) cannot work, and its content type header does not follow a later change of the content type.
 - [**ToolsHttp.UrlDecodeUtf8**](ToolsHttp#urldecodeutf8) raises error 13 for any text with a `%`, [**UrlEncodUtf8**](ToolsHttp#urlencodutf8) writes the characters from hex 80 to hex FFF wrongly, and [**ToolsCN.GetPinYin**](ToolsCN#getpinyin) raises an error for any text with an English letter, a digit or a space in it.
-- [**cJson.Decode**](cJson#decode) rejects an array that follows a line break.
-- [**cToolsStr.GetLastChar**](cToolsStr#getlastchar) returns the first character, [**UniVbCrLf**](cToolsStr#univbcrlf) doubles a line feed, [**IsEmptyEx**](cToolsStr#isemptyex) trims the variable it is given, and [**SplitLinesToCollection**](cToolsStr#splitlinestocollection) loses a last line of one character.
+- [**cJson.Decode**](cJson#decode) rejects an array that follows a line break, accepts text that is not JSON, and keeps the old array or object when it reads the other kind; [**Items**](cJson#items) adds a value instead of replacing one, and [**Encode**](cJson#encode) does not write `{}` for an empty document.
+- [**cToolsStr.GetLastChar**](cToolsStr#getlastchar) returns the first character, [**UniVbCrLf**](cToolsStr#univbcrlf) doubles a line feed, [**IsEmptyEx**](cToolsStr#isemptyex) trims the variable it is given, [**SplitLinesToCollection**](cToolsStr#splitlinestocollection) loses a last line of one character, [**ToHex**](cToolsStr#tohex) writes one digit for a byte below 16, [**PercentEncode**](cToolsStr#percentencode) encodes the digits only, and the functions that keep a position in an **Integer** raise error 6 for a string of more than 32,767 characters.
 - [**ToolsUtf8.DecodeToByteArray**](ToolsUtf8#decodetobytearray) returns half of the bytes.
-- [**ToolsArray.SliceByteArray**](ToolsArray#slicebytearray) returns a wrong result when the start and the end are the same.
+- [**ToolsArray.SliceByteArray**](ToolsArray#slicebytearray) returns a wrong result when the start and the end are the same, and [**SplitByteArrayByKeyword**](ToolsArray#splitbytearraybykeyword) raises an error for a keyword at the start.
+- [**ToolsFso.AutoCompleteFullPath**](ToolsFso#autocompletefullpath) and [**ClearSpan**](ToolsFso#clearspan) spoil a network path and a drive path written with forward slashes, [**MakeNewFileFulPath**](ToolsFso#makenewfilefulpath) leaves out the folder, [**ToolsDic.DeepCopy**](ToolsDic#deepcopy) copies the first level only, [**ToolsHttp.ParseKeyValue**](ToolsHttp#parsekeyvalue) cuts a value at its colon, and [**ToolsMath.Ceil**](ToolsMath#ceil) rounds `0.07` up to 0.08.
 - [**cLogs.Save**](cLogs#save) sends the other outputs at the level **Info**, and the levels **Debugger** and **Custom** raise an error.
 - [**cTimer**](cTimer) and [**cTimers**](cTimers) objects that are enabled are not destroyed when the program releases them, and go on running.
 
@@ -148,3 +150,7 @@ Some types of the package have no members, or none that a program is meant to us
 - [TBMANLIB_RES](../TBMANLIB_RES/) package -- resources embedded in an executable, by the same author
 - [TBMANLIB_Xml](../TBMANLIB_Xml/) package -- XML documents, by the same author
 - [Importing a package from TWINSERV](../../../../Features/Packages/Importing-TWINSERV) -- adding a published package to a project
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB-tests.twinproj](TBMANLIB-tests.twinproj), a twinBASIC project. It uses TBMANLIB as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_Aes/cAes.md b/docs/Reference/Contributed/TBMANLIB_Aes/cAes.md
index 134494bf..5263a5b2 100644
--- a/docs/Reference/Contributed/TBMANLIB_Aes/cAes.md
+++ b/docs/Reference/Contributed/TBMANLIB_Aes/cAes.md
@@ -32,6 +32,7 @@ In the syntax lines of this page, *object* is a **cAes**.
 
 ## Defaults
 
+<!-- test: DefaultsAndConstantsTests.New_StartsWithTheDefaultValues -->
 A new **cAes** starts with these values.
 
 | Property | Starting value |
@@ -56,13 +57,17 @@ Debug.Print helper.IsArrayEmpty(keyBytes)    ' True
 Debug.Print aes.IsInitialized                ' False
 Debug.Print Len(aes.LastError)               ' 0
 ```
+<!-- /test -->
 
+<!-- test: ModeTests.EncryptBytes_TwoCallsWithTheSamePropertiesGiveTheSameOutput -->
 Every call of an encrypt or a decrypt method starts again from **Key** and **IV**: it makes new Windows key objects, and it does not continue the chaining of an earlier call. Two encryptions in a row with the same properties give the same output.
+<!-- /test -->
 
 ## Which mode runs
 
+<!-- test: ModeTests.EncryptBytes_Ecb_EqualPlainBlocksGiveEqualCipherBlocks, ModeTests.EncryptBytes_Cbc_EqualPlainBlocksGiveDifferentCipherBlocks, ModeTests.EncryptBytes_Cbc_DefaultModeGivesDifferentCipherBlocksForEqualPlainBlocks, ModeTests.EncryptBytes_Cbc_IVChangesTheCiphertext, ModeTests.EncryptBytes_Ecb_IVDoesNotChangeTheCiphertext, ModeTests.EncryptBytes_Ofb_DiffersFromCfbAfterTheFirstBlock, ModeTests.EncryptBytes_Ctr_DiffersFromCfb, ModeTests.EncryptBytes_Ctr_DiffersFromOfb, ModeTests.EncryptBytes_Cfb_IVChangesTheCiphertext, ModeTests.EncryptBytes_Ecb_RoundTrips, ModeTests.EncryptBytes_Cbc_RoundTrips, ModeTests.EncryptBytes_Cfb_RoundTrips, ModeTests.EncryptBytes_Ofb_RoundTrips, ModeTests.EncryptBytes_Ctr_RoundTrips, ModeTests.EncryptBytes_Gcm_RoundTrips, StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheVectorOfSp80038aF11, StandardVectorTests.EncryptBytes_Ecb_Aes192_GivesTheVectorOfSp80038aF13, StandardVectorTests.EncryptBytes_Ecb_Aes256_GivesTheVectorOfSp80038aF15, StandardVectorTests.DecryptBytes_Ecb_Aes128_GivesThePlaintextOfSp80038aF12, StandardVectorTests.EncryptBytes_Cbc_Aes128_GivesTheVectorOfSp80038aF21, StandardVectorTests.EncryptBytes_Cbc_Aes192_GivesTheVectorOfSp80038aF23, StandardVectorTests.EncryptBytes_Cbc_Aes256_GivesTheVectorOfSp80038aF25, StandardVectorTests.DecryptBytes_Cbc_Aes128_GivesThePlaintextOfSp80038aF22, StandardVectorTests.EncryptBytes_Cfb_Aes128_GivesTheVectorOfSp80038aF313, StandardVectorTests.EncryptBytes_Cfb_Aes192_GivesTheVectorOfSp80038aF315, StandardVectorTests.EncryptBytes_Cfb_Aes256_GivesTheVectorOfSp80038aF317, StandardVectorTests.DecryptBytes_Cfb_Aes128_GivesThePlaintextOfSp80038aF314, StandardVectorTests.EncryptBytes_Ofb_Aes128_GivesTheVectorOfSp80038aF41, StandardVectorTests.EncryptBytes_Ofb_Aes192_GivesTheVectorOfSp80038aF43, StandardVectorTests.EncryptBytes_Ofb_Aes256_GivesTheVectorOfSp80038aF45, StandardVectorTests.DecryptBytes_Ofb_Aes128_GivesThePlaintextOfSp80038aF42, StandardVectorTests.EncryptBytes_Ctr_Aes128_GivesTheVectorOfSp80038aF51, StandardVectorTests.EncryptBytes_Ctr_Aes192_GivesTheVectorOfSp80038aF53, StandardVectorTests.EncryptBytes_Ctr_Aes256_GivesTheVectorOfSp80038aF55, StandardVectorTests.DecryptBytes_Ctr_Aes128_GivesThePlaintextOfSp80038aF52 -->
 > [!WARNING] 1.0.0.4
-> The name of a mode is not always the mode that runs. **ECB** runs CBC with an IV of zero bytes, **CBC** runs ECB, and **OFB** and **CTR** run CFB. Neither **ECB** nor **CBC** uses the IV that the program sets, so the same key and plaintext always give the same ciphertext, and in the default mode **CBC** equal plaintext blocks give equal ciphertext blocks. A round trip succeeds in every case, because encryption and decryption use the same mode, so a test that only decrypts what it has encrypted shows nothing.
+> The name of a mode is not always the mode that runs. **ECB** runs CBC with an IV of zero bytes, **CBC** runs ECB, and **OFB** and **CTR** run CFB. The CFB that runs has an 8-bit feedback, where the standard CFB has a 128-bit feedback, so **CFB**, **OFB** and **CTR** give the output of none of the standard modes of those names. Neither **ECB** nor **CBC** uses the IV that the program sets, so the same key and plaintext always give the same ciphertext, and in the default mode **CBC** equal plaintext blocks give equal ciphertext blocks. A round trip succeeds in every case, because encryption and decryption use the same mode, so a test that only decrypts what it has encrypted shows nothing.
 
 | Mode | Windows interface | What runs | The IV |
 |---|---|---|---|
@@ -104,6 +109,10 @@ The **Key** array is therefore not the AES key of these two modes. Other softwar
 
 The class pads the data as [**PaddingMode**](#paddingmode) says, and then calls `CryptEncrypt` for the last block. Windows adds its own PKCS #5 padding at that call, whatever **PaddingMode** is, so the output is longer than the padded data by 1 to 16 bytes: a whole block when the padded data already fills its blocks. On decryption Windows takes off its padding, and then the class takes off its own.
 
+<!-- test: StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheBlockOfFips197C1, StandardVectorTests.EncryptBytes_Ecb_Aes192_GivesTheBlockOfFips197C2, StandardVectorTests.EncryptBytes_Ecb_Aes256_GivesTheBlockOfFips197C3, StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheVectorOfSp80038aF11, StandardVectorTests.EncryptBytes_Cbc_Aes128_GivesTheVectorOfSp80038aF21, CryptoApiModeTests.EncryptBytes_Ecb_NoPaddingKeepsTheLengthOfTheInput, CryptoApiModeTests.EncryptBytes_Cbc_NoPaddingKeepsTheLengthOfTheInput, CryptoApiModeTests.EncryptBytes_Ecb_Pkcs7OfOneBlockGivesTwoBlocks, CryptoApiModeTests.EncryptBytes_Cbc_Pkcs7OfOneBlockGivesTwoBlocks, CryptoApiModeTests.EncryptBytes_Ecb_RefusesAKeyOfFiveBytes, CryptoApiModeTests.EncryptBytes_Cbc_RefusesAKeyOfFortyBytes -->
+> [!WARNING] 1.0.0.4
+> The output of **ECB** and **CBC** is not AES under the key in **Key**: the key is the SHA-256 hash of the bytes, and Windows adds a padding of its own, so the output is longer than the data even with **NoPadding**. The AES test vectors of FIPS 197 and NIST SP 800-38A do not come out, and other AES software cannot read the output. A **Key** of any length is accepted, a key of 5 or 40 bytes included, and a program is not told that the key is not an AES key.
+
 In this sample, the default mode **CBC** encrypts two equal blocks. The first two blocks of the output are equal, and so are the last two, which come from the two paddings. **Key** is the 16-byte key of the examples of NIST SP 800-38A, and the mode hashes it before it uses it.
 
 ```tb check_build check_run projname=aes-class
@@ -176,7 +185,9 @@ Debug.Print HexOf(cipher)    ' 4a25e445195fc88dd0b7fff307d49a9a3daa1722a6ebdf652
 
 ### The CNG modes
 
+<!-- test: KeyAndIVTests.EncryptBytes_Cfb_RefusesAKeyOf20Bytes, KeyAndIVTests.EncryptBytes_Cfb_KeySizeDoesNotChangeTheKeyLengthThatRuns -->
 The modes **CFB**, **OFB**, **CTR** and **GCM** open the CNG provider for AES, set its chaining mode to `ChainingModeCFB` (**CFB**, **OFB**, **CTR**) or `ChainingModeGCM` (**GCM**), and make the key from the bytes of **Key** as they are. The key length is the length of the array: 16, 24 and 32 bytes give AES-128, AES-192 and AES-256. An array of any other length, such as 20 bytes, makes the call fail, and [**KeySize**](#keysize) has no effect: a 32-byte key with **KeySize_128** is an AES-256 key.
+<!-- /test -->
 
 The class does not set the message block length of the chaining mode, and CNG then feeds back one byte at a time: the CFB of these modes is CFB with an 8-bit feedback, the mode that NIST SP 800-38A lists as CFB8, and not CFB with a 128-bit feedback. Output of other software in CFB mode, which is usually CFB128, is different from it.
 
@@ -232,7 +243,9 @@ Debug.Print HexOf(cipher)
 ' 3b79424c9c0dd436bace9e0ed4586a4f32b9
 ```
 
+<!-- test: KeyAndIVTests.EncryptBytes_Cfb_NoIVGivesTheOutputOfAnIVOfZeroBytes, KeyAndIVTests.EncryptBytes_Cfb_RefusesAnIVOf12Bytes, KeyAndIVTests.EncryptBytes_Cfb_IVOf16BytesIsAccepted -->
 The IV of these modes is passed to CNG as it is, from the first element, with its length. CNG needs 16 bytes for CFB, and an IV of another length, such as 12 bytes, makes the call fail. With no IV set, the class passes none, and CNG uses 16 zero bytes: the output equals that of an IV of 16 zero bytes.
+<!-- /test -->
 
 ### Reading the output with other software
 
@@ -249,6 +262,7 @@ What the standard decryption returns is the data followed by the padding that [*
 
 ### Data that is not checked
 
+<!-- test: FailureTests.DecryptString_WrongKeyWithNoPadding_ReturnsOtherText -->
 None of the modes but **GCM** checks that the data is the data that was encrypted. A decryption with a wrong key, a wrong IV or damaged bytes gives other bytes, and nothing reports it. With the **PKCS7** padding of the default, the padding check rejects most of these results, about 255 of 256, and the decryption fails; the rest pass as data. With **NoPadding** or **ISO10126** there is no check, and [**DecryptString**](#decryptstring) returns whatever text the bytes decode to.
 
 ```tb check_build check_run
@@ -276,6 +290,7 @@ text = reader.DecryptString(writer.EncryptString("Hello, AES!"))
 Debug.Print Len(text) > 0                    ' True
 Debug.Print text = "Hello, AES!"             ' False
 ```
+<!-- /test -->
 
 ## GCM mode
 
@@ -288,7 +303,12 @@ GCM encrypts and authenticates. A **cAes** in GCM mode works in these steps.
 
 To decrypt, a **cAes** with the same key needs the same **IV**, **GcmTag** and **GcmAAD**. Windows checks the tag against the ciphertext and the additional data. When the check fails, [**DecryptBytes**](#decryptbytes) raises the error described under [Failures](#failures) and [**DecryptString**](#decryptstring) returns an empty string. No text is recorded in [**LastError**](#lasterror).
 
-**PaddingMode** applies in GCM mode as in the others. With the default **PKCS7** the ciphertext is 1 to 16 bytes longer than the plaintext, which is not what other GCM software produces, and the tag is a tag of the padded data. Use **NoPadding** to get standard GCM output. The sample is test case 4 of the GCM specification by McGrew and Viega, the document that NIST SP 800-38D is based on: a 60-byte plaintext, 20 bytes of additional data and the standard IV length of 96 bits.
+<!-- test: GcmTests.EncryptBytes_Gcm_DefaultPaddingGivesTheStandardOutput -->
+> [!NOTE] 1.0.0.4
+> **PaddingMode** applies in GCM mode as in the others. With the default **PKCS7** the ciphertext is 1 to 16 bytes longer than the plaintext, which is not what other GCM software produces, and the tag is a tag of the padded data. Use **NoPadding** to get standard GCM output.
+
+<!-- test: GcmTests.EncryptBytes_Gcm_Aes128_GivesTheVectorOfTestCase4, GcmTests.EncryptBytes_Gcm_Aes192_GivesTheVectorOfTestCase10, GcmTests.EncryptBytes_Gcm_Aes256_GivesTheVectorOfTestCase16, GcmTests.EncryptBytes_Gcm_AnIVLongerThan12BytesGivesTheOutputOfItsFirst12Bytes, GcmTests.DecryptBytes_Gcm_DamagedTagRaises, GcmTests.DecryptBytes_Gcm_DamagedAdditionalDataRaises, GcmTests.DecryptBytes_Gcm_DamagedCiphertextRaises, GcmTests.DecryptBytes_Gcm_ChangedIVRaises, GcmTests.DecryptBytes_Gcm_NoTagRaises, GcmTests.DecryptBytes_Gcm_TagOf12BytesIsAccepted, GcmTests.DecryptBytes_Gcm_TagOf4BytesIsRefused -->
+The sample is test case 4 of the GCM specification by McGrew and Viega, the document that NIST SP 800-38D is based on: a 60-byte plaintext, 20 bytes of additional data and the standard IV length of 96 bits.
 
 ```tb check_build check_run projname=aes-class
 Dim aes As cAes = New cAes(AesKeySize.KeySize_128, AesCipherMode.GCM, AesPaddingMode.NoPadding)
@@ -351,7 +371,9 @@ Debug.Print Err.Number
 ```
 
 A decryption with no tag set fails in the same way, after the line `DoDecryptCNG_GCM failed: GCM tag not set for decryption`. A tag of 16 bytes is the length that the encryption makes. The class passes the length of **GcmTag** to Windows as it is: a tag cut to its first 12 bytes is accepted and the decryption returns the plaintext, and one cut to 4 bytes makes Windows fail with an invalid parameter.
+<!-- /test -->
 
+<!-- test: GcmTests.EncryptBytes_Gcm_NoIVCanBeDecrypted, GcmTests.EncryptBytes_Gcm_NoIVLeavesTheNonceInIV, GcmTests.EncryptBytes_Gcm_NoIVRaisesNoErrorAndUsesAFreshNonceEachTime -->
 > [!WARNING] 1.0.0.4
 > A GCM encryption with no IV set makes a random 12-byte nonce, uses it, and keeps it nowhere. [**IV**](#iv) stays empty. A decryption with no IV uses a nonce of 12 zero bytes, so its tag check fails and the data cannot be decrypted. The encryption raises no error. Set **IV** before every GCM encryption, and keep it with the ciphertext.
 
@@ -374,7 +396,9 @@ Debug.Print HexOf(first) = HexOf(second)     ' False
 Debug.Print helper.IsArrayEmpty(ivBytes)     ' True
 ```
 
+<!-- test: GcmTests.EncryptBytes_Gcm_TwoEncryptionsWithTheSameIVUseTheSameNonce -->
 GCM requires that no nonce is used twice with the same key (NIST SP 800-38D). The class never changes **IV**, so two encryptions in a row use the same nonce unless the program sets a new **IV** between them.
+<!-- /test -->
 
 ## Failures
 
@@ -385,9 +409,11 @@ A failed call does not tell why, and what the caller gets depends on the member.
 - [**SetKeyFromString**](#setkeyfromstring) raises an error of its own, `vbObjectError + 2`.
 - [**GenerateRandomIV**](#generaterandomiv) and [**Cleanup**](#cleanup) cannot fail, and the properties raise nothing.
 
+<!-- test: FailureTests.EncryptBytes_NoKey_RaisesUnspecifiedError, FailureTests.EncryptBytes_NoKey_ErrorNamesTheCause, FailureTests.EncryptBytes_EmptyInput_RaisesUnspecifiedError, FailureTests.DecryptBytes_NoKey_RaisesUnspecifiedError, FailureTests.DecryptBytes_NoKey_ErrorNamesTheCause, FailureTests.DecryptBytes_GcmDamagedTag_ErrorNamesTheCause, FailureTests.DecryptBytes_Cfb_InvalidPadding_RaisesUnspecifiedError -->
 > [!NOTE] 1.0.0.4
 > A program that calls **EncryptBytes** or **DecryptBytes** needs an `On Error` statement, and cannot tell a missing key from a wrong tag or a damaged ciphertext by the error. The Debug Console of the IDE shows more: the package prints lines with `Debug.Print`, such as `DecryptBytes error: Key not set` and `BCryptEncrypt failed: 0xC0000206` followed by a message, and a built program writes none of them.
 
+<!-- test: FailureTests.EncryptString_NoKey_ReturnsAnEmptyString, FailureTests.EncryptString_NoKey_ReportsTheFailure, FailureTests.EncryptString_EmptyText_ReturnsAnEmptyString, FailureTests.DecryptString_GcmDamagedTag_ReturnsAnEmptyString, FailureTests.DecryptString_GcmDamagedTag_ReportsTheFailure, FailureTests.DecryptString_InvalidBase64_ReturnsAnEmptyStringAndSetsLastError -->
 > [!WARNING] 1.0.0.4
 > The string members hide a failure in an empty string. **DecryptString** of a GCM message whose tag does not match, of a message with a wrong key in a mode with padding, and of Base64 text that is not valid, all give the same empty string as an empty plaintext would, and **EncryptString** gives an empty string for a missing key. A program must test the result with `Len`.
 
@@ -400,6 +426,7 @@ These are the causes of a failure in the source:
 - the Base64 text of [**DecryptString**](#decryptstring) is not valid;
 - Windows reports an error, for example when the CNG provider is not available.
 
+<!-- test: FailureTests.LastError_IsNotClearedByALaterSuccess -->
 [**LastError**](#lasterror) holds a text only for the failures of the Base64, UTF-8 and padding functions of [**cAesHelper**](cAesHelper#lasterror), and is never cleared. `Err.Number` can also be 9 after a call that succeeded: the class tests its arrays with [**IsArrayEmpty**](cAesHelper#isarrayempty), which leaves the error 9 in `Err` when an array was never sized, for example when no IV is set in the mode **CFB**. A program should not take a non-zero `Err.Number` after a call that raised nothing for a failure.
 
 ```tb check_build check_run
@@ -416,6 +443,7 @@ Err.Clear
 Debug.Print Len(aes.EncryptString("text"))   ' 0
 Debug.Print Len(aes.LastError)               ' 0
 ```
+<!-- /test -->
 
 ## Constructors
 
@@ -437,7 +465,9 @@ Syntax: **Dim** *aes* **As cAes = New cAes** ( *keySize*, *cipherMode*, *padding
 *paddingMode*
 : *required* An [**AesPaddingMode**](mAesConstants#aespaddingmode) member, stored in [**PaddingMode**](#paddingmode).
 
+<!-- test: DefaultsAndConstantsTests.New_WithArgumentsStoresThem -->
 With no arguments the object starts with the values in [Defaults](#defaults). The constructor does not check the values. The class has the attribute `[COMCreatable(False)]`, so a program creates it with `New` and not with `CreateObject`.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim aes As cAes = New cAes(AesKeySize.KeySize_128, AesCipherMode.GCM, AesPaddingMode.NoPadding)
@@ -487,7 +517,9 @@ Whether the Windows key objects of the object exist. **Boolean**, read-only. Def
 
 Syntax: *object*.**IsInitialized**
 
+<!-- test: DefaultsAndConstantsTests.IsInitialized_IsTrueAfterACallAndFalseAfterASetterOrCleanup -->
 An encrypt or a decrypt call makes the key objects, and **IsInitialized** is **True** after one succeeded in making them. The setters of [**Key**](#key), [**IV**](#iv), [**KeySize**](#keysize), [**CipherMode**](#ciphermode) and [**PaddingMode**](#paddingmode), [**SetKeyFromString**](#setkeyfromstring) and [**Cleanup**](#cleanup) set it to **False**. The property does not say that the key is valid or that the last call succeeded. No call needs it: each call makes its own key objects.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim aes As New cAes
@@ -640,10 +672,13 @@ cipher = aes.EncryptBytes(plain)
 Debug.Print UBound(cipher) + 1               ' 32
 ```
 
+<!-- test: PaddingTests.EncryptBytes_Pkcs7_PadsToTheNextWholeBlock, PaddingTests.EncryptBytes_ZeroPadding_PadsToTheNextWholeBlock, PaddingTests.EncryptBytes_NoPadding_KeepsTheLengthOfTheInput, PaddingTests.EncryptBytes_Pkcs7_RoundTripsEveryLengthFrom1To40, PaddingTests.DecryptBytes_Pkcs7_RejectsInvalidPadding, PaddingTests.DecryptBytes_Iso10126_RoundTrips, PaddingTests.DecryptBytes_ZeroPadding_TakesOffTheZeroBytesTheEncryptionAdded -->
 With **NoPadding** in the modes **CFB**, **OFB**, **CTR** and **GCM**, the output has the length of the input. In the modes **ECB** and **CBC** it never does.
 
 **ISO10126** gives the output of **NoPadding**, and no padding is added. With **ZeroPadding** the decryption removes every zero byte at the end of the data, and with the data `41 42 00 00` it returns the two bytes `41 42`.
+<!-- /test -->
 
+<!-- test: PaddingTests.DecryptBytes_ZeroPadding_KeepsTheTrailingZeroBytesOfTheData, PaddingTests.DecryptBytes_ZeroPadding_DataOfZeroBytesRoundTrips -->
 > [!WARNING] 1.0.0.4
 > With **ZeroPadding**, the class gives back less than it was given when the data ends in zero bytes. The decryption removes every zero byte at the end of the data, and not only the ones that the encryption added, and raises no error. Data that is all zero bytes fails the decryption. Use **PKCS7** for data that can end in zero bytes.
 
@@ -656,7 +691,9 @@ Releases the Windows handles of the object.
 
 Syntax: *object*.**Cleanup**
 
+<!-- test: DefaultsAndConstantsTests.Cleanup_LeavesTheObjectUsable -->
 The object holds a Crypto API provider and key and a CNG algorithm and key after an encrypt or a decrypt call. **Cleanup** closes and destroys them, and sets [**IsInitialized**](#isinitialized) to **False**. The class calls it when the object is destroyed, so a program needs it only to release the handles earlier. The next encrypt or decrypt call makes new ones, so the object stays usable.
+<!-- /test -->
 
 **Cleanup** does not clear the memory of [**Key**](#key), [**IV**](#iv), [**GcmTag**](#gcmtag) or [**GcmAAD**](#gcmaad), and does not empty them.
 
@@ -766,8 +803,11 @@ Fills [**IV**](#iv) with 16 random bytes, and returns them.
 
 Syntax: *object*.**GenerateRandomIV** ( ) **As Byte()**
 
+<!-- test: KeyAndIVTests.GenerateRandomIV_Returns16BytesAndSetsTheIV -->
 Returns a **Byte** array of 16 bytes, which is also the new value of **IV**. The method calls `Randomize`, which mixes the system timer into the state of `Rnd` for the whole program, and then takes 16 values of `Rnd`.
+<!-- /test -->
 
+<!-- test: KeyAndIVTests.GenerateRandomIV_TwoCallsFromTheSameRndStateGiveDifferentIVs -->
 > [!WARNING] 1.0.0.4
 > The bytes come from `Rnd`, a pseudo-random generator, and not from a cryptographic one; the comment in the source says that the Crypto API would give better randomness. The state of `Rnd` has 24 bits: its sequence repeats after 16,777,216 values, so the method can return at most 16,777,216 different IVs, and two calls that start from the same state of `Rnd` return the same IV. A program that needs an IV that cannot be predicted can set [**IV**](#iv) from a source of its own.
 
@@ -838,6 +878,7 @@ Syntax: *object*.**SetGcmAADFromString** ( *aadString* [, *encoding*] )
 
 The method does not raise an error. When the conversion fails, it prints `SetGcmAADFromString failed: ` and the description with `Debug.Print`, which a built program does not show, and leaves **GcmAAD** as it was. The program that decrypts has to convert the string in the same way, since the bytes with another encoding are other bytes. [**EncryptString**](#encryptstring) uses UTF-8 for its text, and this method does not.
 
+<!-- test: GcmTests.SetGcmAADFromString_EmptyTextRemovesTheData, GcmTests.SetGcmAADFromString_SetsTheBytesOfTheText -->
 > [!WARNING] 1.0.0.4
 > An empty string does not remove the additional data. The method fails for an empty string and keeps the data that was set before, and only the Debug Console shows the message `SetGcmAADFromString failed: Unspecified error`. The next GCM encryption then authenticates the old data. To remove the data, assign an array that was never sized to [**GcmAAD**](#gcmaad).
 
@@ -872,9 +913,11 @@ Syntax: *object*.**SetKeyFromString** ( *keyString* [, *encoding*] )
 
 The method converts *keyString* to bytes with **StrConv** and makes an array of the length that [**KeySize**](#keysize) names, 16, 24 or 32 bytes: the first bytes of the conversion when it is longer, and the bytes followed by zero bytes when it is shorter. The array is the new value of **Key**. The method does not use the string in any other way.
 
+<!-- test: KeyAndIVTests.SetKeyFromString_DifferentTextsGiveDifferentKeys, KeyAndIVTests.SetKeyFromString_ShortTextIsNotExtendedWithZeroBytes, KeyAndIVTests.SetKeyFromString_TextLongerThanTheKeyIsCutAndShorterIsFollowedByZeros -->
 > [!WARNING] 1.0.0.4
 > There is no key derivation. The key is the bytes of the text, cut or extended with zero bytes: a string longer than the key is cut without a message, so that two strings that begin with the same 32 bytes give the same key (with **KeySize_256**), and a short string is a short key followed by zeros. The modes **ECB** and **CBC** then hash the bytes once with SHA-256, without a salt; the modes **CFB**, **OFB**, **CTR** and **GCM** use them as the key. With the default encoding, a character that is not in the ANSI code page of the system is converted to another character, and the same text gives different bytes on systems with another code page.
 
+<!-- test: KeyAndIVTests.SetKeyFromString_KeyHasTheLengthOfKeySize, KeyAndIVTests.SetKeyFromString_Utf8EncodingGivesTheBytesOfUtf8, KeyAndIVTests.SetKeyFromString_EmptyTextRaisesAndKeepsTheKey -->
 The method raises an error when *keyString* is empty: **Err.Number** is `vbObjectError + 2`, **Err.Source** is `cAes.SetKeyFromString` and **Err.Description** is `Key cannot be empty`. **Key** is not changed, and [**IsInitialized**](#isinitialized) is set to **False**. When **KeySize** has a value that is not a member of the enumeration, the key is left as it was and no error is raised.
 
 ```tb check_build check_run projname=aes-class
@@ -900,6 +943,7 @@ Debug.Print Err.Number - vbObjectError       ' 2
 Debug.Print Err.Source                       ' cAes.SetKeyFromString
 Debug.Print Err.Description                  ' Key cannot be empty
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Aes/cAesHelper.md b/docs/Reference/Contributed/TBMANLIB_Aes/cAesHelper.md
index c8f2aaaf..43d90ed0 100644
--- a/docs/Reference/Contributed/TBMANLIB_Aes/cAesHelper.md
+++ b/docs/Reference/Contributed/TBMANLIB_Aes/cAesHelper.md
@@ -38,8 +38,9 @@ A member that fails does not tell why, and what the caller gets depends on the t
 - **Base64Encode** and **Utf8BytesToString**, the members that return a **String**, return an empty string and raise no error. They leave the error in `Err`, which is not cleared: after an array that was never sized, `Err.Number` is 9.
 - **IsArrayEmpty** raises no error, and leaves `Err.Number` at 9 when it tests an array that was never sized.
 
+<!-- test: HelperTests.Base64Decode_EmptyTextRaisesUnspecifiedError, HelperTests.Base64Decode_InvalidTextRaisesUnspecifiedError, HelperTests.Base64Decode_InvalidText_LastErrorNamesTheCause, HelperTests.StringToUtf8Bytes_EmptyTextRaisesUnspecifiedError, HelperTests.ApplyPKCS7Padding_UnsizedArrayRaisesUnspecifiedError, HelperTests.RemovePKCS7Padding_RefusesALastByteOfZero, HelperTests.RemovePKCS7Padding_RefusesACountAbove16, HelperTests.RemovePKCS7Padding_RefusesACountLargerThanTheData, HelperTests.RemovePKCS7Padding_RefusesPaddingBytesThatDiffer, HelperTests.RemovePKCS7Padding_RefusesDataThatIsAllPadding, HelperTests.RemovePKCS7Padding_InvalidPadding_LastErrorNamesTheCause, HelperTests.RemoveZeroPadding_ArrayOfZeroBytesRaisesUnspecifiedError -->
 > [!NOTE] 1.0.0.4
-> The members that raise **Unspecified error** do so for the failures that [**cAes**](cAes) cannot recover from as well. A program that calls one of them with an input that can be empty or damaged needs an `On Error` statement, and cannot tell the causes apart by the error.
+> The members that raise **Unspecified error** do so for the failures that [**cAes**](cAes) cannot recover from as well. A program that calls one of them with an input that can be empty or damaged needs an `On Error` statement, and cannot tell the causes apart by the error or by [**LastError**](#lasterror), which holds a general text and not the cause.
 
 Every member that reads an array reads its first element as the element with index 0. An array with another lower bound fails: **Base64Encode** returns an empty string with the [**LastError**](#lasterror) text `Base64 encoding exception: Subscript out of range`, and **ApplyPKCS7Padding** raises **Unspecified error**, after it has set the text `PKCS7 padding exception: Subscript out of range`.
 
@@ -98,7 +99,9 @@ Syntax: *object*.**ApplyPKCS7Padding** ( *data*, *blockSize* ) **As Byte()**
 *blockSize*
 : *required* A **Long**, the block size in bytes. [**cAes**](cAes) passes 16. The padding bytes hold their own count, so the value must be at most 255.
 
+<!-- test: HelperTests.ApplyPKCS7Padding_AddsTheCountOfTheBytesAdded -->
 The function adds from 1 to *blockSize* bytes, to make the length a multiple of *blockSize*. Each added byte holds the number of bytes added. Data whose length is already a multiple of *blockSize* gets a whole block, *blockSize* bytes holding the value *blockSize*. The result is a new array with index 0 as its first element.
+<!-- /test -->
 
 An array that was never sized raises **Unspecified error**, as [Failures](#failures) describes.
 
@@ -132,7 +135,9 @@ Syntax: *object*.**ApplyZeroPadding** ( *data*, *blockSize* ) **As Byte()**
 *blockSize*
 : *required* A **Long**, the block size in bytes. [**cAes**](cAes) passes 16.
 
+<!-- test: HelperTests.ApplyZeroPadding_AddsZeroBytesToAWholeBlock, HelperTests.ApplyZeroPadding_UnsizedArrayGivesOneBlockOfZeroBytes -->
 The function adds from 1 to *blockSize* zero bytes, to make the length a multiple of *blockSize*. Data whose length is already a multiple of *blockSize* gets a whole block of zero bytes. An array that was never sized gives one block of *blockSize* zero bytes, and no error.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim helper As New cAesHelper
@@ -158,7 +163,9 @@ Syntax: *object*.**Base64Decode** ( *base64* ) **As Byte()**
 *base64*
 : *required* A **String** of Base64 text.
 
+<!-- test: HelperTests.Base64Decode_GivesTheVectorsOfRfc4648, HelperTests.Base64Decode_SkipsLineBreaksAndSpaces -->
 The function calls the Windows function `CryptStringToBinaryW` with the format `CRYPT_STRING_BASE64`, Base64 without a header. Line breaks and spaces in the text are skipped. The result is a new array with index 0 as its first element.
+<!-- /test -->
 
 An empty string and text that Windows cannot decode both raise **Unspecified error**, and [**LastError**](#lasterror) holds `Base64 decoding exception: Unspecified error`.
 
@@ -172,7 +179,9 @@ Syntax: *object*.**Base64Encode** ( *data* ) **As String**
 *data*
 : *required* A **Byte** array, passed by reference.
 
+<!-- test: HelperTests.Base64Encode_GivesTheVectorsOfRfc4648, HelperTests.Base64Encode_WritesOneLineWithTheStandardAlphabet, HelperTests.Base64Encode_UnsizedArrayGivesAnEmptyString -->
 The function calls the Windows function `CryptBinaryToStringW` with the format `CRYPT_STRING_BASE64` and the flag `CRYPT_STRING_NOCRLF`. The result is Base64 text of the usual alphabet (`A`-`Z`, `a`-`z`, `0`-`9`, `+` and `/`) with `=` at the end when the last group is short, on one line, with no header and no line break. An array that was never sized gives an empty string, with no text in [**LastError**](#lasterror).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim helper As New cAesHelper
@@ -192,7 +201,9 @@ Syntax: *object*.**IsArrayEmpty** ( *arr* ) **As Boolean**
 *arr*
 : *required* A **Byte** array variable, passed by reference.
 
+<!-- test: HelperTests.IsArrayEmpty_TellsASizedArrayFromAnUnsizedOne -->
 Returns **True** when the array has no elements, because its upper bound is lower than its lower bound or because it was never given a size. Returns **False** otherwise. The function does not raise an error and does not use [**LastError**](#lasterror). It leaves `Err.Number` at 9 when the array was never sized, because it tests the array with `UBound` under `On Error Resume Next` and does not clear the error.
+<!-- /test -->
 
 A program uses it to test the arrays that [**cAes**](cAes) keeps in its properties, such as [**Key**](cAes#key) and [**GcmTag**](cAes#gcmtag), when they may not be set.
 
@@ -216,9 +227,11 @@ Syntax: *object*.**RemovePKCS7Padding** ( *data* ) **As Byte()**
 *data*
 : *required* A **Byte** array, passed by reference. The function does not change it.
 
+<!-- test: HelperTests.RemovePKCS7Padding_TakesOffTheCountedBytes -->
 The function reads the last byte as the count of padding bytes. It checks that the count is from 1 to 16, that it is not greater than the length of the array, and that the last *count* bytes are all equal to it. The largest count is the constant **BLOCK_SIZE_128**, whatever block size the data was padded with; the function does not check that the length of the array is a multiple of 16.
 
 When a check fails, and when the padding is the whole array, the function raises **Unspecified error**, and [**LastError**](#lasterror) holds `PKCS7 unpadding exception: Unspecified error`. The check cannot tell padded data from other data that happens to end in valid padding bytes, so it does not prove that the data is intact.
+<!-- /test -->
 
 ### RemoveZeroPadding
 {: .no_toc }
@@ -230,7 +243,9 @@ Syntax: *object*.**RemoveZeroPadding** ( *data* ) **As Byte()**
 *data*
 : *required* A **Byte** array, passed by reference. The function does not change it.
 
+<!-- test: HelperTests.RemoveZeroPadding_TakesOffTheTrailingZeroBytes -->
 The function finds the last byte that is not zero and returns the array up to and including that byte. It does not know how many bytes were added, so it also removes zero bytes that belong to the data. An array that holds only zero bytes raises **Unspecified error**, and [**LastError**](#lasterror) holds `Zero unpadding exception: Unspecified error`.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim helper As New cAesHelper
@@ -256,7 +271,9 @@ Syntax: *object*.**StringToUtf8Bytes** ( *text* ) **As Byte()**
 *text*
 : *required* A **String**.
 
+<!-- test: HelperTests.StringToUtf8Bytes_GivesTheBytesOfUtf8 -->
 The function calls the Windows function `WideCharToMultiByte` with the UTF-8 code page. The result is a new array with index 0 as its first element, without a byte order mark and without a terminating zero byte. An empty string raises **Unspecified error**, and [**LastError**](#lasterror) holds `String conversion exception: Unspecified error`.
+<!-- /test -->
 
 [**EncryptString**](cAes#encryptstring) encodes its text with this function.
 
@@ -280,7 +297,9 @@ Syntax: *object*.**Utf8BytesToString** ( *bytes* ) **As String**
 *bytes*
 : *required* A **Byte** array, passed by reference.
 
+<!-- test: HelperTests.Utf8BytesToString_ReadsUtf8, HelperTests.Utf8BytesToString_InvalidBytesBecomeTheReplacementCharacter, HelperTests.Utf8BytesToString_UnsizedArrayGivesAnEmptyStringAndSetsLastError -->
 The function calls the Windows function `MultiByteToWideChar` with the UTF-8 code page. A byte sequence that is not valid UTF-8 becomes the character U+FFFD. An array with no elements gives an empty string. An array that was never sized also gives an empty string, with `Err.Number` left at 9 and the [**LastError**](#lasterror) text `Byte conversion exception: Subscript out of range`.
+<!-- /test -->
 
 [**DecryptString**](cAes#decryptstring) decodes its result with this function.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Aes/index.md b/docs/Reference/Contributed/TBMANLIB_Aes/index.md
index 0ae66013..e96dde32 100644
--- a/docs/Reference/Contributed/TBMANLIB_Aes/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_Aes/index.md
@@ -41,8 +41,9 @@ Debug.Print aes.DecryptString(cipherText)                ' Hello, AES!
 
 The text that **EncryptString** returns is Base64 of the ciphertext alone. The program keeps the IV, and in GCM mode the tag, and sets them in the object that decrypts.
 
+<!-- test: ModeTests.EncryptBytes_Ecb_EqualPlainBlocksGiveEqualCipherBlocks, ModeTests.EncryptBytes_Cbc_EqualPlainBlocksGiveDifferentCipherBlocks, ModeTests.EncryptBytes_Cbc_DefaultModeGivesDifferentCipherBlocksForEqualPlainBlocks, ModeTests.EncryptBytes_Cbc_IVChangesTheCiphertext, ModeTests.EncryptBytes_Ecb_IVDoesNotChangeTheCiphertext, ModeTests.EncryptBytes_Ofb_DiffersFromCfbAfterTheFirstBlock, ModeTests.EncryptBytes_Ctr_DiffersFromCfb, ModeTests.EncryptBytes_Ctr_DiffersFromOfb, ModeTests.EncryptBytes_Cfb_IVChangesTheCiphertext, ModeTests.EncryptBytes_Ecb_RoundTrips, ModeTests.EncryptBytes_Cbc_RoundTrips, ModeTests.EncryptBytes_Cfb_RoundTrips, ModeTests.EncryptBytes_Ofb_RoundTrips, ModeTests.EncryptBytes_Ctr_RoundTrips, ModeTests.EncryptBytes_Gcm_RoundTrips, StandardVectorTests.EncryptBytes_Cfb_Aes128_GivesTheVectorOfSp80038aF313, StandardVectorTests.EncryptBytes_Ofb_Aes128_GivesTheVectorOfSp80038aF41, StandardVectorTests.EncryptBytes_Ctr_Aes128_GivesTheVectorOfSp80038aF51 -->
 > [!WARNING] 1.0.0.4
-> The name of a cipher mode is not always the mode that runs: **ECB** runs CBC, **CBC** runs ECB, and **OFB** and **CTR** run CFB. Neither **ECB** nor **CBC** uses the IV, so the same key and plaintext always give the same ciphertext, and the default mode, **CBC**, gives equal ciphertext blocks for equal plaintext blocks. A test that decrypts what it has encrypted does not show this. [Known problems in version 1.0.0.4](#known-problems-in-version-1004) lists this and the other defects.
+> The name of a cipher mode is not always the mode that runs: **ECB** runs CBC, **CBC** runs ECB, and **OFB** and **CTR** run CFB, whose feedback has 8 bits where the standard CFB has 128. Neither **ECB** nor **CBC** uses the IV, so the same key and plaintext always give the same ciphertext, and the default mode, **CBC**, gives equal ciphertext blocks for equal plaintext blocks. A test that decrypts what it has encrypted does not show this. [Known problems in version 1.0.0.4](#known-problems-in-version-1004) lists this and the other defects.
 
 * TOC
 {:toc}
@@ -146,3 +147,7 @@ The module **mAesUsage** holds ten `Public Sub` procedures that show the package
 - [cAesHelper](cAesHelper) class -- the Base64, UTF-8 and padding functions
 - [mAesConstants](mAesConstants) module -- the enumerations and constants
 - [Importing a package from TWINSERV](../../../../Features/Packages/Importing-TWINSERV) -- adding a published package to a project
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB_Aes-tests.twinproj](TBMANLIB_Aes-tests.twinproj), a twinBASIC project. It uses TBMANLIB_Aes as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_Aes/mAesConstants.md b/docs/Reference/Contributed/TBMANLIB_Aes/mAesConstants.md
index 555e5f13..85b4c311 100644
--- a/docs/Reference/Contributed/TBMANLIB_Aes/mAesConstants.md
+++ b/docs/Reference/Contributed/TBMANLIB_Aes/mAesConstants.md
@@ -12,6 +12,7 @@ Holds the three enumerations of the package, the sizes of AES keys and blocks, t
 
 The enumerations are the types of the [**CipherMode**](cAes#ciphermode), [**KeySize**](cAes#keysize) and [**PaddingMode**](cAes#paddingmode) properties of **cAes** and of the parameters of its constructor. A member is written with its enumeration, as in `AesCipherMode.GCM`. The constants are written with the module, as in `mAesConstants.KEY_SIZE_256`.
 
+<!-- test: DefaultsAndConstantsTests.Enumerations_HaveTheDocumentedValues, DefaultsAndConstantsTests.PackageConstants_HaveTheDocumentedValues -->
 ```tb check_build check_run
 Debug.Print AesCipherMode.GCM              ' 6
 Debug.Print AesPaddingMode.NoPadding       ' 3
@@ -20,6 +21,7 @@ Debug.Print mAesConstants.KEY_SIZE_192     ' 24
 Debug.Print mAesConstants.BLOCK_SIZE_128   ' 16
 Debug.Print mAesConstants.VERSION          ' 1.0.0
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
@@ -40,8 +42,9 @@ The cipher mode that a [**cAes**](cAes) uses. Default: **CBC**.
 | **CTR** | 5 | CNG | CFB with an 8-bit feedback |
 | **GCM** | 6 | CNG | GCM, with a 12-byte nonce and a 16-byte tag |
 
+<!-- test: ModeTests.EncryptBytes_Ecb_EqualPlainBlocksGiveEqualCipherBlocks, ModeTests.EncryptBytes_Cbc_EqualPlainBlocksGiveDifferentCipherBlocks, ModeTests.EncryptBytes_Cbc_DefaultModeGivesDifferentCipherBlocksForEqualPlainBlocks, ModeTests.EncryptBytes_Cbc_IVChangesTheCiphertext, ModeTests.EncryptBytes_Ecb_IVDoesNotChangeTheCiphertext, ModeTests.EncryptBytes_Ofb_DiffersFromCfbAfterTheFirstBlock, ModeTests.EncryptBytes_Ctr_DiffersFromCfb, ModeTests.EncryptBytes_Ctr_DiffersFromOfb, ModeTests.EncryptBytes_Cfb_IVChangesTheCiphertext, ModeTests.EncryptBytes_Ecb_RoundTrips, ModeTests.EncryptBytes_Cbc_RoundTrips, ModeTests.EncryptBytes_Cfb_RoundTrips, ModeTests.EncryptBytes_Ofb_RoundTrips, ModeTests.EncryptBytes_Ctr_RoundTrips, ModeTests.EncryptBytes_Gcm_RoundTrips, StandardVectorTests.EncryptBytes_Cfb_Aes128_GivesTheVectorOfSp80038aF313, StandardVectorTests.EncryptBytes_Ofb_Aes128_GivesTheVectorOfSp80038aF41, StandardVectorTests.EncryptBytes_Ctr_Aes128_GivesTheVectorOfSp80038aF51 -->
 > [!WARNING] 1.0.0.4
-> The name of a mode is not always the mode that runs. **ECB** runs CBC with an IV of zero bytes, **CBC** runs ECB, and **OFB** and **CTR** run CFB. Neither **ECB** nor **CBC** uses the IV that the program sets, so the same key and plaintext always give the same ciphertext, and the default mode, **CBC**, gives equal ciphertext blocks for equal plaintext blocks. Encryption and decryption agree with each other, so a round trip succeeds and shows nothing. [**cAes**](cAes#which-mode-runs) describes each mode in detail.
+> The name of a mode is not always the mode that runs. **ECB** runs CBC with an IV of zero bytes, **CBC** runs ECB, and **OFB** and **CTR** run CFB, whose feedback has 8 bits where the standard CFB has 128. Neither **ECB** nor **CBC** uses the IV that the program sets, so the same key and plaintext always give the same ciphertext, and the default mode, **CBC**, gives equal ciphertext blocks for equal plaintext blocks. Encryption and decryption agree with each other, so a round trip succeeds and shows nothing. [**cAes**](cAes#which-mode-runs) describes each mode in detail.
 
 The Crypto API is the older interface of Windows (`advapi32.dll`), and CNG, Cryptography API: Next Generation, the newer one (`bcrypt.dll`). **cAes** uses the Crypto API for **ECB** and **CBC**, and CNG for the other four modes.
 
@@ -70,6 +73,7 @@ How [**cAes**](cAes) fills the last block of the data before it encrypts, and ho
 | **NoPadding** | 3 | Adds nothing. | Takes nothing off. |
 | **ISO10126** | 4 | Adds nothing, as **NoPadding**. | Takes nothing off, as **NoPadding**. |
 
+<!-- test: PaddingTests.EncryptBytes_Iso10126_PadsToTheNextWholeBlock -->
 > [!WARNING] 1.0.0.4
 > **ISO10126** is not implemented. It behaves as **NoPadding**, and no error says so. The comment in the source calls the member "ISO/IEC 7816-4 padding", a scheme that differs from ISO 10126, and neither is applied.
 
@@ -100,10 +104,11 @@ The length in bytes of a 256-bit key: 32, a **Long**.
 ### VERSION
 {: .no_toc }
 
-The text `1.0.0`, a **String**. It is the version in the headers of the source files. The version of the package is 1.0.0.2, and **VERSION** is not used by any code of the package.
+The text `1.0.0`, a **String**. It is the version in the headers of the source files. The version of the package is 1.0.0.4, and **VERSION** is not used by any code of the package.
 
 ## Windows constants
 
+<!-- test: DefaultsAndConstantsTests.WindowsConstants_MatchWincryptHExceptTheFive -->
 These constants have the names and, with five exceptions, the values of the constants that the Windows header `wincrypt.h` defines. **cAes** and **cAesHelper** pass them to the Crypto API functions. A program does not need them.
 
 | Constant | Value | Names | Used by the package |
@@ -135,6 +140,7 @@ These constants have the names and, with five exceptions, the values of the cons
 | **CRYPT_STRING_NOCRLF** | &H40000000 | The `CryptBinaryToString` flag: no line breaks | yes |
 
 All are **Long** constants. They are meant for the Crypto API functions that the module **mWin32CryptoAPI** wraps, described on the [landing page](.#declaration-modules).
+<!-- /test -->
 
 Five values differ from `wincrypt.h`:
 
@@ -146,7 +152,9 @@ Five values differ from `wincrypt.h`:
 | **CRYPT_MODE_OFB** | 4 | 3 |
 | **ZERO_PADDING** | 2 | 3 |
 
+<!-- test: DefaultsAndConstantsTests.CryptModeConstants_EcbAndCbcMatchWincryptH -->
 **cAes** gives the value of **CRYPT_MODE_ECB** to the Crypto API when the mode is **ECB**, and the Crypto API reads 1 as CBC. That is why the modes **ECB** and **CBC** are swapped, as the warning under [AesCipherMode](#aesciphermode) says. Nothing in the package reads **ZERO_PADDING**.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/Helpers.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/Helpers.md
index 148937d7..0f1ec997 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/Helpers.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/Helpers.md
@@ -10,6 +10,7 @@ has_toc: false
 
 Two small classes that compute values and draw nothing: **cColorHelper** chooses a colour for a number, and **cLayoutHelper** works out positions and rectangles in the console window.
 
+<!-- test: ColorHelperTests.HeatmapColor_ThresholdsAreAtHalfAndEightTenths, ColorHelperTests.CPUUsageColor_ThresholdsAre50And80 -->
 **cColorHelper** needs no console and no state. **cLayoutHelper** is made with a [**cConsole**](../TBMANLIB_ConsoleCore/cConsole), and reads its window size each time a member is called. Both are created with `New`.
 
 ```tb check_build check_run
@@ -27,16 +28,20 @@ Debug.Print helper.CPUUsageColor(72)
 ```
 
 The four numbers are **ConsoleColor** values: 10 is **Green**, 14 is **Yellow** and 12 is **Red**.
+<!-- /test -->
 
 * TOC
 {:toc}
 
 ## cColorHelper class
 
+<!-- test: ColorHelperTests.BrightenColor_DarkGray_IsAConsoleColour, ColorHelperTests.DimColor_DarkColour_IsNotBrighter, ColorHelperTests.IntensityColor_UsesItsBaseColour, ColorHelperTests.GradientColor_ChoosesAmongTheThreeColoursAtAQuarterAndThreeQuarters -->
 Every colour parameter and result is a [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor), and every function is called on an object, as in `helper.DimColor(...)`. The numbers that give the choice of a colour are in each entry; they are fixed in the code. In the syntax lines of this section, *object* is a **cColorHelper**.
 
 Known problems in version 1.0.0.1: [**BrightenColor**](#brightencolor) returns 16 for **DarkGray**, [**DimColor**](#dimcolor) returns **DarkGray** for every dark colour, [**IntensityColor**](#intensitycolor) ignores its *baseColor*, and [**GradientColor**](#gradientcolor) chooses among three colours and does not blend.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.BrightenColor_DarkColour_IsTheBrightColourOfTheSameHue, ColorHelperTests.BrightenColor_BrightColour_IsWhite, ColorHelperTests.BrightenColor_DarkGray_IsAConsoleColour -->
 ### BrightenColor
 {: .no_toc }
 
@@ -60,7 +65,9 @@ Debug.Print helper.BrightenColor(ConsoleColor.Red)
 ' 16
 ' 15
 ```
+<!-- /test -->
 
+<!-- test: ColorHelperTests.CPUUsageColor_ThresholdsAre50And80 -->
 ### CPUUsageColor
 {: .no_toc }
 
@@ -72,7 +79,9 @@ Syntax: *object*.**CPUUsageColor** ( *usage* ) **As ConsoleColor**
 : *required* A **Double**, a percentage.
 
 **Green** below 50, **Yellow** from 50 up to, but not including, 80, and **Red** from 80. The value is not limited to 0 to 100.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.CycleColor_GoesRoundTheList_AlsoBackwards, ColorHelperTests.CycleColor_EmptyList_IsGray, ColorHelperTests.CycleColor_ListStartingAtOne_GivesTheFirstElementForIndexZero -->
 ### CycleColor
 {: .no_toc }
 
@@ -87,7 +96,9 @@ Syntax: *object*.**CycleColor** ( *index* , *colors* ) **As ConsoleColor**
 : *required* An array of **ConsoleColor**, passed by reference, that starts at index 0.
 
 Returns `colors(index Mod count)`, with a negative remainder raised by *count*. Returns **Gray** for an array with no element. The code takes the result of `Mod` as an index, so an array whose lower bound is not 0 gives a wrong element or error 9, *Subscript out of range*.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.DimColor_BrightColour_IsTheDarkColourOfTheSameHue, ColorHelperTests.DimColor_DarkColour_IsNotBrighter -->
 ### DimColor
 {: .no_toc }
 
@@ -99,7 +110,9 @@ Syntax: *object*.**DimColor** ( *color* ) **As ConsoleColor**
 : *required* A [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor).
 
 For a colour from **Blue** (9) to **White** (15) the result is the colour less 8, the dark colour of the same hue: **Red** gives **DarkRed**, **White** gives **Gray**. For every colour from **Black** to **DarkGray**, the result is **DarkGray**; so the dimmer version of **Black** is the brighter **DarkGray**.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.DiskUsageColor_ThresholdsAre80And95 -->
 ### DiskUsageColor
 {: .no_toc }
 
@@ -111,7 +124,9 @@ Syntax: *object*.**DiskUsageColor** ( *usage* ) **As ConsoleColor**
 : *required* A **Double**, a percentage.
 
 **Green** below 80, **Yellow** from 80 up to, but not including, 95, and **Red** from 95.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.GetContrastColor_WhiteUpToDarkGray_BlackAbove -->
 ### GetContrastColor
 {: .no_toc }
 
@@ -123,7 +138,9 @@ Syntax: *object*.**GetContrastColor** ( *bgColor* ) **As ConsoleColor**
 : *required* A [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor), the background.
 
 Returns **White** for a background from **Black** (0) to **DarkGray** (8), and **Black** for **Blue** (9) and up. **DarkYellow** and **Gray** are in the first group, so white text is chosen on a grey background.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.GradientColor_ChoosesAmongTheThreeColoursAtAQuarterAndThreeQuarters -->
 ### GradientColor
 {: .no_toc }
 
@@ -141,7 +158,9 @@ Syntax: *object*.**GradientColor** ( *value* , *min* , *max* , *color1* , *color
 : *required* **ConsoleColor** values.
 
 The position of *value* in the range, limited to 0 to 1, gives *color1* below 0.25, *color2* from 0.25 up to, but not including, 0.75, and *color3* from 0.75. The comment of the source speaks of a smooth transition; the console has 16 colours and the function does not blend.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.HeatmapColor_ThresholdsAreAtHalfAndEightTenths, ColorHelperTests.HeatmapColor_ValueOutsideTheRange_IsLimitedToIt, ColorHelperTests.HeatmapColor_MaxNotAboveMin_IsTheMiddleColour, ColorHelperTests.HeatmapColor_GivenColours_AreUsedInPlaceOfTheDefaults -->
 ### HeatmapColor
 {: .no_toc }
 
@@ -165,7 +184,9 @@ Syntax: *object*.**HeatmapColor** ( *value* , *min* , *max* [ , *lowColor* [ , *
 : *optional* A **ConsoleColor**, for positions from 0.8. The default is **Red**.
 
 The position is `(value - min) / (max - min)`, limited to 0 to 1.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.IntensityColor_EightLevelsInTheOrderOfTheColourNumbers, ColorHelperTests.IntensityColor_LevelIsRoundedHalfToEven, ColorHelperTests.IntensityColor_UsesItsBaseColour -->
 ### IntensityColor
 {: .no_toc }
 
@@ -183,7 +204,9 @@ Syntax: *object*.**IntensityColor** ( *value* , *min* , *max* [ , *baseColor* ]
 : *optional* A **ConsoleColor**. The default is **Gray**. It is not used: the function never reaches the line that returns it.
 
 The level is `CLng(position * 7)`, from 0 to 7, which rounds half to even. The result is **Black**, **DarkBlue**, **DarkGreen**, **DarkCyan**, **DarkRed**, **DarkMagenta**, **DarkYellow** or **DarkGray** for the levels 0 to 7, in that order. This is the order of the numbers of the colours, not an order of brightness, so a rising value does not give a steadily lighter colour.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.IsDarkColor_TrueUpToDarkGray_FalseAbove -->
 ### IsDarkColor
 {: .no_toc }
 
@@ -195,7 +218,9 @@ Syntax: *object*.**IsDarkColor** ( *color* ) **As Boolean**
 : *required* A [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor).
 
 Returns **True** for **Black** (0) up to **DarkGray** (8), which includes **Gray**.
+<!-- /test -->
 
+<!-- test: ColorHelperTests.MemoryUsageColor_ThresholdsAre70And90 -->
 ### MemoryUsageColor
 {: .no_toc }
 
@@ -207,9 +232,11 @@ Syntax: *object*.**MemoryUsageColor** ( *usage* ) **As ConsoleColor**
 : *required* A **Double**, a percentage.
 
 **Green** below 70, **Yellow** from 70 up to, but not including, 90, and **Red** from 90.
+<!-- /test -->
 
 ## cLayoutHelper class
 
+<!-- test: LayoutHelperTests.Members_FollowTheWindowWhenItIsResized, LayoutHelperTests.Members_ProgramWithoutAConsole_ComputeFor80By25Cells, LayoutHelperTests.ArrangementsWithACountOfZero_RaiseError11, LayoutHelperTests.Grid_ElementOfTheVariant_CannotBeReadMemberByMember, LayoutHelperTests.Grid_Variant_IsAssignedToAnArrayOfRectangles, LayoutHelperTests.SpacedPositions_DoNotUseTheWindow, compile VariantElementToRect, compile CenterMember, compile CenterAssign, compile CenterRectAssign, compile PercentRectAssign, compile PercentAssign, compile WithMarginsAssign, compile ClampRectAssign, compile SpacedPositionsToVariant, compile CenterXToLong, compile GridToRectArray -->
 Computes positions and [**ConsoleRect**](../TBMANLIB_ConsoleCore/Types#consolerect) rectangles from the size of the window of a console. A rectangle has inclusive edges, and columns and rows are counted from 0. Every member except [**SpacedPositions**](#spacedpositions) reads [**Width**](../TBMANLIB_ConsoleCore/cConsole#width) and [**Height**](../TBMANLIB_ConsoleCore/cConsole#height) of the console when it is called, so the results follow a window that the user resizes; without a console they are computed for 80 columns by 25 rows. In the syntax lines of this section, *object* is a **cLayoutHelper**.
 
 The members that give several rectangles or numbers return them in a **Variant** that holds an array, with indexes from 0, in the order the entry names. The rectangles of one result do not overlap and have no gap between them, except where the entry says so. A division by a count of 0 raises error 11, *Division by zero*.
@@ -234,7 +261,8 @@ Debug.Print columns(0) & " " & columns(1) & " " & columns(2)
 The output is that of a console of 80 columns by 25 rows, which is also the size that a program without a console gets.
 
 > [!NOTE] 1.0.0.1, BETA 1005
-> The members that give a **ConsoleRect** or a **ConsolePosition** can be called, but a program that references the packages TBMANLIB_ConsoleCore and TBMANLIB_ConsoleComponents cannot read the result: the compiler refuses the members of the value and its assignment to a variable of the type. See [The two packages](./#the-two-packages). The members that give a **Long** or an array of **Long** are not affected.
+> A program that references the packages TBMANLIB_ConsoleCore and TBMANLIB_ConsoleComponents cannot read what the members that give a **ConsoleRect** or a **ConsolePosition** return: the compiler refuses the members of the value and its assignment to a variable of the type. The members that give a **Long** or an array of **Long** compile. A **cLayoutHelper** cannot be made with the **cConsole** of the published package at all; see [The two packages](./#the-two-packages).
+<!-- /test -->
 
 ### New
 {: .no_toc }
@@ -248,6 +276,7 @@ Syntax: **New cLayoutHelper** ( *console* )
 
 Keeps the console. The console does not have to be in full-screen mode.
 
+<!-- test: LayoutHelperTests.Center_CenterX_CenterY_UseTheSizeOfTheWindow -->
 ### Center
 {: .no_toc }
 
@@ -259,7 +288,9 @@ Syntax: *object*.**Center** ( *width* , *height* ) **As ConsolePosition**
 : *required* **Long** values, the size of the area in columns and rows.
 
 Returns a [**ConsolePosition**](../TBMANLIB_ConsoleCore/Types#consoleposition) with **Col** `(Width - width) \ 2` and **Row** `(Height - height) \ 2`. The values are negative when the area is larger than the window.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.CenterRect_StartsAtCenter_AndIsTheRectangleOfTheConsoleMember -->
 ### CenterRect
 {: .no_toc }
 
@@ -271,7 +302,9 @@ Syntax: *object*.**CenterRect** ( *width* , *height* ) **As ConsoleRect**
 : *required* **Long** values.
 
 The rectangle starts at the position that [**Center**](#center) returns and is *width* columns wide and *height* rows high. [**CenterRect**](../TBMANLIB_ConsoleCore/cConsole#centerrect) of **cConsole** gives the same rectangle.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.Center_CenterX_CenterY_UseTheSizeOfTheWindow -->
 ### CenterX
 {: .no_toc }
 
@@ -283,7 +316,9 @@ Syntax: *object*.**CenterX** ( *width* ) **As Long**
 : *required* A **Long**.
 
 Returns `(Width - width) \ 2`.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.Center_CenterX_CenterY_UseTheSizeOfTheWindow -->
 ### CenterY
 {: .no_toc }
 
@@ -295,7 +330,9 @@ Syntax: *object*.**CenterY** ( *height* ) **As Long**
 : *required* A **Long**.
 
 Returns `(Height - height) \ 2`.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.ClampRect_CutsTheRectangleToTheWindow -->
 ### ClampRect
 {: .no_toc }
 
@@ -307,7 +344,9 @@ Syntax: *object*.**ClampRect** ( *rect* ) **As ConsoleRect**
 : *required* A [**ConsoleRect**](../TBMANLIB_ConsoleCore/Types#consolerect).
 
 Raises **Left** and **Top** to 0 when they are negative, and lowers **Right** and **Bottom** to the last column and the last row of the window. A rectangle that lies wholly outside the window is cut to an invalid one; [**IsValidRect**](#isvalidrect) tells.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.EvenColumns_LastColumnTakesTheRemainder -->
 ### EvenColumns
 {: .no_toc }
 
@@ -322,7 +361,9 @@ Syntax: *object*.**EvenColumns** ( *count* , *margin* ) **As Variant**
 : *required* A **Long**, the number of cells to leave free on every side of the window.
 
 Returns *count* rectangles, from left to right. Each is `(Width - 2 * margin) \ count` columns wide and reaches from the row *margin* to the row `Height - 1 - margin`. The last one is widened to the right margin, so it takes the remainder.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.EvenRows_LastRowTakesTheRemainder -->
 ### EvenRows
 {: .no_toc }
 
@@ -337,7 +378,9 @@ Syntax: *object*.**EvenRows** ( *count* , *margin* ) **As Variant**
 : *required* A **Long**, the number of cells to leave free on every side of the window.
 
 Returns *count* rectangles, from top to bottom, each as wide as the window less the margins and `(Height - 2 * margin) \ count` rows high. The last one is heightened to the bottom margin.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.IsValidRect_GetRectWidth_GetRectHeight -->
 ### GetRectHeight
 {: .no_toc }
 
@@ -349,7 +392,9 @@ Syntax: *object*.**GetRectHeight** ( *rect* ) **As Long**
 : *required* A [**ConsoleRect**](../TBMANLIB_ConsoleCore/Types#consolerect).
 
 Returns `Bottom - Top + 1`, as [**ConsoleRect_Height**](../TBMANLIB_ConsoleCore/Types#consolerect_height) does.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.IsValidRect_GetRectWidth_GetRectHeight -->
 ### GetRectWidth
 {: .no_toc }
 
@@ -361,7 +406,9 @@ Syntax: *object*.**GetRectWidth** ( *rect* ) **As Long**
 : *required* A [**ConsoleRect**](../TBMANLIB_ConsoleCore/Types#consolerect).
 
 Returns `Right - Left + 1`, as [**ConsoleRect_Width**](../TBMANLIB_ConsoleCore/Types#consolerect_width) does.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.Grid_CellsAreWidthDivColsByHeightDivRows_AndTheRemainderIsNotCovered -->
 ### Grid
 {: .no_toc }
 
@@ -373,7 +420,9 @@ Syntax: *object*.**Grid** ( *cols* , *rows* ) **As Variant**
 : *required* **Long** values, the number of columns and rows.
 
 Returns `cols * rows` rectangles, row by row from the top left. Each cell is `Width \ cols` columns wide and `Height \ rows` rows high, with no gap between cells. The remainder of the division is not covered: the right and bottom edges of the grid can end short of the window. [**CreateGrid**](cConsoleLayout#creategrid) of **cConsoleLayout** leaves a gap and gives the remainder to the last column and row.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.HeaderFooter_GivesAHeaderABodyAndAFooter -->
 ### HeaderFooter
 {: .no_toc }
 
@@ -385,7 +434,9 @@ Syntax: *object*.**HeaderFooter** ( *headerHeight* , *footerHeight* ) **As Varia
 : *required* **Long** values, the number of rows of the header and of the footer.
 
 Returns three rectangles as wide as the window: the header (the first *headerHeight* rows), the body (the rows between) and the footer (the last *footerHeight* rows), in that order.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.IsValidRect_GetRectWidth_GetRectHeight, LayoutHelperTests.ClampRect_CutsTheRectangleToTheWindow -->
 ### IsValidRect
 {: .no_toc }
 
@@ -397,7 +448,9 @@ Syntax: *object*.**IsValidRect** ( *rect* ) **As Boolean**
 : *required* A [**ConsoleRect**](../TBMANLIB_ConsoleCore/Types#consolerect).
 
 Returns **True** when `Left <= Right` and `Top <= Bottom`.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.Percent_PercentX_PercentY_AreNotLimitedTo0To100 -->
 ### Percent
 {: .no_toc }
 
@@ -409,7 +462,9 @@ Syntax: *object*.**Percent** ( *percentX* , *percentY* ) **As ConsolePosition**
 : *required* **Double** values, the share of the width and of the height. They are not limited to 0 to 100.
 
 Returns a [**ConsolePosition**](../TBMANLIB_ConsoleCore/Types#consoleposition) with **Col** `CLng(Width * percentX / 100)` and **Row** `CLng(Height * percentY / 100)`.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.PercentRect_LeftTopWidthHeightAreShares -->
 ### PercentRect
 {: .no_toc }
 
@@ -421,7 +476,9 @@ Syntax: *object*.**PercentRect** ( *leftPercent* , *topPercent* , *widthPercent*
 : *required* **Double** values. The first two give the upper left corner, and the last two the size, all as percentages of the width and the height.
 
 **Left** is `CLng(Width * leftPercent / 100)`, and **Right** is `CLng(Width * (leftPercent + widthPercent) / 100) - 1`, and **Top** and **Bottom** are computed in the same way from the height.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.Percent_PercentX_PercentY_AreNotLimitedTo0To100 -->
 ### PercentX
 {: .no_toc }
 
@@ -433,7 +490,9 @@ Syntax: *object*.**PercentX** ( *percent* ) **As Long**
 : *required* A **Double**. Unlike [**PercentX**](../TBMANLIB_ConsoleCore/cConsole#percentx) of **cConsole**, this one does not limit it to 0 to 100.
 
 Returns `CLng(Width * percent / 100)`.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.Percent_PercentX_PercentY_AreNotLimitedTo0To100 -->
 ### PercentY
 {: .no_toc }
 
@@ -445,7 +504,9 @@ Syntax: *object*.**PercentY** ( *percent* ) **As Long**
 : *required* A **Double**, not limited to 0 to 100.
 
 Returns `CLng(Height * percent / 100)`.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.Sidebar_GivesASidebarAndTheRestOfTheWindow -->
 ### Sidebar
 {: .no_toc }
 
@@ -457,7 +518,9 @@ Syntax: *object*.**Sidebar** ( *sidebarWidth* ) **As Variant**
 : *required* A **Long**, the number of columns of the sidebar.
 
 Returns two rectangles as high as the window: the sidebar (the first *sidebarWidth* columns) and the content area (the rest), in that order.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.SpacedPositions_DoNotUseTheWindow -->
 ### SpacedPositions
 {: .no_toc }
 
@@ -478,7 +541,9 @@ Syntax: *object*.**SpacedPositions** ( *count* , *itemWidth* , *spacing* , *star
 : *required* A **Long**, the column of the first item.
 
 Returns *count* **Long** values: the column of item *i* is `startX + i * (itemWidth + spacing)`. This member does not use the size of the window.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.SplitHorizontal_GivesATopAndABottomRectangle, LayoutTests.SplitHorizontal_AndLayoutHelperSplitHorizontal_DivideInTheSameDirection -->
 ### SplitHorizontal
 {: .no_toc }
 
@@ -490,7 +555,9 @@ Syntax: *object*.**SplitHorizontal** ( *topPercent* ) **As Variant**
 : *required* A **Double**, the share of the height for the top part, in percent.
 
 Returns two rectangles as wide as the window: the top one, from row 0 to row `PercentY(topPercent) - 1`, and the bottom one, from row `PercentY(topPercent)` to the last row. The line between the parts is horizontal. The member of the same name in [**cConsoleLayout**](cConsoleLayout#splithorizontal) divides the width instead.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.SplitVertical_GivesALeftAndARightRectangle -->
 ### SplitVertical
 {: .no_toc }
 
@@ -502,7 +569,9 @@ Syntax: *object*.**SplitVertical** ( *leftPercent* ) **As Variant**
 : *required* A **Double**, the share of the width for the left part, in percent.
 
 Returns two rectangles as high as the window: the left one, from column 0 to column `PercentX(leftPercent) - 1`, and the right one, from column `PercentX(leftPercent)` to the last column. The line between the parts is vertical. The member of the same name in [**cConsoleLayout**](cConsoleLayout#splitvertical) divides the height instead.
+<!-- /test -->
 
+<!-- test: LayoutHelperTests.WithMargins_LeavesTheMarginsFree -->
 ### WithMargins
 {: .no_toc }
 
@@ -514,6 +583,7 @@ Syntax: *object*.**WithMargins** ( *left* , *top* , *right* , *bottom* ) **As Co
 : *required* **Long** values, the number of cells to leave free at each side.
 
 Returns the rectangle from column *left* and row *top* to column `Width - 1 - right` and row `Height - 1 - bottom`.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsoleLayout.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsoleLayout.md
index cfa9addd..f7b9b667 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsoleLayout.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsoleLayout.md
@@ -10,6 +10,7 @@ has_toc: false
 
 Keeps a set of named [**cConsolePanel**](cConsolePanel) objects, creates them in common arrangements (a split, a grid, a sidebar, a header and footer), and draws their borders.
 
+<!-- test: LayoutTests.SplitHorizontal_DividesTheWidthOfTheContentAreaIntoALeftAndARightPanel, compile PanelRectMember -->
 A **cConsoleLayout** is made with a [**cConsole**](../TBMANLIB_ConsoleCore/cConsole). It does not place content: it works out the rectangles of panels and draws the borders and titles of all of them in one call. The program writes the content of each panel into the area that the panel's [**ContentRect**](cConsolePanel#contentrect) returns.
 
 ```tb check_build
@@ -32,12 +33,14 @@ Debug.Print layout.PanelCount
 ```
 
 The root panel covers columns 0 to 39 and rows 0 to 11, so its content area is columns 2 to 37 and rows 2 to 9. **list** takes columns 2 to 10 and **detail** columns 12 to 37, both in rows 2 to 9; the sample prints the size of the content area inside the border and padding of each. A program that references the packages TBMANLIB_ConsoleCore and TBMANLIB_ConsoleComponents cannot read the **Rect** of a panel; see [The two packages](./#the-two-packages).
+<!-- /test -->
 
 * TOC
 {:toc}
 
 In the syntax lines of this page, *object* is a **cConsoleLayout**. Columns and rows are counted from 0 in the buffer.
 
+<!-- test: LayoutTests.GetPanel_NameIsCaseSensitive_AndAnUnknownNameGivesNothing, LayoutTests.GetPanelNames_AndGetAllPanels_FollowTheOrderOfCreation, LayoutTests.RootPanel_IsTheFirstPanel_AndTheFirstRemainingOneAfterItIsRemoved, LayoutTests.CreateHeaderFooter_OnAnEmptyLayout_UsesTheWholeConsole_AndTheHeaderIsTheRoot, LayoutTests.CreateSidebar_AfterAnArrangementOnAnEmptyLayout_StillUsesTheWholeConsole, LayoutTests.SplitHorizontal_DividesTheWidthOfTheContentAreaIntoALeftAndARightPanel, LayoutTests.Render_LaterPanelIsDrawnOverAnEarlierOne, LayoutTests.AddPanel_ReturnsAPanelWithTheDefaultStyleAndTheTitle, LayoutTests.CreateGrid_DividesTheContentAreaOfTheRootPanel_AndTheLastColumnAndRowTakeTheRemainder -->
 ## Panels, names and the root panel
 
 Each panel has a name, which is unique in the layout and case-sensitive. [**GetPanel**](#getpanel) finds a panel by it. The layout keeps the panels in the order of creation, which is the order in which [**Render**](#render) draws them, so a later panel is drawn over an earlier one.
@@ -64,9 +67,11 @@ Set rightPanel = parts(1)
 leftPanel.Title = "Files"
 rightPanel.BorderStyle = PanelBorderStyle.Double
 ```
+<!-- /test -->
 
 ## Constructor
 
+<!-- test: LayoutTests.New_ConsoleNotInFullScreenMode_IsAccepted_AndTheSizeIsReadWhenTheLayoutIsMade, LayoutTests.Render_WhenTheConsoleIsNotInFullScreenMode_RaisesError91 -->
 ### New
 {: .no_toc }
 
@@ -78,18 +83,22 @@ Syntax: **New cConsoleLayout** ( *console* )
 : *required* A [**cConsole**](../TBMANLIB_ConsoleCore/cConsole).
 
 Keeps the console, reads its [**Width**](../TBMANLIB_ConsoleCore/cConsole#width) and [**Height**](../TBMANLIB_ConsoleCore/cConsole#height) as the size of the layout, and creates the empty list and the `Scripting.Dictionary` object in which the panels are kept by name. The console does not have to be in full-screen mode yet: the layout reads the console's [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer) each time it draws, not when it is made.
+<!-- /test -->
 
 ## Properties
 
+<!-- test: LayoutTests.AddPanel_ReturnsAPanelWithTheDefaultStyleAndTheTitle, LayoutTests.AddPanel_NameInUse_AddsNoPanelToTheList -->
 ### PanelCount
 {: .no_toc }
 
 The number of panels in the layout. **Long**, read-only.
 
 Syntax: *object*.**PanelCount**
+<!-- /test -->
 
 ## Methods
 
+<!-- test: LayoutTests.AddPanel_ReturnsAPanelWithTheDefaultStyleAndTheTitle, LayoutTests.AddPanel_NameInUse_RaisesError457, LayoutTests.AddPanel_NameInUse_AddsNoPanelToTheList, LayoutTests.GetPanel_RenamingAPanel_DoesNotChangeTheNameItIsFoundBy -->
 ### AddPanel
 {: .no_toc }
 
@@ -110,7 +119,9 @@ Syntax: *object*.**AddPanel** ( *name* , *left* , *top* , *width* , *height* [ ,
 : *optional* A **String**, the title on the top border. The default is an empty string, which draws no title.
 
 Returns the new [**cConsolePanel**](cConsolePanel), with its default style. The first panel of a layout is its root panel. A name that is in use raises error 457, *This key is already associated with an element of this collection*, from the dictionary, but the panel has been added to the list by then, so [**PanelCount**](#panelcount) counts it, [**Render**](#render) draws it, and no name leads to it.
+<!-- /test -->
 
+<!-- test: LayoutTests.AddPanelByRect_UsesTheInclusiveEdgesOfTheRectangle -->
 ### AddPanelByRect
 {: .no_toc }
 
@@ -128,7 +139,9 @@ Syntax: *object*.**AddPanelByRect** ( *name* , *rect* [ , *title* ] ) **As cCons
 : *optional* A **String**.
 
 Calls [**AddPanel**](#addpanel) with the left and top edges of *rect* and a width and height of `Right - Left + 1` and `Bottom - Top + 1`.
+<!-- /test -->
 
+<!-- test: LayoutTests.AutoResize_TakesTheSizeOfTheConsole -->
 ### AutoResize
 {: .no_toc }
 
@@ -137,7 +150,9 @@ Sets the size of the layout to the current size of the console.
 Syntax: *object*.**AutoResize**
 
 Calls [**Resize**](#resize) with the console's [**Width**](../TBMANLIB_ConsoleCore/cConsole#width) and [**Height**](../TBMANLIB_ConsoleCore/cConsole#height).
+<!-- /test -->
 
+<!-- test: LayoutTests.Clear_RemovesEveryPanel -->
 ### Clear
 {: .no_toc }
 
@@ -146,7 +161,9 @@ Removes every panel.
 Syntax: *object*.**Clear**
 
 Replaces the list and the dictionary with empty ones, and leaves the layout with no root panel. Nothing is erased from the buffer.
+<!-- /test -->
 
+<!-- test: LayoutTests.ClearAllContent_FillsTheContentAreasWithTheForegroundAndBackgroundOfTheTheme, LayoutTests.Render_WhenTheConsoleIsNotInFullScreenMode_RaisesError91 -->
 ### ClearAllContent
 {: .no_toc }
 
@@ -158,7 +175,9 @@ Syntax: *object*.**ClearAllContent** [ ( *theme* ) ]
 : *optional* A [**cConsoleTheme**](cConsoleTheme). The default is **Nothing**.
 
 Calls [**ClearContent**](cConsolePanel#clearcontent) of each panel with the buffer of the console, using the theme's **Foreground** and **Background** colours, or **Gray** on **Black** when no theme is given. Raises error 91 when the console has no buffer.
+<!-- /test -->
 
+<!-- test: LayoutTests.ClearPanelContent_FillsOnePanel_AndAnUnknownNameDoesNothing -->
 ### ClearPanelContent
 {: .no_toc }
 
@@ -171,7 +190,9 @@ Syntax: *object*.**ClearPanelContent** ( *name* [ , *theme* ] )
 
 *theme*
 : *optional* A **cConsoleTheme**, as for [**ClearAllContent**](#clearallcontent).
+<!-- /test -->
 
+<!-- test: LayoutTests.CreateGrid_DividesTheContentAreaOfTheRootPanel_AndTheLastColumnAndRowTakeTheRemainder, LayoutTests.CreateGrid_WithoutAPanel_DividesTheWholeConsole, LayoutTests.CreateGrid_ZeroColumnsOrRows_RaisesError -->
 ### CreateGrid
 {: .no_toc }
 
@@ -207,7 +228,9 @@ Next
 ```
 
 The content area of the root panel has 56 columns and 16 rows, so *colStep* is 28 and *rowStep* is 8. The cells are columns 2 to 28 and 30 to 57, and rows 2 to 8 and 10 to 17; the sample prints the size of the content area inside the border and padding of each cell.
+<!-- /test -->
 
+<!-- test: LayoutTests.CreateHeaderFooter_DividesTheContentAreaIntoThreeWithNoRowBetween, LayoutTests.CreateHeaderFooter_OnAnEmptyLayout_UsesTheWholeConsole_AndTheHeaderIsTheRoot -->
 ### CreateHeaderFooter
 {: .no_toc }
 
@@ -222,7 +245,9 @@ Syntax: *object*.**CreateHeaderFooter** ( *headerHeight* , *footerHeight* , *hea
 : *required* **String** values, the names of the three panels.
 
 Returns the header, the body and the footer, in that order, as an array of three panels. The header takes the first *headerHeight* rows of the area, the footer the last *footerHeight* rows, and the body the rows between them, with no blank row between the panels. Each panel is as wide as the area. See [Panels, names and the root panel](#panels-names-and-the-root-panel) for the area.
+<!-- /test -->
 
+<!-- test: LayoutTests.CreateSidebar_TakesTheLeftColumnsOfTheContentArea_WithNoColumnBetween -->
 ### CreateSidebar
 {: .no_toc }
 
@@ -237,7 +262,9 @@ Syntax: *object*.**CreateSidebar** ( *sidebarWidth* , *sidebarName* , *contentNa
 : *required* **String** values, the names of the two panels.
 
 Returns the sidebar and the content panel, in that order, as an array of two panels. The sidebar takes the first *sidebarWidth* columns of the area and the content panel the rest, with no blank column between them. Both are as high as the area.
+<!-- /test -->
 
+<!-- test: LayoutTests.GetPanelNames_AndGetAllPanels_FollowTheOrderOfCreation -->
 ### GetAllPanels
 {: .no_toc }
 
@@ -246,7 +273,9 @@ Returns every panel.
 Syntax: *object*.**GetAllPanels** ( ) **As Variant**
 
 Returns a **Variant** that holds an array of **cConsolePanel** in the order of creation, with indexes from 0.
+<!-- /test -->
 
+<!-- test: LayoutTests.GetPanel_NameIsCaseSensitive_AndAnUnknownNameGivesNothing -->
 ### GetPanel
 {: .no_toc }
 
@@ -258,7 +287,9 @@ Syntax: *object*.**GetPanel** ( *name* ) **As cConsolePanel**
 : *required* A **String**. The comparison is case-sensitive.
 
 Returns the panel, or **Nothing** when the layout has no panel of that name.
+<!-- /test -->
 
+<!-- test: LayoutTests.GetPanelNames_AndGetAllPanels_FollowTheOrderOfCreation -->
 ### GetPanelNames
 {: .no_toc }
 
@@ -267,6 +298,7 @@ Returns the names of the panels.
 Syntax: *object*.**GetPanelNames** ( ) **As Variant**
 
 Returns a **Variant** that holds an array of **String**, with indexes from 0, in the order of the dictionary, which is the order in which the names were added.
+<!-- /test -->
 
 ### HasPanel
 {: .no_toc }
@@ -278,6 +310,7 @@ Syntax: *object*.**HasPanel** ( *name* ) **As Boolean**
 *name*
 : *required* A **String**.
 
+<!-- test: LayoutTests.RemovePanel_RemovesFromTheNamesAndTheList_AndAnUnknownNameDoesNothing, LayoutTests.RootPanel_IsTheFirstPanel_AndTheFirstRemainingOneAfterItIsRemoved -->
 ### RemovePanel
 {: .no_toc }
 
@@ -289,7 +322,9 @@ Syntax: *object*.**RemovePanel** ( *name* )
 : *required* A **String**. A name that is not in the layout does nothing.
 
 Removes the panel from the dictionary and the list. When it was the root panel, the first panel that is left becomes the root, or the layout has none. Nothing is erased from the buffer.
+<!-- /test -->
 
+<!-- test: LayoutTests.Render_DrawsTheBordersAndTitlesOfEveryPanelInTheColoursOfTheTheme, LayoutTests.Render_WithoutATheme_UsesGrayOnBlack_AndLeavesTheInsideAlone, LayoutTests.Render_LaterPanelIsDrawnOverAnEarlierOne, LayoutTests.Render_WhenTheConsoleIsNotInFullScreenMode_RaisesError91, LayoutTests.Render_ThenRefresh_ShowsTheBordersOnTheScreenBuffer -->
 ### Render
 {: .no_toc }
 
@@ -316,7 +351,9 @@ layout.ClearAllContent theme
 layout.Render theme
 con.Refresh
 ```
+<!-- /test -->
 
+<!-- test: LayoutTests.RenderPanel_DrawsOnePanel_AndAnUnknownNameDoesNothing -->
 ### RenderPanel
 {: .no_toc }
 
@@ -329,7 +366,9 @@ Syntax: *object*.**RenderPanel** ( *name* [ , *theme* ] )
 
 *theme*
 : *optional* A **cConsoleTheme**, as for [**Render**](#render).
+<!-- /test -->
 
+<!-- test: LayoutTests.Resize_ScalesThePanelsToTheNewSize, LayoutTests.Resize_StoresTheNewSize_ForTheArrangementsOfALayoutWithNoPanel, LayoutTests.Resize_ZeroWidthOrHeight_RaisesError6 -->
 ### Resize
 {: .no_toc }
 
@@ -343,7 +382,9 @@ Syntax: *object*.**Resize** ( *newWidth* , *newHeight* )
 The method stores the new size, then computes the factors `newWidth / stored width` and `newHeight / stored height` and moves and resizes every panel by them. The stored size is replaced before the factors are computed, so both are 1, and no panel changes. The only effect is the new size, which [**CreateGrid**](#creategrid), [**CreateSidebar**](#createsidebar) and [**CreateHeaderFooter**](#createheaderfooter) use when the layout has no panel. A *newWidth* or *newHeight* of 0 raises error 6, *Overflow*, since the factor is 0 divided by 0.
 
 A program that has to follow the size of the window ([**OnResize**](../TBMANLIB_ConsoleCore/cConsole#onresize) of the console reports it) calls [**Clear**](#clear) and makes the panels again.
+<!-- /test -->
 
+<!-- test: LayoutTests.SplitHorizontal_DividesTheWidthOfTheContentAreaIntoALeftAndARightPanel, LayoutTests.Split_ParentNotInTheLayout_CreatesNothing, LayoutTests.SplitHorizontal_AndLayoutHelperSplitHorizontal_DivideInTheSameDirection -->
 ### SplitHorizontal
 {: .no_toc }
 
@@ -363,7 +404,9 @@ Syntax: *object*.**SplitHorizontal** ( *parentName* , *ratio* , *leftName* , *ri
 Returns an array of two panels, the left one first, in a **Variant**. When the parent is not in the layout, the method creates nothing and returns **Nothing** in the **Variant**.
 
 The left panel is `CLng(ContentWidth * ratio)` columns wide, starting at the left edge of the parent's content area, and the right panel starts one column after it and reaches the right edge. Both are as high as the content area. The method divides the width, so the line between the panels is vertical. The member of the same name in [**cLayoutHelper**](Helpers#splithorizontal) divides the height instead.
+<!-- /test -->
 
+<!-- test: LayoutTests.SplitVertical_DividesTheHeightOfTheContentAreaIntoATopAndABottomPanel, LayoutTests.Split_ParentNotInTheLayout_CreatesNothing -->
 ### SplitVertical
 {: .no_toc }
 
@@ -381,6 +424,7 @@ Syntax: *object*.**SplitVertical** ( *parentName* , *ratio* , *topName* , *botto
 : *required* **String** values, the names of the new panels.
 
 Returns an array of two panels, the top one first, or **Nothing** when the parent is not in the layout. The top panel is `CLng(ContentHeight * ratio)` rows high, from the top edge of the parent's content area, and the bottom panel starts one row after it and reaches the bottom edge. The line between them is horizontal. The member of the same name in [**cLayoutHelper**](Helpers#splitvertical) divides the width instead.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsolePanel.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsolePanel.md
index 05310026..b3d9d542 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsolePanel.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsolePanel.md
@@ -10,6 +10,7 @@ has_toc: false
 
 A rectangle of the console with a border, a title and padding, that draws its border into a [**cConsoleBuffer**](../TBMANLIB_ConsoleCore/cConsoleBuffer) and tells where its content area is.
 
+<!-- test: PanelTests.Render_Title_SampleOfThePage -->
 A panel holds a position, a size and a few style fields, and draws nothing until [**Render**](#render) is called with a buffer. It does not hold content: the program writes into the area that [**ContentRect**](#contentrect) returns. The panel takes the buffer to draw into as a parameter and holds no console. [**cConsoleLayout**](cConsoleLayout) creates panels and keeps them by name.
 
 ```tb check_build
@@ -31,28 +32,33 @@ Debug.Print panel.ContentWidth() & " " & panel.ContentHeight()
 ' L 15
 ' 16 2
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
 
 In the syntax lines of this page, *object* is a **cConsolePanel**. Columns and rows are counted from 0 in the buffer.
 
+<!-- test: PanelTests.New_RectHasInclusiveEdges, PanelTests.ContentRect_TakesOneCellForTheBorderAndThePadding, PanelTests.ContentRect_BorderStyleNone_TakesOnlyThePadding, PanelTests.ContentRect_SmallPanel_IsEmptyOrNegative -->
 ## The rectangle and the content area
 
 [**Rect**](#rect) is the rectangle of the panel with its edges inclusive: a panel at column 2, row 1, 20 columns wide and 6 rows high has `Rect.Left` 2, `Rect.Top` 1, `Rect.Right` 21 and `Rect.Bottom` 6. The border is drawn on the edge cells.
 
 The content area is what is left inside. [**ContentRect**](#contentrect) takes one cell from each side for the border, unless [**BorderStyle**](#borderstyle) is **None**, and then [**Padding**](#padding) cells from each side. The sample above has a content area of 16 columns by 2 rows, from column 4, row 3 to column 19, row 4. The content area can be empty or have a negative size when the panel is small.
+<!-- /test -->
 
 ## Fields
 
 The class has seven public fields, not properties. They are read and written as `panel.Title`, and a write takes effect at the next [**Render**](#render).
 
+<!-- test: PanelTests.Render_Title_IsWrittenBetweenTwoSpacesOnTheTopBorder, PanelTests.Render_BorderUsesTheColoursOfTheCall_NotBorderColor -->
 ### BorderColor
 {: .no_toc }
 
 The colour of the two spaces that surround the title on the top border. A [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor). The starting value is **Gray**.
 
 The border itself is drawn in the colours that are passed to [**Render**](#render), and not in this one.
+<!-- /test -->
 
 ### BorderStyle
 {: .no_toc }
@@ -69,11 +75,14 @@ The name of the panel. **String**. The constructor sets it. [**cConsoleLayout**]
 
 The number of cells between the border and the content area, on every side. **Long**. The starting value is 1.
 
+<!-- test: compile PanelRectMember, PanelTests.New_RectHasInclusiveEdges -->
 ### Rect
 {: .no_toc }
 
 The rectangle of the panel. A [**ConsoleRect**](../TBMANLIB_ConsoleCore/Types#consolerect), with inclusive edges. The constructor, [**Move**](#move) and [**Resize**](#resize) set it. A program that references the packages TBMANLIB_ConsoleCore and TBMANLIB_ConsoleComponents cannot read its fields: see [The two packages](./#the-two-packages). [**ContentWidth**](#contentwidth) and [**ContentHeight**](#contentheight) give sizes as **Long** values.
+<!-- /test -->
 
+<!-- test: PanelTests.Render_Title_IsWrittenBetweenTwoSpacesOnTheTopBorder, PanelTests.Render_LongTitle_IsCutWithoutAnEllipsis, PanelTests.Render_PanelTooNarrowForOneCharacterOfTheTitle_DrawsNoTitle -->
 ### Title
 {: .no_toc }
 
@@ -85,13 +94,15 @@ The text on the top border. **String**. The starting value is an empty string, w
 {: .no_toc }
 
 The colour of the title text. A **ConsoleColor**. The starting value is **White**.
+<!-- /test -->
 
+<!-- test: PanelTests.Render_Single_DrawsThe250CBorder, PanelTests.Render_Double_DrawsThe2554Border, PanelTests.Render_Rounded_DrawsTheRoundedCornersAndSingleLines, PanelTests.Render_Bold_DrawsTheHeavyBorder, PanelTests.Render_StyleNone_DrawsNothingNotEvenTheTitle, compile NestedEnumerationWithoutClass, compile NestedEnumerationWithClass -->
 ## Enumeration
 
 ### PanelBorderStyle
 {: .no_toc }
 
-The border style of a panel. The enumeration is declared in the class, and its members are written without the class, as in `PanelBorderStyle.Rounded`; the type is `cConsolePanel.PanelBorderStyle` or `PanelBorderStyle`.
+The border style of a panel. The enumeration is declared in the class, and its members are written without the class, as in `PanelBorderStyle.Rounded`; the type is `PanelBorderStyle`. The form with the class, `cConsolePanel.PanelBorderStyle`, is refused in a project that references both [TBMANLIB_ConsoleCore](../TBMANLIB_ConsoleCore/) and this package (TB5079); see [The two packages](./#the-two-packages).
 
 | Member | Value | Border |
 |---|---:|---|
@@ -102,9 +113,11 @@ The border style of a panel. The enumeration is declared in the class, and its m
 | **Bold** | 4 | Heavy lines: U+250F, U+2513, U+2517, U+251B, U+2501, U+2503. |
 
 **Single** and **Double** are drawn by [**DrawBox**](../TBMANLIB_ConsoleCore/cConsoleBuffer#drawbox) of the buffer, and the other two by the panel itself.
+<!-- /test -->
 
 ## Constructor
 
+<!-- test: PanelTests.New_RectHasInclusiveEdges, PanelTests.New_WithoutArguments_IsAPanelOf10By5CellsAtTheOrigin -->
 ### New
 {: .no_toc }
 
@@ -122,9 +135,11 @@ Syntax: **New cConsolePanel** [ ( [ *name* [ , *left* [ , *top* [ , *width* [ ,
 : *optional* **Long** values, the size in columns and rows. The defaults are 10 and 5.
 
 Sets [**Rect**](#rect) to `left`, `top`, `left + width - 1` and `top + height - 1`, [**BorderStyle**](#borderstyle) to **Single**, [**BorderColor**](#bordercolor) to **Gray**, [**TitleColor**](#titlecolor) to **White** and [**Padding**](#padding) to 1.
+<!-- /test -->
 
 ## Methods
 
+<!-- test: PanelTests.ClearContent_FillsTheContentAreaWithSpaces_AndLeavesTheBorderAndThePadding, PanelTests.ClearContent_UsesTheColoursGiven, PanelTests.ClearContent_ContentAreaOfLessThanTwoCells_DoesNothing -->
 ### ClearContent
 {: .no_toc }
 
@@ -142,7 +157,9 @@ Syntax: *object*.**ClearContent** ( *buffer* [ , *fore* [ , *back* ] ] )
 : *optional* A **ConsoleColor**, the background. The default is **Black**.
 
 The padding and the border are left as they are. Nothing is done when the content area is less than 2 cells wide or 2 cells high.
+<!-- /test -->
 
+<!-- test: PanelTests.ContentRect_TakesOneCellForTheBorderAndThePadding, PanelTests.ContentRect_SmallPanel_IsEmptyOrNegative -->
 ### ContentHeight
 {: .no_toc }
 
@@ -151,7 +168,9 @@ Returns the height of the content area.
 Syntax: *object*.**ContentHeight** ( ) **As Long**
 
 Returns `ContentRect.Bottom - ContentRect.Top + 1`. It is 0 or negative when the border and the padding take all the rows.
+<!-- /test -->
 
+<!-- test: PanelTests.ContentRect_TakesOneCellForTheBorderAndThePadding, PanelTests.ContentRect_BorderStyleNone_TakesOnlyThePadding, compile ContentRectMember, compile ContentRectAssign -->
 ### ContentRect
 {: .no_toc }
 
@@ -160,7 +179,9 @@ Returns the content area.
 Syntax: *object*.**ContentRect** ( ) **As ConsoleRect**
 
 Returns a [**ConsoleRect**](../TBMANLIB_ConsoleCore/Types#consolerect) that is [**Rect**](#rect) less one cell on each side for the border (none when [**BorderStyle**](#borderstyle) is **None**) and less [**Padding**](#padding) cells on each side.
+<!-- /test -->
 
+<!-- test: PanelTests.ContentRect_TakesOneCellForTheBorderAndThePadding, PanelTests.ContentRect_SmallPanel_IsEmptyOrNegative -->
 ### ContentWidth
 {: .no_toc }
 
@@ -169,7 +190,9 @@ Returns the width of the content area.
 Syntax: *object*.**ContentWidth** ( ) **As Long**
 
 Returns `ContentRect.Right - ContentRect.Left + 1`.
+<!-- /test -->
 
+<!-- test: PanelTests.Move_KeepsTheSize, PanelTests.Move_AndResize_DrawNothing -->
 ### Move
 {: .no_toc }
 
@@ -181,7 +204,9 @@ Syntax: *object*.**Move** ( *left* , *top* )
 : *required* **Long** values, the new position of the upper left corner.
 
 Nothing is drawn, and the old cells are not cleared.
+<!-- /test -->
 
+<!-- test: PanelTests.Render_Single_DrawsThe250CBorder, PanelTests.Render_BorderUsesTheColoursOfTheCall_NotBorderColor, PanelTests.Render_DoesNotChangeTheInsideOfThePanel, PanelTests.Render_StyleNone_DrawsNothingNotEvenTheTitle, PanelTests.Render_CellsOutsideTheBuffer_AreDropped -->
 ### Render
 {: .no_toc }
 
@@ -199,7 +224,9 @@ Syntax: *object*.**Render** ( *buffer* [ , *fore* [ , *back* ] ] )
 : *optional* A **ConsoleColor**, the background of the border. The default is **Black**.
 
 Draws the border of the style in [**BorderStyle**](#borderstyle) around [**Rect**](#rect) and then the [**Title**](#title). The inside of the panel is not changed: the text that was there stays, and [**ClearContent**](#clearcontent) removes it. With the style **None** the method draws nothing, not even the title. Cells outside the buffer are dropped.
+<!-- /test -->
 
+<!-- test: PanelTests.Resize_KeepsThePosition, PanelTests.Move_AndResize_DrawNothing -->
 ### Resize
 {: .no_toc }
 
@@ -211,6 +238,7 @@ Syntax: *object*.**Resize** ( *width* , *height* )
 : *required* **Long** values, the new size in columns and rows.
 
 Sets `Rect.Right` to `Rect.Left + width - 1` and `Rect.Bottom` to `Rect.Top + height - 1`. Nothing is drawn.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsoleTheme.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsoleTheme.md
index 2f9b88d0..32ff19a1 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsoleTheme.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cConsoleTheme.md
@@ -10,6 +10,7 @@ has_toc: false
 
 A set of 14 named colours, which a program uses to draw all its parts in one style, with three ready-made sets in the module **mConsoleThemeFactory**.
 
+<!-- test: ThemeTests.Clone_ReturnsACopyThatChangesOnItsOwn, ThemeTests.GetColor_ReturnsTheFieldOfTheSameName, ThemeTests.New_EveryFieldIsBlack, ThemeTests.CreateHTOP_FieldsAreAsDocumented -->
 A **cConsoleTheme** has no behaviour of its own besides two methods. Its fields are [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor) values that a program reads when it draws. The package reads only three of them: [**cConsoleLayout**](cConsoleLayout) uses **Border** and **Background** to draw the borders of its panels, and **Foreground** and **Background** to clear their content areas. The other fields are for the program's own drawing, for example with [**cDataGrid**](cDataGrid) and [**cProgressBar**](cProgressBar).
 
 ```tb check_build check_run
@@ -26,12 +27,14 @@ Debug.Print blank.Background & " " & blank.Foreground
 ' 10
 ' 0 0
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
 
 In the syntax lines of this page, *object* is a **cConsoleTheme**.
 
+<!-- test: ThemeTests.New_EveryFieldIsBlack, LayoutTests.Render_DrawsTheBordersAndTitlesOfEveryPanelInTheColoursOfTheTheme, LayoutTests.ClearAllContent_FillsTheContentAreasWithTheForegroundAndBackgroundOfTheTheme -->
 ## Fields
 
 The class has 14 public fields, all of the type [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor). A theme that is made with `New cConsoleTheme` has every field at 0, **Black**, until the program sets it; the functions of [mConsoleThemeFactory](#mconsolethemefactory-module) return themes with all fields set.
@@ -54,9 +57,11 @@ The class has 14 public fields, all of the type [**ConsoleColor**](../TBMANLIB_C
 | **SelectedForeground** | the text of a selected item | no |
 
 The class has no comment on the use of the fields, so the second column describes each from its name. [**cDataGrid**](cDataGrid) has its own colour properties and does not read a theme.
+<!-- /test -->
 
 ## Methods
 
+<!-- test: ThemeTests.Clone_ReturnsACopyThatChangesOnItsOwn -->
 ### Clone
 {: .no_toc }
 
@@ -65,7 +70,9 @@ Returns a copy of the theme.
 Syntax: *object*.**Clone** ( ) **As cConsoleTheme**
 
 Returns a new **cConsoleTheme** with the 14 fields of the object. Changing the copy does not change the original.
+<!-- /test -->
 
+<!-- test: ThemeTests.GetColor_ReturnsTheFieldOfTheSameName, ThemeTests.GetColor_ValueOfNoMember_ReturnsForeground -->
 ### GetColor
 {: .no_toc }
 
@@ -77,7 +84,9 @@ Syntax: *object*.**GetColor** ( *colorType* ) **As ConsoleColor**
 : *required* A [**ThemeColorType**](../TBMANLIB_ConsoleCore/Types#themecolortype): **tcPrimary**, **tcSecondary**, **tcSuccess**, **tcWarning**, **tcError**, **tcInfo**, **tcMuted**, **tcBackground**, **tcForeground**, **tcBorder**, **tcHeaderBackground**, **tcHeaderForeground**, **tcSelectedBackground** or **tcSelectedForeground**.
 
 Returns the field of the same name. For a value that is not one of the 14 members, it returns **Foreground**. The enumeration is declared in the package [TBMANLIB_ConsoleCore](../TBMANLIB_ConsoleCore/Types#themecolortype).
+<!-- /test -->
 
+<!-- test: ThemeTests.CreateDefault_FieldsAreAsDocumented, ThemeTests.CreateHTOP_FieldsAreAsDocumented, ThemeTests.CreateLight_FieldsAreAsDocumented, ThemeTests.Factory_EachCallReturnsANewTheme -->
 ## mConsoleThemeFactory module
 
 The module has three functions that return a new, complete theme each time they are called. They have no parameters, and are written with the name of the module, as in `mConsoleThemeFactory.CreateLight()`.
@@ -121,6 +130,7 @@ Returns the light theme: black text on white, with the darker colours for succes
 Syntax: **CreateLight** ( ) **As cConsoleTheme**
 
 A console shows the colours of its own colour table, so the "white" of the light theme is the white of that table, and a console whose table is dark can show it differently.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cDataGrid.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cDataGrid.md
index c3f7e461..093ae505 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cDataGrid.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cDataGrid.md
@@ -10,6 +10,7 @@ has_toc: false
 
 Draws a table of text into the screen buffer, with a header row, columns of fixed widths, aligned cells, coloured rows and one selected row.
 
+<!-- test: DataGridTests.Render_ColoursOfHeaderRowsAndSelection_AreAsDocumented, DataGridTests.Render_DrawsTheHeaderTheLineUnderItAndTheDataRows, DataGridTests.Render_ThenRefresh_ShowsTheTableOnTheScreenBuffer -->
 A **cDataGrid** keeps the [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer) of the console it was made with. The program gives it the rows of text, the widths and alignments of the columns and the colours of the rows with the four `Set` members, and then calls [**Render**](#render), which draws the whole table at a position. The grid holds no scroll position and does not read keys: a program that lets the user choose a row calls [**MoveUp**](#moveup) and [**MoveDown**](#movedown) from its own key handler and draws the table again. The key handler is that of [**cConsole**](../TBMANLIB_ConsoleCore/cConsole#onkeypress), which [reports virtual-key codes](../TBMANLIB_ConsoleCore/#defects-in-version-1001), most of which differ from the members of **ConsoleKey**: a program compares them with constants such as `vbKeyUp`.
 
 ```tb check_build
@@ -56,12 +57,14 @@ Name        │    Size
 readme.txt  │   1,204
 setup.exe   │  88,512
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
 
 In the syntax lines of this page, *object* is a **cDataGrid**. Columns and rows are counted from 0 in the buffer.
 
+<!-- test: DataGridTests.Render_WithoutRows_DrawsNothing, DataGridTests.Render_WithoutColumnWidths_DrawsTheRows, DataGridTests.Render_WithoutColumnAlignments_DrawsTheRows, DataGridTests.Render_WithoutRowColors_DrawsTheRows, DataGridTests.Render_CellsAreCutWithoutAnEllipsis_AndPadded, DataGridTests.Render_Alignments_LeftCenterRight_AndOddPaddingOfCenterGoesRight, DataGridTests.Render_RowWithFewerCellsHasEmptyCells_AndExtraCellsAreDropped, DataGridTests.ShowBorders_False_DrawsNoSeparatorColumnAndNoLine, DataGridTests.Render_DrawsTheHeaderTheLineUnderItAndTheDataRows, DataGridTests.Render_ColoursOfHeaderRowsAndSelection_AreAsDocumented, DataGridTests.Render_RowBeyondTheColourArray_KeepsFore -->
 ## The data
 
 The text of the table is an array of **String**, one element for each row. Within a row the cells are separated by the tab character, `vbTab`. When [**ShowHeader**](#showheader) is **True**, which is the default, the first element is the header row and the others are data rows.
@@ -73,7 +76,9 @@ The number of columns is the number of elements of the widths array. A cell is c
 With [**ShowBorders**](#showborders) **True**, which is the default, a vertical bar U+2502 is drawn in the column after each column except the last, and a line of U+2500 with U+253C where the bars are lies under the header. That is not a frame: the table has no outer border and no lines between data rows. With **ShowBorders** at **False** there is no separator column and no line, and the columns follow each other with no space between.
 
 The colours are these. The header is drawn in the header colour on black. A data row is drawn in the *fore* and *back* colours of [**Render**](#render), or in the colour from [**SetRowColors**](#setrowcolors) when one is given, on *back*. The selected row is white on the selection colour. The separator line and the vertical bars take *fore* and *back*, and in the header the header colour.
+<!-- /test -->
 
+<!-- test: DataGridTests.Render_Alignments_LeftCenterRight_AndOddPaddingOfCenterGoesRight, DataGridTests.Render_AlignmentArrayShorterThanTheColumns_LeavesTheRestLeft -->
 ## Enumeration
 
 ### ColumnAlignment
@@ -88,6 +93,7 @@ The alignment of the cells of a column. The enumeration is declared in the class
 | **Right** | 2 | end at the right edge of the column |
 
 An element of the alignment array that is missing, because the array is shorter than the number of columns, is **Left**.
+<!-- /test -->
 
 ## Constructor
 
@@ -101,8 +107,11 @@ Syntax: **New cDataGrid** ( *console* )
 *console*
 : *required* A [**cConsole**](../TBMANLIB_ConsoleCore/cConsole) that is in full-screen mode.
 
+<!-- test: DataGridTests.SelectedRow_DefaultIsNoRow, DataGridTests.Render_ColoursOfHeaderRowsAndSelection_AreAsDocumented, DataGridTests.Render_GridMadeBeforeFullScreenMode_RaisesError91 -->
 Keeps the console and its current [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer). The grid starts with the header colour **Cyan**, the selection colour **DarkBlue**, no selected row (the row number -1), the header shown and the separators shown. When the console is not in full-screen mode, the buffer is **Nothing** and [**Render**](#render) raises error 91. See [How a component works](./#how-a-component-works).
+<!-- /test -->
 
+<!-- test: compile GridHeaderColorRead, compile GridSelectionColorRead, compile GridSelectedRowRead, compile GridShowHeaderRead, compile GridShowBordersRead, DataGridTests.Render_GivenColoursAndProperties_AreUsed, DataGridTests.SelectedRow_DefaultIsNoRow, DataGridTests.ShowBorders_False_DrawsNoSeparatorColumnAndNoLine, DataGridTests.ShowHeader_False_EveryRowIsADataRow_AndNoLineIsDrawn -->
 ## Properties
 
 All the properties can be set and none can be read: each has a `Let` and no `Get`. They take effect at the next [**Render**](#render).
@@ -144,9 +153,11 @@ Syntax: *object*.**ShowBorders** **=** *value*
 Whether the first row is a header. **Boolean**, write-only. The default is **True**. With **False**, every row is a data row, and no line is drawn under the first row.
 
 Syntax: *object*.**ShowHeader** **=** *value*
+<!-- /test -->
 
 ## Methods
 
+<!-- test: DataGridTests.GetRowCount_IsTheNumberOfDataRows, DataGridTests.GetRowCount_RowsNeverSet_RaisesError9 -->
 ### GetRowCount
 {: .no_toc }
 
@@ -155,7 +166,9 @@ Returns the number of data rows.
 Syntax: *object*.**GetRowCount** ( ) **As Long**
 
 Returns the number of elements of the rows array, less one when [**ShowHeader**](#showheader) is **True**. Raises error 9 when [**SetRows**](#setrows) was never called.
+<!-- /test -->
 
+<!-- test: DataGridTests.MoveDown_FromNoSelection_SelectsTheFirstDataRow_AndStopsAtTheLast -->
 ### MoveDown
 {: .no_toc }
 
@@ -167,7 +180,9 @@ Syntax: *object*.**MoveDown** ( *maxRow* )
 : *required* A **Long**, the number of data rows. The selection moves down only while the selected row is less than *maxRow* - 1, so the last data row is the last one reachable. [**GetRowCount**](#getrowcount) gives the number.
 
 With no selection (-1) the first data row is selected.
+<!-- /test -->
 
+<!-- test: DataGridTests.MoveUp_StopsAtTheFirstDataRow_AndDoesNothingWithoutASelection -->
 ### MoveUp
 {: .no_toc }
 
@@ -176,7 +191,9 @@ Selects the previous row.
 Syntax: *object*.**MoveUp** ( )
 
 The selection moves up only while the selected row is above 0, so the first data row is the first one reachable, and a call with no selection does nothing.
+<!-- /test -->
 
+<!-- test: DataGridTests.Render_DrawsTheHeaderTheLineUnderItAndTheDataRows, DataGridTests.Render_RowsBelowTheBuffer_AreDropped, DataGridTests.Render_GivenColoursAndProperties_AreUsed, DataGridTests.Render_ThenRefresh_ShowsTheTableOnTheScreenBuffer -->
 ### Render
 {: .no_toc }
 
@@ -194,7 +211,9 @@ Syntax: *object*.**Render** ( *col* , *row* [ , *fore* [ , *back* ] ] )
 : *optional* A **ConsoleColor**, the background of the data rows and the separators. The default is **Black**.
 
 Draws the header row, the line under it when [**ShowBorders**](#showborders) is on, and then every data row, one row of the buffer each, going down from *row*. The grid is as wide as the column widths plus one column for each separator, and as high as the number of rows plus one for the line. Rows that reach below the buffer are dropped.
+<!-- /test -->
 
+<!-- test: DataGridTests.ScrollTo_SelectsTheRowLikeSelectedRow, DataGridTests.ScrollTo_ShowsTheRowInABufferTooSmallForTheTable -->
 ### ScrollTo
 {: .no_toc }
 
@@ -206,6 +225,7 @@ Syntax: *object*.**ScrollTo** ( *row* )
 : *required* A **Long**, the number of the data row, counted from 0.
 
 The method only sets the selected row, as [**SelectedRow**](#selectedrow) does. It does not scroll: the grid has no scroll position, and always draws all its rows.
+<!-- /test -->
 
 ### SetColumnAlignments
 {: .no_toc }
@@ -227,6 +247,7 @@ Syntax: *object*.**SetColumnWidths** ( *widths* )
 *widths*
 : *required* An array of **Long**, passed by reference, the width in cells of each column. Its number of elements is the number of columns. The method copies the array.
 
+<!-- test: DataGridTests.SetRowColors_FirstDataRowTakesTheFirstColour, DataGridTests.SetRowColors_HeaderRowIsCounted_SoColorsOfZeroIsNotUsed, DataGridTests.Render_RowBeyondTheColourArray_KeepsFore -->
 ### SetRowColors
 {: .no_toc }
 
@@ -238,7 +259,9 @@ Syntax: *object*.**SetRowColors** ( *colors* )
 : *required* An array of [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor), passed by reference. The method copies the array.
 
 Both arrays start at index 0. The colour of the row at index *i* of the array of [**SetRows**](#setrows) is `colors(i)`. The header row is counted, so with a header the first data row takes `colors(1)`, and `colors(0)` is not used: the header has its own colour. A row whose index lies beyond the end of the colour array keeps *fore*. The selected row ignores its colour.
+<!-- /test -->
 
+<!-- test: DataGridTests.SetRows_CopiesTheArray -->
 ### SetRows
 {: .no_toc }
 
@@ -248,6 +271,7 @@ Syntax: *object*.**SetRows** ( *rows* )
 
 *rows*
 : *required* An array of **String**, passed by reference, one element for each row, with the cells separated by the tab character. The method copies the array: later changes to it do not reach the grid.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cProgressBar.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cProgressBar.md
index a682de59..385ea144 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cProgressBar.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cProgressBar.md
@@ -10,6 +10,7 @@ has_toc: false
 
 Draws a progress bar, horizontal or vertical, into the screen buffer of the full-screen mode.
 
+<!-- test: ProgressBarTests.Render_DrawsTheFilledPartInGreenAndTheEmptyPartInDarkGray, ProgressBarTests.Render_ThenRefresh_ShowsTheBarOnTheScreenBuffer, ProgressBarTests.Render_DoesNotClearTheCellsAroundTheBar -->
 A **cProgressBar** keeps the [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer) of the console it was made with. Its `Render` members write a bar made of a filled part and an empty part into that buffer; they do not clear the cells around the bar and do not write to the console. [**Refresh**](../TBMANLIB_ConsoleCore/cConsole#refresh) of the console shows the result. The filled part is drawn with the character U+2588 (a full block), in green, and the empty part with U+2591 (a light shade), in dark grey, unless the call says otherwise.
 
 ```tb check_build
@@ -30,12 +31,14 @@ con.ExitFullScreenMode
 ' 2588 10
 ' 2591 8
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
 
 In the syntax lines of this page, *object* is a **cProgressBar**. Columns and rows are counted from 0 in the buffer, and a position is a column and a row, in that order.
 
+<!-- test: ProgressBarTests.Render_FilledCellsAreRoundedHalfToEven, ProgressBarTests.Render_FilledAndEmptyPartsTogetherAreExactlyTheWidth, ProgressBarTests.Render_PercentOutsideTheRange_IsTakenAsTheNearestEnd, ProgressBarTests.Render_UsesTheFirstCharacterOfTheStrings_AndTheColoursGiven, ProgressBarTests.Render_EmptyString_RaisesError5, ProgressBarTests.Render_CellsOutsideTheBuffer_AreDropped, ProgressBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91 -->
 ## Common behaviour
 
 In every `Render` member, *percent* is a **Double** from 0 to 100; a value outside the range is taken as the nearest end. The number of filled cells is `CLng(percent / 100 * size)`, which rounds half to even, so 25 percent of 10 cells is 2 cells. The filled and empty parts together are exactly *size* cells.
@@ -43,6 +46,7 @@ In every `Render` member, *percent* is a **Double** from 0 to 100; a value outsi
 *filledChar* and *emptyChar* are strings of which only the first character is used; an empty string raises error 5, *Invalid procedure call or argument*. The colours *filledColor* and *emptyColor* are [**ConsoleColor**](../TBMANLIB_ConsoleCore/Types#consolecolor) values, and the cells have a black background. A cell outside the buffer is dropped.
 
 A bar that is made before the console enters full-screen mode holds no buffer, and its first `Render` raises error 91, *Object variable or With block variable not set*; see [How a component works](./#how-a-component-works).
+<!-- /test -->
 
 ## Constructor
 
@@ -56,10 +60,13 @@ Syntax: **New cProgressBar** ( *console* )
 *console*
 : *required* A [**cConsole**](../TBMANLIB_ConsoleCore/cConsole) that is in full-screen mode.
 
+<!-- test: ProgressBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91, ProgressBarTests.Render_AfterFullScreenModeWasLeftAndEnteredAgain_DrawsIntoTheOldBuffer -->
 Keeps the console and its current [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer). When the console is not in full-screen mode, the buffer is **Nothing** and every `Render` member raises error 91. The bar keeps that buffer object: after the console leaves full-screen mode and enters it again, the console has a new buffer and the bar still draws into the old one.
+<!-- /test -->
 
 ## Methods
 
+<!-- test: ProgressBarTests.GetProgressColor_ThresholdsAre50And80_AndTheValueIsNotLimited -->
 ### GetProgressColor
 {: .no_toc }
 
@@ -89,7 +96,9 @@ Debug.Print bar.GetProgressColor(10) & " " & bar.GetProgressColor(50) & " " & ba
 ' Output:
 ' 10 14 12
 ```
+<!-- /test -->
 
+<!-- test: ProgressBarTests.Render_DrawsTheFilledPartInGreenAndTheEmptyPartInDarkGray, ProgressBarTests.Render_WidthOfZeroOrLess_DrawsNothing -->
 ### Render
 {: .no_toc }
 
@@ -119,7 +128,9 @@ Syntax: *object*.**Render** ( *col* , *row* , *width* , *percent* [ , *filledCha
 : *optional* A **ConsoleColor**. The default is **DarkGray**.
 
 The filled part starts at *col* and the empty part follows it, to *col* + *width* - 1. A *width* of 0 or less draws nothing.
+<!-- /test -->
 
+<!-- test: ProgressBarTests.RenderVertical_FilledPartGrowsFromTheBottom, ProgressBarTests.RenderVertical_FilledCellsAreRoundedHalfToEven_AndPercentIsLimited -->
 ### RenderVertical
 {: .no_toc }
 
@@ -137,7 +148,9 @@ Syntax: *object*.**RenderVertical** ( *col* , *row* , *height* , *percent* [ , *
 : As for [**Render**](#render).
 
 The filled part grows from the bottom, in the cells from `row + height - 1` upwards, and the empty part is drawn from *row* downwards.
+<!-- /test -->
 
+<!-- test: ProgressBarTests.RenderWithAutoColor_FilledColourFollowsThePercent_AndTheParametersAreInTheDocumentedOrder -->
 ### RenderWithAutoColor
 {: .no_toc }
 
@@ -155,7 +168,9 @@ Syntax: *object*.**RenderWithAutoColor** ( *col* , *row* , *width* , *percent* [
 : *optional* **ConsoleColor** values for [**GetProgressColor**](#getprogresscolor). The defaults are **Green**, **Yellow** and **Red**.
 
 Chooses the filled colour with **GetProgressColor** and calls **Render**. Note the order of the parameters: the empty colour comes before the three colours, and there is no *filledColor*.
+<!-- /test -->
 
+<!-- test: ProgressBarTests.RenderWithBrackets_DrawsTheBarBetweenSquareBrackets, ProgressBarTests.RenderWithBrackets_DrawsThePercentage -->
 ### RenderWithBrackets
 {: .no_toc }
 
@@ -170,7 +185,9 @@ Syntax: *object*.**RenderWithBrackets** ( *col* , *row* , *width* , *percent* [
 : *optional* A **ConsoleColor**, the colour of the brackets. The default is **Gray**.
 
 Draws `[` at *col*, the bar in the *width* - 2 cells after it, and `]` at *col* + *width* - 1. Despite its source comment, the method draws no percentage; [**RenderWithLabel**](#renderwithlabel) does.
+<!-- /test -->
 
+<!-- test: ProgressBarTests.RenderWithLabel_DrawsTheLabel_TheBar_AndThePercentage, ProgressBarTests.RenderWithLabel_BarIsOneCellNarrowerAtTenAndHundredPercent, ProgressBarTests.RenderWithLabel_BarNarrowerThanThreeCells_DrawsOnlyTheLabelAndThePercentage -->
 ### RenderWithLabel
 {: .no_toc }
 
@@ -188,6 +205,7 @@ Syntax: *object*.**RenderWithLabel** ( *col* , *row* , *width* , *percent* , *la
 : *optional* A **ConsoleColor**, the colour of the label and the percentage. The default is **Gray**.
 
 The row is the label, a space, the bar, a space, and the percentage rounded to a whole number with a percent sign. The bar gets what is left of *width* after the label and the percentage text. The text has one character more for each digit of the rounded percentage, so the bar is one cell narrower at 10 percent and at 100 percent than just below them. When the bar would be less than 3 cells wide, the method draws only the label, a space and the percentage, in *labelColor*, and no bar.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cSparkline.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cSparkline.md
index c2d14676..388038fb 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cSparkline.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cSparkline.md
@@ -10,6 +10,7 @@ has_toc: false
 
 Draws a small chart of a series of numbers into the screen buffer, as Braille dots, as asterisks joined by vertical bars, or as columns of blocks.
 
+<!-- test: SparklineTests.RenderWithStats_WritesMinAvgAndMaxOfAllTheValuesBelowTheChart, SparklineTests.Render_ThenRefresh_ShowsTheChartOnTheScreenBuffer -->
 A **cSparkline** keeps the [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer) of the console it was made with. [**Render**](#render) takes a series of **Double** values, scales them between a minimum and a maximum, and draws one column of the chart for each of *width* columns of the buffer. [**RenderWithStats**](#renderwithstats) also writes the smallest, the average and the largest value under the chart. The class draws into the buffer only; [**Refresh**](../TBMANLIB_ConsoleCore/cConsole#refresh) of the console shows it.
 
 ```tb check_build
@@ -27,12 +28,14 @@ Next
 chart.RenderWithStats 2, 1, 10, 4, cpu, 0, 100, ConsoleColor.Green, ConsoleColor.Black, SparklineCharSet.Braille
 con.Refresh
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
 
 In the syntax lines of this page, *object* is a **cSparkline**. Columns and rows are counted from 0 in the buffer.
 
+<!-- test: SparklineTests.Render_SeriesStartingAtOne_DrawsTheChart, SparklineTests.Render_SeriesOfFewerThanTwoValues_DrawsNothing, SparklineTests.Render_SeriesNeverAllocated_RaisesError9, SparklineTests.Render_MinValueEqualToMaxValue_RaisesError11, SparklineTests.Render_WidthOfZero_RaisesError11, SparklineTests.Render_Braille_ValuesOutsideMinAndMax_AreLimited, SparklineTests.Render_Braille_MoreValuesThanColumns_EachColumnTakesAllTheValuesUpToTheNextColumn, SparklineTests.Render_Braille_FewerValuesThanColumns_LeavesSomeColumnsEmpty, SparklineTests.Render_ASCIIAndBlock_MoreValuesThanColumns_TakeTheValueAtTheColumnPosition, SparklineTests.Render_ASCIIAndBlock_FewerValuesThanColumns_RepeatValues -->
 ## The series
 
 The series is an array of **Double** values that has to start at index 0: the drawing code addresses the values by position from 0, so an array with a lower bound of 1 raises error 9, *Subscript out of range*.
@@ -40,9 +43,11 @@ The series is an array of **Double** values that has to start at index 0: the dr
 A series of fewer than 2 values draws nothing, and an array that was never allocated raises error 9. Each value is scaled to `(value - minValue) / (maxValue - minValue)` and limited to 0 to 1. A *minValue* equal to *maxValue* raises error 11, *Division by zero*. A *width* of 0 raises error 11 too.
 
 The chart has *width* columns. When the series has more values than columns, each column takes the value at position `CLng(x * count / width)`, where *x* is the column counted from 0; the Braille set takes all the values from that position up to the position of the next column. When the series has fewer values than columns, the ASCII and Block sets repeat values, and the Braille set leaves some columns empty. The series is not averaged or smoothed.
+<!-- /test -->
 
 ## Character sets
 
+<!-- test: SparklineTests.Render_Braille_ChartIsWidthByHeightPlusThreeQuotientFourCells_AndWritesEveryCellOfItsArea, SparklineTests.Render_Braille_PositionsOneToThreeSetTheDotsOneToThree, SparklineTests.Render_Braille_LowestPositionOfACell_SetsTheBottomLeftDot, SparklineTests.Render_Braille_ValueEqualToTheMinimum_SetsADot, SparklineTests.Render_Braille_TallChart_HoldsTheUpperHalfOfTheRangeInTheUpperRow, SparklineTests.Render_Braille_UsesTheColoursGiven -->
 ### Braille
 {: .no_toc }
 
@@ -110,12 +115,16 @@ con.ExitFullScreenMode
 ```
 
 The series rises, and the first row (the top one) holds the dots of the values 25 and 50, while the second row holds those of 75 and 100.
+<!-- /test -->
 
+<!-- test: SparklineTests.Render_ASCII_DrawsAnAsteriskPerColumnAndBarsBetweenFarPoints, SparklineTests.Render_ASCII_DoesNotClearTheOtherCellsOfItsArea -->
 ### ASCII
 {: .no_toc }
 
 The chart is *width* columns wide and *height* rows high. A value is drawn as `*` in the row `CLng((1 - scaled) * (height - 1))` counted from the top, so the maximum is in the top row and the minimum in the bottom row. When the point of a column lies more than one row above or below the point of the column on its left, the cells of that left column strictly between the two rows are filled with U+2502 (a vertical bar). The set writes only the points and the bars; it does not clear the other cells of its area.
+<!-- /test -->
 
+<!-- test: SparklineTests.Render_Block_ColumnsAreBarsFromTheBottom, SparklineTests.Render_Block_ValueAboveTheMinimumHasAtLeastOneCell_AndTheAreaIsCleared, SparklineTests.Render_Block_UsesTheColoursGiven -->
 ### Block
 {: .no_toc }
 
@@ -150,6 +159,7 @@ con.ExitFullScreenMode
 ' [  ###]
 ' [ ####]
 ```
+<!-- /test -->
 
 ## Enumeration
 
@@ -178,10 +188,13 @@ Syntax: **New cSparkline** ( *console* )
 *console*
 : *required* A [**cConsole**](../TBMANLIB_ConsoleCore/cConsole) that is in full-screen mode.
 
+<!-- test: SparklineTests.Render_SparklineMadeBeforeFullScreenMode_RaisesError91 -->
 Keeps the console and its current [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer). When the console is not in full-screen mode, the buffer is **Nothing** and [**Render**](#render) raises error 91. See [How a component works](./#how-a-component-works).
+<!-- /test -->
 
 ## Methods
 
+<!-- test: SparklineTests.Render_SeriesOfFewerThanTwoValues_DrawsNothing, SparklineTests.Render_ThenRefresh_ShowsTheChartOnTheScreenBuffer -->
 ### Render
 {: .no_toc }
 
@@ -217,7 +230,9 @@ Syntax: *object*.**Render** ( *col* , *row* , *width* , *height* , *values* [ ,
 : *optional* A [**SparklineCharSet**](#sparklinecharset). The default is **Braille**.
 
 Returns without drawing when the array has fewer than 2 values.
+<!-- /test -->
 
+<!-- test: SparklineTests.RenderWithStats_WritesMinAvgAndMaxOfAllTheValuesBelowTheChart, SparklineTests.RenderWithStats_TextLineIsInTheSameRowForTheThreeCharacterSets, SparklineTests.RenderWithStats_ArrayWithNoElement_RaisesError9 -->
 ### RenderWithStats
 {: .no_toc }
 
@@ -232,6 +247,7 @@ Syntax: *object*.**RenderWithStats** ( *col* , *row* , *width* , *height* , *val
 : *optional* A **ConsoleColor**, the colour of the text line. The default is **Gray**.
 
 Draws the chart with **Render**, then writes `Min:`, `Avg:` and `Max:` with the three numbers, each formatted with one decimal, in one line at the row `row + height + 1`, starting at *col*, on the background *back*. The numbers are taken from all the values, and not from *minValue* and *maxValue*. The row is the same for all three character sets, so a Braille chart, which is `(height + 3) \ 4` rows high, has a gap before the line. The decimal separator is that of the regional settings of the user. An array with no element raises error 9.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cVBar.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cVBar.md
index ffc2498c..92f59e99 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cVBar.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/cVBar.md
@@ -8,6 +8,7 @@ has_toc: false
 # cVBar class
 {: .no_toc }
 
+<!-- test: VBarTests.Render_BarGrowsFromTheBottom_AndTheRowsAboveAreSpaces -->
 Draws vertical bars into the screen buffer: a single bar, a row of bars from an array, bars coloured by value, a bar with a label, and a history of values that scrolls to the left.
 
 A **cVBar** keeps the [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer) of the console it was made with. Each bar is one column wide and *height* rows high, and grows from the bottom. The members draw into the buffer only; [**Refresh**](../TBMANLIB_ConsoleCore/cConsole#refresh) of the console shows it.
@@ -33,12 +34,14 @@ con.ExitFullScreenMode
 ' 2 2588
 ' 3 2588
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
 
 In the syntax lines of this page, *object* is a **cVBar**. Columns and rows are counted from 0 in the buffer.
 
+<!-- test: VBarTests.Render_FilledRowsAreRoundedHalfToEven_AndAnyPercentAboveZeroFillsOneRow, VBarTests.Render_PercentOutsideTheRange_IsLimited, VBarTests.Render_DrawnAgainOverATallerBar_ClearsIt, VBarTests.Render_GivenColours_AreUsed, VBarTests.RenderBars_MaxEqualToMin_RaisesError11, VBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91 -->
 ## How a bar is drawn
 
 A bar of *height* rows is drawn in the rows *row* to *row* + *height* - 1 of one column. The number of filled rows is `CLng(percent / 100 * height)`, which rounds half to even, and a bar with a *percent* above 0 has at least one filled row. The filled rows are the bottom ones, drawn with the bar character in the colours *fore* on *back*. The rows above them are overwritten with spaces in the same colours, so a bar that is drawn again on top of a taller one clears it.
@@ -46,7 +49,9 @@ A bar of *height* rows is drawn in the rows *row* to *row* + *height* - 1 of one
 A *percent* outside 0 to 100 is limited to the range. In the members that take *minValue* and *maxValue*, each value is first converted to a percentage with `100 * (value - minValue) / (maxValue - minValue)`; a *maxValue* equal to *minValue* raises error 11, *Division by zero*.
 
 A bar that is made before the console enters full-screen mode holds no buffer, and its first draw raises error 91, *Object variable or With block variable not set*; see [How a component works](./#how-a-component-works).
+<!-- /test -->
 
+<!-- test: VBarTests.Render_CharStyles_UseTheirCharacters, VBarTests.Render_CustomStyle_DrawsACharacterOfItsOwn, VBarTests.Render_StyleOutsideTheEnumeration_RaisesError5WhenARowIsFilled -->
 ## Enumeration
 
 ### BarCharStyle
@@ -63,6 +68,7 @@ The character of the filled rows. The enumeration is declared in the class, and
 | **Custom** | 4 | U+2588, as **Block** |
 
 **Custom** is meant for a character chosen by the program, but no member has a parameter for one, so **Custom** draws the same character as **Block**. A value outside 0 to 4 leaves the character empty, and a bar with at least one filled row then raises error 5, *Invalid procedure call or argument*.
+<!-- /test -->
 
 ## Constructor
 
@@ -76,10 +82,13 @@ Syntax: **New cVBar** ( *console* )
 *console*
 : *required* A [**cConsole**](../TBMANLIB_ConsoleCore/cConsole) that is in full-screen mode.
 
+<!-- test: VBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91 -->
 Keeps the console and its current [**Buffer**](../TBMANLIB_ConsoleCore/cConsole#buffer). When the console is not in full-screen mode, the buffer is **Nothing** and every draw raises error 91.
+<!-- /test -->
 
 ## Methods
 
+<!-- test: VBarTests.Render_BarGrowsFromTheBottom_AndTheRowsAboveAreSpaces, VBarTests.Render_GivenColours_AreUsed, VBarTests.Render_CharStyles_UseTheirCharacters -->
 ### Render
 {: .no_toc }
 
@@ -104,7 +113,9 @@ Syntax: *object*.**Render** ( *col* , *row* , *height* , *percent* [ , *fore* [
 
 *charStyle*
 : *optional* A [**BarCharStyle**](#barcharstyle). The default is **Block**.
+<!-- /test -->
 
+<!-- test: VBarTests.RenderBars_DrawsABarForEachValue_ApartBySpacingPlusOne, VBarTests.RenderBars_ArrayStartingAtOne_DrawsEveryBar, VBarTests.RenderBars_DoesNotWriteTheBlankColumns_AndUsesOneSpacingByDefault, VBarTests.RenderBars_MinAndMax_GiveTheEmptyAndTheFullBar, VBarTests.RenderBars_MaxEqualToMin_RaisesError11 -->
 ### RenderBars
 {: .no_toc }
 
@@ -128,7 +139,9 @@ Syntax: *object*.**RenderBars** ( *col* , *row* , *height* , *values* [ , *spaci
 : *optional*, as for [**Render**](#render).
 
 The bar for the first value is in column *col*, and the next bars are at *col* + (`1 + spacing`), and so on.
+<!-- /test -->
 
+<!-- test: VBarTests.RenderHistory_LastValueIsAtTheGivenColumn_TheOthersGoToItsLeft, VBarTests.RenderHistory_ColumnsLeftOfTheBuffer_AreDropped, VBarTests.RenderHistory_ArrayWithNoElement_DrawsNothing, VBarTests.RenderHistory_ArrayStartingAtOne_DrawsTheChart -->
 ### RenderHistory
 {: .no_toc }
 
@@ -146,7 +159,9 @@ Syntax: *object*.**RenderHistory** ( *col* , *row* , *height* , *history* [ , *m
 : *optional*, as for [**RenderBars**](#renderbars).
 
 The last element of the array is drawn in column *col*, the one before it in column *col* - 1, and so on to the left, one column each, so *col* is the right end of the chart and not its start. Columns left of the buffer are dropped. Nothing is drawn for an array with no element. The drawing code addresses the values by position from 0, so an array with a lower bound of 1 raises error 9, *Subscript out of range*. A program that shows a moving history keeps its own array, shifts it by one value for each new reading, and draws it again.
+<!-- /test -->
 
+<!-- test: VBarTests.RenderWithGradient_ColourOfABarIsOneOfThree, VBarTests.RenderWithGradient_GivenColoursAndBackground_AreInTheDocumentedOrder -->
 ### RenderWithGradient
 {: .no_toc }
 
@@ -170,7 +185,9 @@ Syntax: *object*.**RenderWithGradient** ( *col* , *row* , *height* , *values* [
 : *optional*, as for [**Render**](#render).
 
 The colour of each bar is one of the three; there is no gradient between them. Note the order of the parameters: the three colours come before *back*, and there is no *fore*.
+<!-- /test -->
 
+<!-- test: VBarTests.RenderWithLabel_LabelIsWrittenOneRowBelowTheBlankRowUnderTheBar, VBarTests.RenderWithLabel_LabelIsCentredUnderTheBar, VBarTests.RenderWithLabel_LabelWouldStartLeftOfTheBuffer_StartsInColumn0 -->
 ### RenderWithLabel
 {: .no_toc }
 
@@ -188,6 +205,7 @@ Syntax: *object*.**RenderWithLabel** ( *col* , *row* , *height* , *percent* , *l
 : *optional* A **ConsoleColor**, the colour of the label. The default is **Gray**.
 
 Draws the bar with **Render**, and writes the label in the row `row + height + 1`, which leaves one blank row under the bar. The label starts in column `col - Len(label) \ 2 + 1`, or in column 0 when that is negative. That is one column to the right of the column that would centre the label under the bar.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/index.md b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/index.md
index 20391d42..b116e173 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleComponents/index.md
@@ -32,8 +32,9 @@ con.ReadKey True
 con.Restore
 ```
 
+<!-- test: TwoPackagesTests.ProgressBar_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.Sparkline_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.VBar_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.DataGrid_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.ConsoleLayout_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.LayoutHelper_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.ConsolePanel_Render_AcceptsTheBufferOfConsoleCore, TwoPackagesTests.ConsolePanel_ClearContent_AcceptsTheBufferOfConsoleCore, compile ConsoleToProgressBar, compile ConsoleToLayout, compile ConsoleToLayoutHelper, compile BufferToPanelRender, compile BufferToPanelClearContent, compile ContentRectMember, compile ContentRectAssign, compile ContentRectToContains, compile PanelRectMember, compile CenterMember, compile CenterAssign, compile CenterRectAssign, compile PercentRectAssign, compile PercentAssign, compile WithMarginsAssign, compile ClampRectAssign, TwoPackagesTests.ConsolePanel_ContentSize_WorksWithThePackage, TwoPackagesTests.ConsolePanel_ContentRect_CanBeReadThroughItsMemory, TwoPackagesTests.ConsolePanel_Constructor_SetsTheStyleFields, ThemeTests.CreateDefault_FieldsAreAsDocumented, ThemeTests.CreateHTOP_FieldsAreAsDocumented, ThemeTests.CreateLight_FieldsAreAsDocumented, ColorHelperTests.HeatmapColor_ThresholdsAreAtHalfAndEightTenths -->
 > [!WARNING] 1.0.0.1, BETA 1005
-> The components that take a **cConsole** cannot be used with the published package [TBMANLIB_ConsoleCore](../TBMANLIB_ConsoleCore/). The package compiles, but the constructors of [**cProgressBar**](cProgressBar), [**cSparkline**](cSparkline), [**cVBar**](cVBar), [**cDataGrid**](cDataGrid), [**cConsoleLayout**](cConsoleLayout) and [**cLayoutHelper**](Helpers), and the members of [**cConsolePanel**](cConsolePanel) that take a **cConsoleBuffer**, raise error -2147467262, *No such interface supported*, when they are given an object of the published ConsoleCore, and a program cannot read the **ConsoleRect** and **ConsolePosition** values that the components return. The package carries a copy of ConsoleCore of its own, and the compiler treats the types of that copy as different from the types of the published package. [The two packages](#the-two-packages) has the details, and the one arrangement in which the components work. Only [**cConsoleTheme**](cConsoleTheme), the module **mConsoleThemeFactory**, [**cColorHelper**](Helpers#ccolorhelper-class) and the geometry of **cConsolePanel** work with the package as it is. The outputs that the samples on these pages show are those of the source files of the components compiled into a project that references ConsoleCore, and not of a project that references the two packages.
+> The components that take a **cConsole** cannot be used with the published package [TBMANLIB_ConsoleCore](../TBMANLIB_ConsoleCore/). The package compiles, but the constructors of [**cProgressBar**](cProgressBar), [**cSparkline**](cSparkline), [**cVBar**](cVBar), [**cDataGrid**](cDataGrid), [**cConsoleLayout**](cConsoleLayout) and [**cLayoutHelper**](Helpers), and the members of [**cConsolePanel**](cConsolePanel) that take a **cConsoleBuffer**, raise error -2147467262, *No such interface supported*, when they are given an object of the published ConsoleCore, and a program cannot read the **ConsoleRect** and **ConsolePosition** values that the components return. The package carries a copy of ConsoleCore of its own, and the compiler treats the types of that copy as different from the types of the published package. [The two packages](#the-two-packages) has the details, and the one arrangement in which the components work. Only [**cConsoleTheme**](cConsoleTheme), the module **mConsoleThemeFactory**, [**cColorHelper**](Helpers#ccolorhelper-class) and the geometry of **cConsolePanel** work with the package as it is. A sample on these pages that makes a component with a **cConsole** raises this error in a project that references both packages; the output it shows is that of the code of the components compiled into the program's own project.
 
 * TOC
 {:toc}
@@ -48,16 +49,20 @@ A component names types of ConsoleCore in its constructor and its parameters: **
 
 The project file of this package lists ConsoleCore as an embedded reference: version 1.0.0.1, with the identifier `{A0CCFE06-651A-40A4-84D9-0CA4200A8224}` of the published package, and the package file holds that copy in its own `Packages` folder. The six source files of the copy are the same as those of the published package. A project that imports this package gets the copy inside it, at `/Packages/TBMANLIB_ConsoleComponents/Packages/TBMANLIB_ConsoleCore`, and a program that imports ConsoleCore as well gets a second copy, at `/Packages/TBMANLIB_ConsoleCore`. That is so in either order of import: the program's copy does not replace the one inside the package.
 
+<!-- test: TwoPackagesTests.ProgressBar_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.Sparkline_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.VBar_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.DataGrid_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.ConsoleLayout_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.LayoutHelper_New_AcceptsTheConsoleOfConsoleCore, TwoPackagesTests.ConsolePanel_Render_AcceptsTheBufferOfConsoleCore, TwoPackagesTests.ConsolePanel_ClearContent_AcceptsTheBufferOfConsoleCore, compile ConsoleToProgressBar, compile ConsoleToLayout, compile ConsoleToLayoutHelper, compile BufferToPanelRender, compile BufferToPanelClearContent, compile ContentRectMember, compile ContentRectAssign, compile ContentRectToContains, compile PanelRectMember, compile CenterMember, compile CenterAssign, compile CenterRectAssign, compile PercentRectAssign, compile PercentAssign, compile WithMarginsAssign, compile ClampRectAssign, compile GridToRectArray, TwoPackagesTests.ConsolePanel_Constructor_SetsTheStyleFields, ThemeTests.CreateHTOP_FieldsAreAsDocumented, ColorHelperTests.HeatmapColor_ThresholdsAreAtHalfAndEightTenths, compile NestedEnumerationWithoutClass, compile NestedEnumerationWithClass -->
 The components are compiled against the copy inside the package. The compiler treats its types as different from those of the copy that the program references, although they have the same names and the same code. A project that references both therefore meets two sets of types, and this is the result:
 
 - **Objects.** Passing a **cConsole** or a **cConsoleBuffer** of the published package to a component compiles. At run time the call raises error -2147467262, *No such interface supported*: the constructors of **cProgressBar**, **cSparkline**, **cVBar**, **cDataGrid**, **cConsoleLayout** and **cLayoutHelper** do, and so do **Render** and **ClearContent** of **cConsolePanel**.
 - **Structures.** A **ConsoleRect** or **ConsolePosition** that a component returns, such as the **Rect** field of **cConsolePanel**, or the result of **ContentRect**, **CenterRect**, **Center** or **Grid**, has the type of the copy inside the package. The compiler refuses to read a member of it (TB5027, *[ConsoleRect] does not contain 'Left', or it is inaccessible in this context*), to assign it to a **ConsoleRect** variable (TB5028, *Unable to convert type 'ConsoleRect' to type 'ConsoleRect'*) and to pass it to **ConsoleRect_Contains** (TB5001, *Validation of call to 'ConsoleRect_Contains' failed. Argument for 'rect': cannot coerce type 'ConsoleRect' to 'ConsoleRect'*).
 - **Enumerations.** A **ConsoleColor** is a number, so the colour members work: **cConsoleTheme**, **mConsoleThemeFactory** and **cColorHelper** give and take colours, and **cConsolePanel** keeps its style fields.
 - **Nested enumerations.** The enumerations of the components, such as **PanelBorderStyle**, are written without the class: `PanelBorderStyle.Double`. The form `cConsolePanel.PanelBorderStyle.Double` is refused (TB5079, *Unrecognized symbol 'cConsolePanel'*).
+<!-- /test -->
 
 A program that references only this package cannot create a **cConsole**, and a component cannot be created without one.
 
+<!-- test: ProgressBarTests.Render_DrawsTheFilledPartInGreenAndTheEmptyPartInDarkGray, PanelTests.Render_Title_SampleOfThePage, LayoutTests.Render_DrawsTheBordersAndTitlesOfEveryPanelInTheColoursOfTheTheme -->
 The components work when their source files are part of the program's own project and the project references ConsoleCore and not this package: there is then one set of types, and a **cConsole** reaches every component. The files are the `.twin` files of the `Components` folder in the sources of this package, which is published under the MIT licence. The members that this documentation describes for the components are the members of that code, and the sample outputs show what it prints in such a project.
+<!-- /test -->
 
 ### How a component works
 
@@ -68,9 +73,11 @@ Every component keeps what its constructor was given and draws only into the buf
 3. Call the component's `Render` members to draw into the buffer.
 4. Call [**Refresh**](../TBMANLIB_ConsoleCore/cConsole#refresh) to show the buffer.
 
+<!-- test: ProgressBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91, VBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91, SparklineTests.Render_SparklineMadeBeforeFullScreenMode_RaisesError91, DataGridTests.Render_GridMadeBeforeFullScreenMode_RaisesError91, ProgressBarTests.Render_AfterFullScreenModeWasLeftAndEnteredAgain_DrawsIntoTheOldBuffer, LayoutTests.Render_WhenTheConsoleIsNotInFullScreenMode_RaisesError91, LayoutTests.New_ConsoleNotInFullScreenMode_IsAccepted_AndTheSizeIsReadWhenTheLayoutIsMade, ProgressBarTests.Render_DoesNotClearTheCellsAroundTheBar, ProgressBarTests.Render_CellsOutsideTheBuffer_AreDropped, ProgressBarTests.Render_ThenRefresh_ShowsTheBarOnTheScreenBuffer -->
 **cProgressBar**, **cSparkline**, **cVBar** and **cDataGrid** take `console.Buffer` in their constructor and keep it. If the console is not in full-screen mode at that moment, **Buffer** is **Nothing**, the component holds **Nothing**, and its first draw raises error 91, *Object variable or With block variable not set*. A component keeps the buffer it was given: after [**ExitFullScreenMode**](../TBMANLIB_ConsoleCore/cConsole#exitfullscreenmode) and a new **EnterFullScreenMode** the console has a new buffer, and the component still draws into the old one, which the console no longer shows. [**cConsolePanel**](cConsolePanel) and the themes take no console, and [**cConsoleLayout**](cConsoleLayout) reads the buffer of the console each time it draws.
 
 The components do not clear the area they draw in, except where a page says so, do not check that what they draw lies inside the buffer (cells outside it are dropped), and do not flush. A bar drawn over earlier text leaves the rest of that text in place.
+<!-- /test -->
 
 Positions are columns and rows of the buffer, counted from 0 at the top left, in that order. A component draws on a black background unless a parameter sets another; the defaults of each member are in its entry. The bars, borders and charts use characters such as U+2588 and U+2500, so the font of the console has to contain them.
 
@@ -78,12 +85,16 @@ No component reads a key or a mouse event. A program that reacts to them uses [*
 
 ## Defects in version 1.0.0.1
 
+<!-- test: SparklineTests.Render_Braille_TallChart_HoldsTheUpperHalfOfTheRangeInTheUpperRow, SparklineTests.Render_Braille_ValueEqualToTheMinimum_SetsADot, SparklineTests.Render_Braille_LowestPositionOfACell_SetsTheBottomLeftDot, DataGridTests.Render_WithoutRowColors_DrawsTheRows, DataGridTests.Render_WithoutColumnAlignments_DrawsTheRows, DataGridTests.Render_WithoutColumnWidths_DrawsTheRows, DataGridTests.Render_WithoutRows_DrawsNothing, DataGridTests.SetRowColors_FirstDataRowTakesTheFirstColour, DataGridTests.ScrollTo_ShowsTheRowInABufferTooSmallForTheTable, compile GridHeaderColorRead, compile GridSelectionColorRead, compile GridSelectedRowRead, compile GridShowHeaderRead, compile GridShowBordersRead, LayoutTests.Resize_ScalesThePanelsToTheNewSize, LayoutTests.AddPanel_NameInUse_AddsNoPanelToTheList, LayoutTests.CreateSidebar_AfterAnArrangementOnAnEmptyLayout_StillUsesTheWholeConsole, LayoutTests.SplitHorizontal_AndLayoutHelperSplitHorizontal_DivideInTheSameDirection, ColorHelperTests.BrightenColor_DarkGray_IsAConsoleColour, ColorHelperTests.DimColor_DarkColour_IsNotBrighter, ColorHelperTests.IntensityColor_UsesItsBaseColour, ColorHelperTests.GradientColor_ChoosesAmongTheThreeColoursAtAQuarterAndThreeQuarters, VBarTests.Render_CustomStyle_DrawsACharacterOfItsOwn, ProgressBarTests.RenderWithBrackets_DrawsThePercentage, VBarTests.RenderWithLabel_LabelIsCentredUnderTheBar, SparklineTests.Render_SeriesStartingAtOne_DrawsTheChart, VBarTests.RenderHistory_ArrayStartingAtOne_DrawsTheChart, ColorHelperTests.CycleColor_ListStartingAtOne_GivesTheFirstElementForIndexZero -->
 - [**cSparkline**](cSparkline#braille) with the Braille character set draws a chart taller than 4 dots with its character rows in reverse order, and draws nothing for a value equal to the minimum when the height is a multiple of 4.
 - [**cDataGrid**](cDataGrid) raises error 9 in **Render** unless all four of its arrays are set; [**SetRowColors**](cDataGrid#setrowcolors) is indexed like the data array, header included; [**ScrollTo**](cDataGrid#scrollto) only selects a row and scrolls nothing; its properties can be set and not read.
 - [**cConsoleLayout.Resize**](cConsoleLayout#resize) computes the scale factors after it stores the new size, so they are always 1 and no panel changes. [**AddPanel**](cConsoleLayout#addpanel) with a name in use raises error 457 after it has added the panel to the list, which then counts it. The first panel added becomes the root panel whatever method adds it.
 - [**cConsoleLayout.SplitHorizontal**](cConsoleLayout#splithorizontal) makes a left and a right panel, and [**cLayoutHelper.SplitHorizontal**](Helpers#splithorizontal) makes a top and a bottom rectangle.
 - [**cColorHelper.BrightenColor**](Helpers#brightencolor) returns 16 for **DarkGray**, which is not a **ConsoleColor**. [**DimColor**](Helpers#dimcolor) of a dark colour returns **DarkGray**. [**IntensityColor**](Helpers#intensitycolor) ignores its base colour, and [**GradientColor**](Helpers#gradientcolor) is a three-step choice, not a gradient.
 - [**cVBar**](cVBar#barcharstyle) has a style, **Custom**, that draws the same character as **Block**, and [**cProgressBar.RenderWithBrackets**](cProgressBar#renderwithbrackets) draws no percentage.
+- [**cVBar.RenderWithLabel**](cVBar#renderwithlabel) writes the label one column to the right of the centre of the bar.
+- [**cSparkline.Render**](cSparkline#the-series), [**cVBar.RenderHistory**](cVBar#renderhistory) and [**cColorHelper.CycleColor**](Helpers#cyclecolor) address their array from index 0, and raise error 9, or give a wrong element, for an array with another lower bound.
+<!-- /test -->
 
 ## Classes and modules
 
@@ -102,3 +113,7 @@ No component reads a key or a mouse event. A program that reacts to them uses [*
 - [cConsole](../TBMANLIB_ConsoleCore/cConsole) class -- the full-screen mode and **Refresh**
 - [cConsoleBuffer](../TBMANLIB_ConsoleCore/cConsoleBuffer) class -- the grid that the components draw into
 - [Importing a package from TWINSERV](../../../../Features/Packages/Importing-TWINSERV) -- adding a published package to a project
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB_ConsoleComponents-tests.twinproj](TBMANLIB_ConsoleComponents-tests.twinproj), a twinBASIC project. It uses TBMANLIB_ConsoleComponents as a [linked package](../../../../Features/Packages/Linked#manual-management): put the `.twinpack` files of this package and of [TBMANLIB_ConsoleCore](../TBMANLIB_ConsoleCore/), which the project references as well, in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/Types.md b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/Types.md
index c86a9ba0..78f33940 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/Types.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/Types.md
@@ -35,6 +35,7 @@ Debug.Print ConsoleRect_Contains(r, 12, 4)
 
 The 16 colours of the console. The type of the colour parameters and properties of **cConsole** and **cConsoleBuffer**.
 
+<!-- test: TypesTests.ConsoleColor_Values, TypesTests.ConsoleColorAttribute_ForegroundInTheLowFourBitsBackgroundInTheNext -->
 | Member | Value | Member | Value |
 |---|---:|---|---:|
 | **Black** | 0 | **DarkGray** | 8 |
@@ -47,19 +48,23 @@ The 16 colours of the console. The type of the colour parameters and properties
 | **Gray** | 7 | **White** | 15 |
 
 The value is the colour as the Windows console writes it in a colour attribute: bit 0 is blue, bit 1 is green, bit 2 is red, and bit 3 makes the colour brighter. **DarkYellow** (6) is green and red together, and **Gray** (7) is all three without the brightness. A cell takes the text colour in the low four bits of its attribute and the background colour in the next four. The numbers are not those of the ANSI escape sequences, where 1 is red and 4 is blue; the functions of [**mConsoleStyle**](mConsoleStyle) write those sequences.
+<!-- /test -->
 
 What a colour looks like depends on the colour table of the console, which the user can change.
 
 ### ConsoleEventType
 {: .no_toc }
 
+<!-- test: TypesTests.ConsoleEventType_Values -->
 Kinds of console event: **EventNone** (0), **EventResize** (1), **EventKeyPress** (2), **EventMouseClick** (3), **EventFocus** (4), **EventCtrlC** (5), **EventCtrlBreak** (6) and **EventClose** (7).
+<!-- /test -->
 
 The enumeration is the type of the **EventType** field of [**ConsoleEventInfo**](#consoleeventinfo). No member of the package returns that structure or reads this enumeration.
 
 ### ConsoleKey
 {: .no_toc }
 
+<!-- test: TypesTests.ConsoleKey_Values, TypesTests.ConsoleKey_FirstFiveMembersAreVirtualKeyCodes, TypesTests.ConsoleKey_NavigationAndFunctionMembersAreVirtualKeyCodes, ReadTests.ReadKey_EnterEscapeSpaceBackspaceTab_EqualTheConsoleKeyMembers, ReadTests.ReadKey_ArrowKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_NavigationKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_FunctionKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_LetterH_IsNotTheKeyCodeOfConsoleKeyKeyUp, EventTests.OnKeyPress_HandlerGetsVirtualKeyCodes -->
 Named key codes: **KeyEnter** (13), **KeyEscape** (27), **KeySpace** (32), **KeyBackspace** (8), **KeyTab** (9), **KeyUp** (72), **KeyDown** (80), **KeyLeft** (75), **KeyRight** (77), **KeyHome** (71), **KeyEnd** (79), **KeyPageUp** (73), **KeyPageDown** (81), **KeyInsert** (82), **KeyDelete** (83), **KeyF1** to **KeyF10** (59 to 68), **KeyF11** (133) and **KeyF12** (134).
 
 The **KeyCode** field of a [**ConsoleKeyInfo**](#consolekeyinfo) holds the Windows virtual-key code of the key. Only the first five members of the enumeration, **KeyEnter**, **KeyEscape**, **KeySpace**, **KeyBackspace** and **KeyTab**, are virtual-key codes. The others are the codes that the C library function `_getch` returns for the same keys, so a comparison such as `keyInfo.KeyCode = ConsoleKey.KeyUp` does not test for the Up Arrow key: the virtual-key code 72 is that of the H key. The Up Arrow key has the code 38, and the H key gives 72.
@@ -73,6 +78,7 @@ For these keys, compare with the constants of Visual Basic:
 | Page Up, Page Down | `vbKeyPageUp`, `vbKeyPageDown` | 33, 34 |
 | Insert, Delete | `vbKeyInsert`, `vbKeyDelete` | 45, 46 |
 | F1 to F12 | `vbKeyF1` to `vbKeyF12` | 112 to 123 |
+<!-- /test -->
 
 ```tb check_build slot=module
 Public Sub OnKey(ByRef keyInfo As ConsoleKeyInfo, ByRef handled As Boolean)
@@ -88,18 +94,23 @@ End Sub
 ### ConsoleMode
 {: .no_toc }
 
+<!-- test: TypesTests.ConsoleMode_And_ConsoleTextStyle_Values -->
 Flags: **ModeNormal** (0), **ModeVirtualTerminal** (1), **ModeFullScreen** (2) and **ModeRaw** (4). No member of the package uses the enumeration; it is not the console mode that [**EnableVirtualTerminal**](cConsole#enablevirtualterminal) sets.
+<!-- /test -->
 
 ### ConsoleTextStyle
 {: .no_toc }
 
+<!-- test: TypesTests.ConsoleMode_And_ConsoleTextStyle_Values, BufferTests.GetChar_StyleIsAlwaysNone -->
 Flags: **StyleNone** (0), **StyleBold** (1), **StyleUnderline** (2) and **StyleReverse** (4). The enumeration is the type of the **Style** field of [**ConsoleCharInfo**](#consolecharinfo), and of a variable inside **cConsole**. Nothing sets or reads it: **GetChar** always returns **StyleNone**. Text styles come from the escape sequences of [**mConsoleStyle**](mConsoleStyle).
+<!-- /test -->
 
 ### ThemeColorType
 {: .no_toc }
 
 The kinds of colour that a theme holds. It is declared in this package, and used by [**GetColor**](../TBMANLIB_ConsoleComponents/cConsoleTheme#getcolor) of the ConsoleComponents package.
 
+<!-- test: TypesTests.ThemeColorType_Values -->
 | Member | Value | Member | Value |
 |---|---:|---|---:|
 | **tcPrimary** | 1 | **tcBorder** | 10 |
@@ -111,6 +122,7 @@ The kinds of colour that a theme holds. It is declared in this package, and used
 | **tcMuted** | 7 | | |
 | **tcBackground** | 8 | | |
 | **tcForeground** | 9 | | |
+<!-- /test -->
 
 ## Structures
 
@@ -119,12 +131,14 @@ The kinds of colour that a theme holds. It is declared in this package, and used
 
 One cell of a [**cConsoleBuffer**](cConsoleBuffer), as [**GetChar**](cConsoleBuffer#getchar) returns it.
 
+<!-- test: BufferTests.GetChar_OutsideTheGridReturnsTheEmptyStructure, BufferTests.GetChar_StyleIsAlwaysNone, BufferTests.SetChar_StoresTheFirstCharacterAndTheColours -->
 | Field | Type | Meaning |
 |---|---|---|
 | **Char** | **String** | The character, one UTF-16 code unit; an empty string for a position outside the buffer. |
 | **ForeColor** | [**ConsoleColor**](#consolecolor) | The text colour. |
 | **BackColor** | [**ConsoleColor**](#consolecolor) | The background colour. |
 | **Style** | [**ConsoleTextStyle**](#consoletextstyle) | Always 0. |
+<!-- /test -->
 
 ### ConsoleEventInfo
 {: .no_toc }
@@ -136,6 +150,7 @@ A structure for an event: **EventType** ([**ConsoleEventType**](#consoleeventtyp
 
 A key press, as [**ReadKey**](cConsole#readkey), [**PeekEvent**](cConsole#peekevent) and the handler of [**OnKeyPress**](cConsole#onkeypress) deliver it.
 
+<!-- test: ReadTests.ReadKey_ReturnsTheVirtualKeyCodeAndTheCharacter, ReadTests.ReadKey_ReportsTheLeftModifierKeys, ReadTests.ReadKey_ReportsTheRightModifierKeys, ReadTests.ReadKey_KeyWithoutACharacter_GivesTheCharacterWithCodeZero, TypesTests.ConsoleKeyInfo_EmptyStructure_HasNoKeyAndNoCharacter -->
 | Field | Type | Meaning |
 |---|---|---|
 | **KeyCode** | **Long** | The Windows virtual-key code of the key. See [**ConsoleKey**](#consolekey). |
@@ -143,17 +158,20 @@ A key press, as [**ReadKey**](cConsole#readkey), [**PeekEvent**](cConsole#peekev
 | **IsAltPressed** | **Boolean** | Alt, left or right, was down. |
 | **IsCtrlPressed** | **Boolean** | Ctrl, left or right, was down. |
 | **IsShiftPressed** | **Boolean** | Shift was down. |
+<!-- /test -->
 
 ### ConsoleMouseInfo
 {: .no_toc }
 
 A mouse event, as the handler of [**OnMouseClick**](cConsole#onmouseclick) receives it.
 
+<!-- test: EventTests.OnMouseClick_HandlerIsCalledForEveryMouseEvent -->
 | Field | Type | Meaning |
 |---|---|---|
 | **Col**, **Row** | **Long** | The character cell under the pointer, counted from the top left of the screen buffer. |
 | **Button** | **Long** | The `dwButtonState` value of the Windows event: a bit mask of the buttons that are down, 1 for the left button, 2 for the right button and 4 for the second button from the left, and 0 when none is down. For a turn of the wheel, Windows puts the direction and the distance of the turn in the upper 16 bits. |
 | **IsDoubleClick** | **Boolean** | The event carries the double-click flag. |
+<!-- /test -->
 
 ### ConsolePosition
 {: .no_toc }
@@ -187,7 +205,9 @@ Syntax: **ConsoleRect_Contains** ( *rect* , *x* , *y* ) **As Boolean**
 *x*, *y*
 : *required* **Long** values, the column and the row of the point.
 
+<!-- test: TypesTests.ConsoleRect_Contains_EdgesBelongToTheRectangle -->
 Returns **True** when `x >= rect.Left`, `x <= rect.Right`, `y >= rect.Top` and `y <= rect.Bottom`; the edges belong to the rectangle.
+<!-- /test -->
 
 ### ConsoleRect_Create
 {: .no_toc }
@@ -196,8 +216,10 @@ Makes a rectangle from four numbers.
 
 Syntax: **ConsoleRect_Create** ( *left* , *top* , *right* , *bottom* ) **As ConsoleRect**
 
+<!-- test: TypesTests.ConsoleRect_Create_ReturnsTheFourEdgesAsGiven -->
 *left*, *top*, *right*, *bottom*
 : *required* **Long** values, the edges, inclusive. Nothing is checked: a rectangle with *right* less than *left* is returned as given.
+<!-- /test -->
 
 ### ConsoleRect_Height
 {: .no_toc }
@@ -209,7 +231,9 @@ Syntax: **ConsoleRect_Height** ( *rect* ) **As Long**
 *rect*
 : *required* A [**ConsoleRect**](#consolerect).
 
+<!-- test: TypesTests.ConsoleRect_Width_And_Height_CountBothEdges -->
 Returns `rect.Bottom - rect.Top + 1`.
+<!-- /test -->
 
 ### ConsoleRect_Width
 {: .no_toc }
@@ -221,7 +245,9 @@ Syntax: **ConsoleRect_Width** ( *rect* ) **As Long**
 *rect*
 : *required* A [**ConsoleRect**](#consolerect).
 
+<!-- test: TypesTests.ConsoleRect_Width_And_Height_CountBothEdges -->
 Returns `rect.Right - rect.Left + 1`.
+<!-- /test -->
 
 ## Handler types
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/cConsole.md b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/cConsole.md
index 40828f3d..16d3d53c 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/cConsole.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/cConsole.md
@@ -31,6 +31,7 @@ In the syntax lines of this page, *object* is a **cConsole**. The page uses thes
 
 ## Creating a cConsole
 
+<!-- test: StateTests.New_TracksGrayOnBlack_WhateverColoursTheConsoleHas, StateTests.Restore_PutsBackTheInputAndOutputModes, StateTests.Restore_PutsBackTheColourAttributes, StateTests.Restore_PutsBackTheCodePages, StateTests.Predeclared_TheClassNameIsAnObject, StateTests.SecondObject_RecordsTheChangedModesAsTheOriginalOnes, StateTests.Terminate_RestoresTheConsole -->
 A **cConsole** is created with `New`. [**New**](#new) reads the standard handles and records the state that [**Restore**](#restore) puts back: the input and output modes, the colour attributes and the two code pages.
 
 The class is predeclared, so the name `cConsole` can also be used as an object, as in `cConsole.WriteLine "Hello"`, without `New`.
@@ -38,6 +39,7 @@ The class is predeclared, so the name `cConsole` can also be used as an object,
 A program should create one **cConsole**. Each object records the console state at the moment it is created, and puts that state back when it is restored. A second object created after the first one has changed the modes records the changed modes as the original ones.
 
 The object restores the console when it is destroyed: its terminate event calls [**Restore**](#restore). A program that must put the console back at once, for example before it starts another program, calls **Restore** itself.
+<!-- /test -->
 
 ## Which project it needs
 
@@ -51,6 +53,7 @@ The members that read or draw on the console depend on Windows handing the progr
 
 The class checks the result of two functions only. [**EnableVirtualTerminal**](#enablevirtualterminal) returns **False** when `SetConsoleMode` fails for the output handle, and [**New**](#new), [**Clear**](#clear), [**ClearLine**](#clearline), [**GetSize**](#getsize), [**GetBufferSize**](#getbuffersize) and [**GetCursorPosition**](#getcursorposition) look at the result of `GetConsoleScreenBufferInfo`. Every other call is unchecked: a failed call raises no error, changes nothing, and leaves the value it should have filled in at its starting value, which is 0, **False** or an empty string. The table lists what a program without a console sees.
 
+<!-- test: NoConsoleTests.New_WithoutHandles_Succeeds_AndSizeIs80By25, NoConsoleTests.GetBufferSize_WithoutHandles_Is80By300, NoConsoleTests.GetCursorPosition_CursorProperties_WithoutHandles_AreZeroOrFalse, NoConsoleTests.WriteMembers_WithoutHandles_WriteNothingAndRaiseNoError, NoConsoleTests.EnableVirtualTerminal_WithoutHandles_ReturnsFalse, NoConsoleTests.ReadLine_WithoutHandles_ReturnsAnEmptyStringAtOnce, NoConsoleTests.KeyAvailable_PeekEvent_WithoutHandles_AreFalseAndEmpty, NoConsoleTests.ReadKeyTimeout_WithoutHandles_ReturnsTheEmptyStructureWhenTheTimeIsOver, NoConsoleTests.EnterFullScreenMode_WithoutHandles_MakesAnInMemoryBufferOf80By25, NoConsoleTests.IsKeyPressed_WorksWithoutAConsole, StateTests.EnableVirtualTerminal_Refused_ReturnsFalseAndChangesNothing -->
 | Member | Without a console |
 |---|---|
 | [**New**](#new) | Succeeds. The size is taken as 80 columns by 25 rows, and the original colours as Gray on Black. |
@@ -71,10 +74,13 @@ The class checks the result of two functions only. [**EnableVirtualTerminal**](#
 | [**IsKeyPressed**](#iskeypressed) | Works, since it does not use the console. |
 
 A buffer made by [**EnterFullScreenMode**](#enterfullscreenmode) is an ordinary in-memory grid, so a program without a console can still draw into it and read the cells back with [**GetChar**](cConsoleBuffer#getchar).
+<!-- /test -->
 
 ### Redirected input and output
 
+<!-- test: NoConsoleTests.RedirectedOutput_WriteMembersWriteNothingToTheFile, NoConsoleTests.RedirectedOutput_SizeIs80By25_AndVirtualTerminalIsRefused -->
 A console application can also have its output sent to a file or a pipe (`mytool > out.txt`) or its input read from one. The members write and read with `WriteConsoleW`, `ReadConsoleW` and `ReadConsoleInputW`, which work only on a console handle. With the output redirected, the write members therefore write nothing: after [**WriteLine**](#writeline) and [**WriteErrorLine**](#writeerrorline) the files are empty. They raise no error, since they do not check the result; the template's `Console.WriteLine` raises error 5 in the same case (see [Writing a command-line tool](../../../../Features/Project-Configuration/Project-Types#writing-a-command-line-tool-output-exit-code-and-arguments)). The members that need a screen buffer fail as they do without a console: [**GetSize**](#getsize) gives 80 by 25 and [**EnableVirtualTerminal**](#enablevirtualterminal) returns **False**.
+<!-- /test -->
 
 A program that must work with redirected output writes with `WriteFile` in that case, as the page cited above shows, and uses **cConsole** only when the handles are console handles.
 
@@ -82,14 +88,17 @@ With the input read from the null device or from a file, [**ReadLine**](#readlin
 
 ## Known problems in version 1.0.0.1
 
+<!-- test: ReadTests.ReadKey_WithoutConsoleInput_Returns, ReadTests.ReadPassword_WithoutConsoleInput_Returns, TypesTests.ConsoleKey_NavigationAndFunctionMembersAreVirtualKeyCodes, ReadTests.ReadKey_ArrowKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_NavigationKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_FunctionKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_LetterH_IsNotTheKeyCodeOfConsoleKeyKeyUp -->
 > [!WARNING] 1.0.0.1
 > [**ReadKey**](#readkey) and [**ReadPassword**](#readpassword) never return when the program has no console input: `ReadKey` loops until `ReadConsoleInputW` delivers a key-down event, and the call fails at once when the program has no console or its input is not a console. A comparison of a key with a member of the [**ConsoleKey**](Types#consolekey) enumeration is true for the wrong key and raises no error: [**KeyCode**](Types#consolekeyinfo) holds Windows virtual-key codes, but the arrow, navigation and function keys of **ConsoleKey** have other values, so `keyInfo.KeyCode = ConsoleKey.KeyUp` is false for the Up Arrow key (38) and true for the H key (72).
 
+<!-- test: ReadTests.KeyAvailable_KeyReleaseOnly_IsFalse, ReadTests.KeyAvailable_AfterReadKey_IsFalse, ReadTests.KeyAvailable_MouseEventOnly_IsFalse, ReadTests.KeyAvailable_FocusEventOnly_IsFalse, ReadTests.ReadKeyTimeout_OnlyAKeyReleaseInTheQueue_ReturnsWhenTheTimeIsOver, OutputTests.WriteColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteLineColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteAtColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteColored_LeavesTheConsoleInTheColoursItHad, OutputTests.WriteLineColored_LeavesTheConsoleInTheColoursItHad, OutputTests.WriteAtColored_LeavesTheConsoleInTheColoursItHad, FullScreenTests.Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsInTheWindow, FlushTests.WriteAt_NegativeColumn_NextFlushStillDrawsTheChangedCells, compile KeyHandlerZero, compile KeyHandlerNothing, compile MouseHandlerZero, compile MouseHandlerNothing, compile ResizeHandlerZero, compile ResizeHandlerNothing, compile CtrlHandlerZero, compile CtrlHandlerNothing, EventTests.OnCtrlEvent_Restore_RemovesTheRegistration, EventTests.OnCtrlEvent_AnotherProcedure_ReplacesTheFirst, EventTests.OnResize_IsGivenTheSizeOfTheWindow -->
 - **KeyAvailable and the key-up events.** [**KeyAvailable**](#keyavailable) is true while the input queue holds any event, including the event for a key that was released, so a loop that tests it and then calls [**ReadKey**](#readkey) can block in **ReadKey** until the next key press.
 - **The colours of the Write members.** [**WriteColored**](#writecolored), [**WriteLineColored**](#writelinecolored) and [**WriteAtColored**](#writeatcolored) use a black background unless one is given, and put back the colours that the object tracks, which are Gray on Black until a property sets others, and not the colours that the console had.
 - **Full-screen drawing.** [**Refresh**](#refresh) writes the buffer at the top left of the screen buffer, not of the window; see [**EnterFullScreenMode**](#enterfullscreenmode). A negative column or row in the buffer's dirty rectangle makes the next **Refresh** draw nothing; see [The dirty rectangle](cConsoleBuffer#the-dirty-rectangle).
-- **The handlers.** A handler set with [**OnCtrlEvent**](#onctrlevent) cannot be removed again, and the compiler refuses `0` and **Nothing** for the other three handler properties, so none can be cleared.
+- **The handlers.** The compiler refuses `0` and **Nothing** (TB5001) for all four handler properties, so none can be cleared. The procedure set with [**OnCtrlEvent**](#onctrlevent) stays registered with Windows: [**Restore**](#restore) does not remove it, and setting another procedure adds a second registration.
 - **The resize sizes.** [**OnResize**](#onresize) is given the size of the screen buffer, and not of the window that [**Width**](#width) and [**Height**](#height) report.
+<!-- /test -->
 
 ## Constructor
 
@@ -103,7 +112,9 @@ Syntax: **New cConsole** [ ( *inputBufferSize* ) ]
 *inputBufferSize*
 : *optional* A **Long**, the number of characters that [**ReadLine**](#readline) can read in one call. The default is 4096.
 
+<!-- test: StateTests.New_NegativeInputBufferSize_Raises5, StateTests.New_TracksGrayOnBlack_WhateverColoursTheConsoleHas, NoConsoleTests.New_WithoutHandles_Succeeds_AndSizeIs80By25 -->
 The constructor asks Windows for the three standard handles and for the console window, saves the input and output modes, the colour attributes, the width of the screen buffer and the height of the window, and the two code pages, and sets the tracked colours to Gray on Black. A negative *inputBufferSize* raises error 5, *Invalid procedure call or argument*, since the constructor makes the read buffer with `String$`.
+<!-- /test -->
 
 Calls `GetStdHandle` (three times), `GetConsoleWindow`, `GetConsoleMode` (twice), `GetConsoleScreenBufferInfo`, `GetConsoleCP` and `GetConsoleOutputCP`. Without a console, the size is taken as 80 by 25 and the original colours as Gray on Black.
 
@@ -119,7 +130,9 @@ Syntax: *object*.**BackColor** [ **=** *value* ]
 *value*
 : A [**ConsoleColor**](Types#consolecolor).
 
+<!-- test: StateTests.BackColor_Let_AppliesTheColoursToTheConsole, StateTests.ForeColor_Get_ReturnsTheStoredValue_NotTheConsolesColour, StateTests.New_TracksGrayOnBlack_WhateverColoursTheConsoleHas -->
 Setting the property stores the value and applies the pair of [**ForeColor**](#forecolor) and **BackColor** to the console. Reading it returns the stored value, which is **Black** at the start, and not a colour read from the console.
+<!-- /test -->
 
 Calls `SetConsoleTextAttribute` when it is set. Without a console, nothing is applied.
 
@@ -130,7 +143,9 @@ The screen buffer of the full-screen mode. A [**cConsoleBuffer**](cConsoleBuffer
 
 Syntax: *object*.**Buffer**
 
+<!-- test: FullScreenTests.EnterFullScreenMode_MakesABufferOfTheWindowSize_HidesTheCursor_AndTurnsOnWindowInput, FullScreenTests.ExitFullScreenMode_ReleasesTheBuffer_ShowsTheCursor_AndPutsBackTheInputMode -->
 Returns the buffer that [**EnterFullScreenMode**](#enterfullscreenmode) made, and **Nothing** when the object is not in full-screen mode. A component object of the [ConsoleComponents](../TBMANLIB_ConsoleComponents/) package keeps the buffer that this property returned when it was created, so it must be created after **EnterFullScreenMode**.
+<!-- /test -->
 
 ### CursorSize
 {: .no_toc }
@@ -142,7 +157,9 @@ Syntax: *object*.**CursorSize** [ **=** *value* ]
 *value*
 : A **Long**. A value below 1 is stored as 1, and a value above 100 as 100.
 
+<!-- test: StateTests.CursorSize_IsKeptBetween1And100, NoConsoleTests.GetCursorPosition_CursorProperties_WithoutHandles_AreZeroOrFalse -->
 Calls `GetConsoleCursorInfo`, and `SetConsoleCursorInfo` when it is set. Without a console, reading it gives 0.
+<!-- /test -->
 
 ### CursorVisible
 {: .no_toc }
@@ -154,7 +171,9 @@ Syntax: *object*.**CursorVisible** [ **=** *value* ]
 *value*
 : A **Boolean**.
 
+<!-- test: StateTests.CursorVisible_ReadsTheConsoleEachTime, FullScreenTests.ExitFullScreenMode_ReleasesTheBuffer_ShowsTheCursor_AndPutsBackTheInputMode, FullScreenTests.ExitFullScreenMode_WhenOff_DoesNothing -->
 Reading the property asks the console each time. [**EnterFullScreenMode**](#enterfullscreenmode) hides the cursor and [**ExitFullScreenMode**](#exitfullscreenmode) shows it, whatever it was before.
+<!-- /test -->
 
 Calls `GetConsoleCursorInfo`, and `SetConsoleCursorInfo` when it is set. Without a console, reading it gives **False**.
 
@@ -168,7 +187,9 @@ Syntax: *object*.**ForeColor** [ **=** *value* ]
 *value*
 : A [**ConsoleColor**](Types#consolecolor).
 
+<!-- test: StateTests.ForeColor_Let_AppliesTheColoursToTheConsole -->
 Works as [**BackColor**](#backcolor). The stored value is **Gray** at the start. Calls `SetConsoleTextAttribute` when it is set.
+<!-- /test -->
 
 ### FPS
 {: .no_toc }
@@ -177,7 +198,9 @@ An estimate of the frames drawn per second. **Double**, read-only.
 
 Syntax: *object*.**FPS**
 
+<!-- test: FullScreenTests.FPS_And_LastRenderTime_AreZeroBeforeTheFirstDraw, FullScreenTests.FPS_AfterDrawing_IsPositiveAndFallsWhileNothingIsDrawn -->
 The value is the number of calls of [**Refresh**](#refresh) and [**RefreshAll**](#refreshall) since the start of the current count, multiplied by 1000 and divided by the milliseconds since then. It is 0 before the first call. **Refresh** starts a new count when it finds that a second has passed since the start of the count, and **RefreshAll** only adds to the count, so a program that calls only **RefreshAll** gets the average since its first call. When the program stops drawing, the value falls, since the time keeps running. The clock is `GetTickCount`, whose steps are about 15 milliseconds.
+<!-- /test -->
 
 ### FullScreenMode
 {: .no_toc }
@@ -186,7 +209,9 @@ Whether the object is in full-screen mode. **Boolean**, read-only.
 
 Syntax: *object*.**FullScreenMode**
 
+<!-- test: FullScreenTests.EnterFullScreenMode_MakesABufferOfTheWindowSize_HidesTheCursor_AndTurnsOnWindowInput, FullScreenTests.ExitFullScreenMode_ReleasesTheBuffer_ShowsTheCursor_AndPutsBackTheInputMode -->
 **True** between [**EnterFullScreenMode**](#enterfullscreenmode) and [**ExitFullScreenMode**](#exitfullscreenmode).
+<!-- /test -->
 
 ### Height
 {: .no_toc }
@@ -195,7 +220,9 @@ The number of rows of the console window. **Long**, read-only.
 
 Syntax: *object*.**Height**
 
+<!-- test: StateTests.GetSize_Width_Height_AreTheWindowNotTheScreenBuffer, NoConsoleTests.New_WithoutHandles_Succeeds_AndSizeIs80By25 -->
 The height of the window, and not of the screen buffer; [**GetBufferSize**](#getbuffersize) returns that. Each read calls [**GetSize**](#getsize). Without a console it is 25.
+<!-- /test -->
 
 ### InputCodePage
 {: .no_toc }
@@ -207,7 +234,9 @@ Syntax: *object*.**InputCodePage** [ **=** *value* ]
 *value*
 : A **Long**, a code page number such as 65001 for UTF-8.
 
+<!-- test: StateTests.CodePages_Get_ReturnTheCodePagesOfTheConsole, StateTests.CodePages_Let_SetTheCodePagesOfTheConsole, StateTests.CodePages_Let_ValueWindowsRefusesIsIgnoredWithoutError, StateTests.Restore_PutsBackTheCodePages, StateTests.DisableUTF8_PutsBackTheCodePagesTheConsoleHad -->
 Calls `GetConsoleCP`, and `SetConsoleCP` when it is set. A value that Windows refuses is ignored without an error. [**Restore**](#restore) and [**DisableUTF8**](#disableutf8) put back the code page that the console had when the object was created. Without a console, reading it gives 0.
+<!-- /test -->
 
 ### LastRenderTime
 {: .no_toc }
@@ -216,7 +245,9 @@ The time that the last [**Refresh**](#refresh) or [**RefreshAll**](#refreshall)
 
 Syntax: *object*.**LastRenderTime**
 
+<!-- test: FullScreenTests.LastRenderTime_IsTheTimeOfTheLastDrawInMilliseconds, FullScreenTests.FPS_And_LastRenderTime_AreZeroBeforeTheFirstDraw -->
 The value is the difference of two `GetTickCount` readings, so it is a multiple of the clock step, about 15 milliseconds, and is often 0 for a small draw. It is 0 until the first draw.
+<!-- /test -->
 
 ### OnCtrlEvent
 {: .no_toc }
@@ -244,7 +275,9 @@ End Sub
 
 Windows calls the procedure on a thread of its own, not on the thread that runs the program, so it should do little: set a flag that the main loop reads.
 
-The property registers the address with `SetConsoleCtrlHandler`. The registration is not removed again: assigning another procedure adds a second registration and leaves the first, [**Restore**](#restore) does not remove it, and the code never calls `SetConsoleCtrlHandler` with the remove option. [**ProcessEvents**](#processevents) does not call the procedure; only Windows does.
+<!-- test: EventTests.OnCtrlEvent_RegistersTheProcedureWithWindows, EventTests.OnCtrlEvent_Restore_RemovesTheRegistration, EventTests.OnCtrlEvent_AnotherProcedure_ReplacesTheFirst, compile CtrlHandlerZero, compile CtrlHandlerNothing -->
+The property registers the address with `SetConsoleCtrlHandler`. The registration is not removed again: assigning another procedure adds a second registration and leaves the first, [**Restore**](#restore) does not remove it, and the code never calls `SetConsoleCtrlHandler` with the remove option. The compiler refuses `0` and **Nothing** for the property (TB5001), so the handler cannot be cleared either. [**ProcessEvents**](#processevents) does not call the procedure; only Windows does.
+<!-- /test -->
 
 ### OnKeyPress
 {: .no_toc }
@@ -256,7 +289,9 @@ Syntax: *object*.**OnKeyPress** **=** *handler*
 *handler*
 : A [**ConsoleKeyHandler**](Types#consolekeyhandler), the address of a procedure of a module with the parameters `ByRef keyInfo As ConsoleKeyInfo, ByRef handled As Boolean`.
 
+<!-- test: EventTests.OnKeyPress_ProcessEvents_CallsTheHandlerForEachKeyDownAndNotForKeyUp, EventTests.ProcessEvents_NoKeyHandler_LeavesKeyEventsInTheQueue, compile KeyHandlerZero, compile KeyHandlerNothing -->
 **ProcessEvents** calls the procedure once for each key-down event, with the key in *keyInfo*, including the keys that are only modifiers, such as Shift. The key-up events are not passed. The value that the procedure stores in *handled* is not read. While no handler is set, **ProcessEvents** leaves the key events in the queue, so that [**ReadKey**](#readkey) and [**ReadLine**](#readline) can read them. Once a handler is set it cannot be removed: the compiler refuses `0` and **Nothing** for the property.
+<!-- /test -->
 
 ```tb check_build slot=module
 Public Sub OnKey(ByRef keyInfo As ConsoleKeyInfo, ByRef handled As Boolean)
@@ -280,9 +315,11 @@ Syntax: *object*.**OnMouseClick** **=** *handler*
 *handler*
 : A [**ConsoleMouseHandler**](Types#consolemousehandler), the address of a procedure of a module with the parameters `ByRef mouseInfo As ConsoleMouseInfo, ByRef handled As Boolean`.
 
+<!-- test: EventTests.OnMouseClick_Set_TurnsOnMouseInputAndExtendedFlagsAndTurnsOffQuickEdit, FullScreenTests.ExitFullScreenMode_ReleasesTheBuffer_ShowsTheCursor_AndPutsBackTheInputMode, StateTests.DisableVirtualTerminal_AlsoUndoesOtherChangesOfTheInputMode, EventTests.OnMouseClick_HandlerIsCalledForEveryMouseEvent, EventTests.ProcessEvents_MouseEventWithNoHandler_IsTakenAndDropped, compile MouseHandlerZero, compile MouseHandlerNothing -->
 Setting a handler also changes the input mode of the console: it turns on mouse input, turns on the extended flags, and turns off quick-edit mode, so that the console passes mouse events to the program instead of selecting text with them. [**DisableVirtualTerminal**](#disablevirtualterminal) and [**Restore**](#restore) put the original mode back, and so does [**ExitFullScreenMode**](#exitfullscreenmode) while the full-screen mode is on.
 
 Despite the name, the procedure is called for every mouse event: a move, a button press, a button release and a turn of the wheel, as well as a double click. *mouseInfo* holds the position in **Col** and **Row**, the buttons that are down in **Button** (a bit mask of the Windows `dwButtonState` field: 1 for the left button, 2 for the right button, and 0 when none is down), and **IsDoubleClick**, which is true when the event carries the double-click flag. The program has to compare **Button** with its previous value to find a click.
+<!-- /test -->
 
 ### OnResize
 {: .no_toc }
@@ -294,10 +331,14 @@ Syntax: *object*.**OnResize** **=** *handler*
 *handler*
 : A [**ConsoleResizeHandler**](Types#consoleresizehandler), the address of a procedure of a module with the parameters `ByVal newWidth As Long, ByVal newHeight As Long`.
 
-Windows reports a change of the size only while the input mode has the window-input flag, which [**EnterFullScreenMode**](#enterfullscreenmode) turns on and nothing else in the class does. Outside full-screen mode the handler is not called. When an event arrives and the size differs from the one the object last saw, the object resizes its buffer to it, which discards the contents of the buffer, and then calls the handler; the program draws the buffer again.
+<!-- test: EventTests.OnResize_SizeEventWithTheSizeLastSeen_DoesNotCallTheHandler, EventTests.OnResize_NewSize_CallsTheHandlerAndGivesTheBufferANewSize, EventTests.OnResize_OutsideFullScreenMode_ASizeEventInTheQueueCallsTheHandler, EventTests.OnResize_InFullScreenMode_WindowsReportsAChangeOfSize, EventTests.OnResize_IsGivenTheSizeOfTheWindow, compile ResizeHandlerZero, compile ResizeHandlerNothing -->
+Windows puts a size event in the queue when the size of the screen buffer changes, for example after [**SetBufferSize**](#setbuffersize). [**EnterFullScreenMode**](#enterfullscreenmode) turns on the window-input flag of the input mode, and nothing else in the class does. [**ProcessEvents**](#processevents) takes every size event from the queue, in full-screen mode or not. When the size differs from the one the object last saw, the object resizes its buffer to it, if it is in full-screen mode, which discards the contents of the buffer, and then calls the handler; the program draws the buffer again.
 
 The two numbers are copied from the event record, which holds the new size of the screen buffer. They are not read from the window, whose size [**Width**](#width) and [**Height**](#height) report, and the two can differ, since the screen buffer can be taller than the window.
 
+The compiler refuses `0` and **Nothing** for the property, so the handler cannot be cleared.
+<!-- /test -->
+
 ### OutputCodePage
 {: .no_toc }
 
@@ -308,7 +349,9 @@ Syntax: *object*.**OutputCodePage** [ **=** *value* ]
 *value*
 : A **Long**, a code page number such as 65001 for UTF-8.
 
+<!-- test: StateTests.CodePages_Get_ReturnTheCodePagesOfTheConsole, StateTests.CodePages_Let_SetTheCodePagesOfTheConsole -->
 Works as [**InputCodePage**](#inputcodepage), with `GetConsoleOutputCP` and `SetConsoleOutputCP`.
+<!-- /test -->
 
 ### Title
 {: .no_toc }
@@ -320,7 +363,13 @@ Syntax: *object*.**Title** [ **=** *value* ]
 *value*
 : A **String**.
 
-Reading it returns up to 259 characters. Calls `GetConsoleTitleW`, and `SetConsoleTitleW` when it is set. Without a console, reading it gives an empty string and setting it does nothing.
+<!-- test: StateTests.Title_RoundTrip -->
+Reading it returns the title; a title longer than 259 characters is cut. Calls `GetConsoleTitleW`, and `SetConsoleTitleW` when it is set. Without a console, reading it gives an empty string and setting it does nothing.
+<!-- /test -->
+
+<!-- test: StateTests.Title_LongTitle_IsReturnedWithAtMost259Characters -->
+> [!WARNING] 1.0.0.1
+> A title of 260 characters or more is returned as its first 259 characters followed by a character with code 0, so the string has 260 characters and ends in a null character.
 
 ### VirtualTerminalEnabled
 {: .no_toc }
@@ -329,7 +378,9 @@ Whether [**EnableVirtualTerminal**](#enablevirtualterminal) turned the virtual-t
 
 Syntax: *object*.**VirtualTerminalEnabled**
 
+<!-- test: StateTests.VirtualTerminalEnabled_IsFalseWhenTheConsoleHadTheModeOnAlready, StateTests.EnableVirtualTerminal_ReturnsTrueAndAddsTheModeFlags -->
 The value comes from the object and not from the console. It is **False** when the console had the mode on already, until the program calls **EnableVirtualTerminal**.
+<!-- /test -->
 
 ### Width
 {: .no_toc }
@@ -338,7 +389,9 @@ The number of columns of the console window. **Long**, read-only.
 
 Syntax: *object*.**Width**
 
+<!-- test: StateTests.GetSize_Width_Height_AreTheWindowNotTheScreenBuffer, NoConsoleTests.New_WithoutHandles_Succeeds_AndSizeIs80By25 -->
 The width of the window, and not of the screen buffer. Each read calls [**GetSize**](#getsize). Without a console it is 80.
+<!-- /test -->
 
 ### WindowHandle
 {: .no_toc }
@@ -347,7 +400,9 @@ The window handle of the console, as `GetConsoleWindow` returned it when the obj
 
 Syntax: *object*.**WindowHandle**
 
+<!-- test: StateTests.WindowHandle_IsTheConsoleWindowAtCreation -->
 It is 0 when the program had no console window at that time.
+<!-- /test -->
 
 ## Methods
 
@@ -373,7 +428,9 @@ Syntax: *object*.**CenterRect** ( *contentWidth* , *contentHeight* ) **As Consol
 *contentHeight*
 : *required* A **Long**, the height in rows.
 
+<!-- test: OutputTests.CenterRect_ReturnsARectangleOfTheSizeGivenInTheMiddleOfTheWindow, OutputTests.CenterRect_LargerThanTheWindow_HasNegativeLeftAndTop -->
 Returns a [**ConsoleRect**](Types#consolerect) whose **Left** is [**CenterX**](#centerx) of the width and **Top** is [**CenterY**](#centery) of the height, with **Right** and **Bottom** set so that it has the given size. A rectangle larger than the window has negative **Left** and **Top**. Uses the size of the window, 80 by 25 without a console.
+<!-- /test -->
 
 ### CenterX
 {: .no_toc }
@@ -385,7 +442,9 @@ Syntax: *object*.**CenterX** ( *textWidth* )
 *textWidth*
 : *required* A **Long**, the width in columns.
 
+<!-- test: OutputTests.CenterX_And_CenterY_CentreInTheWindow, OutputTests.CenterX_WiderThanTheWindow_IsNegative -->
 Returns `(Width - textWidth) \ 2`, a **Long**; it is negative when the text is wider than the window.
+<!-- /test -->
 
 ### CenterY
 {: .no_toc }
@@ -397,7 +456,9 @@ Syntax: *object*.**CenterY** ( *textHeight* )
 *textHeight*
 : *required* A **Long**, the height in rows.
 
+<!-- test: OutputTests.CenterX_And_CenterY_CentreInTheWindow -->
 Returns `(Height - textHeight) \ 2`, a **Long**.
+<!-- /test -->
 
 ### Clear
 {: .no_toc }
@@ -406,7 +467,9 @@ Fills the screen buffer with spaces in the tracked colours and moves the cursor
 
 Syntax: *object*.**Clear**
 
+<!-- test: StateTests.Clear_FillsTheWholeScreenBufferInTheTrackedColoursAndHomesTheCursor, StateTests.Clear_InFullScreenMode_DoesNotClearTheBuffer -->
 The method fills the whole screen buffer, not only the part that the window shows, with a space in the colours of [**ForeColor**](#forecolor) and [**BackColor**](#backcolor), and then moves the cursor to column 0, row 0 of the screen buffer. When the window shows another part of the buffer, the cursor moves out of sight. In full-screen mode it does not clear the [**Buffer**](#buffer); [**Clear**](cConsoleBuffer#clear) of the buffer does that.
+<!-- /test -->
 
 Calls `GetConsoleScreenBufferInfo`, `FillConsoleOutputCharacterW`, `FillConsoleOutputAttribute` and `SetConsoleCursorPosition`. Without a console, the first call fails and the method returns at once.
 
@@ -417,7 +480,9 @@ Fills the current line, from the cursor to the end of the line, with spaces in t
 
 Syntax: *object*.**ClearLine**
 
+<!-- test: StateTests.ClearLine_FillsFromTheCursorToTheEndOfTheLine_AndDoesNotMoveTheCursor -->
 The cursor does not move. Calls `GetConsoleScreenBufferInfo`, `FillConsoleOutputCharacterW` and `FillConsoleOutputAttribute`. Without a console, the method returns at once.
+<!-- /test -->
 
 ### DisableUTF8
 {: .no_toc }
@@ -426,7 +491,9 @@ Puts back the code pages that the console had when the object was created.
 
 Syntax: *object*.**DisableUTF8**
 
+<!-- test: StateTests.DisableUTF8_PutsBackTheCodePagesTheConsoleHad, StateTests.DisableUTF8_SetsTheSavedCodePagesWhateverTheyAreNow -->
 Despite its name, the method does not switch to a particular code page: it sets the input and the output code page to the saved values, whatever they are now. Calls `SetConsoleCP` and `SetConsoleOutputCP`.
+<!-- /test -->
 
 ### DisableVirtualTerminal
 {: .no_toc }
@@ -435,7 +502,9 @@ Puts back the input and output modes that the console had when the object was cr
 
 Syntax: *object*.**DisableVirtualTerminal**
 
+<!-- test: StateTests.DisableVirtualTerminal_PutsBackBothModesAndClearsTheFlag, StateTests.DisableVirtualTerminal_AlsoUndoesOtherChangesOfTheInputMode -->
 The method restores both modes as they were, so it also undoes other changes of the input mode, such as the window input that [**EnterFullScreenMode**](#enterfullscreenmode) turns on and the mouse input that [**OnMouseClick**](#onmouseclick) turns on. It sets [**VirtualTerminalEnabled**](#virtualterminalenabled) to **False**. Calls `SetConsoleMode` twice.
+<!-- /test -->
 
 ### DrawBox
 {: .no_toc }
@@ -453,7 +522,9 @@ Syntax: *object*.**DrawBox** ( *left* , *top* , *right* , *bottom* [ , *doubleLi
 *doubleLine*
 : *optional* A **Boolean**. **True** draws with the double-line characters (U+2554, U+2557, U+255A, U+255D, U+2550, U+2551), and **False**, the default, with the single-line ones (U+250C, U+2510, U+2514, U+2518, U+2500, U+2502).
 
+<!-- test: OutputTests.DrawBox_SingleLine_DrawsTheOutlineOnTheConsole, OutputTests.DrawBox_DoubleLine_UsesTheDoubleLineCharacters, OutputTests.DrawBox_RightNotGreaterThanLeft_Raises5AfterWritingTheCorners -->
 The box is drawn with [**WriteAt**](#writeat), in the current colour attributes of the console; the inside is left as it is. *right* has to be greater than *left*: for *right* equal to or less than *left* the method raises error 5, *Invalid procedure call or argument*, since the length of the horizontal line is negative, and it raises it after it has written the four corners.
+<!-- /test -->
 
 The method draws on the console, not on the full-screen [**Buffer**](#buffer). To draw a box on the buffer use [**DrawBox**](cConsoleBuffer#drawbox) of the buffer, which takes the colours as parameters.
 
@@ -481,7 +552,9 @@ Syntax: *object*.**DrawProgressBar** ( *col* , *row* , *width* , *percent* [ , *
 *freeColor*
 : *optional* A [**ConsoleColor**](Types#consolecolor), the colour of the empty part. The default is **DarkGray**.
 
+<!-- test: OutputTests.DrawProgressBar_DrawsTheBarAndThePercentage, OutputTests.DrawProgressBar_UsesTheColoursGiven, OutputTests.DrawProgressBar_PercentIsKeptBetween0And100, OutputTests.DrawProgressBar_NegativeWidth_Raises5 -->
 Writes `[`, then `CLng(percent / 100 * width)` full blocks (U+2588) in *usedColor*, then the rest as light-shade blocks (U+2591) in *freeColor*, and then `] ` and the percentage rounded to a whole number with a percent sign. The brackets and the percentage are in the current colour attributes of the console; the blocks have a black background. The whole line is *width* + 4 cells plus the digits of the percentage. A negative *width* raises error 5. The cursor is left after the text. The conversion rounds half to even: a width of 10 and 25 percent gives 2 blocks.
+<!-- /test -->
 
 Calls `SetConsoleCursorPosition` and `WriteConsoleW`. Without a console, nothing is drawn.
 
@@ -492,7 +565,9 @@ Sets the input and the output code page of the console to UTF-8, code page 65001
 
 Syntax: *object*.**EnableUTF8**
 
+<!-- test: StateTests.EnableUTF8_SetsBothCodePagesToUTF8, StateTests.WriteTo_Euro_IsStoredAsU20ACWhateverTheOutputCodePage -->
 Calls `SetConsoleCP` and `SetConsoleOutputCP`. The write and read members of this class use the wide-character functions of Windows, which do not depend on the code page, so the setting does not change what they put in the screen buffer: a euro sign written with [**WriteTo**](#writeto) is stored as U+20AC with the output code page 437 and with 65001. The setting matters for text that reaches the console in another way, such as the output of a program that this program starts.
+<!-- /test -->
 
 The code pages are put back by [**DisableUTF8**](#disableutf8) and [**Restore**](#restore). Without a console, the calls fail without an error.
 
@@ -503,7 +578,9 @@ Turns on the processing of escape sequences, so that the strings of [mConsoleSty
 
 Syntax: *object*.**EnableVirtualTerminal** **As Boolean**
 
+<!-- test: StateTests.EnableVirtualTerminal_ReturnsTrueAndAddsTheModeFlags, StateTests.EnableVirtualTerminal_Refused_ReturnsFalseAndChangesNothing, StateTests.EnableVirtualTerminal_SequencesOfMConsoleStyleChangeColours -->
 Adds `ENABLE_VIRTUAL_TERMINAL_PROCESSING` to the output mode. When Windows refuses, for example on a system or a console that does not have the mode, or when there is no console, the method returns **False** and changes nothing else. Otherwise it adds `ENABLE_VIRTUAL_TERMINAL_INPUT` to the input mode, ignoring whether that call worked, sets [**VirtualTerminalEnabled**](#virtualterminalenabled) and returns **True**.
+<!-- /test -->
 
 [**ReadKey**](#readkey) is not affected by the input flag, since it turns the input mode off while it waits.
 
@@ -516,11 +593,13 @@ Starts the full-screen mode: it makes an in-memory screen buffer of the size of
 
 Syntax: *object*.**EnterFullScreenMode**
 
-The method does nothing when the mode is already on. It creates a [**cConsoleBuffer**](cConsoleBuffer) with the width and height of the window, which [**Buffer**](#buffer) returns; sets [**CursorVisible**](#cursorvisible) to **False**; and adds `ENABLE_WINDOW_INPUT` to the input mode, so that Windows reports a change of size.
+<!-- test: FullScreenTests.EnterFullScreenMode_MakesABufferOfTheWindowSize_HidesTheCursor_AndTurnsOnWindowInput, FullScreenTests.EnterFullScreenMode_AlreadyOn_DoesNothing, FullScreenTests.EnterFullScreenMode_DoesNotClearTheScreenOrChangeTheWindow, FullScreenTests.ExitFullScreenMode_LeavesTheLastPictureOnTheScreen, FullScreenTests.Refresh_WritesTheBufferAtTheTopLeftOfTheScreenBuffer, FullScreenTests.Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsAtRowZero -->
+The method does nothing when the mode is already on. It creates a [**cConsoleBuffer**](cConsoleBuffer) with the width and height of the window, which [**Buffer**](#buffer) returns; sets [**CursorVisible**](#cursorvisible) to **False**; and adds `ENABLE_WINDOW_INPUT` to the input mode, the flag for the reporting of a change of size.
 
 Despite the name, the window is not enlarged, the console does not switch to an alternate screen buffer, and the text that is on the screen is neither saved nor cleared. The program draws into the buffer with its [methods](cConsoleBuffer), and [**Refresh**](#refresh) copies the changed cells to the console. [**ExitFullScreenMode**](#exitfullscreenmode) ends the mode and leaves the last picture on the screen.
 
 [**Refresh**](#refresh) writes the cells of the buffer to the rows 0 to *Height* - 1 of the screen buffer, from column 0. When the screen buffer is taller than the window and the window shows another part of it, as it does in a classic console window that has scrolled, the picture is drawn out of sight.
+<!-- /test -->
 
 Calls `GetConsoleScreenBufferInfo`, `GetConsoleCursorInfo`, `SetConsoleCursorInfo`, `GetConsoleMode` and `SetConsoleMode`. Without a console, the buffer is 80 by 25.
 
@@ -560,7 +639,9 @@ Ends the full-screen mode.
 
 Syntax: *object*.**ExitFullScreenMode**
 
+<!-- test: FullScreenTests.ExitFullScreenMode_ReleasesTheBuffer_ShowsTheCursor_AndPutsBackTheInputMode, FullScreenTests.ExitFullScreenMode_WhenOff_DoesNothing, FullScreenTests.ExitFullScreenMode_LeavesTheLastPictureOnTheScreen -->
 The method does nothing when the mode is off. It releases the buffer, so that [**Buffer**](#buffer) returns **Nothing** again, shows the cursor, and sets the input mode to the one saved when the object was created, which also turns off the mouse input that [**OnMouseClick**](#onmouseclick) turned on. An object that was made with the old buffer, such as a component of the ConsoleComponents package, still holds it, and the console no longer shows it. The screen is not cleared. Calls `SetConsoleMode` and `SetConsoleCursorInfo`.
+<!-- /test -->
 
 ### FlushInput
 {: .no_toc }
@@ -569,7 +650,9 @@ Discards the events that are waiting in the input queue.
 
 Syntax: *object*.**FlushInput**
 
+<!-- test: ReadTests.FlushInput_DiscardsEveryEvent -->
 All events are discarded: keys, mouse events and size events. Calls `FlushConsoleInputBuffer`.
+<!-- /test -->
 
 ### GetBufferSize
 {: .no_toc }
@@ -578,7 +661,9 @@ Returns the size of the screen buffer.
 
 Syntax: *object*.**GetBufferSize** **As ConsoleSize**
 
+<!-- test: StateTests.GetBufferSize_IsTheWholeScreenBuffer, NoConsoleTests.GetBufferSize_WithoutHandles_Is80By300 -->
 Returns a [**ConsoleSize**](Types#consolesize) with the columns and rows of the whole screen buffer, which can be larger than the window. Calls `GetConsoleScreenBufferInfo`. Without a console, it is 80 by 300.
+<!-- /test -->
 
 ### GetCursorPosition
 {: .no_toc }
@@ -587,7 +672,9 @@ Returns the position of the cursor.
 
 Syntax: *object*.**GetCursorPosition** **As ConsolePosition**
 
+<!-- test: StateTests.SetCursorPosition_MovesTheCursorCountedFromTheTopLeftOfTheScreenBuffer, NoConsoleTests.GetCursorPosition_CursorProperties_WithoutHandles_AreZeroOrFalse -->
 Returns a [**ConsolePosition**](Types#consoleposition). The column and the row are counted from the top left of the screen buffer, not of the window. Calls `GetConsoleScreenBufferInfo`. Without a console, it is column 0, row 0.
+<!-- /test -->
 
 ### GetSize
 {: .no_toc }
@@ -596,7 +683,9 @@ Returns the size of the console window.
 
 Syntax: *object*.**GetSize** **As ConsoleSize**
 
+<!-- test: StateTests.GetSize_Width_Height_AreTheWindowNotTheScreenBuffer, NoConsoleTests.New_WithoutHandles_Succeeds_AndSizeIs80By25, NoConsoleTests.RedirectedOutput_SizeIs80By25_AndVirtualTerminalIsRefused -->
 Returns a [**ConsoleSize**](Types#consolesize) with the columns and rows of the window, from the window rectangle that Windows reports. [**Width**](#width) and [**Height**](#height) return its two fields. Calls `GetConsoleScreenBufferInfo`. Without a console, it is 80 by 25.
+<!-- /test -->
 
 ### IsKeyPressed
 {: .no_toc }
@@ -608,7 +697,9 @@ Syntax: *object*.**IsKeyPressed** ( *keyCode* ) **As Boolean**
 *keyCode*
 : *required* A **Long**, a Windows virtual-key code, such as 27 for Escape or 38 for the Up Arrow.
 
+<!-- test: ReadTests.IsKeyPressed_KeyNotDown_IsFalse, NoConsoleTests.IsKeyPressed_WorksWithoutAConsole -->
 Returns **True** when the most significant bit of the result of `GetAsyncKeyState` is set. The function asks Windows for the state of the keyboard, so it does not read the console's input queue, does not remove any event from it, and does not depend on which window has the focus. It works without a console.
+<!-- /test -->
 
 ### KeyAvailable
 {: .no_toc }
@@ -617,7 +708,9 @@ Tells whether the input queue holds an event.
 
 Syntax: *object*.**KeyAvailable** **As Boolean**
 
+<!-- test: ReadTests.KeyAvailable_EmptyQueue_IsFalse, ReadTests.KeyAvailable_KeyPress_IsTrue, ReadTests.KeyAvailable_KeyReleaseOnly_IsFalse, ReadTests.KeyAvailable_AfterReadKey_IsFalse, ReadTests.KeyAvailable_MouseEventOnly_IsFalse, ReadTests.KeyAvailable_FocusEventOnly_IsFalse, ReadTests.ReadKey_PutsBackTheInputMode_AndLeavesTheReleaseInTheQueue -->
 Returns **True** when the queue holds one or more events. The queue holds every kind of input: key presses and key releases, mouse events, focus events and size events, so a **True** result does not mean that a key is waiting. After a key is read, the event for its release is still in the queue, and **KeyAvailable** is true until a following [**ReadKey**](#readkey) or [**FlushInput**](#flushinput) removes it.
+<!-- /test -->
 
 Calls `GetNumberOfConsoleInputEvents`. Without a console, it returns **False**.
 
@@ -628,7 +721,9 @@ Returns the first event in the queue, when it is a key press, without removing i
 
 Syntax: *object*.**PeekEvent** **As ConsoleKeyInfo**
 
+<!-- test: ReadTests.PeekEvent_KeyPress_ReturnsTheKeyWithoutRemovingIt, ReadTests.PeekEvent_FirstEventIsNotAKeyPress_ReturnsTheEmptyStructure -->
 Returns the [**ConsoleKeyInfo**](Types#consolekeyinfo) of the first event when that event is a key-down event. For any other first event, a key release, a mouse event or an empty queue, it returns an empty structure: **KeyCode** 0 and an empty **KeyChar**. It does not look past the first event. Calls `PeekConsoleInputW`.
+<!-- /test -->
 
 ### PercentX
 {: .no_toc }
@@ -640,7 +735,9 @@ Syntax: *object*.**PercentX** ( *percent* )
 *percent*
 : *required* A **Double**. A value below 0 is taken as 0, and a value above 100 as 100.
 
+<!-- test: OutputTests.PercentX_And_PercentY_ClampTheirArgumentTo0To100, OutputTests.PercentX_And_PercentY_RoundHalfToEven -->
 Returns `CLng(Width * percent / 100)`, a **Long**, rounded half to even.
+<!-- /test -->
 
 ### PercentY
 {: .no_toc }
@@ -652,7 +749,9 @@ Syntax: *object*.**PercentY** ( *percent* )
 *percent*
 : *required* A **Double**. A value below 0 is taken as 0, and a value above 100 as 100.
 
+<!-- test: OutputTests.PercentX_And_PercentY_ClampTheirArgumentTo0To100, OutputTests.PercentX_And_PercentY_RoundHalfToEven -->
 Returns `CLng(Height * percent / 100)`, a **Long**.
+<!-- /test -->
 
 ### ProcessEvents
 {: .no_toc }
@@ -663,6 +762,7 @@ Syntax: *object*.**ProcessEvents**
 
 A full-screen program calls this method once in each pass of its main loop. It takes the events from the queue in order, while the queue is not empty, and treats each by its kind.
 
+<!-- test: EventTests.OnResize_NewSize_CallsTheHandlerAndGivesTheBufferANewSize, EventTests.ProcessEvents_NoKeyHandler_LeavesKeyEventsInTheQueue, EventTests.ProcessEvents_KeyEventWithNoHandler_StopsBeforeTheEventsBehindIt, EventTests.OnKeyPress_ProcessEvents_CallsTheHandlerForEachKeyDownAndNotForKeyUp, EventTests.ProcessEvents_MouseEventWithNoHandler_IsTakenAndDropped, EventTests.OnMouseClick_HandlerIsCalledForEveryMouseEvent, EventTests.ProcessEvents_OtherEvents_AreTakenAndDropped -->
 | Event | Handling |
 |---|---|
 | Size change | Always taken from the queue. It resizes the full-screen buffer and calls [**OnResize**](#onresize), as described there. |
@@ -671,6 +771,7 @@ A full-screen program calls this method once in each pass of its main loop. It t
 | Any other | Taken from the queue and dropped. |
 
 A program that wants to read keys with [**ReadKey**](#readkey) or [**ReadLine**](#readline) therefore sets no key handler. A queue that holds a key event for which nobody asks stops the processing of the size and mouse events behind it.
+<!-- /test -->
 
 The method calls `GetNumberOfConsoleInputEvents` (through [**KeyAvailable**](#keyavailable)), `PeekConsoleInputW` and `ReadConsoleInputW`. Without a console, **KeyAvailable** is **False** and nothing happens.
 
@@ -684,9 +785,11 @@ Syntax: *object*.**ReadKey** [ ( *intercept* ) ] **As ConsoleKeyInfo**
 *intercept*
 : *optional* A **Boolean**. When it is **False**, the default, the character of the key is also written to the console. **True** writes nothing.
 
-Returns a [**ConsoleKeyInfo**](Types#consolekeyinfo) for the first key-down event. **KeyCode** is the Windows virtual-key code, and **KeyChar** the character of the key, or the character with code 0 when the key has none, such as an arrow key. The three flags say whether Alt, Ctrl and Shift were down. Any key-down event counts, including the keys that are only modifiers, so a press of Shift is returned as **KeyCode** 16. Other events are taken from the queue and dropped while the method waits, and the release of a key is ignored. A key that is held down gives one result for each repeat.
+<!-- test: ReadTests.ReadKey_ReturnsTheVirtualKeyCodeAndTheCharacter, ReadTests.ReadKey_ReportsTheLeftModifierKeys, ReadTests.ReadKey_ReportsTheRightModifierKeys, ReadTests.ReadKey_KeyWithoutACharacter_GivesTheCharacterWithCodeZero, ReadTests.ReadKey_ShiftAlone_IsReturnedAsKeyCode16, ReadTests.ReadKey_IgnoresKeyReleasesAndOtherEvents, ReadTests.ReadKey_RepeatCount_IsNotRead_OneResultForEachKeyDownEvent, ReadTests.ReadKey_InterceptFalse_WritesTheCharacterToTheConsole, ReadTests.ReadKey_InterceptTrue_WritesNothing, ReadTests.ReadKey_InterceptFalse_KeyWithoutACharacter_WritesTheCharacterWithCodeZero, ReadTests.ReadKey_PutsBackTheInputMode_AndLeavesTheReleaseInTheQueue -->
+Returns a [**ConsoleKeyInfo**](Types#consolekeyinfo) for the first key-down event. **KeyCode** is the Windows virtual-key code, and **KeyChar** the character of the key, or the character with code 0 when the key has none, such as an arrow key. The three flags say whether Alt, Ctrl and Shift were down. Any key-down event counts, including the keys that are only modifiers, so a press of Shift is returned as **KeyCode** 16. Other events are taken from the queue and dropped while the method waits, and the release of a key is ignored. One result is returned for each key-down event; the repeat count of the event is not read.
 
 While it waits, the method sets the input mode to 0 and puts the old mode back before it returns. With no mode flags the console does not echo the key, does not edit a line, and does not turn Ctrl+C into an interruption. When *intercept* is **False** the method writes **KeyChar** itself with [**WriteTo**](#writeto), even when it is the character with code 0.
+<!-- /test -->
 
 Calls `GetConsoleMode`, `SetConsoleMode` (twice) and `ReadConsoleInputW`. Without a console, or with the input redirected, `ReadConsoleInputW` fails at once and the method never returns; see [Known problems](#known-problems-in-version-1001).
 
@@ -713,9 +816,11 @@ Syntax: *object*.**ReadKeyTimeout** ( *timeoutMs* [ , *intercept* ] ) **As Conso
 *intercept*
 : *optional* A **Boolean**, as for [**ReadKey**](#readkey).
 
+<!-- test: ReadTests.ReadKeyTimeout_NothingPressed_ReturnsTheEmptyStructureWhenTheTimeIsOver, ReadTests.ReadKeyTimeout_KeyPressed_ReturnsItAtOnce, ReadTests.ReadKeyTimeout_OnlyAKeyReleaseInTheQueue_ReturnsWhenTheTimeIsOver, NoConsoleTests.ReadKeyTimeout_WithoutHandles_ReturnsTheEmptyStructureWhenTheTimeIsOver -->
 The method asks [**KeyAvailable**](#keyavailable) every millisecond (it calls `Sleep` between the asks) until the time is over. As soon as the queue holds any event it returns [**ReadKey**](#readkey). When the time is over it returns an empty structure, with **KeyCode** 0.
 
 Since **KeyAvailable** is true for any event, a pending event that is not a key press, such as a key release, makes **ReadKey** wait for the next key press with no time limit. Calls `GetNumberOfConsoleInputEvents`, `Sleep`, `GetTickCount` and the functions of **ReadKey**. Without a console, it returns the empty structure after the time.
+<!-- /test -->
 
 ### ReadLine
 {: .no_toc }
@@ -727,7 +832,9 @@ Syntax: *object*.**ReadLine** [ ( *prompt* ) ] **As String**
 *prompt*
 : *optional* A **String**, written with [**WriteTo**](#writeto) before the console reads. The default is an empty string.
 
+<!-- test: ReadTests.ReadLine_ReturnsTheLineWithoutTheLineBreak, ReadTests.ReadLine_Prompt_IsWrittenBeforeTheConsoleReads, ReadTests.ReadLine_OnlyEnter_ReturnsAnEmptyString, ReadTests.ReadLine_ReadsAtMostTheCharactersOfTheReadBuffer, NoConsoleTests.ReadLine_WithoutHandles_ReturnsAnEmptyStringAtOnce -->
 Waits in the console's line mode, with its echo and editing, until the user presses Enter, and returns the text without the carriage return and the line feed (all of them are removed). At most the number of characters of the read buffer (see [**New**](#new)) is read in one call. Calls `ReadConsoleW`. When the console is not in line mode, the result is that of the current mode. Without a console, or with the input redirected, `ReadConsoleW` fails and the method returns an empty string at once.
+<!-- /test -->
 
 ```tb check_build
 Dim con As New cConsole
@@ -750,7 +857,9 @@ Syntax: *object*.**ReadPassword** ( [ *prompt* [ , *maskChar* ] ] ) **As String*
 *maskChar*
 : *optional* A **String**, written once for each character typed. The default is `*`. An empty string shows nothing.
 
+<!-- test: ReadTests.ReadPassword_ReturnsTheTextAndShowsOneMaskCharacterForEachKey, ReadTests.ReadPassword_MaskCharacterIsTheOneGiven_AndEmptyShowsNothing, ReadTests.ReadPassword_Backspace_RemovesTheLastCharacterAndErasesOneCell, ReadTests.ReadPassword_BackspaceWithNothingTyped_DoesNothing, ReadTests.ReadPassword_BackspaceWithALongMask_ErasesOnlyOneCell, ReadTests.ReadPassword_Escape_ReturnsAnEmptyString, ReadTests.ReadPassword_TabAndKeysWithoutACharacter_AreIgnored -->
 Reads with [**ReadKey**](#readkey), with the echo off. Enter ends the input and writes a line break. Backspace takes off the last character of the result and writes a backspace, a space and a backspace, which erases one cell. That is one cell even when *maskChar* has more than one character, and when *maskChar* is empty it is a cell of the prompt, since no mask was written. Escape cancels: the method returns an empty string. A key whose character has a code of 32 or more is added to the result and the mask is written. Keys with other characters, such as Tab, and keys without a character are ignored. Without a console it does not return, as **ReadKey** does not.
+<!-- /test -->
 
 ```tb check_build
 Dim con As New cConsole
@@ -767,7 +876,9 @@ Writes the changed part of the full-screen buffer to the console.
 
 Syntax: *object*.**Refresh**
 
+<!-- test: FullScreenTests.Refresh_WritesTheBufferAtTheTopLeftOfTheScreenBuffer, FullScreenTests.Refresh_WritesOnlyTheChangedRectangle, FullScreenTests.Refresh_And_RefreshAll_OutsideFullScreenMode_DoNothing, FullScreenTests.FPS_AfterDrawing_IsPositiveAndFallsWhileNothingIsDrawn, FullScreenTests.LastRenderTime_IsTheTimeOfTheLastDrawInMilliseconds, FullScreenTests.Refresh_AfterAWriteAtWithANegativeColumn_DrawsTheChangedCells -->
 In full-screen mode the method calls [**Flush**](cConsoleBuffer#flush) of the buffer, which writes only the rectangle that has changed since the last write, measures the time for [**LastRenderTime**](#lastrendertime) and updates [**FPS**](#fps). Outside full-screen mode it does nothing. Calls `WriteConsoleOutputW`, with the standard output handle. Without a console, the call fails and nothing is shown.
+<!-- /test -->
 
 ### RefreshAll
 {: .no_toc }
@@ -776,7 +887,9 @@ Writes the whole full-screen buffer to the console.
 
 Syntax: *object*.**RefreshAll**
 
+<!-- test: FullScreenTests.RefreshAll_WritesTheWholeBuffer, FullScreenTests.Refresh_And_RefreshAll_OutsideFullScreenMode_DoNothing -->
 Like [**Refresh**](#refresh), but the whole buffer is written, whether or not it has changed. A program uses it after something else has drawn on the screen, for example after an error message, to restore the picture. Outside full-screen mode it does nothing.
+<!-- /test -->
 
 ### ResetColors
 {: .no_toc }
@@ -785,7 +898,9 @@ Puts back the colour attributes that the console had when the object was created
 
 Syntax: *object*.**ResetColors**
 
+<!-- test: StateTests.ResetColors_PutsBackTheColoursTheConsoleHad -->
 Sets the attributes with `SetConsoleTextAttribute` and sets [**ForeColor**](#forecolor) and [**BackColor**](#backcolor) to the colours in the saved attributes (the low four bits, and the next four). Without a console, the saved attributes are Gray on Black.
+<!-- /test -->
 
 ### Restore
 {: .no_toc }
@@ -794,7 +909,9 @@ Puts the console back as it was when the object was created.
 
 Syntax: *object*.**Restore**
 
+<!-- test: StateTests.Restore_PutsBackTheInputAndOutputModes, StateTests.Restore_PutsBackTheColourAttributes, StateTests.Restore_PutsBackTheCodePages, StateTests.Restore_LeavesTheFullScreenMode, StateTests.Restore_DoesNotClearTheScreenOrPutBackTheCursorSize, StateTests.Restore_ObjectStaysUsable_AndRestoreCanBeCalledAgain, StateTests.Terminate_RestoresTheConsole -->
 The method leaves the full-screen mode if it is on, sets the input mode and the output mode to the saved ones, sets the saved colour attributes, and sets the two saved code pages. It does not clear the screen, and does not put back the cursor size. The object stays usable, and the method can be called again. Calls `SetConsoleMode` (twice), `SetConsoleTextAttribute`, `SetConsoleCP` and `SetConsoleOutputCP`. The terminate event of the object calls it.
+<!-- /test -->
 
 ### SetBufferSize
 {: .no_toc }
@@ -806,7 +923,9 @@ Syntax: *object*.**SetBufferSize** ( *width* , *height* )
 *width*, *height*
 : *required* **Long** values, the columns and rows of the buffer.
 
+<!-- test: StateTests.SetBufferSize_ValueOutsideAnInteger_Raises6, StateTests.SetBufferSize_SmallerThanTheWindow_IsRefusedWithoutAnError, FullScreenTests.SetBufferSize_DoesNotResizeTheFullScreenBuffer -->
 A value outside the range of an **Integer** raises error 6, *Overflow*. Windows refuses a buffer smaller than the window, and the method does not check. The buffer of full-screen mode is not changed here: it is resized when the size event arrives, which [**ProcessEvents**](#processevents) reads. Calls `SetConsoleScreenBufferSize`.
+<!-- /test -->
 
 ### SetColors
 {: .no_toc }
@@ -821,7 +940,9 @@ Syntax: *object*.**SetColors** ( *fore* [ , *back* ] )
 *back*
 : *optional* A [**ConsoleColor**](Types#consolecolor), the background colour. The default is **Black**, and not the current background.
 
+<!-- test: StateTests.SetColors_BackgroundDefaultsToBlackNotTheCurrentBackground -->
 Stores both values in [**ForeColor**](#forecolor) and [**BackColor**](#backcolor), and applies them with `SetConsoleTextAttribute`.
+<!-- /test -->
 
 ### SetCursorPosition
 {: .no_toc }
@@ -833,7 +954,9 @@ Syntax: *object*.**SetCursorPosition** ( *col* , *row* )
 *col*, *row*
 : *required* **Long** values, the column and the row, counted from the top left of the screen buffer.
 
+<!-- test: StateTests.SetCursorPosition_MovesTheCursorCountedFromTheTopLeftOfTheScreenBuffer, StateTests.SetCursorPosition_ValueOutsideAnInteger_Raises6, StateTests.SetCursorPosition_OutsideTheScreenBuffer_IsRefusedWithoutAnError -->
 A value outside the range of an **Integer** raises error 6, *Overflow*. A position outside the screen buffer is refused by Windows, and the method does not check. Calls `SetConsoleCursorPosition`.
+<!-- /test -->
 
 ### WriteAt
 {: .no_toc }
@@ -848,7 +971,9 @@ Syntax: *object*.**WriteAt** ( *col* , *row* , *text* )
 *text*
 : *required* A **String**.
 
+<!-- test: OutputTests.WriteAt_WritesAtThePositionAndLeavesTheCursorAfterTheText -->
 Moves the cursor with [**SetCursorPosition**](#setcursorposition) and writes the text with [**WriteTo**](#writeto), in the current colour attributes of the console. The cursor stays after the text.
+<!-- /test -->
 
 ### WriteAtColored
 {: .no_toc }
@@ -869,7 +994,9 @@ Syntax: *object*.**WriteAtColored** ( *col* , *row* , *text* , *fore* [ , *back*
 *back*
 : *optional* A [**ConsoleColor**](Types#consolecolor). The default is **Black**.
 
+<!-- test: OutputTests.WriteAtColored_WritesAtThePositionInTheGivenColours, OutputTests.WriteAtColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteAtColored_LeavesTheConsoleInTheColoursItHad -->
 Moves the cursor and calls [**WriteColored**](#writecolored), so the colours that were tracked before are put back after the text.
+<!-- /test -->
 
 ### WriteColored
 {: .no_toc }
@@ -878,6 +1005,7 @@ Writes text in given colours.
 
 Syntax: *object*.**WriteColored** ( *text* , *fore* [ , *back* ] )
 
+<!-- test: OutputTests.WriteColored_WritesTheTextInTheGivenColours, OutputTests.WriteColored_PutsBackTheColoursTheObjectTracks, OutputTests.WriteColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteColored_LeavesTheConsoleInTheColoursItHad -->
 *text*
 : *required* A **String**.
 
@@ -888,6 +1016,7 @@ Syntax: *object*.**WriteColored** ( *text* , *fore* [ , *back* ] )
 : *optional* A [**ConsoleColor**](Types#consolecolor), the background colour. The default is **Black**, whatever the current background is.
 
 Sets the colours with [**SetColors**](#setcolors), writes the text with [**WriteTo**](#writeto), and sets [**ForeColor**](#forecolor) and [**BackColor**](#backcolor) back to the values they had before the call. Those are the values that the object tracks: Gray on Black until a property or [**SetColors**](#setcolors) changes them. They are not read from the console, so a console that started in other colours ends up in Gray on Black after the first call, and not in its own colours. [**ResetColors**](#resetcolors) puts back the original ones.
+<!-- /test -->
 
 ```tb check_build
 Dim con As New cConsole
@@ -907,7 +1036,9 @@ Syntax: *object*.**WriteError** ( *text* )
 *text*
 : *required* A **String**.
 
+<!-- test: OutputTests.WriteError_WritesToTheErrorHandleOnly, NoConsoleTests.RedirectedOutput_WriteMembersWriteNothingToTheFile -->
 Calls `WriteConsoleW` on the standard error handle, so the text is written when that handle is a console and is lost when the error output is redirected to a file or a pipe. No line break is added.
+<!-- /test -->
 
 ### WriteErrorLine
 {: .no_toc }
@@ -919,7 +1050,9 @@ Syntax: *object*.**WriteErrorLine** ( *text* )
 *text*
 : *required* A **String**.
 
+<!-- test: OutputTests.WriteErrorLine_AddsALineFeed -->
 Calls [**WriteError**](#writeerror) with the text and a line feed (code 10).
+<!-- /test -->
 
 ### WriteF
 {: .no_toc }
@@ -934,7 +1067,9 @@ Syntax: *object*.**WriteF** ( *format* , *args* ... )
 *args*
 : *optional* A list of values, one for each placeholder, with `{0}` for the first.
 
+<!-- test: OutputTests.WriteF_ReplacesNumberedPlaceholders, OutputTests.WriteF_PlaceholderCanBeUsedMoreThanOnceAndInAnyOrder, OutputTests.WriteF_FormatSpecifierIsNotUnderstood, OutputTests.WriteF_PlaceholderWithoutAValueStaysInTheText, OutputTests.WriteF_ValueThatContainsAPlaceholderIsReplacedAgain -->
 Replaces `{0}` with the first value, `{1}` with the second, and so on, in that order, each converted with **CStr**, and writes the result with [**WriteTo**](#writeto). The only form of a placeholder is a number in braces; a format such as `{0:N2}` is not understood and stays as it is. The replacements are made one after the other on the whole text, so a value that contains `{1}` has that text replaced by the second value. A value that **CStr** cannot convert raises the error that **CStr** raises. A placeholder with no value stays in the text.
+<!-- /test -->
 
 ```tb check_build
 Dim con As New cConsole
@@ -952,7 +1087,9 @@ Syntax: *object*.**WriteLine** [ ( *text* ) ]
 *text*
 : *optional* A **String**. The default is an empty string, which writes only the line feed.
 
+<!-- test: OutputTests.WriteLine_MovesToTheStartOfTheNextLine, OutputTests.WriteLine_WithoutText_WritesOnlyTheLineFeed -->
 Calls [**WriteTo**](#writeto) with the text and `vbLf`, the line feed (code 10) alone. The console moves to the start of the next line when it processes output, which it does by default.
+<!-- /test -->
 
 ### WriteLineColored
 {: .no_toc }
@@ -970,7 +1107,9 @@ Syntax: *object*.**WriteLineColored** ( *text* , *fore* [ , *back* ] )
 *back*
 : *optional* A [**ConsoleColor**](Types#consolecolor). The default is **Black**.
 
+<!-- test: OutputTests.WriteLineColored_WritesTheTextAndMovesToTheNextLine, OutputTests.WriteLineColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteLineColored_LeavesTheConsoleInTheColoursItHad -->
 Calls [**WriteColored**](#writecolored) with the text and a line feed, so the line feed is written in the given colours too.
+<!-- /test -->
 
 ### WriteLineF
 {: .no_toc }
@@ -979,7 +1118,9 @@ Writes text with numbered placeholders, and a line feed.
 
 Syntax: *object*.**WriteLineF** ( *format* , *args* ... )
 
+<!-- test: OutputTests.WriteLineF_ReplacesThePlaceholdersAndEndsTheLine -->
 Replaces the placeholders as [**WriteF**](#writef) does and writes the result with [**WriteLine**](#writeline).
+<!-- /test -->
 
 ### WriteTo
 {: .no_toc }
@@ -991,7 +1132,9 @@ Syntax: *object*.**WriteTo** ( *text* )
 *text*
 : *required* A **String**. Every UTF-16 code unit of the string is written, in the current colour attributes of the console.
 
+<!-- test: OutputTests.WriteTo_WritesTheTextAtTheCursorInTheCurrentColours, OutputTests.WriteTo_ControlCharactersTakeEffect, StateTests.WriteTo_Euro_IsStoredAsU20ACWhateverTheOutputCodePage, StateTests.WriteTo_EscapeSequenceWithoutTheMode_AppearsAsText, StateTests.EnableVirtualTerminal_SequencesOfMConsoleStyleChangeColours, NoConsoleTests.WriteMembers_WithoutHandles_WriteNothingAndRaiseNoError, NoConsoleTests.RedirectedOutput_WriteMembersWriteNothingToTheFile -->
 Calls `WriteConsoleW` on the standard output handle with the characters of the string, and ignores the result. The text is not converted, so any Unicode character that the console font can draw appears as it is. Control characters are handled by the console: a carriage return, a line feed, a backspace and the bell take effect, and escape sequences take effect only when the virtual-terminal mode is on; see [**EnableVirtualTerminal**](#enablevirtualterminal). When the output is redirected, or the program has no console, nothing is written.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/cConsoleBuffer.md b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/cConsoleBuffer.md
index bde8ed14..3e279cd1 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/cConsoleBuffer.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/cConsoleBuffer.md
@@ -36,15 +36,19 @@ In the syntax lines of this page, *object* is a **cConsoleBuffer**. Columns and
 
 ## The cells
 
+<!-- test: BufferTests.New_HoldsSpacesInGrayOnBlack_AndIsAllDirty, BufferTests.BufferPtr_IsTheAddressOfTheFirstCellAndCellsAreFourBytes, BufferTests.WriteAt_CharacterOutsideTheBasicMultilingualPlane_TakesTwoCells, BufferTests.SetChar_DefaultColoursAreGrayOnBlack_NotTheColoursOfTheConsole -->
 The grid has *Width* columns and *Height* rows. A cell holds one UTF-16 code unit and one colour attribute, which is the foreground [**ConsoleColor**](Types#consolecolor) plus 16 times the background. The cells are kept row after row as the `CHAR_INFO` structure of Windows (two 16-bit values, 4 bytes), so the cell at *col* and *row* is number `row * Width + col`. [**BufferPtr**](#bufferptr) returns the address of the first cell.
 
 A character outside the Basic Multilingual Plane, such as most emoji, is two code units and takes two cells. The buffer has no notion of the width of a character: a character that the console draws two cells wide still takes one cell of the grid.
 
 Defaults: where a member takes *fore* and *back* and they are omitted, the cell gets **Gray** on **Black**. The members do not use the colours of the [**cConsole**](cConsole#forecolor) object.
+<!-- /test -->
 
 ## The dirty rectangle
 
+<!-- test: BufferTests.DirtyRect_GrowsToHoldEveryCellChanged, BufferTests.DirtyRect_WriteAt_HoldsTheFirstAndLastColumnOfTheText, BufferTests.DirtyRect_FillRect_HoldsTheCutRectangle, BufferTests.DirtyRect_DrawBoxAndLines_GrowThroughSetChar, BufferTests.CopyRegion_DirtyRectangleHoldsTheDestinationAndTheSource, BufferTests.ClearDirty_EmptiesTheRectangleToItsEmptyForm, BufferTests.Clear_MarksTheWholeGridDirty_AlsoDuringABatch, BufferTests.Resize_GivesANewSizeAndLosesTheContents, FlushTests.Flush_EmptiesTheDirtyRectangle -->
 The buffer records the smallest rectangle that contains every cell changed since the last [**Flush**](#flush). [**SetChar**](#setchar), [**WriteAt**](#writeat), [**FillRect**](#fillrect) and [**CopyRegion**](#copyregion) grow the rectangle, and so do [**DrawBox**](#drawbox), [**DrawHLine**](#drawhline) and [**DrawVLine**](#drawvline) through **SetChar**. [**Clear**](#clear) and [**Resize**](#resize) mark the whole grid, and [**Flush**](#flush) and [**ClearDirty**](#cleardirty) empty the rectangle. [**IsDirty**](#isdirty) tells whether it holds anything, and [**GetDirtyRect**](#getdirtyrect) returns it. After the rectangle is emptied, its **Left** is *Width*, its **Top** is *Height*, and its **Right** and **Bottom** are 0.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
@@ -63,11 +67,15 @@ Debug.Print r.Left & " " & r.Top & " " & r.Right & " " & r.Bottom
 ' 4 1 6 2
 ```
 
-[**WriteAt**](#writeat), [**FillRect**](#fillrect) and [**CopyRegion**](#copyregion) pass the rectangle they were given to the record without checking it against the buffer, so a call with a position outside the grid can leave a dirty rectangle that reaches beyond the grid. [**Flush**](#flush) then asks Windows to write a region that is partly outside the screen buffer. A row below the grid or a column beyond its width does no harm: Windows clips the region. A negative column or row does: the next **Flush** writes nothing, and empties the rectangle all the same, so the cells that changed since the previous flush stay off the screen until they change again or [**RefreshAll**](cConsole#refreshall) of the console writes the whole buffer.
+<!-- test: FlushTests.WriteAt_BeyondTheGrid_NextFlushStillDrawsTheChangedCells, FlushTests.WriteAt_NegativeColumn_NextFlushStillDrawsTheChangedCells, FlushTests.WriteAt_NegativeRow_NextFlushStillDrawsTheChangedCells, FlushTests.FillRect_RectangleAboveAndLeftOfTheGrid_NextFlushStillDrawsTheChangedCells, FlushTests.CopyRegion_NegativeDestination_NextFlushStillDrawsTheCopiedCells, FlushTests.Flush_AfterANegativePosition_EmptiesTheRectangleAndForceAllDrawsTheCells -->
+[**WriteAt**](#writeat) and [**CopyRegion**](#copyregion) pass the positions they were given to the record without checking them against the buffer, and so does [**FillRect**](#fillrect) when the right or the bottom edge of its rectangle is negative, so a call with a position outside the grid can leave a dirty rectangle that reaches beyond the grid. [**Flush**](#flush) then asks Windows to write a region that is partly outside the screen buffer. A row below the grid or a column beyond its width does no harm: Windows clips the region. A negative column or row does: the next **Flush** writes nothing, and empties the rectangle all the same, so the cells that changed since the previous flush stay off the screen until they change again or [**RefreshAll**](cConsole#refreshall) of the console writes the whole buffer.
+<!-- /test -->
 
 ## Batch updates
 
+<!-- test: BufferTests.Batch_DoesNotGrowTheDirtyRectangle_AndEndMarksTheWholeGrid, BufferTests.Batch_Nested_MarksTheGridWhenTheOutermostEnds, BufferTests.EndBatchUpdate_WithoutABegin_DoesNothing, BufferTests.CopyRegion_InABatch_DirtyRectangleHoldsOnlyTheDestination -->
 A program that changes most of the grid in one pass can skip the bookkeeping. Between [**BeginBatchUpdate**](#beginbatchupdate) and [**EndBatchUpdate**](#endbatchupdate) the members do not grow the dirty rectangle, and [**EndBatchUpdate**](#endbatchupdate) marks the whole grid as dirty, so the next [**Flush**](#flush) writes everything. Batches nest: the grid is marked when the outermost one ends.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
@@ -89,8 +97,9 @@ Debug.Print r.Left & " " & r.Top & " " & r.Right & " " & r.Bottom
 
 ## Known problems in version 1.0.0.1
 
+<!-- test: BufferTests.ScrollRegion_Down_AtTheTopEdge_MovesTheRowsByTheDistanceAsked, BufferTests.ScrollRegion_Right_AtTheLeftEdge_MovesTheColumnsByTheDistanceAsked, FlushTests.WriteAt_NegativeColumn_NextFlushStillDrawsTheChangedCells, FlushTests.WriteAt_NegativeRow_NextFlushStillDrawsTheChangedCells, FlushTests.FillRect_RectangleAboveAndLeftOfTheGrid_NextFlushStillDrawsTheChangedCells, FlushTests.CopyRegion_NegativeDestination_NextFlushStillDrawsTheCopiedCells -->
 > [!WARNING] 1.0.0.1
-> [**ScrollRegion**](#scrollregion) moves a region by less than the distance asked for when the region starts closer to the top or left edge than that distance, and clears the full distance, so cells are lost without an error. A [**WriteAt**](#writeat), [**FillRect**](#fillrect) or [**CopyRegion**](#copyregion) with a negative column or row makes the next [**Flush**](#flush) draw nothing, and raises no error; see [The dirty rectangle](#the-dirty-rectangle).
+> [**ScrollRegion**](#scrollregion) moves a region by less than the distance asked for when the region starts closer to the top or left edge than that distance, and clears the full distance, so cells are lost without an error. A [**WriteAt**](#writeat) with a negative column or row, a [**CopyRegion**](#copyregion) with a negative destination, and a [**FillRect**](#fillrect) whose right or bottom edge is negative make the next [**Flush**](#flush) draw nothing, and raise no error; see [The dirty rectangle](#the-dirty-rectangle).
 
 ## Constructor
 
@@ -107,7 +116,9 @@ Syntax: **New cConsoleBuffer** ( *width* , *height* )
 *height*
 : *required* A **Long**, the number of rows, 1 or more.
 
+<!-- test: BufferTests.New_HoldsSpacesInGrayOnBlack_AndIsAllDirty -->
 The constructor does not check the sizes. It calls [**Resize**](#resize), so every cell holds a space in **Gray** on **Black**, and the whole grid is dirty. The buffer takes 4 bytes for each cell.
+<!-- /test -->
 
 ## Properties
 
@@ -118,7 +129,9 @@ The address of the first cell. **LongPtr**, read-only.
 
 Syntax: *object*.**BufferPtr**
 
+<!-- test: BufferTests.BufferPtr_IsTheAddressOfTheFirstCellAndCellsAreFourBytes -->
 The address is that of the first element of the array of cells, `VarPtr(m_Buffer(0))`. It is valid until [**Resize**](#resize) is called, which allocates a new array. A program can read or write the cells through it, for example with `CopyMemory`; see [The cells](#the-cells) for the layout. The dirty rectangle does not follow such writes, so the program calls [**Flush**](#flush) with the flag *forceAll*, or [**FlushRegion**](#flushregion).
+<!-- /test -->
 
 ### Height
 {: .no_toc }
@@ -168,6 +181,7 @@ Fills every cell with one character and one pair of colours.
 
 Syntax: *object*.**Clear** [ *fore* [ , *back* [ , *fillChar* ] ] ]
 
+<!-- test: BufferTests.Clear_FillsEveryCellWithTheGivenCharacterAndColours, BufferTests.Clear_EmptyFillCharacter_Raises5, BufferTests.Clear_MarksTheWholeGridDirty_AlsoDuringABatch -->
 *fore*
 : *optional* A [**ConsoleColor**](Types#consolecolor), the text colour. The default is **Gray**.
 
@@ -178,6 +192,7 @@ Syntax: *object*.**Clear** [ *fore* [ , *back* [ , *fillChar* ] ] ]
 : *optional* A **String** whose first character is used. The default is a space. An empty string raises error 5, *Invalid procedure call or argument*.
 
 Marks the whole grid as dirty, also during a batch update.
+<!-- /test -->
 
 ### ClearDirty
 {: .no_toc }
@@ -186,7 +201,9 @@ Empties the dirty rectangle without writing anything.
 
 Syntax: *object*.**ClearDirty**
 
+<!-- test: BufferTests.ClearDirty_EmptiesTheRectangleToItsEmptyForm, FlushTests.Flush_NothingDirty_WritesNothing -->
 Sets [**IsDirty**](#isdirty) to **False** and the rectangle to its empty form. The cells that were dirty are not written by the next [**Flush**](#flush), unless that call forces all.
+<!-- /test -->
 
 ### CopyRegion
 {: .no_toc }
@@ -201,7 +218,9 @@ Syntax: *object*.**CopyRegion** ( *srcLeft* , *srcTop* , *srcRight* , *srcBottom
 *dstLeft*, *dstTop*
 : *required* **Long** values, the position of the upper left corner of the copy.
 
+<!-- test: BufferTests.CopyRegion_CopiesACharacterAndItsColours, BufferTests.CopyRegion_OverlappingToTheRight_ReadsCellsBeforeOverwritingThem, BufferTests.CopyRegion_OverlappingDownward_ReadsCellsBeforeOverwritingThem, BufferTests.CopyRegion_DestinationCellsOutsideTheGridAreSkipped, BufferTests.CopyRegion_SourceOutsideTheGridIsCutAndTheDestinationIsNotMoved, BufferTests.CopyRegion_DirtyRectangleHoldsTheDestinationAndTheSource, BufferTests.CopyRegion_InABatch_DirtyRectangleHoldsOnlyTheDestination -->
 The source rectangle is first cut to the grid. Its left and top edges are raised to 0 and its right and bottom edges lowered to the last column and row, and the destination is not moved to match, so a source that reaches outside the grid is copied from its cut position to the unchanged destination. Cells whose destination lies outside the grid are skipped. Source and destination can overlap; the copy runs in the direction that does not overwrite cells before they are read. The method passes the corners of the destination and of the source rectangle to the dirty rectangle, which a batch update suppresses, and it does not cut the destination corners to the grid.
+<!-- /test -->
 
 ### DrawBox
 {: .no_toc }
@@ -222,7 +241,9 @@ Syntax: *object*.**DrawBox** ( *left* , *top* , *right* , *bottom* [ , *fore* [
 *doubleLine*
 : *optional* A **Boolean**. **True** uses the double-line characters (U+2554, U+2557, U+255A, U+255D, U+2550, U+2551), **False**, the default, the single-line ones (U+250C, U+2510, U+2514, U+2518, U+2500, U+2502).
 
+<!-- test: BufferTests.DrawBox_SingleLine_DrawsTheOutlineOnly, BufferTests.DrawBox_DoubleLine_UsesTheDoubleLineCharacters, BufferTests.DrawBox_PartsOutsideTheGridAreLeftOut, BufferTests.DrawBox_OneCellWideBox_RaisesNoError -->
 The four corners, then the top and bottom lines, then the left and right lines are written with [**SetChar**](#setchar), so the parts outside the grid are left out. The inside of the box is not changed. No error is raised for a rectangle that is one cell wide or high; the corners overwrite each other.
+<!-- /test -->
 
 ### DrawHLine
 {: .no_toc }
@@ -237,10 +258,12 @@ Syntax: *object*.**DrawHLine** ( *col* , *row* , *length* [ , *fore* [ , *back*
 *length*
 : *required* A **Long**, the number of cells.
 
+<!-- test: BufferTests.DrawHLine_DrawsHorizontalLineCharacters -->
 *fore*, *back*, *doubleLine*
 : *optional*, as for [**DrawBox**](#drawbox). The line uses U+2500, or U+2550 when *doubleLine* is **True**.
 
 The cells are written with [**SetChar**](#setchar).
+<!-- /test -->
 
 ### DrawVLine
 {: .no_toc }
@@ -255,8 +278,10 @@ Syntax: *object*.**DrawVLine** ( *col* , *row* , *length* [ , *fore* [ , *back*
 *length*
 : *required* A **Long**, the number of cells, going down.
 
+<!-- test: BufferTests.DrawVLine_DrawsVerticalLineCharactersGoingDown -->
 *fore*, *back*, *doubleLine*
 : *optional*, as for [**DrawBox**](#drawbox). The line uses U+2502, or U+2551 when *doubleLine* is **True**.
+<!-- /test -->
 
 ### EndBatchUpdate
 {: .no_toc }
@@ -265,7 +290,9 @@ Ends a batch update.
 
 Syntax: *object*.**EndBatchUpdate**
 
+<!-- test: BufferTests.EndBatchUpdate_WithoutABegin_DoesNothing, BufferTests.Batch_Nested_MarksTheGridWhenTheOutermostEnds -->
 Subtracts 1 from the counter when it is above 0. When the counter reaches 0 the whole grid is marked as dirty. A call without a matching **BeginBatchUpdate** does nothing.
+<!-- /test -->
 
 ### FillRect
 {: .no_toc }
@@ -283,7 +310,9 @@ Syntax: *object*.**FillRect** ( *left* , *top* , *right* , *bottom* [ , *char* [
 *fore*, *back*
 : *optional* [**ConsoleColor**](Types#consolecolor) values. The defaults are **Gray** and **Black**.
 
+<!-- test: BufferTests.FillRect_FillsTheRectangleOnly, BufferTests.FillRect_IsCutToTheGrid, BufferTests.FillRect_LeftGreaterThanRight_ChangesNoCell, BufferTests.FillRect_DefaultIsASpaceInGrayOnBlack, BufferTests.FillRect_EmptyCharacter_Raises5, BufferTests.DirtyRect_FillRect_HoldsTheCutRectangle -->
 The two corners of the cut rectangle are passed to the dirty rectangle. A rectangle with *left* greater than *right* changes no cell.
+<!-- /test -->
 
 ### Flush
 {: .no_toc }
@@ -298,7 +327,9 @@ Syntax: *object*.**Flush** ( *hOutput* [ , *forceAll* ] )
 *forceAll*
 : *optional* A **Boolean**. **True** writes every cell. The default, **False**, writes the dirty rectangle only, and returns at once when nothing is dirty.
 
+<!-- test: FlushTests.Flush_WritesEachCellToTheSamePositionWithItsColours, FlushTests.Flush_WritesOnlyTheDirtyRectangle, FlushTests.Flush_NothingDirty_WritesNothing, FlushTests.Flush_ForceAll_WritesEveryCell, FlushTests.Flush_EmptiesTheDirtyRectangle, FlushTests.Flush_ToAHandleThatIsNotAConsole_EmptiesTheDirtyRectangleAllTheSame -->
 The cells go to the same positions in the screen buffer: the cell at column *c* and row *r* of the grid is written at column *c* and row *r*, counted from the top left of the screen buffer and not of the window. Afterwards the dirty rectangle is emptied. The method does not check the result of `WriteConsoleOutputW`: when the call fails, because the handle is not a console, the cells are not shown and the dirty rectangle is emptied all the same. Calls `WriteConsoleOutputW`. Without a console, nothing is shown.
+<!-- /test -->
 
 ### FlushRegion
 {: .no_toc }
@@ -313,7 +344,9 @@ Syntax: *object*.**FlushRegion** ( *hOutput* , *left* , *top* , *right* , *botto
 *left*, *top*, *right*, *bottom*
 : *required* **Long** values, the corners, inclusive. The rectangle is cut to the grid.
 
+<!-- test: FlushTests.FlushRegion_WritesTheRectangleWhetherOrNotItIsDirty, FlushTests.FlushRegion_LeavesTheDirtyRectangleAsItIs, FlushTests.FlushRegion_IsCutToTheGrid -->
 Writes the rectangle whether or not it is dirty, at the same position in the screen buffer. The dirty rectangle is left as it is. Calls `WriteConsoleOutputW`.
+<!-- /test -->
 
 ### GetChar
 {: .no_toc }
@@ -325,7 +358,9 @@ Syntax: *object*.**GetChar** ( *col* , *row* ) **As ConsoleCharInfo**
 *col*, *row*
 : *required* **Long** values, the position of the cell.
 
+<!-- test: BufferTests.GetChar_OutsideTheGridReturnsTheEmptyStructure, BufferTests.GetChar_StyleIsAlwaysNone -->
 Returns a [**ConsoleCharInfo**](Types#consolecharinfo). **Char** holds the one character, **ForeColor** and **BackColor** the colours; **Style** is always 0. For a position outside the grid it returns the empty structure: **Char** is an empty string and both colours are **Black**.
+<!-- /test -->
 
 ### GetDirtyRect
 {: .no_toc }
@@ -346,7 +381,9 @@ Syntax: *object*.**Resize** ( *width* , *height* )
 *width*, *height*
 : *required* **Long** values, the new number of columns and rows.
 
+<!-- test: BufferTests.Resize_GivesANewSizeAndLosesTheContents, EventTests.OnResize_NewSize_CallsTheHandlerAndGivesTheBufferANewSize -->
 The old contents are lost, not copied: the method allocates a new array and calls [**Clear**](#clear) with its defaults, so every cell is a space in **Gray** on **Black** and the whole grid is dirty. Any address from [**BufferPtr**](#bufferptr) is no longer valid. The full-screen mode of **cConsole** calls this method when a size event shows a new size, so a program redraws after the resize handler.
+<!-- /test -->
 
 ### ScrollRegion
 {: .no_toc }
@@ -364,9 +401,11 @@ Syntax: *object*.**ScrollRegion** ( *left* , *top* , *right* , *bottom* , *delta
 *deltaCol*
 : *required* A **Long**. A positive value moves the content right, a negative value left.
 
+<!-- test: BufferTests.ScrollRegion_Up_MovesTheRowsUpAndClearsTheBottomRow, BufferTests.ScrollRegion_Left_MovesTheColumnsLeftAndClearsTheRightColumn, BufferTests.ScrollRegion_Down_InARegionAwayFromTheTop_MovesTheRowsDown, BufferTests.ScrollRegion_Down_AtTheTopEdge_MovesTheRowsByTheDistanceAsked, BufferTests.ScrollRegion_Right_AtTheLeftEdge_MovesTheColumnsByTheDistanceAsked, BufferTests.ScrollRegion_BothDeltasZero_DoesNothing -->
 The rows (or columns) that the move uncovers are filled with spaces in **Gray** on **Black**. Cells moved out of the region are lost. The method does nothing when both deltas are 0. Note the order of the two deltas: rows come first.
 
 The method works by copying from a source rectangle that is *deltaRow* rows above and *deltaCol* columns left of the region. When that source reaches above the top of the grid, or left of its left edge, it is cut (see [**CopyRegion**](#copyregion)) and the destination is not moved, so the content moves by the distance between the region and the edge, which is less than the delta, while the full number of rows or columns is cleared. At the top edge a scroll down of one row therefore moves nothing and only clears the first row. Scrolling up and to the left, and scrolling down or right in a region that is as far from the top or left edge as the delta, work as expected.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim a As cConsoleBuffer = New cConsoleBuffer(5, 4)
@@ -409,6 +448,7 @@ Syntax: *object*.**SetChar** ( *col* , *row* , *char* [ , *fore* [ , *back* ] ]
 *col*, *row*
 : *required* **Long** values, the position of the cell. A position outside the grid is ignored, and nothing is marked.
 
+<!-- test: BufferTests.SetChar_StoresTheFirstCharacterAndTheColours, BufferTests.SetChar_DefaultColoursAreGrayOnBlack_NotTheColoursOfTheConsole, BufferTests.SetChar_OutsideTheGridIsIgnoredAndNothingIsMarked, BufferTests.SetChar_EmptyString_Raises5 -->
 *char*
 : *required* A **String**. Only its first character is used. An empty string raises error 5, *Invalid procedure call or argument*.
 
@@ -416,6 +456,7 @@ Syntax: *object*.**SetChar** ( *col* , *row* , *char* [ , *fore* [ , *back* ] ]
 : *optional* [**ConsoleColor**](Types#consolecolor) values. The defaults are **Gray** and **Black**.
 
 Marks the cell as dirty.
+<!-- /test -->
 
 ### WriteAt
 {: .no_toc }
@@ -427,6 +468,7 @@ Syntax: *object*.**WriteAt** ( *col* , *row* , *text* [ , *fore* [ , *back* ] ]
 *col*, *row*
 : *required* **Long** values, the position of the first character.
 
+<!-- test: BufferTests.WriteAt_WritesTextAndColoursIntoARow, BufferTests.WriteAt_CharactersBeyondTheLastColumnAreDropped_TheTextDoesNotWrap, BufferTests.WriteAt_CharactersLeftOfColumnZeroAreSkipped, BufferTests.WriteAt_RowOutsideTheGridWritesNothing, BufferTests.WriteAt_ControlCharactersAreStoredAsOrdinaryCharacters, BufferTests.DirtyRect_WriteAtWithEmptyText_StillGrowsTheRectangle -->
 *text*
 : *required* A **String**. Each UTF-16 code unit takes one cell, including carriage returns, line feeds and tabs, which are stored as ordinary characters. Characters that fall to the right of the last column are dropped, and characters to the left of column 0 are skipped. The text does not wrap.
 
@@ -434,6 +476,7 @@ Syntax: *object*.**WriteAt** ( *col* , *row* , *text* [ , *fore* [ , *back* ] ]
 : *optional* [**ConsoleColor**](Types#consolecolor) values. The defaults are **Gray** and **Black**.
 
 Nothing is written when *row* is outside the grid. The dirty rectangle is grown by the first and the last column of the text and by *row* in every case, even when they lie outside the grid, and also when *text* is empty.
+<!-- /test -->
 
 ### WriteTextEx
 {: .no_toc }
@@ -457,7 +500,9 @@ Syntax: *object*.**WriteTextEx** ( *text* , *col* , *row* , *fore* , *back* , *m
 *ellipsis*
 : *optional* A **String**, the mark that shows the text was cut. The default is the character U+2026, the horizontal ellipsis.
 
+<!-- test: BufferTests.WriteTextEx_LongText_EndsInTheEllipsis, BufferTests.WriteTextEx_DefaultEllipsisIsTheHorizontalEllipsisCharacter, BufferTests.WriteTextEx_ShortTextIsWrittenWhole, BufferTests.WriteTextEx_EllipsisAsLongAsTheWidth_WritesOnlyTheEllipsis, BufferTests.WriteTextEx_WidthZeroOrLess_WritesNothing -->
 When *text* is longer than *maxWidth*, the method writes the first `maxWidth - Len(ellipsis)` characters of the text followed by the ellipsis, so that the result is *maxWidth* characters. When the ellipsis itself is as long as *maxWidth* or longer, only the first *maxWidth* characters of the ellipsis are written, and nothing of the text. Shorter text is written whole. The order of the parameters differs from [**WriteAt**](#writeat): the text comes first.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim buf As cConsoleBuffer = New cConsoleBuffer(20, 2)
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/index.md b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/index.md
index dd8d744d..6c195c89 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/index.md
@@ -29,6 +29,7 @@ con.WriteLine
 con.Restore
 ```
 
+<!-- test: ReadTests.ReadKey_WithoutConsoleInput_Returns, ReadTests.ReadPassword_WithoutConsoleInput_Returns, TypesTests.ConsoleKey_NavigationAndFunctionMembersAreVirtualKeyCodes, ReadTests.ReadKey_ArrowKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_NavigationKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_FunctionKeys_EqualTheConsoleKeyMembers, ReadTests.ReadKey_LetterH_IsNotTheKeyCodeOfConsoleKeyKeyUp -->
 > [!WARNING] 1.0.0.1
 > Several members do not do what their names suggest. [**ReadKey**](cConsole#readkey) never returns in a program that has no console input, and a comparison of a key with a member of [**ConsoleKey**](Types#consolekey) is true for the wrong key. [Defects in version 1.0.0.1](#defects-in-version-1001) lists them with the pages that describe them.
 
@@ -52,15 +53,18 @@ A program with no console can create a **cConsole**, and the buffer of the full-
 
 ## Defects in version 1.0.0.1
 
+<!-- test: ReadTests.ReadKey_WithoutConsoleInput_Returns, ReadTests.ReadPassword_WithoutConsoleInput_Returns, TypesTests.ConsoleKey_NavigationAndFunctionMembersAreVirtualKeyCodes, ReadTests.ReadKey_EnterEscapeSpaceBackspaceTab_EqualTheConsoleKeyMembers, ReadTests.KeyAvailable_KeyReleaseOnly_IsFalse, ReadTests.KeyAvailable_AfterReadKey_IsFalse, OutputTests.WriteColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteLineColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteAtColored_NoBackground_KeepsTheCurrentBackground, OutputTests.WriteColored_LeavesTheConsoleInTheColoursItHad, OutputTests.WriteLineColored_LeavesTheConsoleInTheColoursItHad, OutputTests.WriteAtColored_LeavesTheConsoleInTheColoursItHad, FullScreenTests.Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsInTheWindow, FullScreenTests.Refresh_AfterAWriteAtWithANegativeColumn_DrawsTheChangedCells, EventTests.OnResize_IsGivenTheSizeOfTheWindow, EventTests.OnCtrlEvent_Restore_RemovesTheRegistration, EventTests.OnCtrlEvent_AnotherProcedure_ReplacesTheFirst, compile KeyHandlerZero, compile KeyHandlerNothing, compile MouseHandlerZero, compile MouseHandlerNothing, compile ResizeHandlerZero, compile ResizeHandlerNothing, compile CtrlHandlerZero, compile CtrlHandlerNothing, BufferTests.ScrollRegion_Down_AtTheTopEdge_MovesTheRowsByTheDistanceAsked, BufferTests.ScrollRegion_Right_AtTheLeftEdge_MovesTheColumnsByTheDistanceAsked, StyleTests.RepeatStr_LongerStringIsRepeatedWhole, StyleTests.StripAnsi_SequenceEndingInAnotherLetter_KeepsTheTextAfterIt, StateTests.Title_LongTitle_IsReturnedWithAtMost259Characters -->
 - [**ReadKey**](cConsole#readkey) and [**ReadPassword**](cConsole#readpassword) never return when the program has no console input.
 - The key codes of [**ConsoleKey**](Types#consolekey) are not the virtual-key codes that [**ReadKey**](cConsole#readkey) and the key handler return, except for Enter, Escape, Space, Backspace and Tab.
 - [**KeyAvailable**](cConsole#keyavailable) is true for any input event, including a key release.
 - [**WriteColored**](cConsole#writecolored), [**WriteLineColored**](cConsole#writelinecolored) and [**WriteAtColored**](cConsole#writeatcolored) default the background to black, and leave the console in Gray on Black.
 - [**Refresh**](cConsole#refresh) draws at the top of the screen buffer, which is out of sight when the window shows another part of it, and draws nothing after a [**WriteAt**](cConsoleBuffer#writeat) with a negative column or row.
 - [**OnResize**](cConsole#onresize) is given the size of the screen buffer, not of the window.
-- [**OnCtrlEvent**](cConsole#onctrlevent) adds a handler that is never removed, and none of the four handler properties can be cleared.
+- [**OnCtrlEvent**](cConsole#onctrlevent) adds a registration with Windows that is never removed, and the compiler refuses `0` and **Nothing** for all four handler properties, so none of them can be cleared.
 - [**ScrollRegion**](cConsoleBuffer#scrollregion) of the buffer moves a region by less than the distance asked for when the region is near the top or left edge of the buffer.
 - [**RepeatStr**](mConsoleStyle#repeatstr) repeats only the first character of its string, and [**StripAnsi**](mConsoleStyle#stripansi) removes text after some sequences.
+- [**Title**](cConsole#title) of a title longer than 259 characters ends in a character with code 0.
+<!-- /test -->
 - Of the types in [Types](Types), [**ConsoleTextStyle**](Types#consoletextstyle), [**ConsoleMode**](Types#consolemode), [**ConsoleEventType**](Types#consoleeventtype), [**ConsoleEventInfo**](Types#consoleeventinfo) and the delegates **ConsoleTimerCallback** and **ConsoleRenderCallback** are not used by any member.
 
 ## Classes and modules
@@ -81,3 +85,7 @@ A fifth public module, **mConsoleAPI**, has no page of its own, since a program
 - [TBMANLIB_ConsoleComponents](../TBMANLIB_ConsoleComponents/) package -- progress bars, charts, panels, layouts and a data grid that draw into the buffer
 - [Console Applications](../../../../Features/Project-Configuration/Project-Types#console-applications) -- the project type that the package is made for
 - [Importing a package from TWINSERV](../../../../Features/Packages/Importing-TWINSERV) -- adding a published package to a project
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB_ConsoleCore-tests.twinproj](TBMANLIB_ConsoleCore-tests.twinproj), a twinBASIC project. It uses TBMANLIB_ConsoleCore as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/mConsoleStyle.md b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/mConsoleStyle.md
index 146b415b..b87d28fe 100644
--- a/docs/Reference/Contributed/TBMANLIB_ConsoleCore/mConsoleStyle.md
+++ b/docs/Reference/Contributed/TBMANLIB_ConsoleCore/mConsoleStyle.md
@@ -46,14 +46,17 @@ con.Restore
 
 ## Known problems in version 1.0.0.1
 
+<!-- test: StyleTests.RepeatStr_LongerStringIsRepeatedWhole, StyleTests.StripAnsi_SequenceEndingInAnotherLetter_KeepsTheTextAfterIt -->
 - [**RepeatStr**](#repeatstr) repeats the first character of its string, not the string.
 - [**StripAnsi**](#stripansi) ends a sequence only at one of eight letters, so it also removes the text after the sequences that end in another letter, such as the one made by **CursorHide**.
+<!-- /test -->
 
 ## Cursor movement
 
 ### Cursor functions
 {: .no_toc }
 
+<!-- test: StyleTests.Cursor_MovementSequences, StyleTests.Cursor_CountDefaultsToOne, StyleTests.Cursor_NumbersAreNotChecked, StyleTests.Cursor_PositionTakesTheRowFirst, StyleTests.Cursor_SaveRestoreHideShowSequences -->
 | Function | Returns | Moves |
 |---|---|---|
 | **CursorUp** ( [ *n* ] ) | CSI *n* `A` | up *n* lines |
@@ -70,12 +73,14 @@ con.Restore
 | **CursorShow** | CSI `?25h` | shows the cursor |
 
 *n*, *row* and *col* are **Long** values. *n* of the first six functions is optional and defaults to 1; **CursorColumn** has no default. The numbers of these sequences are counted from 1, whereas [**SetCursorPosition**](cConsole#setcursorposition) of **cConsole** counts from 0, takes the column first, and works on the screen buffer, not the window. **CursorPosition** takes the row first, as the sequence does. The value is written as it is: a negative number or 0 is not checked.
+<!-- /test -->
 
 ## Clearing
 
 ### ClearScreen, ClearLine
 {: .no_toc }
 
+<!-- test: StyleTests.Clear_SequencesAndDefaultMode -->
 Syntax: **ClearScreen** ( [ *mode* ] ) **As String**
 
 Syntax: **ClearLine** ( [ *mode* ] ) **As String**
@@ -84,12 +89,14 @@ Syntax: **ClearLine** ( [ *mode* ] ) **As String**
 : *optional* A **Long**. The default is 2. For **ClearScreen**: 0 clears from the cursor to the end of the screen, 1 from the start to the cursor, 2 the whole screen, and 3 the whole screen and the scrolled-off lines. For **ClearLine**: 0 clears from the cursor to the end of the line, 1 from the start of the line to the cursor, 2 the whole line.
 
 **ClearScreen** returns CSI *mode* `J` and **ClearLine** returns CSI *mode* `K`. They differ from [**Clear**](cConsole#clear) and [**ClearLine**](cConsole#clearline) of **cConsole**, which fill the screen buffer with the tracked colours through the console functions; the sequences clear with the colours that are in force. Whether a console honours mode 3 depends on the console.
+<!-- /test -->
 
 ## Text styles
 
 ### Style functions
 {: .no_toc }
 
+<!-- test: StyleTests.TextStyle_Sequences -->
 | Function | Returns | Effect |
 |---|---|---|
 | **Reset** | CSI `0m` | ends every colour and style |
@@ -103,12 +110,14 @@ Syntax: **ClearLine** ( [ *mode* ] ) **As String**
 | **Strikethrough** | CSI `9m` | struck-through text |
 
 The function for dim text is called **Dim_** because **Dim** is a keyword of the language. Which of these styles a console draws depends on the console: a console may show bold as a brighter colour, or ignore blinking and italics.
+<!-- /test -->
 
 ## Colours
 
 ### Colour functions
 {: .no_toc }
 
+<!-- test: StyleTests.Foreground_ColourCodes, StyleTests.Background_ColourCodes -->
 The 16 colours of the escape sequences. The foreground sequence ends in `m` and begins CSI; the number is the code in the table.
 
 | Colour | Foreground function | Code | Background function | Code |
@@ -132,10 +141,12 @@ The 16 colours of the escape sequences. The foreground sequence ends in `m` and
 | Bright white | **FgBrightWhite** | 97 | **BgBrightWhite** | 107 |
 
 None of these functions has parameters. The order of the colours is that of the ANSI standard, not that of [**ConsoleColor**](Types#consolecolor), whose numbers are those of the Windows console attributes: ANSI red is 1 where **ConsoleColor.DarkRed** is 4. A program that uses both has to map the colours itself.
+<!-- /test -->
 
 ### Fg256, Bg256, FgRGB, BgRGB
 {: .no_toc }
 
+<!-- test: StyleTests.Palette_And_TrueColourSequences, StyleTests.Palette_NumbersAreNotChecked -->
 Syntax: **Fg256** ( *colorIndex* ) **As String**
 
 Syntax: **Bg256** ( *colorIndex* ) **As String**
@@ -151,12 +162,14 @@ Syntax: **BgRGB** ( *r* , *g* , *b* ) **As String**
 : *required* **Long** values, 0 to 255, the red, green and blue parts of a 24-bit colour.
 
 **Fg256** returns CSI `38;5;` *colorIndex* `m` and **Bg256** CSI `48;5;` *colorIndex* `m`. **FgRGB** returns CSI `38;2;` *r* `;` *g* `;` *b* `m` and **BgRGB** CSI `48;2;` *r* `;` *g* `;` *b* `m`. The numbers are written as given and not checked. A console that has no 256-colour or true-colour mode shows the nearest colour or ignores the sequence.
+<!-- /test -->
 
 ## Scrolling
 
 ### ScrollUp, ScrollDown
 {: .no_toc }
 
+<!-- test: StyleTests.Scroll_Sequences -->
 Syntax: **ScrollUp** ( [ *n* ] ) **As String**
 
 Syntax: **ScrollDown** ( [ *n* ] ) **As String**
@@ -165,6 +178,7 @@ Syntax: **ScrollDown** ( [ *n* ] ) **As String**
 : *optional* A **Long**, the number of lines. The default is 1.
 
 **ScrollUp** returns CSI *n* `S`, which scrolls the text up, and **ScrollDown** returns CSI *n* `T`, which scrolls it down.
+<!-- /test -->
 
 ## Window and screen
 
@@ -178,7 +192,9 @@ Syntax: **SetTitle** ( *title* ) **As String**
 *title*
 : *required* A **String**.
 
+<!-- test: StyleTests.SetTitle_Sequence -->
 Returns `ESC ] 0 ;` *title* and the bell character (code 7). The title of the console window can also be set with the [**Title**](cConsole#title) property of **cConsole**, which calls a Windows function and does not need the virtual-terminal mode.
+<!-- /test -->
 
 ### AltScreenOn, AltScreenOff
 {: .no_toc }
@@ -187,7 +203,11 @@ Syntax: **AltScreenOn** **As String**
 
 Syntax: **AltScreenOff** **As String**
 
-**AltScreenOn** returns CSI `?1049h`, which switches to the alternate screen buffer, a second screen that leaves the text of the main one intact; **AltScreenOff** returns CSI `?1049l`, which switches back. The full-screen mode of [**cConsole**](cConsole#enterfullscreenmode) does not use the alternate buffer. In a console with virtual-terminal processing on, **AltScreenOn** shows an empty screen, the text written afterwards goes to it, and **AltScreenOff** brings back the earlier text. A program that wants its picture to vanish when it ends writes **AltScreenOn** first and **AltScreenOff** last.
+<!-- test: StyleTests.AltScreen_Sequences -->
+**AltScreenOn** returns CSI `?1049h`, which switches to the alternate screen buffer, a second screen that leaves the text of the main one intact; **AltScreenOff** returns CSI `?1049l`, which switches back.
+<!-- /test -->
+
+The full-screen mode of [**cConsole**](cConsole#enterfullscreenmode) does not use the alternate buffer. In a console with virtual-terminal processing on, **AltScreenOn** shows an empty screen, the text written afterwards goes to it, and **AltScreenOff** brings back the earlier text. A program that wants its picture to vanish when it ends writes **AltScreenOn** first and **AltScreenOff** last.
 
 ### Hyperlink
 {: .no_toc }
@@ -202,7 +222,9 @@ Syntax: **Hyperlink** ( *url* , *text* ) **As String**
 *text*
 : *required* A **String**, the visible text.
 
+<!-- test: StyleTests.Hyperlink_Sequence -->
 Returns `ESC ] 8 ; ;` *url* and the bell character, then *text*, then `ESC ] 8 ; ;` and the bell character. A console that supports this operating system command (OSC 8) shows *text* as a link; another console shows *text* only, or the characters of the sequence.
+<!-- /test -->
 
 ## Styled text
 
@@ -219,7 +241,9 @@ Syntax: **Styled** ( *text* , *style* ) **As String**
 *style*
 : *required* A **String**, the sequences to put before the text, such as `mConsoleStyle.Bold & mConsoleStyle.FgCyan`.
 
+<!-- test: StyleTests.Styled_WrapsTextInStyleAndReset -->
 Returns *style*, *text* and **Reset**.
+<!-- /test -->
 
 ### Colored
 {: .no_toc }
@@ -237,7 +261,9 @@ Syntax: **Colored** ( *text* , *fgColor* [ , *bgColor* ] ) **As String**
 *bgColor*
 : *optional* A **String**, a background sequence. The default is an empty string, which leaves the background alone.
 
+<!-- test: StyleTests.Colored_ForegroundOnly, StyleTests.Colored_WithBackground, StyleTests.Colored_DoesNotCheckThatTheStringsAreColours -->
 Returns *fgColor*, *bgColor*, *text* and **Reset**. The function does not check that the two strings are colour sequences; any strings are joined.
+<!-- /test -->
 
 ### ColoredRGB
 {: .no_toc }
@@ -255,7 +281,9 @@ Syntax: **ColoredRGB** ( *text* , *fgR* , *fgG* , *fgB* [ , *bgR* [ , *bgG* [ ,
 *bgR*, *bgG*, *bgB*
 : *optional* **Long** values, 0 to 255, the background colour. They default to -1. The background is used only when all three are 0 or more.
 
+<!-- test: StyleTests.ColoredRGB_ForegroundOnly, StyleTests.ColoredRGB_WithBackground, StyleTests.ColoredRGB_BackgroundNeedsAllThreeValues -->
 Returns **FgRGB**, the background sequence when all three background values are given, *text*, and **Reset**.
+<!-- /test -->
 
 ## Text helpers
 
@@ -277,7 +305,9 @@ Syntax: **CenterText** ( *text* , *width* [ , *fillChar* ] ) **As String**
 *fillChar*
 : *optional* A **String** whose first character is used to pad. The default is a space.
 
+<!-- test: StyleTests.CenterText_OddPaddingGivesTheExtraCharacterToTheRight, StyleTests.CenterText_FillCharacterPads, StyleTests.CenterText_LongTextIsCutToTheWidth -->
 Returns a string *width* characters long. The padding on the left is `(width - Len(text)) \ 2` characters, and the rest goes to the right, so an odd amount of padding gives the extra character to the right. Text that is as long as *width* or longer is cut to *width* characters.
+<!-- /test -->
 
 ### LeftAlign
 {: .no_toc }
@@ -286,7 +316,9 @@ Pads text on the right to a width.
 
 Syntax: **LeftAlign** ( *text* , *width* [ , *fillChar* ] ) **As String**
 
+<!-- test: StyleTests.LeftAlign_PadsOnTheRightAndCutsLongText -->
 Parameters as for [**CenterText**](#centertext). Text that is as long as *width* or longer is cut to *width* characters.
+<!-- /test -->
 
 ### RightAlign
 {: .no_toc }
@@ -295,7 +327,9 @@ Pads text on the left to a width.
 
 Syntax: **RightAlign** ( *text* , *width* [ , *fillChar* ] ) **As String**
 
+<!-- test: StyleTests.RightAlign_PadsOnTheLeftAndCutsToTheFirstCharacters -->
 Parameters as for [**CenterText**](#centertext). Text that is as long as *width* or longer is cut to its first *width* characters, not its last.
+<!-- /test -->
 
 ### RepeatStr
 {: .no_toc }
@@ -310,7 +344,9 @@ Syntax: **RepeatStr** ( *s* , *count* ) **As String**
 *count*
 : *required* A **Long**. A value of 0 or less returns an empty string.
 
+<!-- test: StyleTests.RepeatStr_OneCharacterIsRepeated, StyleTests.RepeatStr_LongerStringIsRepeatedWhole -->
 The function is implemented with `String$(count, s)`, which repeats only the first character of *s*. `RepeatStr("ab", 3)` therefore returns `aaa`, and not `ababab`. For a one-character *s* the result is as expected. To repeat a longer string, build it with a loop or with `Replace(Space$(count), " ", s)`.
+<!-- /test -->
 
 ### StripAnsi
 {: .no_toc }
@@ -322,7 +358,9 @@ Syntax: **StripAnsi** ( *text* ) **As String**
 *text*
 : *required* A **String**.
 
+<!-- test: StyleTests.StripAnsi_RemovesColourAndStyleSequences, StyleTests.StripAnsi_SequenceEndingInAnotherLetter_KeepsTheTextAfterIt -->
 The function drops every character from an `ESC` character up to and including the next letter among `m`, `H`, `J`, `K`, `A`, `B`, `C` and `D`, and returns the rest. That covers the colour and style sequences (they end in `m`) and the cursor positioning and clearing sequences of this module that end in one of those letters. A sequence that ends in another letter, such as `l` of **CursorHide** and `h` of **CursorShow**, `s` and `u` of the save and restore, `S` and `T` of the scroll functions, `E`, `F` and `G` of the line functions, `?1049h` of **AltScreenOn**, or the bell character that ends **SetTitle** and **Hyperlink**, is not recognised: the function goes on dropping characters until it meets one of the eight letters, so some of the text that follows is lost too.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print mConsoleStyle.StripAnsi(mConsoleStyle.Colored("Hello", mConsoleStyle.FgRed))
@@ -352,7 +390,9 @@ Syntax: **Truncate** ( *text* , *maxLen* [ , *ellipsis* ] ) **As String**
 *ellipsis*
 : *optional* A **String**, the mark that shows the text was cut. The default is three periods.
 
+<!-- test: StyleTests.Truncate_ShortTextIsReturnedWhole, StyleTests.Truncate_LongTextGetsTheEllipsis, StyleTests.Truncate_WidthNotLargerThanTheEllipsis_ReturnsTheStartOfTheEllipsis -->
 Returns *text* when it is no longer than *maxLen*. Otherwise it returns the first `maxLen - Len(ellipsis)` characters of *text* followed by *ellipsis*; when *maxLen* is not larger than the length of *ellipsis*, it returns the first *maxLen* characters of *ellipsis*.
+<!-- /test -->
 
 ### WordWrap
 {: .no_toc }
@@ -367,7 +407,9 @@ Syntax: **WordWrap** ( *text* , *width* ) **As String**
 *width*
 : *required* A **Long**, the longest line in characters.
 
+<!-- test: StyleTests.WordWrap_BreaksAtSpaces, StyleTests.WordWrap_LongWordIsNotBroken, StyleTests.WordWrap_LineBreaksInsideTheTextBelongToTheWord -->
 Splits *text* at the space characters and joins the words into lines, with a line feed (code 10) between lines. A word that is longer than *width* is not broken; it is put on a line of its own. Other characters, such as line breaks inside *text*, count as part of a word.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim lines() As String
@@ -390,6 +432,7 @@ The module holds **String** constants for drawing text with characters that are
 ### Box-drawing characters
 {: .no_toc }
 
+<!-- test: StyleTests.Characters_BoxDrawing -->
 | Single line | | Double line | |
 |---|---|---|---|
 | **BOX_HORIZONTAL** | U+2500 | **BOX_D_HORIZONTAL** | U+2550 |
@@ -403,10 +446,12 @@ The module holds **String** constants for drawing text with characters that are
 | **BOX_T_TOP** | U+252C | **BOX_D_T_TOP** | U+2566 |
 | **BOX_T_BOTTOM** | U+2534 | **BOX_D_T_BOTTOM** | U+2569 |
 | **BOX_CROSS** | U+253C | **BOX_D_CROSS** | U+256C |
+<!-- /test -->
 
 ### Block, progress and arrow characters
 {: .no_toc }
 
+<!-- test: StyleTests.Characters_BlocksProgressAndArrows -->
 | Constant | Code point | Constant | Code point |
 |---|---|---|---|
 | **BLOCK_FULL** | U+2588 | **ARROW_UP** | U+2191 |
@@ -417,10 +462,12 @@ The module holds **String** constants for drawing text with characters that are
 | **BLOCK_LIGHT** | U+2591 | **ARROW_LEFT_RIGHT** | U+2194 |
 | **BLOCK_MEDIUM** | U+2592 | **PROGRESS_FILLED** | U+2588 |
 | **BLOCK_DARK** | U+2593 | **PROGRESS_EMPTY** | U+2591 |
+<!-- /test -->
 
 ### Symbol characters
 {: .no_toc }
 
+<!-- test: StyleTests.Characters_Symbols -->
 | Constant | Code point | Constant | Code point |
 |---|---|---|---|
 | **CHECK_MARK** | U+2713 | **SQUARE** | U+25A0 |
@@ -428,6 +475,7 @@ The module holds **String** constants for drawing text with characters that are
 | **BULLET** | U+2022 | **STAR** | U+2605 |
 | **DIAMOND** | U+25C6 | **STAR_EMPTY** | U+2606 |
 | **CIRCLE** | U+25CF | **CIRCLE_EMPTY** | U+25CB |
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/Collectors.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/Collectors.md
index 8ce74bff..869dc775 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/Collectors.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/Collectors.md
@@ -10,6 +10,7 @@ has_toc: false
 
 The package has eleven collector classes. Each one finds one kind of information about the computer or its processes, and returns it as a [**DiagnosticResult**](DiagnosticResult) whose items are pairs of text: a key, which is the label of a line of the report, and a value. All eleven implement [**IDiagnosticCollector**](IDiagnosticCollector), so a [**DiagnosticEngine**](DiagnosticEngine) runs them in the same way, and all eleven report that they need no administrator rights. This page describes what each collector reports, the Windows functions it calls, and what it does when the information is missing.
 
+<!-- test: CollectorTests.Collectors_Properties_AreThoseOfTheTable -->
 ```tb check_build check_run
 Dim collectors(0 To 10) As IDiagnosticCollector
 Set collectors(0) = New OSInfoCollector
@@ -41,6 +42,7 @@ Next i
 ' Disk: 2 False
 ' Network: 2 True
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
@@ -172,6 +174,7 @@ The name is derived from the numbers alone, so a version of Windows Server gets
 
 Category `CPU Info`; mode **Static**; no summary. **Description**: `CPU architecture and processor count`.
 
+<!-- test: CollectorTests.CPUInfoCollector_Items_ArePresent -->
 **Keys.**
 
 | Key | Value |
@@ -183,6 +186,7 @@ Category `CPU Info`; mode **Static**; no summary. **Description**: `CPU architec
 | `Page Size` | The size of a memory page, written by [**FormatBytes**](FormatHelper#formatbytes) with no decimals. The text is `4. KB`, with a decimal separator after the number: see [Known problems](.#known-problems-in-version-1001). |
 | `Processor Name` | The text of the registry value `ProcessorNameString`, without leading and trailing spaces. Left out when it is empty or cannot be read. |
 | `Frequency` | The registry value `~MHz` and ` MHz`, such as `3600 MHz`. Left out when it cannot be read. |
+<!-- /test -->
 
 **Windows functions.** `GetNativeSystemInfo` of `kernel32.dll`. For the two registry values, `RegOpenKeyExW`, `RegQueryValueExW` and `RegCloseKey` of `advapi32.dll`, on `HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0`. Only the first processor is read, so the name and the frequency are those of processor 0.
 
@@ -193,6 +197,7 @@ Category `CPU Info`; mode **Static**; no summary. **Description**: `CPU architec
 
 Category `Locale`; mode **Static**; no summary. **Description**: `Regional settings, code pages, and timezone`.
 
+<!-- test: CollectorTests.LocaleCollector_Items_ArePresent -->
 **Keys.**
 
 | Key | Value |
@@ -207,6 +212,7 @@ Category `Locale`; mode **Static**; no summary. **Description**: `Regional setti
 | `OEM Code Page` | `CP` and the number of the OEM code page, such as `CP437`. |
 | `Timezone` | `UTC`, the sign, the hours and, when it is not a whole hour, a colon and two digits of minutes: `UTC+0`, `UTC+1`, `UTC-5`, `UTC+5:30`. |
 | `Timezone Name` | The name of the time zone in standard time. Left out when empty. |
+<!-- /test -->
 
 `Timezone` is built from the **Bias** field of the Windows time-zone record, which is the offset of standard time. The **DaylightBias** field is not read, and neither is the value that tells whether daylight saving time is in effect, so the offset does not change in summer, and `Timezone Name` is the standard-time name all year. On a computer in Central European Summer Time, where the clock is at UTC+2, the items are `Timezone` = `UTC+1` and `Timezone Name` = `W. Europe Standard Time`. See [Known problems](.#known-problems-in-version-1001).
 
@@ -225,7 +231,9 @@ Category `Environment`; mode **Static**; has a summary. **Description**: `System
 
 The value of `PATH` is cut to its first 200 characters when it is longer, and `...` is added.
 
+<!-- test: CollectorTests.EnvironmentCollector_Summary_CountsThePathEntries -->
 **Summary.** The summary result has [**IsSummary**](DiagnosticResult#issummary) set to **True** and the items for `PATH`, `TEMP` and `USERPROFILE`, when they are defined. The value of `PATH` is the number of its entries in the form `(24 entries)`, where an entry is a part between semicolons.
+<!-- /test -->
 
 **Windows functions.** None. The collector reads the variables with the **Environ$** function of the runtime library.
 
@@ -290,7 +298,9 @@ Category `CPU Load`; mode **Dynamic**; no summary. **Description**: `Current CPU
 | `Usage` | The load as a percentage with one decimal place, such as `12.3%`. |
 | `Usage Value` | The same number without the percent sign, such as `12.3`. |
 
+<!-- test: CollectorTests.CPULoadCollector_LaterReading_IsAPercentage, CollectorTests.CPULoadCollector_Reset_MakesTheNextReadingZero -->
 The collector measures the load between two calls. It keeps the idle, kernel and user times that `GetSystemTimes` reported the last time, and the load is `(1 - idle change / (kernel change + user change)) * 100`, limited to the range 0 to 100. The first call of a new object, and the first call after [**Reset**](#reset), has nothing to compare with and reports 0 (`0.0%`). A call in which the counters did not change also gives 0. A program that wants a reading keeps one object and calls it again after some time, as the engine does when it runs the same registered collector a second time.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim cpu As New CPULoadCollector
@@ -339,6 +349,7 @@ The next result reports 0 and starts a new measurement. It is a method of the cl
 
 Category `Memory`; mode **Dynamic**; no summary. **Description**: `Physical and virtual memory status`.
 
+<!-- test: CollectorTests.MemoryInfoCollector_Items_AreTheEightKeysInOrder -->
 **Keys.** The result has these eight items, in this order:
 
 | Key | Value |
@@ -351,6 +362,7 @@ Category `Memory`; mode **Dynamic**; no summary. **Description**: `Physical and
 | `Available Page File` | The part of that limit that is available. |
 | `Total Virtual` | The size of the user-mode address space of the program that runs the collector. |
 | `Available Virtual` | The part of that address space that is free. |
+<!-- /test -->
 
 The sizes are formatted with [**FormatBytes**](FormatHelper#formatbytes).
 
@@ -363,6 +375,7 @@ The sizes are formatted with [**FormatBytes**](FormatHelper#formatbytes).
 
 Category `Uptime`; mode **Dynamic**; no summary. **Description**: `System uptime since last boot`.
 
+<!-- test: CollectorTests.UptimeCollector_Items_AreTheFiveKeysInOrder -->
 **Keys.**
 
 | Key | Value |
@@ -372,6 +385,7 @@ Category `Uptime`; mode **Dynamic**; no summary. **Description**: `System uptime
 | `Total Hours` | The whole number of hours. |
 | `Total Seconds` | The whole number of seconds. |
 | `Boot Time` | The local time at which the system started, as `yyyy-mm-dd hh:nn:ss`. |
+<!-- /test -->
 
 `Boot Time` is calculated: it is the current time less the uptime.
 
@@ -394,7 +408,9 @@ Category `Processes`; mode **Dynamic**; has a summary. **Description**: `Running
 
 The key of a process is `PID ` and its process identifier. The process with the identifier 0 is listed as `[System Process]`.
 
+<!-- test: CollectorTests.ProcessInfoCollector_Summary_HasTheThreeCounts -->
 **Summary.** The summary result has [**IsSummary**](DiagnosticResult#issummary) set to **True** and three items: `Total Processes`, `Total Threads` (the sum of the thread counts of all processes) and `Current PID`.
+<!-- /test -->
 
 **Windows functions.** `CreateToolhelp32Snapshot` with `TH32CS_SNAPPROCESS`, `Process32FirstW`, `Process32NextW` and `CloseHandle`, and `GetCurrentProcessId`, all of `kernel32.dll`. The snapshot lists the processes of all users, and needs no administrator rights.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/DiagnosticEngine.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/DiagnosticEngine.md
index 778bff09..55e10830 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/DiagnosticEngine.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/DiagnosticEngine.md
@@ -49,7 +49,9 @@ Each notification exists twice, as an event and as a callback that a program set
 
 ### A collector that raises an error
 
+<!-- test: EngineTests.RunAll_CollectorRaisesError_RunGoesOnWithTheMessage -->
 A collector that raises a run-time error does not stop the run. The engine takes the text of the error (**Err.Description**), replaces the collector's result with a new, empty result for the same category that holds the text as its [**ErrorMessage**](DiagnosticResult#errormessage), and goes on with the next collector. The number and the source of the error are not kept. The engine raises [**Error**](#error) for it before **CollectorCompleted**, which then reports `success` as **False** and an `itemCount` of 0. [**RunCategory**](#runcategory) and [**RunByRefreshMode**](#runbyrefreshmode) handle an error in the same way.
+<!-- /test -->
 
 A collector that fails without raising an error, such as one whose Windows call returns an error code, returns its own result with **Success** set to **False**. The engine does not call **Error** for it.
 
@@ -189,7 +191,9 @@ Whether a run is in progress.
 
 Syntax: *engine*.**IsRunning** **As Boolean**
 
+<!-- test: EngineTests.IsRunning_BeforeAndAfterARun_IsFalse -->
 Read-only. [**RunAll**](#runall) and [**RunByRefreshMode**](#runbyrefreshmode) set it to **True** when they start and to **False** when their loop over the collectors ends. It is therefore **True** in the handlers of **CollectorStarted**, **Error**, **CollectorCompleted** and the **Progress** events that come before a collector, and **False** in the last **Progress** event (100, `Complete`) and in **AllCompleted**. [**RunCategory**](#runcategory) sets it to **False** before it raises **CollectorCompleted**. A run that a handler starts sets it to **False** when that run ends, while the outer run goes on.
+<!-- /test -->
 
 ### OnCollectorCompleted
 {: .no_toc }
@@ -275,7 +279,9 @@ The results of the last [**RunAll**](#runall).
 
 Syntax: *engine*.**Results** **As List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))**
 
+<!-- test: EngineTests.RunAll_NextRun_EmptiesTheEarlierList, EngineTests.RunAll_ResultsAreInOrderOfRegistration -->
 Read-only. It is the list that **RunAll** fills and returns, not a copy of it. **RunAll** empties it when it starts, so a variable that holds the result of an earlier run is empty or refilled once the next run has started. [**RunCategory**](#runcategory) and [**RunByRefreshMode**](#runbyrefreshmode) do not add to it. Copy the items to a list of the program to keep them.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim engine As New DiagnosticEngine
@@ -334,12 +340,14 @@ Syntax: *engine*.**RegisterCollector** ( *collector* )
 *collector*
 : *required* An object that implements [**IDiagnosticCollector**](IDiagnosticCollector).
 
+<!-- test: EngineTests.RegisterCollector_SameCategory_Raises5, EngineTests.RegisterCollector_Nothing_Raises5, EngineTests.RegisterCollector_CategoryNames_AreCaseSensitive -->
 The collector goes to the end of the list. Registering the same collector twice, or two collectors with the same [**CategoryName**](IDiagnosticCollector#categoryname), is an error.
 
 The method raises error 5 (*Invalid procedure call or argument*) in these cases, with the source `DiagnosticEngine.RegisterCollector`:
 
 - *collector* is **Nothing**. The text is `Collector cannot be Nothing`.
 - A registered collector has the same category name. The text is `Collector already exists: ` and the name. The names are compared with the `=` operator, and the package has no **Option Compare** statement, so the comparison is binary and the letter case matters: `Alpha` and `ALPHA` are two names.
+<!-- /test -->
 
 ```tb check_build check_run projname=diag-engine
 Dim engine As New DiagnosticEngine
@@ -372,7 +380,9 @@ Syntax: *engine*.**RunAll** [ ( *useSummary* ) ] **As List(Of DiagnosticResult(O
 
 Returns the list [**Results**](#results), which holds one result for each collector, in the order of registration. [How a run proceeds](#how-a-run-proceeds) describes the steps and the events. A run with no collector raises **Progress** with 100 and `Complete` and then **AllCompleted** with an empty list.
 
+<!-- test: EngineTests.RunAll_Summary_AsksSummaryCollectorsForTheirSummary -->
 A summary result has [**IsSummary**](DiagnosticResult#issummary) set to **True** when the collector sets it, as the built-in collectors that support a summary do.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim engine As New DiagnosticEngine
@@ -401,7 +411,9 @@ Syntax: *engine*.**RunByRefreshMode** ( *mode* [ , *useSummary* ] ) **As List(Of
 *useSummary*
 : *optional* A **Boolean**, as for [**RunAll**](#runall). Default: **False**.
 
+<!-- test: EngineTests.RunByRefreshMode_RunsOnlyTheCollectorsOfThatMode -->
 Returns a new list with one result for each collector that ran, in the order of registration. The list is not [**Results**](#results), which this method does not change. The method raises **CollectorStarted**, **CollectorCompleted** and **Error** for each collector, and neither **Progress** nor **AllCompleted**. It clears the flag of [**Cancel**](#cancel) when it starts and reads it before each collector, as **RunAll** does.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim engine As New DiagnosticEngine
@@ -437,9 +449,11 @@ Syntax: *engine*.**RunCategory** ( *categoryName* [ , *useSummary* ] ) **As Diag
 *useSummary*
 : *optional* A **Boolean**, as for [**RunAll**](#runall). Default: **False**.
 
+<!-- test: EngineTests.RunCategory_Known_RunsThatCollectorOnly, EngineTests.RunCategory_Unknown_ReturnsAFailedResult -->
 Returns the result of the collector. The result is not added to [**Results**](#results). The method raises **CollectorStarted**, **CollectorCompleted** and **Error**, and neither **Progress** nor **AllCompleted**.
 
 When no collector has the name, the method raises no error and no event. It returns a result for *categoryName* with **Success** set to **False** and the message `Collector not found: ` and the name.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim engine As New DiagnosticEngine
@@ -466,7 +480,9 @@ Syntax: *engine*.**UnregisterCollector** ( *categoryName* )
 *categoryName*
 : *required* A **String**, the category name of the collector to remove.
 
+<!-- test: EngineTests.UnregisterCollector_RemovesTheFirstWithThatName -->
 Removes the first collector with that name. A name that no collector has is ignored without an error. The names are compared as in [**RegisterCollector**](#registercollector), so the letter case matters.
+<!-- /test -->
 
 ## Events
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/Dictionary.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/Dictionary.md
index 0690b531..22fa80f8 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/Dictionary.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/Dictionary.md
@@ -28,7 +28,9 @@ Debug.Print Err.Number
 ' 91
 ```
 
+<!-- test: DictionaryTests.Add_ThenItem_ReturnsTheValue, DictionaryTests.KeysAndValues_ReturnTheListsInOrderOfAdding, DictionaryTests.SetItem_NewKey_AddsItAtTheEnd -->
 The rest of this page describes the members as the source declares them. **Item** is a function, so a value would be read as `ages.Item("Bob")`. The class has no default member and no enumerator: there is no `ages("Bob")`, a value is set with [**SetItem**](#setitem), and the keys are visited with an index loop over [**Keys**](#keys). The keys are compared with the `=` operator.
+<!-- /test -->
 
 The name `Dictionary` is also the name of the class of the Scripting Runtime; see [Using the package with the Scripting Runtime](.#using-the-package-with-the-scripting-runtime). A program that needs a dictionary can use that class.
 
@@ -73,8 +75,10 @@ Adds a key and a value.
 
 Syntax: *dictionary*.**Add** ( *key*, *value* )
 
+<!-- test: DictionaryTests.Add_ExistingKey_Raises457 -->
 *key*
 : *required* A value of type *TKey*. The key must not be there already.
+<!-- /test -->
 
 *value*
 : *required* A value of type *TValue*.
@@ -82,14 +86,18 @@ Syntax: *dictionary*.**Add** ( *key*, *value* )
 ### Clear
 {: .no_toc }
 
+<!-- test: DictionaryTests.Clear_RemovesEveryKey -->
 Removes all keys and values.
+<!-- /test -->
 
 Syntax: *dictionary*.**Clear**
 
 ### ContainsKey
 {: .no_toc }
 
+<!-- test: DictionaryTests.ContainsKey_TellsPresentFromMissing -->
 Tests whether a key is there.
+<!-- /test -->
 
 Syntax: *dictionary*.**ContainsKey** ( *key* ) **As Boolean**
 
@@ -103,8 +111,10 @@ Returns the value of a key.
 
 Syntax: *dictionary*.**Item** ( *key* ) **As TValue**
 
+<!-- test: DictionaryTests.Item_MissingKey_Raises5 -->
 *key*
 : *required* A value of type *TKey*. The key must be there. [**TryGetValue**](#trygetvalue) does not need that.
+<!-- /test -->
 
 ### New
 {: .no_toc }
@@ -125,7 +135,9 @@ Syntax: *dictionary*.**Remove** ( *key* ) **As Boolean**
 *key*
 : *required* A value of type *TKey*.
 
+<!-- test: DictionaryTests.Remove_ExistingKey_RemovesKeyAndValue -->
 Returns **True** when the key was there and is removed, and **False** when it was not. The keys after it move down by one place.
+<!-- /test -->
 
 ### SetItem
 {: .no_toc }
@@ -140,7 +152,9 @@ Syntax: *dictionary*.**SetItem** ( *key*, *value* )
 *value*
 : *required* A value of type *TValue*.
 
+<!-- test: DictionaryTests.SetItem_ExistingKey_ReplacesTheValueInPlace -->
 Replaces the value of a key that is there, and keeps its place. A key that is not there goes to the end.
+<!-- /test -->
 
 ### TryGetValue
 {: .no_toc }
@@ -155,7 +169,9 @@ Syntax: *dictionary*.**TryGetValue** ( *key*, *value* ) **As Boolean**
 *value*
 : *required* A variable of type *TValue*, passed **ByRef**. It receives the value when the key is there, and is not changed when it is not.
 
+<!-- test: DictionaryTests.TryGetValue_Present_ReturnsTrueAndTheValue, DictionaryTests.TryGetValue_Missing_ReturnsFalseAndKeepsTheVariable -->
 Returns **True** when the key was there.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/FileHelper.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/FileHelper.md
index 7a13c51c..ddb9e227 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/FileHelper.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/FileHelper.md
@@ -46,6 +46,7 @@ The files that **WriteFile** and **AppendFile** write are UTF-8 with a byte-orde
 
 A path that is not absolute is taken as relative to the folder of the program, **App.Path**, and not to the current folder. [**GetFullPath**](#getfullpath) makes the full path, and the functions that open, test, read or delete a file call it first. [**EnsureDirectoryExists**](#ensuredirectoryexists) and the functions that take a path apart ([**GetDirectoryName**](#getdirectoryname), [**GetFileName**](#getfilename), [**GetFileNameWithoutExtension**](#getfilenamewithoutextension), [**GetExtension**](#getextension), [**IsAbsolutePath**](#isabsolutepath) and [**NormalizePath**](#normalizepath)) use the text as it is given.
 
+<!-- test: FilePathTests.GetFullPath_RelativePath_StartsAtAppPath -->
 ```tb check_build check_run
 Debug.Print FileHelper.GetFullPath("x.txt") = App.Path & "\x.txt"
 Debug.Print FileHelper.GetFullPath("sub\..\x.txt") = App.Path & "\x.txt"
@@ -55,6 +56,7 @@ Debug.Print FileHelper.GetFullPath("C:\a\..\b\x.txt")
 ' True
 ' C:\b\x.txt
 ```
+<!-- /test -->
 
 ## Methods
 
@@ -71,7 +73,9 @@ Syntax: **FileHelper.AppendFile** ( *content*, *filePath* ) **As Variant**
 *filePath*
 : *required* A **String**, the path of the file, absolute or relative to **App.Path**.
 
+<!-- test: FileHelperTests.AppendFile_NewFile_WritesByteOrderMarkOnce, FileHelperTests.AppendFile_AfterWriteFile_AddsAfterTheContent -->
 Creates the file if it does not exist, and the folder that holds it when only that last folder is missing (see [**EnsureDirectoryExists**](#ensuredirectoryexists)). The file is written in UTF-8. The byte-order mark is written only when the file is empty or new. The content goes after the last byte of the file.
+<!-- /test -->
 
 Returns **True**, or a **String** of the form `Error ` and the number, a colon, the description, and ` (File: ` and the path as the caller gave it, and `)`. The function raises no error.
 
@@ -85,6 +89,7 @@ Syntax: **FileHelper.DeleteFile** ( *filePath* ) **As Boolean**
 *filePath*
 : *required* A **String**, the path of the file, absolute or relative to **App.Path**.
 
+<!-- test: FileHelperTests.DeleteFile_ExistingFile_RemovesIt, FileHelperTests.DeleteFile_MissingFile_ReturnsFalse, FileHelperTests.DeleteFile_Wildcard_DeletesEveryMatch -->
 Calls **Kill** and returns **True**. Returns **False** for any error, a file that does not exist included. The path may hold the wildcards `*` and `?` that **Kill** accepts, and then every file that matches is deleted.
 
 ```tb check_build check_run
@@ -102,6 +107,7 @@ RmDir folder
 ' False
 ' False
 ```
+<!-- /test -->
 
 ### DirectoryExists
 {: .no_toc }
@@ -113,7 +119,9 @@ Syntax: **FileHelper.DirectoryExists** ( *dirPath* ) **As Boolean**
 *dirPath*
 : *required* A **String**, the path of the folder, absolute or relative to **App.Path**.
 
+<!-- test: FileHelperTests.DirectoryExists_File_ReturnsFalse -->
 Returns **True** when **GetAttr** succeeds and reports a folder. A file, or a path that does not exist, gives **False**.
+<!-- /test -->
 
 ### EnsureDirectoryExists
 {: .no_toc }
@@ -125,7 +133,9 @@ Syntax: **FileHelper.EnsureDirectoryExists** ( *path* )
 *path*
 : *required* A **String**, the path of the folder.
 
+<!-- test: FileHelperTests.EnsureDirectoryExists_ExistingFolder_RaisesNoError -->
 Removes one trailing backslash and calls **MkDir**. It ignores every error, so a folder that exists is not an error, and neither is a folder that cannot be created. **MkDir** creates the last level only. When the folder above it does not exist, nothing is created and no error is reported: [**WriteFile**](#writefile) then returns the error text of **Open**, which is `Error -2147467259: Unspecified error` and the path. VB6 raises error 76, *Path not found*, for the same **Open** statement.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim root As String = Environ$("TEMP") & "\diag-new"
@@ -152,7 +162,9 @@ Syntax: **FileHelper.FileExists** ( *filePath* ) **As Boolean**
 *filePath*
 : *required* A **String**, the path of the file, absolute or relative to **App.Path**.
 
+<!-- test: FileHelperTests.FileExists_Folder_ReturnsFalse -->
 Returns **True** when **GetAttr** succeeds and the path is not a folder. A folder, or a path that does not exist, gives **False**.
+<!-- /test -->
 
 ### GetDirectoryName
 {: .no_toc }
@@ -212,7 +224,9 @@ Syntax: **FileHelper.GetFileSize** ( *filePath* ) **As LongLong**
 *filePath*
 : *required* A **String**, the path of the file, absolute or relative to **App.Path**.
 
+<!-- test: FileHelperTests.GetFileSize_ExistingFile_ReturnsItsSize, FileHelperTests.GetFileSize_MissingFolder_ReturnsMinusOne -->
 Opens the file in binary mode and returns the result of **LOF**. Returns -1 when an error occurs, such as a folder that does not exist. The function opens the file with `For Binary`, and that mode creates a file that does not exist, so a missing file in a folder that exists is not an error: it is created with no content and the function returns 0. See [Known problems](.#known-problems-in-version-1001).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim path As String = Environ$("TEMP") & "\diag-missing.bin"
@@ -267,6 +281,7 @@ Changes every slash to a backslash and every run of backslashes to one. It then
 
 Because an empty first part is dropped, a path from the root, such as `\a\b`, loses its first backslash, and so does a UNC path: `\\server\share\f.txt` becomes `server\share\f.txt`, which is a relative path. [**GetFullPath**](#getfullpath) treats such a path as absolute and does not add **App.Path**, so a file in a UNC path is opened as the relative path `server\share\f.txt`. See [Known problems](.#known-problems-in-version-1001).
 
+<!-- test: FilePathTests.NormalizePath_MixedSeparatorsAndDots_IsCleaned, FilePathTests.GetDirectoryName_ReturnsTheFolderPart, FilePathTests.FileNameFunctions_TakeTheNameApart, FilePathTests.IsAbsolutePath_TellsDriveAndUncPathsFromTheRest -->
 ```tb check_build check_run
 Debug.Print FileHelper.NormalizePath("C:/a//b/./c/../d.txt")
 Debug.Print FileHelper.GetDirectoryName("C:\a\b.txt")
@@ -288,6 +303,7 @@ Debug.Print FileHelper.GetFullPath("\\server\share\f.txt")
 ' server\share\f.txt
 ' server\share\f.txt
 ```
+<!-- /test -->
 
 ### ReadFile
 {: .no_toc }
@@ -299,7 +315,9 @@ Syntax: **FileHelper.ReadFile** ( *filePath* ) **As Variant**
 *filePath*
 : *required* A **String**, the path of the file, absolute or relative to **App.Path**.
 
+<!-- test: FileHelperTests.ReadFile_EmptyFile_ReturnsEmptyString, FileHelperTests.ReadFile_MissingFolder_ReturnsErrorText -->
 Returns the content of the file as a **String**, and an empty string for an empty file. When an error occurs, such as a folder that does not exist, it returns an error text in the form that [**AppendFile**](#appendfile) describes. A file that does not exist is not an error: it is created with no content, as for [**GetFileSize**](#getfilesize), and the function returns an empty string, so a missing file and an empty file look the same. See [Known problems](.#known-problems-in-version-1001).
+<!-- /test -->
 
 The function reads the bytes of the file into a string as characters, and does not decode UTF-8 or remove a byte-order mark. A file that [**WriteFile**](#writefile) wrote therefore starts with the three characters of its byte-order mark, and a character above 127 is several characters.
 
@@ -338,7 +356,9 @@ Syntax: **FileHelper.WriteFile** ( *content*, *filePath* ) **As Variant**
 *filePath*
 : *required* A **String**, the path of the file, absolute or relative to **App.Path**.
 
+<!-- test: FileHelperTests.WriteFile_MissingLastFolder_CreatesIt, FileHelperTests.WriteFile_Text_WritesByteOrderMarkAndUtf8, FileHelperTests.WriteFile_Failure_ReturnsTextAndRaisesNoError -->
 Creates the file, and the folder that holds it when only that last folder is missing (see [**EnsureDirectoryExists**](#ensuredirectoryexists)). It writes the byte-order mark and then the text in UTF-8, from the start of the file. Returns **True**, or an error text as [**AppendFile**](#appendfile) describes.
+<!-- /test -->
 
 **WriteFile** opens the file in binary mode and does not shorten it. When the file exists and is longer than the new content, the bytes after the new content stay in the file. See [Known problems](.#known-problems-in-version-1001).
 
@@ -362,7 +382,9 @@ FileHelper.DeleteFile path
 ' 3
 ```
 
+<!-- test: FileHelperTests.WriteFile_EmptyString_WritesByteOrderMarkOnly -->
 An empty string is not an error: the file holds the three bytes of the byte-order mark.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/FormatHelper.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/FormatHelper.md
index 3ba266d4..ee9c8d9b 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/FormatHelper.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/FormatHelper.md
@@ -56,7 +56,9 @@ Syntax: **FormatHelper.EscapeHtml** ( *text* ) **As String**
 *text*
 : *required* A **String**.
 
+<!-- test: FormatHelperTests.EscapeHtml_ReplacesTheFiveCharacters -->
 Replaces `&` with `&amp;`, `<` with `&lt;`, `>` with `&gt;`, `"` with `&quot;` and `'` with `&#39;`, and returns the result. The ampersand is replaced first, so the entities that the other replacements add stay as they are.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print FormatHelper.EscapeHtml("<a href='x'>&</a>")
@@ -74,7 +76,9 @@ Syntax: **FormatHelper.EscapeJson** ( *text* ) **As String**
 *text*
 : *required* A **String**.
 
+<!-- test: FormatHelperTests.EscapeJson_NamedCharacters_AreEscaped -->
 Replaces the backslash with `\\`, the double quote with `\"`, a carriage return with `\r`, a line feed with `\n` and a tab with `\t`. The result is meant to go between double quotes. No other character is changed: the control characters with the codes 1 to 31 other than these three, which JSON requires to be escaped, are returned as they are.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print FormatHelper.EscapeJson("a\b" & vbTab & """q""")
@@ -97,7 +101,9 @@ Syntax: **FormatHelper.FormatBytes** ( *bytes* [ , *decimals* ] ) **As String**
 *decimals*
 : *optional* A **Long**, the number of digits after the decimal separator. Default: 1.
 
+<!-- test: FormatHelperTests.FormatBytes_Decimals_WritesThatManyDigits, FormatHelperTests.FormatBytes_BelowOneKilobyte_IsWholeBytes -->
 The units are 1024 times larger one after the other, and are written `KB`, `MB`, `GB` and `TB`. The function picks the largest unit that is at most the size, divides, and writes the number with *decimals* digits, a space and the unit: `1.5 KB`. A size below 1024 is written in whole bytes as `512 B`, whatever *decimals* is. A size of 1024 TB or more is shown in TB. The number is made with the **Format** function and a pattern of zeros, so the digits are rounded. A negative size is written in bytes.
+<!-- /test -->
 
 With *decimals* set to 0 the pattern is `0.`, and the decimal separator stays in the text: `4. KB` and not `4 KB`. The **Page Size** item of [**CPUInfoCollector**](Collectors#cpuinfocollector) is written this way. See [Known problems](.#known-problems-in-version-1001).
 
@@ -139,6 +145,7 @@ Syntax: **FormatHelper.FormatDateTimeISO** ( *dt* ) **As String**
 
 Returns the form `yyyy-mm-ddThh:nn:ss`, such as `2026-01-04T15:30:00`. It has no time zone and no fraction of a second.
 
+<!-- test: FormatHelperTests.DateFormats_WriteTheDocumentedForms -->
 ```tb check_build check_run
 Dim d As Date = DateSerial(2026, 1, 4) + TimeSerial(15, 30, 45)
 Debug.Print FormatHelper.FormatDateTime(d)
@@ -149,6 +156,7 @@ Debug.Print FormatHelper.FormatTime(d)
 ' 2026-01-04T15:30:45
 ' 15:30:45
 ```
+<!-- /test -->
 
 ### FormatPercent
 {: .no_toc }
@@ -166,7 +174,9 @@ Syntax: **FormatHelper.FormatPercent** ( *value*, *total* [ , *decimals* ] ) **A
 *decimals*
 : *optional* A **Long**, the number of digits after the decimal separator. Default: 0.
 
+<!-- test: FormatHelperTests.FormatPercent_WritesTheShare -->
 Returns *value* divided by *total*, times 100, and `%`. With *decimals* set to 0 the number is made with **CLng**, which rounds a .5 to the even number. When *total* is 0 the function returns `0%`, also when *decimals* is above 0.
+<!-- /test -->
 
 ### FormatPercentValue
 {: .no_toc }
@@ -181,7 +191,9 @@ Syntax: **FormatHelper.FormatPercentValue** ( *percent* [ , *decimals* ] ) **As
 *decimals*
 : *optional* A **Long**, the number of digits after the decimal separator. Default: 0.
 
+<!-- test: FormatHelperTests.FormatPercentValue_RoundsLikeCLng -->
 Returns *percent* and `%`, rounded in the same way as [**FormatPercent**](#formatpercent).
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print FormatHelper.FormatPercent(1, 0, 1)
@@ -217,7 +229,9 @@ Syntax: **FormatHelper.FormatUptime** ( *milliseconds* ) **As String**
 *milliseconds*
 : *required* A **LongLong**, the duration.
 
+<!-- test: FormatHelperTests.FormatUptime_LeavesOutLeadingZeroParts -->
 Returns the duration as `3d 12h 45m 32s`. The days are left out while they are 0, the hours while they and the days are 0, and the minutes while all three are 0. The seconds are always there. Parts of a second are dropped.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print FormatHelper.FormatUptime(0)
@@ -274,7 +288,9 @@ Syntax: **FormatHelper.Truncate** ( *text*, *maxLength* [ , *ellipsis* ] ) **As
 *ellipsis*
 : *optional* A **String** that marks the cut. Default: `...`.
 
+<!-- test: FormatHelperTests.PadAndTruncate_FollowTheirDescriptions -->
 Text of *maxLength* characters or fewer is returned as it is. A longer text is cut so that, with *ellipsis* at the end, it is *maxLength* characters long. When *maxLength* is not above the length of *ellipsis*, the result is the first *maxLength* characters of *ellipsis* alone.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print FormatHelper.PadRight("42", 5, ".")
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/FormatterFactory.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/FormatterFactory.md
index 779eebc1..ce41d092 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/FormatterFactory.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/FormatterFactory.md
@@ -41,7 +41,9 @@ Syntax: **FormatterFactory.CreateFormatter** ( *formatName* ) **As** [**IOutputF
 *formatName*
 : *required* A **String**. The letter case does not matter. `text` and `txt` give a [**TextFormatter**](Formatters#textformatter), `json` a [**JsonFormatter**](Formatters#jsonformatter), and `html` and `htm` an [**HtmlFormatter**](Formatters#htmlformatter).
 
+<!-- test: FormatterTests.CreateFormatter_KnownAndUnknownNames_GiveTheDocumentedFormatter -->
 Returns a new formatter each time. Any other name, including an empty string, gives a **TextFormatter** without an error.
+<!-- /test -->
 
 ### CreateFormatterFromArg
 {: .no_toc }
@@ -53,7 +55,9 @@ Syntax: **FormatterFactory.CreateFormatterFromArg** ( *arg* ) **As** [**IOutputF
 *arg*
 : *required* A **String** such as `/json` or `-html`. The function converts it to lower case, removes one leading slash or hyphen, and passes the rest to [**CreateFormatter**](#createformatter).
 
+<!-- test: FormatterTests.CreateFormatterFromArg_RemovesOneLeadingSlashOrHyphen -->
 The arguments `json` and `/JSON` give a **JsonFormatter**. The argument `--json` has two hyphens and only one is removed, so the function returns a **TextFormatter** for it.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print FormatterFactory.CreateFormatterFromArg("/JSON").FormatterName
@@ -113,7 +117,9 @@ Returns the names of the formats.
 
 Syntax: **FormatterFactory.GetSupportedFormats** **As String**
 
+<!-- test: FormatterTests.GetSupportedFormats_ReturnsTheFixedText -->
 Returns the fixed text `text, json, html`. The short names `txt` and `htm` that [**CreateFormatter**](#createformatter) accepts are not in it.
+<!-- /test -->
 
 ## Delegates
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/Formatters.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/Formatters.md
index 2aab64f4..fc35694d 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/Formatters.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/Formatters.md
@@ -18,12 +18,14 @@ The package has three formatters. Each one turns a list of diagnostic results in
 
 The formatters have these properties in common:
 
+<!-- test: FormatterTests.JsonFormatter_BeginFormat_StartsANewReport -->
 - They only build a string. They do not write a file or a screen. [**FileHelper**](FileHelper) writes the string to a file.
 - The line breaks are **vbCrLf**.
 - One object can make any number of reports, because **BeginFormat** discards what the last report left in it.
 - Each report names the tool as `Twinbasic Diagnostic Tool v1.0`, or, in JSON, as `"toolVersion": "1.0"`. The text is fixed in the code, and is not the version of the package.
 - The JSON and HTML reports give the time at which **BeginFormat** was called. The text report does not.
 - The classes declare the members of the interface as **Public**, so a variable of the class type reaches them by the long names, such as `IOutputFormatter_FormatItem`.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim f As IOutputFormatter
@@ -71,12 +73,14 @@ Path = C:\Tools "x"
 Memory Load = 54%
 ```
 
+<!-- test: FormatterTests.TextFormatter_Layout_IsAnIniFile -->
 - The first line is the title, `# Twinbasic Diagnostic Tool v1.0`, and an empty line follows it.
 - Each group is a line with its name in square brackets, and then a line for each item: the key, a space, an equals sign, a space and the value.
 - A group that has items is followed by an empty line. A group with no items has no empty line after it, and its header line is followed at once by the next one.
 - The report has no time and no closing line.
 - [**FormatResults**](FormatterFactory#formatresults) passes a failed result as one item with the key `Error`, so its group has the line `Error = ` and the message.
 - Nothing is escaped. A key or a value that holds ` = ` or a line break is written as it is, and then a reader cannot always split the text back into keys and values.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim f As IOutputFormatter
@@ -113,6 +117,7 @@ Next i
 
 [**FormatterFactory.CreateFormatter**](FormatterFactory#createformatter) gives a **TextFormatter** for `text`, for `txt` and for every name it does not know. A list of results is formatted with [**FormatResults**](FormatterFactory#formatresults):
 
+<!-- test: FormatterTests.FormatResults_FailedResult_IsOneErrorItem -->
 ```tb check_build check_run
 Dim results As New List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))
 Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
@@ -131,6 +136,7 @@ Debug.Print Replace(text, vbCrLf, "|")
 ' Output:
 ' # Twinbasic Diagnostic Tool v1.0||[Uptime]|Total Days = 3||[Memory]|Error = Failed to get memory status||
 ```
+<!-- /test -->
 
 ## JsonFormatter
 {: .no_toc }
@@ -152,10 +158,12 @@ Writes a report as one JSON object. **FormatterName** is `JSON` and **FileExtens
 }
 ```
 
+<!-- test: FormatterTests.JsonFormatter_Layout_NamesGroupsAndItemsInCamelCase, FormatterTests.JsonFormatter_FailedResult_HasOneErrorMember -->
 - `generatedAt` is the local time at which **BeginFormat** was called, in the form `yyyy-mm-ddThh:nn:ss`, without a time zone.
 - Each group is a member of `categories`, and each item is a member of its group. The name of the group and the key of the item are changed into camel case, as described below, and **every value is a string**, the numbers too: `"processorCount": "8"`.
 - A failed result has one member, `error`, with the message.
 - A group with no items is an empty object.
+<!-- /test -->
 
 The camel-case rule changes the first character to lower case. The characters space, underscore, hyphen and colon are removed, and the character after each of them is changed to upper case. All the other characters stay as they are. The rule does not look at the rest of a word, so a name in capital letters keeps them:
 
@@ -202,7 +210,9 @@ The document declares `<!DOCTYPE html>`, the language `en` and the character set
 
 The style sheet is in the document. It sets a light and a dark colour scheme, which the browser selects with `prefers-color-scheme`, a layout that is at most 900 pixels wide, and a print style. The document has no script and loads nothing from another address.
 
+<!-- test: FormatterTests.HtmlFormatter_Document_IsEscapedAndComplete -->
 The category name, the keys and the values are escaped with [**EscapeHtml**](FormatHelper#escapehtml), which replaces `&`, `<`, `>`, `"` and `'`. A file that is saved from the report should be in UTF-8, which is the character set that the document declares.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim f As IOutputFormatter
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/List.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/List.md
index a178cb76..4e29d464 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/List.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/List.md
@@ -135,6 +135,10 @@ Removes all items.
 
 Syntax: *list*.**Clear**
 
+<!-- test: ListTests.Clear_RemovesEveryItem -->
+Count and Capacity are 0 afterwards.
+<!-- /test -->
+
 ### Contains
 {: .no_toc }
 
@@ -145,7 +149,9 @@ Syntax: *list*.**Contains** ( *item* ) **As Boolean**
 *item*
 : *required* A value of type *T*.
 
+<!-- test: ListTests.Contains_Text_ComparesByValue, ListTests.Contains_Object_FindsIt, ListTests.IndexOf_Object_ReturnsItsPosition, ListTests.Remove_Object_RemovesIt, ListTests.Add_Object_ItemReturnsIt, ListTests.RemoveAt_Object_RemovesIt -->
 Returns **True** when an item is equal to *item*. The items are compared with the `=` operator, so the comparison is by value for text and numbers. For objects the operator compares what an object offers by default, and a class that has no default member makes it raise run-time error 438, *Object doesn't support this property or method*, as soon as the list holds an item to compare. **IndexOf** and **Remove**, which calls **IndexOf**, raise the same error. **Item**, **Add** and **RemoveAt** work with objects.
+<!-- /test -->
 
 ```tb check_build slot=file projname=diag-list
 Class Person
@@ -186,7 +192,9 @@ Syntax: *list*.**IndexOf** ( *item* ) **As Long**
 *item*
 : *required* A value of type *T*.
 
+<!-- test: ListTests.IndexOf_Text_ReturnsZeroBasedIndex -->
 Returns the index of the first item that is equal to *item*, compared as in [**Contains**](#contains), or -1 when there is none.
+<!-- /test -->
 
 ### Insert
 {: .no_toc }
@@ -195,6 +203,7 @@ Inserts an item at a position.
 
 Syntax: *list*.**Insert** ( *index*, *item* )
 
+<!-- test: ListTests.Insert_AtCount_PutsItemLast, ListTests.Insert_OutOfRange_Raises9 -->
 *index*
 : *required* A **Long**, the position of the new item, from 0 to [**Count**](#count). With **Count** the item goes at the end.
 
@@ -202,6 +211,7 @@ Syntax: *list*.**Insert** ( *index*, *item* )
 : *required* A value of type *T*.
 
 Raises error 9 with the source `List(Of T).Insert` and the text `Index out of range: ` and the index, when *index* is below 0 or above **Count**. See the start of the page for the position of the new item and for the empty list.
+<!-- /test -->
 
 ### Item
 {: .no_toc }
@@ -213,7 +223,9 @@ Syntax: *list*.**Item** ( *index* ) **As T**
 *index*
 : *required* A **Long**, from 0 to [**Count**](#count) - 1.
 
+<!-- test: ListTests.Item_OutOfRange_Raises9 -->
 Raises error 9 with the source `List(Of T).Item` and the text `Index out of range: ` and the index, when *index* is outside the list.
+<!-- /test -->
 
 ### New
 {: .no_toc }
@@ -235,7 +247,9 @@ Syntax: *list*.**Remove** ( *item* ) **As Boolean**
 *item*
 : *required* A value of type *T*.
 
+<!-- test: ListTests.Remove_Text_RemovesFirstMatch -->
 Returns **True** when an item was found, with [**IndexOf**](#indexof), and removed. Returns **False** when none is equal to *item*.
+<!-- /test -->
 
 ### RemoveAt
 {: .no_toc }
@@ -247,7 +261,9 @@ Syntax: *list*.**RemoveAt** ( *index* )
 *index*
 : *required* A **Long**, from 0 to [**Count**](#count) - 1.
 
+<!-- test: ListTests.RemoveAt_Text_MovesLaterItemsDown, ListTests.RemoveAt_OutOfRange_Raises9 -->
 The items after it move down by one place. Raises error 9 with the source `List(Of T).RemoveAt` and the text `Index out of range: ` and the index, when *index* is outside the list.
+<!-- /test -->
 
 ### SetItem
 {: .no_toc }
@@ -262,7 +278,9 @@ Syntax: *list*.**SetItem** ( *index*, *item* )
 *item*
 : *required* A value of type *T*.
 
+<!-- test: ListTests.SetItem_InMiddle_ReplacesItem, ListTests.SetItem_AtLastIndex_ReplacesLastItem, ListTests.SetItem_OutOfRange_Raises9 -->
 Removes the item at *index* and adds *item* in its place. Raises error 9 with the source `List(Of T).SetItem` and the text `Index out of range: ` and the index, when *index* is outside the list. See the start of the page for the case of index 0.
+<!-- /test -->
 
 ### ToArray
 {: .no_toc }
@@ -271,7 +289,9 @@ Returns the items as an array.
 
 Syntax: *list*.**ToArray** **As Variant()**
 
+<!-- test: ListTests.ToArray_ReturnsZeroBasedVariantArray, ListTests.ToArray_EmptyList_HasNoBounds -->
 Returns a **Variant** array whose first element has the index 0. For an empty list it returns an array that has no bounds, and **UBound** and **LBound** raise error 9 for it.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim names As New List(Of String)
diff --git a/docs/Reference/Contributed/TBMANLIB_Diagnostic/index.md b/docs/Reference/Contributed/TBMANLIB_Diagnostic/index.md
index ba316a8b..b7e7794f 100644
--- a/docs/Reference/Contributed/TBMANLIB_Diagnostic/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_Diagnostic/index.md
@@ -69,6 +69,7 @@ A result can also be read directly, without a formatter. Each [item](KeyValuePai
 ## What a report contains
 {: #what-a-report-contains }
 
+<!-- test: ReportContentTests.FullReport_OperatingSystem_NamesTheUserAndTheComputer, ReportContentTests.FullReport_Environment_NamesTheProfileFolderAndThePath, ReportContentTests.FullReport_Processes_ListsEveryRunningProgram, ReportContentTests.FullReport_Disks_ListsTheSystemDrive, ReportContentTests.FullReport_Network_NamesTheHostAndTheFirstAdapterWithItsAddress, ReportContentTests.FullReport_RunAll_HasOneResultForEachCollector -->
 > [!NOTE] timeless
 > A full report names the user and the computer, the folders in the environment variables such as `USERPROFILE` and `PATH`, every running program, the drives, and the names and IPv4 addresses of the network adapters. Read a report before it goes to someone else.
 
@@ -126,6 +127,7 @@ The package has four modules whose contents a program has no need for:
 
 ## Known problems in version 1.0.0.1
 
+<!-- test: ListTests.Insert_InMiddle_PutsItemAtIndex, ListTests.Insert_AtZero_PutsItemFirst, ListTests.SetItem_AtZero_ReplacesFirstItem, ListTests.SetItem_AtZeroOnOneItemList_ReplacesTheItem, FileHelperTests.WriteFile_OverExistingLongerFile_ShortensIt, FileHelperTests.ReadFile_MissingFile_DoesNotCreateIt, FileHelperTests.ReadFile_MissingFile_ReturnsErrorText, FileHelperTests.GetFileSize_MissingFile_ReturnsMinusOne, FileHelperTests.GetFileSize_MissingFile_DoesNotCreateIt, FileHelperTests.ReadFile_WrittenText_IsReadBackAsWritten, FileHelperTests.ReadFile_WrittenText_HasNoByteOrderMark, FilePathTests.NormalizePath_UncPath_KeepsItsTwoBackslashes, FilePathTests.GetFullPath_UncPath_StaysAUncPath, FormatHelperTests.EscapeJson_ControlCharacters_AreEscaped, FormatterTests.JsonFormatter_ControlCharacterInValue_IsEscaped, FormatterTests.JsonFormatter_ControlCharacterInKey_IsEscaped, FormatHelperTests.FormatBytes_NoDecimals_LeavesNoDecimalSeparator, CollectorTests.CPUInfoCollector_PageSize_HasNoDecimalSeparator, CollectorTests.NetworkInfoCollector_FullReport_ListsEveryAdapter -->
 > [!WARNING] 1.0.0.1
 > The package gives a wrong result without an error, or loses data, in these cases.
 >
@@ -136,9 +138,13 @@ The package has four modules whose contents a program has no need for:
 > - **[NormalizePath](FileHelper#normalizepath) and [GetFullPath](FileHelper#getfullpath) turn a UNC path into a relative one.** `\\server\share\f.txt` becomes `server\share\f.txt`, and the file functions then open a file of that relative name.
 > - **[EscapeJson](FormatHelper#escapejson) leaves the control characters 1 to 31, other than line feed, carriage return and tab, unescaped**, so [**JsonFormatter**](Formatters#jsonformatter) can write JSON that a parser rejects.
 > - **[FormatBytes](FormatHelper#formatbytes) with no decimals leaves the decimal separator in the text**, as in `4. KB`. The `Page Size` item of [**CPUInfoCollector**](Collectors#cpuinfocollector) is written this way.
-> - **[LocaleCollector](Collectors#localecollector) reports the offset of standard time as `Timezone` all year.** In summer time the item is behind the clock by the daylight saving offset: `UTC+1` where the clock is at UTC+2, as in Central European Summer Time.
 > - **[NetworkInfoCollector](Collectors#networkinfocollector) lists the first adapter only in a 64-bit program.** It reads the adapters in steps of 640 bytes, and the records are 704 bytes apart in a 64-bit program. The summary may then have no `Primary IP`. A 32-bit program lists every adapter.
 
+<!-- test: none -- the defect shows only while daylight saving time is in effect, so no case gives the same verdict all year -->
+> [!WARNING] 1.0.0.1
+> **[LocaleCollector](Collectors#localecollector) reports the offset of standard time as `Timezone` all year.** In summer time the item is behind the clock by the daylight saving offset: `UTC+1` where the clock is at UTC+2, as in Central European Summer Time.
+
+<!-- test: DictionaryTests.New_CreatesAnEmptyDictionary, ListTests.Contains_Object_FindsIt, ListTests.IndexOf_Object_ReturnsItsPosition, ListTests.Remove_Object_RemovesIt, ListTests.Insert_AtZeroOnEmptyList_AddsItem, FileHelperTests.WriteFile_MissingParentFolders_CreatesThem, FileHelperTests.AppendFile_MissingParentFolders_CreatesThem -->
 > [!NOTE] 1.0.0.1
 > The package has these other problems. Each raises an error.
 >
@@ -147,7 +153,9 @@ The package has four modules whose contents a program has no need for:
 > - **[List.Insert](List#insert) with the index 0 raises error 5 on an empty list.**
 > - **[WriteFile](FileHelper#writefile) and [AppendFile](FileHelper#appendfile) make only the last folder of a path.** For a path whose parent folder is missing they return the error text `Error -2147467259: Unspecified error` and the path. The **Open** statement raises error 76, *Path not found*, for it in VB6.
 
+<!-- test: CollectorTests.CPULoadCollector_FirstReading_IsZero, FormatterTests.JsonFormatter_EveryValue_IsAString, FormatterTests.JsonFormatter_NamesInCapitals_KeepTheirCapitals -->
 Two behaviours follow from the code and can look like defects. [**CPULoadCollector**](Collectors#cpuloadcollector) reports 0 for its first reading, because it measures between two calls. [**JsonFormatter**](Formatters#jsonformatter) writes every value as a string and turns `PATH` into `pATH`.
+<!-- /test -->
 
 ## Pages
 
@@ -182,3 +190,7 @@ Two behaviours follow from the code and can look like defects. [**CPULoadCollect
 - [TBMANLIB](../TBMANLIB/) package -- the toolkit of the same author
 - [VBA_JSON](../VBA_JSON/) package -- reads JSON, such as the report that **JsonFormatter** writes
 - [Importing a package from TWINSERV](../../../../Features/Packages/Importing-TWINSERV) -- adding a published package to a project
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB_Diagnostic-tests.twinproj](TBMANLIB_Diagnostic-tests.twinproj), a twinBASIC project. It uses TBMANLIB_Diagnostic as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/AddFilter.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/AddFilter.md
index f2783770..64671a5c 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/AddFilter.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/AddFilter.md
@@ -23,11 +23,13 @@ Syntax: *object*.**AddFilter** ( *strDescription*, *strExtension* )
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.AddFilter_JoinsPairsWithPipes, CDialogPropertyTests.AddFilter_PipeInArgumentAddsAnElement -->
 **AddFilter** appends `description|pattern` to the text of **Filter**, with a `|` in front of it when **Filter** is not empty. The first pair added is the one that the dialog selects when it opens.
 
 A filter with one pair gives a file-type list with one item. Despite its name, *strExtension* is a pattern, and the class uses the text as it is: it adds no `*.` in front. Write the pattern in the form that the Windows documentation of `OPENFILENAME` gives, such as `*.txt`.
 
 The class does not check the arguments. A `|` in either one adds an element, so the later elements are no longer paired correctly.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ClearFilter.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ClearFilter.md
index 72858c90..ff101322 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ClearFilter.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ClearFilter.md
@@ -17,7 +17,9 @@ Syntax: *object*.**ClearFilter**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.ClearFilter_EmptiesTheFilter -->
 **ClearFilter** sets **Filter** to an empty string, as `dlg.Filter = ""` does. The four `Set...Filters` methods call it first, so each of them replaces the filter.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/CreatePrompt.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/CreatePrompt.md
index 21c981af..a522392b 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/CreatePrompt.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/CreatePrompt.md
@@ -20,11 +20,13 @@ Syntax: *object*.**CreatePrompt** [ = *boolean* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowOpen_CreatePromptAsksBeforeAcceptingAMissingName -->
 Only [**ShowOpen**](ShowOpen) uses the property. [**ShowSave**](ShowSave) never sets `OFN_CREATEPROMPT`, and [**ShowBrowseForFolder**](ShowBrowseForFolder) ignores the property.
 
 When the user types the name of a file that does not exist, such as `nosuch.txt`, the box *This file doesn't exist. Create the file?* appears, with the buttons *Yes* and *No*. *Yes* closes the dialog and returns the path. *No* leaves the dialog open. This happens whether [**FileMustExist**](FileMustExist) is **True** or **False**, so the question takes the place of the *File not found* box that **FileMustExist** shows.
 
 The file is not created: neither the dialog nor the class creates it, and the program has to do so.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/DefaultExt.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/DefaultExt.md
index c79e4012..6d20f939 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/DefaultExt.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/DefaultExt.md
@@ -20,6 +20,7 @@ Syntax: *object*.**DefaultExt** [ = *string* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowSave_DefaultExtIsAddedToANameTypedWithoutOne, CDialogDialogTests.ShowSave_DefaultExtWithAPeriodGivesTwoPeriods, CDialogDialogTests.ShowSave_NoDefaultExtAddsNothing -->
 [**ShowOpen**](ShowOpen) and [**ShowSave**](ShowSave) pass the text as the `lpstrDefExt` member of `OPENFILENAME`. [**ShowBrowseForFolder**](ShowBrowseForFolder) ignores it.
 
 Windows appends the extension to a name that the user types without one. Write the extension without a period. The class does not change the text, and does not take an extension from the selected pair of [**Filter**](Filter).
@@ -33,6 +34,7 @@ In the Save As dialog, with the user typing `out`:
 | An empty string | `<dir>\out` |
 
 `<dir>` is the folder of the dialog. A period in **DefaultExt** is kept, and gives a name with two periods. An empty **DefaultExt** appends nothing.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/DialogTitle.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/DialogTitle.md
index 17b8608f..23c2a470 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/DialogTitle.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/DialogTitle.md
@@ -20,9 +20,11 @@ Syntax: *object*.**DialogTitle** [ = *string* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowOpen_DialogTitleIsTheCaption, CDialogDialogTests.ShowSave_DialogTitleAndDefaultCaption -->
 [**ShowOpen**](ShowOpen) and [**ShowSave**](ShowSave) pass the text as the `lpstrTitle` member of `OPENFILENAME`, the text of the title bar. With an empty **DialogTitle** the Open dialog is titled *Open* and the Save As dialog *Save As*. A text that is set replaces the title.
 
 [**ShowBrowseForFolder**](ShowBrowseForFolder) passes the text as the `lpszTitle` member of `BROWSEINFO`. The title bar of that dialog always reads *Browse For Folder* (*Browse for Folder* when [**NewDialogStyle**](NewDialogStyle) is **False**), and **DialogTitle** is shown as a line of text above the tree of folders, as an instruction to the user. With an empty **DialogTitle** there is no text there.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/FileMustExist.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/FileMustExist.md
index 5ccf31f3..2d8d504c 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/FileMustExist.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/FileMustExist.md
@@ -20,11 +20,13 @@ Syntax: *object*.**FileMustExist** [ = *boolean* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowOpen_FileMustExistRefusesAMissingName, CDialogDialogTests.ShowOpen_WithoutFileMustExistReturnsAMissingName -->
 Only [**ShowOpen**](ShowOpen) uses the property. [**ShowSave**](ShowSave) never sets `OFN_FILEMUSTEXIST`, and Windows documents the flag for Open dialogs only, so **FileMustExist** has no effect on a Save As dialog. [**ShowBrowseForFolder**](ShowBrowseForFolder) ignores it too.
 
 With **True**, a name that the user types and that does not exist, such as `nosuch.txt`, makes Windows show the box *File not found. Check the file name and try again.*, and the Open dialog stays open. Windows documents that the flag also applies `OFN_PATHMUSTEXIST`. With **False**, **ShowOpen** returns the path of a file that does not exist, and does not create the file, so the caller has to be ready to meet a missing file.
 
 With [**CreatePrompt**](CreatePrompt) **True**, the question of that property is asked in place of the box, whether **FileMustExist** is **True** or **False**.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/FileName.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/FileName.md
index ac270089..b1eb02a6 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/FileName.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/FileName.md
@@ -20,6 +20,7 @@ Syntax: *object*.**FileName** [ = *string* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowSave_FileNameIsShownInTheNameBox, CDialogDialogTests.ShowOpen_ReturnsTheFullPathAndStoresItInFileName, CDialogDialogTests.ShowOpen_CancelReturnsAnEmptyStringAndKeepsFileName, CDialogDialogTests.ShowOpen_MultiSelectOfTwoFilesReturnsAnArray, CDialogDialogTests.ShowOpen_FileNameIsPassedAsTheNextInitialName, CDialogPropertyTests.ShowSave_FileNameOf261CharactersRaisesError5, CDialogPropertyTests.ShowSave_FileNameOf260CharactersShowsNoDialog, CDialogPropertyTests.ShowSave_FileNameOf259CharactersOpensTheDialog -->
 **Before a dialog.** [**ShowOpen**](ShowOpen) and [**ShowSave**](ShowSave) copy the text into the buffer that Windows uses for the `lpstrFile` member of `OPENFILENAME`, which initialises the File name box. The Save As dialog shows an empty box for an empty **FileName** and `x.txt` for `x.txt`. [**ShowSave**](ShowSave) pads the buffer with spaces, and the dialog does not show the padding.
 
 **After a dialog.** A **ShowSave** or **ShowOpen** that the user confirms stores the path it returns in **FileName**. For a [**MultiSelect**](MultiSelect) selection of several files, which **ShowOpen** returns as an array, **FileName** becomes an empty string. A cancelled dialog leaves **FileName** as it was, and [**ShowBrowseForFolder**](ShowBrowseForFolder) neither reads nor changes it.
@@ -28,6 +29,7 @@ Syntax: *object*.**FileName** [ = *string* ]
 > Because a confirmed dialog stores the full path, the next **ShowOpen** or **ShowSave** passes that path as the initial file name. Set **FileName** to an empty string, or call [**Reset**](Reset), to start without it.
 
 **Length.** The buffer of **ShowSave** holds 260 characters. A **FileName** of up to 259 characters opens the dialog normally. A **FileName** of exactly 260 characters shows no dialog and returns an empty string at once, without an error, as a cancel does. A **FileName** of 261 characters or more raises run-time error 5, *Invalid procedure call or argument*, before any dialog. The buffer of **ShowOpen** holds 260 characters, or 32,768 when **FileName** is not empty or [**MultiSelect**](MultiSelect) is **True**. A **FileName** of 32,768 characters or more is not used by **ShowOpen**.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/Filter.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/Filter.md
index ff71ac9c..587d7a06 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/Filter.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/Filter.md
@@ -20,11 +20,13 @@ Syntax: *object*.**Filter** [ = *string* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowOpen_FilterFillsTheFileTypeList -->
 The syntax is that of the **Filter** property of VB6's **CommonDialog** control. A pattern is a file name pattern with wildcards, such as `*.txt`. Several patterns of one pair are separated by semicolons: `*.jpg;*.jpeg`.
 
 [**ShowOpen**](ShowOpen) and [**ShowSave**](ShowSave) replace every `|` with a null character and add one more null character at the end, which is the layout of the `lpstrFilter` member of `OPENFILENAME`. The file-type list holds the descriptions in the order of the pairs, and the first pair is selected when the dialog opens (`nFilterIndex` is 1). The class does not report the pair that the user chooses. [**ShowBrowseForFolder**](ShowBrowseForFolder) ignores the property.
 
 The class does not check the string. A `|` inside a description or a pattern starts a new element, and moves every later element one place, so the pairs no longer fit. [**AddFilter**](AddFilter) and the four `Set...Filters` methods build the string in pairs, unless an argument of **AddFilter** contains a `|`.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileExtension.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileExtension.md
index 5837fc34..1612789d 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileExtension.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileExtension.md
@@ -20,8 +20,11 @@ Syntax: *object*.**GetFileExtension** ( *strFullPath* ) **As String**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.GetFileExtension_ReturnsThePartFromTheLastPeriod -->
 **GetFileExtension** returns the extension with its period: `.txt` for `C:\Docs\summary.txt`. A string with no period gives an empty string. Of `archive.tar.gz` only `.gz` is returned, and a name that ends with a period gives `.`.
+<!-- /test -->
 
+<!-- test: CDialogPropertyTests.GetFileExtension_PeriodInAFolderNameIsTakenForAnExtension -->
 > [!NOTE] 1.1.0.0
 > The method searches the whole string for the last period, not the file name only. A period in a folder name is taken for the start of an extension when the file name has none: `C:\my.dir\notes` gives `.dir\notes`. [**GetFileNameWithoutExt**](GetFileNameWithoutExt) looks in the file name only, and gives `notes` for the same path.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileName.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileName.md
index ff6e8fcf..12c10016 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileName.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileName.md
@@ -20,6 +20,7 @@ Syntax: *object*.**GetFileName** ( *strFullPath* ) **As String**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.GetFileName_ReturnsThePartAfterTheLastBackslash -->
 **GetFileName** returns the file name of a path, with its extension: the name in `C:\Docs\summary.txt` is `summary.txt`.
 
 - Only the backslash separates folders. A forward slash is an ordinary character, so a path written with forward slashes is returned unchanged.
@@ -27,6 +28,7 @@ Syntax: *object*.**GetFileName** ( *strFullPath* ) **As String**
 - A string that ends with a backslash, such as `C:\Docs\`, gives an empty string.
 
 The method works on text only. It does not check that the file exists, and it reads no property of the object.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileNameWithoutExt.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileNameWithoutExt.md
index 9658f32a..0b5978d9 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileNameWithoutExt.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFileNameWithoutExt.md
@@ -20,6 +20,7 @@ Syntax: *object*.**GetFileNameWithoutExt** ( *strFullPath* ) **As String**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.GetFileNameWithoutExt_RemovesTheLastExtension -->
 **GetFileNameWithoutExt** takes the part of the string after the last backslash, as [**GetFileName**](GetFileName) does, and removes everything from the last period of that part. `C:\Docs\summary.txt` gives `summary`. The period is searched in the file name only, so a period in a folder name has no effect: `C:\my.dir\notes` gives `notes`.
 
 - Only the last extension is removed: `archive.tar.gz` gives `archive.tar`.
@@ -28,6 +29,7 @@ Syntax: *object*.**GetFileNameWithoutExt** ( *strFullPath* ) **As String**
 - A name that starts with a period and has no other gives an empty string: `.gitignore` gives an empty string.
 
 The method works on text only. It does not check that the file exists, and it reads no property of the object.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFilePath.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFilePath.md
index 481ba53e..056907c4 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFilePath.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/GetFilePath.md
@@ -20,6 +20,7 @@ Syntax: *object*.**GetFilePath** ( *strFullPath* ) **As String**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.GetFilePath_ReturnsThePartBeforeTheLastBackslash -->
 **GetFilePath** returns the folder of a file path, without a trailing backslash: the folder of `C:\Docs\summary.txt` is `C:\Docs`, and that of a file in the root of a drive is `C:`, without the backslash.
 
 - Only the backslash separates folders. A forward slash is an ordinary character, so a path written with forward slashes is returned unchanged.
@@ -27,6 +28,7 @@ Syntax: *object*.**GetFilePath** ( *strFullPath* ) **As String**
 - A string that ends with a backslash loses it: `C:\Docs\` gives `C:\Docs`. A string that starts with its only backslash gives an empty string.
 
 The method works on text only. It does not check that the folder exists, and it reads no property of the object.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/InitialDir.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/InitialDir.md
index 86cca290..37e2ced6 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/InitialDir.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/InitialDir.md
@@ -24,6 +24,7 @@ Syntax: *object*.**InitialDir** [ = *string* ]
 
 [**ShowBrowseForFolder**](ShowBrowseForFolder) does not use **InitialDir**. Its dialog opens with the folder of the user's profile selected, whatever **InitialDir** holds.
 
+<!-- test: CDialogDialogTests.ShowBrowseForFolder_ReturnsTheTypedFolderAndStoresItInInitialDir, CDialogDialogTests.ShowBrowseForFolder_CancelReturnsAnEmptyStringAndKeepsInitialDir -->
 > [!NOTE] 1.1.0.0
 > A **ShowBrowseForFolder** that the user confirms replaces **InitialDir** with the folder it returns, a path typed into the edit box of the dialog included. A **ShowOpen** or **ShowSave** after it is given that folder as its starting folder. Set **InitialDir** again if that is not wanted.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/MultiSelect.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/MultiSelect.md
index 4b001e25..cc58d144 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/MultiSelect.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/MultiSelect.md
@@ -20,6 +20,7 @@ Syntax: *object*.**MultiSelect** [ = *boolean* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowOpen_MultiSelectOfTwoFilesReturnsAnArray, CDialogDialogTests.ShowOpen_MultiSelectOfOneFileReturnsAString -->
 Only [**ShowOpen**](ShowOpen) uses the property. [**ShowSave**](ShowSave) and [**ShowBrowseForFolder**](ShowBrowseForFolder) ignore it.
 
 With **MultiSelect** **True**, **ShowOpen** gives Windows a buffer of 32,768 characters, in place of 260. The class also always sets `OFN_EXPLORER`, so Windows fills the buffer with the folder, then the name of each selected file, each ended by a null character, and one more null character at the end. When the user selects one file, the buffer holds its full path, with no separator.
@@ -27,6 +28,7 @@ With **MultiSelect** **True**, **ShowOpen** gives Windows a buffer of 32,768 cha
 When the user selects one file, **ShowOpen** returns its full path as a **String**. When the user selects two or more, it returns an array of **String** values, one full path for each file, in the order in which the names stand in the File name box. The array is 0-based. [**FileName**](FileName) is an empty string after a selection of several files. A program can tell the two results apart with **IsArray**, and [**SelectFiles**](SelectFiles) hides the difference by returning a **Collection** in both cases.
 
 [**SelectAndOpenFile**](SelectAndOpenFile) opens each file of an array.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/NewDialogStyle.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/NewDialogStyle.md
index bd0bef88..0b311096 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/NewDialogStyle.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/NewDialogStyle.md
@@ -20,6 +20,7 @@ Syntax: *object*.**NewDialogStyle** [ = *boolean* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowBrowseForFolder_OldStyleHasNoEditBox -->
 Only **ShowBrowseForFolder** uses the property. [**ShowOpen**](ShowOpen) and [**ShowSave**](ShowSave) ignore it.
 
 `BIF_USENEWUI` is the constant `BIF_NEWDIALOGSTYLE Or BIF_EDITBOX`. With **True**, the dialog is titled *Browse For Folder*, can be resized, and has an edit box, in which the user can type the path of a folder, and a *Make New Folder* button. It opens with the folder of the user's profile selected, whatever [**InitialDir**](InitialDir) holds. A path typed into the edit box and confirmed with *OK* is returned, and is stored in **InitialDir**.
@@ -27,6 +28,7 @@ Only **ShowBrowseForFolder** uses the property. [**ShowOpen**](ShowOpen) and [**
 With **False**, **ShowBrowseForFolder** sets only `BIF_RETURNONLYFSDIRS`, which it always sets, and the dialog has the old style: it is titled *Browse for Folder*, has no edit box and no *Make New Folder* button, selects *This PC* when it opens, and keeps *OK* disabled until the user selects a folder of the file system.
 
 The Windows documentation of `SHBrowseForFolder` requires COM to be initialised before the call, with apartment threading if the program calls `CoInitializeEx`, and says that the call fails when `BIF_NEWDIALOGSTYLE` is passed and COM is initialised as multithreaded.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/NoChangeDir.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/NoChangeDir.md
index 6de31947..382bfe00 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/NoChangeDir.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/NoChangeDir.md
@@ -20,9 +20,11 @@ Syntax: *object*.**NoChangeDir** [ = *boolean* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowOpen_NoChangeDirKeepsTheCurrentFolder -->
 [**ShowOpen**](ShowOpen) and [**ShowSave**](ShowSave) use the property. [**ShowBrowseForFolder**](ShowBrowseForFolder) ignores it.
 
 The current folder is the one that **CurDir** returns, and that relative paths are resolved against. With **False**, the current folder is the folder of the chosen file after **ShowOpen** or **ShowSave**. With **True** it stays as it was. The flag works for both dialogs. The Windows documentation of `OFN_NOCHANGEDIR` calls it ineffective for `GetOpenFileName`, but it is effective for **ShowOpen**.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/OpenFile.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/OpenFile.md
index 625b3cf0..352c1b3f 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/OpenFile.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/OpenFile.md
@@ -37,10 +37,13 @@ The Windows documentation of `ShellExecute` lists the other values.
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.OpenFile_NonexistentFileReturns2 -->
 **OpenFile** calls `ShellExecuteW`, the Unicode form of `ShellExecute`, so a path with any character is passed intact. It passes no owner window, no parameters and no working folder, and shows the program's window normally (`SW_SHOWNORMAL`). The method raises no error: the return value is the only report. A path that does not exist returns 2 and shows no message.
+<!-- /test -->
 
 For a program, the verb `open` starts the program. For a document, it starts the program that Windows associates with the document. For a folder, it opens the folder in File Explorer.
 
+<!-- test: none -- the call opens a File Explorer window, which a test case never does -->
 > [!NOTE] 1.1.0.0
 > An empty *strFilePath* is not an error. `OpenFile("")` returns 42, which is above 32 and looks like success, and opens a File Explorer window on the current folder of the program.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/OverwritePrompt.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/OverwritePrompt.md
index 8e18dfcf..858989b7 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/OverwritePrompt.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/OverwritePrompt.md
@@ -20,11 +20,13 @@ Syntax: *object*.**OverwritePrompt** [ = *boolean* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowSave_OverwritePromptAsksBeforeReplacing, CDialogDialogTests.ShowSave_NoToTheQuestionLeavesTheDialogOpen, CDialogDialogTests.ShowSave_WithoutOverwritePromptReturnsAnExistingName -->
 [**ShowSave**](ShowSave) uses the property. With **True** and a file that exists, the box *Confirm Save As* asks *name already exists. Do you want to replace it?*, with the buttons *Yes* and *No*. *Yes* returns the path. *No* leaves the Save As dialog open. With **False** there is no box, and the dialog returns the path.
 
 The dialog only returns the name. The class does not create, replace or check a file.
 
 [**ShowOpen**](ShowOpen) passes the flag too, and the Windows documentation describes `OFN_OVERWRITEPROMPT` for Save As only. [**ShowBrowseForFolder**](ShowBrowseForFolder) ignores the property.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/PathCombine.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/PathCombine.md
index 3f0c93ae..f1415181 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/PathCombine.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/PathCombine.md
@@ -23,6 +23,7 @@ Syntax: *object*.**PathCombine** ( *strPath1*, *strPath2* ) **As String**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.PathCombine_JoinsWithOneBackslash -->
 **PathCombine** returns *strPath1* and *strPath2* with exactly one backslash between them, so it does not matter whether *strPath1* ends with a backslash or *strPath2* starts with one. The method follows these steps, in order:
 
 1. An empty *strPath1* returns *strPath2* as it is, and an empty *strPath2* returns *strPath1* as it is. Two empty strings give an empty string.
@@ -42,6 +43,7 @@ Syntax: *object*.**PathCombine** ( *strPath1*, *strPath2* ) **As String**
 | `C:\a\\` | `b` | `C:\a\\b` |
 
 The method works on text only. It does not check that a folder or a file exists, and it does not resolve `..` or `.`. A forward slash is an ordinary character: `a/` and `b` give `a/\b`, and `http://x/y` after `C:\a` gives `C:\a\http://x/y`. Only one backslash is removed from each side, so a doubled backslash stays. A *strPath2* with a drive letter but no backslash after the colon (`D:b`) is not absolute and is joined like any other name. [**cDialogEx**](../cDialogEx#pathcombine) has the same method.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/PathMustExist.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/PathMustExist.md
index 6338c378..e25f79d6 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/PathMustExist.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/PathMustExist.md
@@ -20,9 +20,11 @@ Syntax: *object*.**PathMustExist** [ = *boolean* ]
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowOpen_PathMustExistRefusesAMissingFolder -->
 [**ShowOpen**](ShowOpen) and [**ShowSave**](ShowSave) use the property. With **True**, a path that the user types and that does not exist makes Windows show a warning in a message box, and the dialog stays open. [**ShowBrowseForFolder**](ShowBrowseForFolder) ignores the property.
 
 In an Open dialog, [**FileMustExist**](FileMustExist) **True** sets `OFN_FILEMUSTEXIST`, which Windows documents as implying `OFN_PATHMUSTEXIST`. **ShowOpen** with **FileMustExist** **True** therefore checks the path whatever **PathMustExist** holds.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SelectAndOpenFile.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SelectAndOpenFile.md
index 559f0978..c1940578 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SelectAndOpenFile.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SelectAndOpenFile.md
@@ -22,9 +22,11 @@ Returns a **LongPtr** (a **Long** in a 32-bit program, a **LongLong** in a 64-bi
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.SelectAndOpenFile_CancelReturnsZero, CDialogDialogTests.SelectAndOpenFile_OneMissingFileReturnsWhatOpenFileReturned, CDialogDialogTests.SelectAndOpenFile_SeveralMissingFilesReturnOne -->
 **SelectAndOpenFile** calls [**ShowOpen**](ShowOpen) with the current properties of the object, so every option that applies to the Open dialog ([**Filter**](Filter), [**InitialDir**](InitialDir), [**MultiSelect**](MultiSelect) and the others) applies here. It then calls **OpenFile** with the verb `open` for the path. The file is run as **OpenFile** describes: a program starts, and a document opens in its associated program.
 
 With [**MultiSelect**](MultiSelect) **True** and two or more files selected, **ShowOpen** returns an array, and **SelectAndOpenFile** calls **OpenFile** for each element in turn. It then returns 1, whatever the individual calls returned, so the return value does not report a file that failed to open. For a single file it returns what **OpenFile** returned.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SelectFiles.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SelectFiles.md
index 81f3c176..dd4c12db 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SelectFiles.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SelectFiles.md
@@ -19,9 +19,11 @@ Returns a **Collection** of **String** values, one full path for each chosen fil
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.SelectFiles_ReturnsACollectionInBothCases -->
 **SelectFiles** calls **ShowOpen** with the current properties of the object, so every option of the Open dialog applies, [**MultiSelect**](MultiSelect) first of all. With **MultiSelect** **False** the collection holds one path at most. With **MultiSelect** **True** and one file selected it holds one path, and with two or more files selected it holds one path for each. The method saves the program from testing whether **ShowOpen** returned a **String** or an array. An empty result and a failure of the dialog look the same, as they do for **ShowOpen**.
 
 [**FileName**](FileName) is set as **ShowOpen** sets it: to the path when one file was chosen, and to an empty string after several.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetCodeFilters.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetCodeFilters.md
index 1007d2d8..83f3ba25 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetCodeFilters.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetCodeFilters.md
@@ -17,6 +17,7 @@ Syntax: *object*.**SetCodeFilters**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.SetCodeFilters_HasNinePairs -->
 **SetCodeFilters** calls [**ClearFilter**](ClearFilter), so any earlier filter is lost, and then [**AddFilter**](AddFilter) for each pair:
 
 | Description | Pattern |
@@ -32,6 +33,7 @@ Syntax: *object*.**SetCodeFilters**
 | `All Files (*.*)` | `*.*` |
 
 The descriptions are fixed English text. To show other text, build the filter with [**AddFilter**](AddFilter). The first pair, Basic Files, is the one that the dialog selects when it opens. A call of **AddFilter** after **SetCodeFilters** appends a pair after All Files.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetCommonFilters.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetCommonFilters.md
index 53f44fb7..e99a57f9 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetCommonFilters.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetCommonFilters.md
@@ -17,6 +17,7 @@ Syntax: *object*.**SetCommonFilters**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.SetCommonFilters_ReplacesTheFilter -->
 **SetCommonFilters** calls [**ClearFilter**](ClearFilter), so any earlier filter is lost, and then [**AddFilter**](AddFilter) for each pair:
 
 | Description | Pattern |
@@ -25,6 +26,7 @@ Syntax: *object*.**SetCommonFilters**
 | `All Files (*.*)` | `*.*` |
 
 The descriptions are fixed English text. To show other text, build the filter with **AddFilter**. The first pair, Text Files, is the one that the dialog selects when it opens. A call of **AddFilter** after **SetCommonFilters** appends a pair at the end.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetDocumentFilters.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetDocumentFilters.md
index f27f5da1..01ff16f8 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetDocumentFilters.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetDocumentFilters.md
@@ -17,6 +17,7 @@ Syntax: *object*.**SetDocumentFilters**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.SetDocumentFilters_HasSixPairs -->
 **SetDocumentFilters** calls [**ClearFilter**](ClearFilter), so any earlier filter is lost, and then [**AddFilter**](AddFilter) for each pair:
 
 | Description | Pattern |
@@ -29,6 +30,7 @@ Syntax: *object*.**SetDocumentFilters**
 | `All Files (*.*)` | `*.*` |
 
 The descriptions are fixed English text. To show other text, build the filter with [**AddFilter**](AddFilter). The first pair, Word Documents, is the one that the dialog selects when it opens.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetImageFilters.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetImageFilters.md
index 17fd2f3d..92c4ed59 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetImageFilters.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/SetImageFilters.md
@@ -17,6 +17,7 @@ Syntax: *object*.**SetImageFilters**
 
 ## Remarks
 
+<!-- test: CDialogPropertyTests.SetImageFilters_HasSixPairs -->
 **SetImageFilters** calls [**ClearFilter**](ClearFilter), so any earlier filter is lost, and then [**AddFilter**](AddFilter) for each pair:
 
 | Description | Pattern |
@@ -29,6 +30,7 @@ Syntax: *object*.**SetImageFilters**
 | `All Files (*.*)` | `*.*` |
 
 The descriptions are fixed English text. To show other text, build the filter with [**AddFilter**](AddFilter). The file-type list of the dialog holds the six descriptions in this order. The first, Bitmap Files, is the one that is selected when the dialog opens, not All Image Files, which is the fifth.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowBrowseForFolder.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowBrowseForFolder.md
index 3909561d..1fdf4d8d 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowBrowseForFolder.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowBrowseForFolder.md
@@ -30,6 +30,7 @@ The method always sets `BIF_RETURNONLYFSDIRS`, so only a folder of the file syst
 
 The dialog does not start in the folder that [**InitialDir**](InitialDir) holds. In the new style it opens with the folder of the user's profile selected, and in the old style with *This PC* selected, with *OK* disabled until the user selects a folder of the file system.
 
+<!-- test: CDialogDialogTests.ShowBrowseForFolder_ReturnsTheTypedFolderAndStoresItInInitialDir, CDialogDialogTests.ShowBrowseForFolder_CancelReturnsAnEmptyStringAndKeepsInitialDir -->
 > [!NOTE] 1.1.0.0
 > When the user confirms a folder, **ShowBrowseForFolder** stores the path in [**InitialDir**](InitialDir). A [**ShowOpen**](ShowOpen) or [**ShowSave**](ShowSave) after it passes that folder to Windows as its starting folder. A path typed into the edit box of the new-style dialog and confirmed is returned and stored in the same way. A cancelled dialog returns an empty string and leaves **InitialDir** as it was. [**FileName**](FileName) is not used or changed.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowOpen.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowOpen.md
index 3cad8e9b..57c0ce43 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowOpen.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowOpen.md
@@ -19,6 +19,7 @@ Returns a **Variant**. When the user confirms the dialog, it holds the full path
 
 ## Remarks
 
+<!-- test: CDialogDialogTests.ShowOpen_ReturnsTheFullPathAndStoresItInFileName, CDialogDialogTests.ShowOpen_CancelReturnsAnEmptyStringAndKeepsFileName, CDialogDialogTests.ShowOpen_MultiSelectOfTwoFilesReturnsAnArray, CDialogDialogTests.ShowOpen_FileNameIsPassedAsTheNextInitialName -->
 **ShowOpen** calls `GetOpenFileNameW` and takes its options from the properties of the object:
 
 | Property | What **ShowOpen** passes |
@@ -46,6 +47,7 @@ A confirmed **ShowOpen** that returns a **String** also stores it in [**FileName
 ### Several files
 
 With [**MultiSelect**](MultiSelect) **True**, Windows returns the folder and then the name of each selected file in one buffer. **ShowOpen** joins the folder to each name with a backslash and returns the full paths as an array of **String** values, in the order in which the names stand in the File name box, and sets [**FileName**](FileName) to an empty string. One selected file gives its full path as a **String**, as without **MultiSelect**. Test the result with **IsArray**, or call [**SelectFiles**](SelectFiles), which returns a **Collection** in both cases.
+<!-- /test -->
 
 ## Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowSave.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowSave.md
index efc12d5b..2e7994a4 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowSave.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/ShowSave.md
@@ -35,12 +35,15 @@ Returns a **String**, the full path that the user confirmed, or an empty string
 
 A flag is set when its property is **True**. Unlike [**ShowOpen**](ShowOpen), **ShowSave** never sets `OFN_ALLOWMULTISELECT`, `OFN_FILEMUSTEXIST`, `OFN_READONLY` or `OFN_CREATEPROMPT`, so [**MultiSelect**](MultiSelect), [**FileMustExist**](FileMustExist), [**ReadOnly**](ReadOnly) and [**CreatePrompt**](CreatePrompt) have no effect on it. The method always sets `OFN_LONGNAMES`, `OFN_EXPLORER` and `OFN_ENABLESIZING`, selects the first pair of the filter, and has no owner window, hook or template. The [class page](.#settings-without-a-property) lists these settings.
 
+<!-- test: CDialogDialogTests.ShowSave_FileNameIsShownInTheNameBox, CDialogDialogTests.ShowSave_DefaultExtIsAddedToANameTypedWithoutOne, CDialogDialogTests.ShowSave_DoesNotCreateTheFile, CDialogDialogTests.ShowSave_OverwritePromptAsksBeforeReplacing, CDialogDialogTests.ShowSave_NoToTheQuestionLeavesTheDialogOpen, CDialogDialogTests.ShowSave_WithoutOverwritePromptReturnsAnExistingName -->
 When the user confirms the dialog, **ShowSave** stores the path in [**FileName**](FileName) as well as returning it. A cancelled dialog returns an empty string and leaves **FileName** as it was. The dialog returns only a name: it saves nothing, and the class does not create or write the file.
 
 An empty string also results when Windows reports a failure, such as a path that does not fit into the buffer of 260 characters, and no value tells which of the two happened. Neither case raises an error.
 
 With [**OverwritePrompt**](OverwritePrompt) **True** and a file that exists, the box *Confirm Save As* asks whether to replace it. *Yes* returns the path, and *No* leaves the dialog open. With **False** there is no box and the path is returned. With [**DefaultExt**](DefaultExt) set, a name typed without an extension gets it.
+<!-- /test -->
 
+<!-- test: CDialogPropertyTests.ShowSave_FileNameOf261CharactersRaisesError5, CDialogPropertyTests.ShowSave_FileNameOf260CharactersShowsNoDialog, CDialogPropertyTests.ShowSave_FileNameOf259CharactersOpensTheDialog -->
 > [!NOTE] 1.1.0.0
 > The class pads the buffer with spaces to 260 characters, and the dialog does not show the padding. A [**FileName**](FileName) of 260 characters shows no dialog and returns an empty string at once, as a cancel does. A **FileName** of 261 characters or more makes **ShowSave** raise run-time error 5, *Invalid procedure call or argument*, before any dialog opens.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/index.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/index.md
index 85d4daf9..5813e1af 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialog/index.md
@@ -28,11 +28,13 @@ End If
 
 The options are the members and flags of the Win32 structures that the dialogs take: [OPENFILENAME](https://learn.microsoft.com/en-us/windows/win32/api/commdlg/ns-commdlg-openfilenamew) for **ShowOpen** (`GetOpenFileNameW`) and **ShowSave** (`GetSaveFileNameW`), and [BROWSEINFO](https://learn.microsoft.com/en-us/windows/win32/api/shlobj_core/ns-shlobj_core-browseinfow) for **ShowBrowseForFolder** (`SHBrowseForFolder`). Each property page names the flag it sets and the dialogs in which it takes effect, and the table [below](#which-dialog-uses-which-property) lists them all.
 
+<!-- test: compile CDialogHasNoFlags, compile CDialogHasNoFilterIndex, compile CDialogHasNoCancelError, compile CDialogHasNoFileTitle, compile CDialogHasNoMaxFileSize, compile CDialogHasNoOwnerWindow -->
 > [!NOTE] 1.1.0.0
 > The property names follow VB6's **CommonDialog** control, but **cDialog** is a class with a smaller set of members. It has no **Flags** property (each option is a **Boolean** property of its own), no **FilterIndex** (the first filter is always selected, and the filter that the user chose is not reported), no **CancelError** (a cancelled dialog returns an empty string), no **FileTitle** or **MaxFileSize**, and no owner window. **InitialDir** is the control's **InitDir**. **ShowOpen** returns the file name, as well as storing it in **FileName**, and there is no Color, Font or Print dialog in this class (the package has a class for each of them, listed on its [landing page](../)). The [**cDialogEx**](../cDialogEx) class of this package has a **FilterIndex** and an owner window. The [**CommonDialog**](../../VBComDlg/CommonDialog) class of the VBComDlg package has **Flags**, **FilterIndex**, **CancelError**, **FileTitle**, **MaxFileSize** and those dialogs.
 
 ## Defaults
 
+<!-- test: CDialogPropertyTests.Defaults_Texts, CDialogPropertyTests.Defaults_FalseFlags, CDialogPropertyTests.Defaults_TrueFlags, CDialogPropertyTests.Properties_StoreWhatIsSet, CDialogPropertyTests.Reset_RestoresTheStartingValues -->
 A new **cDialog** starts with these values, and [**Reset**](Reset) restores them.
 
 | Property | Starting value |
@@ -40,6 +42,7 @@ A new **cDialog** starts with these values, and [**Reset**](Reset) restores them
 | [**DialogTitle**](DialogTitle), [**InitialDir**](InitialDir), [**DefaultExt**](DefaultExt), [**FileName**](FileName), [**Filter**](Filter) | An empty string |
 | [**MultiSelect**](MultiSelect), [**ReadOnly**](ReadOnly), [**NoChangeDir**](NoChangeDir), [**CreatePrompt**](CreatePrompt) | **False** |
 | [**OverwritePrompt**](OverwritePrompt), [**PathMustExist**](PathMustExist), [**FileMustExist**](FileMustExist), [**HideReadOnly**](HideReadOnly), [**NewDialogStyle**](NewDialogStyle) | **True** |
+<!-- /test -->
 
 ```tb check_build check_run
 Dim dlg As New cDialog
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogColor.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogColor.md
index 7b5130d3..92a56d6e 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogColor.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogColor.md
@@ -28,6 +28,7 @@ Else
 End If
 ```
 
+<!-- test: CDialogColorTests.ShowDialog_OKReturnsTrueAndKeepsTheColorItWasGiven, CDialogColorTests.ShowDialog_CancelReturnsFalseAndKeepsTheColor, CDialogColorTests.GetCustomColor_StartsWithTheQBColors, CDialogColorTests.SetCustomColor_StoresAndIgnoresAnIndexOutOfRange, CDialogColorTests.Reset_RestoresTheColorTheFlagsAndTheCustomColors -->
 ## How the dialog is shown
 
 [**ShowDialog**](#showdialog) calls `ChooseColorW` with the current [**Color**](#color) as the starting color (flag `CC_RGBINIT`, always set) and the 16 custom colors of the object. The properties [**FullOpen**](#fullopen), [**PreventFullOpen**](#preventfullopen), [**SolidColor**](#solidcolor) and [**AnyColor**](#anycolor) set the flags `CC_FULLOPEN`, `CC_PREVENTFULLOPEN`, `CC_SOLIDCOLOR` and `CC_ANYCOLOR` when they are **True**. The class sets no hook or template, no help button and no owner other than [**OwnerHwnd**](#ownerhwnd). The dialog is modal and has the title *Color*.
@@ -40,9 +41,13 @@ The color is a plain number. A system color constant such as `vbButtonFace` (`&H
 
 The object keeps 16 custom colors, numbered 0 to 15, for the 16 custom boxes of the dialog. They start as the colors of **QBColor**(0) to **QBColor**(15) and last as long as the object does, so a second dialog of the same object shows the custom colors that the first one left. Nothing is saved to the registry or to a file.
 
+<!-- /test -->
+
+<!-- test: probe c4 -->
 > [!NOTE] timeless
 > The **Add to Custom Colors** button of the expanded dialog writes into the custom colors of the object at once. Choosing **Cancel** afterwards leaves [**Color**](#color) unchanged but keeps the added custom color. [**Reset**](#reset) restores the 16 starting colors.
 
+<!-- test: CDialogColorTests.Defaults_AreThoseOfThePage, CDialogColorTests.Red_Green_Blue_ReadTheBytesOfColor, CDialogColorTests.Red_Green_Blue_SetOnePartAndKeepTheOthers, CDialogColorTests.Red_Green_Blue_ClampToZeroAndAHundredAndFiftyFive, CDialogColorTests.Color_NegativeValueReadsOtherBytes, CDialogColorTests.SetRgb_SetsThePartsAndClamps, CDialogColorTests.ToHtmlColor_AndToRgbString_FormatTheColor, CDialogColorTests.FromHtmlColor_ReadsSixDigitsWithOrWithoutAHash, CDialogColorTests.FromHtmlColor_IgnoresTextOfAnotherLength, CDialogColorTests.FromHtmlColor_StopsAtAPairThatIsNotHexadecimal -->
 ## Properties
 
 ### AnyColor
@@ -400,6 +405,8 @@ Debug.Print dlg.ToRgbString()
 ' RGB(160, 176, 192)
 ```
 
+<!-- /test -->
+
 ## See Also
 
 - [cDialogFont](cDialogFont) class -- shows the Font dialog
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogCountdownMsgBox.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogCountdownMsgBox.md
index 038c6db9..7fb8ff91 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogCountdownMsgBox.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogCountdownMsgBox.md
@@ -26,6 +26,7 @@ Select Case answer
 End Select
 ```
 
+<!-- test: CDialogCountdownMsgBoxTests.ShowInfo_TimeoutReportsTimeout, CDialogCountdownMsgBoxTests.ShowWarning_TimeoutReportsTimeout, CDialogCountdownMsgBoxTests.ShowError_TimeoutReportsTimeout, CDialogCountdownMsgBoxTests.ShowDialog_TimeoutOfTheDefaultBoxReportsTimeout, CDialogCountdownMsgBoxTests.ShowQuestion_TimeoutReportsTimeout, CDialogCountdownMsgBoxTests.ShowConfirm_TimeoutReportsTimeout, CDialogCountdownMsgBoxTests.ShowCustom_TimeoutOfABoxWithTwoButtonsReportsTimeout -->
 > [!WARNING] 1.1.0.0
 > A box with only an OK button that closes because its time ran out reports [**drOK**](#dialogresult), not [**drTimeout**](#dialogresult), and [**IsTimedOut**](#istimedout) is **False**. This affects the default box and [**ShowInfo**](#showinfo), [**ShowWarning**](#showwarning) and [**ShowError**](#showerror). A box with any other set of buttons reports **drTimeout** when it times out. No error is raised, so a program cannot tell a press of OK from the end of the time with these members alone.
 
@@ -46,6 +47,7 @@ End If
 
 ## Properties
 
+<!-- test: CDialogCountdownMsgBoxTests.Defaults_AreThoseOfThePage, CDialogCountdownMsgBoxTests.Properties_StoreWhatIsSet, CDialogCountdownMsgBoxTests.CountdownSeconds_AlsoSetsRemainingSeconds, CDialogCountdownMsgBoxTests.Reset_RestoresTheStartingValues, CDialogCountdownMsgBoxTests.ShowDialog_CountdownTextNamesOneSecondInThePlural, CDialogCountdownMsgBoxTests.ShowDialog_CountdownSecondsOfZeroDoesNotCloseTheBox -->
 ### AutoClose
 {: .no_toc }
 
@@ -99,7 +101,9 @@ Syntax: *object*.**CountdownSeconds** [ **=** *value* ]
 Setting it also sets [**RemainingSeconds**](#remainingseconds). The shortened forms [**ShowInfo**](#showinfo) and the others take the time as an argument, store it here, and do not touch [**RemainingSeconds**](#remainingseconds).
 
 The countdown text that the box shows (see [**ShowProgress**](#showprogress)) names this value in whole seconds, also for 1 and 0: `in 1 seconds...`. A value of 0 or less does not close the box: it stays open until a button is pressed, and its text says `in 0 seconds...`.
+<!-- /test -->
 
+<!-- test: CDialogCountdownMsgBoxTests.CountdownSeconds_AboveTwoMillionOverflowsAndShowsAPlainBox -->
 > [!NOTE] 1.1.0.0
 > The class multiplies the value by 1000 to get milliseconds. A value above 2,147,483 (about 24.8 days) overflows, and [**ShowDialog**](#showdialog) handles the error 6 itself: it shows a plain message box with the message and an OK button, with no icon, countdown text or other buttons, and returns **drOK**. The call raises nothing, but **Err.Number** is 6 afterwards.
 
@@ -112,6 +116,7 @@ Debug.Print box.CountdownSeconds    ' 45
 Debug.Print box.RemainingSeconds    ' 45
 ```
 
+<!-- test: CDialogCountdownMsgBoxTests.Enumerations_HaveTheDocumentedValues, CDialogCountdownMsgBoxTests.ShowDialog_ShowsTheTitleTheMessageAndTheCountdownText, CDialogCountdownMsgBoxTests.ShowDialog_ShowProgressFalseShowsOnlyTheMessage, CDialogCountdownMsgBoxTests.ShowDialog_AutoCloseFalseKeepsTheBoxOpenWithoutCountdownText, CDialogCountdownMsgBoxTests.ShowDialog_TheButtonPressedIsTheResult, CDialogCountdownMsgBoxTests.ShowCustom_AbortRetryIgnoreReportsEachButton, CDialogCountdownMsgBoxTests.DefaultButton_EnterPressesTheSecondButton, CDialogCountdownMsgBoxTests.ShowDialog_ShortFormsDoNotChangeDefaultButton, CDialogCountdownMsgBoxTests.ShowDialog_CloseButtonEndsABoxWithOnlyOKAsOK, CDialogCountdownMsgBoxTests.ShowConfirm_CloseButtonEndsTheBoxAsCancel, CDialogCountdownMsgBoxTests.ShowQuestion_CloseButtonIsIgnored, CDialogCountdownMsgBoxTests.Buttons_ACancelTryAgainContinueBoxIsNotMapped, CDialogCountdownMsgBoxTests.OwnerHwnd_OwnsTheBox -->
 ### DefaultButton
 {: .no_toc }
 
@@ -587,6 +592,7 @@ Else
     Debug.Print "Keeping the document: " & box.GetResultDescription()
 End If
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogDateTime.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogDateTime.md
index e63ea497..d7dc29b6 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogDateTime.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogDateTime.md
@@ -30,6 +30,7 @@ End If
 
 ## What the box shows and accepts
 
+<!-- test: CDialogDateTimeTests.ShowDialog_ShowsThePromptTheFormatLineAndTheYearRange, CDialogDateTimeTests.ShowDialog_NamesTheFormatOfTheModes, CDialogDateTimeTests.ShowDialog_OKOnTheOfferedTextKeepsTheValue, CDialogDateTimeTests.ShowDialog_ADateChangesOnlyTheDate, CDialogDateTimeTests.ShowDialog_ATimeChangesOnlyTheHourAndMinute, CDialogDateTimeTests.ShowDialog_ADateWithDashesAndATimeWithSeconds, CDialogDateTimeTests.ShowDialog_AnEmptyEntryAndTextWithoutAPartChangeNothing, CDialogDateTimeTests.ShowDialog_ARefusedEntryShowsASecondBoxAndReturnsFalse, CDialogDateTimeTests.ShowDialog_ADateAndATimeWithPmIsRead, CDialogDateTimeTests.ShowDialog_12AmIsHourZeroAnd1To11PmAre13To23, CDialogDateTimeTests.OwnerHwnd_HasNoEffect -->
 The box has the title [**Title**](#title) and the text [**Prompt**](#prompt), a blank line, a line that names the format (`Enter date and time:`, `Enter date (MM/DD/YYYY):` or `Enter time (HH:MM):`, with `HH:MM AM/PM` when [**Is24HourFormat**](#is24hourformat) is **False**), a blank line and `Year range:` with [**MinYear**](#minyear) and [**MaxYear**](#maxyear). The edit box holds the current value as [**FormatDateTime**](#formatdatetime) gives it, such as `03/15/2026 14:05`. [**OwnerHwnd**](#ownerhwnd) has no effect, because the box has no owner.
 
 The class reads the text like this:
@@ -41,10 +42,13 @@ The class reads the text like this:
 - A part that is not typed keeps its value, so `11/12/2028` changes only the date, and `23:59` only the hour and minute.
 
 The result of [**ShowDialog**](#showdialog) is **False** when the user cancelled or typed a value that fails these rules, which also shows a second box, `Invalid date/time format. Please use:` followed by the text that the edit box offered. The result is **True** when the user pressed OK, and that includes an empty entry and text without a recognisable part (`hello` or `1/2`): such text changes nothing.
+<!-- /test -->
 
+<!-- test: CDialogDateTimeTests.ShowDialog_ARefusedMonthAndDayLeaveTheObjectAsItWas, CDialogDateTimeTests.ShowDialog_AFebruary30LeavesTheObjectAsItWas, CDialogDateTimeTests.ShowDialog_ARefusedTimeLeavesTheObjectAsItWas, CDialogDateTimeTests.ShowDialog_ARefusedTimeAfterAGoodDateLeavesTheObjectAsItWas -->
 > [!WARNING] 1.1.0.0
 > When the text fails the check, the parts that the class has already read stay in the object. After `13/45/2026`, [**Month**](#month) is 13 and [**Day**](#day) is 45; after `02/30/2026`, **Day** is 30 in February; after `25:61`, [**Hour**](#hour) is 25 and [**Minute**](#minute) is 61; after `04/05/2027 25:00` the date is 5 April 2027 and the hour is 25. [**ShowDialog**](#showdialog) returns **False** and [**Cancelled**](#cancelled) is **True**, yet the object does not hold the value it held before. The setters of the parts, which refuse such values, are bypassed. A program that carries on with the object after a **False** result reads wrong values. Copy [**DateTimeValue**](#datetimevalue) before the call and restore it when the call returns **False**.
 
+<!-- test: CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoDateIsRead, CDialogDateTimeTests.ShowTimePicker_TheOfferedTextOfThe12HourClockIsAccepted, CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoSpaceIsReadAsTheMinutesTyped, CDialogDateTimeTests.ShowDialog_ADateAndATimeWithPmIsRead -->
 > [!WARNING] 1.1.0.0
 > A time with `AM` or `PM` and no date in front of it is not read correctly. `9:30 PM` is cut at its space into the date `9:30` and the time `PM` and rejected, so the offered text of the time mode with [**Is24HourFormat**](#is24hourformat) **False** (`02:05 PM`) is rejected when the user presses OK without changing it. `9:30pm`, with no space, is accepted and read as 21:03, because the class removes three characters from the end of the text and the third is a digit of the minutes. With a date in front, `03/15/2026 9:30 PM` is read correctly. Typing the time with a 24-hour clock (`21:30`) works in every mode.
 
@@ -61,6 +65,7 @@ End If
 
 ## Properties
 
+<!-- test: CDialogDateTimeTests.Defaults_AreThoseOfThePage, CDialogDateTimeTests.NewObject_HoldsTheClockOfTheComputer, CDialogDateTimeTests.DateTimeValue_SetsAllSixParts, CDialogDateTimeTests.DateValue_And_TimeValue_SetTheirParts, CDialogDateTimeTests.DateTimeValue_IsNotCheckedAgainstTheYearRange, CDialogDateTimeTests.Day_IgnoresADayThatDoesNotExistInTheMonth, CDialogDateTimeTests.Hour_Minute_Second_IgnoreValuesOutOfRange, CDialogDateTimeTests.Month_LowersTheDayToTheLastDayOfTheNewMonth, CDialogDateTimeTests.Year_IsLimitedToMinYearAndMaxYear, CDialogDateTimeTests.AddDays_MovesTheDateAndKeepsTheTime, CDialogDateTimeTests.AddDays_PastTheEndOfYear9999RaisesTypeMismatch, CDialogDateTimeTests.AddHours_CarriesIntoTheDate -->
 ### Cancelled
 {: .no_toc }
 
@@ -469,7 +474,9 @@ Syntax: *object*.**AddHours** ( *hours* )
 : *required* A **Long**, negative to move back.
 
 Adds the hours to the time of day, and moves the date forward or back by the days that this passes.
+<!-- /test -->
 
+<!-- test: CDialogDateTimeTests.AddHours_OfAboutSixHundredThousandRaisesOverflowAndKeepsTheValue -->
 > [!NOTE] 1.1.0.0
 > The class works in seconds in a **Long**, so a value of about 596,000 hours (68 years) or more, in either direction, raises error 6 (*Overflow*). The date and time are left as they were.
 
@@ -483,6 +490,7 @@ picker.AddHours -15
 Debug.Print Format$(picker.DateTimeValue, "yyyy-mm-dd hh:nn:ss")    ' 2026-03-15 09:05:09
 ```
 
+<!-- test: CDialogDateTimeTests.FormatDate_ShortAndLong, CDialogDateTimeTests.FormatDate_CustomReplacesThePatterns -->
 ### FormatDate
 {: .no_toc }
 
@@ -494,7 +502,9 @@ Syntax: *object*.**FormatDate** ( [ *formatType* ] ) **As String**
 : *optional* A [**DateFormat**](#dateformat) member. The default is **ShortDate**.
 
 **ShortDate** gives `03/15/2026`, with month, day and year in that order. **LongDate** gives `Sunday, March 15, 2026`, in English whatever the language of Windows is. **Custom** gives the text of [**CustomFormat**](#customformat) in which these patterns are replaced, in this order: `YYYY` (four digits), `YY` (two digits), `MMMM` (the month's name), `MMM` (its first three letters), `MM` (two digits), `M`, `DD` (two digits) and `D`. With an empty [**CustomFormat**](#customformat), **Custom** gives the short date.
+<!-- /test -->
 
+<!-- test: CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMarchKeepsTheName, CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMayKeepsTheName, CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfDecemberKeepsTheName, CDialogDateTimeTests.FormatDate_CustomWithAShortMonthNameOfMarchKeepsTheName -->
 > [!WARNING] 1.1.0.0
 > The patterns are replaced one after the other in the text that is being built, so the letters `M` and `D` of a month's name, which `MMMM` and `MMM` have just put in, are replaced as well. **March** and **May** lose their first letter to the number of the month (`3arch`, `5ay`) and **December** its first letter to the number of the day (`15ecember`). No error is raised. The same happens to any other `Y`, `M` or `D` in the format, which is not kept as a literal character. Formats with `MMMM` or `MMM` are right only for the other months.
 
@@ -513,6 +523,7 @@ picker.CustomFormat = "MMMM D, YYYY"
 Debug.Print picker.FormatDate(DateFormat.Custom)      ' 3arch 15, 2026
 ```
 
+<!-- test: CDialogDateTimeTests.FormatDateTime_FollowsMode, CDialogDateTimeTests.FormatTime_24HourAndAmPm, CDialogDateTimeTests.GetDayOfWeek_And_Name_AreEnglishFromSunday, CDialogDateTimeTests.GetDaysInMonth_KnowsLeapYears, CDialogDateTimeTests.GetMonthName_IsEnglish, CDialogDateTimeTests.Reset_RestoresTheStartingValuesButNotTheOwner, CDialogDateTimeTests.SetNow_And_SetToday_UseTheClock, CDialogDateTimeTests.ShowDatePicker_And_ShowTimePicker_SetTitleAndMode, CDialogDateTimeTests.Enumerations_HaveTheDocumentedValues -->
 ### FormatDateTime
 {: .no_toc }
 
@@ -789,6 +800,7 @@ Else
     Debug.Print "Kept " & picker.FormatDateTime()
 End If
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogEx.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogEx.md
index 122f7673..376bd093 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogEx.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogEx.md
@@ -29,17 +29,21 @@ result = dlg.ShowOpen()
 If Len(result) > 0 Then Debug.Print "Chosen: " & result
 ```
 
+<!-- test: probe x1, probe x2, probe x12 -->
 > [!WARNING] 1.1.0.0
 > The three dialogs return the **name** of the chosen file or folder, not its full path: [**ShowOpen**](#showopen), [**ShowSave**](#showsave), [**ShowBrowseForFolder**](#showbrowseforfolder) and [**SelectFiles**](#selectfiles) give `a.txt` for `C:\Reports\a.txt`, and `other` for the folder `C:\Reports\other`. A program that opens or saves the result opens or saves a file in its own current folder, and no error is raised. [**FileName**](#filename) holds the same short name afterwards. The class asks Windows for the name that is relative to the parent folder, because the constant `SIGDN_FILESYSPATH` of the source has the value `&H80058001` and the file-system path is `&H80058000`. The folder in which the user chose is not reported, so the result cannot be used to open or save the file. Use [**cDialog**](cDialog/), which returns full paths.
 
+<!-- test: probe x15 -->
 > [!WARNING] 1.1.0.0
 > [**InitialDir**](#initialdir) has no effect: the dialogs always open in the *Documents* folder, and no error is raised. The class makes the folder item with `SHCreateItemFromParsingName` and a GUID for `IShellItem` that has a wrong byte (`&H37` where the interface identifier has `&H7B`), so Windows answers that it has no such interface and the class skips `SetDefaultFolder`.
 
+<!-- test: CDialogExTests.AddFilter_BuildsAFilterTheDialogAccepts, CDialogExTests.SetFilters_BuildAFilterTheDialogAccepts, CDialogExTests.GetPresetFilter_GivesATextTheDialogAccepts, probe x5 -->
 > [!WARNING] 1.1.0.0
 > A [**Filter**](#filter) is ignored unless it holds an even number of pipe characters (`|`). A filter of N pairs written `Name|Pattern|Name|Pattern` holds 2N minus 1, an odd number, so the dialog shows no file-type list and accepts every file, and no error is raised. A pipe after the last pattern makes the count even: `Text (*.txt)|*.txt|All (*.*)|*.*|` shows two entries. [**AddFilter**](#addfilter) and the four **Set...Filters** methods build a filter without the closing pipe, and so does the text of [**GetPresetFilter**](#getpresetfilter), so none of them shows a list until the text gets its pipe: add `dlg.Filter = dlg.Filter & "|"` after them.
 
 ## Which dialog uses which property
 
+<!-- test: probe x1, probe x3, probe x4, probe x5, probe x6, probe x7, probe x8, probe x9, probe x10, probe x11, probe x16 -->
 *yes* means that the class passes the value to the dialog. [**ShowOpen**](#showopen) with [**PickFolders**](#pickfolders) **True** and [**ShowBrowseForFolder**](#showbrowseforfolder) show the same folder dialog.
 
 | Property | ShowOpen | ShowSave | Folder dialog |
@@ -58,9 +62,12 @@ If Len(result) > 0 Then Debug.Print "Chosen: " & result
 | the icon ([**SetSystemIcon**](#setsystemicon), [**SetCustomIcon**](#setcustomicon)) | yes | yes | yes |
 
 Every method catches its errors: it writes a line that starts with the name of the method to the debug console (`Debug.Print`) and returns an empty string. A dialog that Windows cannot create gives an empty string in the same way, so an empty result means a cancel or a failure.
+<!-- /test -->
 
 ## Differences from cDialog
 
+<!-- test: compile CDialogExHasNoNewDialogStyle, compile CDialogExHasNoHideReadOnly, compile CDialogExHasNoReadOnly, CDialogExTests.Defaults_EveryBooleanIsFalse, CDialogExTests.Defaults_TextsAndNumbers, CDialogExTests.Properties_StoreWhatIsSet, CDialogExTests.Reset_RestoresTheStartingValues, CDialogExTests.GetPresetFilter_ReturnsAPairForAKnownName, CDialogExTests.GetPresetFilter_IgnoresCaseAndSpacesAtTheEnds, CDialogExTests.GetPresetFilter_DoesNotChangeFilter, CDialogExTests.AddFilter_JoinsPairsWithPipes, CDialogExTests.SetCommonFilters_ReplacesTheFilterWithTwoPairs, CDialogExTests.ClearFilter_EmptiesTheFilter, CDialogExTests.PathHelpers_WorkAsThoseOfCDialog, CDialogExTests.OpenFile_NonexistentFileReturns2, CDialogExTests.SystemIconId_HasTheDocumentedValues -->
+
 - A new **cDialogEx** has every Boolean property **False**. A new [**cDialog**](cDialog/#defaults) has [**OverwritePrompt**](#overwriteprompt), [**PathMustExist**](#pathmustexist) and [**FileMustExist**](#filemustexist) set to **True**.
 - The dialogs are the item dialogs of Windows Vista and later: the folder dialog is the file dialog in a folder-picking mode, with a *Select Folder* button, and not the tree of `SHBrowseForFolder`. There is no [**NewDialogStyle**](cDialog/NewDialogStyle), [**HideReadOnly**](cDialog/HideReadOnly) or [**ReadOnly**](cDialog/ReadOnly) property.
 - A [**ShowOpen**](#showopen) with [**MultiSelect**](#multiselect) puts the first file in [**FileName**](#filename) when two or more files are chosen. **cDialog** empties it.
@@ -436,6 +443,7 @@ dlg.PickFolders = True
 Debug.Print dlg.ShowOpen()
 dlg.ClearIcon
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogFindReplace.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogFindReplace.md
index 9cde0622..49c87596 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogFindReplace.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogFindReplace.md
@@ -10,9 +10,11 @@ has_toc: false
 
 A **cDialogFindReplace** shows the Windows Find dialog or the Find and Replace dialog. The dialog is modeless: [**ShowFind**](#showfind) and [**ShowReplace**](#showreplace) return at once, and the dialog stays open beside the program's own window. The class holds the text, the options and the last action of the user as properties, and builds the line of text that describes the search.
 
+<!-- test: probe c43, probe c44, probe c46, probe c48 -->
 > [!WARNING] 1.1.0.0
 > The program never learns what the user did in the dialog. [**ShowFind**](#showfind) and [**ShowReplace**](#showreplace) keep the structure that Windows works on in a local variable, which no longer exists when the method returns, although Windows keeps its address for as long as the dialog is open. The owner window then receives no message for **Find Next**, **Replace**, **Replace All** or **Cancel**, [**LastAction**](#lastaction) stays **None**, and [**hWnd**](#hwnd) and [**IsVisible**](#isvisible) still show a dialog after it was closed. In a 32-bit program, **ShowReplace** can also end the program with an access violation while the dialog is open, before anything is pressed, because Windows reads memory that has been reused. See [How the dialog reports](#how-the-dialog-reports). A program that needs the dialog calls `FindTextW` or `ReplaceTextW` itself and keeps the `FINDREPLACE` structure in a module-level variable.
 
+<!-- test: CDialogFindReplaceTests.MessageId_IsTheRegisteredMessageOfTheDialogs, CDialogFindReplaceTests.UpdateFromFlags_SetsTheOptionsAndTheAction, CDialogFindReplaceTests.UpdateFromFlags_DialogTermWinsOverTheOtherActions, CDialogFindReplaceTests.UpdateFromFlags_EmptiesBothTextsWhenNoDialogHasFilledTheBuffers -->
 **Properties:** [**AllowMatchCase**](#allowmatchcase), [**AllowUpDown**](#allowupdown), [**AllowWholeWord**](#allowwholeword), [**Direction**](#direction), [**FindWhat**](#findwhat), [**hWnd**](#hwnd), [**LastAction**](#lastaction), [**LastError**](#lasterror), [**MatchCase**](#matchcase), [**MessageId**](#messageid), [**Mode**](#mode), [**OwnerHwnd**](#ownerhwnd), [**ReplaceWith**](#replacewith), [**WholeWord**](#wholeword).
 **Methods:** [**IsVisible**](#isvisible), [**Reset**](#reset), [**ShowFind**](#showfind), [**ShowReplace**](#showreplace), [**ToDescription**](#todescription), [**UpdateFromFlags**](#updatefromflags).
 **Enumerations:** [**DialogMode**](#dialogmode), [**FindAction**](#findaction), [**SearchDirection**](#searchdirection).
@@ -64,12 +66,18 @@ Public Sub FrHandleFindMessage(ByVal dlg As cDialogFindReplace, ByVal lParam As
 End Sub
 ```
 
+<!-- /test -->
+
+<!-- test: CDialogFindReplaceTests.FindTextW_WithAModuleLevelStructureDeliversTheMessages, probe c47 -->
 ### The structure the class keeps in a local variable
 
 Each of [**ShowFind**](#showfind) and [**ShowReplace**](#showreplace) declares its `FINDREPLACE` as a local variable and passes it to `FindTextW` or `ReplaceTextW`. Windows does not copy it: it keeps the pointer for the whole life of the dialog and reads and writes the structure each time the user presses a button. When the method returns, the memory belongs to whatever uses the stack next. In a 32-bit and in a 64-bit program alike, the dialog opens, accepts text and closes, and the owner window gets no message at all, so a program that waits for [**LastAction**](#lastaction) never leaves the wait.
 
 The fault is in the code of the class and not in Windows: the same call made with the structure in a module-level variable delivers a message for **Find Next** and one for **Cancel**, with the typed text in the buffer.
 
+<!-- /test -->
+
+<!-- test: CDialogFindReplaceTests.Defaults_AreThoseOfThePage, CDialogFindReplaceTests.ToDescription_NamesTheSearch, CDialogFindReplaceTests.Reset_RestoresTheSearchSettings, CDialogFindReplaceTests.ShowFind_WithoutAnOwnerReturnsFalseWithLastErrorFFFF, CDialogFindReplaceTests.ShowFind_FindWhatOf300CharactersRaisesError5, CDialogFindReplaceTests.ShowReplace_ReplaceWithOf300CharactersRaisesError5 -->
 ## Properties
 
 ### AllowMatchCase
@@ -444,9 +452,13 @@ Debug.Print dlg.Direction = SearchDirection.Up
 ' True
 ```
 
+<!-- /test -->
+
 ## Enumerations
 
+<!-- test: compile FindActionQualifiedByTheClass, CDialogFindReplaceTests.Enumerations_HaveTheDocumentedValues -->
 The enumerations are declared inside the class. A program names their members with the name of the enumeration in front, as in the samples, such as `FindAction.FindNext`. The name of the class cannot be put in front: `cDialogFindReplace.FindAction.FindNext` is refused with TB5079, *Unrecognized symbol 'cDialogFindReplace'*.
+<!-- /test -->
 
 ### DialogMode
 {: .no_toc }
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogFont.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogFont.md
index b22bf451..0d36b36d 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogFont.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogFont.md
@@ -29,6 +29,7 @@ Else
 End If
 ```
 
+<!-- test: CDialogFontTests.ShowDialog_OKReturnsTrue, CDialogFontTests.ShowDialog_CancelReturnsFalseAndKeepsTheProperties -->
 ## How the dialog is shown
 
 [**ShowDialog**](#showdialog) calls `ChooseFontW` with a `LOGFONT` made from the properties and the flag `CF_INITTOLOGFONTSTRUCT`, which is always set. The size is passed in points, as the structure holds it in tenths of a point, and as a height in pixels at 96 dots per inch (`-Size * 96 / 72`). Four properties set a flag when they are **True**: [**ScreenFontsOnly**](#screenfontsonly) (`CF_SCREENFONTS`), [**ShowEffects**](#showeffects) (`CF_EFFECTS`), [**ForceFontExist**](#forcefontexist) (`CF_FORCEFONTEXIST`) and [**FixedPitchOnly**](#fixedpitchonly) (`CF_FIXEDPITCHONLY`, together with a fixed pitch in the `LOGFONT`). `CF_LIMITSIZE` is set when [**MinSize**](#minsize) or [**MaxSize**](#maxsize) is above 0. The class sets no hook, template, printer device context or help button. The dialog is modal and has the title *Font*.
@@ -37,9 +38,13 @@ When the user chooses **OK**, [**ShowDialog**](#showdialog) stores the face, the
 
 The face list holds every font that Windows lists for the screen, including the vertical variants, whose names begin with `@`: the class sets no flag that hides them. The list of styles, the script box and the colors depend on the face and on Windows, and the class reads neither the style name nor the script that the user chose, only the weight and the italic bit.
 
+<!-- /test -->
+
+<!-- test: CDialogFontTests.ShowDialog_MinSizeAboveMaxSizeOpensTheDialogOrRaisesAnError -->
 > [!WARNING] 1.1.0.0
 > **ShowDialog** also returns **False**, without showing a dialog, when the call to Windows fails. A **MinSize** above 0 with **MaxSize** left at 0, or a **MinSize** above **MaxSize**, makes it fail. The class does not read the error code, so the program cannot tell such a failure from a **Cancel**. Set both [**MinSize**](#minsize) and [**MaxSize**](#maxsize), or neither.
 
+<!-- test: CDialogFontTests.Defaults_AreThoseOfThePage, CDialogFontTests.Bold_Italic_AreBitsOfStyle, CDialogFontTests.Italic_AloneGivesStyle2, CDialogFontTests.Color_StoresAnyLong -->
 ## Properties
 
 ### Bold
@@ -123,6 +128,9 @@ Syntax: *object*.**ForceFontExist** [ **=** *value* ]
 
 A **Boolean**, **True** by default. When it is **True** and the face box holds a name that is not in the list, **OK** shows a message, *There is no font with that name. Choose a font from the list of fonts.*, and the dialog stays open; **Cancel** then returns **False** and keeps [**FaceName**](#facename). When it is **False**, **OK** closes the dialog.
 
+<!-- /test -->
+
+<!-- test: CDialogFontTests.ShowDialog_MissingFaceWithoutForceFontExistGivesAnEmptyFaceName -->
 > [!NOTE] 1.1.0.0
 > With **ForceFontExist** **False** and a [**FaceName**](#facename) that is not installed, **OK** returns **True** and sets **FaceName** to an empty string.
 
@@ -185,6 +193,7 @@ Syntax: *object*.**MinSize** [ **=** *value* ]
 
 A **Long**, 0 by default, which means no limit. Above 0, [**ShowDialog**](#showdialog) sets `CF_LIMITSIZE` and passes the value as the smallest size. The size list then starts at the smallest standard size not below it.
 
+<!-- test: CDialogFontTests.ShowDialog_MinSizeAloneOpensTheDialog, CDialogFontTests.ShowDialog_MinSizeAndMaxSizeOpenTheDialog -->
 > [!WARNING] 1.1.0.0
 > A **MinSize** above 0 needs a [**MaxSize**](#maxsize) of at least the same value. With **MaxSize** left at 0, [**ShowDialog**](#showdialog) returns **False** at once, without a dialog, as if the user had cancelled.
 
@@ -196,6 +205,7 @@ dlg.MaxSize = 72
 Debug.Print dlg.MinSize
 ```
 
+<!-- test: CDialogFontTests.Size_IgnoresZeroAndNegativeValues, CDialogFontTests.Style_HoldsTheNumberAssigned, CDialogFontTests.Reset_RestoresTheStartingValues, CDialogFontTests.ToCssFont_HasTheDocumentedForm, CDialogFontTests.ToCssFont_LeavesOutStrikeOutAndColor -->
 ### OwnerHwnd
 {: .no_toc }
 
@@ -376,7 +386,7 @@ The result has the form
 
 `font-family: 'Segoe UI'; font-size: 9pt; font-weight: normal; font-style: normal; text-decoration: none;`
 
-with the face name between single quotes, the size in points, `bold` or `normal`, `italic` or `normal`, and `underline` or `none`. It does not write [**StrikeOut**](#strikeout) or [**Color**](#color). A single quote in the face name is written as it is, without an escape, and ends the quoted name early. A fractional size is written with the decimal separator of the regional settings of the computer, so the CSS is wrong where that is a comma.
+with the face name between single quotes, the size in points, `bold` or `normal`, `italic` or `normal`, and `underline` or `none`. It does not write [**StrikeOut**](#strikeout) or [**Color**](#color). A fractional size is written with the decimal separator of the regional settings of the computer, so the CSS is wrong where that is a comma.
 
 ```tb check_build check_run
 Dim dlg As New cDialogFont
@@ -391,6 +401,13 @@ Debug.Print dlg.ToCssFont()
 ' font-family: 'Courier New'; font-size: 14pt; font-weight: bold; font-style: italic; text-decoration: underline;
 ```
 
+<!-- /test -->
+
+<!-- test: CDialogFontTests.ToCssFont_EscapesASingleQuoteInTheFaceName -->
+> [!WARNING] 1.1.0.0
+> A single quote in the face name is written as it is, without an escape, so the quoted name ends early and the CSS is wrong for such a face.
+
+<!-- test: CDialogFontTests.ToDescription_NamesFaceSizeAndEffects -->
 ### ToDescription
 {: .no_toc }
 
@@ -415,9 +432,13 @@ Debug.Print dlg.ToDescription()
 ' Courier New 14pt Bold Italic Underline Strikeout
 ```
 
+<!-- /test -->
+
 ## Enumerations
 
+<!-- test: compile FontStyleQualifiedByTheClass, CDialogFontTests.Enumerations_HaveTheDocumentedValues -->
 The enumerations are declared inside the class. A program names their members with the name of the enumeration in front, as in the samples, or by the member alone, such as `StyleBold`. The name of the class cannot be put in front: `cDialogFont.FontStyle.StyleBold` is refused with TB5079, *Unrecognized symbol 'cDialogFont'*. Only **FontStyle** is used by a member, the property [**Style**](#style). The other three hold Windows constants for the font structure and are not taken or returned by any member.
+<!-- /test -->
 
 ### FontFamily
 {: .no_toc }
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogInputBox.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogInputBox.md
index 303a6c37..69b187f1 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogInputBox.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogInputBox.md
@@ -30,6 +30,7 @@ Else
 End If
 ```
 
+<!-- test: CDialogInputBoxTests.ShowDialog_ShowsTheTitleThePromptTheHintAndTheLength, CDialogInputBoxTests.ShowDialog_NamesALengthWithOnlyAMinimumOrOnlyAMaximum, CDialogInputBoxTests.ShowDialog_OKStoresTheValue, CDialogInputBoxTests.ShowDialog_CancelEmptiesTheValueAndSetsCancelled, CDialogInputBoxTests.ShowDialog_AnEmptyEntryPassesWhenEmptyIsAllowed, CDialogInputBoxTests.ShowDialog_ARefusedEntryAsksAgainWithTheDefaultValue, CDialogInputBoxTests.ShowDialog_ThreeRefusedEntriesEndWithMaximumAttemptsAndKeepTheValue -->
 ## How the box works
 
 The text of the box is [**Prompt**](#prompt), followed by a blank line and `(Hint: ` and [**Placeholder**](#placeholder) and `)` when a placeholder is set, followed by a blank line and a line on the length when [**MinLength**](#minlength) or [**MaxLength**](#maxlength) is above 0: `Length: 3 to 8 characters`, `Length: At least 3 characters` or `Length: Maximum 8 characters`. The edit box holds [**DefaultValue**](#defaultvalue).
@@ -43,9 +44,13 @@ The text of the box is [**Prompt**](#prompt), followed by a blank line and `(Hin
 
 An empty string passes when [**AllowEmpty**](#allowempty) is **True** (the default) and no [**MinLength**](#minlength) is set. The result of the call does not tell the user's cancelling apart from a refusal; both give **False** and [**Cancelled**](#cancelled) **True**. The two differ only in [**Value**](#value).
 
+<!-- /test -->
+
+<!-- test: CDialogInputBoxTests.PasswordChar_MasksTheEntry, CDialogInputBoxTests.Multiline_GivesAMultilineEditBox, CDialogInputBoxTests.OwnerHwnd_OwnsTheBox, CDialogInputBoxTests.ValidateInput_CustomChecksTheTextAgainstThePattern -->
 > [!WARNING] 1.1.0.0
 > The properties [**Multiline**](#multiline), [**PasswordChar**](#passwordchar), [**OwnerHwnd**](#ownerhwnd) and [**CustomPattern**](#custompattern) are stored but not used. The box is always a single line, it shows what is typed without masking it, it has no owner window and the owner stays usable while it is open, and the value **Custom** of [**Validation**](#validation) accepts any text that is not empty. A program that sets [**PasswordChar**](#passwordchar) to hide a secret shows the secret on the screen. [**cDialogPassword**](cDialogPassword) masks its entry.
 
+<!-- test: CDialogInputBoxTests.Defaults_AreThoseOfThePage, CDialogInputBoxTests.Reset_RestoresTheStartingValues, CDialogInputBoxTests.ValidateInput_MinLengthComesFirstAndCoversTheEmptyText, CDialogInputBoxTests.ValidateInput_MaxLength, CDialogInputBoxTests.ValidateInput_AllowEmpty, CDialogInputBoxTests.ValidateInput_NumericAndInteger, CDialogInputBoxTests.ValidateInput_AlphaAndAlphaNumeric, CDialogInputBoxTests.ValidateInput_Email, CDialogInputBoxTests.ValidateInput_PhoneAndURL, CDialogInputBoxTests.ValidateInput_AnEmptyTextPassesTheRulesFromNumericToURL, CDialogInputBoxTests.ValidateInput_ChangesNothingInTheObject, CDialogInputBoxTests.GetValueAsNumber_OfAnEmptyValueIsZero, CDialogInputBoxTests.GetValueAsInteger_RoundsTheValue, CDialogInputBoxTests.ShowInteger_ReturnsALongAndAcceptsExponents -->
 ## Properties
 
 ### AllowEmpty
@@ -423,6 +428,9 @@ Syntax: *object*.**ShowInteger** ( *prompt* [ , *title* [ , *defaultValue* ] ] )
 
 Sets the three properties that correspond to the arguments, [**Validation**](#validation) (**Integer**) and [**AllowEmpty**](#allowempty) (**False**), calls [**ShowDialog**](#showdialog) and returns [**Value**](#value) as a **Long**. A cancelled box returns 0, which is also a possible entry, so test [**Cancelled**](#cancelled). The text `1e3` passes and returns 1000.
 
+<!-- /test -->
+
+<!-- test: CDialogInputBoxTests.ShowInteger_AValueThatDoesNotFitALongRaisesOverflowAndKeepsTheText -->
 > [!NOTE] 1.1.0.0
 > A text that passes the check but that a **Long** cannot hold, such as `99999999999`, raises error 6 after the box has closed. [**Value**](#value) then holds the text.
 
@@ -434,6 +442,7 @@ copies = box.ShowInteger("How many copies?", "Print", "1")
 If Not box.Cancelled Then Debug.Print copies & " copies"
 ```
 
+<!-- test: CDialogInputBoxTests.Enumerations_HaveTheDocumentedValues, CDialogInputBoxTests.ShowNumeric_ReturnsADouble, CDialogInputBoxTests.ShowEmail_Phone_URL_SetThePlaceholderAndTheDefault, CDialogInputBoxTests.ShowSimple_ReturnsTheTextAndSetsTheRules, CDialogInputBoxTests.ShowSimple_KeepsThePlaceholderOfAnEarlierCall -->
 ### ShowNumeric
 {: .no_toc }
 
@@ -619,6 +628,8 @@ Else
 End If
 ```
 
+<!-- /test -->
+
 ## See Also
 
 - [cDialogPassword](cDialogPassword) class -- asks for a password with a masked entry
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPageSetup.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPageSetup.md
index 9c6742e4..7879f520 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPageSetup.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPageSetup.md
@@ -10,6 +10,7 @@ has_toc: false
 
 A **cDialogPageSetup** shows the Windows Page Setup dialog, in which the user picks the paper, its orientation and the four margins of a page. It holds the page as properties, in inches, with ready-made sizes and margins, and works out the printable area.
 
+<!-- test: CDialogPageSetupTests.ToDescription_WithMillimetersWritesMillimeters, CDialogPageSetupTests.ShowDialog_PaperSizeSetBeforeTheCallIsTheOneTheDialogOpensWith, CDialogPageSetupTests.ShowDialog_OrientationSetBeforeTheCallSelectsLandscape, CDialogPageSetupTests.ShowDialog_OrientationChosenInTheDialogIsReadBack -->
 > [!WARNING] 1.1.0.0
 > Three things give a wrong result without an error. [**PaperWidth**](#paperwidth) and [**PaperHeight**](#paperheight) are not passed to the dialog, so it opens with the paper of the default printer whatever they hold. [**Orientation**](#orientation) is neither passed to the dialog nor read from it: a user who chooses *Landscape* leaves **Orientation** at **Portrait** and swaps the paper width and height instead. With [**Unit**](#unit) set to **Millimeters**, [**ToDescription**](#todescription) writes the values in inches and labels them `mm`.
 
@@ -31,6 +32,7 @@ Else
 End If
 ```
 
+<!-- test: CDialogPageSetupTests.ShowDialog_CancelReturnsFalseAndKeepsTheProperties -->
 ## How the dialog is shown
 
 [**ShowDialog**](#showdialog) calls `PageSetupDlgW` with the flag `PSD_MARGINS`, which is always set, and one of `PSD_INTHOUSANDTHSOFINCHES` and `PSD_INHUNDREDTHSOFMILLIMETERS`, which [**Unit**](#unit) selects. [**AllowMargins**](#allowmargins), [**AllowOrientation**](#alloworientation) and [**AllowPaper**](#allowpaper) set `PSD_DISABLEMARGINS`, `PSD_DISABLEORIENTATION` and `PSD_DISABLEPAPER` when they are **False**. The class sets no hook, template, minimum margins, help button or printer. The dialog is modal and has the title *Page Setup*.
@@ -41,6 +43,9 @@ When the user chooses **OK**, [**ShowDialog**](#showdialog) stores the paper siz
 
 The class gives the dialog no printer data and frees the data Windows returns, so the printer the user chose, the paper source and the other settings of the printer are lost. What remains is the size of the paper that the dialog shows when it closes, in [**PaperWidth**](#paperwidth) and [**PaperHeight**](#paperheight). The paper that the dialog offers first is the one of the default printer.
 
+<!-- /test -->
+
+<!-- test: CDialogPageSetupTests.Defaults_AreThoseOfThePage, CDialogPageSetupTests.Margins_AreStoredWithoutACheck, CDialogPageSetupTests.Unit_Millimeters_KeepsThePropertiesInInches -->
 ## Properties
 
 ### AllowMargins
@@ -182,6 +187,9 @@ Syntax: *object*.**Orientation** [ **=** *value* ]
 
 A [**PaperOrientation**](#paperorientation), **Portrait** by default.
 
+<!-- /test -->
+
+<!-- test: CDialogPageSetupTests.ShowDialog_OrientationSetBeforeTheCallSelectsLandscape, CDialogPageSetupTests.ShowDialog_OrientationChosenInTheDialogIsReadBack -->
 > [!WARNING] 1.1.0.0
 > The property is only stored. [**ShowDialog**](#showdialog) does not pass it to the dialog, so a **Landscape** set before the call does not select *Landscape* in the dialog, and it does not read the orientation back. After a user chose *Landscape*, **Orientation** is as it was and [**PaperWidth**](#paperwidth) and [**PaperHeight**](#paperheight) have changed places. To find the orientation after the dialog, compare the two: the page is landscape when **PaperWidth** is the larger. [**ToDescription**](#todescription) names the stored value.
 
@@ -238,6 +246,7 @@ Syntax: *object*.**PaperWidth** [ **=** *value* ]
 
 A **Double**, 8.5 by default, handled as [**PaperHeight**](#paperheight) is.
 
+<!-- test: CDialogPageSetupTests.ShowDialog_PaperSizeSetBeforeTheCallIsTheOneTheDialogOpensWith -->
 > [!WARNING] 1.1.0.0
 > Setting **PaperWidth** and **PaperHeight**, or calling [**SetA4Size**](#seta4size) or [**SetLegalSize**](#setlegalsize), does not make the dialog open with that paper. The margins are passed, and the paper is the one of the default printer. After **OK** the two properties hold what the dialog returned, not what was set.
 
@@ -257,6 +266,7 @@ Syntax: *object*.**Unit** [ **=** *value* ]
 
 A [**MeasurementUnit**](#measurementunit), **Inches** by default. It selects the unit of the dialog; the properties of the class stay in inches. See [How the dialog is shown](#how-the-dialog-is-shown).
 
+<!-- test: CDialogPageSetupTests.ToDescription_WithMillimetersWritesMillimeters -->
 > [!WARNING] 1.1.0.0
 > With **Millimeters**, [**ToDescription**](#todescription) still writes inches and labels them `mm`: a 1 inch margin is described as `1.00 mm`.
 
@@ -272,6 +282,7 @@ Debug.Print dlg.Unit
 ' 1
 ```
 
+<!-- test: CDialogPageSetupTests.GetPrintableHeight_And_Width_SubtractTheMargins, CDialogPageSetupTests.SetPaperSizes_SetWidthAndHeight, CDialogPageSetupTests.SetMargins_SetAllFour, CDialogPageSetupTests.Reset_RestoresTheStartingValuesButNotTheOwner, CDialogPageSetupTests.ToDescription_HasTheDocumentedForm -->
 ## Methods
 
 ### GetPrintableHeight
@@ -460,9 +471,13 @@ dlg.SetNarrowMargins
 Debug.Print dlg.ToDescription()
 ```
 
+<!-- /test -->
+
 ## Enumerations
 
+<!-- test: compile PaperOrientationQualifiedByTheClass, CDialogPageSetupTests.Enumerations_HaveTheDocumentedValues -->
 The enumerations are declared inside the class. A program names their members with the name of the enumeration in front, as in the samples, or by the member alone, such as `Landscape`. The name of the class cannot be put in front: `cDialogPageSetup.PaperOrientation.Landscape` is refused with TB5079, *Unrecognized symbol 'cDialogPageSetup'*.
+<!-- /test -->
 
 ### MeasurementUnit
 {: .no_toc }
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPassword.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPassword.md
index d3c40075..f686fc23 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPassword.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPassword.md
@@ -30,6 +30,7 @@ Else
 End If
 ```
 
+<!-- test: CDialogPasswordTests.ShowDialog_TheFirstBoxIsMaskedAndNamesTheRequirements, CDialogPasswordTests.ShowDialog_PasswordCharIsUsedForTheMask, CDialogPasswordTests.ShowDialog_AGoodPasswordIsStored, CDialogPasswordTests.ShowDialog_ARefusedPasswordShowsTheReasonAndTheAttemptsLeft, CDialogPasswordTests.ShowDialog_ThreeRefusedPasswordsEndTheCallAndKeepThePassword, CDialogPasswordTests.ShowDialog_MaxAttemptsOfZeroShowsNothing, CDialogPasswordTests.ShowDialog_RequireConfirmAsksAgainInASecondBox, CDialogPasswordTests.ShowDialog_ADifferentConfirmationCountsAsAFailedAttempt, CDialogPasswordTests.ShowChangeDialog_AsksForTheCurrentTheNewAndTheConfirmation, CDialogPasswordTests.ShowChangeDialog_AWrongCurrentPasswordStopsTheCall, CDialogPasswordTests.ShowChangeDialog_ANewPasswordEqualToTheCurrentOneStopsTheCall, CDialogPasswordTests.ShowChangeDialog_ADifferentConfirmationStopsTheCall, CDialogPasswordTests.ShowChangeDialog_CancellingABoxSetsCancelled -->
 ## How the box works
 
 The box has the title [**Title**](#title). Its text is [**Prompt**](#prompt), a blank line, `Requirements:`, and one line for each rule that is on: `- Minimum N characters` always, then `- At least one uppercase letter`, `- At least one lowercase letter`, `- At least one number` and `- At least one special character`. The maximum length is not named.
@@ -38,12 +39,17 @@ The class masks the edit box with the character of [**PasswordChar**](#passwordc
 
 [**ShowDialog**](#showdialog) repeats the question until it has a password that passes or [**MaxAttempts**](#maxattempts) attempts have failed. A failure shows a message box with the reason and `Attempts remaining: N`, and the last failure shows the reason and `Maximum attempts reached.`. If [**RequireConfirm**](#requireconfirm) is **True**, a password that passes is asked for again in a second box, `Please confirm your password:` under the title `Title - Confirm`, and a difference counts as a failed attempt (`Passwords do not match!`). Cancelling any box ends the call.
 
+<!-- /test -->
+
+<!-- test: CDialogPasswordTests.ShowDialog_TheConfirmationBoxIsMasked, CDialogPasswordTests.ShowChangeDialog_TheThreeBoxesAreMasked -->
 > [!WARNING] 1.1.0.0
 > Only the first box of [**ShowDialog**](#showdialog) is masked. The confirmation box of [**RequireConfirm**](#requireconfirm) and the three boxes of [**ShowChangeDialog**](#showchangedialog) (`Title - Current Password`, `Title - New Password` and `Title - Confirm New Password`) show what the user types in clear text, because the timer looks for a window with exactly the title [**Title**](#title). A program that asks for a confirmation or a change of password shows the passwords on the screen. To keep the entry masked, ask with [**ShowDialog**](#showdialog) alone and compare the two entries in the program, or use another control.
 
+<!-- test: CDialogPasswordTests.OwnerHwnd_OwnsTheBoxes, CDialogPasswordTests.ShowStrength_ShowsAStrengthIndicator, CDialogPasswordTests.AllowShowPassword_ShowsAControlThatRevealsThePassword -->
 > [!NOTE] 1.1.0.0
 > The properties [**ShowStrength**](#showstrength), [**AllowShowPassword**](#allowshowpassword) and [**OwnerHwnd**](#ownerhwnd) are stored but not used: the box has no strength indicator, no control that shows the password and no owner window. The password stays in [**Password**](#password), an ordinary string, until [**Reset**](#reset) empties it or the object ends.
 
+<!-- test: CDialogPasswordTests.Defaults_AreThoseOfThePage, CDialogPasswordTests.PasswordChar_KeepsTheFirstCharacterAndAnEmptyTextGivesTheDefault, CDialogPasswordTests.Reset_RestoresTheStartingValuesButNotTheOwner, CDialogPasswordTests.Password_StaysInTheObjectUntilReset, CDialogPasswordTests.Validate_ChecksInTheDocumentedOrder, CDialogPasswordTests.Validate_RequireSpecialAcceptsThePunctuationOfTheList, CDialogPasswordTests.Validate_ARuleSwitchedOffIsNotChecked, CDialogPasswordTests.GetStrength_AddsPointsForLengthAndKinds, CDialogPasswordTests.GetStrength_IgnoresTheRulesOfTheObject, CDialogPasswordTests.GetRequirementsDescription_ListsTheRules -->
 ## Properties
 
 ### AllowShowPassword
@@ -371,6 +377,9 @@ Syntax: *object*.**GetStrength** ( *password* ) **As** [**PasswordStrength**](#p
 
 The class adds points: 1 for 8 or more characters, 1 more for 12 or more, 1 more for 16 or more, 1 each for an uppercase letter, a lowercase letter and a digit, and 2 for a special character (the list under [**RequireSpecial**](#requirespecial)). A score of 0 to 2 is **VeryWeak**, 3 or 4 **Weak**, 5 or 6 **Fair**, and 7 or 8 **Strong**. The rules of the object (minimum, maximum and the required kinds) play no part.
 
+<!-- /test -->
+
+<!-- test: CDialogPasswordTests.GetStrength_TheBestPasswordIsVeryStrong -->
 > [!NOTE] 1.1.0.0
 > The highest score is 8, so the result is never **VeryStrong**.
 
@@ -384,6 +393,7 @@ Debug.Print box.GetStrengthDescription(box.GetStrength("Zq7-demo-xxxx"))   ' Str
 Debug.Print box.GetStrengthDescription(box.GetStrength("Zq7-demo-xxxxxxxxxxxx"))   ' Strong
 ```
 
+<!-- test: CDialogPasswordTests.GetStrengthDescription_NamesEachStrength -->
 ### GetStrengthDescription
 {: .no_toc }
 
@@ -546,6 +556,8 @@ If box.ShowChangeDialog(current) Then
 End If
 ```
 
+<!-- /test -->
+
 ## See Also
 
 - [cDialogInputBox](cDialogInputBox) class -- asks for one line of text, without a mask
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPrint.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPrint.md
index 6f98abf9..1b7d003f 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPrint.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogPrint.md
@@ -38,6 +38,7 @@ Private Sub ChooseAndPrint()
 End Sub
 ```
 
+<!-- test: CDialogPrintTests.ShowDialog_CancelReturnsFalseAndSetsCancelled, CDialogPrintTests.ShowDialog_OKReturnsTrueAndClearsCancelled -->
 ## How the dialog is shown
 
 [**ShowDialog**](#showdialog) calls `PrintDlgW`, the classic Print dialog, not the newer `PrintDlgEx`. The properties set these flags when they have the value shown: [**ReturnDC**](#returndc) **True** (`PD_RETURNDC`), [**Collate**](#collate) **True** (`PD_COLLATE`), [**PrintToFile**](#printtofile) **True** (`PD_PRINTTOFILE`), [**AllowSelection**](#allowselection) **False** (`PD_NOSELECTION`), [**AllowPageRange**](#allowpagerange) **False** (`PD_NOPAGENUMS`), [**HidePrintToFile**](#hideprinttofile) **True** (`PD_HIDEPRINTTOFILE`) and [**AllowPrintToFile**](#allowprinttofile) **False** (`PD_DISABLEPRINTTOFILE`). [**PrintRangeMode**](#printrangemode) adds `PD_SELECTION` or `PD_PAGENUMS`. The class passes no printer settings and sets no hook, template or help button. The dialog is modal and has the title *Print*; its printer is the default printer of the computer until the user changes it.
@@ -46,12 +47,19 @@ When the user chooses **OK**, [**ShowDialog**](#showdialog) stores the page rang
 
 The class frees the printer data that Windows allocates for the dialog. The printer that the user chose, its paper, its orientation and the other settings of its driver are therefore not returned as such. They are in the device context, which is set up for the chosen printer with its settings, so a program that needs to know them asks the context with the API function `GetDeviceCaps`.
 
+<!-- /test -->
+
+<!-- test: probe c26 -->
 > [!IMPORTANT] 1.1.0.0
 > With [**ReturnDC**](#returndc) **True**, which is the default, every **OK** creates a device context that the class never deletes. The program must delete it with the API function `DeleteDC` when it has finished with it, as the sample at the head of the page does, or set **ReturnDC** to **False** when it does not need the context. [**Reset**](#reset), and a later [**ShowDialog**](#showdialog) that returns **True**, replace the handle without deleting the old context.
 
+<!-- /test -->
+
+<!-- test: CDialogPrintTests.ShowDialog_FromPageAbove32767RaisesOverflowBeforeTheDialog, CDialogPrintTests.ShowDialog_ToPageAbove32767RaisesOverflow, CDialogPrintTests.ShowDialog_MinPageAbove32767RaisesOverflow, CDialogPrintTests.ShowDialog_MaxPageAbove32767RaisesOverflow, CDialogPrintTests.ShowDialog_CopiesAbove32767RaisesOverflow -->
 > [!NOTE] 1.1.0.0
 > The page numbers and the number of copies are passed to Windows as 16-bit integers. A [**FromPage**](#frompage), [**ToPage**](#topage), [**MinPage**](#minpage), [**MaxPage**](#maxpage) or [**Copies**](#copies) that does not fit, one above 32,767 or one below -32,768, makes [**ShowDialog**](#showdialog) raise error 6, *Overflow*, before the dialog opens.
 
+<!-- test: CDialogPrintTests.Defaults_AreThoseOfThePage, CDialogPrintTests.Copies_IgnoresZeroAndNegativeValues, CDialogPrintTests.ToDescription_NamesRangeCopiesAndOptions, CDialogPrintTests.Reset_RestoresTheStartingValues -->
 ## Properties
 
 ### AllowPageRange
@@ -426,6 +434,8 @@ Debug.Print dlg.ToDescription()
 ' Pages 2 - 4, 3 copies, Collated, Print to file
 ```
 
+<!-- /test -->
+
 ## Enumerations
 
 ### PrintRange
@@ -439,7 +449,9 @@ Which pages are printed, the type of [**PrintRangeMode**](#printrangemode).
 | **Selection** | 1 | The selection of the program. |
 | **PageRange** | 2 | The pages from [**FromPage**](#frompage) to [**ToPage**](#topage). |
 
+<!-- test: compile PrintRangeQualifiedByTheClass -->
 The enumeration is declared inside the class. A program names its members with the name of the enumeration in front, as in the samples, or by the member alone, such as `Selection`. The name of the class cannot be put in front: `cDialogPrint.PrintRange.Selection` is refused with TB5079, *Unrecognized symbol 'cDialogPrint'*.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogProgress.md b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogProgress.md
index 346dd7bc..99885591 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogProgress.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/cDialogProgress.md
@@ -34,12 +34,15 @@ If Not progress.Cancelled Then progress.Complete
 Debug.Print progress.Percentage & "%"
 ```
 
+<!-- test: CDialogProgressTests.GetRemainingTime_JustAfterStartDoesNotDivideByZero, CDialogProgressTests.GetRemainingTime_JustAfterStartRaisesError11, CDialogProgressTests.GetDescription_JustAfterStartDoesNotDivideByZero, CDialogProgressTests.SimulateProgress_WithADelayOfZeroDoesNotDivideByZero -->
 > [!NOTE] 1.1.0.0
 > [**GetRemainingTime**](#getremainingtime), and with it [**GetRemainingTimeString**](#getremainingtimestring) and [**GetDescription**](#getdescription), raise error 11 (*Division by zero*) when they are called before the clock has ticked after [**Start**](#start) (the clock of Windows ticks about every 16 milliseconds) and [**Progress**](#progress) is above [**Min**](#min). A program that reports progress as it begins reads the description too early. Call them later, or handle the error.
 
+<!-- test: CDialogProgressTests.Percentage_OfAWideRangeDoesNotOverflow, CDialogProgressTests.SetPercentage_OnAWideRangeDoesNotOverflow, CDialogProgressTests.Percentage_UpTo21MillionUnitsWorks -->
 > [!NOTE] 1.1.0.0
 > [**Percentage**](#percentage) and [**SetPercentage**](#setpercentage) multiply in a **Long**, so a range wider than about 21 million units can raise error 6 (*Overflow*): [**Percentage**](#percentage) with **Max** 100,000,000 and a position of 50,000,000 does, and so does [**SetPercentage**](#setpercentage) with 50. Use a smaller range, such as the number of items instead of the number of bytes.
 
+<!-- test: CDialogProgressTests.Defaults_AreThoseOfThePage, CDialogProgressTests.Enumeration_HasTheDocumentedValues, CDialogProgressTests.Progress_IgnoresAValueOutsideTheRange, CDialogProgressTests.MaxAndMin_DoNotMoveProgress, CDialogProgressTests.Percentage_IsTheShareOfTheRangeRoundedDown, CDialogProgressTests.Start_SetsProgressToMinAndClearsCancelled, CDialogProgressTests.Increment_AddsStepAndIgnoresAValueAboveMax, CDialogProgressTests.Increment_ANegativeStepCanGoBelowMin, CDialogProgressTests.PerformStep_IsTheSameAsIncrement, CDialogProgressTests.SetPercentage_MovesToAPercentageOfTheRange, CDialogProgressTests.Complete_MovesToMax, CDialogProgressTests.Cancel_SetsCancelledAndNothingStops, CDialogProgressTests.Reset_RestoresTheStartingValuesButNotTheOwner, CDialogProgressTests.GetDescription_ProgressBarAddsThePercentageAndTheTimes, CDialogProgressTests.GetDescription_MarqueeAndStepsGiveTheMessageAlone, CDialogProgressTests.TimeFunctions_BeforeStartGiveZero, CDialogProgressTests.GetElapsedTime_CountsWholeSecondsSinceStart, CDialogProgressTests.GetRemainingTime_EstimatesFromTheSpeedSoFar, CDialogProgressTests.Events_ProgressChangedIsRaisedForEachMove, CDialogProgressTests.Events_ProgressChangedIsRaisedAlsoForTheSameValue, CDialogProgressTests.Events_ResetAndStartRaiseNothing, CDialogProgressTests.Events_CancelRaisesCancelClickedEachTimeWithCancelledSet, CDialogProgressTests.Events_SetPercentageRaisesAnEventForAPercentageInsideTheRange, CDialogProgressTests.SimulateProgress_RunsFromMinToMaxAndCompletes, CDialogProgressTests.SimulateProgress_ACancelInTheHandlerStopsTheLoop -->
 ## Properties
 
 ### Cancelled
@@ -670,6 +673,8 @@ Else
 End If
 ```
 
+<!-- /test -->
+
 ## See Also
 
 - [cDialogCountdownMsgBox](cDialogCountdownMsgBox) class -- shows a message box that closes by itself
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/index.md b/docs/Reference/Contributed/TBMANLIB_Dialog/index.md
index 0cd42760..3b91343a 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/index.md
@@ -21,6 +21,7 @@ exclude_from_docs:
 
 A twinBASIC package of dialogs. Its first class, **cDialog**, shows the Windows Open, Save As and Browse For Folder dialogs, builds the file-type filters of the first two, splits a file path into folder, name and extension, and opens a file in the program that Windows associates with it; its property names follow VB6's **CommonDialog** control. **cDialogEx** shows the Open, Save As and folder dialogs of Windows Vista and later. Five more classes show the Windows Color, Font, Find and Replace, Page Setup and Print dialogs, and five classes ask for a value or report progress (a message box with a time limit, a date and time, an input box, a password and a progress state); the last five use the run-time's own **InputBox** and **MsgBox** or draw nothing. Every class except **cDialog** is marked as not creatable with **CreateObject**, and is made with **New**. The module **mDialog** holds the types and conversion functions that they share. This section documents version 1.1.0.0, which added every class except **cDialog**. The **CommonDialog** class of the [VBComDlg](../VBComDlg/CommonDialog) package is a fuller alternative for the Windows common dialogs, with flags, a filter index and cancel errors.
 
+<!-- test: probe c43, probe c44, probe x1, probe x5, probe x15, CDialogPageSetupTests.ShowDialog_PaperSizeSetBeforeTheCallIsTheOneTheDialogOpensWith, CDialogPageSetupTests.ShowDialog_OrientationChosenInTheDialogIsReadBack, CDialogPasswordTests.ShowDialog_TheConfirmationBoxIsMasked, CDialogDateTimeTests.ShowDialog_ARefusedMonthAndDayLeaveTheObjectAsItWas, CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoDateIsRead, CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMarchKeepsTheName, CDialogInputBoxTests.PasswordChar_MasksTheEntry -->
 > [!WARNING] 1.1.0.0
 > Several classes fail at their main task, and no error is raised. [**cDialogFindReplace**](cDialogFindReplace) reports nothing to the program, and its **ShowReplace** can end a 32-bit program. [**cDialogPageSetup**](cDialogPageSetup) ignores the paper size and the orientation the program sets, and does not read back the orientation the user chose. [**cDialogEx**](cDialogEx) returns file and folder names without their folder, ignores **InitialDir**, and shows no file types for a filter written in the usual form. [**cDialogPassword**](cDialogPassword) shows the password as it is typed in its confirmation boxes. [**cDialogDateTime**](cDialogDateTime) keeps the parts of an entry it refused, refuses a time with AM or PM and no date, and changes the letters of a month name in a custom format. Four properties of [**cDialogInputBox**](cDialogInputBox), among them **PasswordChar**, have no effect. Each class's page describes its defects. [**cDialog**](cDialog/), the class for the Open, Save As and Browse For Folder dialogs, works.
 
@@ -89,3 +90,7 @@ The package contains a module of test procedures, **TestModule**, whose procedur
 
 - [VBComDlg](../VBComDlg/) package -- the **CommonDialog** class, with flags, a filter index and cancel errors
 - [Experimental Packages](../../Experimental/) -- the packages from TWINSERV that are not yet ready for use in a program
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB_Dialog-tests.twinproj](TBMANLIB_Dialog-tests.twinproj), a twinBASIC project. It uses TBMANLIB_Dialog as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_Dialog/mDialog.md b/docs/Reference/Contributed/TBMANLIB_Dialog/mDialog.md
index 14381390..357cd304 100644
--- a/docs/Reference/Contributed/TBMANLIB_Dialog/mDialog.md
+++ b/docs/Reference/Contributed/TBMANLIB_Dialog/mDialog.md
@@ -16,6 +16,7 @@ Holds the constants, the four structure types and the eight conversion functions
 
 **Types:** [COMDLG_FILTERSPEC](#types), [GUID](#types), [POINT](#types), [RECT](#types).
 
+<!-- test: MDialogTests.InchesToMM_MultipliesBy25Point4, MDialogTests.MMToInches_DividesBy25Point4, MDialogTests.InchesToPoints_And_PointsToInches, MDialogTests.InchesToTwips_RoundsToTheNearestWholeNumber, MDialogTests.TwipsToInches_DividesBy1440, MDialogTests.Constants_HaveTheDocumentedValues, MDialogTests.RGBToHtml_WritesSixUpperCaseDigits, MDialogTests.RGBToHtml_WrapsAValueOutsideZeroTo255, MDialogTests.HtmlToRGB_ReadsSixDigitsWithOrWithoutAHash, MDialogTests.HtmlToRGB_AnyOtherTextGivesBlack, MDialogTests.HtmlToRGB_ASpaceInsideSixCharactersIsNotAlwaysRejected, MDialogTests.Types_HaveTheDocumentedSizes, MDialogTests.MembersAreGlobalAndCanBeQualifiedWithTheModuleName -->
 The members of **mDialog** are global: a program writes `InchesToMM(1)` and also `mDialog.InchesToMM(1)`.
 
 ```tb check_build check_run
@@ -139,7 +140,11 @@ The structures are those of the Windows API, written for the dialog classes of t
 | **POINT** | **X** and **Y**, both **Long** | 8 bytes |
 | **RECT** | **Left**, **Top**, **Right** and **Bottom**, all **Long** | 16 bytes |
 
+<!-- /test -->
+
+<!-- test: compile GuidWithoutTheModuleName -->
 Declare **GUID** as `mDialog.GUID`: the name **GUID** alone refers to another type, and `Dim g As GUID` is refused with error TB5106 in a project that references the package. Writing the module name before **RECT**, **POINT** and **COMDLG_FILTERSPEC** as well makes sure that the type of the package is the one used.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim g As mDialog.GUID
diff --git a/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/Show.md b/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/Show.md
index 472e2878..0a2aae93 100644
--- a/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/Show.md
+++ b/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/Show.md
@@ -11,9 +11,12 @@ Attaches the horizontal scroll bar to a **ListBox** control and initialises scro
 
 Syntax: *object*.**Show** *ListBoxInst*
 
+<!-- test: ShowTests.Show_ObjectOfAnotherTypeRaisesError, UnShowTests.UnShow_KeepsListBoxReference -->
 *ListBoxInst*
 : *required* An object expression that evaluates to a **ListBox** control. The class assigns it to a **ListBox** variable, so an object of another type causes a run-time error. The class holds this reference for the lifetime of the object; [**UnShow**](UnShow) does not release it.
+<!-- /test -->
 
+<!-- test: ShowTests.Show_ShowsHorizontalScrollBar, ShowTests.Show_ExtentIsWidestItemPlus10, ShowTests.Show_ExtentUsesControlFont, ShowTests.Show_SetsScrollRange, ShowTests.Show_EmptyListSetsNoExtent, ShowTests.Show_EmptyItemsSetNoExtent, ShowTests.Show_ListScrollsHorizontally -->
 **Show** performs three actions in sequence:
 
 1. Calls the Win32 `ShowScrollBar` API to make the horizontal scroll bar visible on *ListBoxInst*.
@@ -21,10 +24,18 @@ Syntax: *object*.**Show** *ListBoxInst*
 3. Installs a window subclass (`SetWindowSubclass` from `comctl32`) on the control's `hWnd` to intercept `WM_HSCROLL` messages. The subclass procedure updates the scroll bar position with `SetScrollInfo` and then passes each message on to `DefSubclassProc`.
 
 After **Show** returns, the **ListBox** scrolls horizontally when any item is wider than the visible area.
+<!-- /test -->
 
+<!-- test: ScrollTests.LineRight_ContentsFollowThumb, ScrollTests.LineLeft_ContentsFollowThumb, ScrollTests.PageRight_ContentsFollowThumb, ScrollTests.PageLeft_ContentsFollowThumb, ScrollTests.Right_ContentsFollowThumb, ScrollTests.ThumbTrack_ContentsFollowThumb -->
+> [!WARNING] 1.0.0.1
+> The thumb of the scroll bar and the contents of the list disagree after a click on a scroll arrow or in the track of the scroll bar. The subclass moves the thumb by 20 pixels for an arrow and by one page for the track, while the list box scrolls its contents by its own step, for example 9 pixels for an arrow and about two-thirds of a page for the track. After a few clicks the thumb is at a position the list does not show. Dragging the thumb, and the scroll to the start or the end, leave them equal.
+
+<!-- test: ShowTests.Show_ItemAddedLaterIsNotMeasured, ShowTests.Show_AgainMeasuresTheNewItems -->
 > [!IMPORTANT] timeless
 > **Show** must be called after the **ListBox** has been populated. If items are added or removed after the call, the horizontal extent is not updated automatically. Call **Show** again on the same control to recalculate the extent for the updated item list.
+<!-- /test -->
 
+<!-- test: UnShowTests.Terminate_RemovesTheSubclass, UnShowTests.UnShow_RemovesTheSubclass -->
 > [!NOTE] timeless
 > The subclass installed by **Show** is removed automatically when the class instance is destroyed (`Class_Terminate`). It can also be removed explicitly by calling [**UnShow**](UnShow).
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/UnShow.md b/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/UnShow.md
index d401f68c..46c6ac85 100644
--- a/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/UnShow.md
+++ b/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/UnShow.md
@@ -14,13 +14,18 @@ Syntax: *object*.**UnShow**
 *object*
 : *required* An object expression that evaluates to a **cListboxHScroll** instance.
 
+<!-- test: UnShowTests.UnShow_RemovesTheSubclass -->
 **UnShow** calls `RemoveWindowSubclass` (comctl32) to detach the scroll message handler that was installed by **Show**. After this call, the **ListBox** control associated with the instance no longer receives the subclassed `WM_HSCROLL` processing added by the class.
+<!-- /test -->
 
+<!-- test: UnShowTests.UnShow_KeepsScrollBarAndExtent, UnShowTests.UnShow_KeepsListBoxReference, UnShowTests.UnShow_ExtentAndBarCanBeClearedByHand -->
 > [!NOTE] timeless
 > **UnShow** does not hide the horizontal scrollbar itself, and does not reset the horizontal extent or release the **ListBox** reference---it removes only the subclass procedure. Call `ShowScrollBar` directly with `SB_HORZ` and `0` if the scrollbar must also be hidden.
 
+<!-- test: UnShowTests.Terminate_RemovesTheSubclass -->
 > [!IMPORTANT] timeless
 > The class destructor (`Class_Terminate`) calls the internal `RemoveListBoxSubclass` helper automatically, so **UnShow** need only be called explicitly when the subclass must be removed before the **cListboxHScroll** instance goes out of scope.
+<!-- /test -->
 
 ### Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/index.md b/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/index.md
index 4a436760..5097419f 100644
--- a/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/cListboxHScroll/index.md
@@ -10,7 +10,7 @@ has_toc: false
 
 A helper class that adds a functional horizontal scrollbar to a standard VB **ListBox** control by combining the `LB_SETHORIZONTALEXTENT` message, Win32 scroll-info APIs, and window subclassing.
 
-The class measures the pixel width of each list item using GDI's `GetTextExtentPoint32W`, sets the scroll range to fit the widest item, and installs a subclass procedure to intercept `WM_HSCROLL` messages so the scrollbar thumb tracks correctly. Call [**Show**](#show) after populating the list and [**UnShow**](#unshow) (or allow the class instance to be destroyed) when the scroll handling is no longer needed.
+The class measures the pixel width of each list item using GDI's `GetTextExtentPoint32W`, sets the scroll range to fit the widest item, and installs a subclass procedure to intercept `WM_HSCROLL` messages and set the scrollbar thumb's position. Call [**Show**](#show) after populating the list and [**UnShow**](#unshow) (or allow the class instance to be destroyed) when the scroll handling is no longer needed.
 
 ```tb check_build
 Private HScroll As New cListboxHScroll
@@ -38,22 +38,35 @@ Activates horizontal scrolling on a **ListBox** control.
 
 Syntax: *object*.**Show** *ListBoxInst*
 
+<!-- test: ShowTests.Show_ObjectOfAnotherTypeRaisesError -->
 *ListBoxInst*
 : *required* An **Object** reference to the **ListBox** control to instrument. The class assigns it to a **ListBox** variable, so an object of another type causes a run-time error. The control must already have its items populated; **Show** measures the text width of every item at call time to compute the scroll range.
+<!-- /test -->
 
+<!-- test: ShowTests.Show_ShowsHorizontalScrollBar, ShowTests.Show_ExtentIsWidestItemPlus10, ShowTests.Show_SetsScrollRange, ShowTests.Show_EmptyListSetsNoExtent, ShowTests.Show_EmptyItemsSetNoExtent, ShowTests.Show_ListScrollsHorizontally, ScrollTests.LineRight_MovesThumb20, ScrollTests.LineLeft_MovesThumb20, ScrollTests.LineLeft_StopsAtStart, ScrollTests.PageRight_MovesThumbOnePage, ScrollTests.PageRight_StopsAtEnd, ScrollTests.PageLeft_MovesThumbOnePage, ScrollTests.Right_MovesThumbToEnd, ScrollTests.Left_MovesThumbToStart, ScrollTests.ThumbPosition_MovesThumbToPosition, ScrollTests.ThumbTrack_MovesThumbToPosition, ScrollTests.ThumbPosition_StopsAtEnd, ScrollTests.EndScroll_LeavesThumb -->
 **Show** performs three operations in sequence:
 
 1. Calls the Win32 `ShowScrollBar` API to make the horizontal scrollbar visible.
 2. Iterates every list item, measures its pixel width using the GDI device context of the control, and sends `LB_SETHORIZONTALEXTENT` with the widest measurement plus a 10-pixel margin. It also calls `SetScrollInfo` to set the scroll range and page size so the scrollbar thumb reflects the visible proportion of the content. When the list is empty, or every item is empty, neither is set.
 3. Installs a window subclass procedure via `SetWindowSubclass` (comctl32) to intercept `WM_HSCROLL` messages. The subclass updates the scroll position on line-left / line-right (20 px per step), page-left / page-right, thumb-track / thumb-position, and left / right scrolls, then passes the message to `DefSubclassProc`.
+<!-- /test -->
 
+<!-- test: ShowTests.Show_ExtentUsesControlFont -->
 The scroll range is calculated from the widest item's pixel width measured with the font that the control reports through `WM_GETFONT`, so a **ListBox** that uses a non-default font is measured with that font.
+<!-- /test -->
 
+<!-- test: ScrollTests.LineRight_ContentsFollowThumb, ScrollTests.LineLeft_ContentsFollowThumb, ScrollTests.PageRight_ContentsFollowThumb, ScrollTests.PageLeft_ContentsFollowThumb, ScrollTests.Right_ContentsFollowThumb, ScrollTests.ThumbTrack_ContentsFollowThumb -->
+> [!WARNING] 1.0.0.1
+> The thumb of the scroll bar and the contents of the list disagree after a click on a scroll arrow or in the track of the scroll bar. The subclass moves the thumb by 20 pixels for an arrow and by one page for the track, while the list box scrolls its contents by its own step, for example 9 pixels for an arrow and about two-thirds of a page for the track. After a few clicks the thumb is at a position the list does not show. Dragging the thumb, and the scroll to the start or the end, leave them equal.
+
+<!-- test: ShowTests.Show_ItemAddedLaterIsNotMeasured, ShowTests.Show_AgainMeasuresTheNewItems -->
 > [!NOTE] timeless
 > **Show** measures item widths at the moment it is called. If items are added or removed after **Show**, the scroll range is not updated automatically. Call **Show** again after bulk changes to refresh the extent.
 
+<!-- test: ShowTests.Show_ControlWithoutWindowRaisesNoError -->
 > [!IMPORTANT] timeless
 > The control's **hWnd** must be valid (the form must be loaded and the control fully created) before calling **Show**. Calling **Show** before the control's window exists returns silently without installing any scrolling behavior.
+<!-- /test -->
 
 ### UnShow
 {: .no_toc }
@@ -62,9 +75,13 @@ Removes the window subclass installed by [**Show**](#show).
 
 Syntax: *object*.**UnShow**
 
+<!-- test: UnShowTests.UnShow_RemovesTheSubclass, UnShowTests.UnShow_KeepsScrollBarAndExtent, UnShowTests.UnShow_ExtentAndBarCanBeClearedByHand -->
 Calls `RemoveWindowSubclass` to detach the `WM_HSCROLL` handler. After **UnShow** the **ListBox** no longer receives the class's `WM_HSCROLL` handling. The scroll bar and the horizontal extent set by **Show** are not reset; send the `LB_SETHORIZONTALEXTENT` message with a width of 0 to the control, and hide the bar with `ShowScrollBar`, if clearing them is required.
+<!-- /test -->
 
+<!-- test: UnShowTests.Terminate_RemovesTheSubclass -->
 `Class_Terminate` removes the subclass with the same internal helper, so the subclass is removed when the **cListboxHScroll** instance is destroyed.
+<!-- /test -->
 
 ## Example
 
@@ -90,9 +107,19 @@ End Sub
 
 ## Remarks
 
-**cListboxHScroll** uses window subclassing via the comctl32 `SetWindowSubclass` / `RemoveWindowSubclass` / `DefSubclassProc` API family. The subclass is identified by the constant ID `1` in every instance, so use one instance per **ListBox**.
+**cListboxHScroll** uses window subclassing via the comctl32 `SetWindowSubclass` / `RemoveWindowSubclass` / `DefSubclassProc` API family. The subclass is identified by the constant ID `1` in every instance.
+
+<!-- test: UnShowTests.Show_TwoInstancesOneList_EachHandlesEveryMessage, UnShowTests.UnShow_TwoInstancesOneList_LeavesTheOtherInPlace -->
+> [!NOTE] 1.0.0.1
+> Two instances on the same **ListBox** install two subclasses, and each handles every `WM_HSCROLL` message: a click on a scroll arrow moves the thumb 40 pixels, not 20. **UnShow** of one instance removes only its own subclass. Use one instance per **ListBox**.
+
+<!-- test: UnShowTests.Show_TwoInstancesTwoLists -->
+Instances on different list boxes are independent: **UnShow** of one leaves the scroll handling of the other in place.
+<!-- /test -->
 
+<!-- test: UnShowTests.Show_OtherListBoxLeavesFirstSubclassed -->
 The class stores the **ListBox** reference in a class-level variable (`Ctl`). Replacing the control by calling **Show** with a different **ListBox** does not automatically remove the subclass from the first control; call **UnShow** before switching targets.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/index.md b/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/index.md
index 95879ea7..36500b19 100644
--- a/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_ListBoxHScroll/index.md
@@ -1,6 +1,6 @@
 ---
 title: TBMANLIB_ListBoxHScroll Package
-parent: Contributed Packages
+parent: Experimental Packages
 has_toc: false
 indexed_from: 1.0.0.1
 permalink: /tB/Packages/Contributed/TBMANLIB_ListBoxHScroll/
@@ -18,3 +18,7 @@ The **TBMANLIB_ListBoxHScroll** contributed package provides a helper class that
 - [cListboxHScroll](cListboxHScroll/) -- a helper class that adds a functional horizontal scrollbar to a standard VB ListBox control using GDI text measurement, `LB_SETHORIZONTALEXTENT`, and window subclassing
   - [Show](cListboxHScroll/Show) -- attaches the horizontal scrollbar to a ListBox control and initialises scroll handling
   - [UnShow](cListboxHScroll/UnShow) -- removes the window subclass installed by Show
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB_ListBoxHScroll-tests.twinproj](TBMANLIB_ListBoxHScroll-tests.twinproj), a twinBASIC project. It uses TBMANLIB_ListBoxHScroll as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/Base64Prefix.md b/docs/Reference/Contributed/TBMANLIB_RES/Base64Prefix.md
index 5dd15845..a1d8cba1 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/Base64Prefix.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/Base64Prefix.md
@@ -9,6 +9,7 @@ has_toc: false
 
 Specifies whether, and with what MIME type, a data URI prefix is prepended to the base64 string returned by [**ReturnBase64**](cRes/#returnbase64).
 
+<!-- test: Base64PrefixTests.Base64Prefix_Members_HaveTheDocumentedValues -->
 | Constant | Value | Description |
 |----------|-------|-------------|
 | **Base64Prefix_None**{: #Base64Prefix_None } | 0 | No prefix. The returned string is raw base64 with no leading data URI scheme. |
@@ -24,6 +25,7 @@ Specifies whether, and with what MIME type, a data URI prefix is prepended to th
 | **Base64Prefix_AudioMP3**{: #Base64Prefix_AudioMP3 } | 10 | Prepends `data:audio/mpeg;base64,`. |
 | **Base64Prefix_AudioWAV**{: #Base64Prefix_AudioWAV } | 11 | Prepends `data:audio/wav;base64,`. |
 | **Base64Prefix_AudioOGG**{: #Base64Prefix_AudioOGG } | 12 | Prepends `data:audio/ogg;base64,`. |
+<!-- /test -->
 
 The default value used by **ReturnBase64** when *Prefix* is omitted is **Base64Prefix_None**.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/GLOBAL_RES.md b/docs/Reference/Contributed/TBMANLIB_RES/GLOBAL_RES.md
index 47f5a126..379db3b0 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/GLOBAL_RES.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/GLOBAL_RES.md
@@ -20,8 +20,11 @@ A pre-instantiated **cRes** object.
 Public Res As New cRes
 ```
 
+<!-- test: GlobalResTests.Res_IsOneSharedInstance, GlobalResTests.Res_Read_CanBeChained -->
 Because of **As New**, the instance is created automatically the first time **Res** is referenced. It provides the same interface as a manually constructed **cRes** instance: [**Read**](cRes/Read), [**ReturnBytes**](cRes/ReturnBytes), [**ReturnString**](cRes/ReturnString), [**ReturnHex**](cRes/ReturnHex), [**ReturnBase64**](cRes/ReturnBase64), and [**ReturnPicture**](cRes/ReturnPicture).
+<!-- /test -->
 
+<!-- test: GlobalResTests.Res_Read_ReplacesTheBytesForEveryCaller, GlobalResTests.Res_DoesNotShareBytesWithANewCRes -->
 > [!NOTE] timeless
 > **GLOBAL_RES.Res** is a single shared instance for the entire project. Calling **Res.Read** replaces its internal byte buffer. If multiple callers read different resources in the same execution path, use separate **cRes** instances rather than sharing **GLOBAL_RES.Res**.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/cRes/Read.md b/docs/Reference/Contributed/TBMANLIB_RES/cRes/Read.md
index dc1fe863..e10168e2 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/cRes/Read.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/cRes/Read.md
@@ -11,17 +11,24 @@ Loads a resource from the compiled executable into the **cRes** instance.
 
 Syntax: *object*.**Read**( *id*, *Type* ) **As cRes**
 
+<!-- test: ReadTests.Read_ByNumericId_LoadsTheResource, ReadTests.Read_ByName_LoadsTheResource, ReadTests.Read_NumericType_LoadsTheResource -->
 *id*
 : *required* A **Variant** identifying the resource to load. Pass a numeric **Long** to identify the resource by its integer ID, or a **String** to identify it by name.
 
 *Type*
 : *required* A **Variant** identifying the resource type. Pass a numeric **Long** for a predefined resource type (for example, `2` for `RT_BITMAP`), or a **String** for a named custom resource type (for example, `"CUSTOM"`).
+<!-- /test -->
 
+<!-- test: ReadTests.Read_ReturnsTheInstanceItself, ReadTests.Read_SecondRead_ReplacesTheBytes -->
 **Read** calls the **LoadResData** function with the supplied *id* and *Type* arguments and stores the resulting byte array internally. The method returns the **cRes** instance itself, so calls to the retrieval methods ([**ReturnBytes**](ReturnBytes), [**ReturnString**](ReturnString), [**ReturnHex**](ReturnHex), [**ReturnBase64**](ReturnBase64), [**ReturnPicture**](ReturnPicture)) can be chained directly onto the **Read** call.
+<!-- /test -->
 
+<!-- test: ReturnBytesTests.ReturnBytes_BeforeRead_HasNoElements, ReturnStringTests.ReturnString_BeforeRead_IsEmpty, ReturnHexTests.ReturnHex_BeforeRead_RaisesError, ReturnBase64Tests.ReturnBase64_BeforeRead_RaisesError, ReturnPictureTests.ReturnPicture_BeforeRead_RaisesError -->
 > [!IMPORTANT] timeless
 > **Read** must be called before any retrieval method. The resource data is not populated at construction time; a retrieval method called without a prior **Read** will operate on an empty byte array and may raise a runtime error.
+<!-- /test -->
 
+<!-- test: ReadTests.Read_NoMatchingResource_RaisesError, ReadTests.Read_IdOfAnotherType_RaisesError, ReadTests.Read_FileOnDisk_RaisesError -->
 > [!NOTE] 1.0.0.4
 > **Read** can load only a resource that is part of the project. *Type* names a folder under **Resources** in the Project Explorer (or is the number of a standard resource type), and *id* identifies a resource in it. If no resource matches, **LoadResData** raises a run-time error.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnBase64.md b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnBase64.md
index e9a1f62d..94fc5265 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnBase64.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnBase64.md
@@ -11,10 +11,17 @@ Returns the resource bytes as a Base64-encoded string, with an optional MIME-typ
 
 Syntax: *object*.**ReturnBase64** ( [ *Prefix* ] ) **As String**
 
+<!-- test: ReturnBase64Tests.ReturnBase64_Default_HasNoPrefix -->
 *Prefix*
 : *optional* A **Base64Prefix** enumeration value that selects a data-URI prefix to prepend to the encoded string. Defaults to **Base64Prefix_None**, which returns the raw Base64 string with no prefix.
+<!-- /test -->
 
-**ReturnBase64** encodes the byte array held by the **cRes** instance using MSXML2's `bin.base64` data type and returns the result as a **String**. MSXML puts a line feed (`vbLf`) after every 72 characters of Base64, and **ReturnBase64** does not remove them. When *Prefix* is any value other than **Base64Prefix_None**, the corresponding `data:<type>;base64,` header is prepended, producing a data URI that can be used in an `<img src>`, `<video src>`, or `<audio src>` attribute in an HTML context.
+<!-- test: ReturnBase64Tests.ReturnBase64_ShortResource_IsTheBase64OfTheBytes, ReturnBase64Tests.ReturnBase64_LongResource_LineFeedAfterEvery72Characters -->
+**ReturnBase64** encodes the byte array held by the **cRes** instance using MSXML2's `bin.base64` data type and returns the result as a **String**. MSXML puts a line feed (`vbLf`) after every 72 characters of Base64, and **ReturnBase64** does not remove them.
+<!-- /test -->
+
+<!-- test: ReturnBase64Tests.ReturnBase64_Prefix_AddsTheDataUriHeader -->
+When *Prefix* is any value other than **Base64Prefix_None**, the corresponding `data:<type>;base64,` header is prepended, producing a data URI that can be used in an `<img src>`, `<video src>`, or `<audio src>` attribute in an HTML context.
 
 The following **Base64Prefix** values are defined:
 
@@ -33,12 +40,16 @@ The following **Base64Prefix** values are defined:
 | **Base64Prefix_AudioMP3** | `data:audio/mpeg;base64,` |
 | **Base64Prefix_AudioWAV** | `data:audio/wav;base64,` |
 | **Base64Prefix_AudioOGG** | `data:audio/ogg;base64,` |
+<!-- /test -->
 
+<!-- test: ReturnBase64Tests.ReturnBase64_Msxml2DomDocument_IsCreatedAndEncodes -->
 > [!IMPORTANT] 1.0.0.4
 > **ReturnBase64** requires that MSXML2 is registered on the machine. It creates an `MSXML2.DOMDocument` COM object internally. This call will fail at run time on systems where MSXML2 is not available.
+<!-- /test -->
 
+<!-- test: ReturnBase64Tests.ReturnBase64_BeforeRead_RaisesError -->
 > [!NOTE] timeless
-> Call [**Read**](Read) before **ReturnBase64**. The method encodes whatever bytes are currently stored in the instance, and an instance on which **Read** has not been called holds none.
+> Call [**Read**](Read) before **ReturnBase64**. The method encodes whatever bytes are currently stored in the instance, and an instance on which **Read** has not been called holds none, so the call raises a run-time error.
 
 ### Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnBytes.md b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnBytes.md
index 14fefd29..1126962c 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnBytes.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnBytes.md
@@ -11,13 +11,19 @@ Returns the raw byte array loaded from the resource file.
 
 Syntax: *object*.**ReturnBytes**() **As Byte()**
 
+<!-- test: ReturnBytesTests.ReturnBytes_ReturnsEveryByte, ReturnBytesTests.ReturnBytes_BeforeRead_HasNoElements -->
 Returns a **Byte()** containing every byte of the resource data loaded by the preceding [**Read**](Read) call. If **Read** has not been called, the returned array is unallocated and has no elements.
+<!-- /test -->
+
 
 ### Remarks
 
 **ReturnBytes** is the lowest-level retrieval method on **cRes**. The other retrieval methods---[**ReturnString**](ReturnString), [**ReturnHex**](ReturnHex), [**ReturnBase64**](ReturnBase64), and [**ReturnPicture**](ReturnPicture)---all derive their output from the same internal byte array that **ReturnBytes** exposes directly.
 
+<!-- test: ReturnBytesTests.ReturnBytes_IsACopy -->
 The returned array is a copy of the internal storage; modifying it does not affect the **cRes** instance.
+<!-- /test -->
+
 
 ### Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnHex.md b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnHex.md
index def5362a..410deb7c 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnHex.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnHex.md
@@ -11,6 +11,7 @@ Returns the loaded resource bytes as an uppercase hex string, with an optional s
 
 Syntax: *object*.**ReturnHex** ( [ *Separator* ] [ **,** *LineBreak* ] )
 
+<!-- test: ReturnHexTests.ReturnHex_Default_TwoUppercaseDigitsForEachByte, ReturnHexTests.ReturnHex_Separator_IsBetweenBytesNotAfterTheLast, ReturnHexTests.ReturnHex_LineBreak_AddsCrLfAfterEveryGroup, ReturnHexTests.ReturnHex_LineBreak_NoBreakAfterTheLastByte, ReturnHexTests.ReturnHex_LineBreakAndSeparator_SeparatorInsideEachLine -->
 *Separator*
 : *optional* A **String** inserted between each pair of adjacent byte values. Pass an empty string (default) for a compact, unseparated hex string.
 
@@ -20,7 +21,9 @@ Syntax: *object*.**ReturnHex** ( [ *Separator* ] [ **,** *LineBreak* ] )
 Each byte is formatted as exactly two uppercase hex digits, left-padded with `0` where necessary, so single-digit values such as `0A` or `0F` always occupy two characters. *Separator* is not appended after the final byte.
 
 When *LineBreak* is greater than `0`, it takes precedence over *Separator*: the *Separator* string is not inserted between bytes that fall on a line-break boundary. If both *Separator* is non-empty and *LineBreak* is greater than `0`, *Separator* is inserted between bytes within each line while `vbCrLf` is inserted at the end of each complete *LineBreak*-sized group.
+<!-- /test -->
 
+<!-- test: ReturnHexTests.ReturnHex_BeforeRead_RaisesError -->
 > [!NOTE] timeless
 > **ReturnHex** raises a run-time error if no resource has been loaded. Call [**Read**](Read) before calling **ReturnHex**.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnPicture.md b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnPicture.md
index 0298497e..3b244005 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnPicture.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnPicture.md
@@ -11,10 +11,14 @@ Returns the loaded resource bytes as an **IPictureDisp** object.
 
 Syntax: *object*.**ReturnPicture**() **As IPictureDisp**
 
-**ReturnPicture** passes the raw bytes stored by the preceding [**Read**](Read) call to **Global.LoadPicture**, the twinBASIC form of **LoadPicture** that accepts a byte array. **LoadPicture** interprets the bytes as an image and returns an **IPictureDisp** COM object. The returned picture can be assigned directly to the **Picture** property of any standard VB control that accepts one (such as **PictureBox** or **Image**).
+<!-- test: ReturnPictureTests.ReturnPicture_Bmp_ReturnsABitmapPicture, ReturnPictureTests.ReturnPicture_Png_ReturnsABitmapPicture, ReturnPictureTests.ReturnPicture_Gif_ReturnsABitmapPicture, ReturnPictureTests.ReturnPicture_NotAnImage_RaisesError -->
+**ReturnPicture** passes the raw bytes stored by the preceding [**Read**](Read) call to **Global.LoadPicture**, the twinBASIC form of **LoadPicture** that accepts a byte array. **LoadPicture** interprets the bytes as an image and returns an **IPictureDisp** COM object. The returned picture can be assigned directly to the **Picture** property of any standard VB control that accepts one (such as **PictureBox** or **Image**). If the bytes are not an image that **LoadPicture** supports, **ReturnPicture** raises a run-time error.
+<!-- /test -->
 
+<!-- test: ReturnPictureTests.ReturnPicture_BeforeRead_RaisesError -->
 > [!IMPORTANT] timeless
 > [**Read**](Read) must be called before **ReturnPicture**. An instance on which **Read** has not been called holds no image data for **LoadPicture** to read.
+<!-- /test -->
 
 ### Example
 
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnString.md b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnString.md
index 850534db..4ed613b0 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnString.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/cRes/ReturnString.md
@@ -11,11 +11,15 @@ Returns the loaded resource bytes as a **String**, with an optional character-se
 
 Syntax: *object*.**ReturnString** ( [ *Conversion* ] ) **As String**
 
+<!-- test: ReturnStringTests.ReturnString_Default_ReadsAnsiText -->
 *Conversion*
 : *optional* A **VbStrConv** constant passed to **StrConv** together with the byte array. Defaults to **vbUnicode**, which reads the bytes as text in the default ANSI code page of the system and converts it to a **String**.
+<!-- /test -->
+
 
 **ReturnString** passes the internal byte array held by the **cRes** instance to the **StrConv** function and returns the result. The byte array is the raw data loaded by a prior call to [**Read**](Read).
 
+<!-- test: ReturnStringTests.ReturnString_FromUtf8_ReadsUtf8Text, ReturnStringTests.ReturnString_WrongConversion_GivesOtherCharacters, ReturnStringTests.ReturnString_FromUnicode_DoesNotConvertBytesToText, ReturnStringTests.ReturnString_Utf16Resource_NoOptionGivesTheText, ReturnStringTests.ReturnBytes_Utf16Resource_AssignedToAStringGivesTheText -->
 > [!NOTE] timeless
 > The right value for *Conversion* depends on the encoding of the resource data. For ANSI text, use the default **vbUnicode**. For UTF-8 text, pass **vbFromUTF8**. **vbFromUnicode** converts in the opposite direction (a **String** to the ANSI code page), so it does not suit a byte array. **ReturnString** has no option for UTF-16 LE text: assign the array from [**ReturnBytes**](ReturnBytes) to a **String** variable instead. A constant that does not match the encoding of the resource gives the wrong characters.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_RES/index.md b/docs/Reference/Contributed/TBMANLIB_RES/index.md
index 3aa2b5f3..64c8fbe6 100644
--- a/docs/Reference/Contributed/TBMANLIB_RES/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_RES/index.md
@@ -32,3 +32,7 @@ A twinBASIC package for loading binary resources embedded in a compiled executab
 - [ReturnHex](cRes/ReturnHex) -- returns the loaded resource bytes as an uppercase hex string, with an optional separator between each byte and an optional line-break interval.
 - [ReturnPicture](cRes/ReturnPicture) -- returns the loaded resource bytes as an `IPictureDisp` object.
 - [ReturnString](cRes/ReturnString) -- returns the loaded resource bytes as a `String`, with an optional character-set conversion.
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB_RES-tests.twinproj](TBMANLIB_RES-tests.twinproj), a twinBASIC project. It uses TBMANLIB_RES as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_Xml/cXml.md b/docs/Reference/Contributed/TBMANLIB_Xml/cXml.md
index 5ebe3f5d..4417037f 100644
--- a/docs/Reference/Contributed/TBMANLIB_Xml/cXml.md
+++ b/docs/Reference/Contributed/TBMANLIB_Xml/cXml.md
@@ -30,6 +30,7 @@ Debug.Print x.ToXmlString(False)
 ' <library><book id="1">Dune</book><book id="2">Emma</book><note>checked</note></library>
 ```
 
+<!-- test: SelfClosingTests.Parse_BareSelfClosingElement_IsAnElementNamedLikeTheTag, SelfClosingTests.Parse_SelfClosingElementWithAttributes_HasNoChildren, EntityTests.Parse_PredefinedEntitiesInText_AreDecoded, TagTests.Parse_BothKindsOfQuote_KeepEveryAttribute, DeclarationTests.Parse_ProcessingInstructionInsideAnElement_LeavesNoText, DeclarationTests.Parse_UnclosedComment_Returns, DeclarationTests.Parse_UnclosedCDataSection_Returns, DeclarationTests.Parse_DoctypeAfterTheDeclaration_Returns, DeclarationTests.Parse_DoctypeInsideAnElement_Returns -->
 > [!WARNING] 1.0.0.1
 > The parser reads some valid XML wrongly and raises no error: a self-closing element, `&amp;` and other entities in text, a tag that uses both kinds of quote or has a line break between its attributes, and a processing instruction. A comment, a CDATA section or a DOCTYPE declaration in the wrong place makes **Parse** loop forever. [Defects in version 1.0.0.1](#defects) lists each case.
 
@@ -41,6 +42,7 @@ Debug.Print x.ToXmlString(False)
 
 The members that take an *xpath* parameter find an element by a path: [**SelectElement**](#selectelement), [**GetElementText**](#getelementtext), [**SetElementText**](#setelementtext), [**GetAttribute**](#getattribute), [**SetAttribute**](#setattribute), [**RemoveAttribute**](#removeattribute) and [**RemoveElement**](#removeelement), and [**AddElement**](#addelement) for its *parentXPath*. The name of the parameter is misleading: the syntax is a small one of the package's own and is not XPath. The [**XPath**](#xpath) methods read XPath expressions.
 
+<!-- test: PathTests.Path_FirstNameIsTheRootElement, PathTests.Path_ManyMatches_TakesTheFirstDirectChild, PathTests.Path_WhiteSpaceAndEmptyNames_AreRemoved, PathTests.Path_NamespacePrefix_IsPartOfTheName, PathTests.Path_PositionsAttributesAndWildcards_AreNamesNoElementHas, PathTests.Path_NodesThatAreNotElements_AreSelectedByTheirNames, PathTests.Path_WithNoName_SelectsNothing, NodeTests.ElementNames_DifferingInCase_AreDifferentElements -->
 - A path is a list of names separated by `/`, such as `library/book`. The search starts at the document node, so the first name is the name of the root element: `library/book` finds a book, and `book` finds nothing.
 - Each name selects the first child, of the node found so far, whose name equals it. Letter case is ignored. Only direct children count, and when several children have the name, the first one is taken.
 - White space around a name is removed, and an empty name is ignored. `/library//book` and ` library / book ` both mean `library/book`.
@@ -48,6 +50,7 @@ The members that take an *xpath* parameter find an element by a path: [**SelectE
 - Nothing else has a meaning. A position (`book[2]`), an attribute (`@id`), `*`, `.` and `..` are names that no element has, so the path selects nothing. `//book` does not search at any depth: the empty name is ignored, and the path means `book`. [**SelectElements**](#selectelements) searches at any depth, and the **ChildNodes** of a node reach the other children. The [**XPath**](#xpath) methods read positions, attribute tests, `*`, `.` and `//`.
 - The nodes that are not elements have names too, `#text`, `#comment` and `#cdata-section`, and a path can select them: `library/#comment` is the first comment directly inside the root element.
 - A path with no name, an empty string or `/`, selects nothing, and the Debug Console shows `SelectElement failed: Subscript out of range`.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -87,6 +90,7 @@ Debug.Print children(2).GetAttribute("id")
 ## Reporting failures
 {: #reporting-failures }
 
+<!-- test: PathTests.MembersThatFindNothing_ReturnEmptyValues, PathTests.Parse_EmptyString_ReturnsFalseAndLeavesErrEmptyDocument, PathTests.SelectElement_DocumentNotInitialised_ReturnsNothingAndLeavesErrEmptyDocument, PathTests.SelectElement_PathWithNoName_LeavesError9, PathTests.RemoveElement_PathThatSelectsNothing_ReturnsFalseAndLeavesError91, PathTests.Parse_TagCutOffByTheEndOfTheText_ReturnsFalseAndLeavesError5, XPathEngineTests.XPath_PositionTooLargeForALong_ReturnsAnEmptyCollectionAndLeavesTheError -->
 A member that cannot do its work returns a value that says so, and does not stop the program. [**Parse**](#parse), [**LoadFromFile**](#loadfromfile), [**SaveToFile**](#savetofile), [**Validate**](#validate) and [**RemoveElement**](#removeelement) return **False**. [**SelectElement**](#selectelement), [**AddElement**](#addelement) and [**XPathSingle**](#xpathsingle) return **Nothing**. [**GetElementText**](#getelementtext), [**GetAttribute**](#getattribute), [**XPathText**](#xpathtext) and [**XPathAttribute**](#xpathattribute) return an empty string, and [**SelectElements**](#selectelements), [**XPath**](#xpath) and [**XPathFromRoot**](#xpathfromroot) an empty collection. A method that returns nothing, such as [**SetAttribute**](#setattribute), does nothing.
 
 When an error causes the failure, the member also:
@@ -97,6 +101,7 @@ When an error causes the failure, the member also:
 The errors that occur are [**ERR_EMPTY_DOCUMENT**](mXml#err_empty_document), which [**Parse**](#parse) raises for an empty string and [**SelectElement**](#selectelement) for a document that has not been read or created, and the errors of the Visual Basic runtime that the code meets while it works: 5 (*Invalid procedure call or argument*) for a tag cut off by the end of the text, 9 (*Subscript out of range*) for a path with no name, and 91 (*Object variable or With block variable not set*) in [**RemoveElement**](#removeelement) for a path that selects nothing. The XPath members meet error 6 (*Overflow*) for a position too large for a **Long**, and write `XPath query failed:`, `XPathSingle query failed:` or `XPathFromRoot query failed:` and the description. The other error constants of [**mXml**](mXml#constants) are not used.
 
 The members that let an error reach the program are [**XmlString**](#xmlstring), [**ToXmlString**](#toxmlstring) and [**Merge**](#merge).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -160,7 +165,9 @@ Syntax: *object*.**Encoding** [ **=** *value* ]
 
 A **String**. The default is `UTF-8`, the value of [**DEFAULT_ENCODING**](mXml#default_encoding). [**ToXmlString**](#toxmlstring) and [**SaveToFile**](#savetofile) write it into the declaration. [**Parse**](#parse) and [**LoadFromFile**](#loadfromfile) set it from the `encoding` of the declaration of the text they read, when the declaration has one written with double quotes. Without one, the property keeps the value it had, which is the value of an earlier document if the object read one. [**CreateNew**](#createnew) leaves it as it is.
 
+<!-- test: DocumentTests.Encoding_AndVersion_AreWrittenIntoTheDeclaration, FileTests.SaveToFile_DeclaredEncoding_MatchesTheBytesWritten -->
 The property is a label. [**SaveToFile**](#savetofile) always writes UTF-8 and [**LoadFromFile**](#loadfromfile) always reads UTF-8, whatever the label says.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -258,10 +265,13 @@ Syntax: *object*.**XmlString** [ **=** *value* ]
 *object*
 : *required* An object expression that evaluates to a **cXml**.
 
+<!-- test: DocumentTests.XmlString_ReadsTheTextLastParsed_NotTheDocument, DocumentTests.XmlString_EmptyString_GivesAnInitialisedDocumentWithNoNodes, DocumentTests.Clone_ChangesToTheCloneDoNotReachTheOriginal -->
 A **String**. Assigning to it reads the text as [**Parse**](#parse) does and replaces the document. Reading it returns the text that [**Parse**](#parse), [**LoadFromFile**](#loadfromfile) or an assignment last read. It is not made again from the document, so it does not show later changes: [**ToXmlString**](#toxmlstring) does. [**Clone**](#clone) does not copy it.
 
 Assigning an empty string is not an error, unlike **Parse** with an empty string: it gives an initialised document with no nodes.
+<!-- /test -->
 
+<!-- test: DocumentTests.XmlString_TextThatCannotBeRead_RaisesNoError, DocumentTests.XmlString_TextThatCannotBeRead_IsStillKept -->
 > [!NOTE] 1.0.0.1
 > Assigning text that the parser cannot read raises an error, where **Parse** returns **False** for the same text. Assigning `<` raises error 5, *Invalid procedure call or argument*. The text is kept, so reading the property returns it.
 
@@ -465,9 +475,11 @@ Syntax: *object*.**LoadFromFile** ( *filePath* ) **As Boolean**
 *filePath*
 : *required* A **String**, the path of the file.
 
+<!-- test: FileTests.LoadFromFile_Utf8FileWithAndWithoutBom_IsRead, FileTests.LoadFromFile_EmptyFile_ReturnsFalse, FileTests.LoadFromFile_FileThatCannotBeParsed_ReturnsFalse -->
 Reads the whole file, removes a UTF-8 byte order mark if the file starts with one, converts the bytes as UTF-8 with [**UTF8BytesToString**](mXml#utf8bytestostring) and reads the text as [**Parse**](#parse) does. Returns **True** when the file was read.
 
 Returns **False**, and writes `LoadFromFile failed:` and the description to the Debug Console, when the file cannot be opened, is empty, or has fewer than three bytes. It returns **True** when the file was read but the text then fails to parse, because it ignores the result of **Parse**; see [Files](#defect-files). The file is read as UTF-8 whatever its declaration says, and the declaration's encoding only sets [**Encoding**](#encoding).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim path As String
@@ -502,12 +514,15 @@ Syntax: *object*.**Merge** ( *otherXml* )
 *otherXml*
 : *required* A **cXml**, the document to copy from. It is not changed.
 
+<!-- test: DocumentTests.Merge_AddedNodes_CanBeRemoved, DocumentTests.Merge_ObjectWithNoDocument_AsTheOtherDocument_DoesNothing -->
 Appends a copy of every child of the root element of *otherXml*, text and comments included, to the end of the root element of this document. The names and attributes of the two root elements are not compared or merged, and this document keeps its own. Nothing happens when *otherXml* holds no document.
+<!-- /test -->
 
 When this object holds no document, it becomes a copy of the whole of *otherXml*, and [**Initialized**](#initialized) becomes **True**. Its [**RootElement**](#rootelement) stays **Nothing**, so a second **Merge** into it does nothing.
 
 The copies have no **Parent**; see [Clone, Merge and the root element](#defect-clone).
 
+<!-- test: DocumentTests.Merge_NothingAsTheOtherDocument_DoesNothing -->
 > [!NOTE] 1.0.0.1
 > **Merge** with **Nothing** as *otherXml* raises error 91, *Object variable or With block variable not set*, because the code tests the object and its property in one expression.
 
@@ -538,7 +553,9 @@ Syntax: *object*.**Parse** ( *xml* ) **As Boolean**
 *xml*
 : *required* A **String**, the text to read.
 
+<!-- test: DeclarationTests.Parse_XmlDeclaration_SetsVersionAndEncoding -->
 Replaces the document with the one in the text, sets [**RootElement**](#rootelement) and [**XmlString**](#xmlstring), and returns **True**. The `version` and `encoding` of an XML declaration, written with double quotes, set [**Version**](#version) and [**Encoding**](#encoding).
+<!-- /test -->
 
 The parser builds these nodes: elements with their attributes, text, comments and CDATA sections. Text that is only spaces is left out, in the document and inside elements; text that has a line break or a tab in it is kept ([White space](#defect-whitespace)). An end tag closes the innermost open element whatever its name is, and an element still open at the end of the text is closed by it. Processing instructions and the declaration are not kept.
 
@@ -609,9 +626,11 @@ Syntax: *object*.**RemoveElement** ( *xpath* ) **As Boolean**
 *xpath*
 : *required* A **String**, the [path](#paths) of the element.
 
+<!-- test: DocumentTests.RemoveElement_FirstOfSeveralElements_RemovesOnlyThatOne, DocumentTests.Clone_CopiedNodes_CanBeRemoved, DocumentTests.RemoveElement_RootElement_LeavesNoRootElement, PathTests.RemoveElement_PathThatSelectsNothing_ReturnsFalseAndLeavesError91 -->
 Takes the first element that the path selects out of the **ChildNodes** of its parent, and returns **True**. Returns **False** when the path selects nothing, and for a node that has no **Parent**, which includes the nodes that [**Clone**](#clone) and [**Merge**](#merge) copy. In the first case the Debug Console shows `RemoveElement failed: Object variable or With block variable not set`.
 
 Removing the root element leaves [**RootElement**](#rootelement) as it was; see [Clone, Merge and the root element](#defect-clone).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -649,7 +668,9 @@ Syntax: *object*.**SaveToFile** ( *filePath* [ , *withDeclaration* [ , *prettyPr
 *indent*
 : *optional* A **String**, the indentation for each level of nesting when *prettyPrint* is **True**. The default is two spaces.
 
+<!-- test: FileTests.SaveToFile_WritesByteOrderMarkThenUtf8, FileTests.SaveToFile_MissingFolder_ReturnsFalse, FileTests.SaveToFile_ExistingFile_IsReplaced -->
 Writes the three bytes of a UTF-8 byte order mark, then the document as [**ToXmlString**](#toxmlstring) returns it for the same three options, converted with [**StringToUTF8Bytes**](mXml#stringtoutf8bytes). Returns **True** when the file was written, and **False**, with `SaveToFile failed:` and the description in the Debug Console, when it could not be, for example because the folder does not exist.
+<!-- /test -->
 
 The file is UTF-8 whatever [**Encoding**](#encoding) says, and the declaration states that value. A document with no content written without a declaration is the byte order mark followed by one zero byte.
 
@@ -682,7 +703,9 @@ Kill path
 ' Ada
 ```
 
+<!-- test: FileTests.SaveToFile_PrettyPrintAndIndent_ChangeTheSizeOfTheFile -->
 The *prettyPrint* and *indent* parameters change the size of the file. The text for each level of nesting is *indent*, and every line ends with a carriage return and a line feed:
+<!-- /test -->
 
 ```tb check_build check_run
 Dim path As String
@@ -749,9 +772,11 @@ Syntax: *object*.**SelectElements** ( *tagName* ) **As Collection**
 *tagName*
 : *required* A **String**, one name and not a path. Letter case is ignored.
 
+<!-- test: PathTests.SelectElements_ReturnsEveryNodeOfTheNameAtAnyDepth -->
 Returns a new **Collection** of the [**cXmlNode**](cXmlNode) objects, at any depth in the document, whose **Name** matches, in document order. An element inside another element of the same name is returned too. The collection is empty when nothing matches and when [**Initialized**](#initialized) is **False**; the method never returns **Nothing**.
 
 The names of the nodes that are not elements match, so `#text` returns every text node. The method does not read paths: `r/a` matches nothing.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -793,7 +818,9 @@ Syntax: *object*.**SetAttribute** ( *xpath* , *attrName* , *attrValue* )
 *attrValue*
 : *required* A **String**, the value.
 
+<!-- test: PathTests.SetAttribute_ReplacedAttribute_MovesToTheEnd -->
 Adds the attribute, or replaces the one with the same name, as [**SetAttribute**](cXmlNode#setattribute) of the element's node does: a replaced attribute moves to the end of the element's attributes. Nothing happens, and no error is raised, when the path selects nothing.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -824,7 +851,9 @@ Syntax: *object*.**SetElementText** ( *xpath* , *text* )
 *text*
 : *required* A **String**, the new text, as plain text: [**ToXmlString**](#toxmlstring) escapes it when it writes it.
 
+<!-- test: PathTests.SetElementText_ElementWithMixedContent_MovesTheTextToTheEnd, WriteTests.ToXmlString_ElementWithAnEmptyTextNode_WritesStartAndEndTag -->
 Removes the text nodes directly inside the element and adds one text node that holds *text*, after the element's other children. The child elements, comments and CDATA sections stay, so the text moves to the end of an element with mixed content. Setting an empty string leaves an empty text node, which makes [**ToXmlString**](#toxmlstring) write `<c></c>` and not `<c/>`. Nothing happens, and no error is raised, when the path selects nothing.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -856,9 +885,11 @@ Syntax: *object*.**ToXmlString** ( [ *withDeclaration* [ , *prettyPrint* [ , *in
 *indent*
 : *optional* A **String**, the indentation for each level of nesting, written once for each level. The default is two spaces. An empty string writes no indentation.
 
+<!-- test: WriteTests.ToXmlString_Compact_WritesDeclarationElementsAndEscapes, WriteTests.ToXmlString_ModelTree_WritesTheNodeKindsAndLeavesOutTheOthers, EntityTests.SetElementText_PlainText_IsWrittenOnce -->
 The text holds elements, text, comments and CDATA sections. An element with no child is written as `<name/>`, and an element with children as `<name>...</name>`. The characters `&`, `<`, `>`, `"` and `'` are replaced by `&amp;`, `&lt;`, `&gt;`, `&quot;` and `&apos;` in text and in the values of attributes. Comments and CDATA sections are written as they are. The attributes of an element are written in the order of its attribute list.
 
 A document that holds nothing gives the declaration alone, or an empty string without one.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -875,7 +906,9 @@ Debug.Print x.ToXmlString(False)
 ' <r id="1"><a>x &lt; y</a><empty/></r>
 ```
 
+<!-- test: WriteTests.PrettyPrint_PutsEachNodeOnALineAndIndentsEachLevel -->
 With *prettyPrint*, the nodes are on lines of their own. The sample shows the spaces as dots and the line breaks as bars:
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -908,7 +941,9 @@ Syntax: *object*.**Validate** ( ) **As Boolean**
 *object*
 : *required* An object expression that evaluates to a **cXml**.
 
+<!-- test: PathTests.Validate_NamelessElementOrAttribute_IsFalse -->
 Returns **True** when the object holds a document and every element in it has a name that is not empty and does not begin with `/`, and every attribute has a name that is not empty. Returns **False** otherwise, and for an object that holds no document.
+<!-- /test -->
 
 That is all it checks. It does not test that the text was well formed, that the names are legal XML names, or anything about a schema or a DTD. In practice it detects an element added with an empty name, an attribute set with an empty name, and the element named `/a` that the parser makes from the self-closing tag `<a/>` (see [Self-closing elements](#defect-self-closing)).
 
@@ -1100,6 +1135,7 @@ Each of these sections describes a case in which the package gives a wrong resul
 ### Self-closing elements
 {: #defect-self-closing .no_toc }
 
+<!-- test: SelfClosingTests.Parse_BareSelfClosingElement_IsAnElementNamedLikeTheTag, SelfClosingTests.Parse_SelfClosingElementWithAttributes_HasNoChildren, SelfClosingTests.Parse_SelfClosingElementWithSpaceBeforeTheSlash_HasNoChildren, SelfClosingTests.ToXmlString_EmptyElement_ReadsBackAsAnEmptyElement, SelfClosingTests.Validate_DocumentWithSelfClosingElements_IsTrue -->
 > [!WARNING] 1.0.0.1
 > A self-closing tag is read wrongly. `<a/>`, a name and nothing else, makes an element named `/a`. A tag with attributes, or with a space before the slash, such as `<a x="1"/>` or `<a />`, is read as a start tag, so the elements that follow it become its children, and the end tag of the parent closes it. [**ToXmlString**](#toxmlstring) writes an empty element as `<a/>`, so text that a **cXml** wrote is read wrongly by a **cXml**.
 
@@ -1128,6 +1164,7 @@ Debug.Print y.RootElement.ChildNodes(1).Name
 ### Entities and character references
 {: #defect-entities .no_toc }
 
+<!-- test: EntityTests.Parse_PredefinedEntitiesInText_AreDecoded, EntityTests.Parse_NumericReferencesInText_AreDecoded, EntityTests.Parse_NumericReferencesInAttribute_AreDecoded, EntityTests.Parse_PredefinedEntitiesInAttribute_AreDecoded, EntityTests.Parse_AmpersandEntityBeforeText_IsNotDecodedTwice, EntityTests.ToXmlString_TextReadFromXml_IsEscapedOnce, EntityTests.ToXmlString_AttributeReadFromXml_IsEscapedOnce -->
 > [!WARNING] 1.0.0.1
 > Entities in text are not decoded. [**GetElementText**](#getelementtext) and the **Value** of a text node return `&amp;`, `&lt;` and `&#65;` as they stand in the XML, and [**ToXmlString**](#toxmlstring) escapes the `&` again, so each read and write adds `amp;`. In the value of an attribute the five predefined entities `&lt;`, `&gt;`, `&amp;`, `&quot;` and `&apos;` are decoded, in that order, so `&amp;quot;` becomes a quotation mark. Numeric character references such as `&#65;` and `&#x41;` are not decoded anywhere.
 
@@ -1149,6 +1186,7 @@ Text set with [**SetElementText**](#setelementtext) or [**SetAttribute**](#setat
 ### Tags
 {: #defect-tags .no_toc }
 
+<!-- test: TagTests.Parse_BothKindsOfQuote_KeepEveryAttribute, TagTests.Parse_DoubleQuoteThenSingleQuote_KeepEveryAttribute, TagTests.Parse_GreaterThanInAttributeValue_IsPartOfTheValue, TagTests.Parse_LineBreakBetweenAttributes_KeepsBothAttributes, TagTests.Parse_LineFeedBetweenAttributes_KeepsBothAttributes, TagTests.Parse_LineBreakAfterTheElementName_IsNotPartOfTheName, TagTests.Parse_AttributeWithoutValue_DoesNotChangeTheNextAttribute -->
 > [!WARNING] 1.0.0.1
 > A tag is cut apart with plain searches, so these valid forms give wrong attributes and no error. A tag that uses both kinds of quote loses an attribute: the first double quote is taken as the start of the first value, even when a single-quoted value comes before it. A `>` inside an attribute value ends the tag at that point, and the rest of the value becomes text. A line break between two attributes becomes the name of an attribute, and the real name is lost. A line break between the element name and the first attribute becomes part of the element's name. An attribute with no value takes the value of the next one.
 
@@ -1176,11 +1214,14 @@ Debug.Print x.GetAttribute("a", "disabled") & "|" & x.GetAttribute("a", "c")
 ' 2|
 ```
 
+<!-- test: TagTests.Parse_TabBetweenAttributes_KeepsBothAttributes, TagTests.Parse_SpacesAroundTheEqualsSign_AreAllowed -->
 A tab between the attributes is read correctly, and so is a space around the `=`.
+<!-- /test -->
 
 ### Comments, CDATA sections and declarations
 {: #defect-declarations .no_toc }
 
+<!-- test: DeclarationTests.Parse_UnclosedComment_Returns, DeclarationTests.Parse_UnclosedCDataSection_Returns, DeclarationTests.Parse_DoctypeAfterTheDeclaration_Returns, DeclarationTests.Parse_DoctypeInsideAnElement_Returns, DeclarationTests.Parse_DoctypeAtTheStart_IsSkipped, DeclarationTests.Parse_DoctypeFollowedByAnInstruction_KeepsTheRootElement, DeclarationTests.Parse_ProcessingInstructionInsideAnElement_LeavesNoText -->
 > [!WARNING] 1.0.0.1
 > **Parse** never returns for text that holds a comment with no `-->`, a CDATA section with no `]]>`, or a `<!` declaration such as `<!DOCTYPE`, unless the declaration comes first in the text. A `<!` item that is not a comment or a CDATA section is skipped up to the next `?>` anywhere later in the text, which discards everything between, or, when there is none, up to the first `>` of the whole text, which is the end of the item itself only when the item is the first thing in the text. In every other position the search goes back to an earlier `>`, and the parser reads the item again, without end. A processing instruction `<?target data?>` is skipped, but the `>` that ends it stays behind as a text node.
 
@@ -1216,6 +1257,7 @@ x.Parse "<root><!DOCTYPE x><a>1</a></root>"
 ### Malformed text and failed parses
 {: #defect-malformed .no_toc }
 
+<!-- test: ParseResultTests.Parse_Failure_KeepsThePreviousDocument, ParseResultTests.Parse_TextCutOffInATag_KeepsThePreviousDocument, ParseResultTests.Parse_EmptyString_KeepsThePreviousDocument -->
 > [!WARNING] 1.0.0.1
 > A **Parse** that returns **False** has already thrown away the previous document. The document is replaced before the text is read, so it holds what was read before the failure, which is nothing when the failure is at the start. [**Initialized**](#initialized) is not changed, so after a failed **Parse** into an object that held a document, the path members work on the part that was read.
 
@@ -1236,6 +1278,7 @@ Debug.Print "[" & x.GetElementText("a") & "]"
 ### White space
 {: #defect-whitespace .no_toc }
 
+<!-- test: ParseResultTests.Parse_WhiteSpaceBetweenInlineElements_IsKept, ParseResultTests.Parse_ElementWithOnlySpaces_KeepsTheSpaces, ParseResultTests.Parse_SpacesAroundChildElements_AreChildNodes, ParseResultTests.Parse_LineBreaksAroundChildElements_AreChildNodes -->
 > [!WARNING] 1.0.0.1
 > **Parse** leaves out a text node that holds only spaces, and keeps one that has a line break or a tab in it. A space between two elements is lost: `<p><b>a</b> <i>b</i></p>` is read as `<p><b>a</b><i>b</i></p>`, and its text is `ab`. An element that holds only spaces is read as an empty element. The white space of an indented document is kept, because it holds line breaks.
 
@@ -1261,11 +1304,14 @@ Debug.Print x.RootElement.ChildNodes.Count
 ' 3
 ```
 
+<!-- test: ParseResultTests.SetElementText_SpacesOnly_AreKept -->
 Text set with [**SetElementText**](#setelementtext) is kept whatever it holds, spaces only included.
+<!-- /test -->
 
 ### Pretty printing
 {: #defect-pretty .no_toc }
 
+<!-- test: WriteTests.PrettyPrint_TextReadBack_HasTheTextThatWasWritten, WriteTests.PrettyPrint_WrittenAgainAfterReading_IsTheSameText, WriteTests.PrettyPrint_ElementsWithOnlyElementChildren_ReadBackWithTheSameChildren -->
 > [!WARNING] 1.0.0.1
 > A document written with *prettyPrint* **True** does not read back as the document that was written. The line breaks and the indentation around the text of an element are text to the parser, which keeps white space that has a line break in it. [**GetElementText**](#getelementtext) of the element returns them, and writing the document again with *prettyPrint* puts them on lines of their own, so the text changes each time the document is written and read.
 
@@ -1294,6 +1340,7 @@ Debug.Print Replace(Replace(s, " ", "."), vbCrLf, "|")
 ### Clone, Merge and the root element
 {: #defect-clone .no_toc }
 
+<!-- test: DocumentTests.Clone_CopiedNodes_CanBeRemoved, DocumentTests.Clone_NodesOfTheClone_HaveAParent, DocumentTests.Merge_AddedNodes_CanBeRemoved, DocumentTests.RemoveElement_RootElement_LeavesNoRootElement, ParseResultTests.Parse_TextWithNoElement_LeavesNoRootElement, DocumentTests.Merge_IntoAnObjectWithNoDocument_SetsTheRootElement, DocumentTests.Merge_SecondMergeIntoAnObjectWithNoDocument_AppendsTheChildren -->
 > [!WARNING] 1.0.0.1
 > The nodes that **Clone** copies and **Merge** adds have no **Parent**, so [**RemoveElement**](#removeelement) returns **False** for them and removes nothing. [**RootElement**](#rootelement) is set only when a document is read, created or cloned, so it keeps naming the old root after **RemoveElement** removes the root element and after **Parse** reads text that has no element. A **Merge** into an object that holds no document sets [**Initialized**](#initialized) and leaves **RootElement** **Nothing**, so later merges into it do nothing.
 
@@ -1327,6 +1374,7 @@ Debug.Print c.Initialized & " " & (c.RootElement Is Nothing)
 ### A byte order mark in a string
 {: #defect-bom .no_toc }
 
+<!-- test: ParseResultTests.Parse_LeadingByteOrderMarkCharacter_IsDropped, ParseResultTests.XmlString_LeadingByteOrderMarkCharacter_IsDropped -->
 > [!WARNING] 1.0.0.1
 > [**Parse**](#parse) and the [**XmlString**](#xmlstring) property cut three characters from the start of a string that begins with the character U+FEFF, the character that a byte order mark decodes to. Only the first of the three is the mark: the next two are the start of the document. [**LoadFromFile**](#loadfromfile) removes the mark from the bytes of the file first, so a file is not affected.
 
@@ -1341,6 +1389,7 @@ Debug.Print x.RootElement.Name
 ### Files
 {: #defect-files .no_toc }
 
+<!-- test: FileTests.LoadFromFile_MissingFile_ReturnsFalseAndCreatesNoFile, FileTests.LoadFromFile_FileThatCannotBeParsed_ReturnsFalse, FileTests.SaveToFile_DeclaredEncoding_MatchesTheBytesWritten -->
 > [!WARNING] 1.0.0.1
 > **LoadFromFile** creates an empty file when the path names a file that does not exist, before it returns **False**. It returns **True** after the text of an existing file fails to parse, since the result of **Parse** is not tested. **SaveToFile** writes UTF-8 whatever [**Encoding**](#encoding) says, so a document labelled with another encoding is mislabelled in the file.
 
@@ -1381,7 +1430,9 @@ Kill path
 ' True
 ```
 
+<!-- test: FileTests.LoadFromFile_EmptyFile_ReturnsFalse -->
 A file with fewer than three bytes cannot be loaded, and an empty file gives **False**: the code reads three bytes before it tests the length.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Xml/cXmlNode.md b/docs/Reference/Contributed/TBMANLIB_Xml/cXmlNode.md
index 094303b7..0fe5357e 100644
--- a/docs/Reference/Contributed/TBMANLIB_Xml/cXmlNode.md
+++ b/docs/Reference/Contributed/TBMANLIB_Xml/cXmlNode.md
@@ -39,6 +39,7 @@ Next
 
 ## Kinds of node
 
+<!-- test: NodeTests.Parse_NodeKinds_HaveTheirFixedNames, DeclarationTests.Parse_CommentAndCDataSection_AreKeptAsNodes -->
 The parser creates five kinds of node. The text of an element is not in the element's **Value**: it is in the **Text** nodes among the element's **ChildNodes**.
 
 | Kind | **NodeType** | **Name** | **Value** |
@@ -49,6 +50,8 @@ The parser creates five kinds of node. The text of an element is not in the elem
 | CDATA section | **CData** (4) | `#cdata-section` | the characters between `<![CDATA[` and `]]>` |
 | Comment | **Comment** (8) | `#comment` | the characters between `<!--` and `-->` |
 
+<!-- /test -->
+
 ```tb check_build check_run
 Dim x As New cXml
 x.Parse "<r>text<!--note--><![CDATA[data]]></r>"
@@ -65,6 +68,7 @@ Next
 
 The other members of [**XmlNodeType**](mXml#xmlnodetype), **Attribute**, **DocumentFragment**, **Notation** and **None**, are never given to a parsed node. A node made with `New` has the **NodeType** **None**. Attributes are not nodes: they are held in the **Attributes** field of their element.
 
+<!-- test: NodeTests.ElementNames_DifferingInCase_AreDifferentElements, NodeTests.AttributeNames_DifferingInCase_AreDifferentAttributes, NodeTests.GetAttribute_NameInAnotherCase_FindsNothing, NodeTests.RemoveAttribute_NameInAnotherCase_RemovesNothing -->
 > [!NOTE] 1.0.0.1
 > Names are compared without regard to letter case, in the attribute methods here and in the path members of [**cXml**](cXml#paths). XML itself distinguishes `Item` from `item`, and this package does not.
 
@@ -80,7 +84,9 @@ Syntax: *node*.**Attributes** **As Collection**
 *node*
 : *required* An object expression that evaluates to a **cXmlNode**.
 
+<!-- test: NodeTests.Attributes_AreAFlatListOfNamesAndValues -->
 A **Collection** of strings, numbered from 1. Item 1 is the name of the first attribute, item 2 its value, item 3 the name of the second attribute, and so on, in the order the attributes were set or read. A loop with `Step 2` visits the attributes. A new node holds an empty collection, and so does every node that is not an element.
+<!-- /test -->
 
 [**GetAttribute**](#getattribute), [**SetAttribute**](#setattribute) and [**RemoveAttribute**](#removeattribute) keep the names and values in pairs. A program that adds to or removes from the collection itself must keep them in pairs too.
 
@@ -114,7 +120,9 @@ Syntax: *node*.**ChildNodes** **As Collection**
 
 A **Collection** of **cXmlNode** objects, numbered from 1. It holds elements, text, CDATA sections and comments. The parser adds no text node for text that is only spaces; see [White space](cXml#defect-whitespace). The collection is empty for a text node, a CDATA section and a comment. [**GetChildNode**](#getchildnode) and [**GetChildNodesByName**](#getchildnodesbyname) search the collection by name.
 
+<!-- test: NodeTests.ChildNodes_NodeAddedByHand_IsWrittenByItsKind -->
 To add a node by hand, set its **NodeType**, **Name** and **Value**, set its [**Parent**](#parent), and add it to the collection. The writer chooses what to write by **NodeType**, not by **Name**.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -196,7 +204,9 @@ Syntax: *node*.**Text** **As String**
 *node*
 : *required* An object expression that evaluates to a **cXmlNode**.
 
+<!-- test: NodeTests.Text_ReturnsTheTextAndCDataOfTheChildren -->
 Read-only. Returns the values of the text nodes and CDATA sections among the node's [**ChildNodes**](#childnodes), one after the other, with nothing between them. Child elements and comments add nothing, and neither does the text inside a child element, which [**GetElementText**](cXml#getelementtext) of a **cXml** includes. A node that has no text node or CDATA section among its children, a text node itself among them, gives an empty string.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -222,7 +232,9 @@ Creates a node.
 
 Syntax: **New cXmlNode**
 
+<!-- test: NodeTests.New_Node_IsEmpty -->
 The constructor takes no arguments. It gives the node an empty **Attributes** collection and an empty **ChildNodes** collection. **Name** and **Value** are empty, **NodeType** is **None** and **Parent** is **Nothing**.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim n As New cXmlNode
@@ -366,7 +378,9 @@ Syntax: *node*.**SetAttribute** ( *attrName* , *attrValue* )
 *attrValue*
 : *required* A **String**, the new value. [**ToXmlString**](cXml#toxmlstring) escapes it when it writes the attribute.
 
+<!-- test: NodeTests.SetAttribute_ReplacedAttribute_KeepsTheLastValueAndMovesToTheEnd -->
 Adds the attribute, or replaces the value of the first attribute with that name. A replaced attribute does not stay where it was: the old name and value are removed and the new ones are added at the end of **Attributes**, and the name takes the spelling given to **SetAttribute**. The parser uses the same method, so an attribute that occurs twice in a tag keeps the last value.
+<!-- /test -->
 
 Neither the name nor the value is checked. An empty name is accepted, and [**Validate**](cXml#validate) then returns **False**.
 
@@ -498,6 +512,7 @@ Syntax: *node*.**XPathText** ( *xpath* ) **As String**
 
 Returns the [**Text**](#text) of the first node that [**XPath**](#xpath) selects: the text directly inside it, and not the text inside its child elements. A text node and a CDATA section have no children, so when the expression selects one, the result is an empty string; its **Value** holds the text. Returns an empty string too when the expression selects nothing. The expression is evaluated by [**XPathSingle**](#xpathsingle).
 
+<!-- test: NodeTests.XPathText_OfCXml_ReturnsTheTextAtAnyDepth, NodeTests.XPathText_OfCXmlNode_ReturnsTheTextDirectlyInsideTheNode -->
 > [!NOTE] 1.0.0.1
 > The [**XPathText**](cXml#xpathtext) of a **cXml** returns the text at any depth, and returns the value of a text node. For `<a>x<b>y</b>z</a>`, the **cXml** gives `xyz` for `/a`, and the root element gives `xz` for `.`.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Xml/index.md b/docs/Reference/Contributed/TBMANLIB_Xml/index.md
index cf77923f..de81dc80 100644
--- a/docs/Reference/Contributed/TBMANLIB_Xml/index.md
+++ b/docs/Reference/Contributed/TBMANLIB_Xml/index.md
@@ -41,9 +41,11 @@ Debug.Print y.ToXmlString(False)
 ' <library city="Oslo"><book id="1">Dune</book></library>
 ```
 
+<!-- test: SelfClosingTests.Parse_BareSelfClosingElement_IsAnElementNamedLikeTheTag, EntityTests.Parse_PredefinedEntitiesInText_AreDecoded, TagTests.Parse_BothKindsOfQuote_KeepEveryAttribute, DeclarationTests.Parse_ProcessingInstructionInsideAnElement_LeavesNoText, DeclarationTests.Parse_UnclosedComment_Returns, DeclarationTests.Parse_UnclosedCDataSection_Returns, DeclarationTests.Parse_DoctypeAfterTheDeclaration_Returns -->
 > [!WARNING] 1.0.0.1
 > The parser reads some valid XML wrongly and raises no error, and for some text it never returns. [Defects in version 1.0.0.1](cXml#defects) lists the cases: self-closing elements, entities in text, tags with both kinds of quote or with line breaks, processing instructions, and comments, CDATA sections and DOCTYPE declarations in some positions.
 
+<!-- test: XPathStepTests.ParentStep_AfterChildSteps_SelectsTheParent, XPathStepTests.Axes_Ancestor_SelectsTheAncestors, XPathPredicateTests.Positions_AfterDoubleSlash_CountPerParent, XPathPredicateTests.Logic_AndBeforeOr_BindsAndTighter, XPathPredicateTests.Logic_OrBeforeAnd_BindsAndTighter -->
 > [!WARNING] 1.0.0.1
 > The XPath engine reads some valid expressions wrongly and raises no error: the step `..`, axes such as `ancestor::`, positions after `//`, and the operators `and` and `or`. [Defects in version 1.0.0.1](mXPath#defects) lists the cases.
 
@@ -148,3 +150,7 @@ The checks compare one value at a time and do not exercise the cases listed unde
 - [cXmlNode](cXmlNode) class -- the nodes
 - [mXml](mXml) module -- constants, enumerations and UTF-8 conversion
 - [Experimental Packages](../../Experimental/) -- the packages from TWINSERV that are not yet ready for use in a program
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TBMANLIB_Xml-tests.twinproj](TBMANLIB_Xml-tests.twinproj), a twinBASIC project. It uses TBMANLIB_Xml as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/TBMANLIB_Xml/mXPath.md b/docs/Reference/Contributed/TBMANLIB_Xml/mXPath.md
index b56d46ae..d9ada729 100644
--- a/docs/Reference/Contributed/TBMANLIB_Xml/mXPath.md
+++ b/docs/Reference/Contributed/TBMANLIB_Xml/mXPath.md
@@ -32,8 +32,9 @@ Debug.Print x.XPathAttribute("//book[@id='2']", "cat")
 ' fiction
 ```
 
+<!-- test: XPathStepTests.ParentStep_AfterChildSteps_SelectsTheParent, XPathStepTests.Axes_Ancestor_SelectsTheAncestors, XPathPredicateTests.Positions_AfterDoubleSlash_CountPerParent, XPathPredicateTests.Logic_AndBeforeOr_BindsAndTighter, XPathPredicateTests.Logic_OrBeforeAnd_BindsAndTighter, XPathPredicateTests.Logic_AndInsideAQuotedString_IsNotAnOperator, XPathPredicateTests.Compare_QuotedStringWithGreaterThan_IsOneValue, XPathPredicateTests.Contains_LetterCase_IsSignificant -->
 > [!WARNING] 1.0.0.1
-> Several expressions that are valid XPath are read wrongly and raise no error: the parent step `..` selects nothing, `ancestor::a` is read as `child::a`, `//book[1]` selects one node where XPath selects one for each parent, and `and`, `or` and the comparison operators are found by plain searches of the text. [Defects in version 1.0.0.1](#defects) has each case.
+> Several expressions that are valid XPath are read wrongly and raise no error: the parent step `..` selects nothing, `ancestor::a` is read as `child::a`, `//book[1]` selects one node where XPath selects one for each parent, and `and`, `or` and the comparison operators are found by plain searches of the text, and comparisons ignore letter case. [Defects in version 1.0.0.1](#defects) has each case.
 
 * TOC
 {:toc}
@@ -48,7 +49,9 @@ An expression is a list of steps separated by `/`, and each step can have predic
 
 The functions take the node to start from. [**XPath**](cXml#xpath) of a [**cXml**](cXml) starts at the document node, [**XPathFromRoot**](cXml#xpathfromroot) at the root element, and the **XPath** of a [**cXmlNode**](cXmlNode#xpath) at that node. The first step selects from the starting node, and each later step from every node the step before selected.
 
+<!-- test: XPathEngineTests.Context_FromTheDocumentNode_ALeadingSlashChangesNothing, XPathEngineTests.Context_FromAnElement_ASlashAtTheStartIsIgnoredAndTheSearchStaysBelow, XPathEngineTests.Context_XPathFromRoot_StartsAtTheRootElement -->
 A `/` at the start of an expression does not make it start at the document: it is ignored. Starting at the document node, `/catalog` and `catalog` are the same expression and select the root element. Starting at any other node, `/catalog` selects a child of that node named `catalog`, and `//title` searches below that node only. No expression reaches a node outside the subtree of the starting node, except through the **parent** axis.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -81,6 +84,7 @@ Debug.Print x.XPathFromRoot("/catalog/book").Count
 
 A step selects nodes by their **Name** and kind. Letter case is ignored in names, so `/CATALOG/Book` selects the same nodes as `/catalog/book`.
 
+<!-- test: XPathEngineTests.Steps_NamesAndNodeTests_SelectAsMsxml, XPathEngineTests.Steps_NodesThatAreNotElements_ArePickedByTheirNames, XPathStepTests.ParentAxis_ParentColonColon_SelectsTheParent, XPathStepTests.Axes_Child_Descendant_Self_AreRead -->
 | Step | Selects |
 |:-----|:--------|
 | `name` | the children whose **Name** is *name*. The names of the nodes that are not elements, `#text`, `#comment` and `#cdata-section`, work too |
@@ -94,6 +98,8 @@ A step selects nodes by their **Name** and kind. Letter case is ignored in names
 | `//` at the start | the same, from the starting node, which it does not include |
 | `child::`, `descendant::`, `parent::`, `self::` before a step | the step goes to the children, the descendants, the parent or the node itself. These are the axes the engine knows, and the name of an axis is not case sensitive. `parent::*` selects the parent when it is an element, and `parent::node()` selects it whatever it is |
 
+<!-- /test -->
+
 Each node is in the result once, however many routes reach it, and a path that selects nothing gives an empty collection.
 
 ```tb check_build check_run
@@ -133,6 +139,7 @@ Next
 
 A predicate in square brackets keeps some of the nodes that its step selected. A step can have several, and each one works on the nodes the one before kept: `book[@cat='fiction'][2]` is the second of the fiction books. White space around a predicate and around an operator is ignored.
 
+<!-- test: XPathEngineTests.Predicates_StandardForms_SelectAsMsxml, XPathPredicateTests.Positions_ChildStep_CountsTheChildrenOfEachParent, XPathPredicateTests.Positions_ShortForms_WorkAsTheLongForms, XPathPredicateTests.Logic_AndOfTwoComparisons_KeepsTheNodesThatSatisfyBoth, XPathPredicateTests.Logic_OrOfTwoComparisons_KeepsTheNodesThatSatisfyOne, XPathPredicateTests.Compare_AttributeExists_KeepsTheNodesThatHaveIt, XPathPredicateTests.Compare_QuotedStringWithEqualsSign_IsOneValue, XPathPredicateTests.TextCompare_Equals_KeepsTheNodesWithThatText -->
 | Predicate | Keeps |
 |:----------|:------|
 | `[3]` | the third node. A position counts, from 1, the nodes that the step selected from one node of the step before; a number out of range keeps nothing |
@@ -150,6 +157,8 @@ A predicate in square brackets keeps some of the nodes that its step selected. A
 | `[not(@id)]` | the nodes that the predicate inside does not keep |
 | `[@a='1' and @b='2']`, `[@a='1' or @b='2']` | the nodes that satisfy both parts, or at least one. The words need a space on each side and can be written in any letter case |
 
+<!-- /test -->
+
 The names of the functions are not case sensitive, and the opening parenthesis must follow the name directly. The first argument of **contains** and **starts-with** is `@name` for an attribute, `text()` or `.` for the text of the node, or a quoted string. Any other first argument is taken as the text itself, not evaluated. The second argument is a quoted string, or text that is used as it is. The two arguments are separated at the first comma that is not inside quotes, so a second argument can hold commas.
 
 **Text** here means the text nodes and CDATA sections directly inside the node, one after the other. Child elements do not count and nothing is trimmed, so the text of an element in an indented document includes the line breaks and the indentation around it.
@@ -207,10 +216,12 @@ Next
 
 These parts of XPath select nothing, and raise no error.
 
+<!-- test: XPathEngineTests.Limits_AttributeSteps_SelectNothing, XPathEngineTests.Limits_UnionGroupingAndTwoAttributes_SelectNothing, XPathEngineTests.Limits_OtherFunctions_SelectNothing, XPathPredicateTests.ChildCompare_ChildEqualsText_KeepsTheNodesWhoseChildHasThatText, XPathPredicateTests.SelfCompare_DotEqualsText_KeepsTheNodesWithThatText, XPathPredicateTests.Positions_LastMinusOne_SelectsTheNextToLast, XPathPredicateTests.Positions_PositionGreaterThan_SelectsTheLaterOnes -->
 - A step for an attribute, `@id`, as in `/catalog/book/@id` and `//@id`, and the **attribute** axis. [**XPathAttribute**](cXml#xpathattribute) and the **GetAttribute** methods read attributes.
 - The union operator `|`, parentheses used for grouping, arithmetic, and comparisons between two paths or two attributes.
 - Functions other than `contains`, `starts-with`, `not`, `text`, `last` and `position`, such as `count`, `name`, `local-name`, `string-length` and `normalize-space`, and `position()` or `last()` in any form other than those in the table. Such a predicate is read as the name of a child, which no element has.
 - A comparison with a child or with `.`, as in `book[title='Dune']` and `title[.='Dune']`; see [Text and child comparisons](#defect-text).
+<!-- /test -->
 
 Other expressions are not refused either, and are read as something different from what XPath 1.0 says. They are listed under [Defects in version 1.0.0.1](#defects).
 
@@ -251,10 +262,13 @@ Syntax: **SelectNodes** ( *contextNode* , *xpath* ) **As Collection**
 *xpath*
 : *required* A **String**, the expression; see [Syntax](#syntax).
 
+<!-- test: XPathEngineTests.SelectNodes_ContextNodeAndExpression_ReturnTheNodes, XPathEngineTests.SelectNodes_PositionTooLargeForALong_RaisesOverflow, XPathEngineTests.XPath_PositionTooLargeForALong_ReturnsAnEmptyCollectionAndLeavesTheError -->
 Returns a new **Collection** of **cXmlNode** objects, numbered from 1, in the order the steps found them. Each node is in it once. The collection is empty, and is not **Nothing**, when the expression selects nothing, when *xpath* is an empty string, when *contextNode* is **Nothing**, and when the expression has no step, such as `/` or `//`.
 
 The function handles no error. A program that calls it directly meets the errors that the evaluation raises: error 6 (*Overflow*) for a position too large for a **Long**, such as `[99999999999]`. The **XPath** methods of [**cXml**](cXml#xpath) and [**cXmlNode**](cXmlNode#xpath) catch it, write a line that begins `XPath query failed:` to the Debug Console, and return an empty collection.
+<!-- /test -->
 
+<!-- test: XPathEngineTests.SelectNodes_ManyNodes_TimeGrowsInStepWithTheirNumber -->
 > [!NOTE] 1.0.0.1
 > The time grows with the square of the number of nodes the query visits, because each node found is compared with all the ones found before. Finding 2,000 elements with `//item` takes about a second, and each doubling of the count multiplies the time by about four. [**SelectElements**](cXml#selectelements) has no such cost.
 
@@ -295,7 +309,9 @@ Syntax: **SelectSingleNode** ( *contextNode* , *xpath* ) **As** [**cXmlNode**](c
 *xpath*
 : *required* A **String**, the expression.
 
+<!-- test: XPathEngineTests.SelectSingleNode_ReturnsTheFirstNodeOrNothing -->
 Returns the first node of what [**SelectNodes**](#selectnodes) returns, or **Nothing** when that is empty. It raises the errors of **SelectNodes** too.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim x As New cXml
@@ -320,6 +336,7 @@ Each of these sections describes an expression that the engine reads differently
 ### The parent step
 {: #defect-parent .no_toc }
 
+<!-- test: XPathStepTests.ParentStep_AfterChildSteps_SelectsTheParent, XPathStepTests.ParentStep_AfterDescendantStep_SelectsTheParents, XPathStepTests.ParentStep_Twice_SelectsTheGrandparent, XPathStepTests.ParentAxis_ParentColonColon_SelectsTheParent -->
 > [!WARNING] 1.0.0.1
 > The step `..` selects nothing. The `parent::` axis works, so `parent::*` or `parent::book` takes its place.
 
@@ -339,6 +356,7 @@ Debug.Print x.XPath("/catalog/book/title/parent::book").Count
 ### Axes
 {: #defect-axes .no_toc }
 
+<!-- test: XPathStepTests.Axes_Ancestor_SelectsTheAncestors, XPathStepTests.Axes_AncestorOrSelf_SelectsTheNodeAndItsAncestors, XPathStepTests.Axes_FollowingSibling_SelectsTheLaterSiblings, XPathStepTests.Axes_PrecedingSibling_SelectsTheEarlierSiblings, XPathStepTests.Axes_DescendantOrSelf_SelectsTheNodeAndItsDescendants, XPathStepTests.Axes_Following_SelectsTheNodesAfterTheSubtree -->
 > [!WARNING] 1.0.0.1
 > An axis other than **child**, **descendant**, **parent**, **self** and **attribute** is not refused. The engine drops the axis and reads the rest of the step as a child step, so `ancestor::a` selects a child named `a`, where XPath selects an ancestor, and `following-sibling::b` selects a child named `b`. `descendant-or-self::` is read as `child::`.
 
@@ -359,6 +377,7 @@ Debug.Print x.XPathAttribute("/r/a/following-sibling::b", "id")
 ### Positions
 {: #defect-positions .no_toc }
 
+<!-- test: XPathPredicateTests.Positions_ChildStep_CountsTheChildrenOfEachParent, XPathPredicateTests.Positions_AfterDoubleSlash_CountPerParent, XPathPredicateTests.Positions_AfterDoubleSlash_LastIsThatOfEachParent, XPathPredicateTests.Positions_AfterDescendantStepInThePath_CountPerParent, XPathPredicateTests.Positions_LastMinusOne_SelectsTheNextToLast, XPathPredicateTests.Positions_PositionWithSpacesAroundTheEqualsSign_SelectsThePosition, XPathPredicateTests.Positions_PositionEqualsLast_SelectsTheLast, XPathPredicateTests.Positions_PositionGreaterThan_SelectsTheLaterOnes, XPathPredicateTests.Positions_FractionalNumber_SelectsNothing -->
 > [!WARNING] 1.0.0.1
 > A position counts the nodes that the step selected from one node of the step before. After `//`, those are all the descendants at any depth, so `//book[1]` is the first book in the whole document, where XPath gives the first book of each parent. A step written with `/` counts the children of each parent, as XPath does. Positions in any form other than `[n]`, `[last()]` and `[position()=n]` select nothing: `[last()-1]`, `[position()>1]`, `[position() = 2]` with spaces, and `[position()=last()]`. A position that is not a whole number is rounded to one, so `[1.5]` is the second node.
 
@@ -389,6 +408,7 @@ Next
 ### Logical operators
 {: #defect-logic .no_toc }
 
+<!-- test: XPathPredicateTests.Logic_AndBeforeOr_BindsAndTighter, XPathPredicateTests.Logic_OrBeforeAnd_BindsAndTighter, XPathPredicateTests.Logic_AndInsideAQuotedString_IsNotAnOperator, XPathPredicateTests.Logic_OrInsideAQuotedString_IsNotAnOperator, XPathPredicateTests.Logic_NotOfAnd_KeepsTheNodesThatLackOne, XPathPredicateTests.Logic_ParenthesesAroundComparisons_GroupThem -->
 > [!WARNING] 1.0.0.1
 > `and` and `or` are found by a search for the first ` and ` and the first ` or ` in the text of the predicate, and the search does not skip quoted strings or parentheses. The predicate is cut at the first ` and ` if there is one, and the two halves are read separately, so `or` binds tighter than `and`: `a and b or c` is read as `a and (b or c)`, and `a or b and c` as `(a or b) and c`. XPath binds `and` tighter. A string that holds ` and ` or ` or `, such as `@t='salt and pepper'`, cuts the string in two, and the predicate selects nothing. Parentheses are not read as grouping: `not(@x and @y)` and `(@x='1') and (@y='2')` select nothing.
 
@@ -426,6 +446,7 @@ XPath 1.0 selects `1 2` for the third and fourth queries, `2 3` for the fifth an
 ### Comparing attributes
 {: #defect-attributes .no_toc }
 
+<!-- test: XPathPredicateTests.Compare_LessThanOnAMissingAttribute_IsFalse, XPathPredicateTests.Compare_NotEqualOnAMissingAttribute_IsFalse, XPathPredicateTests.Compare_EqualToEmptyStringOnAMissingAttribute_IsFalse, XPathPredicateTests.Compare_QuotedStringWithGreaterThan_IsOneValue, XPathPredicateTests.Compare_QuotedStringWithLessThan_IsOneValue, XPathPredicateTests.Compare_QuotedStringWithNotEquals_IsOneValue -->
 > [!WARNING] 1.0.0.1
 > An attribute that a node does not have compares as an empty string, so `@p<10`, `@p!='x'` and `@p=''` keep the nodes that lack `p`; in XPath 1.0 a comparison with a missing attribute is false. A comparison operator is found by a search of the whole predicate, quoted strings included. A quoted string that holds `>`, `<` or `!=` therefore moves the split, and the attribute is looked up under a name such as `t='a`, which no node has, so it compares as an empty string: `@t='a<b'` and `@t='a!=b'` keep every node, and `@t='a>b'` keeps none, even a node whose `t` is `a>b`.
 
@@ -462,6 +483,7 @@ Debug.Print x.XPath("//i[@t='a<b']").Count
 ### Text and child comparisons
 {: #defect-text .no_toc }
 
+<!-- test: XPathPredicateTests.TextCompare_NotEquals_KeepsTheNodesWithOtherText, XPathPredicateTests.TextCompare_GreaterThanText_IsAComparisonOfNumbers, XPathPredicateTests.ChildCompare_ChildEqualsText_KeepsTheNodesWhoseChildHasThatText, XPathPredicateTests.SelfCompare_DotEqualsText_KeepsTheNodesWithThatText, XPathPredicateTests.Contains_FirstArgumentIsAChildName_TestsTheChildsText -->
 > [!WARNING] 1.0.0.1
 > A predicate that starts with `text()` is read as a test of the node's own text. Its operator is taken to be the first `=` in it, whatever comes before, so `text()!='Dune'` selects the nodes whose text equals `Dune`, and an operator without `=` (`text()>'Z'`) is ignored, so the predicate keeps every node that has text. A comparison with a child (`book[title='Dune']`) or with the node (`title[.='Dune']`) selects nothing. In `contains` and `starts-with`, a first argument that is the name of a child is taken as the text of the name: `contains(title, 'i')` asks whether the word `title` has an `i` in it, and is true for every node.
 
@@ -488,9 +510,33 @@ Next
 ' //book[contains(title, 'i')] -> book:1 book:2
 ```
 
+### Letter case in comparisons
+{: #defect-case .no_toc }
+
+<!-- test: XPathPredicateTests.Compare_AttributeValueLetterCase_IsSignificant, XPathPredicateTests.Contains_LetterCase_IsSignificant, XPathPredicateTests.StartsWith_LetterCase_IsSignificant -->
+> [!WARNING] 1.0.0.1
+> Comparisons of text ignore letter case, where XPath 1.0 compares exactly. `=`, `!=`, `contains()` and `starts-with()` treat `A` and `a` as the same character, so `@cat='FICTION'` keeps a node whose `cat` is `fiction`, and `contains(text(), 'a')` also finds `Austen`.
+
+```tb check_build check_run
+Dim x As New cXml
+x.Parse "<catalog><book id='1' cat='fiction'><author>Herbert</author></book><book id='2' cat='fiction'><author>Austen</author></book><book id='3' cat='science'><author>Sagan</author></book></catalog>"
+
+Dim q As Variant
+For Each q In Array("//book[@cat='FICTION']", "//author[contains(text(), 'a')]", "//author[starts-with(text(), 'h')]")
+    Debug.Print q & " -> " & x.XPath(q).Count
+Next
+' Output:
+' //book[@cat='FICTION'] -> 2
+' //author[contains(text(), 'a')] -> 2
+' //author[starts-with(text(), 'h')] -> 1
+```
+
+XPath 1.0 selects no node for the first and third queries, and only `Sagan` for the second.
+
 ### A bracket that is not closed
 {: #defect-brackets .no_toc }
 
+<!-- test: XPathPredicateTests.Brackets_PredicateWithoutClosingBracket_SelectsNothing, XPathPredicateTests.Brackets_OpeningBracketAlone_SelectsNothing -->
 > [!WARNING] 1.0.0.1
 > A `[` with no `]` after it is dropped together with what follows it, and the step is read without the predicate. `//b[@id='1'` selects every `b`.
 
@@ -509,6 +555,7 @@ Debug.Print x.XPath("//b[").Count
 ### Slashes
 {: #defect-slashes .no_toc }
 
+<!-- test: XPathStepTests.Slashes_TripleSlash_SelectsNothing -->
 > [!WARNING] 1.0.0.1
 > An empty step, as in `///`, ends the path, and the steps after it are not read. `/catalog///book` is read as `/catalog` and selects the root element.
 
diff --git a/docs/Reference/Contributed/TBMANLIB_Xml/mXml.md b/docs/Reference/Contributed/TBMANLIB_Xml/mXml.md
index 80825c7a..c267cf18 100644
--- a/docs/Reference/Contributed/TBMANLIB_Xml/mXml.md
+++ b/docs/Reference/Contributed/TBMANLIB_Xml/mXml.md
@@ -31,6 +31,7 @@ Debug.Print mXml.DEFAULT_ENCODING
 
 The kind of a [**cXmlNode**](cXmlNode). The numbers are those of the node types of the W3C Document Object Model.
 
+<!-- test: Utf8Tests.Enumerations_HaveTheValuesOfTheDocumentObjectModel -->
 | Member | Value | Used for |
 |:-------|------:|:---------|
 | **None** | 0 | a node made with `New cXmlNode`, before its kind is set |
@@ -43,7 +44,11 @@ The kind of a [**cXmlNode**](cXmlNode). The numbers are those of the node types
 | **DocumentFragment** | 11 | nothing |
 | **Notation** | 12 | nothing |
 
+<!-- /test -->
+
+<!-- test: NodeTests.Parse_NodeKinds_HaveTheirFixedNames, WriteTests.ToXmlString_ModelTree_WritesTheNodeKindsAndLeavesOutTheOthers -->
 The parser creates nodes of the kinds **Document**, **Element**, **Text**, **CData** and **Comment**. [**ToXmlString**](cXml#toxmlstring) writes those five kinds and leaves out a node of any other kind.
+<!-- /test -->
 
 ### ParseOption
 {: .no_toc }
@@ -69,7 +74,9 @@ The base of the package's error numbers.
 
 Syntax: **ERR_BASE** **As Long**
 
+<!-- test: Utf8Tests.Constants_ErrorNumbers_AreCountedFromTheBase -->
 `vbObjectError + 5000`, which is -2147216504. The other error numbers are **ERR_BASE** plus 1 to 6. See [Reporting failures](cXml#reporting-failures) for how the numbers reach a program.
+<!-- /test -->
 
 ### ERR_INVALID_XML
 {: .no_toc }
@@ -134,21 +141,27 @@ Syntax: **ERR_INVALID_OPERATION** **As Long**
 
 Syntax: **DEFAULT_XML_VERSION** **As String**
 
+<!-- test: Utf8Tests.Constants_Defaults_AreTheOnesThePageNames -->
 The string `1.0`. A new [**cXml**](cXml) object has it as its [**Version**](cXml#version).
+<!-- /test -->
 
 ### DEFAULT_ENCODING
 {: .no_toc }
 
 Syntax: **DEFAULT_ENCODING** **As String**
 
+<!-- test: Utf8Tests.Constants_Defaults_AreTheOnesThePageNames -->
 The string `UTF-8`. A new [**cXml**](cXml) object has it as its [**Encoding**](cXml#encoding).
+<!-- /test -->
 
 ### DEFAULT_INDENT
 {: .no_toc }
 
 Syntax: **DEFAULT_INDENT** **As String**
 
+<!-- test: Utf8Tests.Constants_Defaults_AreTheOnesThePageNames -->
 Two space characters. No member reads it: the default of the *indent* parameter of [**ToXmlString**](cXml#toxmlstring) is the same two spaces, written there as a literal.
+<!-- /test -->
 
 ## Functions
 
@@ -162,9 +175,11 @@ Syntax: **StringToUTF8Bytes** ( *str* ) **As Byte()**
 *str*
 : *required* A **String**.
 
+<!-- test: Utf8Tests.StringToUTF8Bytes_EncodesTheCharacters, Utf8Tests.StringToUTF8Bytes_EmptyString_IsOneZeroByte -->
 Returns a **Byte** array that starts at index 0 and holds the UTF-8 encoding of *str*, with no byte order mark and no terminating zero byte. A character outside the Basic Multilingual Plane, held in *str* as a surrogate pair, becomes one four-byte sequence.
 
 For an empty string the array has one element, which holds 0, so a program cannot tell the result from the encoding of a single `ChrW(0)`.
+<!-- /test -->
 
 [**SaveToFile**](cXml#savetofile) uses the function to write a file.
 
@@ -197,7 +212,9 @@ Syntax: **UTF8BytesToString** ( *utf8Bytes* ) **As String**
 *utf8Bytes*
 : *required* A **Byte** array, passed by reference, so the argument is an array variable and not an expression. The array may start at any index.
 
+<!-- test: Utf8Tests.UTF8BytesToString_DecodesTheBytes, Utf8Tests.UTF8BytesToString_InvalidSequence_BecomesTheReplacementCharacter, Utf8Tests.UTF8BytesToString_ZeroByteAndByteOrderMark_AreKept, Utf8Tests.UTF8BytesToString_ArrayNotStartingAtZero_IsRead -->
 Returns the characters that the bytes encode. An array that has never been given elements gives an empty string. A byte sequence that is not valid UTF-8 becomes the character U+FFFD, and a zero byte becomes `ChrW(0)`, so the one-element array that [**StringToUTF8Bytes**](#stringtoutf8bytes) returns for an empty string gives a string of length 1. A byte order mark, the bytes `EF BB BF`, becomes the character U+FEFF and is kept.
+<!-- /test -->
 
 [**LoadFromFile**](cXml#loadfromfile) uses the function to read a file.
 
diff --git a/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Enabled.md b/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Enabled.md
index 4b1298d7..a32b72e8 100644
--- a/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Enabled.md
+++ b/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Enabled.md
@@ -18,7 +18,9 @@ Syntax: *object*.**Enabled**
 *object*
 : *required* An object expression that evaluates to a **TwinTimer** object.
 
+<!-- test: PropertyTests.Enabled_DefaultsToTrue, PropertyTests.Enabled_RoundTrip -->
 The property returns **True** if the timer is enabled, **False** if it is disabled. The default value is **True**.
+<!-- /test -->
 
 ## Let
 
@@ -29,11 +31,15 @@ Syntax: *object*.**Enabled** **=** *value*
 *value*
 : A **Boolean** that turns the timer on or off. **False** turns it off; **True** turns it on.
 
+<!-- test: PropertyTests.Enabled_False_RaisesNoEvents, PropertyTests.Enabled_FalseThenTrue_RestartsTimer, PropertyTests.Enabled_True_WithZeroInterval_DoesNotStart, ElapsedTimeTests.Enabled_Set_RestartsElapsedTime, PropertyTests.Enabled_FalseInHandler_StopsTimer -->
 Setting **Enabled** destroys any running timer and restarts it under the new setting. When **Enabled** is set to **True**, the timer begins firing only if [**Interval**](Interval) is greater than zero. When **Enabled** is set to **False**, no **Timer** events are raised regardless of the **Interval** setting.
+<!-- /test -->
 
 ### Remarks
 
+<!-- test: PropertyTests.Enabled_IsTheDefaultMember -->
 **Enabled** is the default member of **TwinTimer**.
+<!-- /test -->
 
 Changing **Enabled** at run time takes effect immediately: the underlying Win32 timer (`SetTimer` / `KillTimer`) is stopped and conditionally restarted on every assignment.
 
diff --git a/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Interval.md b/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Interval.md
index a9109429..3d14fc48 100644
--- a/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Interval.md
+++ b/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Interval.md
@@ -18,7 +18,9 @@ Syntax: *object*.**Interval**
 *object*
 : *required* An object expression that evaluates to a **TwinTimer** object.
 
+<!-- test: PropertyTests.Interval_DefaultsToZero, PropertyTests.Interval_RoundTrip, PropertyTests.NewTimer_ZeroInterval_RaisesNoEvents -->
 The default value is `0`. A value of `0` means the timer is not running regardless of the [**Enabled**](Enabled) setting.
+<!-- /test -->
 
 ## Let
 
@@ -26,13 +28,20 @@ Sets the interval in milliseconds between **Timer** events.
 
 Syntax: *object*.**Interval** **=** *milliseconds*
 
+<!-- test: PropertyTests.Interval_SetPositive_StartsTimer, PropertyTests.Interval_Zero_KeepsEnabled, PropertyTests.Interval_Negative_Raises380, ElapsedTimeTests.Interval_Set_RestartsElapsedTime -->
 *milliseconds*
 : A non-negative **Long**. Setting **Interval** to `0` stops the timer without changing **Enabled**. Setting **Interval** to a positive value restarts the underlying Win32 timer with the new period and resets the elapsed-time counter, provided [**Enabled**](Enabled) is **True**. A negative value raises run-time error 380 (Invalid property value).
+<!-- /test -->
 
 ### Remarks
 
-Changing **Interval** at run time takes effect immediately: the underlying Win32 timer (`SetTimer` / `KillTimer`) is stopped and conditionally restarted on every assignment. The timer starts only when both **Interval** is greater than `0` and [**Enabled**](Enabled) is **True**.
+Changing **Interval** at run time takes effect immediately: the underlying Win32 timer (`SetTimer` / `KillTimer`) is stopped and conditionally restarted on every assignment.
 
+<!-- test: PropertyTests.Interval_SetWhileDisabled_DoesNotStart -->
+The timer starts only when both **Interval** is greater than `0` and [**Enabled**](Enabled) is **True**.
+<!-- /test -->
+
+<!-- test: DeliveryTests.Timer_ShortInterval_RaisedToTenMilliseconds -->
 > [!NOTE] timeless
 > The Win32 `SetTimer` function raises an interval below 10 ms to 10 ms, and delivers its timer messages at the resolution of the system clock, typically 15--16 ms on standard Windows configurations. A short interval therefore does not give sub-15 ms accuracy.
 
diff --git a/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Timer.md b/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Timer.md
index 88f0d740..6ec13897 100644
--- a/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Timer.md
+++ b/docs/Reference/Contributed/TwinTimerLib/TwinTimer/Timer.md
@@ -11,17 +11,24 @@ Occurs when the preset interval for a **TwinTimer** has elapsed.
 
 Syntax: *object*\_**Timer**( **ByVal** *ElapsedTime* **As LongLong** )
 
+<!-- test: ElapsedTimeTests.Timer_FirstEvent_PassesZero, ElapsedTimeTests.Timer_ElapsedTime_IsCumulative -->
 *ElapsedTime*
 : A **LongLong** giving the total number of milliseconds that have elapsed since the first event after the timer last started or restarted. That first event passes `0`.
+<!-- /test -->
 
 ## Remarks
 
+<!-- test: PropertyTests.Interval_SetPositive_StartsTimer, PropertyTests.Enabled_False_RaisesNoEvents -->
 The **Timer** event fires on every tick of the underlying Win32 timer (`SetTimer`), provided [**Enabled**](Enabled) is **True** and [**Interval**](Interval) is greater than zero.
+<!-- /test -->
 
+<!-- test: ElapsedTimeTests.Timer_ElapsedTime_IsCumulative, ElapsedTimeTests.Timer_ElapsedTime_IsNotTheLastInterval, ElapsedTimeTests.Timer_FirstEvent_ComesAfterOneInterval, ElapsedTimeTests.Interval_Set_RestartsElapsedTime, ElapsedTimeTests.Enabled_Set_RestartsElapsedTime, ElapsedTimeTests.Timer_TwoTimers_KeepSeparateElapsedTimes -->
 *ElapsedTime* is a cumulative count, not the duration of the most recent interval. It begins at `0` on the first event after the timer starts, which comes one interval after the start, and increases monotonically. The counter restarts at `0` whenever [**Enabled**](Enabled) or [**Interval**](Interval) is set, because both properties destroy and recreate the underlying Win32 timer.
+<!-- /test -->
 
 The argument is derived from the `dwTime` parameter of the Win32 timer callback (a **DWORD** tick count, wrapping at approximately 49.7 days). **TwinTimer** handles the 32-bit wrap-around internally and promotes the result to a **LongLong**, so *ElapsedTime* does not wrap during a session regardless of how long the timer has been running.
 
+<!-- test: DeliveryTests.Timer_NoMessagePump_RaisesNoEvents, DeliveryTests.Timer_BlockedPump_DeliversOneMessage -->
 > [!NOTE] timeless
 > The event is delivered through the Win32 message pump of the thread that created the timer. If that thread's message pump is blocked when a tick is due, Windows delivers a single timer message when the pump resumes rather than one for each missed period. Long-running work inside the handler therefore lengthens the effective interval.
 
diff --git a/docs/Reference/Contributed/TwinTimerLib/TwinTimer/index.md b/docs/Reference/Contributed/TwinTimerLib/TwinTimer/index.md
index d830407c..9c31bd0f 100644
--- a/docs/Reference/Contributed/TwinTimerLib/TwinTimer/index.md
+++ b/docs/Reference/Contributed/TwinTimerLib/TwinTimer/index.md
@@ -35,6 +35,7 @@ End Sub
 ### Enabled
 {: .no_toc }
 
+<!-- test: PropertyTests.Enabled_DefaultsToTrue, PropertyTests.Enabled_False_RaisesNoEvents, PropertyTests.Enabled_FalseThenTrue_RestartsTimer, PropertyTests.Enabled_True_WithZeroInterval_DoesNotStart, PropertyTests.NewTimer_ZeroInterval_RaisesNoEvents, ElapsedTimeTests.Enabled_Set_RestartsElapsedTime -->
 Whether the timer fires **Timer** events. **Boolean**. Default: **True**.
 
 Setting **Enabled** to **False** stops the Win32 timer and suppresses **Timer** events. Setting it back to **True** restarts the timer; the elapsed-time counter resets on the next tick.
@@ -46,21 +47,24 @@ Syntax: *object*.**Enabled** [ = *value* ]
 *value*
 : A **Boolean**. **False** suppresses events; **True** allows them.
 
-> [!NOTE] 1.0.7.0
-> **Enabled** defaults to **True** at construction. A freshly constructed **TwinTimer** with **Interval** = `0` (the initial default) does not fire until **Interval** is set to a positive value.
+A new **TwinTimer** has **Enabled** set to **True** and **Interval** set to `0`, so it does not fire until **Interval** is set to a positive value.
+<!-- /test -->
 
 ### Interval
 {: .no_toc }
 
 The number of milliseconds between successive **Timer** events. **Long**. Default: `0`.
 
+<!-- test: PropertyTests.Interval_DefaultsToZero, PropertyTests.Interval_RoundTrip, PropertyTests.Interval_SetPositive_StartsTimer, PropertyTests.Interval_Zero_KeepsEnabled, PropertyTests.Interval_Negative_Raises380, ElapsedTimeTests.Interval_Set_RestartsElapsedTime, PropertyTests.Interval_SetWhileDisabled_DoesNotStart -->
 Setting **Interval** to a positive value restarts the underlying Win32 timer with the new period and resets the elapsed-time counter, provided **Enabled** is **True**. Setting it to `0` stops the timer without changing **Enabled**.
 
 Syntax: *object*.**Interval** [ = *milliseconds* ]
 
 *milliseconds*
 : A non-negative **Long**. A value of `0` stops the timer. A negative value raises run-time error 380 (Invalid property value).
+<!-- /test -->
 
+<!-- test: DeliveryTests.Timer_ShortInterval_RaisedToTenMilliseconds -->
 > [!NOTE] timeless
 > The Win32 `SetTimer` function raises an interval below 10 ms to 10 ms, and delivers its timer messages at the resolution of the system clock, typically 15--16 ms on standard Windows configurations. A short interval therefore does not give sub-15 ms accuracy.
 
@@ -73,8 +77,10 @@ Raised each time the interval elapses.
 
 Syntax: *object*\_**Timer** ( *ElapsedTime* **As LongLong** )
 
+<!-- test: ElapsedTimeTests.Timer_FirstEvent_PassesZero, ElapsedTimeTests.Timer_ElapsedTime_IsCumulative, ElapsedTimeTests.Timer_ElapsedTime_IsNotTheLastInterval, ElapsedTimeTests.Timer_TwoTimers_KeepSeparateElapsedTimes -->
 *ElapsedTime*
 : A **LongLong** giving the total number of milliseconds since the first tick. On the very first tick after the timer starts (or restarts), *ElapsedTime* is `0`. On each subsequent tick it reflects the cumulative milliseconds measured since that first tick.
+<!-- /test -->
 
 The value is derived from the `dwTime` parameter supplied with `WM_TIMER` (the number of milliseconds since the system started, as `GetTickCount` returns it). The class accounts for the 49.7-day `GetTickCount` rollover so *ElapsedTime* continues to increase correctly without wrapping.
 
diff --git a/docs/Reference/Contributed/TwinTimerLib/index.md b/docs/Reference/Contributed/TwinTimerLib/index.md
index 49ba4ae9..bdd50234 100644
--- a/docs/Reference/Contributed/TwinTimerLib/index.md
+++ b/docs/Reference/Contributed/TwinTimerLib/index.md
@@ -19,3 +19,7 @@ The **TwinTimerLib** contributed package provides a Win32-backed timer class tha
   - [Enabled](TwinTimer/Enabled) -- returns or sets a value that determines whether the timer responds to elapsed-interval events
   - [Interval](TwinTimer/Interval) -- returns or sets the number of milliseconds between successive Timer events
   - [Timer](TwinTimer/Timer) -- occurs when the preset interval for a TwinTimer has elapsed
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [TwinTimerLib-tests.twinproj](TwinTimerLib-tests.twinproj), a twinBASIC project. It uses TwinTimerLib as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/VBA_JSON/Dictionary/Item.md b/docs/Reference/Contributed/VBA_JSON/Dictionary/Item.md
index 84c22e6c..b7d03296 100644
--- a/docs/Reference/Contributed/VBA_JSON/Dictionary/Item.md
+++ b/docs/Reference/Contributed/VBA_JSON/Dictionary/Item.md
@@ -9,6 +9,10 @@ has_toc: false
 
 Returns or sets the value stored under a given key in the **Dictionary**.
 
+<!-- test: DictionaryTests.Item_KeysThatDifferInCase_AreSeparateKeys, ParseJsonTests.KeysThatDifferInCase_AreSeparateEntries -->
+> [!WARNING] 2.3.1.1
+> Keys are compared without regard to case, so `d("a")` and `d("A")` are one entry: the second assignment replaces the first value. **ParseJson** therefore merges the keys `id` and `ID` of one JSON object into one entry that holds the last value, and the other value is lost without an error. JSON keys are case-sensitive, and so are the keys of the **Scripting.Dictionary** that VBA-JSON uses on Windows.
+
 ## Get
 
 Returns the **Variant** value associated with *Key*.
@@ -21,9 +25,15 @@ Syntax: *object*.**Item**(*Key*)
 *Key*
 : *required* A **String** identifying the entry to retrieve.
 
+<!-- test: DictionaryTests.Item_IsTheDefaultMember, DictionaryTests.Item_MissingKey_RaisesError5 -->
 **Item** is the default member of **Dictionary**, so `dict("key")` and `dict.Item("key")` are equivalent.
 
-If *Key* does not exist in the dictionary, a runtime error is raised by the underlying **Collection**.
+If *Key* does not exist in the dictionary, the underlying **Collection** raises run-time error 5 (Invalid procedure call or argument), and the key is not added.
+<!-- /test -->
+
+<!-- test: DictionaryTests.Item_MissingKey_RaisesError5, DictionaryTests.Item_MissingKey_ScriptingDictionaryAddsTheKey -->
+> [!NOTE] 2.3.1.1
+> Reading a key that is not there raises run-time error 5 and adds nothing. A **Scripting.Dictionary** returns **Empty** and adds the key.
 
 ## Let
 
@@ -37,7 +47,13 @@ Syntax: *object*.**Item**(*Key*) **=** *value*
 *value*
 : A **Variant** (non-object) to store under *Key*.
 
-If *Key* already exists, the previous entry is removed before the new value is added, so each key maps to exactly one value. The new entry is added at the end, so a replaced key moves to the end of the enumeration order.
+<!-- test: DictionaryTests.Item_Replace_KeepsOneEntryWithTheNewValue, DictionaryTests.Item_Replace_MovesTheKeyToTheEnd, DictionaryTests.Item_NumericKey_IsConvertedToAString -->
+If *Key* already exists, the previous entry is removed before the new value is added, so each key maps to exactly one value. The new entry is added at the end, so a replaced key moves to the end of the enumeration order. A *Key* that is not a **String**, such as the number 5, is converted to one.
+<!-- /test -->
+
+<!-- test: DictionaryTests.Item_Replace_MovesTheKeyToTheEnd, DictionaryTests.Item_Replace_ScriptingDictionaryKeepsThePosition -->
+> [!NOTE] 2.3.1.1
+> Assigning to an existing key moves the entry to the end of the **For Each** and **Keys** order. A **Scripting.Dictionary** keeps the entry where it was, so code that writes a value back into a parsed object changes the order of the keys that **ConvertToJson** writes.
 
 ## Set
 
@@ -51,7 +67,9 @@ Syntax: **Set** *object*.**Item**(*Key*) **=** *value*
 *value*
 : A **Variant** containing an object reference to store under *Key*.
 
+<!-- test: DictionaryTests.Item_Set_StoresAnObjectReference, DictionaryTests.Item_Replace_KeepsOneEntryWithTheNewValue -->
 The **Set** accessor has the same replacement behaviour as **Let**: if *Key* already exists, the prior entry is removed first.
+<!-- /test -->
 
 ### Example
 
diff --git a/docs/Reference/Contributed/VBA_JSON/Dictionary/Keys.md b/docs/Reference/Contributed/VBA_JSON/Dictionary/Keys.md
index 4f2e578c..a7dd7f8e 100644
--- a/docs/Reference/Contributed/VBA_JSON/Dictionary/Keys.md
+++ b/docs/Reference/Contributed/VBA_JSON/Dictionary/Keys.md
@@ -14,7 +14,13 @@ Syntax: *object*.**Keys**
 *object*
 : *required* An object expression that evaluates to a **Dictionary** object.
 
+<!-- test: DictionaryTests.Keys_AreInTheOrderTheyWereAdded, DictionaryTests.Keys_WithNoEntries_IsAnEmptyArray, DictionaryTests.Item_Replace_MovesTheKeyToTheEnd -->
 The property returns a **Variant** containing an array of **String** values, one entry per key. The order of the entries is the order in which the key-value pairs were added; assigning to an existing key moves it to the end. If the dictionary is empty, an empty array is returned.
+<!-- /test -->
+
+<!-- test: DictionaryTests.Item_Replace_MovesTheKeyToTheEnd, DictionaryTests.Item_Replace_ScriptingDictionaryKeepsThePosition -->
+> [!NOTE] 2.3.1.1
+> Assigning to an existing key moves the entry to the end of the order. A **Scripting.Dictionary** keeps the entry where it was.
 
 ### Example
 
diff --git a/docs/Reference/Contributed/VBA_JSON/Dictionary/index.md b/docs/Reference/Contributed/VBA_JSON/Dictionary/index.md
index b52f5071..aed217fb 100644
--- a/docs/Reference/Contributed/VBA_JSON/Dictionary/index.md
+++ b/docs/Reference/Contributed/VBA_JSON/Dictionary/index.md
@@ -10,7 +10,8 @@ has_toc: false
 
 A string-keyed collection that maps **String** keys to **Variant** values, backed by a twinBASIC **Collection**.
 
-**Dictionary** is the object type returned by the JSON parser when a JSON object is decoded. Keys are strings, compared as the backing **Collection** compares its keys; **Dictionary** does not change that. Values can be any **Variant**---numbers, strings, **Boolean**, **Null** (for JSON `null`), or nested **Dictionary** and **Collection** objects (a JSON array becomes a **Collection**).
+<!-- test: DictionaryTests.Item_StoresAndReadsAValue, DictionaryTests.Item_HoldsAnyVariant, DictionaryTests.Item_Set_StoresAnObjectReference, DictionaryTests.ParseJsonResult_IsAPackageDictionary -->
+**Dictionary** is the object type returned by the JSON parser when a JSON object is decoded. Keys are strings, compared as the backing **Collection** compares its keys: without regard to case. Values can be any **Variant**---numbers, strings, **Boolean**, **Null** (for JSON `null`), or nested **Dictionary** and **Collection** objects (a JSON array becomes a **Collection**).
 
 ```tb check_build
 Dim d As New Dictionary
@@ -21,6 +22,11 @@ d("age") = 30
 Debug.Print d("name")   ' Alice
 Debug.Print d("age")    ' 30
 ```
+<!-- /test -->
+
+<!-- test: DictionaryTests.Item_KeysThatDifferInCase_AreSeparateKeys, ParseJsonTests.KeysThatDifferInCase_AreSeparateEntries -->
+> [!WARNING] 2.3.1.1
+> Keys are compared without regard to case, so `d("a")` and `d("A")` are one entry: the second assignment replaces the first value. **ParseJson** therefore merges the keys `id` and `ID` of one JSON object into one entry that holds the last value, and the other value is lost without an error. JSON keys are case-sensitive, and so are the keys of the **Scripting.Dictionary** that VBA-JSON uses on Windows.
 
 * TOC
 {:toc}
@@ -42,6 +48,7 @@ Syntax (explicit): *object*.**Item** ( *Key* ) [ = *Value* ]
 *Value*
 : A **Variant** to store. When assigning an object reference, use **Set** *object*(**Key**) = *Value*.
 
+<!-- test: DictionaryTests.Item_MissingKey_RaisesError5, DictionaryTests.Item_IsTheDefaultMember, DictionaryTests.Item_Set_StoresAnObjectReference -->
 Reading a key that does not exist raises run-time error 5 (Invalid procedure call or argument), inherited from the underlying **Collection**.
 
 Because **Item** is the default member, the parenthesized shorthand *object*(*Key*) is equivalent to *object*.**Item**(*Key*).
@@ -59,6 +66,7 @@ Set d("child") = child
 Debug.Print d("count")       ' 42
 Debug.Print TypeName(d("child"))  ' Dictionary
 ```
+<!-- /test -->
 
 ### Keys
 {: .no_toc }
@@ -67,7 +75,9 @@ Returns the keys of all entries as a **Variant** array.
 
 Syntax: *object*.**Keys**
 
+<!-- test: DictionaryTests.Keys_AreInTheOrderTheyWereAdded, DictionaryTests.Keys_WithNoEntries_IsAnEmptyArray -->
 The return value is a **Variant** holding the **String** array that the underlying **Collection.Keys** property produces: one element per key, in the order the entries were added. When the collection is empty, an empty array is returned.
+<!-- /test -->
 
 ```tb check_build
 Dim d As New Dictionary
@@ -80,10 +90,13 @@ For Each k In d.Keys
 Next
 ```
 
+<!-- test: DictionaryTests.Keys_VariantKey_ReadsTheEntry, DictionaryTests.Item_NumericKey_IsConvertedToAString -->
 **Item** takes its key `ByVal` as a **String**, so a key held in a **Variant**, such as the loop variable of a **For Each** over **Keys**, is converted to a **String** when it is passed.
+<!-- /test -->
 
 ## Remarks
 
+<!-- test: DictionaryTests.ForEach_YieldsTheValuesInOrder -->
 **Dictionary** supports **For Each** iteration through the `[Enumerator]` attribute on its private `_NewEnum` function, which delegates to the backing **Collection**'s enumerator. Iterating with **For Each** yields the stored *values* (not keys):
 
 ```tb check_build
@@ -96,12 +109,28 @@ For Each v In d
     Debug.Print v   ' prints 10, then 20
 Next v
 ```
+<!-- /test -->
 
 To iterate over keys, use [**Keys**](#keys) instead.
 
+<!-- test: DictionaryTests.Item_Replace_KeepsOneEntryWithTheNewValue, DictionaryTests.Item_Replace_MovesTheKeyToTheEnd -->
 Assigning to an existing key replaces the current value: **Item Let/Set** removes the old entry via **Collection.Remove** and re-adds the new value under the same key. The re-added entry goes to the end, so it moves to the end of the **For Each** and **Keys** order.
+<!-- /test -->
+
+<!-- test: DictionaryTests.Item_MissingKey_RaisesError5, DictionaryTests.Item_MissingKey_ScriptingDictionaryAddsTheKey -->
+> [!NOTE] 2.3.1.1
+> Reading a key that is not there raises run-time error 5 and adds nothing. A **Scripting.Dictionary** returns **Empty** and adds the key.
+
+<!-- test: DictionaryTests.Item_Replace_MovesTheKeyToTheEnd, DictionaryTests.Item_Replace_ScriptingDictionaryKeepsThePosition -->
+> [!NOTE] 2.3.1.1
+> Assigning to an existing key moves the entry to the end of the **For Each** and **Keys** order. A **Scripting.Dictionary** keeps the entry where it was, so code that writes a value back into a parsed object changes the order of the keys that **ConvertToJson** writes.
+
+<!-- test: compile Count, compile Add, compile Remove, compile Exists, compile Items, compile RemoveAll, compile CompareMode, compile Key -->
+> [!NOTE] 2.3.1.1
+> **Dictionary** has only the **Item** and **Keys** members. The other members of **Scripting.Dictionary**---**Count**, **Exists**, **Add**, **Remove**, **RemoveAll**, **Items**, **Key** and **CompareMode**---do not exist, and code that uses one does not compile.
 
-**Dictionary** has only the **Item** and **Keys** members: it has no **Count**, **Exists**, **Add** or **Remove**. To count entries, take the bounds of **Keys** with **UBound** and **LBound**:
+<!-- test: DictionaryTests.Keys_CountedByTheBoundsOfTheArray -->
+To count entries, take the bounds of **Keys** with **UBound** and **LBound**:
 
 ```tb check_build
 Dim d As New Dictionary
@@ -111,11 +140,13 @@ d("y") = 2
 Dim keyCount As Long
 keyCount = UBound(d.Keys) - LBound(d.Keys) + 1   ' 2
 ```
+<!-- /test -->
 
 ## Example
 
 This example parses a JSON string and reads values from the resulting **Dictionary**.
 
+<!-- test: DictionaryTests.ParseJsonResult_IsAPackageDictionary -->
 ```tb check_build
 ' Assumes JsonConverter (VBA_JSON) is referenced and ParseJson is in scope.
 Dim parsed As Dictionary
@@ -129,6 +160,7 @@ For Each k In parsed.Keys
     Debug.Print k & ": " & parsed(k)
 Next
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToIso.md b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToIso.md
index 9b653822..c73bc61e 100644
--- a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToIso.md
+++ b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToIso.md
@@ -14,13 +14,23 @@ Syntax: **ConvertToIso** ( *utc_LocalDate* ) **As String**
 *utc_LocalDate*
 : *required* A **Date** value representing a local date and time.
 
+<!-- test: DatesTests.ConvertToIso_WritesTheUtcTimeAsIso8601, DatesTests.ConvertToIso_Milliseconds_AreAlwaysZero -->
 Returns a **String** in the form `yyyy-mm-ddTHH:mm:ss.000Z` representing the equivalent UTC instant. The milliseconds field is always `000`: the format fixes it, and [**ConvertToUtc**](ConvertToUtc) works in whole seconds.
+<!-- /test -->
 
 ### Remarks
 
+<!-- test: DatesTests.ConvertToIso_WritesTheUtcTimeAsIso8601 -->
 **ConvertToIso** first converts *utc_LocalDate* from local time to UTC using [**ConvertToUtc**](ConvertToUtc), then formats the result according to ISO 8601. The trailing `Z` suffix indicates the UTC time zone.
+<!-- /test -->
 
+<!-- test: DatesTests.ConvertToIso_DateBefore30December1899_AppliesTheZoneRules, DatesTests.ConvertToIso_DateBefore1601_Raises10014, DatesTests.ConvertToJson_DateBefore1601_Raises10014 -->
+> [!WARNING] 2.3.1.1
+> A **Date** before 30 December 1899 gets the wrong day and time, and one before 1 January 1601 gives a meaningless date, with no error: [**ConvertToUtc**](ConvertToUtc) cannot convert it. Run-time error 10014 is not raised for it, and neither is it by [**ConvertToJson**](ConvertToJson) for such a **Date**.
+
+<!-- test: DatesTests.ConvertToJson_Date_IsAQuotedIsoString, DatesTests.ConvertToJson_Date_InsideADictionaryACollectionAndAnArray -->
 This function is used internally by [**ConvertToJson**](ConvertToJson) when it encounters a value of type **vbDate**: every **Date** value in a Dictionary, Collection, or array is serialized as a quoted ISO 8601 string.
+<!-- /test -->
 
 On Windows, the UTC offset is read from the system time-zone information via the Win32 `GetTimeZoneInformation` and `TzSpecificLocalTimeToSystemTime` APIs, so the result reflects the current daylight saving time rules of the local machine. On Mac, an equivalent shell command is used.
 
diff --git a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToJson.md b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToJson.md
index 724cb626..e7c52638 100644
--- a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToJson.md
+++ b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToJson.md
@@ -23,6 +23,7 @@ The function returns a **String** containing the JSON representation of *JsonVal
 
 The following table summarises how each VBA type maps to JSON:
 
+<!-- test: ConvertToJsonTests.Scalars_NullAndBooleans, ConvertToJsonTests.Scalars_Numbers, ConvertToJsonTests.Scalars_DoubleOfLargeMagnitude_IsAJsonNumber, ConvertToJsonTests.Scalars_Double_IsWrittenWith15SignificantDigits, ConvertToJsonTests.Scalars_EmptyAndNothing_GiveAnEmptyString, ConvertToJsonTests.Scalars_String_IsQuoted, ConvertToJsonTests.String_QuoteBackslashAndControlCharacters_AreEscaped, ConvertToJsonTests.String_OtherControlCharacters_AreEscapedAsUnicode, ConvertToJsonTests.String_NonAsciiCharacters_AreEscapedAsUnicode, ConvertToJsonTests.String_OfDigitsOnly_16To100Characters_IsWrittenWithoutQuotes, ConvertToJsonTests.String_ThatIsShorterLongerOrHoldsOtherCharacters_IsQuoted, OptionsTests.UseDoubleForLargeNumbers_True_ConvertQuotesEveryString, ConvertToJsonTests.Dictionary_IsAnObject, ConvertToJsonTests.Dictionary_Key_IsWrittenExactlyAsStored, ConvertToJsonTests.Dictionary_ValueThatIsEmptyOrNothing_OmitsTheKey, ConvertToJsonTests.Dictionary_NestedObjectsAndCollections, ConvertToJsonTests.OtherObjects_GiveAnEmptyString, ConvertToJsonTests.ObjectNamedDictionary_IsAnObject, ConvertToJsonTests.Collection_IsAnArray, ConvertToJsonTests.Collection_ItemThatIsEmptyOrNothing_IsNull, ConvertToJsonTests.Array_OneDimension, ConvertToJsonTests.Array_ElementThatIsEmptyOrNothing_IsNull, ConvertToJsonTests.Array_TwoDimensions_IsAnArrayOfArrays, DatesTests.ConvertToJson_Date_IsAQuotedIsoString, DatesTests.ConvertToJson_Date_InsideADictionaryACollectionAndAnArray -->
 | VBA type | JSON output |
 |---|---|
 | **Null** | `null` |
@@ -34,13 +35,38 @@ The following table summarises how each VBA type maps to JSON:
 | Large-number **String** | Numeric literal without quotes (when `JsonOptions.UseDoubleForLargeNumbers` is **False** and the string is 16 to 100 characters long and contains only digits, periods, and the letters `E` and `e`). |
 | VBA array (1D or 2D) | JSON array. **Empty** or **Nothing** elements are emitted as `null`. |
 | **Collection** | JSON array. **Empty** or **Nothing** items are emitted as `null`. |
-| **Dictionary** | JSON object. Keys are written in double quotes exactly as stored; quotes, backslashes, and control characters in a key are not escaped. Entries whose value is **Empty** or **Nothing** are omitted entirely. |
+| **Dictionary** | JSON object. Keys are written in double quotes exactly as stored. Entries whose value is **Empty** or **Nothing** are omitted entirely. |
 | **Empty** / **Nothing** (top-level) | A zero-length string (not valid standalone JSON; meaningful only inside arrays and dictionaries as described above). |
 | Any other object | A zero-length string. |
+<!-- /test -->
 
+<!-- test: ConvertToJsonTests.Dictionary_KeyWithAQuote_IsEscaped, ConvertToJsonTests.Dictionary_KeyWithABackslash_IsEscaped, ConvertToJsonTests.Dictionary_KeyWithALineFeed_IsEscaped -->
+> [!WARNING] 2.3.1.1
+> The keys of a **Dictionary** are written without escapes. A key that holds a quote, a backslash or a control character gives text that is not valid JSON (the key `a"b` is written as `"a"b"`), and a program that reads it fails or reads a different key.
+
+<!-- test: ConvertToJsonTests.String_ThatIsNotANumber_IsQuoted -->
+> [!WARNING] 2.3.1.1
+> The rule for a large-number **String** looks only at the characters, so a string of 16 to 100 digits, periods, `E` and `e` is written without quotes even when it is not a JSON number. `"0000123456789012"` (leading zeros), 16 letters `E` and 16 periods all give text that is not valid JSON.
+
+<!-- test: ConvertToJsonTests.Array_LowerBoundBelowZero_IsWritten, ConvertToJsonTests.Array_TwoDimensions_SecondLowerBoundBelowZero_IsWritten -->
+> [!WARNING] 2.3.1.1
+> An array whose lower bound is below zero is not written correctly, and no error is raised. An array from -1 to 1 gives `[]`, and an array of two dimensions whose second dimension starts below zero gives `[null,null]`.
+
+<!-- test: DatesTests.ConvertToJson_DateBefore1601_Raises10014, DatesTests.ConvertToIso_DateBefore30December1899_AppliesTheZoneRules, DatesTests.ConvertToIso_DateBefore1601_Raises10014 -->
+> [!WARNING] 2.3.1.1
+> A **Date** before 30 December 1899 is written as a wrong time, and one before 1 January 1601 as a meaningless date, with no error. See [**ConvertToIso**](ConvertToIso).
+
+<!-- test: ConvertToJsonTests.Scalars_Double_IsWrittenWith15SignificantDigits -->
+> [!NOTE] 2.3.1.1
+> A **Double** is written with at most 15 significant digits, as **CStr** gives it: 1 / 3 gives `0.333333333333333` and 0.1 + 0.2 gives `0.3`. Reading the text back gives a **Double** that can differ from the original in the last digits.
+
+<!-- test: ConvertToJsonTests.Whitespace_Omitted_IsCompact, ConvertToJsonTests.Whitespace_Integer_IndentsEachLevelByThatManySpaces, ConvertToJsonTests.Whitespace_Integer_NestedCollectionAndNull, ConvertToJsonTests.Whitespace_String_RepeatsItsFirstCharacterOncePerLevel, ConvertToJsonTests.Whitespace_Arrays_AreIndentedLikeCollections -->
 When *Whitespace* is provided, each nesting level is indented relative to its parent, and the lines are separated by `vbNewLine`. An **Integer** *Whitespace* of `4` produces four spaces per level; a **String** *Whitespace* of `vbTab` produces one tab per level. Only the first character of a **String** *Whitespace* is used, so `"  "` (two spaces) produces one space per level.
+<!-- /test -->
 
+<!-- test: ConvertToJsonTests.String_Solidus_IsNotEscapedByDefault, OptionsTests.EscapeSolidus_True_ConvertEscapesTheSolidus -->
 The solidus (`/`) is not escaped by default. Set `JsonConverter.JsonOptions.EscapeSolidus = True` before calling **ConvertToJson** to escape forward slashes as `\/`.
+<!-- /test -->
 
 The `json_CurrentIndentation` parameter in the full signature is for internal recursive use. Do not pass it directly.
 
diff --git a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToUtc.md b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToUtc.md
index 9d7cbca8..42765992 100644
--- a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToUtc.md
+++ b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ConvertToUtc.md
@@ -18,11 +18,18 @@ Returns a **Date** representing the same instant expressed in Coordinated Univer
 
 ### Remarks
 
-On Windows, **ConvertToUtc** calls the Win32 `GetTimeZoneInformation` and `TzSpecificLocalTimeToSystemTime` APIs. The adjustment applies the machine's current time-zone rules, as `GetTimeZoneInformation` reports them, to the date and time given by *utc_LocalDate*, so whether daylight saving time is in effect at the time of the call does not matter. The conversion works in whole seconds: any fraction of a second in *utc_LocalDate* is dropped.
+<!-- test: DatesTests.ConvertToUtc_AppliesTheZoneRulesInForceOnThatDate, DatesTests.ConvertToUtc_AndParseUtc_AreInverses, DatesTests.ConvertToUtc_FractionOfASecond_IsRoundedToTheNearestSecond -->
+On Windows, **ConvertToUtc** calls the Win32 `GetTimeZoneInformation` and `TzSpecificLocalTimeToSystemTime` APIs. The adjustment applies the machine's current time-zone rules, as `GetTimeZoneInformation` reports them, to the date and time given by *utc_LocalDate*, so whether daylight saving time is in effect at the time of the call does not matter. The conversion works in whole seconds: a fraction of a second in *utc_LocalDate* is rounded to the nearest second.
+<!-- /test -->
+
+<!-- test: DatesTests.ConvertToUtc_DateBefore30December1899_AppliesTheZoneRules, DatesTests.ConvertToUtc_DateBefore1601_Raises10012 -->
+> [!WARNING] 2.3.1.1
+> A **Date** before 30 December 1899 gets the wrong day and time, and one before 1 January 1601 gives a meaningless date, with no error: Windows cannot convert it, and the function returns a date that bears no relation to the argument. Run-time error 10012 is not raised for it.
+
 
 On macOS, **ConvertToUtc** invokes the system `date` command via a shell to perform the equivalent conversion.
 
-If the conversion fails, run-time error 10012 ("UTC conversion error") is raised.
+An error during the conversion raises run-time error 10012 ("UTC conversion error") with the source `UtcConverter.ConvertToUtc`.
 
 **ConvertToUtc** is called internally by [**ConvertToIso**](ConvertToIso), which uses it to obtain the UTC instant before formatting the result as an ISO 8601 string.
 
diff --git a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseIso.md b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseIso.md
index b2dd260b..89d35bb1 100644
--- a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseIso.md
+++ b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseIso.md
@@ -18,6 +18,7 @@ Returns a **Date** value in the local time zone corresponding to the instant des
 
 ### Remarks
 
+<!-- test: DatesTests.ParseIso_Z_IsUtc, DatesTests.ParseIso_PositiveOffset_IsSubtracted, DatesTests.ParseIso_NegativeOffset_IsAdded, DatesTests.ParseIso_OffsetWithoutMinutes, DatesTests.ParseIso_NoOffset_IsUtc, DatesTests.ParseIso_DateOnly_IsLocalMidnight, DatesTests.ParseIso_TimeMayOmitSecondsOrMinutes, DatesTests.ParseIso_FractionOfASecond_IsTruncated, DatesTests.ParseIso_IsTheInverseOfConvertToIso -->
 **ParseIso** accepts the following ISO 8601 forms:
 
 - Date only: `YYYY-MM-DD` (no time component; midnight is assumed and no time-zone conversion is applied).
@@ -29,9 +30,20 @@ The time component may omit the seconds, or the minutes and seconds (`THH:MM` or
 
 When the string has a time component, **ParseIso** reads the time as UTC and converts it to local time by calling [**ParseUtc**](ParseUtc) internally. On Windows, that conversion uses the `SystemTimeToTzSpecificLocalTime` Win32 API and honours daylight saving time rules for the local machine. When an explicit numeric offset is present, the offset is then subtracted from the converted local time so that the returned value reflects local wall-clock time.
 
-On parse failure the function raises run-time error 10013 with the source `"UtcConverter.ParseIso"` and a message that includes the original string.
-
 **ParseIso** is the inverse of [**ConvertToIso**](ConvertToIso).
+<!-- /test -->
+
+<!-- test: DatesTests.ParseIso_TextThatIsNotIso8601_Raises10013, DatesTests.ParseIso_BasicFormat_Raises10013 -->
+On parse failure the function raises run-time error 10013 with the source `"UtcConverter.ParseIso"` and a message that includes the original string. A form that is not listed above, such as the basic format `20240603T090000Z` with no hyphens or colons, is a parse failure.
+<!-- /test -->
+
+<!-- test: DatesTests.ParseIso_OffsetWithoutAColon_IsHoursAndMinutes -->
+> [!WARNING] 2.3.1.1
+> An offset written without a colon, such as `+0530`, is read as a number of hours: `+0530` is 530 hours, and `2024-06-03T14:30:00+0530` gives 12 May 2024, with no error. Write the offset as `+05:30`.
+
+<!-- test: DatesTests.ParseIso_DateBefore30December1899_AppliesTheZoneRules, DatesTests.ParseIso_DateBefore1601_Raises10013 -->
+> [!WARNING] 2.3.1.1
+> A string with a time on a date before 30 December 1899 gives the wrong day and time, and one before 1 January 1601 gives a meaningless date, with no error: [**ParseUtc**](ParseUtc) cannot convert it.
 
 ### Example
 
diff --git a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseJson.md b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseJson.md
index 8f8daa4b..31ddba08 100644
--- a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseJson.md
+++ b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseJson.md
@@ -14,17 +14,47 @@ Syntax: **ParseJson** ( *JsonString* )
 *JsonString*
 : *required* A **String** containing a valid JSON text. The root value must be a JSON object (`{...}`) or a JSON array (`[...]`).
 
-Returns an **Object** --- a **Dictionary** when the root JSON value is an object, or a **Collection** when it is an array. Nested objects and arrays are likewise returned as **Dictionary** and **Collection** values respectively. JSON strings become **String**, JSON numbers become **Double** (or **String** for a number whose text is 16 or more characters long, 17 or more with a decimal point, when `JsonOptions.UseDoubleForLargeNumbers` is **False**), JSON booleans become **Boolean**, and JSON `null` becomes **Null**.
+<!-- test: ParseJsonTests.Object_GivesADictionary, ParseJsonTests.Array_GivesACollection, ParseJsonTests.Nested_ObjectsAndArrays_AreDictionariesAndCollections, ParseJsonTests.EmptyContainers, ParseJsonTests.Numbers_AreDoubles, ParseJsonTests.Literals_TrueFalseNull, ParseJsonTests.Strings_Escapes, ParseJsonTests.Strings_UnicodeEscapes, ParseJsonTests.LargeNumbers_16CharactersOrMore_AreStrings, ParseJsonTests.LargeNumbers_WithADecimalPoint_NeedSeventeenCharacters, ParseJsonTests.ObjectValues_LargeNumberIsAString, ParseJsonTests.Strings_SpacesAreKept, DatesTests.ParseJson_DateInTheText_StaysAString -->
+Returns an **Object** --- a **Dictionary** when the root JSON value is an object, or a **Collection** when it is an array. Nested objects and arrays are likewise returned as **Dictionary** and **Collection** values respectively. JSON strings become **String**, JSON numbers become **Double** (or **String** for a number whose text is 16 or more characters long, 17 or more with a decimal point, when `JsonOptions.UseDoubleForLargeNumbers` is **False**), JSON booleans become **Boolean**, and JSON `null` becomes **Null**. The escapes `\"`, `\\`, `\/`, `\b`, `\f`, `\r` and `\t` are read, and so is `\u` followed by four hexadecimal digits. A JSON string that holds a date stays a **String**: pass it to [**ParseIso**](ParseIso) to get a **Date**.
+<!-- /test -->
 
+<!-- test: ParseJsonTests.RawCrLfAndTab_AreRemovedBeforeParsing, ParseJsonTests.FormattedJson_IsAccepted -->
 All carriage returns, line feeds, and tab characters are removed from *JsonString* before parsing, including any inside string values, so formatted (pretty-printed) JSON is accepted without pre-processing.
+<!-- /test -->
 
 ### Remarks
 
-If *JsonString* does not begin with `{` or `[` after leading spaces are skipped, **ParseJson** raises run-time error **10001** with source `JSONConverter` and a message that shows a short excerpt of the surrounding text with a caret under the position of the unexpected character. The same error is raised when the parser meets other text it cannot read inside the document, such as an unquoted key or a missing colon. The parser does not check for commas between items, and it ignores any text after the top-level value.
+<!-- test: ParseJsonTests.Strings_NewlineEscape_IsALineFeed -->
+> [!WARNING] 2.3.1.1
+> The escape `\n` is read as a carriage return followed by a line feed, two characters, and not as the one line feed that JSON defines. The text `"a\nb"` gives `"a" & vbCr & vbLf & "b"`, and a text read and written again with **ConvertToJson** changes from `\n` to `\r\n`.
 
+<!-- test: ParseJsonTests.Error_ArrayThatIsNotClosed_Raises10001, ParseJsonTests.Error_StringInAnArrayThatIsNotClosed_Raises10001, ParseJsonTests.Error_ObjectThatIsNotClosed_Raises10001 -->
+> [!WARNING] 2.3.1.1
+> Text that ends before an array is closed, such as `[1,2` or `["abc`, does not return: the parser keeps adding empty items to the array. An object that is not closed raises error 10001, but an unclosed array inside an object hangs the same way.
+
+<!-- test: DictionaryTests.Item_KeysThatDifferInCase_AreSeparateKeys, ParseJsonTests.KeysThatDifferInCase_AreSeparateEntries -->
+> [!WARNING] 2.3.1.1
+> Keys that differ only in case, such as `id` and `ID` in one JSON object, become one entry of the **Dictionary**, which holds the last value; the other value is lost without an error.
+
+<!-- test: ParseJsonTests.Error_NumberBeyondTheRangeOfADouble_RaisesOverflow -->
+> [!NOTE] 2.3.1.1
+> A number outside the range of a **Double**, such as `1e999`, raises run-time error 6 (Overflow) and not error 10001.
+
+<!-- test: ParseJsonTests.Error_EmptyText_Raises10001, ParseJsonTests.Error_TopLevelValueThatIsNotAnObjectOrArray_Raises10001, ParseJsonTests.Error_UnquotedKey_Raises10001, ParseJsonTests.Error_MissingColon_Raises10001, ParseJsonTests.Error_UnrecognisedValue_Raises10001, ParseJsonTests.Error_Message_ShowsTheTextAndACaret, ParseJsonTests.Error_Message_ShowsTenCharactersEachSideOfTheError -->
+If *JsonString* does not begin with `{` or `[` after leading spaces are skipped, **ParseJson** raises run-time error **10001** with source `JSONConverter` and a message that shows a short excerpt of the surrounding text with a caret under the position of the unexpected character. The excerpt holds up to ten characters on each side of the position. The same error is raised when the parser meets other text it cannot read inside the document, such as an unquoted key, a missing colon, a trailing comma or a value it does not know.
+<!-- /test -->
+
+<!-- test: ParseJsonTests.Lenient_MissingCommas_AreAccepted, ParseJsonTests.Lenient_TextAfterTheTopLevelValue_IsIgnored, ParseJsonTests.Lenient_SingleQuotedStringsAndKeys_AreAccepted, ParseJsonTests.Lenient_NumbersJsonDoesNotAllow_AreAccepted, ParseJsonTests.Lenient_UnknownEscape_DropsTheBackslash, ParseJsonTests.DuplicateKeys_LastValueWins, ParseJsonTests.EmptyKey_IsAKey -->
+The parser does not check for commas between items, and it ignores any text after the top-level value. It also accepts text that JSON does not allow: strings and keys in single quotes, a number with a leading zero or a leading plus sign or ending in a period, and an escape it does not know, which it reads as the character after the backslash. A `\u` followed by four characters that are not hexadecimal digits is read as the character U+0000. A key that appears twice keeps its last value, at the end of the order of the keys. The empty string is a key like any other.
+<!-- /test -->
+
+<!-- test: ParseJsonTests.LargeNumbers_16CharactersOrMore_AreStrings, ParseJsonTests.LargeNumbers_WithADecimalPoint_NeedSeventeenCharacters, OptionsTests.UseDoubleForLargeNumbers_True_ParseGivesDoubles -->
 Large numbers in JSON (a number whose text is 16 or more characters long; 17 or more when it contains a decimal point) are returned as **String** by default to avoid the 15-significant-digit limit of **Double**. Set `JsonConverter.JsonOptions.UseDoubleForLargeNumbers = True` to force all numbers to **Double** regardless of length.
+<!-- /test -->
 
+<!-- test: ParseJsonTests.Error_UnquotedKey_Raises10001, OptionsTests.AllowUnquotedKeys_True_ParseAcceptsThem, OptionsTests.AllowUnquotedKeys_False_ParseRefusesThem, OptionsTests.EscapeSolidus_ParseReadsAnEscapedSolidusWhateverTheOption -->
 Object keys must be quoted (single or double quotes) unless `JsonConverter.JsonOptions.AllowUnquotedKeys` is set to **True**.
+<!-- /test -->
 
 ### Example
 
diff --git a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseUtc.md b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseUtc.md
index 743fbbf3..55ea5e25 100644
--- a/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseUtc.md
+++ b/docs/Reference/Contributed/VBA_JSON/JsonConverter/ParseUtc.md
@@ -18,11 +18,18 @@ Returns a **Date** representing the same instant adjusted to the local time zone
 
 ### Remarks
 
-On Windows, **ParseUtc** calls the Win32 `GetTimeZoneInformation` and `SystemTimeToTzSpecificLocalTime` APIs. The adjustment applies the machine's current time-zone rules, as `GetTimeZoneInformation` reports them, to the date and time given by *utc_UtcDate*, so whether daylight saving time is in effect at the time of the call does not matter. The conversion works in whole seconds: any fraction of a second in *utc_UtcDate* is dropped.
+<!-- test: DatesTests.ParseUtc_AppliesTheZoneRulesInForceOnThatDate, DatesTests.ConvertToUtc_AndParseUtc_AreInverses, DatesTests.ParseUtc_FractionOfASecond_IsRoundedToTheNearestSecond -->
+On Windows, **ParseUtc** calls the Win32 `GetTimeZoneInformation` and `SystemTimeToTzSpecificLocalTime` APIs. The adjustment applies the machine's current time-zone rules, as `GetTimeZoneInformation` reports them, to the date and time given by *utc_UtcDate*, so whether daylight saving time is in effect at the time of the call does not matter. The conversion works in whole seconds: a fraction of a second in *utc_UtcDate* is rounded to the nearest second.
+<!-- /test -->
+
+<!-- test: DatesTests.ParseUtc_DateBefore30December1899_AppliesTheZoneRules, DatesTests.ParseUtc_DateBefore1601_Raises10011 -->
+> [!WARNING] 2.3.1.1
+> A **Date** before 30 December 1899 gets the wrong day and time, and one before 1 January 1601 gives a meaningless date, with no error: Windows cannot convert it, and the function returns a date that bears no relation to the argument. Run-time error 10011 is not raised for it.
+
 
 On macOS, **ParseUtc** invokes the system `date` command via a shell to perform the equivalent conversion.
 
-If the conversion fails, run-time error 10011 ("UTC parsing error") is raised.
+An error during the conversion raises run-time error 10011 ("UTC parsing error") with the source `UtcConverter.ParseUtc`.
 
 [**ParseIso**](ParseIso) calls **ParseUtc** internally after it parses the date and time components of an ISO 8601 string.
 
diff --git a/docs/Reference/Contributed/VBA_JSON/JsonConverter/index.md b/docs/Reference/Contributed/VBA_JSON/JsonConverter/index.md
index 0e3a5ad6..b6b129de 100644
--- a/docs/Reference/Contributed/VBA_JSON/JsonConverter/index.md
+++ b/docs/Reference/Contributed/VBA_JSON/JsonConverter/index.md
@@ -12,6 +12,7 @@ Provides JSON parsing, JSON serialization, and UTC/ISO 8601 date conversion for
 
 **JsonConverter** is a standard module. It exposes two primary functions---[**ParseJson**](ParseJson) and [**ConvertToJson**](ConvertToJson)---plus four date-utility functions ([**ParseUtc**](ParseUtc), [**ConvertToUtc**](ConvertToUtc), [**ParseIso**](ParseIso), [**ConvertToIso**](ConvertToIso)) and one public variable ([**JsonOptions**](#jsonoptions)) that controls parsing and serialization behavior.
 
+<!-- test: ParseJsonTests.Object_GivesADictionary, ConvertToJsonTests.Dictionary_IsAnObject, ConvertToJsonTests.RoundTrip_ParseThenConvert_GivesTheSameText -->
 ```tb check_build
 ' Parse a JSON string into an object graph.
 Dim Result As Object
@@ -24,6 +25,7 @@ Data("name") = "Alice"
 Data("score") = 42
 Debug.Print ConvertToJson(Data)   ' {"name":"Alice","score":42}
 ```
+<!-- /test -->
 
 * TOC
 {:toc}
@@ -34,12 +36,15 @@ Debug.Print ConvertToJson(Data)   ' {"name":"Alice","score":42}
 
 A public variable of the module-private `json_Options` type that controls parsing and serialization behavior. Set its fields before calling **ParseJson** or **ConvertToJson**.
 
+<!-- test: OptionsTests.Defaults_AreAllFalse, OptionsTests.UseDoubleForLargeNumbers_True_ParseGivesDoubles, OptionsTests.UseDoubleForLargeNumbers_True_ConvertQuotesEveryString, OptionsTests.AllowUnquotedKeys_True_ParseAcceptsThem, OptionsTests.AllowUnquotedKeys_False_ParseRefusesThem, OptionsTests.EscapeSolidus_True_ConvertEscapesTheSolidus, OptionsTests.EscapeSolidus_ParseReadsAnEscapedSolidusWhateverTheOption, OptionsTests.Options_AreIndependent, ParseJsonTests.LargeNumbers_16CharactersOrMore_AreStrings, ConvertToJsonTests.String_OfDigitsOnly_16To100Characters_IsWrittenWithoutQuotes -->
 | Field | Type | Default | Effect |
 |-------|------|---------|--------|
 | `UseDoubleForLargeNumbers` | **Boolean** | **False** | When **False**, **ParseJson** returns a number whose text is 16 or more characters long (17 or more when it contains a decimal point) as a **String**, to avoid the 15-significant-digit limit of **Double**; **ConvertToJson** writes a **String** that looks like such a number without quotes. When **True**, **ParseJson** converts every number to **Double** regardless of length, and **ConvertToJson** quotes every **String**. |
 | `AllowUnquotedKeys` | **Boolean** | **False** | When **True**, **ParseJson** accepts JSON objects whose keys are not quoted. The JSON standard requires quoted keys; this option enables a non-standard extension. |
 | `EscapeSolidus` | **Boolean** | **False** | When **True**, **ConvertToJson** escapes forward slashes (`/`) as `\/` in the output. The JSON standard does not require solidus escaping; this option enables it for environments that expect it. |
+<!-- /test -->
 
+<!-- test: ParseJsonTests.ObjectValues_LargeNumberIsAString -->
 ```tb check_build
 ' Preserve large integer IDs as strings.
 JsonOptions.UseDoubleForLargeNumbers = False
@@ -48,6 +53,7 @@ Dim Result As Object
 Set Result = ParseJson("{""id"":123456789012345678}")
 Debug.Print VarType(Result("id"))   ' 8 (vbString): all 18 digits kept
 ```
+<!-- /test -->
 
 ## Functions
 
@@ -60,11 +66,37 @@ Syntax: **ParseJson** ( *JsonString* ) **As Object**
 *JsonString*
 : *required* A **String** containing a valid JSON text. The top-level value must be a JSON object (`{...}`) or a JSON array (`[...]`).
 
-Returns a **Dictionary** when *JsonString* describes a JSON object, or a **Collection** when it describes a JSON array. Nested objects and arrays are represented by nested **Dictionary** and **Collection** values. JSON strings become **String** values; JSON numbers become **Double** values (or **String** for a number whose text is 16 or more characters long, 17 or more with a decimal point, when `JsonOptions.UseDoubleForLargeNumbers` is **False**); JSON booleans become **Boolean** values; and JSON `null` becomes **Null**.
+<!-- test: ParseJsonTests.Object_GivesADictionary, ParseJsonTests.Array_GivesACollection, ParseJsonTests.Nested_ObjectsAndArrays_AreDictionariesAndCollections, ParseJsonTests.EmptyContainers, ParseJsonTests.Numbers_AreDoubles, ParseJsonTests.Literals_TrueFalseNull, ParseJsonTests.Strings_Escapes, ParseJsonTests.Strings_UnicodeEscapes, ParseJsonTests.LargeNumbers_16CharactersOrMore_AreStrings, ParseJsonTests.LargeNumbers_WithADecimalPoint_NeedSeventeenCharacters, ParseJsonTests.Strings_SpacesAreKept -->
+Returns a **Dictionary** when *JsonString* describes a JSON object, or a **Collection** when it describes a JSON array. Nested objects and arrays are represented by nested **Dictionary** and **Collection** values. JSON strings become **String** values; JSON numbers become **Double** values (or **String** for a number whose text is 16 or more characters long, 17 or more with a decimal point, when `JsonOptions.UseDoubleForLargeNumbers` is **False**); JSON booleans become **Boolean** values; and JSON `null` becomes **Null**. The escapes `\"`, `\\`, `\/`, `\b`, `\f`, `\r` and `\t` are read, and so is `\u` followed by four hexadecimal digits.
+<!-- /test -->
 
+<!-- test: ParseJsonTests.RawCrLfAndTab_AreRemovedBeforeParsing, ParseJsonTests.FormattedJson_IsAccepted -->
 All carriage returns, line feeds, and tab characters are removed from *JsonString* before parsing begins, including any inside string values. Between tokens, only space characters are skipped.
+<!-- /test -->
 
-Raises run-time error 10001 with the source `"JSONConverter"` and a diagnostic message that shows the text around the error, with a caret marking the position, if the parser meets text it cannot read, such as a top-level value that is not an object or array, an unquoted key, a missing colon, or an unrecognised value. The parser is lenient: it does not check for commas between items, and it ignores any text after the top-level value.
+<!-- test: ParseJsonTests.Strings_NewlineEscape_IsALineFeed -->
+> [!WARNING] 2.3.1.1
+> The escape `\n` is read as a carriage return followed by a line feed, two characters, and not as the one line feed that JSON defines. The text `"a\nb"` gives `"a" & vbCr & vbLf & "b"`, and a text read and written again with **ConvertToJson** changes from `\n` to `\r\n`.
+
+<!-- test: ParseJsonTests.Error_ArrayThatIsNotClosed_Raises10001, ParseJsonTests.Error_StringInAnArrayThatIsNotClosed_Raises10001, ParseJsonTests.Error_ObjectThatIsNotClosed_Raises10001 -->
+> [!WARNING] 2.3.1.1
+> Text that ends before an array is closed, such as `[1,2` or `["abc`, does not return: the parser keeps adding empty items to the array. An object that is not closed raises error 10001, but an unclosed array inside an object hangs the same way.
+
+<!-- test: DictionaryTests.Item_KeysThatDifferInCase_AreSeparateKeys, ParseJsonTests.KeysThatDifferInCase_AreSeparateEntries -->
+> [!WARNING] 2.3.1.1
+> Keys that differ only in case, such as `id` and `ID` in one JSON object, become one entry of the **Dictionary**, which holds the last value; the other value is lost without an error.
+
+<!-- test: ParseJsonTests.Error_NumberBeyondTheRangeOfADouble_RaisesOverflow -->
+> [!NOTE] 2.3.1.1
+> A number outside the range of a **Double**, such as `1e999`, raises run-time error 6 (Overflow) and not error 10001.
+
+<!-- test: ParseJsonTests.Error_EmptyText_Raises10001, ParseJsonTests.Error_TopLevelValueThatIsNotAnObjectOrArray_Raises10001, ParseJsonTests.Error_UnquotedKey_Raises10001, ParseJsonTests.Error_MissingColon_Raises10001, ParseJsonTests.Error_UnrecognisedValue_Raises10001, ParseJsonTests.Error_Message_ShowsTheTextAndACaret, ParseJsonTests.Error_Message_ShowsTenCharactersEachSideOfTheError -->
+Raises run-time error 10001 with the source `"JSONConverter"` and a diagnostic message that shows the text around the error, with a caret marking the position, if the parser meets text it cannot read, such as a top-level value that is not an object or array, an unquoted key, a missing colon, a trailing comma or an unrecognised value.
+<!-- /test -->
+
+<!-- test: ParseJsonTests.Lenient_MissingCommas_AreAccepted, ParseJsonTests.Lenient_TextAfterTheTopLevelValue_IsIgnored, ParseJsonTests.Lenient_SingleQuotedStringsAndKeys_AreAccepted, ParseJsonTests.Lenient_NumbersJsonDoesNotAllow_AreAccepted, ParseJsonTests.Lenient_UnknownEscape_DropsTheBackslash, ParseJsonTests.DuplicateKeys_LastValueWins, ParseJsonTests.EmptyKey_IsAKey -->
+The parser is lenient: it does not check for commas between items, and it ignores any text after the top-level value. It also accepts strings and keys in single quotes, a number with a leading zero or a leading plus sign or ending in a period, and an escape it does not know, which it reads as the character after the backslash. A key that appears twice keeps its last value.
+<!-- /test -->
 
 ### ConvertToJson
 
@@ -80,7 +112,29 @@ Syntax: **ConvertToJson** ( *JsonValue* [, *Whitespace* ] ) **As String**
 
 Returns a **String** containing the JSON representation of *JsonValue*.
 
+<!-- test: DatesTests.ConvertToJson_Date_IsAQuotedIsoString, DatesTests.ConvertToJson_Date_InsideADictionaryACollectionAndAnArray, ConvertToJsonTests.Scalars_Numbers, ConvertToJsonTests.Scalars_DoubleOfLargeMagnitude_IsAJsonNumber, ConvertToJsonTests.Collection_ItemThatIsEmptyOrNothing_IsNull, ConvertToJsonTests.Array_ElementThatIsEmptyOrNothing_IsNull, ConvertToJsonTests.Dictionary_ValueThatIsEmptyOrNothing_OmitsTheKey -->
 **Date** values are serialized as quoted ISO 8601 strings in UTC by calling [**ConvertToIso**](ConvertToIso) internally. Numbers are written with a period (`.`) as the decimal separator: **ConvertToJson** replaces every comma in a number's text with a period, so a locale that uses a comma does not change the output.
+<!-- /test -->
+
+<!-- test: ConvertToJsonTests.Dictionary_KeyWithAQuote_IsEscaped, ConvertToJsonTests.Dictionary_KeyWithABackslash_IsEscaped, ConvertToJsonTests.Dictionary_KeyWithALineFeed_IsEscaped -->
+> [!WARNING] 2.3.1.1
+> The keys of a **Dictionary** are written without escapes. A key that holds a quote, a backslash or a control character gives text that is not valid JSON (the key `a"b` is written as `"a"b"`), and a program that reads it fails or reads a different key.
+
+<!-- test: ConvertToJsonTests.String_ThatIsNotANumber_IsQuoted -->
+> [!WARNING] 2.3.1.1
+> The rule for a large-number **String** looks only at the characters, so a string of 16 to 100 digits, periods, `E` and `e` is written without quotes even when it is not a JSON number. `"0000123456789012"` (leading zeros), 16 letters `E` and 16 periods all give text that is not valid JSON.
+
+<!-- test: ConvertToJsonTests.Array_LowerBoundBelowZero_IsWritten, ConvertToJsonTests.Array_TwoDimensions_SecondLowerBoundBelowZero_IsWritten -->
+> [!WARNING] 2.3.1.1
+> An array whose lower bound is below zero is not written correctly, and no error is raised. An array from -1 to 1 gives `[]`, and an array of two dimensions whose second dimension starts below zero gives `[null,null]`.
+
+<!-- test: DatesTests.ConvertToJson_DateBefore1601_Raises10014, DatesTests.ConvertToIso_DateBefore30December1899_AppliesTheZoneRules, DatesTests.ConvertToIso_DateBefore1601_Raises10014 -->
+> [!WARNING] 2.3.1.1
+> A **Date** before 30 December 1899 is written as a wrong time, and one before 1 January 1601 as a meaningless date, with no error. See [**ConvertToIso**](ConvertToIso).
+
+<!-- test: ConvertToJsonTests.Scalars_Double_IsWrittenWith15SignificantDigits -->
+> [!NOTE] 2.3.1.1
+> A **Double** is written with at most 15 significant digits, as **CStr** gives it: 1 / 3 gives `0.333333333333333` and 0.1 + 0.2 gives `0.3`. Reading the text back gives a **Double** that can differ from the original in the last digits.
 
 ### ParseUtc
 
@@ -116,10 +170,15 @@ See [ConvertToIso](ConvertToIso) for full documentation.
 
 ## Remarks
 
+<!-- test: ConvertToJsonTests.OtherObjects_GiveAnEmptyString, ConvertToJsonTests.ObjectNamedDictionary_IsAnObject, ConvertToJsonTests.Dictionary_IsAnObject, ConvertToJsonTests.Collection_IsAnArray, ParseJsonTests.Object_GivesADictionary -->
 **ParseJson** creates the package's own [**Dictionary**](../Dictionary/) class for each JSON object. **ConvertToJson** identifies an object by its **TypeName**: an object named `Dictionary` is written as a JSON object, an object named `Collection` as a JSON array, and any other object as an empty string.
+<!-- /test -->
 
+<!-- test: ParseJsonTests.LargeNumbers_16CharactersOrMore_AreStrings, ConvertToJsonTests.String_OfDigitsOnly_16To100Characters_IsWrittenWithoutQuotes, ConvertToJsonTests.String_ThatIsShorterLongerOrHoldsOtherCharacters_IsQuoted -->
 VBA stores floating-point numbers with at most 15 significant digits. JSON payloads that contain large integers---such as 64-bit database IDs or payment-card numbers---may lose precision if parsed as **Double**. By default (`JsonOptions.UseDoubleForLargeNumbers = False`) **JsonConverter** returns a number whose text is 16 or more characters long (17 or more with a decimal point) as a **String**. When serializing, **ConvertToJson** writes without quotes a **String** of 16 to 100 characters that contains only digits, periods, and the letters `E` and `e`, so that downstream consumers receive a number token.
+<!-- /test -->
 
+<!-- test: ParseJsonTests.Error_EmptyText_Raises10001, ParseJsonTests.Error_UnquotedKey_Raises10001, DatesTests.ParseIso_TextThatIsNotIso8601_Raises10013, DatesTests.ParseUtc_DateBefore1601_Raises10011, DatesTests.ConvertToUtc_DateBefore1601_Raises10012, DatesTests.ConvertToIso_DateBefore1601_Raises10014 -->
 Error numbers used by this module:
 
 | Number | Source | Description |
@@ -129,11 +188,13 @@ Error numbers used by this module:
 | 10012 | `UtcConverter.ConvertToUtc` | UTC conversion error |
 | 10013 | `UtcConverter.ParseIso` | ISO 8601 parsing error |
 | 10014 | `UtcConverter.ConvertToIso` | ISO 8601 conversion error |
+<!-- /test -->
 
 ## Example
 
 This example reads a JSON payload, extracts fields, modifies the data, and writes the result back to JSON with two-space indentation.
 
+<!-- test: ConvertToJsonTests.Whitespace_AfterUpdatingAKey_ShowsTheKeyLast -->
 ```tb check_build
 Dim Json As String
 Json = "{""product"":""Widget"",""price"":9.99,""tags"":[""new"",""sale""]}"
@@ -158,9 +219,11 @@ Debug.Print ConvertToJson(Data, 2)
 ' }
 ' (assigning to "price" removed the entry and added it again, so it is now last)
 ```
+<!-- /test -->
 
 This example serializes an object containing a **Date** field to show automatic ISO 8601 conversion.
 
+<!-- test: DatesTests.ConvertToJson_Date_InsideADictionaryACollectionAndAnArray -->
 ```tb check_build
 Dim Order As New Dictionary
 Order("id") = 1001
@@ -170,6 +233,7 @@ Debug.Print ConvertToJson(Order)
 ' {"id":1001,"placed":"2024-06-03T07:00:00.000Z"}
 ' (shown for a machine whose time zone is UTC+02:00 on that date; a machine set to UTC prints 09:00:00)
 ```
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/VBA_JSON/index.md b/docs/Reference/Contributed/VBA_JSON/index.md
index 1cde5d14..7b879057 100644
--- a/docs/Reference/Contributed/VBA_JSON/index.md
+++ b/docs/Reference/Contributed/VBA_JSON/index.md
@@ -28,3 +28,7 @@ The **VBA_JSON** contributed package provides JSON parsing and serialization for
   - [ParseIso](JsonConverter/ParseIso) -- parses an ISO 8601 date/time string and returns the equivalent local Date value
   - [ParseJson](JsonConverter/ParseJson) -- parses a JSON string and returns a Dictionary or Collection object
   - [ParseUtc](JsonConverter/ParseUtc) -- converts a UTC date to the equivalent local date using the system time zone
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [VBA_JSON-tests.twinproj](VBA_JSON-tests.twinproj), a twinBASIC project. It uses VBA_JSON as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/VBComDlg/CommonDialog.md b/docs/Reference/Contributed/VBComDlg/CommonDialog.md
index 6510c153..fb270ee5 100644
--- a/docs/Reference/Contributed/VBComDlg/CommonDialog.md
+++ b/docs/Reference/Contributed/VBComDlg/CommonDialog.md
@@ -23,10 +23,15 @@ If dlg.ShowOpen() Then
 End If
 ```
 
+<!-- test: PropertyTests.CancelError_True_ClosedDialogRaisesCdlCancel, PropertyTests.CancelError_False_ClosedDialogRaisesNothing -->
 Setting [**CancelError**](#cancelerror) to **True** causes the class to raise run-time error `CdlCancel` (32755) when the user closes a dialog with **Cancel** rather than **OK**. An error handler for this error distinguishes cancellation from a successful selection.
+<!-- /test -->
 
+<!-- test: PropertyTests.MaxFileSize_Zero_Raises380, PropertyTests.FilterIndex_Negative_Raises380, PropertyTests.MinMaxFromPageToPage_Negative_Raises380, PropertyTests.Copies_Zero_Raises380, PropertyTests.Margins_Negative_Raises380, PropertyTests.PrinterEnumerations_OutOfSet_Raise380, PropertyTests.HelpCommand_NotAConstant_Raises380, PropertyTests.FontWeight_OtherValue_Raises380, PropertyTests.RootFolder_Types -->
 Assigning a value outside the documented range or set of constants to a property raises run-time error 380 (*Invalid property value*). A failure that the sections below do not list raises an error whose number is the code the Windows common-dialog library reports and whose description is "Unexpected error."
+<!-- /test -->
 
+<!-- test: FindReplaceTests.InitDialog_FindWithoutHook_NotRaised, FindReplaceTests.InitDialog_FindWithHook_Raised, FindReplaceTests.InitDialog_ReplaceWithHook_Raised, FindReplaceTests.FindNext_WithoutHook_Raised, FindReplaceTests.Replace_WithoutHook_Raised, FindReplaceTests.Help_FindWithoutHook_Raised -->
 > [!NOTE] timeless
 > Events such as [**InitDialog**](#initdialog), [**FileValidate**](#filevalidate), and [**ColorValidate**](#colorvalidate) require setting [**HookEvents**](#hookevents) to **True** before calling the `Show*` method. Without the hook, these events are not raised. The Folder Browser dialog always raises its events, and the Help, Find and Replace events do not use the hook.
 
@@ -44,6 +49,7 @@ When the thread has no active window --- in a program that has no form, for exam
 ### Action
 {: .no_toc }
 
+<!-- test: PropertyTests.Action_Read_Raises394, PropertyTests.Action_OutOfRange_Raises380, PropertyTests.Action_Nine_OpensFindDialog -->
 Invokes a dialog by numeric code. Write-only; reading raises run-time error 394. **Default property.**
 
 Syntax: *object*.**Action** = *value*
@@ -52,6 +58,7 @@ Syntax: *object*.**Action** = *value*
 : An **Integer** in the range 1--10 selecting the dialog to show: 1 = [**ShowOpen**](#showopen), 2 = [**ShowSave**](#showsave), 3 = [**ShowColor**](#showcolor), 4 = [**ShowFont**](#showfont), 5 = [**ShowPrinter**](#showprinter), 6 = [**ShowHelp**](#showhelp), 7 = [**ShowPageSetup**](#showpagesetup), 8 = [**ShowFolderBrowser**](#showfolderbrowser), 9 = [**ShowFind**](#showfind), 10 = [**ShowReplace**](#showreplace).
 
 Assigning a value outside this range raises run-time error 380 (*Invalid property value*). Values 1--10 are equivalent to calling the named `Show*` methods directly.
+<!-- /test -->
 
 ### CancelError
 {: .no_toc }
@@ -85,7 +92,9 @@ Setting this property before calling [**ShowPrinter**](#showprinter) or [**ShowP
 ### Copies
 {: .no_toc }
 
+<!-- test: PropertyTests.Defaults_Print -->
 The number of copies to print. An **Integer**, minimum 1. Default 1.
+<!-- /test -->
 
 Syntax: *object*.**Copies** [ = *value* ]
 
@@ -96,12 +105,14 @@ The 16 custom colors shown in the lower half of the Color dialog.
 
 Syntax: *object*.**CustomColors** [ = *value* ]
 
+<!-- test: CustomColorsTests.Get_DefaultIsSixteenLongsFromZero, CustomColorsTests.Let_ShortArrayLeavesTheRest, CustomColorsTests.Let_FirstElementIsFirstColourWhateverTheLowerBound, CustomColorsTests.Let_MoreThanSixteenElementsAreIgnored, CustomColorsTests.Let_StringHoldingANumberIsAccepted, CustomColorsTests.Let_OleColourIsTranslated, CustomColorsTests.Let_ElementNotAColour_RaisesTypeMismatchAndKeepsEarlierElements, CustomColorsTests.Let_NullElement_RaisesInvalidUseOfNull, CustomColorsTests.Let_MultiDimensionalArray_Raises5, CustomColorsTests.Let_UnallocatedArray_Raises91, CustomColorsTests.Let_Empty_RestoresDefaults, CustomColorsTests.Let_NotAnArray_Raises380 -->
 *value*
 : A single-dimensioned array of up to 16 values. Each element is converted to a **Long** and then to RGB, so it is an RGB value or an OLE color, and a **String** that holds a number is accepted. The first element of the array is the first custom color, whatever the array's lower bound. The class reads the first 16 elements and ignores the rest; with fewer than 16 elements, the remaining colors are unchanged. An element that cannot be converted raises run-time error 13 (*Type mismatch*), or run-time error 94 (*Invalid use of Null*) for a **Null** element, and the elements before it have already been stored. Assigning a multi-dimensional array raises run-time error 5; assigning an unallocated array raises run-time error 91. Assigning `Empty` restores the 16 default colors; any other value that is not an array raises run-time error 380.
 
 The getter returns a **Variant** array of 16 **Long** values (index 0 to 15).
 
 Default: a gradient from white (`&HFFFFFF`) through progressively darker greys to near-black. The Color dialog reads and writes its custom colors in this array.
+<!-- /test -->
 
 ### DefaultExt
 {: .no_toc }
@@ -137,14 +148,18 @@ Syntax: *object*.**FileName** [ = *value* ]
 ### FileOffset
 {: .no_toc }
 
+<!-- test: PropertyTests.FileOffset_Write_Raises383 -->
 The zero-based character offset from the beginning of [**FileName**](#filename) to the start of the file name part (that is, the character immediately after the last backslash). Read-only; writing raises run-time error 383.
+<!-- /test -->
 
 Syntax: *object*.**FileOffset**
 
 ### FileTitle
 {: .no_toc }
 
+<!-- test: PropertyTests.FileTitle_Write_Raises383 -->
 The file name without the directory path, as returned by the File Open or File Save dialog. Read-only; writing raises run-time error 383.
+<!-- /test -->
 
 Syntax: *object*.**FileTitle**
 
@@ -192,11 +207,13 @@ After the File Open, File Save, Color, Font, Print, Print (extended) and Page Se
 ### FontBold
 {: .no_toc }
 
+<!-- test: PropertyTests.FontBold_True_SetsWeight700, PropertyTests.FontBold_Get_IsWeight600OrHigher -->
 Whether the font selected in the Font dialog is bold. **Boolean**. Mapped from [**FontWeight**](#fontweight): **True** when **FontWeight** is 600 or higher.
 
 Syntax: *object*.**FontBold** [ = *value* ]
 
 Setting **FontBold** to **True** sets **FontWeight** to 700 (FW_BOLD); **False** sets it to 400 (FW_NORMAL).
+<!-- /test -->
 
 ### FontCharset
 {: .no_toc }
@@ -243,12 +260,14 @@ Syntax: *object*.**FontUnderline** [ = *value* ]
 ### FontWeight
 {: .no_toc }
 
+<!-- test: PropertyTests.Defaults_Font, PropertyTests.FontWeight_StandardValues_Accepted, PropertyTests.FontWeight_OtherValue_Raises380 -->
 The numeric weight of the selected font, corresponding to the Win32 LOGFONT `lfWeight` field. **Integer**, default 400 (FW_NORMAL).
 
 Syntax: *object*.**FontWeight** [ = *value* ]
 
 *value*
 : One of the standard Win32 weight constants: 0, 100, 200, 300, 400, 500, 600, 700, 800, or 900. Any other value raises run-time error 380.
+<!-- /test -->
 
 ### FromPage
 {: .no_toc }
@@ -260,7 +279,9 @@ Syntax: *object*.**FromPage** [ = *value* ]
 ### hDC
 {: .no_toc }
 
+<!-- test: PropertyTests.HDC_Write_Raises383 -->
 A handle to a device context or information context, as returned by the Print or extended Print dialog when **CdlPDReturnDC** or **CdlPDReturnIC** is set in [**Flags**](#flags). A **LongPtr** (the same size as a **Long** in 32-bit builds). Read-only; writing raises run-time error 383.
+<!-- /test -->
 
 Syntax: *object*.**hDC**
 
@@ -269,7 +290,9 @@ The handle is freed when the **CommonDialog** object is destroyed, or when a lat
 ### HelpCommand
 {: .no_toc }
 
+<!-- test: PropertyTests.HelpCommand_NotAConstant_Raises380, PropertyTests.ShowHelp_CommandZero_DoesNothing -->
 The type of help to invoke when [**ShowHelp**](#showhelp) is called. A member of **CdlHelpConstants**, or 0 (the default), for which **ShowHelp** does nothing. Any other value raises run-time error 380.
+<!-- /test -->
 
 Syntax: *object*.**HelpCommand** [ = *value* ]
 
@@ -319,8 +342,10 @@ Syntax: *object*.**HookEvents** [ = *value* ]
 *value*
 : **Boolean**. When **True**, the dialog's hook procedure is installed, enabling the [**InitDialog**](#initdialog), [**FileValidate**](#filevalidate), [**FileShareViolation**](#fileshareviolation), [**ColorValidate**](#colorvalidate), and [**FontApply**](#fontapply) events. Default **False**. The Folder Browser dialog raises [**InitDialog**](#initdialog) and [**FolderBrowserValidateFailed**](#folderbrowservalidatefailed) whatever the value.
 
+<!-- test: FindReplaceTests.InitDialog_HookEventsSetAfterShow_NotRaised -->
 > [!IMPORTANT] timeless
 > **HookEvents** must be set to **True** before calling the corresponding `Show*` method. Setting it after the call has no effect on the current invocation.
+<!-- /test -->
 
 ### InitDir
 {: .no_toc }
@@ -339,7 +364,9 @@ Syntax: *object*.**Max** [ = *value* ]
 ### MaxFileSize
 {: .no_toc }
 
+<!-- test: PropertyTests.Defaults_Files -->
 The maximum number of characters in the file name buffer used by the File Open and File Save dialogs. **Long**, minimum 1. Default 260 (MAX_PATH).
+<!-- /test -->
 
 Syntax: *object*.**MaxFileSize** [ = *value* ]
 
@@ -353,7 +380,9 @@ Syntax: *object*.**Min** [ = *value* ]
 ### Object
 {: .no_toc }
 
+<!-- test: PropertyTests.Object_ReturnsTheInstance -->
 Returns the **CommonDialog** instance itself as an **Object**. Read-only.
+<!-- /test -->
 
 Syntax: *object*.**Object**
 
@@ -432,7 +461,9 @@ Syntax: *object*.**PaperBin** [ = *value* ]
 ### PaperSize
 {: .no_toc }
 
+<!-- test: PropertyTests.Defaults_PaperSizeFollowsTheMeasurementSystem -->
 The paper size. A member of **CdlPRPSConstants** (e.g. **CdlPRPSLetter**, **CdlPRPSA4**). Default is **CdlPRPSA4** on metric systems and **CdlPRPSLetter** on US systems.
+<!-- /test -->
 
 Syntax: *object*.**PaperSize** [ = *value* ]
 
@@ -474,7 +505,9 @@ Syntax: *object*.**PrinterPort** [ = *value* ]
 ### PrintQuality
 {: .no_toc }
 
+<!-- test: PropertyTests.PrintQuality_DotsPerInch_Accepted -->
 The printer resolution. A member of **CdlPRPQConstants** (**CdlPRPQHigh**, **CdlPRPQMedium**, **CdlPRPQLow**, **CdlPRPQDraft**) or an integer from 0 to 32767 giving a resolution in dots per inch. Default **CdlPRPQHigh**.
+<!-- /test -->
 
 Syntax: *object*.**PrintQuality** [ = *value* ]
 
@@ -492,8 +525,10 @@ The root of the folder tree shown in the Folder Browser dialog. **Variant**.
 
 Syntax: *object*.**RootFolder** [ = *value* ]
 
+<!-- test: PropertyTests.RootFolder_Types -->
 *value*
 : **Empty** (default) to use the Desktop as the root; an integer CSIDL constant (e.g. `CSIDL_DRIVES = &H11`) to start from a shell folder; or a **String** absolute path to start from a specific directory. Floating-point values are converted to **Long** before use as CSIDL constants. Other types raise run-time error 380.
+<!-- /test -->
 
 ### Tag
 {: .no_toc }
@@ -527,7 +562,9 @@ Opens a modeless Find dialog and returns the dialog's window handle. Returns 0 i
 
 Syntax: *object*.**ShowFind** ( ) **As LongPtr**
 
+<!-- test: FindReplaceTests.FindNext_FlagsUpdatedBeforeEvent, FindReplaceTests.ShowFind_WhileOpen_ReturnsZero, FindReplaceTests.ShowReplace_WhileFindOpen_ReturnsZero, FindReplaceTests.ShowFind_AfterClose_OpensAgain -->
 The dialog is non-modal: it remains open while the user interacts with the application. When the user clicks **Find Next**, [**FindWhat**](#findwhat) and [**Flags**](#flags) are updated and the [**FindNext**](#findnext) event fires. When the dialog closes, the internal handle is released automatically. Call this method again to reopen the dialog. The method returns 0 while a Find or Replace dialog opened by the same **CommonDialog** object is still open. The dialog needs an owner window: when the thread has no active window, the owner is a hidden window that the class creates for the dialog and destroys when the dialog closes.
+<!-- /test -->
 
 If the dialog cannot be created, the method raises **CdlBufferLengthZero** (36848) when the *Find what* buffer is invalid.
 
@@ -538,9 +575,15 @@ Displays the Font dialog and returns **True** if the user clicked **OK**.
 
 Syntax: *object*.**ShowFont** ( ) **As Boolean**
 
-The dialog is pre-loaded with the current font properties. [**Flags**](#flags) must contain **CdlCFScreenFonts**, **CdlCFPrinterFonts**, or both; with neither, the Windows dialog finds no fonts and the method raises **CdlNoFonts**. On **OK**, [**FontName**](#fontname), [**FontWeight**](#fontweight) (and with it [**FontBold**](#fontbold)), [**FontItalic**](#fontitalic), [**FontSize**](#fontsize) and [**FontCharset**](#fontcharset) are updated, except that the name is left unchanged when the flags the dialog returns include **CdlCFNoFaceSel**, the weight and italic style when they include **CdlCFNoStyleSel**, the size when they include **CdlCFNoSizeSel**, and the character set when they include **CdlCFNoScriptSel**. [**FontStrikethru**](#fontstrikethru), [**FontUnderline**](#fontunderline) and [**Color**](#color) are updated only when **CdlCFEffects** is set.
+<!-- test: PropertyTests.ShowFont_NoFontFlags_ShowsTheDialog -->
+The dialog is pre-loaded with the current font properties. The Windows documentation asks for **CdlCFScreenFonts**, **CdlCFPrinterFonts**, or both in [**Flags**](#flags); the dialog opens with neither.
+<!-- /test -->
 
-Errors: **CdlMaxLessThanMin** (24573) when [**Max**](#max) < [**Min**](#min); **CdlNoFonts** (24574) when no fonts are available for the specified flags.
+On **OK**, [**FontName**](#fontname), [**FontWeight**](#fontweight) (and with it [**FontBold**](#fontbold)), [**FontItalic**](#fontitalic), [**FontSize**](#fontsize) and [**FontCharset**](#fontcharset) are updated, except that the name is left unchanged when the flags the dialog returns include **CdlCFNoFaceSel**, the weight and italic style when they include **CdlCFNoStyleSel**, the size when they include **CdlCFNoSizeSel**, and the character set when they include **CdlCFNoScriptSel**. [**FontStrikethru**](#fontstrikethru), [**FontUnderline**](#fontunderline) and [**Color**](#color) are updated only when **CdlCFEffects** is set.
+
+<!-- test: PropertyTests.ShowFont_MaxLessThanMin_RaisesMaxLessThanMin, PropertyTests.ShowFont_MaxLessThanMinWithoutLimitSize_RaisesNothing -->
+Errors: **CdlMaxLessThanMin** (24573) when [**Max**](#max) < [**Min**](#min) and **CdlCFLimitSize** is set in **Flags**; **CdlNoFonts** (24574) when the dialog finds no fonts to list.
+<!-- /test -->
 
 ### ShowFolderBrowser
 {: .no_toc }
@@ -562,6 +605,7 @@ Syntax: *object*.**ShowHelp**
 
 If [**HelpCommand**](#helpcommand) is 0, the method returns immediately without doing anything. On failure, error `CdlHelp` (32751) is raised.
 
+<!-- test: none -- WinHelp is a Windows component: whether the viewer is installed is a fact of the system, and calling WinHelpW would open a box that stops the test -->
 > [!NOTE] timeless
 > WinHelp (`.hlp`) is a deprecated help format. This method calls the `WinHelpW` API, which fails on a system that has no WinHelp viewer.
 
@@ -610,7 +654,9 @@ Opens a modeless Replace dialog and returns the dialog's window handle. Returns
 
 Syntax: *object*.**ShowReplace** ( ) **As LongPtr**
 
+<!-- test: FindReplaceTests.Replace_WithoutHook_Raised -->
 Works identically to [**ShowFind**](#showfind), with the addition that the [**Replace**](#replace) event fires when the user clicks **Replace**, and the [**ReplaceAll**](#replaceall) event is declared for **Replace All** (but see the note under that event). The dialog starts with the current [**ReplaceWith**](#replacewith) text, and **ReplaceWith** is updated before each event. If the dialog cannot be created, the method raises **CdlBufferLengthZero** (36848) when the *Find what* or *Replace with* buffer is invalid.
+<!-- /test -->
 
 ### ShowSave
 {: .no_toc }
@@ -756,8 +802,9 @@ Declared for the **Replace All** button of the Replace dialog.
 
 Syntax: *object*\_**ReplaceAll**( )
 
+<!-- test: FindReplaceTests.ReplaceAll_ButtonRaisesEvent, FindReplaceTests.ReplaceAll_MessageRaisesEvent, FindReplaceTests.ReplaceAll_MessageForReplaceRaisesReplace, FindReplaceTests.ReplaceAll_ButtonRaisesNoOtherEvent -->
 > [!NOTE] 1.0.13.0
-> Of the package the class never raises this event. Its test for the **Replace All** button compares the masked flags with **CdlFRFindNext** instead of **CdlFRReplaceAll**, so the comparison is never true. Clicking **Replace All** raises none of the events.
+> The class never raises this event. Its test for the **Replace All** button compares the masked flags with **CdlFRFindNext** instead of **CdlFRReplaceAll**, so the comparison is never true. Clicking **Replace All** raises none of the events.
 
 ## Example
 
diff --git a/docs/Reference/Contributed/VBComDlg/index.md b/docs/Reference/Contributed/VBComDlg/index.md
index db559918..371a1b6e 100644
--- a/docs/Reference/Contributed/VBComDlg/index.md
+++ b/docs/Reference/Contributed/VBComDlg/index.md
@@ -18,3 +18,7 @@ The **VBComDlg** contributed package provides the **CommonDialog** class, which
 ## Classes
 
 - [CommonDialog](CommonDialog) -- provides access to the Windows common dialogs: File Open, File Save, Color, Font, Print, Page Setup, Folder Browser, Find, and Replace.
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [VBComDlg-tests.twinproj](VBComDlg-tests.twinproj), a twinBASIC project. It uses VBComDlg as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/tbProjPacker/ProjPacker/Pack.md b/docs/Reference/Contributed/tbProjPacker/ProjPacker/Pack.md
index c0f5b278..801f32bd 100644
--- a/docs/Reference/Contributed/tbProjPacker/ProjPacker/Pack.md
+++ b/docs/Reference/Contributed/tbProjPacker/ProjPacker/Pack.md
@@ -27,10 +27,13 @@ Syntax: *object*.**Pack** ( *inputDir*, *outputFile* [, *overwrite* [, *logFile*
 *logFile*
 : *optional* A **String**, the path of a [log file](.#the-log-file) for the lines the call prints. The default is an empty string, which writes no log.
 
+<!-- test: PackTests.Pack_AddsNoExtensionAndChecksNone, PackTests.Pack_FileThatExists_IsNotReplacedWithoutOverwrite, PackTests.Pack_Overwrite_ReplacesTheFile, ProjPackerTests.Methods_RaiseNoError_WhenTheyFail -->
 Returns **True** when *outputFile* was written, and **False** when it was not. The method raises no error; [Results and errors](.#results-and-errors) describes how the reason is reported.
+<!-- /test -->
 
 ## What is packed
 
+<!-- test: PackTests.Pack_RootIsNamedAfterTheLastFolderOfInputDir, PackTests.Pack_StoresHiddenFilesEmptyFoldersAndAGitFolder, PackTests.Pack_ExpectedFoldersThatAreMissing_AreNotAddedButNamed, PackTests.Pack_ThenUnpack_GivesBackEveryFileOfTheSample, PackTests.Pack_DoesNotChangeTheFolder -->
 The root of the project file is named after the last folder of *inputDir*. Everything in *inputDir* is stored, in all its subfolders: hidden files, empty folders and a `.git` folder included. Keep the project's files in a folder of their own. The top folder of a Git repository would put the repository's own data into the project file.
 
 Every file is stored as it is on disk, except the code files that [Line endings](#line-endings) describes.
@@ -41,9 +44,11 @@ Every project that the IDE exports has the folders `Resources`, `Sources`, `Impo
   note: expected folders not present on disk: Resources, Sources, ImportedTypeLibraries, Miscellaneous, Packages.
   twinBASIC should rebuild them on Open Project.
 ```
+<!-- /test -->
 
 ## Line endings
 
+<!-- test: LineEndingTests.CodeFilesUnderSources_GetCrLf, LineEndingTests.CodeFilesInAFolderNamedSourcesAtAnyDepth_GetCrLf, LineEndingTests.CodeFilesInAFolderNamedSourcesInLowerCase_AreNotConverted, LineEndingTests.TextFilesUnderSources_AreNotConverted, LineEndingTests.CodeFilesOutsideSources_AreNotConverted, LineEndingTests.InputDirNamedSources_IsNotTestedForItsName, LineEndingTests.FileThatAlreadyHasCrLf_IsUnchanged, LineEndingTests.FilesOnDisk_AreNeverChanged -->
 The IDE stores `.twin`, `.bas` and `.cls` files with CR LF line endings. A checkout that Git or an editor has changed to LF would otherwise be packed with LF, so **Pack** converts these files to CR LF while it packs them. A file is converted when both of these hold:
 
 - Its extension is `.twin`, `.bas` or `.cls`, in any letter case.
@@ -52,10 +57,13 @@ The IDE stores `.twin`, `.bas` and `.cls` files with CR LF line endings. A check
 Every other file is stored as it is on disk, a text file in `Sources` and a code file outside it included. The folder *inputDir* itself is not tested for its name.
 
 The conversion removes every CR and then turns every LF into CR LF. A file that already has CR LF line endings comes out unchanged. The files on disk are never changed; only the copy in the project file is.
+<!-- /test -->
 
+<!-- test: LineEndingTests.CrNotFollowedByLf_IsRemovedAndNoLineBreakReplacesIt -->
 > [!NOTE] 1.1.0.0
 > A CR that is not followed by LF is removed, and no line break replaces it. A code file whose lines end in a CR alone, as old Macintosh text files do, is packed as one line. The Import/export tool leaves such a CR in place.
 
+<!-- test: LineEndingTests.Pack_PrintsHowManyFilesWereConverted_AfterTheMissingFoldersNote, LineEndingTests.Pack_PrintsNoCount_WhenNoFileWasConverted -->
 After the summary line, **Pack** prints the number of files that the conversion changed. A file that already had CR LF line endings is not counted, and when no file changed, the line is not printed:
 
 ```
@@ -63,9 +71,11 @@ After the summary line, **Pack** prints the number of files that the conversion
 ```
 
 The line follows the note about missing folders, when there is one.
+<!-- /test -->
 
 ## Refusals
 
+<!-- test: PackTests.Pack_InputDirThatIsNotAFolder_IsRefused, PackTests.Pack_FileThatExists_IsNotReplacedWithoutOverwrite, PackTests.Pack_FolderThatExistsAtOutputFile_IsNotReplacedWithoutOverwrite, PackTests.Pack_OutputFileThatExists_IsCheckedBeforeTheFolderIsRead, PackTests.Pack_FolderWithoutASettingsFile_IsRefused, PackTests.Pack_SettingsThatIsAFolder_IsRefused, PackTests.Pack_SettingsSpelledInLowerCase_IsRefused, PackTests.Pack_SettingsInASubfolder_IsRefused -->
 **Pack** returns **False** and writes nothing in these cases:
 
 - *inputDir* is not a folder. The line is `Pack failed: Not a directory: ` and the path.
@@ -73,13 +83,17 @@ The line follows the note about missing folders, when there is one.
 - *inputDir* has no `Settings` file directly in it. The file holds the project's name, references, version and compile options, and a project file packed without it would open without them. A folder named `Settings` does not count, and the file name must be spelled exactly `Settings`. The line begins `Pack failed: Refusing to pack: no 'Settings' file at the top level of`.
 
 The line for the second case reads `Output already exists: ` and the path, then `Refusing to overwrite it. Use the overwrite option (CLI: --force) to replace it.` **Pack** has no `--force`: the option the message means is the *overwrite* argument.
+<!-- /test -->
 
 ## Replacing a project file
 
+<!-- test: PackTests.Pack_Overwrite_ReplacesTheFile, PackTests.Pack_Overwrite_DeletesTheOldFileAfterReadingTheFolder_SoAFileInsideIsPackedAgain -->
 With *overwrite* **True**, **Pack** deletes the existing file just before it writes the new one, after the folder has been read. Do not put *outputFile* inside *inputDir*. A project file left there by an earlier call is packed into the new one, and the file grows with each call.
+<!-- /test -->
 
 ## Output
 
+<!-- test: PackTests.Pack_SummaryLine_NamesTheRootTheBytesTheFilesAndTheFolders -->
 On success **Pack** prints one summary line:
 
 ```
@@ -87,7 +101,9 @@ Exported "MyApp-src" -> C:\Temp\MyApp.twinproj  (170594 bytes, 18 files, 6 direc
 ```
 
 The name is the root's name, the last folder of *inputDir*. The byte count is the size of the new file, and the file and folder counts do not include the root.
+<!-- /test -->
 
+<!-- test: PackTests.Pack_SummaryLine_BeginsWithExported -->
 > [!NOTE] 1.1.0.0
 > The summary line of **Pack** begins `Exported`, and that of [**Unpack**](Unpack) begins `Imported`. The Import/export tool names the two directions the other way round: its `import` command packs a folder and its `export` command unpacks a project.
 
diff --git a/docs/Reference/Contributed/tbProjPacker/ProjPacker/Test.md b/docs/Reference/Contributed/tbProjPacker/ProjPacker/Test.md
index 663b9610..32709981 100644
--- a/docs/Reference/Contributed/tbProjPacker/ProjPacker/Test.md
+++ b/docs/Reference/Contributed/tbProjPacker/ProjPacker/Test.md
@@ -21,10 +21,13 @@ Syntax: *object*.**Test** ( *samplePath* [, *logFile* ] ) **As Boolean**
 *logFile*
 : *optional* A **String**, the path of a [log file](.#the-log-file) for the lines the call prints. The default is an empty string, which writes no log.
 
+<!-- test: TestMethodTests.Test_WithTheSampleProject_PassesAll24Tests, TestMethodTests.Test_WithASampleThatDoesNotExist_FailsAndRunsNoTest, TestMethodTests.Test_WithASampleThatIsNotAProject_FailsTheFourSampleTests, TestMethodTests.Test_NeverChangesTheSampleFile, ProjPackerTests.Methods_RaiseNoError_WhenTheyFail -->
 Returns **True** when no test failed, and **False** when a test failed or *samplePath* names a file that does not exist. A skipped test is not a failure. The method raises no error; [Results and errors](.#results-and-errors) describes how the reason is reported. The sample file is never changed.
+<!-- /test -->
 
 ## What the tests check
 
+<!-- test: TestMethodTests.Test_WithTheSampleProject_PassesAll24Tests, TestMethodTests.Test_WithoutASample_RunsTwentyTestsAndSkipsFour, TestMethodTests.Test_DeletesItsWorkFolder, TestMethodTests.Test_PrintsAHeadingAndAnInfoLineForTheSample -->
 There are 24 tests. Each runs on its own, so a failure in one does not stop the others. The tests work in a new folder, named `impexp-test-` and a number, in the folder that the `TEMP` environment variable names. The folder is deleted when the tests end.
 
 Four tests need the sample file:
@@ -41,9 +44,11 @@ Twenty tests need no sample:
 - **Pack (5).** [**Pack**](Pack) refuses a folder with no `Settings` file and accepts one with it. It refuses to replace an existing file, and replaces it when *overwrite* is **True**. It converts the [line endings](Pack#line-endings) of the code files under `Sources`, and leaves a text file there and a code file elsewhere as they are.
 - **Unpack with *cleanFirst* (6).** [**Unpack**](Unpack) removes leftover files, counts the levels of a path correctly, refuses a folder that has no `Settings` file and a folder whose `Settings` is a folder, and accepts a project folder and an empty folder.
 - **Other refusals (2).** **Pack** refuses a folder whose `Settings` is a folder. **Unpack** reports a project file that does not exist.
+<!-- /test -->
 
 ## Output
 
+<!-- test: TestMethodTests.Test_PrintsAHeadingAndAnInfoLineForTheSample, TestMethodTests.Test_WithTheSampleProject_PassesAll24Tests, TestMethodTests.Test_WithoutASample_RunsTwentyTestsAndSkipsFour, TestMethodTests.Test_WithASampleThatDoesNotExist_FailsAndRunsNoTest, TestMethodTests.Test_WithASampleThatIsNotAProject_FailsTheFourSampleTests -->
 **Test** prints a heading, a line for each test and a summary. A test line is `[PASS]`, `[FAIL]` or `[SKIP]` and the test's name. A failed test is followed by a line with the reason. The first test also prints an `[INFO]` line with the project's name, its number of files and folders, and its size. The summary counts the passed tests against the passed and failed ones; skipped tests are not counted.
 
 This is the output with a sample file, with the paths shortened:
@@ -67,7 +72,9 @@ Without a sample, the four sample tests print `[SKIP]` and the summary ends with
 ```
 
 A *samplePath* that does not exist prints `Sample not found: ` and the path. No test runs.
+<!-- /test -->
 
+<!-- test: TestMethodTests.Test_WithoutASample_RunsTwentyTestsAndSkipsFour -->
 > [!NOTE] 1.1.0.0
 > An empty *samplePath* does not make the method fail. With 20 of the 20 tests that run passed and 4 skipped, it returns **True**. Pass a project file to run all 24.
 
diff --git a/docs/Reference/Contributed/tbProjPacker/ProjPacker/Unpack.md b/docs/Reference/Contributed/tbProjPacker/ProjPacker/Unpack.md
index 6a0cb8e1..fe8a9059 100644
--- a/docs/Reference/Contributed/tbProjPacker/ProjPacker/Unpack.md
+++ b/docs/Reference/Contributed/tbProjPacker/ProjPacker/Unpack.md
@@ -27,18 +27,23 @@ Syntax: *object*.**Unpack** ( *inputFile*, *outputDir* [, *cleanFirst* [, *logFi
 *logFile*
 : *optional* A **String**, the path of a [log file](.#the-log-file) for the lines the call prints. The default is an empty string, which writes no log.
 
+<!-- test: UnpackTests.Unpack_NeverChangesTheProjectFile, UnpackTests.Unpack_ExtensionOfInputFile_IsNotChecked, UnpackTests.Unpack_CreatesOutputDirWithItsMissingParents, UnpackTests.Unpack_EmptyOutputDir_CreatesAFolderNamedAfterTheProjectInTheCurrentDirectory, ProjPackerTests.Methods_RaiseNoError_WhenTheyFail -->
 Returns **True** when every file was written, and **False** when it was not. The method raises no error; [Results and errors](.#results-and-errors) describes how the reason is reported. The project file is never changed.
+<!-- /test -->
 
 ## What is written
 
+<!-- test: UnpackTests.Unpack_FileOfTheImportExportTool_WritesEveryFile, UnpackTests.Unpack_PutsTheTopLevelEntriesDirectlyIntoOutputDir, UnpackTests.Unpack_ReplacesFilesOfTheSameNameAndKeepsTheOthers, UnpackTests.Unpack_FileThatIsNotAProject_ChangesNothingInOutputDir, CleanFirstTests.Unpack_WithoutCleanFirst_DeletesNothing -->
 The files and folders of the project go directly into *outputDir*: its contents are the project's top-level entries, such as `Settings`, `Sources` and `Resources`. The project's name does not become a folder. It appears only in the summary line.
 
 With *cleanFirst* **False**, a file already in *outputDir* is replaced by the file of the same name from the project, without asking. Files and folders that the project does not hold stay where they are. A later [**Pack**](Pack) of the folder packs them too. To get exactly the project's files, unpack into an empty folder or use *cleanFirst*.
 
 The project file is read and checked before anything is deleted or written. If the file is missing, is a folder, or is not a project file, nothing in *outputDir* changes. A failure while the files are being written, a full disk for example, leaves the files written so far.
+<!-- /test -->
 
 ## Emptying the folder first
 
+<!-- test: CleanFirstTests.CleanFirst_FolderThatDoesNotExist_Proceeds, CleanFirstTests.CleanFirst_EmptyFolder_Proceeds, CleanFirstTests.CleanFirst_EmptyFolderDirectlyUnderADriveRoot_Proceeds, CleanFirstTests.CleanFirst_DriveRoot_IsRefused, CleanFirstTests.CleanFirst_FolderDirectlyUnderADriveRoot_IsRefusedEvenWithASettingsFile, CleanFirstTests.CleanFirst_FolderTwoLevelsBelowADriveRoot_IsEmptied, CleanFirstTests.CleanFirst_ShallowCheckComesBeforeTheSettingsCheck, CleanFirstTests.CleanFirst_FolderWithFilesAndNoSettings_IsRefused, CleanFirstTests.CleanFirst_FolderWhoseSettingsIsAFolder_IsRefused -->
 *cleanFirst* deletes files and folders, so **Unpack** makes four checks on *outputDir*, in this order, and deletes nothing unless it passes them:
 
 1. *outputDir* does not exist, or is not a folder. There is nothing to empty, and the unpack goes on.
@@ -47,12 +52,15 @@ The project file is read and checked before anything is deleted or written. If t
 4. *outputDir* is not empty and has no file named `Settings` directly in it. The call is refused, because the folder does not look like an unpacked project. A folder named `Settings` does not count.
 
 A refusal returns **False** and leaves the folder as it was.
+<!-- /test -->
 
+<!-- test: CleanFirstTests.CleanFirst_FolderThatLooksLikeAProject_IsEmptiedOfEverything -->
 > [!WARNING] 1.1.0.0
 > A folder that passes the checks is deleted with everything in it, including files that are not part of any project. Point *cleanFirst* only at a folder that holds nothing but an earlier unpack.
 
 ## Output
 
+<!-- test: UnpackTests.Unpack_SummaryLine_NamesTheProjectTheFolderAndTheCounts -->
 On success **Unpack** prints one summary line:
 
 ```
@@ -60,7 +68,9 @@ Imported "MyApp" -> C:\Temp\MyApp-src\  (18 files, 6 directories)
 ```
 
 The name is the project's name as stored in the file. The counts do not include *outputDir*.
+<!-- /test -->
 
+<!-- test: UnpackTests.Unpack_FileThatDoesNotExist_Fails, UnpackTests.Unpack_InputThatIsAFolder_Fails, UnpackTests.Unpack_FileThatIsNotAProject_FailsWithBadMagic, UnpackTests.Unpack_FileOfAnotherFormatVersion_FailsWithUnsupportedVersion, UnpackTests.Unpack_FileThatEndsTooSoon_FailsAsTruncated, UnpackTests.Unpack_OutputDirThatCannotBeCreated_Fails, CleanFirstTests.CleanFirst_DriveRoot_IsRefused, CleanFirstTests.CleanFirst_FolderWithFilesAndNoSettings_IsRefused -->
 When the call fails, it prints `Unpack failed: ` and one of these reasons:
 
 | Reason | Cause |
@@ -73,7 +83,9 @@ When the call fails, it prints `Unpack failed: ` and one of these reasons:
 | `Refusing to clean a shallow path: ` and the path | *cleanFirst* is **True** and *outputDir* fails the third check. |
 | `Refusing to clean ` and the path in quotes, then `it is not empty and has no top-level 'Settings' file` | *cleanFirst* is **True** and *outputDir* fails the fourth check. |
 | `Cannot create directory: ` and the path | *outputDir* or a folder in it could not be created. |
+<!-- /test -->
 
+<!-- test: UnpackTests.Unpack_SummaryLine_BeginsWithImported -->
 > [!NOTE] 1.1.0.0
 > The summary line of **Unpack** begins `Imported`, and that of [**Pack**](Pack) begins `Exported`. The Import/export tool names the two directions the other way round: its `export` command unpacks a project and its `import` command packs a folder.
 
diff --git a/docs/Reference/Contributed/tbProjPacker/ProjPacker/index.md b/docs/Reference/Contributed/tbProjPacker/ProjPacker/index.md
index afead918..46b8e952 100644
--- a/docs/Reference/Contributed/tbProjPacker/ProjPacker/index.md
+++ b/docs/Reference/Contributed/tbProjPacker/ProjPacker/index.md
@@ -32,24 +32,30 @@ End If
 
 ## Results and errors
 
+<!-- test: ProjPackerTests.Methods_RaiseNoError_WhenTheyFail, ProjPackerTests.Log_ThatCannotBeCreated_MakesTheCallFailBeforeItDoesAnything -->
 Each method returns a **Boolean**: **True** when it did its work, **False** when it did not. No method raises a run-time error. A file that does not exist, a folder that cannot be written, a damaged project file, a log file that cannot be opened and each refusal described on the method pages all give **False**. A caller that only needs to know whether the call worked tests the return value. A caller that needs the reason reads the lines the call printed.
 
 **Pack** and **Unpack** print a summary line when they succeed. When they fail they print one line, `Pack failed: ` or `Unpack failed: ` and the reason. [**Test**](Test) prints a line for each test.
 
 The lines are printed with **Debug.Print** when the program runs in the IDE (when [**App.IsInIDE**](../../../AppGlobalClassObject/_App/IsInIDE) is **True**), so they appear in the [Debug Console](../../../../IDE/Project/DebugConsole). A compiled program prints nothing. Pass *logFile* when the program needs the lines outside the IDE.
+<!-- /test -->
 
 ## The log file
 
+<!-- test: ProjPackerTests.Log_IsCreatedWhenItDoesNotExist, ProjPackerTests.Log_IsEmptiedWhenItExists, ProjPackerTests.Log_HoldsTheLinesOfTheLastCallOnly, ProjPackerTests.Log_IsUtf8WithCrLfAndNoByteOrderMark, ProjPackerTests.Log_ThatCannotBeCreated_MakesTheCallFailBeforeItDoesAnything, ProjPackerTests.Log_LeftOut_WritesNoFile -->
 Every method has an optional *logFile* argument, the path of a text file for the lines the call prints. With the default, an empty string, no log is written.
 
 - The file is created, or emptied if it already exists, when the call starts. It is never added to, so a log holds the lines of the last call only.
 - The file is UTF-8 with CR LF line endings and no byte order mark, so a non-ASCII character, such as one in a folder name, is written correctly.
 - A log that cannot be created, for example because its folder does not exist, makes the call return **False** at once, before it does anything else. The reason, `Cannot open log file for writing`, is printed but cannot be logged.
 - The log holds the failure line too, so the reason for a **False** can be read from it afterwards.
+<!-- /test -->
 
 ## Paths
 
+<!-- test: ProjPackerTests.Paths_Relative_StartFromTheCurrentDirectory, ProjPackerTests.Paths_WithForwardSlashes_AreAccepted, ProjPackerTests.Paths_LongerThan260Characters_AreAccepted -->
 Every path argument can be absolute or relative, and can use `\` or `/` as the separator. A relative path starts from the current directory of the program, which is not necessarily the folder that holds the program. Paths longer than 260 characters are accepted.
+<!-- /test -->
 
 ## Methods
 
diff --git a/docs/Reference/Contributed/tbProjPacker/index.md b/docs/Reference/Contributed/tbProjPacker/index.md
index 7f7c7245..d54c5dcb 100644
--- a/docs/Reference/Contributed/tbProjPacker/index.md
+++ b/docs/Reference/Contributed/tbProjPacker/index.md
@@ -36,11 +36,13 @@ Else
 End If
 ```
 
+<!-- test: TestMethodTests.Test_WithTheSampleProject_PassesAll24Tests, UnpackTests.Unpack_FileOfTheImportExportTool_WritesEveryFile, PackTests.Pack_WritesTheFileTheImportExportToolWrites -->
 > [!NOTE] timeless
 > The package reads and writes the binary [file format](../../../../Features/Packages/File-Format) itself, as the Import/export tool's script does, and the format is an internal detail of the IDE that can change. [**Test**](ProjPacker/Test) with a project file as its argument parses that file, writes it again and compares the result, so it shows whether the package still understands the files of a given twinBASIC build.
 
 ## Output and errors
 
+<!-- test: ProjPackerTests.Methods_RaiseNoError_WhenTheyFail, PackTests.Pack_FileThatExists_IsNotReplacedWithoutOverwrite, PackTests.Pack_FolderWithoutASettingsFile_IsRefused, CleanFirstTests.CleanFirst_DriveRoot_IsRefused, CleanFirstTests.CleanFirst_FolderWithFilesAndNoSettings_IsRefused -->
 No method raises an error. Each returns **True** when it did its work and **False** when it did not, and prints what happened with [**Debug.Print**](../../../Modules/Debug). A log file can receive the same lines. [**ProjPacker**](ProjPacker/#results-and-errors) describes both.
 
 Some calls are refused, and return **False**, because they would lose data or produce a project that opens wrongly:
@@ -48,15 +50,18 @@ Some calls are refused, and return **False**, because they would lose data or pr
 - **Pack** does not replace an existing file unless *overwrite* is **True**.
 - **Pack** does not pack a folder that has no `Settings` file, because the packed file would open without its references, name and version.
 - **Unpack** with *cleanFirst* does not empty a folder that is a drive root or directly under one, or that is not empty and does not look like an unpacked project.
+<!-- /test -->
 
 ## Compared with the Import/export tool
 
+<!-- test: LineEndingTests.CodeFilesUnderSources_GetCrLf, LineEndingTests.CodeFilesOutsideSources_AreNotConverted, LineEndingTests.CrNotFollowedByLf_IsRemovedAndNoLineBreakReplacesIt, PackTests.Pack_StoresHiddenFilesEmptyFoldersAndAGitFolder, PackTests.Pack_ExpectedFoldersThatAreMissing_AreNotAddedButNamed, UnpackTests.Unpack_ReplacesFilesOfTheSameNameAndKeepsTheOthers -->
 The tool's script and the package read and write the same file format. They differ in what they do around it:
 
 - The tool's `import` converts LF line endings to CRLF in every `.twin`, `.bas` and `.cls` file. **Pack** converts them only in a folder named `Sources` and the folders below it, and stores every other file as it is. The tool leaves a CR that is not followed by LF in place, and **Pack** removes it. [**Pack**](ProjPacker/Pack#line-endings) describes the rule.
 - The script skips a `.git` folder. **Pack** packs it, with every other hidden file and empty folder.
 - The script adds the folders that the IDE always writes (`ImportedTypeLibraries`, `Miscellaneous`, `Packages`, `Resources` and `Sources`) when the folder lacks them. **Pack** adds none and prints a note naming the missing ones.
 - The tool's `export` refuses to replace files already in the folder unless `--overwrite` is given. **Unpack** replaces them without asking, and has *cleanFirst* to empty the folder first.
+<!-- /test -->
 
 ## Classes
 
@@ -70,3 +75,7 @@ The tool's script and the package read and write the same file format. They diff
 - [Import/export tool](../../../../Features/Packages/Import-Export-Tool) -- the command-line programs that do the same
 - [Keeping a project in Git](../../../../Features/Packages/Import-Export-Tool#keeping-a-project-in-git) -- why and how to keep the unpacked folder under version control
 - [TWINPACK file format](../../../../Features/Packages/File-Format) -- the container that both project file types use
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [tbProjPacker-tests.twinproj](tbProjPacker-tests.twinproj), a twinBASIC project. It uses tbProjPacker as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/tsJson/Json.md b/docs/Reference/Contributed/tsJson/Json.md
index 8e53a2f7..37dc0b0e 100644
--- a/docs/Reference/Contributed/tsJson/Json.md
+++ b/docs/Reference/Contributed/tsJson/Json.md
@@ -22,8 +22,11 @@ Debug.Print Json.Serialize(doc, JsonOptions.Minified)               ' {"name":"A
 
 The module has no state and no settings. Options for one call are a [**JsonOptions**](JsonOptions) object that is passed as the last argument. **Nothing**, the default, means the RFC 8259 defaults of [**JsonOptions.Rfc**](JsonOptions#rfc), except where a function below says otherwise.
 
+<!-- test: ErrorStateTests.Parse_Failure_ReturnsEmptyAndSetsTheError, ErrorStateTests.Parse_AfterAFailure_ClearsTheError, ErrorStateTests.TryParse_Failure_ReportsTheOriginOfParse, ErrorStateTests.PureFunctions_LeaveTheLastErrorAlone, ModelTests.Map_OddNumberOfArguments_IsInvalidArgument -->
 **Errors.** The functions of the module do not raise run-time errors for bad data or bad arguments. A function that fails returns an empty result (**Empty**, **Nothing**, an empty string, **False** or an unbound array) and sets the last error, which the predeclared object [**JsonError**](JsonError) reports. A function that can fail clears the last error when it starts, so the last error always belongs to the latest such call. The members that cannot fail neither clear nor set it: [**TypeOfValue**](#typeofvalue), [**IsObject**](#isobject), [**IsArray**](#isarray), [**Equals**](#equals), [**PointerEscape**](#pointerescape), [**PointerUnescape**](#pointerunescape), [**IsValidPattern**](#isvalidpattern), [**IsMatchPattern**](#ismatchpattern), [**IsSearchPattern**](#issearchpattern) and [**FormatIso8601**](#formatiso8601). The origin of an error is the name of the function that was called, such as `Json.Parse`. The functions [**TryParse**](#tryparse), [**TryParseFile**](#tryparsefile), [**TryParseLines**](#tryparselines) and [**TryParseLinesFile**](#tryparselinesfile) report the origin of the function they call: an error of **TryParse** has the origin `Json.Parse`.
+<!-- /test -->
 
+<!-- test: ErrorStateTests.PointerExists_MissingPlace_IsFalseWithNoError, ErrorStateTests.PointerTryGet_MissingPlace_IsFalseWithNoError, ErrorStateTests.Query_NothingMatches_IsEmptyWithNoError, ErrorStateTests.QueryOne_NothingMatches_IsEmptyWithNoError, ErrorStateTests.TryQueryOne_NothingMatches_IsFalseWithNoError, ErrorStateTests.Parse_Null_ReturnsNullAndNoError, ErrorStateTests.Parse_Failure_ReturnsEmptyAndSetsTheError -->
 > [!NOTE] timeless
 > A function that finds nothing is not an error when its name says so (**PointerExists**, **PointerTryGet**, the `Try` functions and the JSONPath queries). The `Try` functions return **False**, and a JSONPath query that matches nothing returns an empty result with no error. Check [**JsonError.HasError**](JsonError#haserror), not **IsEmpty**, after a function that can return a JSON null: [**Parse**](#parse) returns **Null** for the text `null`, and **Empty** only for a failure.
 
@@ -37,6 +40,7 @@ The module has no state and no settings. Options for one call are a [**JsonOptio
 
 The JSON type of a value, as [**TypeOfValue**](#typeofvalue) and [**JsonObject.ValueType**](JsonObject#valuetype) report it.
 
+<!-- test: ModelTests.TypeOfValue_ClassifiesTheValuesOfTheModel -->
 | Member | Value | Meaning |
 |:-------|------:|:--------|
 | **jtUnknown** | 0 | Not a JSON value: **Empty**, **Nothing**, a **Date**, any object other than a **JsonObject** or a **JsonArray**, and a **Variant** array. |
@@ -47,6 +51,8 @@ The JSON type of a value, as [**TypeOfValue**](#typeofvalue) and [**JsonObject.V
 | **jtArray** | 5 | A [**JsonArray**](JsonArray). |
 | **jtObject** | 6 | A [**JsonObject**](JsonObject). |
 
+<!-- /test -->
+
 ## Building values
 
 ### Map
@@ -62,6 +68,7 @@ Syntax: **Json.Map** ( [ *key1*, *value1* [ , *key2*, *value2* ... ] ] ) **As**
 *value1*, *value2* ...
 : *optional* The value of the member before it: a **String**, a number, a **Boolean**, **Null**, a [**JsonObject**](JsonObject) or a [**JsonArray**](JsonArray). The value is stored as it is; it is not checked and, for an object, not copied.
 
+<!-- test: ModelTests.Map_RepeatedKey_ReplacesTheValueInTheFirstPlace, ModelTests.Map_OddNumberOfArguments_IsInvalidArgument, ModelTests.Map_KeyThatIsNotAString_IsInvalidArgument -->
 With no arguments the result is an empty object. The members are in the order of the arguments. If a key appears twice, the second value replaces the first, and the member keeps the place of the first. The function returns **Nothing** and sets the error `InvalidArgument` when the number of arguments is odd or a key is not a **String**.
 
 ```tb check_build check_run
@@ -74,6 +81,7 @@ Debug.Print bad Is Nothing                                ' True
 Debug.Print JsonError.Code                                ' InvalidArgument
 Debug.Print JsonError.Origin                              ' Json.Map
 ```
+<!-- /test -->
 
 ### Arr
 {: .no_toc }
@@ -85,11 +93,13 @@ Syntax: **Json.Arr** ( [ *value1* [ , *value2* ... ] ] ) **As** [**JsonArray**](
 *value1*, *value2* ...
 : *optional* The elements, in order. Each is stored as it is, as [**JsonArray.Add**](JsonArray#add) stores it.
 
+<!-- test: ModelTests.Arr_KeepsTheValuesAsTheyAre -->
 ```tb check_build check_run
 Dim a As JsonArray = Json.Arr(1, "two", True, Null, Json.Arr(), Json.Map())
 Debug.Print a.Count                                       ' 6
 Debug.Print Json.Serialize(a, JsonOptions.Minified)       ' [1,"two",true,null,[],{}]
 ```
+<!-- /test -->
 
 ### TypeOfValue
 {: .no_toc }
@@ -156,9 +166,11 @@ Syntax: **Json.Clone** ( *value* ) **As Variant**
 *value*
 : *required* The value to copy.
 
+<!-- test: ModelTests.Clone_CopiesEveryContainer, ModelTests.Assignment_SharesTheContainer, PatchTests.Patch_DoesNotChangeTheDocument, PatchTests.MergePatch_DoesNotChangeTheDocument, PointerTests.PointerGet_ReturnsTheContainerInsideTheDocument, ModelTests.Query_ReturnsTheContainersInsideTheDocument -->
 Every [**JsonObject**](JsonObject) and [**JsonArray**](JsonArray) inside the value is copied, so the copy shares no container with the original. Other values are copied by value, and an object that is not part of the model is copied by reference.
 
 A read does not copy: [**JsonObject.Item**](JsonObject#item), [**PointerGet**](#pointerget) and [**Query**](#query) return the container that is inside the document, and a change made through it changes the document. The functions that return a new document, [**PointerSet**](#pointerset), [**PointerRemove**](#pointerremove), [**Patch**](#patch), [**MergePatch**](#mergepatch) and [**JsonObject.Merge**](JsonObject#merge), leave their argument unchanged.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim a As JsonObject = Json.Map("list", Json.Arr(1, 2))
@@ -182,7 +194,9 @@ Syntax: **Json.Equals** ( *a*, *b* ) **As Boolean**
 *a*, *b*
 : *required* The values to compare.
 
+<!-- test: ModelTests.Equals_ComparesJsonValues, DatesTests.Json_Date_IsNotAJsonValue -->
 Two values are equal when they have the same JSON type and the same content. Numbers are compared by value, so `1` and `1.0` are equal whatever their types are. Strings are compared by character code, so `a` and `A` differ. Arrays are equal when they have the same length and equal elements in the same order. Objects are equal when they have the same keys and equal values; the order of the keys does not matter. Two values that are not JSON values are equal only when both are **Empty** or both are **Nothing**; in particular, two **Date** values are never equal, even when they hold the same date.
+<!-- /test -->
 
 The function does not change the last error. The patch functions use it to compare values: [**Patch**](#patch) for the `test` operation, and [**Diff**](#diff).
 
@@ -213,6 +227,7 @@ Syntax: **Json.Parse** ( *json* [ , *options* ] ) **As Variant**
 
 Returns the root value of the document: a [**JsonObject**](JsonObject), a [**JsonArray**](JsonArray), a **String**, a **Decimal**, a **Boolean** or **Null**. Returns **Empty** and sets the last error when the text is not valid, the input exceeds a limit, or the bytes cannot be decoded.
 
+<!-- test: ParseTests.Parse_ControlCharacterInString_IsInvalidSyntax, ParseTests.Parse_Escapes_AreRead, ParseTests.Parse_LoneSurrogateEscape_IsInvalidEscape, ParseTests.Parse_DateText_StaysAString, ParseTests.Parse_WhiteSpaceAroundTheValue_IsAllowed, ParseTests.Parse_TextAfterTheValue_IsAnError, ParseTests.Parse_TrailingCommaAndComment_AreErrorsByDefault, ParseTests.Parse_Jsonc_AcceptsCommentsAndOneTrailingComma, ParseTests.Parse_DuplicateKey_IsAnErrorByDefault, ParseTests.Parse_DuplicateKeyLastWins_KeepsTheLastValueInTheFirstPlace, ParseTests.Parse_DepthBeyondMaxDepth_IsDepthLimitExceeded, ParseTests.Parse_DefaultMaxDepth_Is1000, ParseTests.Parse_LimitsOnStringsArraysAndObjects_AreLimitExceeded, ParseTests.Parse_MaxBytes_RefusesALongerString, ParseTests.Parse_MaxBytes_CountsUtf8BytesOfAString, ParseTests.Parse_Bytes_AreDecodedByTheByteOrderMark, ParseTests.Parse_BytesWithEncodingOption_IgnoreAMatchingByteOrderMark, ParseTests.Parse_InvalidUtf8Bytes_AreInvalidEncoding, ParseTests.Parse_OtherType_IsWrongType, ErrorStateTests.Parse_ByteOrderMarkInString_IsInvalidSyntax, NumberTests.Parse_ExponentAboveTheDecimalRange_IsInvalidNumber, NumberTests.Parse_ScaleBelowTheDecimalRange_IsInvalidNumber, NumberTests.Parse_ThirtySixDigitNumber_IsInvalidNumber, NumberTests.Parse_LargestDouble_IsInvalidNumber, NumberTests.Parse_NumbersInsideTheDecimalRange_KeepEveryDigit, NumberTests.Parse_FractionsAndExponents_ApplyThem, NumberTests.Parse_Number_IsADecimal, ParseTests.Parse_JsoncCommentNotClosed_IsInvalidComment -->
 The text must be one JSON value as RFC 8259 defines it, with only the white space characters space, tab, line feed and carriage return around it. With [**Syntax**](JsonOptions#syntax) set to **jsJsonc**, comments and a comma after the last element are also accepted. Details of the reading:
 
 - **Numbers** become **Decimal** values, with no loss of digits and independent of the regional settings. A number that a **Decimal** cannot hold is an `InvalidNumber` error: one whose digits, read as a whole number, are above 79228162514264337593543950335, or whose scale is outside the range of **Decimal**. The scale is the exponent written, less the number of digits after the decimal point, and it must be from -28 to 28. The documents `1e29`, `1e-29`, `79228162514264337593543950336`, and `3.14159265358979323846264338327950288` (36 digits) are rejected, and so is `1.7976931348623157e308`, the largest **Double**. The documents `1e28`, `1e-28`, `79228162514264337593543950335`, `12345678901234567890123456789` and `0.0000000000000000000000000001` are read in full. The package's own tests treat this as a rule of the package, and RFC 8259 lets an implementation limit the range and precision of numbers; but a document that other JSON software writes can hold a number that this package rejects (see [Known problems](.#known-problems-in-version-10150)). A number is read with its exponent and fraction applied, so `1.5E3` is `1500`, `1.0` is `1`, `0.10` is `0.1` and `-0` is `0`.
@@ -222,6 +237,8 @@ The text must be one JSON value as RFC 8259 defines it, with only the white spac
 - **Nesting** is limited by [**MaxDepth**](JsonOptions#maxdepth): the root is at depth 0, each value inside a container is one level deeper than the container, and a value deeper than **MaxDepth**, a scalar as well as a container, is a `DepthLimitExceeded` error. The other limits are [**MaxBytes**](JsonOptions#maxbytes), [**MaxStringLength**](JsonOptions#maxstringlength), [**MaxArrayItems**](JsonOptions#maxarrayitems) and [**MaxObjectMembers**](JsonOptions#maxobjectmembers); exceeding one is a `LimitExceeded` error.
 - **A byte array** is decoded as [**Encoding**](JsonOptions#encoding) says: by default a byte order mark selects UTF-8, UTF-16 little endian or UTF-16 big endian, and UTF-8 is the choice without one. Bytes that are not valid in the encoding are an `InvalidEncoding` error. A **String** is not decoded, and a byte order mark at its start is not skipped: it is an `InvalidSyntax` error.
 
+<!-- /test -->
+
 ```tb check_build check_run
 Dim t As Variant
 Dim v As Variant
@@ -246,7 +263,9 @@ Next
 ' 3.14159265358979323846264338327950288 -> InvalidNumber
 ```
 
+<!-- test: ParseTests.Parse_SyntaxError_ReportsPositionLineAndColumn, ParseTests.Parse_SyntaxError_ToStringNamesOriginCodeAndPlace -->
 The position of a syntax error is in `JsonError.Position`, `JsonError.Line` and `JsonError.Column`, counted from 1 in UTF-16 code units, with a line feed, a carriage return or a carriage return and a line feed each ending a line. `JsonError.Snippet` holds up to 24 characters on each side of the position.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim v As Variant = Json.Parse("{""a"":[1,2.5,""x"",true,null]}")
@@ -263,7 +282,9 @@ Debug.Print JsonError.Code                                ' InvalidSyntax
 Debug.Print JsonError.ToString()  ' Json.Parse: InvalidSyntax - Expected object key. (line 1, column 8, position 8) | {"a":1,}
 ```
 
+<!-- test: ErrorStateTests.Parse_FailedResultAssignedToObjectVariable_RaisesError424 -->
 The result of **Parse** is a **Variant**, so a variable of a class type can take it directly when the parse succeeds: `Dim o As JsonObject = Json.Parse(text)`. After a failed parse the result is **Empty**, which such a variable does not accept: the assignment raises run-time error 424, *Object required*. Check the last error first, or use [**TryParse**](#tryparse).
+<!-- /test -->
 
 ```tb check_build check_run
 On Error Resume Next
@@ -313,6 +334,7 @@ Syntax: **Json.Serialize** ( *value* [ , *options* ] ) **As String**
 *options*
 : *optional* A [**JsonOptions**](JsonOptions) object. **Nothing**, the default, writes the text pretty-printed with 4 spaces of indentation and a line feed (`vbLf`) after each line, as [**JsonOptions.Pretty**](JsonOptions#pretty) does. The format properties and [**MaxDepth**](JsonOptions#maxdepth) are used.
 
+<!-- test: SerializeTests.Serialize_Strings_EscapeQuoteBackslashAndControlCharacters, SerializeTests.Serialize_Solidus_IsWrittenAsItIsUnlessAsked, SerializeTests.Serialize_EnsuresAscii_EscapesEveryCodeUnitAbove7F, SerializeTests.Serialize_SortsKeys_OrdersMembersByCodeUnit, SerializeTests.Serialize_Default_IsPrettyWithFourSpacesAndLineFeeds, SerializeTests.Serialize_Newline_EndsTheLines, SerializeTests.Serialize_IndentZero_HasLineBreaksAndNoIndentation, SerializeTests.Serialize_EmptyContainers_AreWrittenAlike, SerializeTests.Serialize_VariantArray_IsAJsonArray, SerializeTests.Serialize_ValuesThatAreNotJson_AreUnsupportedType, SerializeTests.Serialize_ContainerThatContainsItself_IsCircularReference, SerializeTests.Serialize_DepthBeyondMaxDepth_IsDepthLimitExceeded, NumberTests.Serialize_DoubleAboveTheDecimalRange_IsInvalidNumber, NumberTests.Serialize_DoubleJustAboveTheDecimalRange_IsInvalidNumber, NumberTests.Serialize_Doubles_KeepFifteenSignificantDigits, DatesTests.Serialize_Date_IsAnIsoString, ErrorStateTests.Serialize_TwoDimensionalArray_RaisesNoRunTimeError, ErrorStateTests.Serialize_TwoDimensionalArray_SetsTheLastError, DatesTests.Serialize_DateWithMillisecondsAboveHalfASecond_KeepsTheFraction -->
 Returns the text, or an empty string and the last error when the value cannot be written. The errors are `UnsupportedType` for a value that is not a JSON value (an **Empty**, a **Nothing**, or an object of another class), `InvalidNumber` for a number that a **Decimal** cannot hold, such as an infinity or a **Double** above about 7.9E+28, `CircularReference` for a container that contains itself, and `DepthLimitExceeded`.
 
 - **Numbers** of every numeric type are converted to **Decimal** and written as the text of that value, with a decimal point whatever the regional settings are and without an exponent. A **Double** is converted to **Decimal** first, so it keeps 15 significant digits: `1 / 3` is written as `0.333333333333333`, and `0.1 + 0.2` as `0.3`. A **Double** of 1E+20 is written as `100000000000000000000`.
@@ -322,6 +344,8 @@ Returns the text, or an empty string and the last error when the value cannot be
 - **Objects** keep their order, unless [**SortsKeys**](JsonOptions#sortskeys) is **True**, which orders the keys by UTF-16 code unit.
 - **Layout.** With [**Indent**](JsonOptions#indent) of 0 or more, each member and element is on its own line, indented by that many spaces for each level, with a space after each colon; [**Newline**](JsonOptions#newline) ends the lines. With **Indent** below 0 the text has no white space. An empty object or array is `{}` or `[]` in both layouts.
 
+<!-- /test -->
+
 ```tb check_build check_run
 Dim o As JsonObject = Json.Map("a", 1, "b", Json.Arr(1, 2), "c", Json.Map())
 Debug.Print Json.Serialize(o, JsonOptions.Minified)
@@ -350,6 +374,7 @@ Debug.Print Json.Serialize(CSng(0.1), JsonOptions.Minified)     ' 0.1
 Debug.Print Json.Serialize(CDec("1.50"), JsonOptions.Minified)  ' 1.5
 ```
 
+<!-- test: SerializeTests.Serialize_LoneSurrogate_IsWrittenAndNotEncodedToUtf8 -->
 A character that is not a valid UTF-16 sequence, a lone surrogate, is written unchanged by **Serialize**. [**SerializeToUtf8**](#serializetoutf8) and [**WriteFile**](#writefile) cannot encode it and report `InvalidEncoding`.
 
 ```tb check_build check_run
@@ -358,6 +383,7 @@ Dim bytes() As Byte = Json.SerializeToUtf8(ChrW(&HD83D), Nothing)
 Debug.Print JsonError.Code                                ' InvalidEncoding
 Debug.Print JsonError.Message                             ' Text cannot be encoded as UTF-8.
 ```
+<!-- /test -->
 
 ### SerializeToUtf8
 {: .no_toc }
@@ -372,7 +398,9 @@ Syntax: **Json.SerializeToUtf8** ( *value* [ , *options* ] ) **As Byte()**
 *options*
 : *optional* A [**JsonOptions**](JsonOptions) object, as for [**Serialize**](#serialize). When [**IncludesBom**](JsonOptions#includesbom) is **True**, the bytes start with the UTF-8 byte order mark `EF BB BF`.
 
+<!-- test: SerializeTests.SerializeToUtf8_IncludesBom_StartsWithTheByteOrderMark, SerializeTests.SerializeToUtf8_WithoutBom_StartsWithTheQuote -->
 Returns the bytes. Returns an unbound array and sets the last error when [**Serialize**](#serialize) fails or the text cannot be encoded (`InvalidEncoding`).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim o As JsonOptions = JsonOptions.Minified
@@ -398,7 +426,9 @@ Syntax: **Json.ParseFile** ( *path* [ , *options* ] ) **As Variant**
 *options*
 : *optional* A [**JsonOptions**](JsonOptions) object. [**Encoding**](JsonOptions#encoding) selects the encoding of the file, with a byte order mark deciding by default, and [**MaxBytes**](JsonOptions#maxbytes) limits the size of the file. The other properties apply as they do to [**Parse**](#parse).
 
+<!-- test: FileTests.ParseFile_MissingFile_IsIoError, FileTests.ParseFile_EmptyFile_IsUnexpectedEnd, FileTests.ParseFile_FileLargerThanMaxBytes_IsLimitExceeded, FileTests.ParseFile_UsesTheByteOrderMark_OrTheEncodingOption -->
 Returns the root value, or **Empty** and the last error. A file that does not exist or cannot be opened or read is an `IoError`; a file larger than **MaxBytes** is a `LimitExceeded` error; the other errors are those of [**Parse**](#parse). An empty file is the error `UnexpectedEnd`.
+<!-- /test -->
 
 ### TryParseFile
 {: .no_toc }
@@ -434,7 +464,9 @@ Syntax: **Json.WriteFile** ( *path*, *value* [ , *options* ] )
 *options*
 : *optional* A [**JsonOptions**](JsonOptions) object. The format properties and [**IncludesBom**](JsonOptions#includesbom) are used. **Nothing** writes pretty-printed text without a byte order mark.
 
+<!-- test: FileTests.WriteFile_ThenParseFile_RoundTrips, FileTests.WriteFile_ReplacesAnExistingFile, FileTests.WriteFile_WritesUtf8_WithABomOnlyWhenAsked, FileTests.WriteFile_ValueThatCannotBeSerialized_LeavesTheFileAlone -->
 The file always has UTF-8 encoding. If the value cannot be serialized, the file is not touched and the last error is that of [**Serialize**](#serialize). If the file cannot be opened or written, the error is `IoError`. The file is opened for writing, and so emptied, before the bytes are written, so a write that fails part-way leaves a short file.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim path As String = Environ$("TEMP") & "\tsJson-sample-file.json"
@@ -450,7 +482,9 @@ Debug.Print JsonError.Code                                               ' IoErr
 
 ## Lines of JSON
 
+<!-- test: ParseTests.ParseLines_LinesEndWithLfCrOrBoth_AndEmptyLinesAreIgnored -->
 NDJSON, also called JSON Lines, is a text with one JSON value on each line. The functions of this section read and write it. Lines end with a line feed, a carriage return, or both; a line that is empty or holds only spaces is ignored.
+<!-- /test -->
 
 ### ParseLines
 {: .no_toc }
@@ -465,7 +499,9 @@ Syntax: **Json.ParseLines** ( *text* [ , *options* ] ) **As** [**JsonArray**](Js
 *options*
 : *optional* A [**JsonOptions**](JsonOptions) object. It applies to each line as it applies to [**Parse**](#parse), except that [**MaxBytes**](JsonOptions#maxbytes) is not checked.
 
+<!-- test: ParseTests.ParseLines_BadLine_ReportsLineOneOfThatLine -->
 Returns an array that holds the value of each line, in order, or **Nothing** and the last error when a line is not valid. The error is that of [**Parse**](#parse). Its position, line and column are counted in the line that failed, not in the whole text, so `JsonError.Line` is always 1.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim lines As JsonArray = Json.ParseLines("{""id"":1}" & vbLf & vbLf & "{""id"":2}" & vbLf)
@@ -508,7 +544,9 @@ Syntax: **Json.SerializeLines** ( *values* [ , *options* ] ) **As String**
 *options*
 : *optional* A [**JsonOptions**](JsonOptions) object. [**Indent**](JsonOptions#indent) is ignored, because each value is written without white space. The other format properties apply as they do to [**Serialize**](#serialize). **Nothing** uses [**JsonOptions.Minified**](JsonOptions#minified).
 
+<!-- test: SerializeTests.SerializeLines_IgnoresIndent, SerializeTests.SerializeLines_OtherType_IsWrongType, ParseTests.SerializeLines_WritesALineFeedAfterEveryValue -->
 Returns the text, with a line feed after every value including the last, or an empty string when there are no values or a value cannot be written. Any other type of *values* is the error `WrongType`; the other errors are those of [**Serialize**](#serialize).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim lines As JsonArray = Json.Arr(Json.Map("id", 1), Json.Map("id", 2))
@@ -569,7 +607,9 @@ Syntax: **Json.WriteLinesFile** ( *path*, *values* [ , *options* ] )
 *options*
 : *optional* A [**JsonOptions**](JsonOptions) object. [**IncludesBom**](JsonOptions#includesbom) adds a byte order mark; the other properties apply as they do to [**SerializeLines**](#serializelines).
 
+<!-- test: FileTests.WriteLinesFile_ThenParseLinesFile_RoundTrips, FileTests.WriteLinesFile_NoValues_CreatesAnEmptyFile -->
 The errors are those of [**SerializeLines**](#serializelines) and [**WriteFile**](#writefile). When there are no values the file is created empty.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim path As String = Environ$("TEMP") & "\tsJson-sample-lines.ndjson"
@@ -584,6 +624,7 @@ Kill path
 
 A JSON Pointer is a string that names one place in a document, as RFC 6901 defines it. The empty string names the document itself. Any other pointer is a series of tokens, each introduced by `/`. A token selects a member of an object by its key, or an element of an array by its index. The index is written in decimal digits, without a leading zero (`0` is the first element). In an array, the token `-` names the position after the last element. In a token, `~1` stands for `/` and `~0` for `~`. The pointer `/` names the member with the empty key.
 
+<!-- test: PointerTests.PointerGet_UriFragmentForm_IsInvalidPointer, PointerTests.PointerGet_ArrayTokenThatIsNotAnIndex_IsInvalidPointer, PointerTests.PointerGet_DashToken_IsPointerNotFound, PointerTests.PointerSet_DashToken_AppendsToTheArray, PointerTests.PointerGet_ZeroInObject_SelectsMemberZero, PointerTests.PointerGet_SlashAlone_NamesTheEmptyKeyOfTheDocument, PointerTests.PointerGet_EmptyTokenAfterToken_NamesTheEmptyKey, PointerTests.PointerGet_ReturnsTheContainerInsideTheDocument, PointerTests.PointerGet_RfcExamples_ReadTheNamedValues -->
 The functions follow RFC 6901, except for these points:
 
 - The pointer must be a plain string. The form of a pointer as a URI fragment, `#/a/b`, is not accepted: it is the error `InvalidPointer`.
@@ -593,6 +634,8 @@ The functions follow RFC 6901, except for these points:
 - An empty token selects the member with the empty key, and the pointer `/` names the member `""` of the document. An empty token that comes after another token is a defect of version 1.0.15.0: it is read as a copy of the token before it, so `/a/` is read as `/a/a`. [Known problems](.#known-problems-in-version-10150) shows it.
 - The value that [**PointerGet**](#pointerget) returns is the container inside the document, not a copy.
 
+<!-- /test -->
+
 ### PointerGet
 {: .no_toc }
 
@@ -606,7 +649,9 @@ Syntax: **Json.PointerGet** ( *root*, *pointer* ) **As Variant**
 *pointer*
 : *required* A **String** that holds a JSON Pointer. The empty string returns *root*.
 
+<!-- test: PointerTests.PointerGet_MissingPlace_SetsPathUpToTheFailingToken, PointerTests.PointerGet_EmptyPointer_ReturnsTheDocument, PointerTests.PointerGet_RfcExamples_ReadTheNamedValues -->
 Returns the value, which can be **Null** for a JSON null. Returns **Empty** and sets the last error when the pointer is not valid (`InvalidPointer`) or names no place (`PointerNotFound`). The error's `JsonError.Path` is the pointer up to and including the token that failed.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim doc As JsonObject = Json.Map("foo", Json.Arr("bar", "baz"), "", 0, "a/b", 1, "m~n", 8, "k""l", 6, "i\j", 5)
@@ -637,7 +682,9 @@ Syntax: **Json.PointerExists** ( *root*, *pointer* ) **As Boolean**
 *pointer*
 : *required* A **String** that holds a JSON Pointer.
 
+<!-- test: PointerTests.PointerExists_PlaceHoldingNull_IsTrue, ErrorStateTests.PointerExists_MissingPlace_IsFalseWithNoError, PointerTests.PointerExists_TokenThatIsNotAnIndex_IsFalseWithInvalidPointer, PointerTests.PointerTryGet_InvalidPointer_IsFalseWithInvalidPointer -->
 Returns **True** when the place exists, including a place that holds a JSON null. A pointer that names no place is not an error. A pointer with invalid syntax, or one whose token is not an index where the document has an array, returns **False** and sets the error `InvalidPointer`.
+<!-- /test -->
 
 ### PointerTryGet
 {: .no_toc }
@@ -687,7 +734,9 @@ Syntax: **Json.PointerSet** ( *root*, *pointer*, *value* ) **As Variant**
 *value*
 : *required* The value to store. A copy of it is stored.
 
+<!-- test: PointerTests.PointerSet_DashToken_AppendsToTheArray, PointerTests.PointerSet_IndexAboveLength_IsPointerNotFound -->
 Returns the new document. All the places on the way to the last token must exist, otherwise the error is `PointerNotFound`. In an object, the last token adds the member or replaces it. In an array, the last token replaces the element at that index; an index equal to the length, or `-`, appends the value. An index above the length is the error `PointerNotFound`. The function does not insert: [**Patch**](#patch) with an `add` operation inserts into an array.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim doc As Variant = Json.Parse("{""a"":{""b"":[1,2]}}")
@@ -716,7 +765,9 @@ Syntax: **Json.PointerRemove** ( *root*, *pointer* ) **As Variant**
 *pointer*
 : *required* A **String** that holds a JSON Pointer. The empty string, which names the whole document, is the error `InvalidPointer`, and so is a pointer that ends in `-`.
 
+<!-- test: PointerTests.PointerRemove_ArrayElement_MovesTheLaterOnesDown, PointerTests.PointerRemove_EmptyPointerOrDash_IsInvalidPointer -->
 Returns the new document. A member of an object is removed; an element of an array is removed and the later elements move down by one. A place that does not exist is the error `PointerNotFound`.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim doc As Variant = Json.Parse("{""a"":{""b"":[1,2,3],""c"":true}}")
@@ -772,7 +823,13 @@ Syntax: **Json.CompilePath** ( *path* ) **As** [**JsonPathQuery**](JsonPathQuery
 *path*
 : *required* A **String** that holds a JSONPath. It must start with `$`.
 
+<!-- test: PathTests.CompilePath_FilterNestedMoreThan1000Levels_IsDepthLimitExceeded, PathTests.CompilePath_FilterNested100Levels_Compiles, PathTests.CompilePath_FilterNested500Levels_Compiles, PathTests.CompilePath_FilterNested999Levels_Compiles, PathTests.Query_MemberNameStartingWithDigit_IsRefused -->
 Returns a [**JsonPathQuery**](JsonPathQuery), or **Nothing** and the error `InvalidPath` when the path is not valid. The error's position, line, column and snippet locate the fault in the path text. An expression in a filter that nests more than 1000 levels is the error `DepthLimitExceeded`.
+<!-- /test -->
+
+<!-- test: PathTests.CompilePath_FilterNestedMoreThan1000Levels_IsDepthLimitExceeded, PathTests.CompilePath_FilterNested999Levels_Compiles -->
+> [!WARNING] 1.0.15.0
+> In a 64-bit program, a filter that nests parentheses more than about 800 levels deep overflows the stack and ends the program, before the limit of 1000 levels is reached. A 32-bit program reaches the limit and gets the error. Limit the length of a path that comes from outside before it is compiled.
 
 ```tb check_build check_run
 Dim q As JsonPathQuery = Json.CompilePath("$.store.book[0]")
@@ -797,7 +854,9 @@ Syntax: **Json.Query** ( *root*, *path* ) **As Variant()**
 *path*
 : *required* A **String** that holds a JSONPath.
 
+<!-- test: ErrorStateTests.Query_NothingMatches_IsEmptyWithNoError, ErrorStateTests.EmptyList_UBoundRaisesError9, ErrorStateTests.QueryHits_InvalidPath_SetsInvalidPath, ModelTests.Query_ReturnsTheContainersInsideTheDocument -->
 Returns an array of the selected values, in document order, with a lower bound of 0. The values are the containers inside the document, not copies. An array that results from a path that matches nothing is unbound, so `UBound` raises run-time error 9 for it. A path with invalid syntax also returns an unbound array and sets the error `InvalidPath`. [**Serialize**](#serialize) writes the array as a JSON array, `[]` when it is unbound.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim store As Variant = Json.Parse( _
@@ -841,7 +900,9 @@ Syntax: **Json.QueryOne** ( *root*, *path* ) **As Variant**
 *path*
 : *required* A **String** that holds a JSONPath.
 
+<!-- test: ErrorStateTests.QueryOne_NothingMatches_IsEmptyWithNoError -->
 Returns the first selected value in document order, or **Empty** when nothing is selected, with no error. A selected JSON null is **Null**, so it can be told from a miss. A path with invalid syntax returns **Empty** and sets the error `InvalidPath`.
+<!-- /test -->
 
 ### TryQueryOne
 {: .no_toc }
@@ -859,7 +920,9 @@ Syntax: **Json.TryQueryOne** ( *root*, *path*, *value* ) **As Boolean**
 *value*
 : *required* A **Variant** variable that receives the value. It is passed **ByRef**. When nothing is selected it is **Empty**.
 
+<!-- test: ErrorStateTests.TryQueryOne_NothingMatches_IsFalseWithNoError -->
 Returns **True** when at least one value is selected. Nothing selected is not an error; a path with invalid syntax returns **False** and sets the error `InvalidPath`.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim doc As Variant = Json.Parse("{""a"":[10,20,30],""n"":null}")
@@ -886,7 +949,9 @@ Syntax: **Json.QueryHits** ( *root*, *path* ) **As** [**JsonHit**](JsonHit)**()*
 *path*
 : *required* A **String** that holds a JSONPath.
 
+<!-- test: PathTests.QueryHits_ReturnsValueAndPointer, ErrorStateTests.EmptyList_QueryHitsAndErrors_AreUnbound -->
 Returns an array of [**JsonHit**](JsonHit) objects, in document order, with a lower bound of 0. Each hit has the value and the RFC 6901 pointer of the place where it was found, which [**PointerSet**](#pointerset) and the other pointer functions accept. A path that matches nothing, or is not valid, returns an unbound array, as [**Query**](#query) does.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim doc As Variant = Json.Parse("{""store"":{""book"":[{""title"":""A""},{""title"":""B"",""isbn"":""x""}]}}")
@@ -902,6 +967,7 @@ Debug.Print Json.PointerGet(doc, "/store/book/1/title")       ' B
 
 ## Patterns
 
+<!-- test: PatternTests.IsMatchPattern_ClassEscapes_AreAccepted, PatternTests.IsValidPattern_Lookaround_IsInvalid, PatternTests.IsValidPattern_BackReference_IsInvalid, PatternTests.IsValidPattern_LazyQuantifier_IsInvalid, PatternTests.IsMatchPattern_InvalidPattern_IsFalseWithNoError, PatternTests.IsMatchPattern_AnchorsAreOrdinaryCharacters, PatternTests.IsMatchPattern_UnicodeCategories_AreMatched, PatternTests.IsMatchPattern_SurrogatePair_IsOneCharacter, PatternTests.IsMatchPattern_LongerAlternativeSecond_Matches, PatternTests.IsMatchPattern_ChoiceInGroup_TriesTheOtherAlternative, PatternTests.IsMatchPattern_LongerAlternativeFirst_Matches, PatternTests.IsValidPattern_EscapeTab_IsValid, PatternTests.IsValidPattern_EscapeLineFeed_IsValid, PatternTests.IsValidPattern_EscapeCarriageReturn_IsValid, PatternTests.IsMatchPattern_SetWithLineFeedEscape_MatchesLineFeed, PatternTests.IsMatchPattern_SetWithTabEscape_MatchesTab, PatternTests.IsValidPattern_EscapeHyphen_IsValid, PatternTests.IsValidPattern_EscapeCaret_IsValid, PatternTests.IsValidPattern_SetEndingInHyphen_IsValid, PatternTests.IsMatchPattern_SetStartingWithHyphen_MatchesHyphen -->
 The JSONPath functions `match` and `search`, and the keywords `pattern` and `patternProperties` of a JSON Schema, use regular expressions in the I-Regexp dialect of RFC 9485. The functions of this section use the same matcher directly. I-Regexp is a small interoperable subset of regular expressions: the characters are compared by code point, so a surrogate pair is one character; a group does not capture; and there are no anchors, so `^` and `$` are ordinary characters.
 
 The supported syntax is:
@@ -918,6 +984,7 @@ The supported syntax is:
 | `(...)`, `x\|y` | A group, and a choice between alternatives. |
 
 Anything else, such as a lookaround, a back reference or a lazy quantifier, makes the pattern invalid. A pattern that is not valid is never an error for these functions: they return **False**, and the last error is not set. The matcher departs from RFC 9485 in these ways: it accepts `\d`, `\D`, `\s`, `\S`, `\w` and `\W`, which the RFC leaves out; it does not accept the escapes `\n`, `\r`, `\t`, `\-` and `\^` that the RFC has, and reads `\n`, `\r` and `\t` inside a set as the letters `n`, `r` and `t`; it rejects a hyphen that comes after a single character at the end of a set, such as `[a-]`, which the RFC allows; and it does not try the other alternatives of a choice once one alternative has matched and the rest of the pattern then fails. The last difference, and the one before it, give wrong results with no error; [Known problems](.#known-problems-in-version-10150) shows them.
+<!-- /test -->
 
 ### IsValidPattern
 {: .no_toc }
@@ -990,6 +1057,7 @@ Syntax: **Json.Patch** ( *root*, *ops* ) **As Variant**
 *ops*
 : *required* A [**JsonArray**](JsonArray) of operation objects. A single operation object is also accepted, as a patch of one operation, which RFC 6902 does not allow. Any other value is the error `InvalidPatch`.
 
+<!-- test: PatchTests.Patch_Add_FollowsRfc6902, PatchTests.Patch_AddToMissingParent_Fails, PatchTests.Patch_Remove_FollowsRfc6902, PatchTests.Patch_RemoveMissingPlace_Fails, PatchTests.Patch_Replace_FollowsRfc6902, PatchTests.Patch_ReplaceMissingPlace_Fails, PatchTests.Patch_Move_FollowsRfc6902, PatchTests.Patch_MoveFromParentOfPath_Fails, PatchTests.Patch_Copy_FollowsRfc6902, PatchTests.Patch_Test_FollowsRfc6902, PatchTests.Patch_TestThatFails_IsPatchTestFailed, PatchTests.Patch_FailedOperation_AppliesNothing, PatchTests.Patch_DoesNotChangeTheDocument, PatchTests.Patch_MalformedOperations_AreInvalidPatch, PatchTests.Patch_InvalidPatch_PathIsThePositionOfTheOperation, PatchTests.Patch_SingleOperationObject_IsAccepted -->
 Returns the patched document. The operations are applied one after the other to a copy. If one fails, the function returns **Empty** and sets the last error, and nothing is applied. The operations follow RFC 6902:
 
 - `add` stores a copy of `value` at `path`. In an object it adds the member or replaces it. In an array the index inserts the value before the element at that index; an index equal to the length, or `-`, appends. The parent of the place must exist. A path of `""` replaces the whole document.
@@ -1000,6 +1068,7 @@ Returns the patched document. The operations are applied one after the other to
 - `test` compares the value at `path` with `value`, as [**Equals**](#equals) compares: numbers by value, and objects without regard to the order of keys. A difference is the error `PatchTestFailed`.
 
 The errors are `InvalidPatch` for a patch that is malformed (an operation that is not an object, a missing or non-string `path` or `from`, a missing `value`, an unknown `op`), `PatchFailed` for an operation that cannot be applied to the document (an `add` into a scalar, an array index that is out of range), `PatchTestFailed`, and `PointerNotFound` or `InvalidPointer` for a pointer. For `InvalidPatch`, `JsonError.Path` is the position of the operation in the patch, such as `/0`; for the others it is the pointer in the document.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim doc As Variant = Json.Parse("{""foo"":""bar""}")
@@ -1026,7 +1095,9 @@ Syntax: **Json.MergePatch** ( *root*, *patch* ) **As Variant**
 *patch*
 : *required* The merge patch. A patch that is not an object replaces the whole document. In an object, a member with a value replaces or adds the member, a member that is an object is merged into the target member, and a member that is **Null** removes the target member.
 
+<!-- test: PatchTests.MergePatch_FollowsRfc7396, PatchTests.MergePatch_PatchThatIsNotAnObject_ReplacesTheDocument, PatchTests.MergePatch_DoesNotChangeTheDocument -->
 Returns the new document. The rules are those of RFC 7396, and the function sets no error. A patch cannot set a member to null, because null means removal. An array in a patch replaces the target array whole.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim target As Variant = Json.Parse("{""a"":""b"",""c"":{""d"":""e"",""f"":""g""}}")
@@ -1047,7 +1118,9 @@ Syntax: **Json.Diff** ( *fromValue*, *toValue* ) **As** [**JsonArray**](JsonArra
 *toValue*
 : *required* The document to end with.
 
+<!-- test: PatchTests.Diff_PatchOfTheDiff_GivesTheTarget -->
 Returns a JSON Patch, an array of operations, such that `Json.Patch(fromValue, Json.Diff(fromValue, toValue))` equals *toValue*. The patch uses only `add`, `remove` and `replace`. Objects are compared member by member, with the removals first, then the changes in the order of the first document, then the additions. Arrays are compared element by element: the common length is compared position by position, the extra elements of the first array are removed from the end, and the extra elements of the second are added. A value that differs in type is replaced whole. Equal documents give an empty array.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim a As Variant = Json.Parse("{""x"":1,""list"":[1,2,3],""gone"":true}")
@@ -1084,7 +1157,9 @@ Syntax: **Json.Validate** ( *instance*, *schema* [ , *options* ] ) **As** [**Jso
 
 Returns the report. It lists every failure, not only the first. The function compiles the schema each time it is called and has no catalogue, so a `$ref` can refer only to the schema itself. To use a catalogue, or to check many values, call [**CompileSchema**](#compileschema) once.
 
+<!-- test: SchemaTests.Validate_RefOutsideTheCatalogue_IsRemoteRef -->
 A schema that cannot be used sets the last error, as well as being reported: `InvalidSchema` for a schema that is neither an object nor a Boolean, `RemoteRef` for a `$ref` that is not in the schema or the catalogue, and `DepthLimitExceeded`.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim schema As Variant = Json.Parse("{""type"":""object"",""required"":[""name""],""properties"":{""name"":{""type"":""string""},""age"":{""type"":""integer"",""minimum"":0}}}")
@@ -1126,6 +1201,7 @@ Syntax: **Json.ParseIso8601** ( *text* ) **As Date**
 *text*
 : *required* A date, or a date with a time, in one of these forms: `yyyy-mm-dd` or `yyyy-mm-ddThh:nn:ss`, then optionally a fraction `.f` of one or more digits, then optionally a zone `Z`, `+hh:mm` or `-hh:mm`. A space can stand for the `T`. The text is trimmed first. The year must have four digits and be from 0100 to 9999.
 
+<!-- test: DatesTests.ParseIso8601_DateAndTime_AreRead, DatesTests.ParseIso8601_Fraction_IsCutToMilliseconds, DatesTests.ParseIso8601_FormsOutsideTheSubset_AreInvalidDate, DatesTests.ParseIso8601_Failure_ReturnsDateZero -->
 Returns the **Date**. Text with no zone is read as the local time. Text with `Z` or an offset names an instant, which Windows converts to the local time of the computer (the Windows function **SystemTimeToTzSpecificLocalTime**). The fraction is cut to milliseconds (it is not rounded). Seconds of 60, the form without seconds, `T` in lowercase, and an offset without a colon are not accepted. On failure the result is a **Date** of 0 and the last error is `InvalidDate`; because a **Date** of 0 is a valid date (30 December 1899), check the last error.
 
 ```tb check_build check_run
@@ -1165,6 +1241,9 @@ Next
 ' [2026-8-19] -> InvalidDate: ISO-8601 date is too short.
 ```
 
+<!-- /test -->
+
+<!-- test: DatesTests.ParseIso8601_TwoSpellingsOfOneInstant_GiveTheSameDate -->
 A zone is converted with the settings of the computer, so the **Date** that results depends on where the code runs. Two spellings of one instant give the same **Date** on every computer:
 
 ```tb check_build check_run
@@ -1172,6 +1251,7 @@ Dim utc As Date = Json.ParseIso8601("2026-08-19T12:00:00Z")
 Dim berlin As Date = Json.ParseIso8601("2026-08-19T14:00:00+02:00")
 Debug.Print utc = berlin    ' True
 ```
+<!-- /test -->
 
 ### FormatIso8601
 {: .no_toc }
@@ -1183,7 +1263,19 @@ Syntax: **Json.FormatIso8601** ( *value* ) **As String**
 *value*
 : *required* The **Date**.
 
+<!-- test: DatesTests.FormatIso8601_WritesMillisecondsOnlyWhenTheyAreNotZero, ErrorStateTests.PureFunctions_LeaveTheLastErrorAlone -->
 Returns `yyyy-mm-ddThh:nn:ss`, with `.fff` added when the date has a non-zero number of milliseconds. The text has no zone, so it is not an instant until the reader knows the zone. The function does not change the last error.
+<!-- /test -->
+
+<!-- test: DatesTests.FormatIso8601_MillisecondsAboveHalfASecond_KeepTheSecondAndTheFraction, DatesTests.Serialize_DateWithMillisecondsAboveHalfASecond_KeepsTheFraction -->
+> [!WARNING] 1.0.15.0
+> A time with more than 500 milliseconds is written a second late, with no fraction: 09:15:30.750 becomes `09:15:31`, and 23:59:59.750 becomes midnight of the next day. [**Serialize**](#serialize) writes a **Date** the same way. A time of 500 milliseconds or less is written correctly.
+>
+> ```tb check_build check_run
+> Debug.Print Json.FormatIso8601(Json.ParseIso8601("2026-08-19T09:15:30.500"))   ' 2026-08-19T09:15:30.500
+> Debug.Print Json.FormatIso8601(Json.ParseIso8601("2026-08-19T09:15:30.750"))   ' 2026-08-19T09:15:31
+> Debug.Print Json.FormatIso8601(Json.ParseIso8601("2026-08-19T23:59:59.750"))   ' 2026-08-20T00:00:00
+> ```
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/tsJson/JsonOptions.md b/docs/Reference/Contributed/tsJson/JsonOptions.md
index 6eb859cb..797b4d91 100644
--- a/docs/Reference/Contributed/tsJson/JsonOptions.md
+++ b/docs/Reference/Contributed/tsJson/JsonOptions.md
@@ -20,8 +20,11 @@ Debug.Print o.Indent                                      ' -1
 Debug.Print JsonOptions.Rfc.Indent                        ' 4
 ```
 
+<!-- test: OptionsTests.Options_AreNotChangedByACall -->
 A property of an options object checks nothing when it is set. The value is used by the call that receives the object, and a call does not change the object.
+<!-- /test -->
 
+<!-- test: OptionsTests.PredeclaredObject_Assignment_RaisesError5, OptionsTests.PredeclaredObject_Read_ReturnsTheEmptyValueOfTheType -->
 > [!IMPORTANT] timeless
 > Assigning a property on the predeclared object itself raises run-time error 5, *Invalid procedure call or argument*, with the source `JsonOptions` and the message *JsonOptions (default instance) is a factory. Use Rfc, Jsonc, Minified, or Pretty.* Create an options object first and assign the properties of that.
 >
@@ -40,7 +43,9 @@ A property of an options object checks nothing when it is set. The value is used
 > ' Output:
 > ' 0|0|False||0|0
 > ```
+<!-- /test -->
 
+<!-- test: OptionsTests.New_Object_HasTheEmptyValueOfEachProperty, OptionsTests.New_Object_WritesNoLineBreaksButASpaceAfterEachColon, OptionsTests.New_Object_HasNoLimits -->
 > [!NOTE] BETA 1005
 > The class declares a **Private** constructor and the attribute `[COMCreatable(False)]`, so that only its presets create options objects. twinBASIC does not enforce a **Private** constructor, and a project that references the package can still create an object with **New**. Every property of such an object has the empty value of its type: **Indent** 0, an empty **Newline**, **Syntax** **jsRfc8259**, and a limit of 0, which means no limit. The text it writes has no line breaks and no indentation, but still a space after each colon. The presets are the way to get the defaults.
 >
@@ -77,6 +82,7 @@ Returns a new options object with the defaults of RFC 8259.
 
 Syntax: *options* **=** **JsonOptions.Rfc**
 
+<!-- test: OptionsTests.Rfc_HasTheDocumentedValues, OptionsTests.Presets_HaveTheDocumentedDefaults -->
 The object is independent of every other one, so it can be changed. These are its values:
 
 | Property | Value |
@@ -94,6 +100,8 @@ The object is independent of every other one, so it can be changed. These are it
 | [**MaxArrayItems**](#maxarrayitems) | 1000000 |
 | [**MaxObjectMembers**](#maxobjectmembers) | 1000000 |
 
+<!-- /test -->
+
 ```tb check_build check_run
 Dim o As JsonOptions = JsonOptions.Rfc
 Debug.Print o.Indent & " " & o.MaxDepth & " " & o.MaxBytes     ' 4 1000 16777216
@@ -107,7 +115,9 @@ Returns a new options object that accepts JSONC.
 
 Syntax: *options* **=** **JsonOptions.Jsonc**
 
+<!-- test: OptionsTests.JsoncMinifiedAndPretty_DifferFromRfcInOneProperty -->
 The same as [**Rfc**](#rfc), with [**Syntax**](#syntax) set to **jsJsonc**.
+<!-- /test -->
 
 ### Minified
 {: .no_toc }
@@ -134,7 +144,9 @@ Returns a copy of an options object.
 
 Syntax: *options***.Clone** ( ) **As** [**JsonOptions**](JsonOptions)
 
+<!-- test: OptionsTests.Clone_IsIndependentOfTheOriginal -->
 The copy has the same values and is independent: a change to it does not change the original.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim a As JsonOptions = JsonOptions.Rfc
@@ -238,6 +250,7 @@ o.DuplicateKeys = jdkLastWins
 Debug.Print Json.Serialize(Json.Parse(text, o), JsonOptions.Minified)   ' {"a":3,"b":2}
 ```
 
+<!-- test: compile QualifiedEnumMember -->
 The members of the three enumerations are written without a qualifier, as `jdkLastWins` is above; so are their names as types. The qualified form `JsonOptions.eJsonSyntax.jsJsonc` does not compile (TB5027, *Unrecognized member*).
 
 ```tb check_build check_run
@@ -251,6 +264,7 @@ Debug.Print s & " " & t & " " & e                         ' 1 5 3
 Dim o As JsonOptions = JsonOptions.Rfc
 o.Syntax = JsonOptions.eJsonSyntax.jsJsonc
 ```
+<!-- /test -->
 
 ### Encoding
 {: .no_toc }
@@ -292,7 +306,9 @@ When **True**, [**SerializeToUtf8**](Json#serializetoutf8), [**WriteFile**](Json
 
 ## Limits
 
+<!-- test: OptionsTests.Limits_ZeroOrBelowMeansNoLimit, ParseTests.Parse_LimitsOnStringsArraysAndObjects_AreLimitExceeded, ParseTests.Parse_DepthBeyondMaxDepth_IsDepthLimitExceeded -->
 A limit of 0 means that there is no limit, and so does a value below 0. A limit that is exceeded is the error `LimitExceeded`, except [**MaxDepth**](#maxdepth), which is `DepthLimitExceeded`.
+<!-- /test -->
 
 ### MaxArrayItems
 {: .no_toc }
diff --git a/docs/Reference/Contributed/tsJson/JsonPathQuery.md b/docs/Reference/Contributed/tsJson/JsonPathQuery.md
index 34461706..c6aa4071 100644
--- a/docs/Reference/Contributed/tsJson/JsonPathQuery.md
+++ b/docs/Reference/Contributed/tsJson/JsonPathQuery.md
@@ -10,6 +10,7 @@ has_toc: false
 
 A **JsonPathQuery** is a compiled JSONPath, as RFC 9535 defines the language. [**Json.CompilePath**](Json#compilepath) creates one. A query that is compiled once can be run on any number of documents, with the same four verbs as the [**Json**](Json) module: [**Query**](#query), [**QueryOne**](#queryone), [**TryQueryOne**](#tryqueryone) and [**QueryHits**](#queryhits).
 
+<!-- test: PathTests.CompiledQuery_RunsOnManyDocuments -->
 ```tb check_build check_run
 Dim q As JsonPathQuery = Json.CompilePath("$.items[*].id")
 Dim a As Variant = Json.Parse("{""items"":[{""id"":1},{""id"":2}]}")
@@ -23,14 +24,18 @@ Dim v As Variant
 Debug.Print q.TryQueryOne(Json.Parse("{}"), v)            ' False
 Debug.Print JsonError.HasError                            ' False
 ```
+<!-- /test -->
 
+<!-- test: PathTests.CompiledQuery_Verbs_ClearTheLastErrorAndSetNone, PathTests.CompilePath_InvalidPath_SetsTheErrorOfCompilePath -->
 A query that matches nothing is not an error. Each verb clears the last error when it starts and does not set one, because the path was checked when it was compiled; the origin of any error is therefore `Json.CompilePath` or the facade function that compiled the path.
+<!-- /test -->
 
 * TOC
 {:toc}
 
 ## Syntax
 
+<!-- test: PathTests.Query_Selectors_SelectWhatTheTableSays, PathTests.Query_SlicesDescendantsAndWildcards_FollowTheRfc -->
 A JSONPath starts with `$`, the root of the document, followed by any number of segments. A path of `$` alone selects the document itself.
 
 | Syntax | Selects |
@@ -45,7 +50,9 @@ A JSONPath starts with `$`, the root of the document, followed by any number of
 | `..name`, `..*`, `..[...]` | The same selection made on the value and on every value inside it, at any depth. |
 
 The selection works on values in document order: a value comes before the values inside it, and the members and elements in the order they have in the document. A value that several selectors select appears more than once. Space, tab, line feed and carriage return are allowed between tokens.
+<!-- /test -->
 
+<!-- test: PathTests.Query_FilterExpressions_BehaveAsTheTableSays -->
 A **filter** is an expression made of these parts:
 
 | Part | Meaning |
@@ -60,6 +67,7 @@ A **filter** is an expression made of these parts:
 | `match(text, pattern)`, `search(text, pattern)` | Whether the whole text, or a part of it, matches an I-Regexp. The text and the pattern are strings. The patterns of [**Json.IsMatchPattern**](Json#ismatchpattern) apply. |
 
 Values are compared as [**Json.Equals**](Json#equals) compares them for `==` and `!=`. The ordering comparisons apply to two numbers and to two strings; strings are ordered by UTF-16 code unit. `length` counts a string in UTF-16 code units.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim doc As Variant = Json.Parse("{""a"":[""a"",""b"",""c"",""d""],""o"":{""j"":1,""k"":{""j"":2}}}")
@@ -77,6 +85,7 @@ Debug.Print Json.Serialize(Json.Query(words, "$.a[?length(@.b) > 1]"), JsonOptio
 
 ### Where the syntax departs from RFC 9535
 
+<!-- test: PathTests.Filter_NotEqual_SelectsElementWithoutMember, PathTests.Filter_NegatedEqual_SelectsElementWithoutMember, PathTests.Filter_EqualOfTwoMissingValues_Selects, PathTests.Filter_MissingValueEqualsNothingElse, PathTests.Filter_LessOrEqual_EqualBooleans_Selects, PathTests.Filter_LessOrEqual_EqualNulls_Selects, PathTests.Filter_LessOrEqual_EqualArrays_Selects, PathTests.Filter_GreaterOrEqual_EqualBooleans_Selects, PathTests.Filter_LessOrEqual_NumbersAndStrings_Compare, PathTests.CompilePath_UnknownFunction_IsAnError, PathTests.CompilePath_WrongNumberOfArguments_IsAnError, PathTests.CompilePath_QueryThatSelectsManyValuesInComparison_IsAnError, PathTests.Query_UnknownFunction_SetsTheError, PathTests.CompilePath_FunctionNameStartingWithF_IsInvalidPath, PathTests.Filter_FractionLiteral_Compiles, PathTests.Filter_ExponentLiteral_Compiles, PathTests.Filter_NegativeFractionLiteral_Compiles, PathTests.Filter_IntegerLiteral_Compares, PathTests.Length_CountsUtf16CodeUnits, PathTests.QueryHits_ReturnsValueAndPointer, PathTests.Query_LeadingZeroIndex_IsAccepted, PathTests.Query_MemberNameStartingWithDigit_IsRefused -->
 The language of the package is a part of RFC 9535, with these differences. The first four are defects of version 1.0.15.0, because the RFC states the behavior they depart from; the first three give wrong results with no error, and [Known problems](.#known-problems-in-version-10150) shows them.
 
 - **A comparison with a missing value is false.** In RFC 9535 a query that selects nothing is a value that is equal to another such query and to nothing else, so `@.a != 1` is true for an element without `a`, and `@.a == @.b` is true for an element that has neither. In this package a comparison is false whenever either side selects no value or more than one, whatever the operator is. The elements without `a` are not selected by `[?@.a != 1]`, although `[?!(@.a == 1)]` selects them.
@@ -123,6 +132,7 @@ Debug.Print Json.Serialize(Json.Query(text, "$[?length(@.s) == 2].n"), JsonOptio
 ' $.0 -> InvalidPath: Expected member name.
 ' [1,2]
 ```
+<!-- /test -->
 
 
 ## Properties
diff --git a/docs/Reference/Contributed/tsJson/JsonSchema.md b/docs/Reference/Contributed/tsJson/JsonSchema.md
index 34071847..0dd4cb15 100644
--- a/docs/Reference/Contributed/tsJson/JsonSchema.md
+++ b/docs/Reference/Contributed/tsJson/JsonSchema.md
@@ -41,6 +41,7 @@ These keywords are evaluated. Any other keyword, such as `title`, `description`,
 
 A schema is an object or a Boolean. **True** accepts every value. **False** rejects every value with a failure whose keyword is `false`. The keywords of a schema object are all applied, `$ref` included: a `$ref` is evaluated as an applicator next to its siblings, as draft 2020-12 says.
 
+<!-- test: SchemaTests.Validate_Keywords_FollowTheDraft, SchemaTests.Type_Integer_AcceptsANumberWithNoFractionalPart, SchemaTests.MultipleOf_DividesAsDecimal, SchemaTests.MaxLength_CountsUtf16CodeUnits, SchemaTests.Pattern_Unanchored_FindsThePatternAnywhere, SchemaTests.Pattern_Anchored_AcceptsAStringThatMatchesWhole, SchemaTests.Pattern_Anchored_RejectsAStringThatDoesNotMatchWhole, SchemaTests.Pattern_ChoiceInGroup_TriesTheOtherAlternative, SchemaTests.PatternProperties_ChoiceInGroup_TriesTheOtherAlternative, SchemaTests.Pattern_InvalidPattern_NeverMatches -->
 Points that decide what is accepted:
 
 - **Types.** The `type` keyword takes one name or an array of names: `null`, `boolean`, `object`, `array`, `string`, `number` and `integer`. A number is an `integer` when it has no fractional part, whatever its written form is, so `1.0` is an integer.
@@ -64,6 +65,7 @@ Debug.Print Json.Validate(Json.Parse("0.3"), Json.Parse("{""multipleOf"":0.1}"))
 Debug.Print Json.Validate(Json.Parse("1.0"), Json.Parse("{""type"":""integer""}")).IsValid  ' True
 Debug.Print Json.Validate(Json.Parse("1.5"), Json.Parse("{""type"":""integer""}")).IsValid  ' False
 ```
+<!-- /test -->
 
 The failures that a value can have, with the keyword and the message of each, are on the page of [**JsonValidationError**](JsonValidationError#messages).
 
@@ -85,6 +87,7 @@ There is no network access. A reference to a document that is neither the curren
 
 ## Formats
 
+<!-- test: SchemaTests.Format_IsAnAnnotationUnlessAssertionIsAsked, SchemaTests.Format_DateTime_AcceptsATimeWithoutZone, SchemaTests.Format_Approximations_AcceptWhatThePageSays, SchemaTests.Format_Ipv4_AcceptsValidAddresses, SchemaTests.Format_Ipv4_RejectsWrongAddresses, SchemaTests.Format_Ipv4_FailureNamesTheFormatKeyword -->
 The `format` keyword is an annotation that rejects nothing, unless [**IsFormatAssertion**](JsonOptions#isformatassertion) is **True** in the options passed to [**Json.CompileSchema**](Json#compileschema) or [**Json.Validate**](Json#validate). Then it applies to strings, with these checks:
 
 | Format | A string is accepted when |
@@ -123,9 +126,11 @@ Debug.Print Json.Validate("1.2.3.4", ip, o).IsValid                    ' False
 Debug.Print Json.Validate("192.168.1.1", ip, o).IsValid                ' False
 Debug.Print Json.Validate("256.1.1.1", ip, o).IsValid                  ' False
 ```
+<!-- /test -->
 
 ## Where the package departs from JSON Schema 2020-12
 
+<!-- test: SchemaTests.Pattern_Anchored_AcceptsAStringThatMatchesWhole, SchemaTests.Pattern_Anchored_RejectsAStringThatDoesNotMatchWhole, SchemaTests.MaxLength_CountsUtf16CodeUnits, SchemaTests.Format_Approximations_AcceptWhatThePageSays, SchemaTests.Validate_UnusableKeyword_StopsEvaluationAndSetsTheError, SchemaTests.Validate_RefOutsideTheCatalogue_IsRemoteRef -->
 - **`pattern` and `patternProperties` use I-Regexp**, not the ECMA-262 regular expressions that the draft names. There are no anchors, and the matcher has the defects of [Known problems](.#known-problems-in-version-10150).
 - **`minLength` and `maxLength` count UTF-16 code units**, not characters.
 - **`format` is checked loosely**, as the table above shows, and `ipv4` is wrong for nearly every address.
@@ -145,6 +150,7 @@ JsonError.Clear
 Debug.Print Json.Validate(1, Json.Parse("{""minimum"":""x""}")).IsValid   ' True
 Debug.Print JsonError.Code                                ' WrongType
 ```
+<!-- /test -->
 
 ## Methods
 
diff --git a/docs/Reference/Contributed/tsJson/index.md b/docs/Reference/Contributed/tsJson/index.md
index dbc0b031..e52e584f 100644
--- a/docs/Reference/Contributed/tsJson/index.md
+++ b/docs/Reference/Contributed/tsJson/index.md
@@ -68,6 +68,7 @@ End If
 
 ## The JSON model
 
+<!-- test: ModelTests.TypeOfValue_ClassifiesTheValuesOfTheModel, ModelTests.Keys_AreComparedByCharacterCode, ModelTests.Clone_CopiesEveryContainer, ModelTests.Assignment_SharesTheContainer, ModelTests.Query_ReturnsTheContainersInsideTheDocument, NumberTests.Parse_Number_IsADecimal, ParseTests.Parse_DateText_StaysAString, DatesTests.Serialize_Date_IsAnIsoString, DatesTests.Json_Date_IsNotAJsonValue, SerializeTests.Serialize_ValuesThatAreNotJson_AreUnsupportedType, SerializeTests.Serialize_VariantArray_IsAJsonArray, PointerTests.PointerGet_ReturnsTheContainerInsideTheDocument, PointerTests.PointerSet_DashToken_AppendsToTheArray, PatchTests.Patch_DoesNotChangeTheDocument, PatchTests.MergePatch_DoesNotChangeTheDocument, ErrorStateTests.EmptyList_UBoundRaisesError9, ErrorStateTests.EmptyList_KeysItemsAndToVariantArray_AreUnbound, ErrorStateTests.EmptyList_QueryHitsAndErrors_AreUnbound -->
 A value of JSON has these counterparts in twinBASIC. A function that reads JSON creates them, and a function that writes JSON accepts them.
 
 | JSON | In twinBASIC | Notes |
@@ -84,10 +85,13 @@ A **Date** is not a JSON value. [**Json.Serialize**](Json#serialize) writes one
 A value that is read from a document is the object or array inside it, not a copy. Changing it changes the document. [**Json.Clone**](Json#clone) makes a deep copy, and the functions that return a changed document ([**PointerSet**](Json#pointerset), [**PointerRemove**](Json#pointerremove), [**Patch**](Json#patch), [**MergePatch**](Json#mergepatch)) work on a copy and leave their argument as it was.
 
 Where a function returns a list, the array is unbound when the list is empty, and `UBound` raises run-time error 9 for it. This applies to [**Json.Query**](Json#query), [**Json.QueryHits**](Json#queryhits), [**JsonObject.Keys**](JsonObject#keys), [**JsonObject.Items**](JsonObject#items), [**JsonArray.ToVariantArray**](JsonArray#tovariantarray) and [**JsonValidationResult.Errors**](JsonValidationResult#errors). [**Json.Serialize**](Json#serialize) writes such an array as `[]`.
+<!-- /test -->
 
 ## Errors
 
+<!-- test: ErrorStateTests.Parse_Failure_ReturnsEmptyAndSetsTheError, ErrorStateTests.Parse_AfterAFailure_ClearsTheError, ErrorStateTests.TryParse_Failure_ReportsTheOriginOfParse, ErrorStateTests.PureFunctions_LeaveTheLastErrorAlone, ErrorStateTests.Query_NothingMatches_IsEmptyWithNoError, PatternTests.IsMatchPattern_InvalidPattern_IsFalseWithNoError, ErrorStateTests.QueryHits_InvalidPath_SetsInvalidPath, PointerTests.PointerGet_MissingPlace_SetsPathUpToTheFailingToken -->
 The package does not raise run-time errors for bad data or bad arguments. A function that fails returns an empty result (**Empty**, **Nothing**, an empty string or **False**) and sets the last error, which the predeclared object [**JsonError**](JsonError) reports: **HasError** is **True**, **Code** is a short name such as `InvalidSyntax`, and **Message**, **Origin**, the position in the text and the JSON Pointer of the place say more. A function that can fail clears the last error when it starts, so the last error belongs to the latest call. A search that finds nothing, and an invalid regular expression given to a pattern function, are not errors. [**JsonError**](JsonError#error-codes) lists the codes.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim v As Variant = Json.Parse("[1, 2,]")
@@ -98,7 +102,9 @@ Debug.Print Json.TryParse("[1, 2,]", v, JsonOptions.Jsonc)   ' True
 Debug.Print Json.Serialize(v, JsonOptions.Minified)          ' [1,2]
 ```
 
+<!-- test: OptionsTests.PredeclaredObject_Assignment_RaisesError5, ErrorStateTests.Parse_FailedResultAssignedToObjectVariable_RaisesError424, ErrorStateTests.EmptyList_UBoundRaisesError9 -->
 The package itself raises a run-time error on purpose in one case: an assignment to a property of the predeclared [**JsonOptions**](JsonOptions) object, which is a factory (error 5). The other run-time errors that a program meets are those of the language, such as error 91 for a call on the **Nothing** that a failed function returned, error 424 for the assignment of the **Empty** that a failed [**Parse**](Json#parse) returned to a variable of a class type, and error 9 for `UBound` of an unbound array. One more comes from [**Serialize**](Json#serialize), which raises error -2147467259 for a two-dimensional array, and leaves the last error stuck (see [Known problems](#known-problems-in-version-10150)).
+<!-- /test -->
 
 ## The standards
 
@@ -118,16 +124,18 @@ The package reads and writes text, byte arrays (UTF-8, UTF-16 little endian and
 
 ### Where the package departs from the standards
 
+<!-- test: PointerTests.PointerGet_UriFragmentForm_IsInvalidPointer, PatchTests.Patch_SingleOperationObject_IsAccepted, PatchTests.Patch_Add_FollowsRfc6902, PatchTests.Patch_AddToMissingParent_Fails, PatchTests.Patch_Remove_FollowsRfc6902, PatchTests.Patch_RemoveMissingPlace_Fails, PatchTests.Patch_Replace_FollowsRfc6902, PatchTests.Patch_ReplaceMissingPlace_Fails, PatchTests.Patch_Move_FollowsRfc6902, PatchTests.Patch_MoveFromParentOfPath_Fails, PatchTests.Patch_Copy_FollowsRfc6902, PatchTests.Patch_Test_FollowsRfc6902, PatchTests.Patch_TestThatFails_IsPatchTestFailed, PatchTests.MergePatch_FollowsRfc7396, PatchTests.MergePatch_PatchThatIsNotAnObject_ReplacesTheDocument, PathTests.Length_CountsUtf16CodeUnits, PathTests.Query_LeadingZeroIndex_IsAccepted, PathTests.QueryHits_ReturnsValueAndPointer, PathTests.CompilePath_FunctionNameStartingWithF_IsInvalidPath, PatternTests.IsMatchPattern_ClassEscapes_AreAccepted, SchemaTests.MaxLength_CountsUtf16CodeUnits, SchemaTests.Format_Approximations_AcceptWhatThePageSays, SchemaTests.Format_DateTime_AcceptsATimeWithoutZone, DatesTests.ParseIso8601_DateAndTime_AreRead, DatesTests.ParseIso8601_FormsOutsideTheSubset_AreInvalidDate, ParseTests.Parse_Bytes_AreDecodedByTheByteOrderMark, ErrorStateTests.Parse_ByteOrderMarkInString_IsInvalidSyntax -->
 Each departure is described where it applies; this is the list.
 
 - **RFC 8259.** The reading is strict. A number that a **Decimal** cannot hold is an error, which the RFC allows an implementation to do ([Parse](Json#parse)). The package accepts a byte order mark in bytes but not at the start of a **String**.
 - **RFC 6901.** The form of a pointer as a URI fragment, `#/a/b`, is not accepted. An empty token after another token names the wrong place (a defect, in [Known problems](#known-problems-in-version-10150)).
-- **RFC 6902.** A patch can be a single operation object, which the RFC does not allow. The operations behave as the RFC says in every case that was tested: the add, remove, replace, move, copy and test operations, the index rules for arrays and the handling of the root.
-- **RFC 7396.** None found.
+- **RFC 6902.** A patch can be a single operation object, which the RFC does not allow. The operations behave as the RFC says: the add, remove, replace, move, copy and test operations, the index rules for arrays and the handling of the root.
+- **RFC 7396.** None.
 - **RFC 9535.** A comparison with a missing value is false, `<=` and `>=` are false for equal values that are not numbers or strings, a call of an unknown function is not an error, a number literal in a filter must be an integer, `length` counts UTF-16 code units, and the results are values and pointers, not normalized paths. The first three are defects ([JsonPathQuery](JsonPathQuery#where-the-syntax-departs-from-rfc-9535)).
 - **RFC 9485.** The matcher accepts `\d`, `\s` and `\w`, which the RFC leaves out, and does not accept `\n`, `\r`, `\t`, `\-`, `\^` or a hyphen after a single character at the end of a set, which the RFC has. It does not try the other alternatives of a choice once one has matched ([Patterns](Json#patterns)).
 - **JSON Schema, draft 2020-12.** `pattern` uses I-Regexp, not ECMA-262 regular expressions; lengths are counted in UTF-16 code units; `format` is checked loosely, and `ipv4` wrongly; some keywords are not evaluated ([JsonSchema](JsonSchema#where-the-package-departs-from-json-schema-2020-12)).
 - **ISO 8601.** Only the extended forms with a date, or with a date and a time with seconds, are read ([ParseIso8601](Json#parseiso8601)).
+<!-- /test -->
 
 Compared with the other JSON sections of this reference: [**VBA_JSON**](../VBA_JSON/) and the [**cJson**](../TBMANLIB/cJson) class of TBMANLIB (which uses the VBA-JSON code) return **Dictionary** and **Collection** objects, read numbers as **Double** or, when long, as **String**, and raise run-time error 10001 for text they cannot read, while VBA-JSON does not check for commas between items and ignores text after the value. tsJson has its own classes, reads numbers as **Decimal**, accepts only valid JSON unless JSONC is asked for, and reports errors through **JsonError**.
 
@@ -200,6 +208,7 @@ Debug.Print Tests.Run()    ' mine
 
 ## Known problems in version 1.0.15.0
 
+<!-- test: PatternTests.IsMatchPattern_LongerAlternativeSecond_Matches, PatternTests.IsMatchPattern_ChoiceInGroup_TriesTheOtherAlternative, PatternTests.IsMatchPattern_LongerAlternativeFirst_Matches, PatternTests.IsSearchPattern_ChoiceInGroup_TriesTheOtherAlternative, PatternTests.Match_JsonPathFunction_TriesTheOtherAlternative, PatternTests.Search_JsonPathFunction_TriesTheOtherAlternative, SchemaTests.Pattern_ChoiceInGroup_TriesTheOtherAlternative, SchemaTests.PatternProperties_ChoiceInGroup_TriesTheOtherAlternative, PatternTests.IsValidPattern_EscapeTab_IsValid, PatternTests.IsValidPattern_EscapeLineFeed_IsValid, PatternTests.IsValidPattern_EscapeCarriageReturn_IsValid, PatternTests.IsMatchPattern_SetWithLineFeedEscape_MatchesLineFeed, PatternTests.IsMatchPattern_SetWithTabEscape_MatchesTab, PatternTests.IsValidPattern_EscapeHyphen_IsValid, PatternTests.IsValidPattern_EscapeCaret_IsValid, PatternTests.IsValidPattern_SetEndingInHyphen_IsValid, PatternTests.IsMatchPattern_SetStartingWithHyphen_MatchesHyphen, SchemaTests.Pattern_Anchored_AcceptsAStringThatMatchesWhole, SchemaTests.Pattern_Anchored_RejectsAStringThatDoesNotMatchWhole, PathTests.Filter_NotEqual_SelectsElementWithoutMember, PathTests.Filter_NegatedEqual_SelectsElementWithoutMember, PathTests.Filter_EqualOfTwoMissingValues_Selects, PathTests.Filter_MissingValueEqualsNothingElse, PathTests.Filter_LessOrEqual_EqualBooleans_Selects, PathTests.Filter_LessOrEqual_EqualNulls_Selects, PathTests.Filter_LessOrEqual_EqualArrays_Selects, PathTests.Filter_GreaterOrEqual_EqualBooleans_Selects, PathTests.Filter_LessOrEqual_NumbersAndStrings_Compare, PathTests.CompilePath_UnknownFunction_IsAnError, PathTests.CompilePath_WrongNumberOfArguments_IsAnError, PathTests.CompilePath_QueryThatSelectsManyValuesInComparison_IsAnError, PathTests.Query_UnknownFunction_SetsTheError, PointerTests.PointerGet_EmptyTokenAfterToken_NamesTheEmptyKey, PointerTests.PointerSet_EmptyTokenAfterToken_ChangesTheEmptyKey, PointerTests.PointerRemove_EmptyTokenAfterToken_RemovesTheEmptyKey, PointerTests.PointerExists_EmptyTokenAfterToken_IsFalseWhereTheKeyIsMissing, PointerTests.Patch_ReplaceAtEmptyTokenAfterToken_ChangesTheEmptyKey, PointerTests.QueryHits_EmptyKey_PointerReadsTheSameValue, SchemaTests.Format_Ipv4_AcceptsValidAddresses, SchemaTests.Format_Ipv4_RejectsWrongAddresses, SchemaTests.Format_Ipv4_FailureNamesTheFormatKeyword, ErrorStateTests.Serialize_TwoDimensionalArray_RaisesNoRunTimeError, ErrorStateTests.Serialize_TwoDimensionalArray_SetsTheLastError, ErrorStateTests.Parse_AfterARunTimeErrorInSerialize_ClearsTheLastError, ErrorStateTests.Parse_AfterARunTimeErrorInSerialize_SetsItsOwnOrigin, DatesTests.FormatIso8601_MillisecondsAboveHalfASecond_KeepTheSecondAndTheFraction, DatesTests.Serialize_DateWithMillisecondsAboveHalfASecond_KeepsTheFraction -->
 > [!WARNING] 1.0.15.0
 > These problems give a wrong result with no error.
 >
@@ -210,6 +219,7 @@ Debug.Print Tests.Run()    ' mine
 > - **A JSON Pointer with an empty token after another token names the wrong place.** The token is read as a copy of the token before it, so `/a/` is read as `/a/a`: [**PointerGet**](Json#pointerget) returns the wrong value, and [**PointerSet**](Json#pointerset), [**PointerRemove**](Json#pointerremove) and [**Patch**](Json#patch) change the wrong member. The pointers that [**QueryHits**](Json#queryhits) returns for a member with an empty key are affected. The code declares a variable inside a loop and relies on it being empty in each pass; twinBASIC, like VBA, keeps its value from the pass before.
 > - **The `ipv4` format rejects almost every valid address** when [**IsFormatAssertion**](JsonOptions#isformatassertion) is **True**, for the same reason: the number of the previous part is not set back to 0.
 > - **A run-time error that escapes from a function stops the last error from being cleared.** [**Json.Serialize**](Json#serialize) raises error -2147467259 for a two-dimensional array. The function has by then marked the call as nested, and the mark stays: from then on a function neither clears the last error when it starts nor sets its origin, so [**JsonError.HasError**](JsonError#haserror) stays **True** after a call that worked, and the origin of an error is `Json.Serialize`. The call `JsonErrorStore.LeaveNested`, of an internal module, ends the mark.
+> - **A time with more than 500 milliseconds is written a second late.** [**FormatIso8601**](Json#formatiso8601) writes 09:15:30.750 as `09:15:31`, with no fraction, and 23:59:59.750 as midnight of the next day. [**Serialize**](Json#serialize) writes a **Date** the same way. A time of 500 milliseconds or less is written correctly.
 >
 > ```tb check_build check_run
 > Debug.Print Json.IsMatchPattern("ab", "a|ab")                    ' False
@@ -283,7 +293,14 @@ Debug.Print Tests.Run()    ' mine
 > v = Json.Parse("[1]")
 > Debug.Print JsonError.HasError                            ' False
 > ```
+>
+> ```tb check_build check_run
+> Debug.Print Json.FormatIso8601(Json.ParseIso8601("2026-08-19T09:15:30.500"))   ' 2026-08-19T09:15:30.500
+> Debug.Print Json.FormatIso8601(Json.ParseIso8601("2026-08-19T09:15:30.750"))   ' 2026-08-19T09:15:31
+> Debug.Print Json.FormatIso8601(Json.ParseIso8601("2026-08-19T23:59:59.750"))   ' 2026-08-20T00:00:00
+> ```
 
+<!-- test: NumberTests.Parse_ExponentAboveTheDecimalRange_IsInvalidNumber, NumberTests.Parse_ScaleBelowTheDecimalRange_IsInvalidNumber, NumberTests.Parse_ThirtySixDigitNumber_IsInvalidNumber, NumberTests.Parse_LargestDouble_IsInvalidNumber, NumberTests.Parse_NumbersInsideTheDecimalRange_KeepEveryDigit, NumberTests.Serialize_DoubleAboveTheDecimalRange_IsInvalidNumber, NumberTests.Serialize_DoubleJustAboveTheDecimalRange_IsInvalidNumber, PathTests.Filter_FractionLiteral_Compiles, PathTests.Filter_ExponentLiteral_Compiles, PathTests.Filter_NegativeFractionLiteral_Compiles, PathTests.Filter_IntegerLiteral_Compares, RunnerTests.SetContinueOnFail_False_StopsAtTheFirstFailedCheck, RunnerTests.SetContinueOnFail_True_RunsEveryCheck -->
 > [!NOTE] 1.0.15.0
 > The package has three more problems, each of which is an error that the reader cannot miss.
 >
@@ -322,3 +339,7 @@ Debug.Print Tests.FailCount()
 - [Importing a package from TWINSERV](../../../../Features/Packages/Importing-TWINSERV) -- adding a published package to a project
 - [VBA_JSON](../VBA_JSON/) package -- JSON parsing and writing with **Dictionary** and **Collection** objects
 - [cJson](../TBMANLIB/cJson) class -- the JSON class of TBMANLIB
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [tsJson-tests.twinproj](tsJson-tests.twinproj), a twinBASIC project. It uses tsJson as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/tsPwGen/PwGen.md b/docs/Reference/Contributed/tsPwGen/PwGen.md
index 5b8b0f51..0db85e62 100644
--- a/docs/Reference/Contributed/tsPwGen/PwGen.md
+++ b/docs/Reference/Contributed/tsPwGen/PwGen.md
@@ -21,6 +21,7 @@ Debug.Print token Like "*[!0-9a-f]*"  ' False
 
 The module has no settings. Its only state is the last error, which [**PwGenError**](PwGenError) reports. A recipe that cannot be used does not raise a run-time error: the function returns an empty string, or 0, and sets the last error. Every function of the module clears the last error when it starts, so after a call the last error belongs to that call.
 
+<!-- test: compile UnqualifiedEntropy, compile UnqualifiedGenerate -->
 > [!NOTE] 1.0.8.0
 > Write the module name in every call, as in `PwGen.Generate`. The package's internal module **PwGenEngine** also declares public functions named **Generate** and **Entropy**, so a call written without the module name fails with TB5073, *'Entropy' is ambiguous*, or *'Generate' is ambiguous*.
 >
@@ -95,7 +96,10 @@ Syntax: **PwGen.BuiltInWord** ( *list*, *index* ) **As String**
 *index*
 : *required* A **Long**, the position of the word in the list. The first word has index 0, so the valid values run from 0 to [**BuiltInWordCount**](#builtinwordcount) minus 1.
 
+<!-- test: WordlistTests.BuiltInWord_FirstAndLastWordsOfBothLists, WordlistTests.BuiltInWord_IndexOutsideTheList_IndexOutOfRange, WordlistTests.BuiltInWord_NotAList_InvalidWordlist -->
 Returns the word, or an empty string when the call fails. The call fails with `InvalidWordlist` when *list* is not a member of **ePwGenWordlist**, and with `IndexOutOfRange` when *index* is below 0 or not below the number of words. Each call copies the whole list internally.
+<!-- /test -->
+
 
 ```tb check_build check_run
 Debug.Print PwGen.BuiltInWord(pgwEnglish, 0)   ' abandon
@@ -117,7 +121,9 @@ Syntax: **PwGen.BuiltInWordCount** ( *list* ) **As Long**
 *list*
 : *required* An [**ePwGenWordlist**](#epwgenwordlist) member that names the list.
 
+<!-- test: WordlistTests.BuiltInWordCount_NotAList_InvalidWordlist -->
 Returns 8192 for **pgwEnglish** and for **pgwGerman**. Returns 0 and sets the error `InvalidWordlist` when *list* is not a member of **ePwGenWordlist**.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print PwGen.BuiltInWordCount(pgwEnglish)   ' 8192
@@ -137,6 +143,7 @@ Syntax: **PwGen.Entropy** ( [ *options* ] ) **As Double**
 *options*
 : *optional* The [**PwGenOptions**](PwGenOptions) recipe whose entropy is wanted. **Nothing**, the default, means a new **Alphanumeric** recipe. The recipe is not changed.
 
+<!-- test: EntropyTests.Entropy_InvalidRecipe_ReturnsZeroAndSetsTheError, EntropyTests.Entropy_ClearsTheLastErrorWhenItStarts, EntropyTests.Entropy_DoesNotChangeTheRecipe, EntropyTests.Entropy_DoesNotFindTheErrorsThatArisePerDraw, RandomSourceTests.Entropy_DoesNotUseTheSource, ConsecutiveRepeatTests.FixedSource_DrawsThatCannotBeArranged_CannotAvoidRepeats -->
 Returns the entropy as a **Double**, or 0 and the last error when the recipe cannot be used. The recipe is checked as [**Generate**](#generate) checks it, with the origin `PwGen.Entropy`. The errors that can arise only while characters are drawn are not found: `RngFailed`, `CannotAvoidRepeats` with the message *could not place characters without consecutive repeats*, and `LengthTooShort` with the message *Length is too small for MinPerClass and StartsWithLetter*. **Entropy** does not use the recipe's [**RandomSource**](PwGenOptions#randomsource). The codes are listed under [Error codes](PwGenError#error-codes).
 
 The figure is computed as follows:
@@ -145,6 +152,7 @@ The figure is computed as follows:
 - **Wordlist mode.** `WordCount * log2(n)`, where *n* is the number of words in the list: the custom list when [**CustomWords**](PwGenOptions#customwords) has words, otherwise the built-in list. When [**HasUniqueWords**](PwGenOptions#hasuniquewords) is **True**, the sum of `log2(n - i)` for *i* from 0 to `WordCount - 1`.
 
 The logarithm is computed as `Log(x) / Log(2)`, so a result can differ from the exact figure in its last digits: the entropy of the **Passphrase** preset is 65 up to rounding. The figure does not take the constraints of random mode into account: [**MinPerClass**](PwGenOptions#minperclass), [**StartsWithLetter**](PwGenOptions#startswithletter) and [**HasNoConsecutiveRepeats**](PwGenOptions#hasnoconsecutiverepeats) make some results impossible or less likely than others, so the entropy of the passwords actually drawn can be lower. The separator and [**Capitalize**](PwGenOptions#capitalize) of a passphrase add nothing.
+<!-- /test -->
 
 ```tb check_build check_run
 Debug.Print Int(PwGen.Entropy())                         ' 93
@@ -171,7 +179,9 @@ Syntax: **PwGen.Generate** ( [ *options* ] ) **As String**
 *options*
 : *optional* The [**PwGenOptions**](PwGenOptions) recipe to use. **Nothing**, the default, means a new **Alphanumeric** recipe: 16 characters from the letters and digits, without the look-alikes `0O1lI`. The recipe is not changed.
 
+<!-- test: FactoryTests.Generate_DoesNotChangeTheRecipe, ErrorTests.EveryFunction_ClearsTheLastErrorWhenItStarts, RandomSourceTests.OutOfRangeSource_RngFailed -->
 Returns the password or passphrase. When the recipe cannot be used, or the random source fails, returns an empty string and sets the last error, which [**PwGenError**](PwGenError) reports. The last error is cleared first, so **PwGenError.HasError** after a successful call is **False**. The codes that can be set are listed under [Error codes](PwGenError#error-codes), with the origin `PwGen.Generate`.
+<!-- /test -->
 
 The [**Mode**](PwGenOptions#mode) of the recipe decides what is generated. In random mode the result has [**Length**](PwGenOptions#length) characters, in wordlist mode [**WordCount**](PwGenOptions#wordcount) words. [Random mode](PwGenOptions#random-mode) and [Wordlist mode](PwGenOptions#wordlist-mode) describe how the pool is built and what is drawn. All randomness comes from the recipe's [**RandomSource**](PwGenOptions#randomsource), or from [**PwGenCryptoSource**](PwGenCryptoSource) when it is **Nothing**.
 
@@ -201,7 +211,9 @@ Syntax: **PwGen.TryGenerate** ( *password* [ , *options* ] ) **As Boolean**
 *options*
 : *optional* The [**PwGenOptions**](PwGenOptions) recipe to use. **Nothing**, the default, means a new **Alphanumeric** recipe.
 
+<!-- test: ErrorTests.TryGenerate_Success_ReturnsTrueAndThePassword, ErrorTests.TryGenerate_Failure_ReturnsFalseAndAnEmptyString -->
 Returns **True** when a result was generated and **False** when not. It calls [**Generate**](#generate) and tests the last error, so the last error is set as **Generate** sets it, with the origin `PwGen.Generate`, and the codes are the same.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim pw As String
diff --git a/docs/Reference/Contributed/tsPwGen/PwGenCryptoSource.md b/docs/Reference/Contributed/tsPwGen/PwGenCryptoSource.md
index c65e8652..3302ef10 100644
--- a/docs/Reference/Contributed/tsPwGen/PwGenCryptoSource.md
+++ b/docs/Reference/Contributed/tsPwGen/PwGenCryptoSource.md
@@ -10,6 +10,7 @@ has_toc: false
 
 A **PwGenCryptoSource** is the random source that the package uses when a recipe's [**RandomSource**](PwGenOptions#randomsource) is **Nothing**. It implements [**PwGenRandom**](PwGenRandom) with the random numbers of the Windows Cryptography API: Next Generation (CNG).
 
+<!-- test: CryptoSourceTests.NewPwGenCryptoSource_CanBeCreatedWithNew, CryptoSourceTests.NextInRange_ReturnsANumberOfTheInterval, CryptoSourceTests.NextInRange_EqualBounds_ReturnsThatNumber -->
 The class has no public member of its own. Its one method, **NextInRange**, is **Private** and is reached through a variable of the type **PwGenRandom**. The package's own description of the class calls it internal. It is declared without **Private**, and has neither a **Private** constructor nor `[COMCreatable(False)]`, so a project can create one with **New**.
 
 ```tb check_build check_run
@@ -19,13 +20,16 @@ Dim n As Long = src.NextInRange(1, 6)
 Debug.Print n >= 1 And n <= 6          ' True
 Debug.Print src.NextInRange(3, 3)      ' 3
 ```
+<!-- /test -->
 
+<!-- test: compile PrivateNextInRange -->
 A variable declared with the class itself cannot call the method, because it is **Private**. The compiler reports TB5027, *Unrecognized member 'NextInRange'*:
 
 ```tb check_build expect-error=TB5027
 Dim s As New PwGenCryptoSource
 Debug.Print s.NextInRange(1, 6)
 ```
+<!-- /test -->
 
 ## How the numbers are produced
 
@@ -42,6 +46,7 @@ The class keeps no state. The package creates one instance when it first needs i
 
 ## Errors
 
+<!-- test: CryptoSourceTests.NextInRange_ReversedBounds_InvalidRange, CryptoSourceTests.NextInRange_ReversedBounds_RaisesNoRunTimeError -->
 The source raises no run-time error. It reports a problem through the last error of the package, [**PwGenError**](PwGenError), and returns 0:
 
 - `InvalidRange`, with the message *lowerBound is greater than upperBound*, when the bounds are reversed. The origin is an empty string.
@@ -54,7 +59,9 @@ Debug.Print src.NextInRange(5, 1)     ' 0
 Debug.Print PwGenError.Code           ' InvalidRange
 Debug.Print PwGenError.Origin = ""    ' True
 ```
+<!-- /test -->
 
+<!-- test: CryptoSourceTests.NextInRange_AfterAnEarlierFailure_StillReturnsANumberOfTheInterval, CryptoSourceTests.NextInRange_AfterClear_ReturnsANumberOfTheInterval, CryptoSourceTests.PwGenFunctions_AreNotAffectedByAnEarlierFailure -->
 > [!WARNING] 1.0.8.0
 > **NextInRange** does not clear the last error before it starts, and it returns 0 whenever the last error is already set. It raises no error and sets no error of its own, so a direct call made after any earlier failure of the package returns 0 even when the bounds do not include 0, and the last error still belongs to the earlier failure. Call [**PwGenError.Clear**](PwGenError#clear) first. The functions of [**PwGen**](PwGen) do this themselves, so a recipe is not affected.
 >
@@ -83,7 +90,9 @@ Syntax: *source*.**NextInRange** ( *lowerBound*, *upperBound* ) **As Long**
 
 The method is **Private**: it is called through a **PwGenRandom** variable, as [**PwGenRandom.NextInRange**](PwGenRandom#nextinrange) describes. The two parameters are **Long** values; *lowerBound* must not be above *upperBound*.
 
+<!-- test: CryptoSourceTests.NextInRange_NegativeAndLargeBounds_StayInTheInterval -->
 Returns the number, or 0 after `InvalidRange` or `RngFailed`. The bounds can be any two **Long** values, in the right order.
+<!-- /test -->
 
 ## See Also
 
diff --git a/docs/Reference/Contributed/tsPwGen/PwGenError.md b/docs/Reference/Contributed/tsPwGen/PwGenError.md
index 0c7bd012..0d8a3819 100644
--- a/docs/Reference/Contributed/tsPwGen/PwGenError.md
+++ b/docs/Reference/Contributed/tsPwGen/PwGenError.md
@@ -10,9 +10,11 @@ has_toc: false
 
 The **PwGenError** object reports the last error of the package: whether there is one, its code, its message and the function that found it.
 
+<!-- test: ErrorTests.Members_WhenThereIsNoError_AreEmpty, ErrorTests.NewPwGenError_ReportsTheSameError -->
 **PwGenError** is a predeclared object. It is used by its name, without a variable. The error itself is stored in the package, not in the object, and the package keeps a single last error, so an object created with **New** reports the same error as the predeclared object. There is no member that sets it.
 
 The functions of [**PwGen**](PwGen) do not raise run-time errors. A function that fails returns an empty string, or 0, and sets the last error. Each function of **PwGen** clears the last error when it starts, so the last error belongs to the latest call. To keep an error across the next call, copy it with [**Snapshot**](#snapshot).
+<!-- /test -->
 
 ```tb check_build check_run
 Dim o As PwGenOptions = PwGenOptions.Alphanumeric
@@ -34,6 +36,8 @@ Debug.Print PwGenError.ToString()   ' PwGen.Generate: InvalidLength - Length mus
 
 The code is a **String** that names the error. It is case-sensitive. These are the codes that [**PwGen**](PwGen) and [**PwGenCryptoSource**](PwGenCryptoSource) set, with the message that goes with each. A code with two messages is set in two situations.
 
+<!-- test: RandomModeTests.Mode_NotAMember_InvalidMode, RandomModeTests.Length_Limits, RandomModeTests.MinPerClass_Negative_InvalidMinPerClass, RandomModeTests.NoCharset_NoClassAndNoAlphabet, RandomModeTests.ExcludeChars_AClassWithNoCharacterLeft_EmptyClass, RandomModeTests.MinPerClass_LengthBelowMinPerClassTimesClasses_LengthTooShort, EntropyTests.Entropy_DoesNotFindTheErrorsThatArisePerDraw, RandomModeTests.StartsWithLetter_PoolWithoutALetter_CannotStartWithLetter, ConsecutiveRepeatTests.OneCharacterPool_CannotAvoidRepeats, ConsecutiveRepeatTests.FixedSource_DrawsThatCannotBeArranged_CannotAvoidRepeats, RandomSourceTests.OutOfRangeSource_RngFailed, CryptoSourceTests.NextInRange_ReversedBounds_InvalidRange, WordlistTests.WordCount_Limits, WordlistTests.CustomWords_EmptyWord_EmptyWord, WordlistTests.CustomWords_EqualWords_DuplicateWord, WordlistTests.CustomWords_WordsThatDifferInCaseAreDifferent, WordlistTests.UniqueWords_MoreWordsThanTheList_NotEnoughWords, WordlistTests.Wordlist_NotAMember_InvalidWordlist, WordlistTests.BuiltInWordCount_NotAList_InvalidWordlist, WordlistTests.BuiltInWord_IndexOutsideTheList_IndexOutOfRange, RandomModeTests.SeveralFaults_TheFirstFoundIsReported, RandomModeTests.RandomMode_DoesNotReadTheWordlistProperties, WordlistTests.WordlistMode_DoesNotReadTheRandomModeProperties -->
+
 | Code | Message | Set when |
 |:-----|:--------|:---------|
 | `InvalidMode` | Mode is not a known ePwGenMode member. | [**Mode**](PwGenOptions#mode) is neither **pgmRandom** nor **pgmWordlist**. |
@@ -57,7 +61,9 @@ The code is a **String** that names the error. It is case-sensitive. These are t
 | `IndexOutOfRange` | word index is outside the list. | The index passed to [**BuiltInWord**](PwGen#builtinword) is negative or not below the number of words. |
 
 A recipe with several faults sets one error, the first fault that the package finds. In random mode the properties of wordlist mode are not checked, and the other way round.
+<!-- /test -->
 
+<!-- test: ErrorTests.UnusedCodes_NoRecipeSetsEmptyCharsetOrEmptyWordlist -->
 > [!NOTE] 1.0.8.0
 > The package declares two more codes, `EmptyCharset` and `EmptyWordlist`. No recipe sets them: the package's own tests list them as having no trigger, together with `InvalidRange`, which only a direct call of the default random source can set.
 
@@ -126,7 +132,9 @@ Clears the last error.
 
 Syntax: **PwGenError.Clear**
 
+<!-- test: ErrorTests.Clear_EmptiesTheLastError -->
 After the call, [**HasError**](#haserror) is **False** and [**Code**](#code), [**Message**](#message) and [**Origin**](#origin) are empty strings. The functions of [**PwGen**](PwGen) call it themselves when they start, so a program needs it only to discard an error that it has read.
+<!-- /test -->
 
 ### Snapshot
 {: .no_toc }
@@ -135,7 +143,9 @@ Returns a copy of the last error.
 
 Syntax: *snap* **=** **PwGenError.Snapshot** ( ) **As** [**tPwGenError**](#tpwgenerror)
 
+<!-- test: ErrorTests.Snapshot_KeepsTheErrorOfTheTimeOfTheCall, ErrorTests.Snapshot_WithNoError_IsEmpty -->
 Returns a [**tPwGenError**](#tpwgenerror) with the values of **HasError**, **Code**, **Message** and **Origin** at the time of the call. The copy belongs to the caller: the next call of a **PwGen** function, which clears the last error, does not change it.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim o As PwGenOptions = PwGenOptions.Alphanumeric
diff --git a/docs/Reference/Contributed/tsPwGen/PwGenOptions.md b/docs/Reference/Contributed/tsPwGen/PwGenOptions.md
index 81b11894..b3cdc5f4 100644
--- a/docs/Reference/Contributed/tsPwGen/PwGenOptions.md
+++ b/docs/Reference/Contributed/tsPwGen/PwGenOptions.md
@@ -22,8 +22,11 @@ Debug.Print Len(pw)                          ' 20
 Debug.Print Left$(pw, 1) Like "[A-Za-z]"     ' True
 ```
 
+<!-- test: FactoryTests.Setters_CheckNothingWhenAValueIsSet, RandomModeTests.Length_IsNotCheckedWhenItIsSet -->
 A property of a recipe checks nothing when it is set. A value that cannot be used, such as a **Length** of 0, is found when the recipe is passed to **Generate** or **Entropy**, and is reported there as an error code.
+<!-- /test -->
 
+<!-- test: FactoryTests.PredeclaredObject_AssigningAProperty_Raises5, FactoryTests.PredeclaredObject_ReadingAProperty_ReturnsTheEmptyValueOfTheType -->
 > [!IMPORTANT] timeless
 > Assigning a property on the predeclared object itself raises run-time error 5, *Invalid procedure call or argument*, with the source `PwGenOptions` and the message *PwGenOptions (default instance) is a factory. Use Alphanumeric, Complex, Passphrase, Pin, or Hex.* Create a recipe first and assign the properties of that.
 >
@@ -42,6 +45,9 @@ A property of a recipe checks nothing when it is set. A value that cannot be use
 > Debug.Print "[" & PwGenOptions.WordSeparator & "]"   ' []
 > ```
 
+<!-- /test -->
+
+<!-- test: FactoryTests.New_CreatesARecipeWithEveryPropertyEmpty -->
 > [!NOTE] BETA 1005
 > The class declares a **Private** constructor and the attribute `[COMCreatable(False)]`, so that only its presets create recipes. twinBASIC does not enforce a **Private** constructor, and a project that references the package can still create an object with **New**. It is a recipe in which every property has the empty value of its type: **Length** 0, no class enabled, empty strings, **MinPerClass** 0, **Mode** **pgmRandom** and **RandomSource** **Nothing**. **Generate** returns an empty string for it, with the error `InvalidLength`, until the properties are set. The presets are the way to get the defaults.
 >
@@ -61,6 +67,7 @@ A property of a recipe checks nothing when it is set. A value that cannot be use
 
 ## Random mode
 
+<!-- test: RandomModeTests.Alphabet_IsTheWholePool, RandomModeTests.Alphabet_IgnoresTheClassSettingsIncludeAndExclude, RandomModeTests.Alphabet_IgnoresTheLookAlikes, RandomModeTests.Alphabet_RepeatedCharactersAreOneCharacter, RandomModeTests.Alphabet_CharactersAreComparedByCode, RandomModeTests.Alphabet_SurrogatePairIsTwoCharacters, RandomModeTests.Classes_UppercaseOnly, RandomModeTests.Classes_LowercaseOnly, RandomModeTests.Classes_DigitsOnly, RandomModeTests.Classes_SpecialCharactersOnly, RandomModeTests.Classes_CustomSpecialCharsReplaceTheDefault, RandomModeTests.Classes_AllFourTogether, RandomModeTests.IsAmbiguousExcluded_False_KeepsTheLookAlikes, RandomModeTests.AmbiguousChars_CustomSetIsRemoved, RandomModeTests.ExcludeChars_AreRemovedFromTheClasses, RandomModeTests.ExcludeChars_AClassWithNoCharacterLeft_EmptyClass, RandomModeTests.IncludeChars_AddCharactersToThePool, RandomModeTests.IncludeChars_AreFilteredByExcludeChars, RandomModeTests.IncludeChars_AreFilteredByTheLookAlikes, RandomModeTests.IncludeChars_AlreadyInThePoolAreNotAddedTwice, RandomModeTests.NoCharset_NoClassAndNoAlphabet, RandomModeTests.MinPerClass_Default_EveryClassIsInEveryResult, RandomModeTests.MinPerClass_Three_ThreeOfEachClass, RandomModeTests.MinPerClass_Zero_NoGuarantee, RandomModeTests.MinPerClass_Negative_InvalidMinPerClass, RandomModeTests.MinPerClass_LengthBelowMinPerClassTimesClasses_LengthTooShort, RandomModeTests.MinPerClass_IncludeCharsBelongToNoClass, RandomModeTests.StartsWithLetter_TheFirstCharacterIsAnAsciiLetter, RandomModeTests.StartsWithLetter_ClassGuaranteesStillHold, RandomModeTests.StartsWithLetter_AppliesToTheAlphabet, RandomModeTests.StartsWithLetter_PoolWithoutALetter_CannotStartWithLetter, RandomModeTests.Length_Limits, RandomModeTests.Mode_NotAMember_InvalidMode, RandomModeTests.RandomMode_DoesNotReadTheWordlistProperties, RandomModeTests.SeveralFaults_TheFirstFoundIsReported -->
 In random mode ([**Mode**](#mode) is **pgmRandom**, the default) the result is a string of [**Length**](#length) characters, each drawn from a pool. The properties of this section apply only in this mode. In wordlist mode they are not read.
 
 **The pool.** If [**Alphabet**](#alphabet) is not empty, the pool is the different characters of the **Alphabet**, and the settings for classes below have no effect. Otherwise the pool is built from classes:
@@ -105,9 +112,11 @@ o.ExcludeChars = ""
 o.IncludeChars = "0"             ' 0 is one of the ambiguous characters, so it is removed
 Debug.Print CLng(2 ^ (PwGen.Entropy(o) / o.Length))   ' 57
 ```
+<!-- /test -->
 
 ## Wordlist mode
 
+<!-- test: WordlistTests.Passphrase_GermanList, WordlistTests.WordCount_Limits, WordlistTests.Wordlist_NotAMember_InvalidWordlist, WordlistTests.Separator_AnyStringIncludingAnEmptyOne, WordlistTests.Capitalize_TheFirstCharacterOfEachWordIsUppercase, WordlistTests.UniqueWords_NoWordTwice, WordlistTests.UniqueWords_False_WordsCanRepeat, WordlistTests.UniqueWords_MoreWordsThanTheList_NotEnoughWords, WordlistTests.CustomWords_ReplaceTheBuiltInList, WordlistTests.CustomWords_OneWordRepeats, WordlistTests.CustomWords_AnyLowerBound, WordlistTests.CustomWords_AreCopiedWhenAssignedAndWhenRead, WordlistTests.CustomWords_EmptyArray_BuiltInListAgain, WordlistTests.CustomWords_EmptyWord_EmptyWord, WordlistTests.CustomWords_EqualWords_DuplicateWord, WordlistTests.CustomWords_WordsThatDifferInCaseAreDifferent, WordlistTests.WordlistMode_DoesNotReadTheRandomModeProperties, WordlistTests.Draws_BoundsAreZeroToTheWordsLeftMinusOne -->
 In wordlist mode ([**Mode**](#mode) is **pgmWordlist**) the result is a passphrase of [**WordCount**](#wordcount) words, each drawn from a list and joined with [**WordSeparator**](#wordseparator). The properties of random mode are not read.
 
 The list is the array in [**CustomWords**](#customwords) when it has words, otherwise the built-in list that [**Wordlist**](#wordlist) names. When [**HasUniqueWords**](#hasuniquewords) is **False**, each word is drawn from the whole list, so a word can appear more than once. When it is **True**, a word that was drawn is taken out of the list before the next draw. When [**Capitalize**](#capitalize) is **True**, the first character of each word is changed to uppercase.
@@ -127,6 +136,7 @@ Debug.Print PwGen.Entropy(o)       ' 0
 ```
 
 The list has one word, so every draw returns it and the entropy is 0.
+<!-- /test -->
 
 ## Properties
 
@@ -228,6 +238,7 @@ Whether two equal characters may not be next to each other. A **Boolean**, read/
 
 Syntax: *options*.**HasNoConsecutiveRepeats** [ **=** *value* ]
 
+<!-- test: ConsecutiveRepeatTests.DefaultPool_NoTwoEqualCharactersAreNeighbours, ConsecutiveRepeatTests.SmallPool_ResultsHaveNoRepeats, ConsecutiveRepeatTests.OneCharacterPool_CannotAvoidRepeats -->
 Random mode only. The property applies to the pool that [**Alphabet**](#alphabet) gives, too. With a **Length** above 1 and a pool of one character, the error is `CannotAvoidRepeats`, in [**Entropy**](PwGen#entropy) as well as in [**Generate**](PwGen#generate).
 
 The characters are drawn first, and then shuffled again, up to 48 times, until no two equal ones are neighbours. With the default pool this succeeds every time in practice.
@@ -249,7 +260,9 @@ o.Length = 4
 Debug.Print PwGen.Generate(o) = ""   ' True
 Debug.Print PwGenError.Code          ' CannotAvoidRepeats
 ```
+<!-- /test -->
 
+<!-- test: ConsecutiveRepeatTests.SmallPool_LengthThree_AlwaysGeneratesWhenAPasswordExists, ConsecutiveRepeatTests.SmallPool_LengthFour_AlwaysGeneratesWhenAPasswordExists, ConsecutiveRepeatTests.SmallPool_WithStartsWithLetter_AlwaysGeneratesWhenAPasswordExists, ConsecutiveRepeatTests.FixedSource_DrawsThatCannotBeArranged_CannotAvoidRepeats -->
 > [!NOTE] 1.0.8.0
 > The shuffle only rearranges the characters that were drawn, and the property never draws them again. When the drawn characters cannot be arranged without a repeat, **Generate** returns an empty string and sets `CannotAvoidRepeats`, although other passwords of the same pool would be valid. With a small pool this happens often. From the pool `AB` and a **Length** of 3, the draws `AAA` and `BBB` cannot be arranged, and together they are one draw in four. With a **Length** of 4 the failures are about three calls in five. With [**StartsWithLetter**](#startswithletter) the first character is not moved either, which makes the failures more frequent. A call that fails can be repeated, because the next call draws again.
 >
@@ -477,7 +490,9 @@ Returns an independent copy of a recipe.
 
 Syntax: *options*.**Clone** ( ) **As PwGenOptions**
 
+<!-- test: FactoryTests.Clone_CopiesEveryProperty, FactoryTests.Clone_IsIndependentOfTheOriginal, RandomSourceTests.Clone_SharesTheRandomSource -->
 Returns a new **PwGenOptions** with the same value in each property. Changing the copy does not change the original. The [**CustomWords**](#customwords) array is copied, and the [**RandomSource**](#randomsource) is not: the copy refers to the same object.
+<!-- /test -->
 
 ```tb check_build check_run
 Dim a As PwGenOptions = PwGenOptions.Alphanumeric
diff --git a/docs/Reference/Contributed/tsPwGen/PwGenRandom.md b/docs/Reference/Contributed/tsPwGen/PwGenRandom.md
index 1570440b..bc5b66a7 100644
--- a/docs/Reference/Contributed/tsPwGen/PwGenRandom.md
+++ b/docs/Reference/Contributed/tsPwGen/PwGenRandom.md
@@ -22,6 +22,7 @@ Class LowestRandom
 End Class
 ```
 
+<!-- test: RandomSourceTests.LowestRandom_RandomMode_DrawsTheFirstCharacterOfThePool, RandomSourceTests.LowestRandom_WordlistMode_DrawsTheFirstWordLeft -->
 Every draw then picks the first character of the pool, or the first word that is left:
 
 ```tb check_run projname=pwgenrandom-lowest
@@ -47,9 +48,11 @@ Debug.Print PwGen.Generate(p)          ' alpha-delta-charlie-bravo
 ```
 
 With **HasUniqueWords**, the word that was drawn is replaced by the last word that is left, so the second draw returns `delta`, the third `charlie`, and the fourth is the only word left, `bravo`.
+<!-- /test -->
 
 ## The contract of a source
 
+<!-- test: RandomSourceTests.Draws_LowerBoundIsZeroOrOneAndNeverAboveTheUpperBound, RandomSourceTests.OutOfRangeSource_RngFailed, RandomSourceTests.RaisingSource_TheErrorReachesTheCaller, RandomSourceTests.Entropy_DoesNotUseTheSource -->
 - **The bounds.** [**NextInRange**](#nextinrange) must return a **Long** that is not below the lower bound and not above the upper bound. The package passes a lower bound of 0 or 1, never a lower bound that is above the upper bound, and equal bounds when there is only one choice, as for a pool of one character.
 - **A number outside the bounds is an error.** [**Generate**](PwGen#generate) then returns an empty string and sets the error `RngFailed`, with the message *random source returned a value outside the requested interval*.
 - **Evenness.** The package takes each call as an independent, even choice among the whole numbers of the interval. The entropy that [**PwGen.Entropy**](PwGen#entropy) reports is correct only for a source that is even and independent. For any other source the figure is too high.
@@ -98,6 +101,7 @@ On Error GoTo 0
 
 Debug.Print PwGenError.HasError     ' False
 ```
+<!-- /test -->
 
 ## Methods
 
diff --git a/docs/Reference/Contributed/tsPwGen/index.md b/docs/Reference/Contributed/tsPwGen/index.md
index 5de25427..2851d1dd 100644
--- a/docs/Reference/Contributed/tsPwGen/index.md
+++ b/docs/Reference/Contributed/tsPwGen/index.md
@@ -44,6 +44,7 @@ Debug.Print UBound(Split(PwGen.Generate(phrase), "-")) + 1   ' 5
 
 ## The presets
 
+<!-- test: PresetTests.Alphanumeric_Properties, PresetTests.Alphanumeric_Results_SixteenCharsFromFiftySevenWithAllThreeClasses, PresetTests.Complex_Properties, PresetTests.Complex_Results_SixteenCharsFromSeventySevenWithAllFourClasses, PresetTests.Passphrase_Properties, PresetTests.Passphrase_Results_FiveEnglishWordsJoinedByHyphens, PresetTests.Pin_Properties, PresetTests.Pin_Results_SixDigitsWithTheLookAlikesKept, PresetTests.Hex_Results_ThirtyTwoLowercaseHexDigits, PresetTests.Presets_ReturnANewRecipeEachTime, PresetTests.Nothing_MeansANewAlphanumericRecipe -->
 Each preset is a read-only property of **PwGenOptions** that returns a new recipe. The values below are the ones the presets start with; every property of the new recipe can be changed.
 
 | Preset | Result | Entropy |
@@ -55,28 +56,36 @@ Each preset is a read-only property of **PwGenOptions** that returns a new recip
 | **Hex** | 32 characters from `0123456789abcdef`. | 128 bits |
 
 Every function of the package that takes a recipe also accepts **Nothing**, which means a new **Alphanumeric** recipe.
+<!-- /test -->
 
 ## Entropy
 
+<!-- test: EntropyTests.Random_LengthTimesLogTwoOfThePool, EntropyTests.Random_RepeatedCharactersOfTheAlphabetCountOnce, EntropyTests.Random_RepeatedCharactersOfSpecialCharsAndIncludeCharsCountOnce, EntropyTests.Random_RemovedCharactersDoNotCount, EntropyTests.Random_ConstraintsDoNotLowerTheFigure, EntropyTests.Wordlist_WordCountTimesLogTwoOfTheListSize, EntropyTests.Wordlist_UniqueWords_SumOfLogTwoOfTheWordsLeft, EntropyTests.Wordlist_SeparatorAndCapitalizeAddNothing -->
 [**PwGen.Entropy**](PwGen#entropy) computes the entropy of a recipe from its settings alone:
 
 - In random mode, `Length * log2(p)`, where *p* is the number of different characters the password is drawn from.
 - In wordlist mode, `WordCount * log2(n)`, where *n* is the number of words in the list. When the words of a passphrase must be different ([**HasUniqueWords**](PwGenOptions#hasuniquewords)), the sum of `log2(n)`, `log2(n - 1)`, `log2(n - 2)` and so on, one term for each word.
 
 The separator and the capital letters of a passphrase add nothing. The constraints of random mode, [**MinPerClass**](PwGenOptions#minperclass), [**StartsWithLetter**](PwGenOptions#startswithletter) and [**HasNoConsecutiveRepeats**](PwGenOptions#hasnoconsecutiverepeats), do not lower the figure, so the entropy of a password drawn under them can be smaller than the figure.
+<!-- /test -->
 
 ## Errors
 
+<!-- test: ErrorTests.Members_AfterAFailedGenerate, ErrorTests.FailedFunctions_RaiseNoRunTimeError, ErrorTests.EveryFunction_ClearsTheLastErrorWhenItStarts, ErrorTests.TryGenerate_Success_ReturnsTrueAndThePassword, ErrorTests.TryGenerate_Failure_ReturnsFalseAndAnEmptyString, FactoryTests.PredeclaredObject_AssigningAProperty_Raises5 -->
 A recipe that cannot be used does not raise a run-time error. [**PwGen.Generate**](PwGen#generate) returns an empty string, [**PwGen.Entropy**](PwGen#entropy) returns 0, and the last error is set. The predeclared object [**PwGenError**](PwGenError) reports it: **HasError** is **True**, **Code** is a short name such as `InvalidLength`, and **Message** and **Origin** describe the error and the function that found it. Each function of [**PwGen**](PwGen) clears the last error when it starts, so the last error always belongs to the latest call. [**PwGen.TryGenerate**](PwGen#trygenerate) returns **False** instead of an empty string when it fails.
 
 The package raises a run-time error in one case: assigning a property on the predeclared object **PwGenOptions** itself, which is a factory and not a recipe. The error is 5, *Invalid procedure call or argument*.
+<!-- /test -->
 
 ## Random sources
 
+<!-- test: RandomSourceTests.RandomSource_Nothing_DrawsDifferentResults, RandomSourceTests.LowestRandom_RandomMode_DrawsTheFirstCharacterOfThePool -->
 Characters and words are drawn with a **PwGenRandom** object. A recipe whose [**RandomSource**](PwGenOptions#randomsource) is **Nothing** uses [**PwGenCryptoSource**](PwGenCryptoSource), which calls the Windows CNG function **BCryptGenRandom**. Any object that implements the [**PwGenRandom**](PwGenRandom) interface can be assigned to **RandomSource** instead. A source that returns fixed values makes the result predictable, which the samples on these pages use.
+<!-- /test -->
 
 ## Word lists
 
+<!-- test: WordlistTests.BuiltInWordCount_BothListsHave8192Words, WordlistTests.BuiltInWord_FirstAndLastWordsOfBothLists, WordlistTests.BuiltInLists_NoWordTwiceAndOnlyLettersAToZ -->
 The package has two built-in word lists, English and German, of 8192 words each. No word appears twice in a list, and 8192 is 2^13, so each word of a passphrase from a built-in list adds 13 bits. Every word of a list is written with the letters `a` to `z` only: the German list spells the umlauts and the sharp s as `ae`, `oe`, `ue` and `ss`.
 
 ```tb check_build check_run
@@ -87,6 +96,8 @@ Debug.Print PwGen.BuiltInWord(pgwGerman, 0)       ' aal
 Debug.Print PwGen.BuiltInWord(pgwGerman, 8191)    ' zypresse
 ```
 
+<!-- /test -->
+
 A recipe can use its own list instead, through [**CustomWords**](PwGenOptions#customwords).
 
 ## Classes and modules
@@ -113,25 +124,33 @@ A recipe can use its own list instead, through [**CustomWords**](PwGenOptions#cu
 
 ## Test code
 
+<!-- test: PackageCodeTests.PackageTests_RunAll_NoCheckFails, PackageCodeTests.PackageTests_FailedCheckIsCounted -->
 The package also contains its own test code, which has no pages: the modules **Tests**, **TestsCore**, **TestsRandom** and **TestsWordlist**, and the class **TestsFakeRandom**. **Tests.RunAll** runs three areas and prints the result of each check with **Debug.Print**, so the lines appear in the DEBUG CONSOLE of the IDE and nowhere else. The **Core** area (**TestsCore**) checks the constants, the presets, the guard on the predeclared **PwGenOptions** object, **Clone**, the last error and its snapshot, **TryGenerate** and an invalid mode. The **Random** area (**TestsRandom**) checks the entropy formulas, the recipes, **Alphabet**, **IncludeChars** and **ExcludeChars**, **MinPerClass**, **StartsWithLetter**, **HasNoConsecutiveRepeats**, results drawn with a fixed random source, and the error codes of random mode. The **Wordlist** area (**TestsWordlist**) checks the built-in lists, the default passphrase, **CustomWords**, **HasUniqueWords**, the separator and **Capitalize**, the entropy of passphrases and the error codes of wordlist mode. Each check prints `OK`, `FAIL` or `SKIP`, a failed check does not stop the run, and the last lines give the counts and the elapsed time and say that the tests passed or failed. In version 1.0.8.0 the run has 349 checks that pass, none that fail and 3 that are skipped, and it ends with a line that says the tests passed. The three skipped checks stand for the error codes `EmptyCharset`, `EmptyWordlist` and `InvalidRange`, which no recipe sets.
+<!-- /test -->
 
 **TestsFakeRandom** implements [**PwGenRandom**](PwGenRandom) for the tests. It returns the lower bound of each interval it is given; after `SetAlwaysUpper True` it returns the upper bound, and after `SetOutOfRange True` it returns a value one above the upper bound, which makes the generator report `RngFailed`.
 
 ## Internal modules
 
-Six more modules are part of the package's implementation and have no pages: **PwGenEngine** (the generator), **PwGenCrypto** (the CNG call and the shared default random source), **PwGenErrorStore** (the storage behind [**PwGenError**](PwGenError)), **PwGenWords** (access to the word lists), and **PwGenWordsEn** and **PwGenWordsDe** (the data of the two lists). The package describes each of them as not part of its public API. None of them is declared **Private**, so a project that references the package can name them.
+Six more modules are part of the package's implementation and have no pages: **PwGenEngine** (the generator), **PwGenCrypto** (the CNG call and the shared default random source), **PwGenErrorStore** (the storage behind [**PwGenError**](PwGenError)), **PwGenWords** (access to the word lists), and **PwGenWordsEn** and **PwGenWordsDe** (the data of the two lists). The package describes each of them as not part of its public API.
+
+<!-- test: PackageCodeTests.InternalModules_CanBeNamedByAProject, compile UnqualifiedEntropy, compile UnqualifiedGenerate -->
+None of them is declared **Private**, so a project that references the package can name them.
 
 ```tb check_build check_run
 Debug.Print PwGenWords.CountOf(pgwEnglish, "x")   ' 8192
 ```
 
 The names are visible to the whole project: the **Generate** and **Entropy** functions of **PwGenEngine** make an unqualified call of the functions of [**PwGen**](PwGen) ambiguous (see [Known problems](#known-problems-in-version-1080)).
+<!-- /test -->
 
 ## Known problems in version 1.0.8.0
 
+<!-- test: CryptoSourceTests.NextInRange_AfterAnEarlierFailure_StillReturnsANumberOfTheInterval, CryptoSourceTests.NextInRange_AfterClear_ReturnsANumberOfTheInterval, CryptoSourceTests.PwGenFunctions_AreNotAffectedByAnEarlierFailure -->
 > [!WARNING] 1.0.8.0
 > Called directly, the **NextInRange** method of [**PwGenCryptoSource**](PwGenCryptoSource#errors) returns 0, with no error of its own, while an earlier failure of the package is still the last error. Clear the last error first. The functions of [**PwGen**](PwGen) are not affected.
 
+<!-- test: ConsecutiveRepeatTests.SmallPool_LengthThree_AlwaysGeneratesWhenAPasswordExists, ConsecutiveRepeatTests.SmallPool_LengthFour_AlwaysGeneratesWhenAPasswordExists, ConsecutiveRepeatTests.SmallPool_WithStartsWithLetter_AlwaysGeneratesWhenAPasswordExists, compile UnqualifiedEntropy, compile UnqualifiedGenerate, PackageCodeTests.SetContinueOnFail_False_NoCheckRunsAfterTheFirstFailure, ErrorTests.UnusedCodes_NoRecipeSetsEmptyCharsetOrEmptyWordlist -->
 > [!NOTE] 1.0.8.0
 > The package has four more problems. None of them returns a wrong password.
 >
@@ -163,3 +182,7 @@ Debug.Print Tests.FailCount()
 - [Interface](../../../Core/Interface) statement -- declares an interface such as **PwGenRandom**
 - [Implements](../../../Core/Implements) statement -- implements an interface in a class
 - [Like](../../../Core/Like) operator -- compares a string with a pattern, as the samples on these pages do to test the characters of a result
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [tsPwGen-tests.twinproj](tsPwGen-tests.twinproj), a twinBASIC project. It uses tsPwGen as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Contributed/xCalendar/index.md b/docs/Reference/Contributed/xCalendar/index.md
index 03eb46d7..7ae8a8f8 100644
--- a/docs/Reference/Contributed/xCalendar/index.md
+++ b/docs/Reference/Contributed/xCalendar/index.md
@@ -36,7 +36,9 @@ End Sub
 
 Add the package to the project as [Importing a package from TWINSERV](../../../../Features/Packages/Importing-TWINSERV) describes. The control is then in the [Toolbox](../../../IDE/Project/Toolbox) like any other: select **xCalendar** and draw it on the form. In code the control is named as any other control on the form is, **xCalendar1** for the first one.
 
+<!-- test: DefaultsTests.Defaults_Colours, DefaultsTests.Defaults_Fonts, DefaultsTests.Defaults_Enumerations, DefaultsTests.Defaults_Margins, DefaultsTests.Defaults_Flags, DefaultsTests.Defaults_DateIsToday, probe 1 -->
 A control placed on a form starts with today's date selected and with the defaults given with each property. Every property except **ValueStr** is stored with the form. **Year**, **Month** and **Day** are stored as they were when the control was placed, and **Value** is stored only when it was set to a date other than the day of saving. A program that runs on a later day therefore starts with **Value** at today's date and **Year**, **Month** and **Day** of the day the control was placed: the control shows the month of that day, and no cell is selected when today is in another month. To start on a given date, set **Value** in the form's `Form_Load` procedure, or in the Properties panel.
+<!-- /test -->
 
 ### Declaring a variable
 
@@ -48,6 +50,7 @@ Set cal = xCalendar1
 Debug.Print cal.Year
 ```
 
+<!-- test: compile ProjectNameIsNotAType, compile QualifiedClassNameIsAType -->
 > [!NOTE] BETA 1005
 > `Dim cal As xCalendar` fails with TB5139, *[xCalendar] is a project or library, not a datatype*.
 >
@@ -63,6 +66,7 @@ Dim m As MonthLengthEnum = MonthLengthEnum.LongLength
 Debug.Print d, m   ' 2 1
 ```
 
+<!-- test: compile BareShortLengthIsAmbiguous, compile BareLongLengthIsAmbiguous, compile QualifiedDayLengthMemberIsAccepted, compile QualifiedMonthLengthMemberIsAccepted -->
 > [!NOTE] BETA 1005
 > `ShortLength` and `LongLength` written alone fail with TB5073, *'ShortLength' is ambiguous*.
 >
@@ -72,7 +76,9 @@ Debug.Print d, m   ' 2 1
 
 ### A control that is not on a form
 
+<!-- test: DefaultsTests.New_WithoutForm_HasNoDefaults -->
 The start values of the properties are set when the control is placed on a form. An **xCalendar** created in code with `New xCalendar.xCalendar` and never placed on a form has **Year** 0 and **Value** 0 (12:00:00 AM), and none of the defaults given below.
+<!-- /test -->
 
 ## How the control is drawn
 
@@ -82,17 +88,22 @@ The two lists are scaled with the DPI of the display, by the [**DpiScale**](../.
 
 ### Title area
 
+<!-- test: LayoutTests.ShowTitle_OnlyDrawsTheTitleWhenItIsTrue, LayoutTests.MonthLength_LongShowsMoreOfTheMonthNameThanShort, LayoutTests.ShowTitleAndShowDateSelectors_BothFalse_RemoveTheTitleArea, LayoutTests.ShowTitle_False_KeepsTheTitleAreaWhileTheListsAreShown, LayoutTests.TitleMargin_RaisedBy10_MovesTheDayNamesDownBy20, SelectorTests.Lists_AreScaledWithTheDpiOfTheDisplay, SelectorTests.Lists_KeepTheirDistanceFromTheRightEdgeWhenTheControlIsResized, SelectorTests.YearList_HoldsTheYears1900To2100, SelectorTests.YearList_Choice_SelectsTheSameDayAndRaisesNewYear, SelectorTests.MonthList_HoldsTheNamesOfTheTwelveMonths, SelectorTests.MonthList_Choice_SelectsTheSameDayAndRaisesNewMonth, SelectorTests.ShowDateSelectors_SwitchesTheTwoListsOnAndOff -->
 The title area is present when **ShowTitle** or **ShowDateSelectors** is **True**, and has no height when both are **False**. Its height is the height of one line of text in **TitleFont**, plus **TitleMargin** above and below. The control works the height out when it is created and when its size changes, and again when **TitleFont** is assigned with **Set** or **TitleMargin** or **ShowDateSelectors** is set. Its background is **BackColor**. It holds two things.
 
 - **The title** is the name of the shown month and the year, such as `October 2026`, in **TitleFont**, centred in the space to the left of the month list, or in the whole width of the control when the lists are not shown. A title wider than that space is cut off at both ends: see [Known problems](#known-problems-in-version-10170). **MonthLength** decides whether the month is written in full or as its first three letters. It is drawn only when **ShowTitle** is **True**. The month name comes from the [**MonthName**](../../../Modules/Strings/MonthName) function, so it is in the language of the system.
 - **The date selectors** are two drop-down lists at the right edge, drawn only when **ShowDateSelectors** is **True**. At 96 DPI the month list is 80 pixels wide and holds the names of the twelve months, and the year list is 50 pixels wide and holds the years 1900 to 2100. Both are 21 pixels high, placed so that a list of that height is centred in the height of the title area. The year list ends 5 pixels from the right edge of the control, and the month list ends 5 pixels before the year list. At 144 DPI each of these sizes is 1.5 times as large: the lists are 120 and 75 pixels wide, and the year list ends 8 pixels from the right edge. The height of a drop-down list is fixed by its font, so at 144 DPI each list is 28 pixels high, not the 31 that the control asks for, and sits 2 pixels above the centre of the title area. When the control is resized the lists keep their distance from the right edge, and the title is centred again in the space to their left. Choosing an entry changes the shown month or year, keeps the selected day of the month, and raises **NewMonth** or **NewYear**.
+<!-- /test -->
 
 ### Row of day names
 
+<!-- test: LayoutTests.ShowDays_False_RemovesTheRowOfDayNames, LayoutTests.DayLength_ALongerLengthShowsMoreOfTheDayNames, LayoutTests.DaysMargin_RaisedBy10_MovesTheGridDownBy20 -->
 The row is present when **ShowDays** is **True**. It has seven cells of the same width, filled with **DayBackColor**, each holding the name of a weekday centred, in **DayFont**. The first cell is the weekday that **FirstDay** names. **DayLength** decides whether a name is one letter, three letters or the whole name. The names come from the [**WeekdayName**](../../../Modules/Strings/WeekdayName) function, so they are in the language of the system. The height of the row is the height of the letter M in **DayFont**, plus **DaysMargin** above and below.
+<!-- /test -->
 
 ### Grid of days
 
+<!-- test: GridTests.Grid_FirstCellIsTheLatestFirstDayOnOrBeforeTheMonthStart, GridTests.Grid_FirstCellFollowsFirstDay, GridTests.Grid_HasSixRowsOfSevenDays, ColourTests.SelectedCell_IsFilledWithAWarmGrey, ColourTests.SelectedCell_WithATimeOfDayThereIsNone, ColourTests.ShowVerticalGrid_False_RemovesTheVerticalLines, ColourTests.ShowHorizontalGrid_False_RemovesTheHorizontalLines, ColourTests.Frame_IsDrawnWhicheverLinesAreOn, ValueTests.Value_KeepsTheTimeOfDay, ValueTests.Value_WithTimeOfDayDoesNotChangeTheDate -->
 The grid has six rows of seven cells, 42 days in all, whatever the month. The first cell holds the latest date, on or before the first day of the shown month, that falls on the weekday **FirstDay** names. A month therefore starts in the first row, and the cells before its first day hold the last days of the month before. Each cell shows the day of the month at its top left corner, in **GridFont**. The cell of the selected date, **Value**, is filled with a fixed warm grey (`&H82868E`) and has a black line along its left and top edges.
 
 All the text of the control is drawn in the same near-black, whatever the colour properties say: the days of the month before and the month after are not grey, and the title is not in **TitleFontColor**. See [Known problems](#known-problems-in-version-10170).
@@ -100,23 +111,29 @@ All the text of the control is drawn in the same near-black, whatever the colour
 **ShowVerticalGrid** and **ShowHorizontalGrid** switch the lines between the cells on and off, and **GridCellEffect** and **GridLinesColor** decide how the lines look. A black frame of one pixel always surrounds the row of day names and the grid, whichever lines are on.
 
 A cell is selected only when its date is equal to **Value**. A **Value** with a time of day other than midnight, such as `#3/15/2026 2:30:00 PM#`, is equal to no cell, so no cell is drawn as selected. **Value** keeps the time, and **Day**, **Month** and **Year** return the parts of the date.
+<!-- /test -->
 
 ### Disabled state
 
+<!-- test: EnabledTests.Enabled_False_DisablesTheControlAndTheTwoLists, EnabledTests.Enabled_False_CodeCanStillChangeTheDate, EnabledTests.Enabled_False_DrawsTheRowOfDayNamesOnALightGrey, EnabledTests.Enabled_False_DrawsFlatGridLinesInDarkGrey, EnabledTests.Enabled_False_LeavesBackColorAsItIs, probe 1 -->
 When **Enabled** is set to **False** by the program, the two lists are disabled and drawn in grey, and the row of day names has the background `&HEEEEEE` in place of **DayBackColor**. A control that loads from a form with **Enabled** already **False** draws its lists as an enabled control does: see [Known problems](#known-problems-in-version-10170). With **Flat** lines, the grid lines are `&H5B5B5B` in place of **GridLinesColor**. **BackColor** is the same as for an enabled control, and the text keeps its colour.
 
 A disabled control does not receive the mouse or the keyboard from the user, and the focus cannot be given to it. Code can still change its date, for example with **NextDay** or **Value**.
+<!-- /test -->
 
 ## Choosing a date
 
 ### With the mouse
 
+<!-- test: MouseTests.Press_LeftOnADay_RaisesTheEventsInOrder, MouseTests.Press_LeftOnADay_SelectsThatDay, MouseTests.Press_LeftOnADay_BeforeUpdateSeesTheOldValue, MouseTests.Press_RightButton_RaisesMouseUpAndClickOnly, MouseTests.Press_OnTheTitle_RaisesMouseUpAndClickOnly, MouseTests.Press_OnADayName_RaisesMouseUpAndClickOnly, GridTests.Grid_ClickOnDayOfAnotherMonthShowsThatMonth -->
 Pressing the left mouse button on a cell of the grid selects the date of that cell. The control raises **BeforeUpdate**, which can cancel the selection, then moves the selection and redraws, and raises **AfterUpdate**. A day of the month before or the month after is selected in the same way, and the control then shows its month; no **NewMonth** or **NewYear** event is raised for that change of month. A click with the right button, and a click on the title area or the row of day names, select nothing: they raise **MouseUp** and **Click** only.
+<!-- /test -->
 
 A press near the right edge or the bottom edge of the grid can select a date that the grid does not show: see [Known problems](#known-problems-in-version-10170).
 
 ### With the keyboard
 
+<!-- test: KeyTests.Key_Left_SelectsTheDayBefore, KeyTests.Key_Right_SelectsTheDayAfter, KeyTests.Key_Up_SelectsTheDayOneWeekBefore, KeyTests.Key_Down_SelectsTheDayOneWeekAfter, KeyTests.Key_PageUp_SelectsTheSameDayOneMonthBefore, KeyTests.Key_PageDown_SelectsTheSameDayOneMonthAfter, KeyTests.Key_ShiftPageUp_SelectsTheSameDayOneYearBefore, KeyTests.Key_ShiftPageDown_SelectsTheSameDayOneYearAfter, KeyTests.Key_CtrlPageUp_SelectsTheSameDayOneYearBefore, KeyTests.Key_AltPageDown_SelectsTheSameDayOneYearAfter, KeyTests.Key_Home_SelectsToday, KeyTests.Key_End_ChangesNothing, KeyTests.Key_RaisesKeyDownOnceAfterTheSelectionMoved, KeyTests.Key_ThatIsNotHandledRaisesKeyDown, KeyTests.Key_ReportsTheShiftStateInKeyDown, KeyTests.Key_MovesTheSelectionWithoutOtherEvents, probe p9, probe p10, probe p12 -->
 The control handles these keys while the keyboard focus is in the control. A click on the control gives it the focus, and Tab does not: see [Known problems](#known-problems-in-version-10170).
 
 | Key | Effect | Method it calls |
@@ -134,13 +151,17 @@ The control handles these keys while the keyboard focus is in the control. A cli
 Ctrl and Alt step by a year as Shift does. Other keys, End among them, change nothing.
 
 **KeyDown** is raised once for each key, handled or not, after the selection has moved, so a handler that reads **Value** gets the new date. A character key raises **KeyDown**, **KeyPress** and **KeyUp**, in that order. An arrow key, a Page key, Home and End raise **KeyDown** and **KeyUp**. Tab raises **KeyPress** and **KeyUp**, and no **KeyDown**.
+<!-- /test -->
 
 ### By program
 
+<!-- test: ValueTests.Value_RaisesNoEvent, MethodTests.Methods_RaiseNoEvent, PartsTests.Day_SelectsThatDayOfTheShownMonth, PartsTests.Month_SelectsTheSameDayOfThatMonth, PartsTests.Year_SelectsTheSameDayAndMonthOfThatYear -->
 Setting **Value**, **Day**, **Month** or **Year**, and calling the methods that move the selection (**NextDay**, **PreviousMonth**, **Today** and the others), change the selection without raising any event: **BeforeUpdate**, **AfterUpdate**, **NewMonth**, **NewYear**, **Click** and **KeyDown** are not raised.
+<!-- /test -->
 
 ## What raises the events
 
+<!-- test: MouseTests.Press_LeftOnADay_RaisesTheEventsInOrder, MouseTests.Press_LeftOnADay_SelectsThatDay, MouseTests.Press_LeftOnADay_BeforeUpdateSeesTheOldValue, MouseTests.Press_RightButton_RaisesMouseUpAndClickOnly, MouseTests.Press_OnTheTitle_RaisesMouseUpAndClickOnly, MouseTests.Press_OnADayName_RaisesMouseUpAndClickOnly, MouseTests.DoubleClick_RaisesTheEventsInOrder, SelectorTests.MonthList_Choice_SelectsTheSameDayAndRaisesNewMonth, SelectorTests.YearList_Choice_SelectsTheSameDayAndRaisesNewYear, KeyTests.Key_MovesTheSelectionWithoutOtherEvents, probe p9 -->
 | What happens | Events raised, in order |
 |:-------------|:------------------------|
 | The user clicks a day with the left button | **MouseMove** (when the pointer moved), **BeforeUpdate**, **AfterUpdate**, **MouseUp**, **Click** |
@@ -150,11 +171,13 @@ Setting **Value**, **Day**, **Month** or **Year**, and calling the methods that
 | The user chooses a year in the year list | **NewYear** |
 | The user presses a key with the focus in the control | **KeyDown**, **KeyPress**, **KeyUp** (see [With the keyboard](#with-the-keyboard)) |
 | The program changes the selection or the shown month | none |
+<!-- /test -->
 
 **MouseDown** is declared but never raised.
 
 ## Known problems in version 1.0.17.0
 
+<!-- test: ColourTests.TitleFontColor_ColoursTheTitle, ColourTests.TitleFontColor_DefaultColoursTheTitle, ColourTests.DayFontColor_ColoursTheDayNames, ColourTests.GridFontColor_ColoursTheDayNumbers, ColourTests.GridFont_DaysOfTheMonthsBeforeAndAfterAreGrey, EnabledTests.Enabled_False_DrawsTheTitleInGrey, EnabledTests.Enabled_False_DrawsTheDayNamesAndNumbersInGrey, GridTests.Value_InAnotherMonth_PlacesTheGrid, GridTests.Value_InAnotherMonth_SelectsACell, GridTests.Value_InAnotherMonth_RefreshPlacesTheGrid, GridTests.Value_InAnotherMonth_NextMovePlacesTheGrid, GridTests.FirstDay_PlacesTheDatesOfTheGrid, GridTests.FirstDay_RefreshPlacesTheDatesOfTheGrid, GridTests.FirstDay_NextMovePlacesTheDatesOfTheGrid, GridTests.Press_NearTheRightEdge_SelectsTheLastColumn, GridTests.Press_NearTheBottomEdge_SelectsTheLastRow, ColourTests.GridLinesColor_Flat_RGBValueIsDrawnAsGiven, ColourTests.GridLinesColor_Flat_DefaultIsDrawnAsTheSystemColour, probe 1, SelectorTests.Year_Before1900_IsShownInTheYearList, SelectorTests.Year_After2100_IsShownInTheYearList, SelectorTests.Year_Outside1900To2100_RaisesNoErrorAndValueFollows, SelectorTests.Value_Outside1900To2100_RaisesNoErrorAndYearFollows -->
 > [!WARNING] 1.0.17.0
 > The package gives a wrong result without an error in these cases.
 >
@@ -165,12 +188,13 @@ Setting **Value**, **Day**, **Month** or **Year**, and calling the methods that
 > - **Year, Month and Day can disagree with Value.** See [Adding the control to a form](#adding-the-control-to-a-form).
 > - **A year outside 1900 to 2100 is not shown in the year list.** Setting **Year** or **Value** to 1899 or earlier leaves the year list blank, and to 2101 or later leaves it as it was. No error is raised, and **Value** and the title show the year.
 
+<!-- test: probe 12x, probe 12y, PartsTests.Day_SelectsThatDayOfTheShownMonth, PartsTests.Month_SelectsTheSameDayOfThatMonth, PartsTests.Year_SelectsTheSameDayAndMonthOfThatYear, PartsTests.Day_ZeroRaises13, PartsTests.Day_32Raises13, PartsTests.Day_31InAMonthOf30DaysRaises13, PartsTests.Day_FailedAssignmentChangesNothing, PartsTests.Month_13Raises13, PartsTests.Month_0Raises13, PartsTests.Month_FebruaryWithDay31Raises13, PartsTests.Month_FailedAssignmentChangesNothing, PartsTests.Year_LeapDayInAYearThatIsNotLeapRaises13, PartsTests.Year_FailedAssignmentChangesNothing, PartsTests.Refresh_AfterAMonthOf13RaisesNoError, PartsTests.FirstDay_OutOfRangeRaises5, PartsTests.FirstDay_FailedAssignmentChangesNothing, ValueTests.ValueIsNull_SetToTrueRaisesNoError, ValueTests.ValueIsNull_SetToFalseRaisesNoError, ValueTests.ValueIsNull_IsStoredAllTheSame, ValueTests.ValueIsNull_HasNoEffectOnValue, probe p10, MouseTests.MouseDown_IsRaisedByAPress, LayoutTests.Title_ThatIsWiderThanTheSpaceBesideTheLists_IsNotCutOff, LayoutTests.Title_WithoutTheLists_IsNotCutOff, probe 1, LayoutTests.ShowTitle_True_GivesTheTitleAreaItsHeightBack, LayoutTests.ShowDateSelectors_True_GivesTheTitleAreaItsHeightBack, LayoutTests.TitleMargin_Set_GivesTheTitleAreaItsHeightBack, LayoutTests.Resize_GivesTheTitleAreaItsHeightBack, LayoutTests.TitleFont_ChangeToTheObject_ChangesTheHeightOfTheTitleArea, LayoutTests.TitleFont_AssignedAgain_FitsTheTitleAreaToTheFont, LayoutTests.DayFont_Change_ChangesTheHeightOfTheRowOfDayNamesAtTheNextPaint, LayoutTests.GridFont_Change_ChangesTheDayNumbersAtTheNextPaint -->
 > [!NOTE] 1.0.17.0
 > The package has these other problems. Each raises an error, or concerns how the control looks or is reached.
 >
 > - **A month or a year chosen from a list can open the run-time error box.** Choosing a month in which the selected day does not exist, such as February when the selected day is the 31st, or the year 2025 when the selected date is February 29, 2024, raises run-time error 13, *Type mismatch*, in the control's own code, where the program cannot handle it: the program shows its error box, and goes on when the box is closed. The list then shows the new month or year, and **Month** or **Year** returns it, but **Value** and **Day** keep the old date, the grid is not drawn again, and **NewMonth** or **NewYear** is not raised. The same dates set from code raise run-time error 13 to the caller.
 > - **Setting ValueIsNull raises run-time error 438**, *Object doesn't support this property or method*, to **True** or to **False**. The value is stored all the same, and nothing else in the control uses it.
-> - **A day, month or year that makes an impossible date raises run-time error 13**, *Type mismatch*: **Day** 0 or 32, or 31 in a month of 30 days, **Month** 13 or 0, **Month** 2 when **Day** is 31, **Year** 2025 when the selected date is February 29, 2024. The property then returns the value assigned and **Value** keeps its old date, until the next valid assignment. After a **Month** of 13, **Refresh** raises an error (-2147352567, *Exception occurred.*) until **Month** is set to a valid value.
+> - **A day, month or year that makes an impossible date raises run-time error 13**, *Type mismatch*: **Day** 0 or 32, or 31 in a month of 30 days, **Month** 13 or 0, **Month** 2 when **Day** is 31, **Year** 2025 when the selected date is February 29, 2024. The property then returns the value assigned and **Value** keeps its old date, until the next valid assignment. After a **Month** of 13, **Refresh** raises an error until **Month** is set to a valid value.
 > - **Tab never moves the keyboard focus to the control**, so a user who does not click on it cannot reach the arrow keys. A click on the control, and a choice in either list, give it the focus.
 > - **MouseDown is never raised.**
 > - **A title wider than the space to the left of the month list is cut off at both ends.** At 144 DPI, with the control at its default size (384 pixels wide) and the default **TitleFont**, that space is 174 pixels wide, and `October 2026` does not fit in it. A wider control, a smaller **TitleFont**, a short month name (**MonthLength** **ShortLength**: `Oct 2026` fits) or **ShowDateSelectors** **False** gives the title room.
@@ -185,26 +209,34 @@ A property is read and written as *object*.**Name** [ = *value* ]. The propertie
 ### BackColor
 {: .no_toc }
 
+<!-- test: ColourTests.BackColor_FillsTheTitleAreaAndTheCells -->
 The background colour of the title area and of the cells of the grid, apart from the selected cell. **OLE_COLOR**. Default: light grey (`&HE0E0E0`).
+<!-- /test -->
 
 ### Day
 {: .no_toc }
 
 The day of the month of the selected date, from 1 to 31. **Integer**. Default: the day of the month on which the control was placed on the form.
 
+<!-- test: PartsTests.Day_SelectsThatDayOfTheShownMonth, PartsTests.Day_ZeroRaises13, PartsTests.Day_32Raises13, PartsTests.Day_31InAMonthOf30DaysRaises13, PartsTests.Day_FailedAssignmentChangesNothing -->
 Setting **Day** selects that day of the shown month and year, and redraws the control. A day that the shown month does not have, such as 31 in June, or a value below 1 or above 31, raises run-time error 13, *Type mismatch*. **Day** then returns the value assigned, and **Value** is unchanged. See [Known problems](#known-problems-in-version-10170).
+<!-- /test -->
 
 ### DayBackColor
 {: .no_toc }
 
+<!-- test: ColourTests.DayBackColor_FillsTheRowOfDayNames -->
 The background colour of the row of day names. **OLE_COLOR**. Default: light blue (`&HDCA86F`, red 111, green 168, blue 220).
+<!-- /test -->
 
 ### DayFont
 {: .no_toc }
 
 The font of the day names. A **Font** object. Default: Arial, 8 points.
 
+<!-- test: FontTests.DayFont_KeepsTheObjectThatIsAssigned, FontTests.GridFont_KeepsTheObjectThatIsAssigned, FontTests.TitleFont_KeepsTheObjectThatIsAssigned, FontTests.TwoPropertiesAssignedTheSameFontShareIt, LayoutTests.DayFont_Change_ChangesTheHeightOfTheRowOfDayNamesAtTheNextPaint, LayoutTests.GridFont_Change_ChangesTheDayNumbersAtTheNextPaint -->
 The control keeps the object that is assigned, not a copy of it. Assigning a font with **Set** redraws the control. A change to a property of the object after that, such as its **Size**, is shown at the next paint, which the change itself causes, so **Refresh** is not needed. Two properties that are assigned the same object share it, and a change to the object changes both.
+<!-- /test -->
 
 ### DayFontColor
 {: .no_toc }
@@ -221,7 +253,9 @@ A value other than **ShortLength** and **MediumLength** shows the whole name.
 ### DaysMargin
 {: .no_toc }
 
+<!-- test: LayoutTests.DaysMargin_RaisedBy10_MovesTheGridDownBy20 -->
 The space above and below the day names, in device pixels. **Integer**. Default: `5`. The height of the row of day names is the height of its text plus twice this value. At 144 DPI, raising the value from 5 to 15 moves the bottom edge of the row down by 20 pixels, twice the change, so the value is not scaled with the DPI.
+<!-- /test -->
 
 ### Enabled
 {: .no_toc }
@@ -233,14 +267,18 @@ Whether the control responds to the user. **Boolean**. Default: **True**. A disa
 
 The weekday of the first column of the grid. A [**WeekDaysEnum**](#weekdaysenum) member. Default: **Monday**.
 
+<!-- test: PartsTests.FirstDay_OutOfRangeRaises5, PartsTests.FirstDay_FailedAssignmentChangesNothing, GridTests.FirstDay_PlacesTheDatesOfTheGrid, GridTests.FirstDay_RefreshPlacesTheDatesOfTheGrid, GridTests.FirstDay_NextMovePlacesTheDatesOfTheGrid -->
 Changing **FirstDay** at run time moves the day names at once, but the dates of the grid are placed again only when the selection next moves, so the names and the dates disagree until then. **Refresh** does not correct it. See [Known problems](#known-problems-in-version-10170). A value outside 0 to 7 raises run-time error 5, *Invalid procedure call or argument*, and **FirstDay** returns the value assigned.
+<!-- /test -->
 
 ### GridCellEffect
 {: .no_toc }
 
 How the lines between the cells look. A [**GridCellEffectEnum**](#gridcelleffectenum) member. Default: **Raised**.
 
+<!-- test: ColourTests.GridCellEffect_Raised_DrawsABlackLineWithAWhiteOneAfterIt, ColourTests.GridCellEffect_Sunken_DrawsAWhiteLineWithABlackOneAfterIt, ColourTests.GridLinesColor_RaisedAndSunkenIgnoreIt -->
 With **Flat** the lines are drawn in **GridLinesColor**, one line between two cells. **Raised** and **Sunken** draw each line in black or white, and a second line of the other colour one pixel to the right of a vertical line and one pixel below a horizontal one: for **Raised** the line is black and the second white, for **Sunken** the reverse. **GridLinesColor** has no effect with **Raised** and **Sunken**.
+<!-- /test -->
 
 ### GridFont
 {: .no_toc }
@@ -262,7 +300,9 @@ The colour of the lines of the grid when **GridCellEffect** is **Flat**. **OLE_C
 
 The month of the selected date, from 1 to 12. **Integer**. Default: the month in which the control was placed on the form.
 
+<!-- test: PartsTests.Month_SelectsTheSameDayOfThatMonth, PartsTests.Month_13Raises13, PartsTests.Month_0Raises13, PartsTests.Month_FebruaryWithDay31Raises13, PartsTests.Month_FailedAssignmentChangesNothing -->
 Setting **Month** selects the same day of that month in the shown year, shows the month, and updates the month list. A month number outside 1 to 12, or a month that lacks the selected day (**Day** is 31 and the month has 30 days), raises run-time error 13, *Type mismatch*. **Month** then returns the value assigned, and **Value** and the month list are unchanged. See [Known problems](#known-problems-in-version-10170).
+<!-- /test -->
 
 ### MonthLength
 {: .no_toc }
@@ -276,7 +316,9 @@ A value other than **ShortLength** shows the whole name.
 
 Whether the month list and the year list are shown. **Boolean**. Default: **True**.
 
+<!-- test: SelectorTests.ShowDateSelectors_SwitchesTheTwoListsOnAndOff, LayoutTests.ShowTitleAndShowDateSelectors_BothFalse_RemoveTheTitleArea -->
 Setting the property moves the lists to their places and works out the height of the title area again. The title is centred in the space to the left of the lists, or in the whole width when they are not shown. With **ShowTitle** **False** as well, the title area has no height: see [Known problems](#known-problems-in-version-10170).
+<!-- /test -->
 
 ### ShowDays
 {: .no_toc }
@@ -311,14 +353,18 @@ The colour of the title. **OLE_COLOR**. Default: orange (`&H80FF&`, red 255, gre
 ### TitleMargin
 {: .no_toc }
 
+<!-- test: LayoutTests.TitleMargin_RaisedBy10_MovesTheDayNamesDownBy20, LayoutTests.TitleMargin_Set_GivesTheTitleAreaItsHeightBack -->
 The space above and below the title, in device pixels. **Integer**. Default: `5`. The height of the title area is the height of one line of the title font plus twice this value, and the two lists are placed in the height again when the value is set. At 144 DPI, raising the value from 5 to 15 moves the top edge of the row of day names down by 20 pixels, twice the change.
+<!-- /test -->
 
 ### Value
 {: .no_toc }
 
 The selected date. A **Date**. Default: the date on which the control was placed on the form.
 
+<!-- test: ValueTests.Value_SetsYearMonthAndDay, ValueTests.Value_UpdatesTheTwoLists, ValueTests.Value_StringThatIsADateIsConverted, ValueTests.Value_StringThatIsNotADateRaises13, ValueTests.Value_NullRaises94, ValueTests.Value_RaisesNoEvent -->
 Setting **Value** changes **Year**, **Month** and **Day** to the parts of the date, updates the two lists, and redraws the control. The time of day of the date is kept, and a **Value** with a time of day selects no cell. Setting **Value** raises no event. A String that is a date is converted; a String that is not a date raises run-time error 13, *Type mismatch*, and **Null** raises error 94.
+<!-- /test -->
 
 When the new date is in a month other than the shown one, the title and the lists show the new month, and the grid keeps the dates of the month it showed before, with no cell selected, until the selection next moves. See [Known problems](#known-problems-in-version-10170).
 
@@ -327,66 +373,91 @@ When the new date is in a month other than the shown one, the title and the list
 
 **Boolean**. Default: **False**.
 
+<!-- test: ValueTests.ValueIsNull_SetToTrueRaisesNoError, ValueTests.ValueIsNull_SetToFalseRaisesNoError, ValueTests.ValueIsNull_IsStoredAllTheSame, ValueTests.ValueIsNull_HasNoEffectOnValue -->
 Setting the property raises run-time error 438, *Object doesn't support this property or method*. The value is stored all the same, and nothing else in the control uses it: it has no effect on **Value** or on how the control is drawn. See [Known problems](#known-problems-in-version-10170).
+<!-- /test -->
 
 ### ValueStr
 {: .no_toc }
 
+<!-- test: ValueTests.ValueStr_ReadsValueAsCStrDoes, ValueTests.ValueStr_SetsValueAsCDateDoes, ValueTests.ValueStr_StringThatIsNotADateRaises13, ValueTests.ValueStr_EmptyStringRaises13 -->
 The selected date as a **String**. Reading it returns **Value** as **CStr** converts it: the short date of the regional settings, such as `3/15/2026` with US regional settings, followed by the time, such as `2:30:00 PM`, only when **Value** has a time of day. Setting it converts the string with **CDate** and assigns the result to **Value**. A string that **CDate** cannot read, an empty string among them, raises run-time error 13, *Type mismatch*.
+<!-- /test -->
 
 ### Year
 {: .no_toc }
 
 The year of the selected date. **Integer**. Default: the year in which the control was placed on the form.
 
+<!-- test: PartsTests.Year_SelectsTheSameDayAndMonthOfThatYear, PartsTests.Year_LeapDayInAYearThatIsNotLeapRaises13, PartsTests.Year_FailedAssignmentChangesNothing, SelectorTests.Year_Before1900_IsShownInTheYearList, SelectorTests.Year_After2100_IsShownInTheYearList, SelectorTests.Year_Outside1900To2100_RaisesNoErrorAndValueFollows, SelectorTests.Value_Outside1900To2100_RaisesNoErrorAndYearFollows -->
 Setting **Year** selects the same day and month in that year, shows the year, and updates the year list, which holds 1900 to 2100. A year that lacks the selected day (**Day** is 29, **Month** is 2, and the year is not a leap year) raises run-time error 13, *Type mismatch*; **Year** then returns the value assigned, and **Value** is unchanged. A year outside 1900 to 2100 raises no error, but it is not in the year list. See [Known problems](#known-problems-in-version-10170).
+<!-- /test -->
 
 ## Methods
 
+<!-- test: MethodTests.Methods_RaiseNoEvent, MethodTests.Methods_ShowTheMonthOfTheNewDateInTheLists, MethodTests.Methods_DoNotStopAtTheEndOfTheYearList -->
 A method is called as *object*.**Name**. None takes an argument or returns a value. The methods that move the selection show the month of the new date, update the two lists, and raise no event. They do not check that the new date is in the range of the year list, 1900 to 2100: past either end, **Value** and the title follow, and the year list is blank before 1900 and unchanged after 2100.
+<!-- /test -->
 
+<!-- test: MethodTests.NextMonth_FromJanuary31_SelectsTheLastDayOfFebruary, MethodTests.PreviousMonth_FromMarch31_SelectsTheLastDayOfFebruary, MethodTests.NextYear_FromFebruary29_SelectsFebruary28, MethodTests.PreviousYear_FromFebruary29_SelectsFebruary28 -->
 > [!WARNING] BETA 1005
 > [**DateAdd**](../../../Modules/DateTime/DateAdd) with the interval `"m"`, `"q"` or `"yyyy"` does not stop at the end of a shorter month: the date overflows into the next month. **NextMonth**, **PreviousMonth**, **NextYear** and **PreviousYear** call **DateAdd**, so **NextMonth** from January 31, 2026 selects March 3, 2026, **PreviousMonth** from March 31, 2026 selects March 3, 2026, and **NextYear** from February 29, 2024 selects March 1, 2025. VB6 gives the last day of the shorter month in every such case: February 28, 2026 for the first one.
 
 ### NextDay
 {: .no_toc }
 
+<!-- test: MethodTests.NextDay_SelectsTheDayAfter -->
 Selects the day after the selected one.
+<!-- /test -->
 
 ### NextMonth
 {: .no_toc }
 
+<!-- test: MethodTests.NextMonth_SelectsTheSameDayOneMonthAfter, MethodTests.NextMonth_FromJanuary31_SelectsTheLastDayOfFebruary, MethodTests.NextMonth_FromFebruary28_SelectsMarch28 -->
 Selects the same day one month after the selected one, or the last day of that month when it has no such day, so January 31 gives February 28 or 29. The change stays: **NextMonth** from February 28 gives March 28, not March 31. In BETA 1005 the result differs for the 29th to the 31st: see the warning at the start of this section.
+<!-- /test -->
 
 ### NextWeek
 {: .no_toc }
 
+<!-- test: MethodTests.NextWeek_SelectsTheDaySevenDaysAfter -->
 Selects the day seven days after the selected one.
+<!-- /test -->
 
 ### NextYear
 {: .no_toc }
 
+<!-- test: MethodTests.NextYear_SelectsTheSameDayOneYearAfter, MethodTests.NextYear_FromFebruary29_SelectsFebruary28 -->
 Selects the same day one year after the selected one, or February 28 when the selected day is February 29 and the next year is not a leap year. In BETA 1005 the result differs for February 29: see the warning at the start of this section.
+<!-- /test -->
 
 ### PreviousDay
 {: .no_toc }
 
+<!-- test: MethodTests.PreviousDay_SelectsTheDayBefore -->
 Selects the day before the selected one.
+<!-- /test -->
 
 ### PreviousMonth
 {: .no_toc }
 
+<!-- test: MethodTests.PreviousMonth_SelectsTheSameDayOneMonthBefore, MethodTests.PreviousMonth_FromMarch31_SelectsTheLastDayOfFebruary -->
 Selects the same day one month before the selected one. The remarks for [**NextMonth**](#nextmonth) apply, and so does the warning at the start of this section.
+<!-- /test -->
 
 ### PreviousWeek
 {: .no_toc }
 
+<!-- test: MethodTests.PreviousWeek_SelectsTheDaySevenDaysBefore -->
 Selects the day seven days before the selected one.
+<!-- /test -->
 
 ### PreviousYear
 {: .no_toc }
 
+<!-- test: MethodTests.PreviousYear_SelectsTheSameDayOneYearBefore, MethodTests.PreviousYear_FromFebruary29_SelectsFebruary28 -->
 Selects the same day one year before the selected one. The remarks for [**NextYear**](#nextyear) apply, and so does the warning at the start of this section.
+<!-- /test -->
 
 ### Refresh
 {: .no_toc }
@@ -396,7 +467,9 @@ Draws the control again. It does not place the dates of the grid again, and so d
 ### Today
 {: .no_toc }
 
+<!-- test: MethodTests.Today_SelectsTodayAndShowsItsMonth, MethodTests.Today_KeepsTheTimeOfDay -->
 Selects today's date, and shows its month. The time of day of **Value** is kept: with **Value** at 3:30 PM on another day, **Today** gives today at 3:30 PM.
+<!-- /test -->
 
 ```tb check_build
 Private Sub ShowMoves()
@@ -428,7 +501,9 @@ Raised when the user clicks a day, before the selection is moved.
 Syntax: *object*\_**BeforeUpdate**( *Cancel* **As Integer** )
 
 *Cancel*
+<!-- test: MouseTests.BeforeUpdate_CancelKeepsTheSelection, MouseTests.BeforeUpdate_CancelOfOneKeepsTheSelection -->
 : Passed in as `0`. Set to any value other than `0`, such as **True**, to cancel the selection: the date and the drawing are not changed and **AfterUpdate** is not raised. **MouseUp** and **Click** are still raised. The event does not say which date was clicked, and **Value** is still the date selected before.
+<!-- /test -->
 
 ```tb check_build
 Private SelectionLocked As Boolean
@@ -498,7 +573,9 @@ Syntax: *object*\_**MouseDown**( *Button* **As Integer**, *Shift* **As Integer**
 ### MouseMove
 {: .no_toc }
 
+<!-- test: MouseTests.MouseMove_IsRaisedWhenThePointerMoves -->
 Raised when the pointer moves over the control.
+<!-- /test -->
 
 Syntax: *object*\_**MouseMove**( *Button* **As Integer**, *Shift* **As Integer**, *X* **As Single**, *Y* **As Single** )
 
@@ -509,7 +586,9 @@ Syntax: *object*\_**MouseMove**( *Button* **As Integer**, *Shift* **As Integer**
 : The state of the Shift, Ctrl and Alt keys.
 
 *X*, *Y*
+<!-- test: MouseTests.MouseEvents_ReportThePositionInDevicePixels -->
 : The position of the pointer in device pixels, from the top left corner of the control. The values are not scaled to the size of the control at design time: at 144 DPI a control that is 256 pixels wide at design time is 384 pixels wide, and a press 192 pixels from its left edge gives *X* 192.
+<!-- /test -->
 
 ### MouseUp
 {: .no_toc }
@@ -523,7 +602,9 @@ The parameters are those of [**MouseMove**](#mousemove).
 ### NewMonth
 {: .no_toc }
 
+<!-- test: SelectorTests.MonthList_Choice_SelectsTheSameDayAndRaisesNewMonth -->
 Raised after the user chooses a month in the month list, once the selection has moved to the same day of that month.
+<!-- /test -->
 
 Syntax: *object*\_**NewMonth**( )
 
@@ -532,7 +613,9 @@ A change of month by any other means, such as a click on a day of another month,
 ### NewYear
 {: .no_toc }
 
+<!-- test: SelectorTests.YearList_Choice_SelectsTheSameDayAndRaisesNewYear -->
 Raised after the user chooses a year in the year list.
+<!-- /test -->
 
 Syntax: *object*\_**NewYear**( )
 
@@ -545,38 +628,45 @@ A change of year by any other means does not raise it. Choosing a year in which
 
 The value of [**DayLength**](#daylength).
 
+<!-- test: EnumTests.DayLengthEnum_Values -->
 | Member | Value | Shows |
 |:-------|------:|:------|
 | **ShortLength** | 0 | the first letter, such as `M` |
 | **MediumLength** | 1 | the first three letters, such as `Mon` |
 | **LongLength** | 2 | the whole name, such as `Monday` |
+<!-- /test -->
 
 ### GridCellEffectEnum
 {: .no_toc }
 
 The value of [**GridCellEffect**](#gridcelleffect).
 
+<!-- test: EnumTests.GridCellEffectEnum_Values -->
 | Member | Value | Lines |
 |:-------|------:|:------|
 | **Flat** | 0 | one line in **GridLinesColor** |
 | **Raised** | 1 | a black line and a white line beside it |
 | **Sunken** | 2 | a white line and a black line beside it |
+<!-- /test -->
 
 ### MonthLengthEnum
 {: .no_toc }
 
 The value of [**MonthLength**](#monthlength).
 
+<!-- test: EnumTests.MonthLengthEnum_Values -->
 | Member | Value | Shows |
 |:-------|------:|:------|
 | **ShortLength** | 0 | the first three letters, such as `Oct` |
 | **LongLength** | 1 | the whole name, such as `October` |
+<!-- /test -->
 
 ### WeekDaysEnum
 {: .no_toc }
 
 The value of [**FirstDay**](#firstday). The values are those of the [**VbDayOfWeek**](../../../Modules/Constants/VbDayOfWeek) constants.
 
+<!-- test: EnumTests.WeekDaysEnum_Values -->
 | Member | Value |
 |:-------|------:|
 | **Sunday** | 1 |
@@ -586,6 +676,7 @@ The value of [**FirstDay**](#firstday). The values are those of the [**VbDayOfWe
 | **Thursday** | 5 |
 | **Friday** | 6 |
 | **Saturday** | 7 |
+<!-- /test -->
 
 ```tb check_build
 Private Sub Form_Load()
@@ -607,3 +698,7 @@ End Sub
 - [Toolbox](../../../IDE/Project/Toolbox) -- placing a control on a form
 - [MonthView](../../WinNativeCommonCtls/MonthView) class -- the month calendar of the Windows common controls
 - [DTPicker](../../WinNativeCommonCtls/DTPicker) class -- the date and time picker of the same package
+
+## Test cases
+
+The notes and warnings of this section are checked by the test cases in [xCalendar-tests.twinproj](xCalendar-tests.twinproj), a twinBASIC project. It uses xCalendar as a [linked package](../../../../Features/Packages/Linked#manual-management): put the package's `.twinpack` in `%APPDATA%\twinBASIC\packages`, then run the project, and each case prints whether it passes.
diff --git a/docs/Reference/Experimental.md b/docs/Reference/Experimental.md
index 9402d235..f6858ef8 100644
--- a/docs/Reference/Experimental.md
+++ b/docs/Reference/Experimental.md
@@ -13,13 +13,14 @@ Community-authored packages from TWINSERV that are not yet ready for use in a pr
 These packages are published through TWINSERV, as the [Contributed Packages](../Contributed/) are, and are documented in the same way. A package is listed here when its newest version does not compile in the current twinBASIC, or when it has defects that a program would meet. Each section says which version it documents and what does not work yet. A package moves to the Contributed Packages once a version of it works, and its pages keep their addresses.
 
 - [**ArrayListLib**](../Contributed/ArrayListLib/) -- a list class in place of .NET's `ArrayList`. Version 1.6.151.1 does not compile in twinBASIC BETA 1005, and in a copy that does, a **For Each** over a list with no items fails, **ToString** of such a list never returns, **Reverse** leaves the two middle items of an even run in place, and a second **GetEnumerator** over the same list ignores its arguments.
-- [**BigNumberLib**](../Contributed/BigNumberLib/) -- arbitrary-precision signed integer arithmetic. Version 1.0.2.0 compiles, and has several members that give wrong results or do not return: setting **IsNegative** to **True**, a negative operand of the greatest common divisor and the least common multiple, a zero from **AssignFromLong**, and the modular inverse of zero.
+- [**BigNumberLib**](../Contributed/BigNumberLib/) -- arbitrary-precision signed integer arithmetic. Version 1.0.2.0 compiles, and has several members that give wrong results or do not return: setting **IsNegative** to **True**, a negative operand of the greatest common divisor and the least common multiple, the least common multiple of two zeros, a zero from **AssignFromLong**, and the modular inverse of zero.
 - [**TBMANLIB**](../Contributed/TBMANLIB/) -- a toolkit of helpers: JSON, an HTTP client, logs, INI and CSV files, timers, strings, bytes, files and dictionaries. Version 1.0.0.29 compiles for 32-bit programs, does not compile in a 64-bit build, and has several members that fail or give wrong results.
 - [**TBMANLIB_Aes**](../Contributed/TBMANLIB_Aes/) -- AES encryption of text and byte arrays. Version 1.0.0.4 compiles, and its cipher modes are not the ones their names say: the default mode, CBC, runs ECB, and the output does not match the standard test vectors.
 - [**TBMANLIB_ConsoleComponents**](../Contributed/TBMANLIB_ConsoleComponents/) -- text-interface components for console programs: progress bars, charts, tables and panels. Version 1.0.0.1 compiles, and its components cannot use a console object of the published TBMANLIB_ConsoleCore, since the package carries a copy of that package whose types the compiler treats as different.
 - [**TBMANLIB_ConsoleCore**](../Contributed/TBMANLIB_ConsoleCore/) -- a console library with colours, UTF-8 and a full-screen mode. Version 1.0.0.1 compiles, and it reads keys wrongly and has several helpers that give wrong results.
 - [**TBMANLIB_Diagnostic**](../Contributed/TBMANLIB_Diagnostic/) -- a diagnostic report of the computer and its processes, as text, JSON or HTML. Version 1.0.0.1 compiles. Its **Dictionary** class cannot be created, and several of its list and file helpers and two of its collectors fail or give wrong results.
 - [**TBMANLIB_Dialog**](../Contributed/TBMANLIB_Dialog/) -- the Open, Save and folder dialogs (**cDialog**, **cDialogEx**), the Color, Font, Find, Replace, Page Setup and Print dialogs, and message, input, password, date and progress dialogs. Version 1.1.0.0 compiles, and several of its classes fail at their main task: the Find and Replace dialogs report nothing to the program, Page Setup ignores the paper size and orientation, **cDialogEx** returns file names without their folder, the password dialog shows the password in its confirmation boxes, and the date dialog keeps input it refused. **cDialog** works.
+- [**TBMANLIB_ListBoxHScroll**](../Contributed/TBMANLIB_ListBoxHScroll/) -- a horizontal scroll bar for a **ListBox**. Version 1.0.0.1 compiles, and its scroll arrows and track move the thumb by a different step than the list's contents, so the thumb runs ahead of the text and the arrows cannot reach the end of a long line.
 - [**TBMANLIB_Xml**](../Contributed/TBMANLIB_Xml/) -- XML documents parsed, edited and written, in twinBASIC code. Version 1.0.0.1 compiles, and its parser misreads some common XML, such as self-closing elements and entities in text, and does not return for some malformed text. Its XPath engine reads some valid expressions as others, such as the step `..` and `and` with `or`.
 - [**WinReg**](../Contributed/WinReg/) -- registry keys and values, read, written, deleted and enumerated. Version 1.0.1.1 does not compile in twinBASIC BETA 1005, and three of its methods give wrong results: **ReadString** returns the text followed by NUL characters, **GetRegistryValueType** returns **REG_NONE** for a value that holds data, and one overload of **ConvertValueToString** finds no value.
 - [**xCalendar**](../Contributed/xCalendar/) -- a calendar control, in place of the Calendar control of `MSCAL.OCX`. Version 1.0.17.0 compiles, and has defects, among them a grid that keeps the dates of the old month when **Value** is set to another month, and colour properties of the text that have no effect.
diff --git a/docs/_book.yml b/docs/_book.yml
index a489d702..3fd648f1 100644
--- a/docs/_book.yml
+++ b/docs/_book.yml
@@ -544,13 +544,6 @@ parts:
         landing_is_target: true
         outline_closed: true
 
-      - title: TBMANLIB_ListBoxHScroll Package
-        subtitle: A horizontal scroll bar for a ListBox
-        landing_page: /tB/Packages/Contributed/TBMANLIB_ListBoxHScroll/
-        page: /tB/Packages/Contributed/TBMANLIB_ListBoxHScroll/
-        landing_is_target: true
-        outline_closed: true
-
       - title: TBMANLIB_RES Package
         subtitle: Resources embedded in an executable, as bytes, strings, hex, Base64 or pictures
         landing_page: /tB/Packages/Contributed/TBMANLIB_RES/
@@ -669,6 +662,13 @@ parts:
         landing_is_target: true
         outline_closed: true
 
+      - title: TBMANLIB_ListBoxHScroll Package
+        subtitle: A horizontal scroll bar for a ListBox
+        landing_page: /tB/Packages/Contributed/TBMANLIB_ListBoxHScroll/
+        page: /tB/Packages/Contributed/TBMANLIB_ListBoxHScroll/
+        landing_is_target: true
+        outline_closed: true
+
       - title: TBMANLIB_Xml Package
         subtitle: XML documents parsed, edited and written, in twinBASIC code
         landing_page: /tB/Packages/Contributed/TBMANLIB_Xml/
diff --git a/lib/package-tests.mjs b/lib/package-tests.mjs
index 579e50c9..dc688860 100644
--- a/lib/package-tests.mjs
+++ b/lib/package-tests.mjs
@@ -8,7 +8,12 @@
 // A project is three things put together: the Settings of the package's sample template
 // (test/example-projects/contributed-<Package>/Settings), which names the version the section
 // documents; the shared Expect.twin; and the package folder's own Sources/, its [TestFixture]
-// modules and the RunAll module generated from them.
+// modules and the RunAll module generated from them; and its Resources/, when the cases need
+// resources in the project (TBMANLIB_RES reads them).
+//
+// A compile case that expects an error is a compile error of its project, and the compiler runs
+// no [TestCase] in a project with errors. So those cases are a second project, the package
+// folder's compile/, which holds compile cases only and is never published.
 
 import { createHash } from "node:crypto";
 import { existsSync, readdirSync, readFileSync, statSync } from "node:fs";
@@ -17,6 +22,8 @@ import path from "node:path";
 export const EXPECT_FILE = "Expect.twin";
 export const RUNALL_FILE = "RunAll.twin";
 export const EXPECT_JSON = "expect.json";
+export const COMPILE_DIR = "compile";
+export const RESOURCES_DIR = "Resources";
 
 /** The file name of a package's published test project. */
 export const downloadName = (pkg) => `${pkg}-tests.twinproj`;
@@ -100,17 +107,46 @@ export function testSettings(template, pkg) {
  * @returns {{name: string, text: string}[]}  `name` is the path under Sources/
  */
 export function testSources(root, pkg) {
-  const lf = (t) => t.replace(/\r\n?/g, "\n");
-  const files = [{ name: EXPECT_FILE, text: lf(readFileSync(path.join(root, EXPECT_FILE), "utf8")) }];
-  const dir = path.join(root, pkg, "Sources");
+  return [
+    { name: EXPECT_FILE, text: lf(readFileSync(path.join(root, EXPECT_FILE), "utf8")) },
+    ...filesUnder(path.join(root, pkg, "Sources")),
+  ];
+}
+
+/**
+ * The compile project's source files: the package folder's compile/ in name order, each with LF
+ * line ends; none when the folder is absent.
+ *
+ * @returns {{name: string, text: string}[]}  `name` is the path under compile/
+ */
+export function compileSources(root, pkg) {
+  const dir = path.join(root, pkg, COMPILE_DIR);
+  return existsSync(dir) ? filesUnder(dir) : [];
+}
+
+/**
+ * The project's resources: the package folder's Resources/ (`<TYPE>/<NAME>`, as an exported
+ * project keeps them) in name order, byte for byte; none when the folder is absent.
+ *
+ * @returns {{name: string, bytes: Buffer}[]}  `name` is the path under Resources/
+ */
+export function resourceFiles(root, pkg) {
+  const dir = path.join(root, pkg, RESOURCES_DIR);
+  if (!existsSync(dir)) return [];
+  return filesUnder(dir, (file) => readFileSync(file)).map((f) => ({ name: f.name, bytes: f.text }));
+}
+
+const lf = (t) => t.replace(/\r\n?/g, "\n");
+
+function filesUnder(dir, read = (file) => lf(readFileSync(file, "utf8"))) {
+  const files = [];
   const walk = (rel) => {
     for (const e of readdirSync(path.join(dir, rel), { withFileTypes: true }).sort((a, b) =>
       a.name < b.name ? -1 : a.name > b.name ? 1 : 0,
     )) {
       const r = rel ? `${rel}/${e.name}` : e.name;
       if (e.isDirectory()) walk(r);
-      else if (statSync(path.join(dir, r)).isFile())
-        files.push({ name: r, text: lf(readFileSync(path.join(dir, r), "utf8")) });
+      else if (statSync(path.join(dir, r)).isFile()) files.push({ name: r, text: read(path.join(dir, r)) });
     }
   };
   walk("");
diff --git a/scripts/check_package_tests.mjs b/scripts/check_package_tests.mjs
index 7f74e043..fec01879 100644
--- a/scripts/check_package_tests.mjs
+++ b/scripts/check_package_tests.mjs
@@ -17,7 +17,8 @@
 // For a package with a test project it checks that:
 //   * every callout of the section's pages has a marker, and every item of it names something
 //     that exists;
-//   * every case is named by some marker;
+//   * every case is named by some marker, a compile case of the compile/ project included;
+//   * compile/, when there is one, holds compile cases only;
 //   * every [TestCase] Sub starts with Expect.Begin and ends with Expect.Done, and every
 //     [TestCase] can be called;
 //   * expect.json is for the version the section documents (its indexed_from, which the sample
@@ -38,6 +39,8 @@ import { exitOnCrash, parseCli, printHelpAndExit, withUsageError } from "../lib/
 import { parseFrontmatter } from "../lib/frontmatter.mjs";
 import { markdownFiles } from "../lib/markdown-files.mjs";
 import {
+  COMPILE_DIR,
+  compileSources,
   EXPECT_FILE,
   EXPECT_JSON,
   packageTestNames,
@@ -90,32 +93,7 @@ if (
 // The contributed sections that have no test project yet. Each package's project removes it
 // from here; the gate fails on a name here with a project, and on a section neither here nor
 // with one.
-const PENDING = new Set([
-  "ArrayListLib",
-  "AutoCompleteLib",
-  "BigNumberLib",
-  "FileProps",
-  "Fmt",
-  "Generics",
-  "OLEGuids",
-  "TBMANLIB",
-  "TBMANLIB_Aes",
-  "TBMANLIB_ConsoleComponents",
-  "TBMANLIB_ConsoleCore",
-  "TBMANLIB_Diagnostic",
-  "TBMANLIB_Dialog",
-  "TBMANLIB_ListBoxHScroll",
-  "TBMANLIB_RES",
-  "TBMANLIB_Xml",
-  "TwinTimerLib",
-  "VBA_JSON",
-  "VBComDlg",
-  "WinReg",
-  "tbProjPacker",
-  "tsJson",
-  "tsPwGen",
-  "xCalendar",
-]);
+const PENDING = new Set(["ArrayListLib", "WinReg"]);
 
 const DOCS = path.join(REPO_ROOT, "docs");
 const SECTIONS = path.join(DOCS, "Reference", "Contributed");
@@ -352,8 +330,14 @@ function checkPackage(pkg) {
   if (existsSync(path.join(dir, "Sources", EXPECT_FILE)))
     out.push(`Sources/${EXPECT_FILE} is a copy: the shared one is used`);
   const files = testSources(ROOT, pkg);
-  const { tests, compiles, problems: callable } = projectCases(files);
+  const { tests, compiles: own, problems: callable } = projectCases(files);
   out.push(...callable, ...malformedCases(files, tests));
+  const compileProject = projectCases(compileSources(ROOT, pkg));
+  out.push(...compileProject.problems.map((p) => `${COMPILE_DIR}/: ${p}`));
+  if (compileProject.tests.length) out.push(`${COMPILE_DIR}/ holds a [TestCase]: it holds compile cases only`);
+  const compiles = [...own, ...compileProject.compiles];
+  for (const c of compileProject.compiles)
+    if (own.some((x) => x.name === c.name)) out.push(`two compile cases are named ${c.name}`);
 
   const expectFile = path.join(dir, EXPECT_JSON);
   let expect = { cases: {} };
@@ -366,6 +350,13 @@ function checkPackage(pkg) {
     }
     if (expect.version !== version)
       out.push(`${EXPECT_JSON} is for version ${expect.version}, the section documents ${version}`);
+    if (
+      expect.arches !== undefined &&
+      (!Array.isArray(expect.arches) ||
+        !expect.arches.length ||
+        expect.arches.some((a) => !["win32", "win64"].includes(a)))
+    )
+      out.push(`${EXPECT_JSON}: arches is a non-empty list of win32 and win64, or absent for both`);
   }
   const caseNames = new Set([...tests.map((t) => `${t.fixture}.${t.name}`), ...compiles.map((c) => c.name)]);
   for (const name of Object.keys(expect.cases ?? {})) {
diff --git a/scripts/lib/package-test-cases.mjs b/scripts/lib/package-test-cases.mjs
index 332c771e..df051635 100644
--- a/scripts/lib/package-test-cases.mjs
+++ b/scripts/lib/package-test-cases.mjs
@@ -24,7 +24,8 @@ const caseName = (t) => `${t.fixture}.${t.name}`;
 
 /**
  * The text of RunAll.twin: Sub Main runs every [TestCase] Sub under Expect's collecting mode and
- * prints PASS, FAIL or SKIP for each. A case expect.json says never returns is skipped.
+ * prints PASS, FAIL or SKIP for each. A case expect.json says never returns, or ends in a native
+ * exception, is skipped on the architecture where it does (skipReason).
  *
  * @param {object} o
  * @param {string} o.pkg
@@ -44,20 +45,36 @@ export function runAllText({ pkg, version, tests, expect }) {
     `        Expect.StartRun "${pkg} ${version}: ${tests.length} test case${tests.length === 1 ? "" : "s"}"`,
     "        On Error Resume Next",
   ];
+  const run = (name) => [
+    "        Expect.StartCase",
+    "        Err.Clear",
+    `        ${name}`,
+    `        Expect.EndCase "${name}", Err.Number, Err.Description`,
+  ];
   for (const t of tests) {
     const name = caseName(t);
-    const never = ARCHES.every((a) => expectationFor(expect, name, a).kind === "hang");
-    if (never) {
-      lines.push(`        Expect.Skip "${name}", "it does not return in version ${version}"`);
-      continue;
-    }
-    lines.push("        Expect.StartCase", "        Err.Clear", `        ${name}`);
-    lines.push(`        Expect.EndCase "${name}", Err.Number, Err.Description`);
+    const why = Object.fromEntries(ARCHES.map((a) => [a, skipReason(expectationFor(expect, name, a), version)]));
+    if (why.win32 && why.win64 && why.win32 === why.win64) {
+      lines.push(`        Expect.Skip "${name}", "${why.win32}"`);
+    } else if (why.win32 || why.win64) {
+      const branch = (a) => (why[a] ? [`        Expect.Skip "${name}", "${why[a]}"`] : run(name));
+      lines.push("#If Win64 Then", ...branch("win64"), "#Else", ...branch("win32"), "#End If");
+    } else lines.push(...run(name));
   }
   lines.push("        On Error GoTo 0", "        Expect.EndRun", "    End Sub", "", "End Module", "");
   return lines.join("\n");
 }
 
+// Why RunAll skips a case on one architecture, or "": one that never returns would stop the run,
+// and one that ends in a native exception (a stack overflow, an access violation) may take the
+// reader's IDE or exe down with it, as it does a built exe. package_tests.mjs still runs both.
+function skipReason(expected, version) {
+  if (expected.kind === "hang") return `it does not return in version ${version}`;
+  if (expected.kind === "fail" && /NATIVE EXCEPTION/.test(expected.detail))
+    return `it ends in a native exception in version ${version}`;
+  return "";
+}
+
 /**
  * What expect.json says a case does on one architecture. A case it does not name passes. An
  * entry is { fails: "<detail>" } or { hangs: true }, for both architectures, or
@@ -112,18 +129,28 @@ export function judge(expected, outcome) {
  */
 export function expectFrom({ version, names, outcomes, previous }) {
   const one = (o) => (o.kind === "pass" ? "pass" : o.kind === "hang" ? { hangs: true } : { fails: o.detail });
+  const arches = archesOf(previous);
   const cases = {};
   for (const name of names) {
     const per = {};
-    for (const a of ARCHES) {
+    for (const a of arches) {
       const o = outcomes.get(name)?.[a] ?? expectationFor(previous, name, a);
       per[a] = one(o);
     }
-    const same = JSON.stringify(per.win32) === JSON.stringify(per.win64);
-    if (same && per.win32 === "pass") continue;
-    cases[name] = same ? per.win32 : per;
+    const [first, ...rest] = arches.map((a) => per[a]);
+    const same = rest.every((p) => JSON.stringify(p) === JSON.stringify(first));
+    if (same && first === "pass") continue;
+    cases[name] = same ? first : per;
   }
-  return { version, cases };
+  return Array.isArray(previous?.arches) ? { version, arches: previous.arches, cases } : { version, cases };
+}
+
+/**
+ * The architectures a package is tested on: expect.json's `arches` when it has one (TBMANLIB
+ * 1.0.0.29 does not compile for win64, so its project runs as win32 only), else both.
+ */
+export function archesOf(expect) {
+  return Array.isArray(expect?.arches) ? ARCHES.filter((a) => expect.arches.includes(a)) : ARCHES;
 }
 
 // ---------------------------------------------------------------- markers
diff --git a/scripts/lib/tb-tests.mjs b/scripts/lib/tb-tests.mjs
index b29e8994..94420ac6 100644
--- a/scripts/lib/tb-tests.mjs
+++ b/scripts/lib/tb-tests.mjs
@@ -129,8 +129,9 @@ export function judgeCompiles(compiles, rows) {
  * @param {object} c  a tb-cdp connection to an IDE whose project compiled clean
  * @param {{fixture: string, name: string}} test
  * @param {number} timeoutMs
- * @returns {Promise<{pass: boolean, detail: string}>}  `detail` is the failure,
- *   on one line, with the line the case stopped on when the compiler gives it
+ * @returns {Promise<{pass: boolean, detail: string, timedOut?: true}>}  `detail` is the failure,
+ *   on one line, with the line the case stopped on when the compiler gives it; `timedOut` when the
+ *   case was still running after `timeoutMs`, which leaves the compiler busy with it
  */
 export async function runTest(c, { fixture, name }, timeoutMs) {
   const expression = JSON.stringify(`${fixture}.${name}`);
@@ -148,7 +149,11 @@ export async function runTest(c, { fixture, name }, timeoutMs) {
     String(s)
       .replace(/\s*\r?\n\s*/g, " ")
       .trim();
-  if (r.timedOut) return { pass: false, detail: `no answer from the compiler after ${timeoutMs / 1000} s` };
+  // The case is still running: the compiler cannot cancel an evaluate, so its main thread stays busy
+  // until the case ends, and the caller must not send it another (it would be refused at once with
+  // "main thread is busy").
+  if (r.timedOut)
+    return { pass: false, detail: `no answer from the compiler after ${timeoutMs / 1000} s`, timedOut: true };
   // success false: the expression did not compile, as for a Sub that is not there.
   if (!r.success) return { pass: false, detail: oneLine(r.message || "the compiler refused to run it") };
   if (r.body?.error) {
diff --git a/scripts/package_tests.mjs b/scripts/package_tests.mjs
index 4e86380e..9c47a1bb 100644
--- a/scripts/package_tests.mjs
+++ b/scripts/package_tests.mjs
@@ -29,6 +29,10 @@
 // so a case expect.json marks as never returning is run alone, and a case that unexpectedly
 // does not return is judged, and the cases after it are run again in a new IDE.
 //
+// A compile case that expects an error is in the package folder's compile/, a project of compile
+// cases only, because the compiler runs no [TestCase] in a project with errors; it is staged with
+// the package embedded too, and its cases are judged with the rest.
+//
 // RunAll.twin, which the project's Sub Main runs, is generated from the cases and expect.json:
 // the run writes it again when it is out of date, and says so.
 //
@@ -52,6 +56,10 @@ import {
   withUsageError,
 } from "../lib/cli.mjs";
 import {
+  COMPILE_DIR,
+  compileSources,
+  RESOURCES_DIR,
+  resourceFiles,
   EXPECT_JSON,
   packageTestNames,
   packageVersion,
@@ -65,6 +73,7 @@ import { REPO_ROOT } from "../lib/repo-paths.mjs";
 import { embeddedPackages } from "./lib/example-batches.mjs";
 import {
   ARCHES,
+  archesOf,
   expectationFor,
   expectFrom,
   judge,
@@ -185,30 +194,53 @@ async function runPackage(pkg) {
   }
   let files = testSources(ROOT, pkg);
   const { tests, compiles, problems } = projectCases(files);
+  const compileFiles = compileSources(ROOT, pkg);
+  const compileProject = projectCases(compileFiles);
+  problems.push(...compileProject.problems.map((p) => `${COMPILE_DIR}/: ${p}`));
+  if (compileProject.tests.length) problems.push(`${COMPILE_DIR}/ holds a [TestCase]: it holds compile cases only`);
   if (problems.length) die(2, `${pkg}:\n${problems.map((p) => `  ${p}`).join("\n")}`);
   refreshRunAll(pkg, version, tests, expect);
   files = testSources(ROOT, pkg);
 
-  const names = [...compiles.map((c) => c.name), ...tests.map((t) => `${t.fixture}.${t.name}`)];
+  const compileNames = compileProject.compiles.map((c) => c.name);
+  const names = [...compiles.map((c) => c.name), ...compileNames, ...tests.map((t) => `${t.fixture}.${t.name}`)];
+  const twice = names.filter((n, i) => names.indexOf(n) !== i);
+  if (twice.length) die(2, `${pkg}: two cases are named ${[...new Set(twice)].join(", ")}`);
   say(`${pkg} ${version}: ${names.length} case${names.length === 1 ? "" : "s"}`);
   const outcomes = new Map(names.map((n) => [n, {}]));
-  for (const arch of opts.arches) {
-    const tree = stageTree(pkg, arch, template, files);
-    const hangs = names.filter((n) => expectationFor(expect, n, arch).kind === "hang");
-    let rest = names.filter((n) => !hangs.includes(n));
-    // A case that does not return stops the compiler, so the cases after it are run again.
+  // A package tested on one architecture only (expect.json's arches) is run on that one.
+  const arches = opts.arches.filter((a) => archesOf(expect).includes(a));
+  if (arches.length < opts.arches.length) say(`  tested on ${archesOf(expect).join(", ")} only`);
+  for (const arch of arches) {
+    if (compileNames.length) {
+      const compileTree = stageTree(`${pkg}-${COMPILE_DIR}`, pkg, arch, template, compileFiles);
+      for (const r of tbrunCases(compileTree, arch, compileNames, opts.timeout))
+        outcomes.get(r.name)[arch] = outcomeOf(r);
+    }
+    const tree = stageTree(pkg, pkg, arch, template, files, resourceFiles(ROOT, pkg));
+    const own = names.filter((n) => !compileNames.includes(n));
+    const hangs = own.filter((n) => expectationFor(expect, n, arch).kind === "hang");
+    let rest = own.filter((n) => !hangs.includes(n));
+    // A case that does not return keeps the compiler busy, so tbrun reports the cases it did not
+    // send as "not run", and those are run again in a new IDE: by name, whatever order tbrun ran
+    // the files in.
     while (rest.length) {
       const results = tbrunCases(tree, arch, rest, opts.timeout);
-      let next = [];
+      const next = [];
+      let stalled = null;
       for (const r of results) {
+        if (/^not run: /.test(r.detail ?? "") && !r.pass) {
+          next.push(r.name);
+          continue;
+        }
         const o = outcomeOf(r);
         outcomes.get(r.name)[arch] = o;
-        if (o.kind === "hang") {
-          next = rest.slice(rest.indexOf(r.name) + 1);
-          if (next.length) say(`  ${arch}: ${r.name} did not return; running the ${next.length} after it again`);
-          break;
-        }
+        if (o.kind === "hang") stalled = r.name;
       }
+      if (next.length)
+        say(`  ${arch}: ${stalled ?? "a case"} did not return; running the ${next.length} not run again`);
+      if (next.length && !stalled)
+        throw new Error(`tbrun left ${next.length} cases not run, and no case that did not return`);
       rest = next;
     }
     for (const name of hangs) {
@@ -219,7 +251,7 @@ async function runPackage(pkg) {
 
   const cases = [];
   for (const name of names) {
-    for (const arch of opts.arches) {
+    for (const arch of arches) {
       const expected = expectationFor(expect, name, arch);
       const got = outcomes.get(name)[arch] ?? { kind: "fail", detail: "no result" };
       const verdict = judge(expected, got);
@@ -232,7 +264,7 @@ async function runPackage(pkg) {
     }
   }
   const documented = cases.filter((c) => c.verdict === "documented").length;
-  say(`  ${documented} of ${cases.length} as documented (${opts.arches.join(", ")})`);
+  say(`  ${documented} of ${cases.length} as documented (${arches.join(", ")})`);
 
   if (values.update) {
     const next = expectFrom({ version, names, outcomes, previous: expect });
@@ -274,9 +306,11 @@ async function ensurePackage(settings) {
   }
 }
 
-function stageTree(pkg, arch, template, files) {
+// The project staged as WORK/<label>-<arch>-<port>, with the package embedded, and with the
+// resources given (the run-time project's Resources/, byte for byte).
+function stageTree(label, pkg, arch, template, files, resources = []) {
   const settings = testSettings(template, pkg);
-  const tree = path.join(WORK, `${pkg}-${arch}-${port}`);
+  const tree = path.join(WORK, `${label}-${arch}-${port}`);
   rmSync(tree, { recursive: true, force: true });
   mkdirSync(path.join(tree, "Sources"), { recursive: true });
   writeFileSync(path.join(tree, "Settings"), `${JSON.stringify(settings, null, "\t")}\n`, "utf8");
@@ -290,6 +324,11 @@ function stageTree(pkg, arch, template, files) {
     mkdirSync(path.dirname(out), { recursive: true });
     writeFileSync(out, f.text.replace(/\n/g, "\r\n"), "utf8");
   }
+  for (const r of resources) {
+    const out = path.join(tree, RESOURCES_DIR, ...r.name.split("/"));
+    mkdirSync(path.dirname(out), { recursive: true });
+    writeFileSync(out, r.bytes);
+  }
   return tree;
 }
 
@@ -308,6 +347,15 @@ function tbrunCases(tree, arch, names, timeoutSecs) {
   if (!json || (r.status !== 0 && r.status !== 7)) {
     throw new Error(`tbrun exited ${r.status} on ${tree} (${arch}):\n${r.stderr || r.stdout}`);
   }
+  // A run-time project that does not compile ran nothing: that is the project's fault, never a
+  // verdict on a case, so it is not judged (nor written to expect.json by --update).
+  if (json.cases.some((c) => /^not run: the project has compile errors/.test(c.detail ?? ""))) {
+    const errors = (json.diagnostics ?? []).filter((d) => String(d).startsWith("{ERROR}"));
+    throw new Error(
+      `${tree} (${arch}) does not compile, so no case ran; a compile case that expects an error goes in ` +
+        `${COMPILE_DIR}/:\n${errors.map((d) => `  ${d}`).join("\n")}`,
+    );
+  }
   const byName = new Map(json.cases.map((c) => [c.name, c]));
   return names.map((n) => ({ name: n, ...(byName.get(n) ?? { pass: false, detail: "tbrun gave no result" }) }));
 }
diff --git a/scripts/tbrun.mjs b/scripts/tbrun.mjs
index ed5f7880..0abb9660 100644
--- a/scripts/tbrun.mjs
+++ b/scripts/tbrun.mjs
@@ -179,7 +179,10 @@ project's own test cases instead.
   --ide <path>        as tbbuild's
   --port <n>          DevTools port to start the IDE on (default 9346)
   --arch <target>     win32 or win64 (default win32)
-  --timeout <secs>    give up waiting for console output (default 120)
+  --timeout <secs>    give up waiting for console output (default 120); with
+                      --tests, how long each case may run: one still running
+                      then is reported "no answer", and the cases after it
+                      "not run", since the compiler cannot stop it
   --quiet <ms>        output is complete after this long with no change
                       (default 2500)
   --json              emit one JSON object instead of text
@@ -659,16 +662,26 @@ process.exit(0);
 // --tests: the compile cases judged by the diagnostics the compile reported, and
 // each [TestCase] Sub run in the compiler's test mode (lib/tb-tests.mjs), one at a
 // time, --timeout each. A project with errors runs none of them, and says so for
-// each. The diagnostics follow the cases' lines, which are what a reproducer's
-// expect reads. Never returns.
+// each. A case that is still running at --timeout is reported "no answer" and the
+// cases after it are reported "not run", not sent: the compiler cannot cancel it.
+// The diagnostics follow the cases' lines, which are what a reproducer's expect
+// reads. Never returns.
 async function runCases() {
   const results = judgeCompiles(cases.compiles, outcome.rows).map((r) => ({ ...r }));
   const errors = outcome.counts[0] > 0;
   try {
+    // A case still running at --timeout cannot be stopped, and the compiler's main thread refuses every
+    // request until it ends ("main thread is busy"), so the cases after it are not sent.
+    let stalled = null;
     for (const t of cases.tests) {
       const name = `${t.fixture}.${t.name}`;
       if (errors) results.push({ name, pass: false, detail: "not run: the project has compile errors" });
-      else results.push({ name, ...(await runTest(cdp, t, timeoutMs)) });
+      else if (stalled) results.push({ name, pass: false, detail: `not run: ${stalled} did not return` });
+      else {
+        const r = await runTest(cdp, t, timeoutMs);
+        results.push({ name, ...r });
+        if (r.timedOut) stalled = name;
+      }
     }
     cdp.close();
   } catch (e) {
diff --git a/test/package-tests/AutoCompleteLib/Sources/CustomSourceTests.twin b/test/package-tests/AutoCompleteLib/Sources/CustomSourceTests.twin
new file mode 100644
index 00000000..e4a08652
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/Sources/CustomSourceTests.twin
@@ -0,0 +1,156 @@
+' AutoComplete.CustomSource: what the list keeps, what it ignores and the errors it raises.
+[TestFixture]
+Module CustomSourceTests
+
+    [TestCase]
+    Public Sub Set_Strings_AreKeptInOrder()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        Expect.AreEqual "0", Rig.Assign(ac, Array("Apple", "Apricot", "Banana")), "assigning three strings"
+        Expect.AreEqual "[Apple][Apricot][Banana]", Rig.Items(ac), "the list after assigning three strings"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Get_ReturnsAZeroBasedStringArray()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        Dim v As Variant
+        v = ac.CustomSource
+        Expect.IsTrue IsArray(v), "CustomSource returns an array"
+        Expect.AreEqual "String()", TypeName(v), "the type of the array CustomSource returns"
+        Expect.AreEqual 0, LBound(v), "the lower bound of the array CustomSource returns"
+        Expect.AreEqual 1, UBound(v), "the upper bound of the array CustomSource returns for two strings"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_EmptyStrings_AreIgnored()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("a", "", "b", vbNullString)
+        Expect.AreEqual "[a][b]", Rig.Items(ac), "the list after assigning two strings and two empty strings"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_NonStringElements_AreIgnored()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("a", 5, Null, Empty, 2.5, #1/1/2000#, True, "b")
+        Expect.AreEqual "[a][b]", Rig.Items(ac), "the list after assigning two strings among numbers, a Null, an Empty, a date and a Boolean"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_ArrayOfNumbers_GivesAnEmptyList()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("old")
+        Dim n(0 To 1) As Long
+        n(0) = 1
+        n(1) = 2
+        Expect.AreEqual "0", Rig.Assign(ac, n), "assigning an array of Long"
+        Expect.AreEqual "", Rig.Items(ac), "the list after assigning an array of Long"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_TypedStringArray_WithALowerBound_IsKept()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        Dim s(2 To 4) As String
+        s(2) = "x"
+        s(3) = ""
+        s(4) = "z"
+        Expect.AreEqual "0", Rig.Assign(ac, s), "assigning a String array with bounds 2 To 4"
+        Expect.AreEqual "[x][z]", Rig.Items(ac), "the list after assigning a String array with bounds 2 To 4"
+        Dim v As Variant
+        v = ac.CustomSource
+        Expect.AreEqual 0, LBound(v), "the lower bound of the array CustomSource returns"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_NewArray_ReplacesThePreviousListInFull()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("p", "q", "r")
+        ac.CustomSource = Array("s")
+        Expect.AreEqual "[s]", Rig.Items(ac), "the list after a second assignment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_ZeroLengthArray_ClearsTheList()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("p", "q")
+        Expect.AreEqual "0", Rig.Assign(ac, Array()), "assigning Array()"
+        Expect.AreEqual "", Rig.Items(ac), "the list after assigning Array()"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_Empty_ClearsTheList()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("p", "q")
+        Expect.AreEqual "0", Rig.Assign(ac, Empty), "assigning Empty"
+        Expect.AreEqual "", Rig.Items(ac), "the list after assigning Empty"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_TwoDimensionalArray_Raises5_AndKeepsTheList()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("p", "q")
+        Dim two(1, 1) As String
+        two(0, 0) = "x"
+        Expect.AreEqual "5 Array must be single dimensioned", Rig.Assign(ac, two), "assigning a two-dimensional array"
+        Expect.AreEqual "[p][q]", Rig.Items(ac), "the list after the failed assignment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_UnallocatedArray_Raises91_AndKeepsTheList()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("p", "q")
+        Dim un() As String
+        Expect.AreEqual "91 Array is not allocated", Rig.Assign(ac, un), "assigning an array that is not allocated"
+        Expect.AreEqual "[p][q]", Rig.Items(ac), "the list after the failed assignment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Set_AValueThatIsNotAnArray_Raises380()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("p", "q")
+        Expect.AreEqual "380 Invalid property value", Rig.Assign(ac, "text"), "assigning a String"
+        Expect.AreEqual "380 Invalid property value", Rig.Assign(ac, 5), "assigning a number"
+        Expect.AreEqual "380 Invalid property value", Rig.Assign(ac, Null), "assigning Null"
+        Expect.AreEqual "[p][q]", Rig.Items(ac), "the list after the failed assignments"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Get_EmptyList_IsAnArrayThatIsNotAllocated()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        Dim v As Variant
+        v = ac.CustomSource
+        Expect.IsTrue IsArray(v), "CustomSource of an object that was given no list is an array"
+        Dim n As Long
+        n = -99
+        On Error Resume Next
+        n = UBound(v)
+        Expect.AreEqual 9, Err.Number, "UBound of the array of an object that was given no list raises"
+        Err.Clear
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/AutoCompleteLib/Sources/FileSystemOptionsTests.twin b/test/package-tests/AutoCompleteLib/Sources/FileSystemOptionsTests.twin
new file mode 100644
index 00000000..133cc3f2
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/Sources/FileSystemOptionsTests.twin
@@ -0,0 +1,104 @@
+' AutoComplete.FileSystemOptions: the flags it keeps and the file-system objects they select.
+[TestFixture]
+Module FileSystemOptionsTests
+
+    [TestCase]
+    Public Sub EachConstant_IsKept()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        Dim values As Variant
+        values = Array(AutoCompleteFileSystemOptionNone, AutoCompleteFileSystemOptionCurrentDir, AutoCompleteFileSystemOptionMyComputer, AutoCompleteFileSystemOptionDesktop, AutoCompleteFileSystemOptionFavorites, AutoCompleteFileSystemOptionFileSysOnly, AutoCompleteFileSystemOptionFileSysDirs)
+        Dim i As Long
+        For i = 0 To UBound(values)
+            ac.FileSystemOptions = values(i)
+            Expect.AreEqual CLng(values(i)), CLng(ac.FileSystemOptions), "FileSystemOptions read back after setting " & values(i)
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Combination_IsKept()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.FileSystemOptions = AutoCompleteFileSystemOptionDesktop Or AutoCompleteFileSystemOptionFileSysOnly Or AutoCompleteFileSystemOptionFileSysDirs
+        Expect.AreEqual 52, CLng(ac.FileSystemOptions), "FileSystemOptions read back after setting Desktop Or FileSysOnly Or FileSysDirs"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileSysDirs_OffersADirectory()
+        Expect.Begin
+        Rig.MakeFolder
+        Expect.AreEqual Rig.Folder() & "\zdir", Rig.FilesFor(Rig.Folder() & "\z", AutoCompleteFileSystemOptionFileSysDirs), "the text after typing z in a folder that holds the folder zdir, with FileSysDirs"
+        Rig.CleanFolder
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileSysDirs_DoesNotOfferAFile()
+        Expect.Begin
+        Rig.MakeFolder
+        Expect.AreEqual Rig.Folder() & "\f", Rig.FilesFor(Rig.Folder() & "\f", AutoCompleteFileSystemOptionFileSysDirs), "the text after typing f in a folder that holds the file ffile.txt, with FileSysDirs"
+        Rig.CleanFolder
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileSysOnly_OffersAFile()
+        Expect.Begin
+        Rig.MakeFolder
+        Expect.AreEqual Rig.Folder() & "\ffile.txt", Rig.FilesFor(Rig.Folder() & "\f", AutoCompleteFileSystemOptionFileSysOnly), "the text after typing f in a folder that holds the file ffile.txt, with FileSysOnly"
+        Rig.CleanFolder
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetBeforeInit_Applies()
+        Expect.Begin
+        Rig.MakeFolder
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.Options = AutoCompleteOptionAppend
+        ac.FileSystemOptions = AutoCompleteFileSystemOptionFileSysDirs
+        ac.Init h, AutoCompleteSourceFileSystem
+        Expect.AreEqual Rig.Folder() & "\f", Rig.TypeInto(h, Rig.Folder() & "\f", Rig.WaitFiles), "the text after typing f, with FileSysDirs set before Init"
+        Win.Destroy h
+        Rig.CleanFolder
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetAfterInit_Applies()
+        Expect.Begin
+        Rig.MakeFolder
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.Options = AutoCompleteOptionAppend
+        ac.FileSystemOptions = AutoCompleteFileSystemOptionFileSysOnly
+        ac.Init h, AutoCompleteSourceFileSystem
+        ac.FileSystemOptions = AutoCompleteFileSystemOptionFileSysDirs
+        Expect.AreEqual Rig.Folder() & "\f", Rig.TypeInto(h, Rig.Folder() & "\f", Rig.WaitFiles), "the text after typing f, with FileSysDirs set after Init"
+        Win.Destroy h
+        Rig.CleanFolder
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AllSource_FollowsTheSetting()
+        Expect.Begin
+        Rig.MakeFolder
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.Options = AutoCompleteOptionAppend
+        ac.FileSystemOptions = AutoCompleteFileSystemOptionFileSysDirs
+        ac.Init h, AutoCompleteSourceAll
+        Expect.AreEqual Rig.Folder() & "\f", Rig.TypeInto(h, Rig.Folder() & "\f", Rig.WaitFiles), "the text after typing f with the source All and FileSysDirs"
+        Win.Destroy h
+        Rig.CleanFolder
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/AutoCompleteLib/Sources/InitTests.twin b/test/package-tests/AutoCompleteLib/Sources/InitTests.twin
new file mode 100644
index 00000000..c9f4d58f
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/Sources/InitTests.twin
@@ -0,0 +1,197 @@
+' AutoComplete.Init: the sources it attaches, the errors it raises, and what an attached edit does.
+[TestFixture]
+Module InitTests
+
+    [TestCase]
+    Public Sub CustomSource_CompletesTheTypedText()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Apricot", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        Expect.AreEqual "Banana", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B with the list Apple, Apricot, Banana"
+        Expect.AreEqual "1,6", Win.GetSel(h), "the appended part is selected"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomSource_NoMatch_LeavesTheText()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Apricot", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        Expect.AreEqual "Q", Rig.TypeInto(h, "Q", Rig.WaitList), "the text after typing Q with the list Apple, Apricot, Banana"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomSource_EmptyList_LeavesTheText()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        Expect.AreEqual "B", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B with no list"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomSource_ReplacedAfterInit_CompletesFromTheNewList()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        ac.CustomSource = Array("Cherry")
+        Expect.AreEqual "Cherry", Rig.TypeInto(h, "C", Rig.WaitList), "the text after typing C once the list was replaced by Cherry"
+        Expect.AreEqual "B", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B once the list was replaced by Cherry"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomSource_ClearedAfterInit_CompletesNothing()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        ac.CustomSource = Empty
+        Expect.AreEqual "B", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B once the list was cleared"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileSystem_CompletesAPath()
+        Expect.Begin
+        Rig.MakeFolder
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceFileSystem
+        Expect.AreEqual Rig.Folder() & "\ffile.txt", Rig.TypeInto(h, Rig.Folder() & "\f", Rig.WaitFiles), "the text after typing the first letter of a file name in a folder that holds ffile.txt"
+        Win.Destroy h
+        Rig.CleanFolder
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub All_CompletesAPath()
+        Expect.Begin
+        Rig.MakeFolder
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceAll
+        Expect.AreEqual Rig.Folder() & "\ffile.txt", Rig.TypeInto(h, Rig.Folder() & "\f", Rig.WaitFiles), "the text after typing the first letter of a file name in a folder that holds ffile.txt"
+        Win.Destroy h
+        Rig.CleanFolder
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HistoryMruAndAll_RaiseNothing()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim a As New AutoComplete
+        Dim b As New AutoComplete
+        Dim c As New AutoComplete
+        Expect.AreEqual "0", Rig.InitError(a, h, AutoCompleteSourceHistory), "Init with AutoCompleteSourceHistory"
+        Expect.AreEqual "0", Rig.InitError(b, h, AutoCompleteSourceMRU), "Init with AutoCompleteSourceMRU"
+        Expect.AreEqual "0", Rig.InitError(c, h, AutoCompleteSourceAll), "Init with AutoCompleteSourceAll"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SourceNone_Raises380()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        Expect.AreEqual "380 Invalid property value", Rig.InitError(ac, h, AutoCompleteSourceNone), "Init with AutoCompleteSourceNone"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SourceOutsideTheTable_Raises380()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        Expect.AreEqual "380 Invalid property value", Rig.InitError(ac, h, 6), "Init with a source of 6"
+        Expect.AreEqual "380 Invalid property value", Rig.InitError(ac, h, -1), "Init with a source of -1"
+        Expect.AreEqual "380 Invalid property value", Rig.InitError(ac, h, 100), "Init with a source of 100"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WindowHandleZero_Raises5()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        Expect.AreEqual "5 Automation error", Rig.InitError(ac, 0, AutoCompleteSourceHistory), "Init with a window handle of 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SecondCall_OnTheSameObject_Raises()
+        Expect.Begin
+        Dim h1 As LongPtr
+        Dim h2 As LongPtr
+        h1 = Win.Make()
+        h2 = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Banana")
+        ac.Options = AutoCompleteOptionAppend
+        Expect.AreEqual "0", Rig.InitError(ac, h1, AutoCompleteSourceCustomSource), "the first Init"
+        Expect.AreEqual "-2147467259 Automation error", Rig.InitError(ac, h2, AutoCompleteSourceCustomSource), "a second Init, for another window, on the same object"
+        Expect.AreEqual "-2147467259 Automation error", Rig.InitError(ac, h1, AutoCompleteSourceCustomSource), "a second Init, for the same window, on the same object"
+        Expect.AreEqual "Banana", Rig.TypeInto(h1, "B", Rig.WaitList), "the text of the first window after typing B"
+        Expect.AreEqual "B", Rig.TypeInto(h2, "B", Rig.WaitList), "the text of the second window after typing B"
+        Win.Destroy h1
+        Win.Destroy h2
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OneObjectForEachWindow_RaiseNothing()
+        Expect.Begin
+        Dim h1 As LongPtr
+        Dim h2 As LongPtr
+        h1 = Win.Make()
+        h2 = Win.Make()
+        Dim a As New AutoComplete
+        Dim b As New AutoComplete
+        a.CustomSource = Array("Apple")
+        b.CustomSource = Array("Banana")
+        a.Options = AutoCompleteOptionAppend
+        b.Options = AutoCompleteOptionAppend
+        Expect.AreEqual "0", Rig.InitError(a, h1, AutoCompleteSourceCustomSource), "Init of the first object"
+        Expect.AreEqual "0", Rig.InitError(b, h2, AutoCompleteSourceCustomSource), "Init of the second object"
+        Expect.AreEqual "Apple", Rig.TypeInto(h1, "A", Rig.WaitList), "the text of the first window after typing A"
+        Expect.AreEqual "Banana", Rig.TypeInto(h2, "B", Rig.WaitList), "the text of the second window after typing B"
+        Win.Destroy h1
+        Win.Destroy h2
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/AutoCompleteLib/Sources/OptionsTests.twin b/test/package-tests/AutoCompleteLib/Sources/OptionsTests.twin
new file mode 100644
index 00000000..de7961f3
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/Sources/OptionsTests.twin
@@ -0,0 +1,99 @@
+' AutoComplete.Options: the flags it keeps and the append behaviour they switch on.
+[TestFixture]
+Module OptionsTests
+
+    [TestCase]
+    Public Sub EachConstant_IsKept()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        Dim values As Variant
+        values = Array(AutoCompleteOptionNone, AutoCompleteOptionAppend, AutoCompleteOptionSuggest, AutoCompleteOptionSuggestAppend, AutoCompleteOptionSearch, AutoCompleteOptionFilterPrefixes, AutoCompleteOptionUseTab, AutoCompleteOptionUpDownKeyDropsList, AutoCompleteOptionRightToLeft)
+        Dim i As Long
+        For i = 0 To UBound(values)
+            ac.Options = values(i)
+            Expect.AreEqual CLng(values(i)), CLng(ac.Options), "Options read back after setting " & values(i)
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Constants_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 0, CLng(AutoCompleteOptionNone), "AutoCompleteOptionNone"
+        Expect.AreEqual 2, CLng(AutoCompleteOptionAppend), "AutoCompleteOptionAppend"
+        Expect.AreEqual 1, CLng(AutoCompleteOptionSuggest), "AutoCompleteOptionSuggest"
+        Expect.AreEqual 3, CLng(AutoCompleteOptionSuggestAppend), "AutoCompleteOptionSuggestAppend"
+        Expect.AreEqual 4, CLng(AutoCompleteOptionSearch), "AutoCompleteOptionSearch"
+        Expect.AreEqual 8, CLng(AutoCompleteOptionFilterPrefixes), "AutoCompleteOptionFilterPrefixes"
+        Expect.AreEqual &H10, CLng(AutoCompleteOptionUseTab), "AutoCompleteOptionUseTab"
+        Expect.AreEqual &H20, CLng(AutoCompleteOptionUpDownKeyDropsList), "AutoCompleteOptionUpDownKeyDropsList"
+        Expect.AreEqual &H40, CLng(AutoCompleteOptionRightToLeft), "AutoCompleteOptionRightToLeft"
+        Expect.AreEqual 0, CLng(AutoCompleteSourceNone), "AutoCompleteSourceNone"
+        Expect.AreEqual 1, CLng(AutoCompleteSourceHistory), "AutoCompleteSourceHistory"
+        Expect.AreEqual 2, CLng(AutoCompleteSourceFileSystem), "AutoCompleteSourceFileSystem"
+        Expect.AreEqual 3, CLng(AutoCompleteSourceMRU), "AutoCompleteSourceMRU"
+        Expect.AreEqual 4, CLng(AutoCompleteSourceAll), "AutoCompleteSourceAll"
+        Expect.AreEqual 5, CLng(AutoCompleteSourceCustomSource), "AutoCompleteSourceCustomSource"
+        Expect.AreEqual 0, CLng(AutoCompleteFileSystemOptionNone), "AutoCompleteFileSystemOptionNone"
+        Expect.AreEqual 1, CLng(AutoCompleteFileSystemOptionCurrentDir), "AutoCompleteFileSystemOptionCurrentDir"
+        Expect.AreEqual 2, CLng(AutoCompleteFileSystemOptionMyComputer), "AutoCompleteFileSystemOptionMyComputer"
+        Expect.AreEqual 4, CLng(AutoCompleteFileSystemOptionDesktop), "AutoCompleteFileSystemOptionDesktop"
+        Expect.AreEqual 8, CLng(AutoCompleteFileSystemOptionFavorites), "AutoCompleteFileSystemOptionFavorites"
+        Expect.AreEqual 16, CLng(AutoCompleteFileSystemOptionFileSysOnly), "AutoCompleteFileSystemOptionFileSysOnly"
+        Expect.AreEqual 32, CLng(AutoCompleteFileSystemOptionFileSysDirs), "AutoCompleteFileSystemOptionFileSysDirs"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Combination_IsKept()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        ac.Options = AutoCompleteOptionSuggestAppend Or AutoCompleteOptionUseTab Or AutoCompleteOptionSearch
+        Expect.AreEqual &H17, CLng(ac.Options), "Options read back after setting SuggestAppend Or UseTab Or Search"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Append_AppendsTheBestMatch()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        Expect.AreEqual "Banana", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B with Append"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub None_AppendsNothing()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionNone
+        ac.Init h, AutoCompleteSourceCustomSource
+        Expect.AreEqual "B", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B with no option"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetAfterInit_Applies()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionNone
+        ac.Init h, AutoCompleteSourceCustomSource
+        ac.Options = AutoCompleteOptionAppend
+        Expect.AreEqual "Banana", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B, with Append set after Init"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/AutoCompleteLib/Sources/Rig.twin b/test/package-tests/AutoCompleteLib/Sources/Rig.twin
new file mode 100644
index 00000000..c9f1d126
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/Sources/Rig.twin
@@ -0,0 +1,93 @@
+' Rig: what the test cases of AutoCompleteLib set up. A case works on an edit window made by
+' Win.Make, which is never shown, and on a folder of its own under %TEMP%.
+Module Rig
+
+    ' How long the cases that expect a suggestion wait for it, and for no suggestion, in
+    ' milliseconds. Auto-complete answers through the thread's messages, and a file-system list
+    ' is read on a thread of its own.
+    Public Const WaitList As Long = 500
+    Public Const WaitFiles As Long = 1000
+
+    Public Function Folder() As String
+        Folder = Environ$("TEMP") & "\tbdocs-package-tests\AutoCompleteLib"
+    End Function
+
+    ' A folder holding the file ffile.txt and the folder zdir.
+    Public Sub MakeFolder()
+        On Error Resume Next
+        MkDir Environ$("TEMP") & "\tbdocs-package-tests"
+        MkDir Folder()
+        MkDir Folder() & "\zdir"
+        Dim n As Integer
+        n = FreeFile
+        Open Folder() & "\ffile.txt" For Output As #n
+        Close #n
+    End Sub
+
+    Public Sub CleanFolder()
+        On Error Resume Next
+        Kill Folder() & "\ffile.txt"
+        RmDir Folder() & "\zdir"
+        RmDir Folder()
+    End Sub
+
+    ' Types the last character of Prefix into an edit window that holds the rest of it, caret at
+    ' the end, as a person typing it would, and returns the text of the window once Millis
+    ' milliseconds have passed.
+    Public Function TypeInto(ByVal hWnd As LongPtr, ByVal Prefix As String, ByVal Millis As Long) As String
+        Win.SetText hWnd, Left$(Prefix, Len(Prefix) - 1)
+        Win.SetSel hWnd, Len(Prefix) - 1, Len(Prefix) - 1
+        Win.TypeChar hWnd, Right$(Prefix, 1)
+        Win.Pump Millis
+        TypeInto = Win.GetText(hWnd)
+    End Function
+
+    ' An AutoComplete object with the Append option attached to a new edit window, for the file
+    ' system, and the text that results from typing Prefix into it.
+    Public Function FilesFor(ByVal Prefix As String, ByVal FsOptions As Long) As String
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.Options = AutoCompleteOptionAppend
+        ac.FileSystemOptions = FsOptions
+        ac.Init h, AutoCompleteSourceFileSystem
+        FilesFor = TypeInto(h, Prefix, WaitFiles)
+        Win.Destroy h
+    End Function
+
+    ' The strings of the list the object holds, each in square brackets; "" for an empty list.
+    Public Function Items(ByVal ac As AutoComplete) As String
+        Dim v As Variant
+        v = ac.CustomSource
+        Dim lb As Long, ub As Long
+        lb = 0
+        ub = -1
+        On Error Resume Next
+        lb = LBound(v)
+        ub = UBound(v)
+        On Error GoTo 0
+        Dim i As Long
+        For i = lb To ub
+            Items = Items & "[" & v(i) & "]"
+        Next
+    End Function
+
+    ' The error that assigning Value to CustomSource raises: "<number> <description>", "0" if none.
+    Public Function Assign(ByVal ac As AutoComplete, ByVal Value As Variant) As String
+        On Error Resume Next
+        ac.CustomSource = Value
+        Assign = Err.Number
+        If Err.Number <> 0 Then Assign = Assign & " " & Err.Description
+        Err.Clear
+    End Function
+
+    ' The error that Init raises: "<number> <description>", "0" if none.
+    Public Function InitError(ByVal ac As AutoComplete, ByVal hWnd As LongPtr, ByVal Source As Long) As String
+        On Error Resume Next
+        ac.Init hWnd, Source
+        InitError = Err.Number
+        If Err.Number <> 0 Then InitError = InitError & " " & Err.Description
+        Err.Clear
+    End Function
+
+End Module
diff --git a/test/package-tests/AutoCompleteLib/Sources/RunAll.twin b/test/package-tests/AutoCompleteLib/Sources/RunAll.twin
new file mode 100644
index 00000000..4736578c
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/Sources/RunAll.twin
@@ -0,0 +1,190 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package AutoCompleteLib, version 1.0.3.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "AutoCompleteLib 1.0.3.0: 44 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_Strings_AreKeptInOrder
+        Expect.EndCase "CustomSourceTests.Set_Strings_AreKeptInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Get_ReturnsAZeroBasedStringArray
+        Expect.EndCase "CustomSourceTests.Get_ReturnsAZeroBasedStringArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_EmptyStrings_AreIgnored
+        Expect.EndCase "CustomSourceTests.Set_EmptyStrings_AreIgnored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_NonStringElements_AreIgnored
+        Expect.EndCase "CustomSourceTests.Set_NonStringElements_AreIgnored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_ArrayOfNumbers_GivesAnEmptyList
+        Expect.EndCase "CustomSourceTests.Set_ArrayOfNumbers_GivesAnEmptyList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_TypedStringArray_WithALowerBound_IsKept
+        Expect.EndCase "CustomSourceTests.Set_TypedStringArray_WithALowerBound_IsKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_NewArray_ReplacesThePreviousListInFull
+        Expect.EndCase "CustomSourceTests.Set_NewArray_ReplacesThePreviousListInFull", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_ZeroLengthArray_ClearsTheList
+        Expect.EndCase "CustomSourceTests.Set_ZeroLengthArray_ClearsTheList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_Empty_ClearsTheList
+        Expect.EndCase "CustomSourceTests.Set_Empty_ClearsTheList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_TwoDimensionalArray_Raises5_AndKeepsTheList
+        Expect.EndCase "CustomSourceTests.Set_TwoDimensionalArray_Raises5_AndKeepsTheList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_UnallocatedArray_Raises91_AndKeepsTheList
+        Expect.EndCase "CustomSourceTests.Set_UnallocatedArray_Raises91_AndKeepsTheList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Set_AValueThatIsNotAnArray_Raises380
+        Expect.EndCase "CustomSourceTests.Set_AValueThatIsNotAnArray_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomSourceTests.Get_EmptyList_IsAnArrayThatIsNotAllocated
+        Expect.EndCase "CustomSourceTests.Get_EmptyList_IsAnArrayThatIsNotAllocated", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileSystemOptionsTests.EachConstant_IsKept
+        Expect.EndCase "FileSystemOptionsTests.EachConstant_IsKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileSystemOptionsTests.Combination_IsKept
+        Expect.EndCase "FileSystemOptionsTests.Combination_IsKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileSystemOptionsTests.FileSysDirs_OffersADirectory
+        Expect.EndCase "FileSystemOptionsTests.FileSysDirs_OffersADirectory", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileSystemOptionsTests.FileSysDirs_DoesNotOfferAFile
+        Expect.EndCase "FileSystemOptionsTests.FileSysDirs_DoesNotOfferAFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileSystemOptionsTests.FileSysOnly_OffersAFile
+        Expect.EndCase "FileSystemOptionsTests.FileSysOnly_OffersAFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileSystemOptionsTests.SetBeforeInit_Applies
+        Expect.EndCase "FileSystemOptionsTests.SetBeforeInit_Applies", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileSystemOptionsTests.SetAfterInit_Applies
+        Expect.EndCase "FileSystemOptionsTests.SetAfterInit_Applies", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileSystemOptionsTests.AllSource_FollowsTheSetting
+        Expect.EndCase "FileSystemOptionsTests.AllSource_FollowsTheSetting", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.CustomSource_CompletesTheTypedText
+        Expect.EndCase "InitTests.CustomSource_CompletesTheTypedText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.CustomSource_NoMatch_LeavesTheText
+        Expect.EndCase "InitTests.CustomSource_NoMatch_LeavesTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.CustomSource_EmptyList_LeavesTheText
+        Expect.EndCase "InitTests.CustomSource_EmptyList_LeavesTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.CustomSource_ReplacedAfterInit_CompletesFromTheNewList
+        Expect.EndCase "InitTests.CustomSource_ReplacedAfterInit_CompletesFromTheNewList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.CustomSource_ClearedAfterInit_CompletesNothing
+        Expect.EndCase "InitTests.CustomSource_ClearedAfterInit_CompletesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.FileSystem_CompletesAPath
+        Expect.EndCase "InitTests.FileSystem_CompletesAPath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.All_CompletesAPath
+        Expect.EndCase "InitTests.All_CompletesAPath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.HistoryMruAndAll_RaiseNothing
+        Expect.EndCase "InitTests.HistoryMruAndAll_RaiseNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.SourceNone_Raises380
+        Expect.EndCase "InitTests.SourceNone_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.SourceOutsideTheTable_Raises380
+        Expect.EndCase "InitTests.SourceOutsideTheTable_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.WindowHandleZero_Raises5
+        Expect.EndCase "InitTests.WindowHandleZero_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.SecondCall_OnTheSameObject_Raises
+        Expect.EndCase "InitTests.SecondCall_OnTheSameObject_Raises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InitTests.OneObjectForEachWindow_RaiseNothing
+        Expect.EndCase "InitTests.OneObjectForEachWindow_RaiseNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.EachConstant_IsKept
+        Expect.EndCase "OptionsTests.EachConstant_IsKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Constants_HaveTheDocumentedValues
+        Expect.EndCase "OptionsTests.Constants_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Combination_IsKept
+        Expect.EndCase "OptionsTests.Combination_IsKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Append_AppendsTheBestMatch
+        Expect.EndCase "OptionsTests.Append_AppendsTheBestMatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.None_AppendsNothing
+        Expect.EndCase "OptionsTests.None_AppendsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.SetAfterInit_Applies
+        Expect.EndCase "OptionsTests.SetAfterInit_Applies", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SwitchTests.Disable_StopsTheSuggestions
+        Expect.EndCase "SwitchTests.Disable_StopsTheSuggestions", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SwitchTests.Enable_ResumesTheSuggestions
+        Expect.EndCase "SwitchTests.Enable_ResumesTheSuggestions", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SwitchTests.Disable_KeepsTheSourceAndTheList
+        Expect.EndCase "SwitchTests.Disable_KeepsTheSourceAndTheList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SwitchTests.DroppedDown_BeforeAnyList_IsFalse
+        Expect.EndCase "SwitchTests.DroppedDown_BeforeAnyList_IsFalse", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/AutoCompleteLib/Sources/SwitchTests.twin b/test/package-tests/AutoCompleteLib/Sources/SwitchTests.twin
new file mode 100644
index 00000000..563dae64
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/Sources/SwitchTests.twin
@@ -0,0 +1,68 @@
+' AutoComplete.Disable, Enable and DroppedDown: switching auto-complete off and on, and the drop-down's state.
+[TestFixture]
+Module SwitchTests
+
+    [TestCase]
+    Public Sub Disable_StopsTheSuggestions()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        ac.Disable
+        Expect.AreEqual "B", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B once auto-complete was disabled"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enable_ResumesTheSuggestions()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        ac.Disable
+        ac.Enable
+        Expect.AreEqual "Banana", Rig.TypeInto(h, "B", Rig.WaitList), "the text after typing B once auto-complete was disabled and enabled"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Disable_KeepsTheSourceAndTheList()
+        Expect.Begin
+        Dim h As LongPtr
+        h = Win.Make()
+        Dim ac As New AutoComplete
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        ac.Disable
+        Expect.AreEqual "[Apple][Banana]", Rig.Items(ac), "the list after Disable"
+        ac.Enable
+        Expect.AreEqual "Apple", Rig.TypeInto(h, "A", Rig.WaitList), "the text after typing A once auto-complete was disabled and enabled, with no second Init"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DroppedDown_BeforeAnyList_IsFalse()
+        Expect.Begin
+        Dim ac As New AutoComplete
+        Expect.IsFalse ac.DroppedDown, "DroppedDown of an object that was not initialised"
+        Dim h As LongPtr
+        h = Win.Make()
+        ac.CustomSource = Array("Apple", "Banana")
+        ac.Options = AutoCompleteOptionAppend
+        ac.Init h, AutoCompleteSourceCustomSource
+        Expect.IsFalse ac.DroppedDown, "DroppedDown of an object that was initialised and has not opened its list"
+        Win.Destroy h
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/AutoCompleteLib/Sources/Win.twin b/test/package-tests/AutoCompleteLib/Sources/Win.twin
new file mode 100644
index 00000000..701517c0
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/Sources/Win.twin
@@ -0,0 +1,94 @@
+' Win: the Win32 calls the test cases of AutoCompleteLib make on an edit window, and a few helpers
+' they share. A case makes its edit window with Make as a top-level window that is never shown, so
+' nothing appears on the desktop, and removes it with Destroy.
+Module Win
+
+    Private Declare PtrSafe Function CreateWindowExW Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As LongPtr, ByVal lpWindowName As LongPtr, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As LongPtr, ByVal hMenu As LongPtr, ByVal hInstance As LongPtr, ByVal lpParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function DestroyWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function SendMessageW Lib "user32" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function PeekMessageW Lib "user32" (ByRef lpMsg As MSG, ByVal hWnd As LongPtr, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
+    Private Declare PtrSafe Function TranslateMessage Lib "user32" (ByRef lpMsg As MSG) As Long
+    Private Declare PtrSafe Function DispatchMessageW Lib "user32" (ByRef lpMsg As MSG) As LongPtr
+    Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
+    Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr
+    Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hWnd As LongPtr) As Long
+
+    Private Type POINTAPI
+        x As Long
+        y As Long
+    End Type
+
+    Private Type MSG
+        hWnd As LongPtr
+        message As Long
+        wParam As LongPtr
+        lParam As LongPtr
+        time As Long
+        pt As POINTAPI
+    End Type
+
+    Private Const WM_GETTEXT As Long = &HD
+    Private Const WM_GETTEXTLENGTH As Long = &HE
+    Private Const WM_SETTEXT As Long = &HC
+    Private Const WM_CHAR As Long = &H102
+    Private Const EM_GETSEL As Long = &HB0
+    Private Const EM_SETSEL As Long = &HB1
+    Private Const PM_REMOVE As Long = 1
+
+    ' An edit control: a popup window that is never shown (no WS_VISIBLE).
+    Public Function Make() As LongPtr
+        ' WS_POPUP Or WS_BORDER, ES_AUTOHSCROLL
+        Make = CreateWindowExW(0, StrPtr("EDIT"), 0, &H80000000 Or &H800000 Or &H80&, 0, 0, 200, 24, 0, 0, 0, 0)
+    End Function
+
+    Public Sub Destroy(ByVal hWnd As LongPtr)
+        If hWnd <> 0 Then DestroyWindow hWnd
+    End Sub
+
+    Public Function IsShown(ByVal hWnd As LongPtr) As Boolean
+        IsShown = IsWindowVisible(hWnd) <> 0
+    End Function
+
+    Public Function GetText(ByVal hWnd As LongPtr) As String
+        Dim n As Long
+        n = CLng(SendMessageW(hWnd, WM_GETTEXTLENGTH, 0, 0))
+        Dim buf As String
+        buf = String$(n + 1, vbNullChar)
+        SendMessageW hWnd, WM_GETTEXT, n + 1, StrPtr(buf)
+        GetText = Left$(buf, n)
+    End Function
+
+    Public Sub SetText(ByVal hWnd As LongPtr, ByVal Text As String)
+        SendMessageW hWnd, WM_SETTEXT, 0, StrPtr(Text)
+    End Sub
+
+    ' The selection start and end, as "start,end".
+    Public Function GetSel(ByVal hWnd As LongPtr) As String
+        Dim s As Long, e As Long
+        SendMessageW hWnd, EM_GETSEL, VarPtr(s), VarPtr(e)
+        GetSel = s & "," & e
+    End Function
+
+    Public Sub SetSel(ByVal hWnd As LongPtr, ByVal Start As Long, ByVal Finish As Long)
+        SendMessageW hWnd, EM_SETSEL, Start, Finish
+    End Sub
+
+    ' Types one character into the edit control, as the keyboard does.
+    Public Sub TypeChar(ByVal hWnd As LongPtr, ByVal Ch As String)
+        SendMessageW hWnd, WM_CHAR, AscW(Ch), 1
+    End Sub
+
+    ' Dispatches the thread's messages for Millis milliseconds: auto-complete works through them.
+    Public Sub Pump(ByVal Millis As Long)
+        Dim m As MSG
+        Dim t0 As Long
+        t0 = GetTickCount()
+        Do While GetTickCount() - t0 < Millis
+            Do While PeekMessageW(m, 0, 0, 0, PM_REMOVE) <> 0
+                TranslateMessage m
+                DispatchMessageW m
+            Loop
+        Loop
+    End Sub
+
+End Module
diff --git a/test/package-tests/AutoCompleteLib/expect.json b/test/package-tests/AutoCompleteLib/expect.json
new file mode 100644
index 00000000..e109d96a
--- /dev/null
+++ b/test/package-tests/AutoCompleteLib/expect.json
@@ -0,0 +1,4 @@
+{
+  "version": "1.0.3.0",
+  "cases": {}
+}
diff --git a/test/package-tests/BigNumberLib/Sources/ArithmeticTests.twin b/test/package-tests/BigNumberLib/Sources/ArithmeticTests.twin
new file mode 100644
index 00000000..155f8102
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/ArithmeticTests.twin
@@ -0,0 +1,234 @@
+' BigNumber: AssignAddition, AssignSubtraction, AssignMultiplication, AssignDivision and
+' AssignSquared, checked against Decimal arithmetic for operands of up to 12 digits and against
+' digit-by-digit decimal strings for large ones.
+[TestFixture]
+Module ArithmeticTests
+
+    Private Function Operands() As Variant
+        Operands = Array("0", "1", "-1", "7", "-7", "123456789012", "-987654321098", "999999999999")
+    End Function
+
+    [TestCase]
+    Public Sub AssignAddition_Signs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Operands()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                a.ValueString = v(i)
+                b.ValueString = v(j)
+                r.AssignAddition a, b
+                Expect.AreEqual DecAdd(v(i), v(j)), r.ValueString, v(i) & " + " & v(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignAddition_ManualExample()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "123456789012345678901234567890"
+        b.ValueString = "987654321098765432109876543210"
+        r.AssignAddition a, b
+        Expect.AreEqual "1111111110111111111011111111100", r.ValueString, "123456789012345678901234567890 + 987654321098765432109876543210"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignAddition_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = Pattern(500, 1)
+        b.ValueString = Pattern(480, 2)
+        r.AssignAddition a, b
+        Expect.AreEqual StrAdd(Pattern(500, 1), Pattern(480, 2)), r.ValueString, "the sum of a 500-digit and a 480-digit number"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSubtraction_Signs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Operands()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                a.ValueString = v(i)
+                b.ValueString = v(j)
+                r.AssignSubtraction a, b
+                Expect.AreEqual DecSub(v(i), v(j)), r.ValueString, v(i) & " - " & v(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSubtraction_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim c As String
+        c = Pattern(450, 3)
+        b.ValueString = Pattern(500, 1)
+        a.ValueString = StrAdd(Pattern(500, 1), c)
+        r.AssignSubtraction a, b
+        Expect.AreEqual c, r.ValueString, "(a 500-digit number plus a 450-digit one) minus the 500-digit number"
+        r.AssignSubtraction b, a
+        Expect.AreEqual "-" & c, r.ValueString, "the same difference the other way round"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignMultiplication_Signs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Operands()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                a.ValueString = v(i)
+                b.ValueString = v(j)
+                r.AssignMultiplication a, b
+                Expect.AreEqual DecMul(v(i), v(j)), r.ValueString, v(i) & " * " & v(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignMultiplication_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim p As String
+        Dim q As String
+        p = Pattern(600, 3)
+        q = Pattern(580, 4)
+        a.ValueString = p
+        b.ValueString = q
+        r.AssignMultiplication a, b
+        Expect.AreEqual StrMul(p, q), r.ValueString, "a 600-digit number times a 580-digit one"
+        a.ValueString = "-" & p
+        r.AssignMultiplication a, b
+        Expect.AreEqual "-" & StrMul(p, q), r.ValueString, "the same product with a negative first factor"
+        b.ValueString = "-" & q
+        r.AssignMultiplication a, b
+        Expect.AreEqual StrMul(p, q), r.ValueString, "the same product with two negative factors"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignMultiplication_OperandsOf2048Bits()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueBinary = Rep("1", 2048)
+        r.AssignMultiplication a, a
+        Expect.AreEqual Rep("1", 2047) & Rep("0", 2048) & "1", r.ValueBinary, "(2^2048 - 1) squared, as AssignMultiplication"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignDivision_TruncatesTowardZero()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Operands()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                If v(j) <> "0" Then
+                    a.ValueString = v(i)
+                    b.ValueString = v(j)
+                    r.AssignDivision a, b
+                    Expect.AreEqual DecQuot(v(i), v(j)), r.ValueString, v(i) & " \ " & v(j)
+                End If
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignDivision_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim q As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = Pattern(800, 5)
+        b.ValueString = Pattern(300, 6)
+        q.AssignDivision a, b
+        r.AssignModulus a, b
+        Expect.AreEqual Pattern(800, 5), StrAdd(StrMul(q.ValueString, Pattern(300, 6)), r.ValueString), "(a \ b) * b + (a Mod b) for an 800-digit a and a 300-digit b"
+        Expect.AreEqual -1, StrCmp(r.ValueString, Pattern(300, 6)), "the remainder is less than the divisor"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSquared_Signs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        v = Operands()
+        For i = LBound(v) To UBound(v)
+            a.ValueString = v(i)
+            r.AssignSquared a
+            Expect.AreEqual DecMul(v(i), v(i)), r.ValueString, v(i) & " squared"
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSquared_LargeNumber()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "-" & Pattern(600, 7)
+        r.AssignSquared a
+        Expect.AreEqual StrMul(Pattern(600, 7), Pattern(600, 7)), r.ValueString, "a negative 600-digit number squared"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Example_Factorial50()
+        Expect.Begin
+        Dim result As New BigNumber
+        Dim factor As New BigNumber
+        Dim temp As New BigNumber
+        Dim i As Long
+        result.AssignFromLong 1
+        For i = 2 To 50
+            factor.AssignFromLong i
+            temp.AssignMultiplication result, factor
+            result.ValueString = temp.ValueString
+        Next i
+        Expect.AreEqual "30414093201713378043612608166064768844377641568960512000000000000", result.ValueString, "50!"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/ComparisonTests.twin b/test/package-tests/BigNumberLib/Sources/ComparisonTests.twin
new file mode 100644
index 00000000..6f541362
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/ComparisonTests.twin
@@ -0,0 +1,156 @@
+' BigNumber: IsEqualTo, IsLessThan, IsLessThanOrEqualTo, IsGreaterThan and IsGreaterThanOrEqualTo,
+' checked against the comparison of Decimal values.
+[TestFixture]
+Module ComparisonTests
+
+    Private Function Values() As Variant
+        Values = Array("-123456789012345678901234", "-5", "-1", "0", "1", "5", "99999999999999999999", "123456789012345678901234")
+    End Function
+
+    ' -1, 0 or 1: how the integers A and B compare.
+    Private Function Cmp(ByVal A As String, ByVal B As String) As Long
+        Dim x As Variant
+        Dim y As Variant
+        x = CDec(A)
+        y = CDec(B)
+        If x < y Then
+            Cmp = -1
+        ElseIf x > y Then
+            Cmp = 1
+        Else
+            Cmp = 0
+        End If
+    End Function
+
+    [TestCase]
+    Public Sub IsEqualTo_AllPairs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Values()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                a.ValueString = v(i)
+                b.ValueString = v(j)
+                Expect.AreEqual Cmp(v(i), v(j)) = 0, a.IsEqualTo(b), v(i) & " = " & v(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsLessThan_AllPairs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Values()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                a.ValueString = v(i)
+                b.ValueString = v(j)
+                Expect.AreEqual Cmp(v(i), v(j)) < 0, a.IsLessThan(b), v(i) & " < " & v(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsLessThanOrEqualTo_AllPairs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Values()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                a.ValueString = v(i)
+                b.ValueString = v(j)
+                Expect.AreEqual Cmp(v(i), v(j)) <= 0, a.IsLessThanOrEqualTo(b), v(i) & " <= " & v(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsGreaterThan_AllPairs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Values()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                a.ValueString = v(i)
+                b.ValueString = v(j)
+                Expect.AreEqual Cmp(v(i), v(j)) > 0, a.IsGreaterThan(b), v(i) & " > " & v(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsGreaterThanOrEqualTo_AllPairs()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Values()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                a.ValueString = v(i)
+                b.ValueString = v(j)
+                Expect.AreEqual Cmp(v(i), v(j)) >= 0, a.IsGreaterThanOrEqualTo(b), v(i) & " >= " & v(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Comparisons_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim s As String
+        Dim t As String
+        s = Pattern(500, 1)
+        t = Left$(s, 499) & Chr$(48 + ((Asc(Right$(s, 1)) - 48 + 1) Mod 10))
+        a.ValueString = s
+        b.ValueString = t
+        Expect.AreEqual StrCmp(s, t) < 0, a.IsLessThan(b), "a 500-digit number against one that differs in the last digit"
+        Expect.AreEqual StrCmp(s, t) > 0, a.IsGreaterThan(b), "the same, IsGreaterThan"
+        b.ValueString = Pattern(499, 1)
+        Expect.IsTrue a.IsGreaterThan(b), "a 500-digit number IsGreaterThan a 499-digit one"
+        Expect.IsFalse a.IsLessThanOrEqualTo(b), "a 500-digit number IsLessThanOrEqualTo a 499-digit one"
+        a.ValueString = "-" & Pattern(500, 1)
+        b.ValueString = "-" & Pattern(499, 1)
+        Expect.IsTrue a.IsLessThan(b), "a negative 500-digit number IsLessThan a negative 499-digit one"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsEqualTo_SameValueFromDifferentBases()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        a.ValueString = "255"
+        b.ValueHex = "FF"
+        Expect.IsTrue a.IsEqualTo(b), "255 from ValueString IsEqualTo FF from ValueHex"
+        b.ValueBinary = "-11111111"
+        a.ValueString = "-255"
+        Expect.IsTrue a.IsEqualTo(b), "-255 from ValueString IsEqualTo -11111111 from ValueBinary"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/ConversionTests.twin b/test/package-tests/BigNumberLib/Sources/ConversionTests.twin
new file mode 100644
index 00000000..bb5f6093
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/ConversionTests.twin
@@ -0,0 +1,193 @@
+' BigNumber: ValueString, ValueHex, ValueOctal and ValueBinary, what they accept and what they return.
+[TestFixture]
+Module ConversionTests
+
+    [TestCase]
+    Public Sub ValueString_NewNumberIsZero()
+        Expect.Begin
+        Dim n As New BigNumber
+        Expect.AreEqual "0", n.ValueString, "ValueString of a new BigNumber"
+        Expect.AreEqual "0", n.ValueHex, "ValueHex of a new BigNumber"
+        Expect.AreEqual "0", n.ValueOctal, "ValueOctal of a new BigNumber"
+        Expect.AreEqual "0", n.ValueBinary, "ValueBinary of a new BigNumber"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueString_RoundTrip()
+        Expect.Begin
+        Dim n As New BigNumber
+        Dim s As String
+        s = Pattern(300, 1)
+        n.ValueString = s
+        Expect.AreEqual s, n.ValueString, "ValueString of a 300-digit number, read back"
+        n.ValueString = "-" & s
+        Expect.AreEqual "-" & s, n.ValueString, "ValueString of the same number made negative, read back"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueString_IsTheDefaultMember()
+        Expect.Begin
+        Dim n As New BigNumber
+        Dim s As String
+        n = "123456789012345678901234567890"
+        s = n
+        Expect.AreEqual "123456789012345678901234567890", n.ValueString, "ValueString after n = ""123456789012345678901234567890"""
+        Expect.AreEqual "123456789012345678901234567890", s, "the value of n read into a String"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueString_StopsAtFirstInvalidCharacter()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "123abc456"
+        Expect.AreEqual "123", n.ValueString, "ValueString after setting ""123abc456"""
+        n.ValueString = "12 34"
+        Expect.AreEqual "12", n.ValueString, "ValueString after setting ""12 34"""
+        n.ValueString = "-45.67"
+        Expect.AreEqual "-45", n.ValueString, "ValueString after setting ""-45.67"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueString_LeadingPlusOrSpaceGivesZero()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "99"
+        n.ValueString = "+5"
+        Expect.AreEqual "0", n.ValueString, "ValueString after setting ""+5"" to a number that held 99"
+        n.ValueString = "99"
+        n.ValueString = " 5"
+        Expect.AreEqual "0", n.ValueString, "ValueString after setting "" 5"" to a number that held 99"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueString_NoDigitsGivesZero()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "99"
+        n.ValueString = "abc"
+        Expect.AreEqual "0", n.ValueString, "ValueString after setting ""abc"" to a number that held 99"
+        n.ValueString = "99"
+        n.ValueString = ""
+        Expect.AreEqual "0", n.ValueString, "ValueString after setting an empty string to a number that held 99"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueHex_UpperCaseWithoutLeadingZeros()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueHex = "00abc123"
+        Expect.AreEqual "ABC123", n.ValueHex, "ValueHex after setting ""00abc123"""
+        n.ValueHex = "ABC123"
+        Expect.AreEqual "11256099", n.ValueString, "ValueString after setting ValueHex to ""ABC123"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueHex_StopsAtFirstInvalidCharacter()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueHex = "ABC123he"
+        Expect.AreEqual "ABC123", n.ValueHex, "ValueHex after setting ""ABC123he"""
+        Expect.AreEqual "11256099", n.ValueString, "ValueString after setting ValueHex to ""ABC123he"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueHex_PrefixIsNotAccepted()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "99"
+        n.ValueHex = "0xFF"
+        Expect.AreEqual "0", n.ValueString, "ValueString after setting ValueHex to ""0xFF"""
+        n.ValueString = "99"
+        n.ValueHex = "&HFF"
+        Expect.AreEqual "0", n.ValueString, "ValueString after setting ValueHex to ""&HFF"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueHex_Negative()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueHex = "-FF"
+        Expect.AreEqual "-255", n.ValueString, "ValueString after setting ValueHex to ""-FF"""
+        Expect.AreEqual "-FF", n.ValueHex, "ValueHex after setting it to ""-FF"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueOctal_RoundTripAndStop()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueOctal = "377"
+        Expect.AreEqual "255", n.ValueString, "ValueString after setting ValueOctal to ""377"""
+        n.ValueOctal = "-377"
+        Expect.AreEqual "-255", n.ValueString, "ValueString after setting ValueOctal to ""-377"""
+        Expect.AreEqual "-377", n.ValueOctal, "ValueOctal after setting it to ""-377"""
+        n.ValueOctal = "389"
+        Expect.AreEqual "3", n.ValueString, "ValueString after setting ValueOctal to ""389"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueBinary_RoundTripAndStop()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueBinary = "11111111"
+        Expect.AreEqual "255", n.ValueString, "ValueString after setting ValueBinary to ""11111111"""
+        n.ValueBinary = "-11111111"
+        Expect.AreEqual "-255", n.ValueString, "ValueString after setting ValueBinary to ""-11111111"""
+        Expect.AreEqual "-11111111", n.ValueBinary, "ValueBinary after setting it to ""-11111111"""
+        n.ValueBinary = "1012"
+        Expect.AreEqual "5", n.ValueString, "ValueString after setting ValueBinary to ""1012"""
+        n.ValueBinary = "0001"
+        Expect.AreEqual "1", n.ValueBinary, "ValueBinary after setting it to ""0001"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Conversions_NegativeNumberInEveryBase()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "-255"
+        Expect.AreEqual "-FF", n.ValueHex, "ValueHex of -255"
+        Expect.AreEqual "-377", n.ValueOctal, "ValueOctal of -255"
+        Expect.AreEqual "-11111111", n.ValueBinary, "ValueBinary of -255"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Conversions_PowerOfTwoInEveryBase()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "1267650600228229401496703205376"
+        Expect.AreEqual "1" & Rep("0", 25), n.ValueHex, "ValueHex of 2^100"
+        Expect.AreEqual "2" & Rep("0", 33), n.ValueOctal, "ValueOctal of 2^100"
+        Expect.AreEqual "1" & Rep("0", 100), n.ValueBinary, "ValueBinary of 2^100"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Conversions_LargeNumberSameInEveryBase()
+        Expect.Begin
+        Dim d As New BigNumber
+        Dim h As New BigNumber
+        Dim o As New BigNumber
+        Dim b As New BigNumber
+        d.ValueString = Pattern(400, 4)
+        h.ValueHex = d.ValueHex
+        o.ValueOctal = d.ValueOctal
+        b.ValueBinary = d.ValueBinary
+        Expect.AreEqual d.ValueString, h.ValueString, "a 400-digit number carried through ValueHex"
+        Expect.AreEqual d.ValueString, o.ValueString, "a 400-digit number carried through ValueOctal"
+        Expect.AreEqual d.ValueString, b.ValueString, "a 400-digit number carried through ValueBinary"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/ErrorTests.twin b/test/package-tests/BigNumberLib/Sources/ErrorTests.twin
new file mode 100644
index 00000000..3c91862f
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/ErrorTests.twin
@@ -0,0 +1,177 @@
+' BigNumber: the errors of division and the modular methods, and HandleError.
+[TestFixture]
+Module ErrorTests
+
+    Private Function Describe(ByVal Number As Long, ByVal Description As String) As String
+        Describe = Number & " " & Description
+    End Function
+
+    [TestCase]
+    Public Sub AssignDivision_ByZero_RaisesError5()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim q As New BigNumber
+        a.ValueString = "-7"
+        b.ValueString = "0"
+        On Error Resume Next
+        q.AssignDivision a, b
+        Expect.AreEqual "5 invalid operation", Describe(Err.Number, Err.Description), "error of -7 \ 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignDivision_ByZero_KeepsTheValue()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim q As New BigNumber
+        a.ValueString = "-7"
+        b.ValueString = "2"
+        q.AssignDivision a, b
+        b.ValueString = "0"
+        On Error Resume Next
+        q.AssignDivision a, b
+        Err.Clear
+        Expect.AreEqual "-3", q.ValueString, "ValueString of the result after -7 \ 0 raised an error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignModulus_ByZero_RaisesError5()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "7"
+        b.ValueString = "0"
+        On Error Resume Next
+        r.AssignModulus a, b
+        Expect.AreEqual "5 invalid operation", Describe(Err.Number, Err.Description), "error of 7 Mod 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignAdditionModulus_ByZero_RaisesError5()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim m As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "3"
+        b.ValueString = "4"
+        m.ValueString = "0"
+        On Error Resume Next
+        r.AssignAdditionModulus a, b, m
+        Expect.AreEqual "5 invalid operation", Describe(Err.Number, Err.Description), "error of (3 + 4) Mod 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSubtractionModulus_ByZero_RaisesError5()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim m As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "3"
+        b.ValueString = "4"
+        m.ValueString = "0"
+        On Error Resume Next
+        r.AssignSubtractionModulus a, b, m
+        Expect.AreEqual "5 invalid operation", Describe(Err.Number, Err.Description), "error of (3 - 4) Mod 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignMultiplicationModulus_ByZero_RaisesError5()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim m As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "3"
+        b.ValueString = "4"
+        m.ValueString = "0"
+        On Error Resume Next
+        r.AssignMultiplicationModulus a, b, m
+        Expect.AreEqual "5 invalid operation", Describe(Err.Number, Err.Description), "error of (3 * 4) Mod 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSquaredModulus_ByZero_RaisesError5()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim m As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "3"
+        m.ValueString = "0"
+        On Error Resume Next
+        r.AssignSquaredModulus a, m
+        Expect.AreEqual "5 invalid operation", Describe(Err.Number, Err.Description), "error of (3 * 3) Mod 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HandleError_NewNumberRaisesNothing()
+        Expect.Begin
+        Dim n As New BigNumber
+        On Error Resume Next
+        n.HandleError
+        Expect.AreEqual 0, Err.Number, "error of HandleError on a new BigNumber"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HandleError_AfterAFailureRaisesAgain()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim q As New BigNumber
+        a.ValueString = "7"
+        b.ValueString = "0"
+        On Error Resume Next
+        q.AssignDivision a, b
+        Err.Clear
+        q.HandleError
+        Expect.AreEqual "5 invalid operation", Describe(Err.Number, Err.Description), "error of HandleError called after 7 \ 0 failed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HandleError_StaysAfterAMethodThatStoresNoStatus()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim q As New BigNumber
+        a.ValueString = "7"
+        b.ValueString = "0"
+        On Error Resume Next
+        q.AssignDivision a, b
+        Err.Clear
+        b.ValueString = "2"
+        q.AssignAddition a, b
+        q.HandleError
+        Expect.AreEqual "5 invalid operation", Describe(Err.Number, Err.Description), "error of HandleError called after 7 \ 0 failed and then AssignAddition ran"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HandleError_ClearedByAMemberThatStoresStatus()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim q As New BigNumber
+        a.ValueString = "7"
+        b.ValueString = "0"
+        On Error Resume Next
+        q.AssignDivision a, b
+        Err.Clear
+        q.ValueString = "5"
+        q.HandleError
+        Expect.AreEqual 0, Err.Number, "error of HandleError called after a failed division and then ValueString was set"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/GcdLcmTests.twin b/test/package-tests/BigNumberLib/Sources/GcdLcmTests.twin
new file mode 100644
index 00000000..34293ad1
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/GcdLcmTests.twin
@@ -0,0 +1,268 @@
+' BigNumber: AssignGreatestCommonDivisor and AssignLeastCommonMultiple.
+[TestFixture]
+Module GcdLcmTests
+
+    [TestCase]
+    Public Sub Gcd_PositiveValues()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim g As New BigNumber
+        a.ValueString = "12"
+        b.ValueString = "18"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "6", g.ValueString, "gcd(12, 18)"
+        a.ValueString = "17"
+        b.ValueString = "13"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "1", g.ValueString, "gcd(17, 13)"
+        a.ValueString = "1071"
+        b.ValueString = "462"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "21", g.ValueString, "gcd(1071, 462)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Gcd_WithZero()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim g As New BigNumber
+        a.ValueString = "0"
+        b.ValueString = "-25"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "25", g.ValueString, "gcd(0, -25)"
+        a.ValueString = "25"
+        b.ValueString = "0"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "25", g.ValueString, "gcd(25, 0)"
+        a.ValueString = "0"
+        b.ValueString = "0"
+        g.ValueString = "99"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "0", g.ValueString, "gcd(0, 0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Gcd_ResultIsNonNegativeWhateverTheSigns()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim g As New BigNumber
+        a.ValueString = "-12"
+        b.ValueString = "18"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "6", g.ValueString, "gcd(-12, 18)"
+        a.ValueString = "12"
+        b.ValueString = "-18"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "6", g.ValueString, "gcd(12, -18)"
+        a.ValueString = "-12"
+        b.ValueString = "-18"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "6", g.ValueString, "gcd(-12, -18)"
+        Expect.IsFalse g.IsNegative, "IsNegative of gcd(-12, -18)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Gcd_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim g As New BigNumber
+        Dim f As String
+        f = Pattern(120, 5)
+        a.ValueString = StrMul(Fib(400), f)
+        b.ValueString = StrMul(Fib(401), f)
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual f, g.ValueString, "gcd(F * Fib(400), F * Fib(401)) for a 120-digit F (consecutive Fibonacci numbers are coprime)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Gcd_NegativeFirstOperandKeepsItsValue()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim g As New BigNumber
+        a.ValueString = "-12"
+        b.ValueString = "18"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "-12", a.ValueString, "ValueString of the first operand after gcd(-12, 18)"
+        Expect.AreEqual "18", b.ValueString, "ValueString of the second operand after gcd(-12, 18)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Gcd_NegativeSecondOperandKeepsItsValue()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim g As New BigNumber
+        a.ValueString = "12"
+        b.ValueString = "-18"
+        g.AssignGreatestCommonDivisor a, b
+        Expect.AreEqual "12", a.ValueString, "ValueString of the first operand after gcd(12, -18)"
+        Expect.AreEqual "-18", b.ValueString, "ValueString of the second operand after gcd(12, -18)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Gcd_NegativeOperandStillAddsCorrectly()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim g As New BigNumber
+        Dim one As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "-12"
+        b.ValueString = "18"
+        one.ValueString = "1"
+        g.AssignGreatestCommonDivisor a, b
+        r.AssignAddition a, one
+        Expect.AreEqual "-11", r.ValueString, "the first operand of gcd(-12, 18) plus 1"
+        Expect.IsTrue a.IsLessThan(one), "the first operand of gcd(-12, 18) is less than 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lcm_PositiveValues()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim l As New BigNumber
+        a.ValueString = "4"
+        b.ValueString = "6"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "12", l.ValueString, "lcm(4, 6)"
+        a.ValueString = "7"
+        b.ValueString = "13"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "91", l.ValueString, "lcm(7, 13)"
+        a.ValueString = "21"
+        b.ValueString = "6"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "42", l.ValueString, "lcm(21, 6)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lcm_WithZero()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim l As New BigNumber
+        a.ValueString = "0"
+        b.ValueString = "5"
+        l.ValueString = "99"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "0", l.ValueString, "lcm(0, 5)"
+        a.ValueString = "5"
+        b.ValueString = "0"
+        l.ValueString = "99"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "0", l.ValueString, "lcm(5, 0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lcm_OfTwoZeros_64Bit()
+        ' In a 32-bit program the result is zero or the previous value, differing from one build of the
+        ' program to the next, so only a 64-bit program is checked.
+        Expect.Begin
+        #If Win64 Then
+            Dim a As New BigNumber
+            Dim b As New BigNumber
+            Dim l As New BigNumber
+            a.ValueString = "0"
+            b.ValueString = "0"
+            l.ValueString = "99"
+            l.AssignLeastCommonMultiple a, b
+            Expect.AreEqual "0", l.ValueString, "lcm(0, 0) of a number that held 99"
+        #End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lcm_ResultIsNonNegativeWhateverTheSigns()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim l As New BigNumber
+        a.ValueString = "-4"
+        b.ValueString = "6"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "12", l.ValueString, "lcm(-4, 6)"
+        a.ValueString = "4"
+        b.ValueString = "-6"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "12", l.ValueString, "lcm(4, -6)"
+        a.ValueString = "-4"
+        b.ValueString = "-6"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "12", l.ValueString, "lcm(-4, -6)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lcm_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim l As New BigNumber
+        a.ValueString = Fib(300)
+        b.ValueString = Fib(301)
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual StrMul(Fib(300), Fib(301)), l.ValueString, "lcm(Fib(300), Fib(301)), which are coprime"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lcm_NegativeFirstOperandKeepsItsValue()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim l As New BigNumber
+        a.ValueString = "-4"
+        b.ValueString = "6"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "-4", a.ValueString, "ValueString of the first operand after lcm(-4, 6)"
+        Expect.AreEqual "6", b.ValueString, "ValueString of the second operand after lcm(-4, 6)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lcm_NegativeSecondOperandKeepsItsValue()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim l As New BigNumber
+        a.ValueString = "4"
+        b.ValueString = "-6"
+        l.AssignLeastCommonMultiple a, b
+        Expect.AreEqual "4", a.ValueString, "ValueString of the first operand after lcm(4, -6)"
+        Expect.AreEqual "-6", b.ValueString, "ValueString of the second operand after lcm(4, -6)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lcm_NegativeOperandStillAddsCorrectly()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim l As New BigNumber
+        Dim one As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "-4"
+        b.ValueString = "6"
+        one.ValueString = "1"
+        l.AssignLeastCommonMultiple a, b
+        r.AssignAddition a, one
+        Expect.AreEqual "-3", r.ValueString, "the first operand of lcm(-4, 6) plus 1"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/InverseTests.twin b/test/package-tests/BigNumberLib/Sources/InverseTests.twin
new file mode 100644
index 00000000..0b855347
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/InverseTests.twin
@@ -0,0 +1,142 @@
+' BigNumber.AssignModularMultiplicativeInverse: the inverse, the errors, and the inputs that make it not return.
+[TestFixture]
+Module InverseTests
+
+    ' The error number and description AssignModularMultiplicativeInverse raises for A and M, "0 " for none.
+    Private Function InverseError(ByVal A As String, ByVal M As String) As String
+        Dim a1 As New BigNumber
+        Dim m1 As New BigNumber
+        Dim r As New BigNumber
+        a1.ValueString = A
+        m1.ValueString = M
+        On Error Resume Next
+        r.AssignModularMultiplicativeInverse a1, m1
+        InverseError = Err.Number & " " & Err.Description
+        Err.Clear
+    End Function
+
+    [TestCase]
+    Public Sub Inverse_ManualExample()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim m As New BigNumber
+        Dim x As New BigNumber
+        a.ValueString = "3"
+        m.ValueString = "11"
+        x.AssignModularMultiplicativeInverse a, m
+        Expect.AreEqual "4", x.ValueString, "the inverse of 3 modulo 11"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_ProductWithResultIsOneModuloModulus()
+        Expect.Begin
+        Dim values As Variant
+        Dim moduli As Variant
+        Dim a As New BigNumber
+        Dim m As New BigNumber
+        Dim x As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        values = Array("1", "3", "10", "17", "65537", "123456789", "999999999")
+        moduli = Array("11", "3120", "1000000007", "2147483647", "1000000008")
+        For i = LBound(values) To UBound(values)
+            For j = LBound(moduli) To UBound(moduli)
+                If DecMod(values(i), moduli(j)) <> "0" Then
+                    If InverseError(values(i), moduli(j)) = "0 " Then
+                        a.ValueString = values(i)
+                        m.ValueString = moduli(j)
+                        x.AssignModularMultiplicativeInverse a, m
+                        Expect.AreEqual "1", DecMod(DecMul(values(i), x.ValueString), moduli(j)), "(" & values(i) & " * inverse) Mod " & moduli(j) & ", the inverse being " & x.ValueString
+                    End If
+                End If
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_KnownValues()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim m As New BigNumber
+        Dim x As New BigNumber
+        a.ValueString = "17"
+        m.ValueString = "3120"
+        x.AssignModularMultiplicativeInverse a, m
+        Expect.AreEqual "2753", x.ValueString, "the inverse of 17 modulo 3120 (the RSA textbook example)"
+        a.ValueString = "1"
+        m.ValueString = "13"
+        x.AssignModularMultiplicativeInverse a, m
+        Expect.AreEqual "1", x.ValueString, "the inverse of 1 modulo 13"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_NegativeValueGivesNegativeResult()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim m As New BigNumber
+        Dim x As New BigNumber
+        a.ValueString = "-3"
+        m.ValueString = "7"
+        x.AssignModularMultiplicativeInverse a, m
+        Expect.AreEqual "-5", x.ValueString, "the inverse of -3 modulo 7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_CommonFactorRaisesError5()
+        Expect.Begin
+        Expect.AreEqual "5 invalid operation", InverseError("6", "9"), "error for the inverse of 6 modulo 9"
+        Expect.AreEqual "5 invalid operation", InverseError("4", "10"), "error for the inverse of 4 modulo 10"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_MultipleOfModulusRaisesError5()
+        Expect.Begin
+        Expect.AreEqual "5 invalid operation", InverseError("14", "7"), "error for the inverse of 14 modulo 7"
+        Expect.AreEqual "5 invalid operation", InverseError("7", "7"), "error for the inverse of 7 modulo 7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_ModulusOneRaisesNoError()
+        Expect.Begin
+        Expect.AreEqual "0 ", InverseError("5", "1"), "error for the inverse of 5 modulo 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_ZeroValueEvenModulusRaisesError5()
+        Expect.Begin
+        Expect.AreEqual "5 invalid operation", InverseError("0", "8"), "error for the inverse of 0 modulo 8"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_NegativeEvenModulusRaisesError5()
+        Expect.Begin
+        Expect.AreEqual "5 invalid operation", InverseError("3", "-8"), "error for the inverse of 3 modulo -8"
+        Expect.AreEqual "5 invalid operation", InverseError("-3", "-10"), "error for the inverse of -3 modulo -10"
+        Expect.Done
+    End Sub
+
+    ' The two cases below do not return on 1.0.2.0: the call stays in a loop.
+
+    [TestCase]
+    Public Sub Inverse_ZeroValueOddModulus_RaisesError5()
+        Expect.Begin
+        Expect.AreEqual "5 invalid operation", InverseError("0", "7"), "error for the inverse of 0 modulo 7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Inverse_NegativeOddModulus_RaisesError5()
+        Expect.Begin
+        Expect.AreEqual "5 invalid operation", InverseError("3", "-7"), "error for the inverse of 3 modulo -7"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/ModulusTests.twin b/test/package-tests/BigNumberLib/Sources/ModulusTests.twin
new file mode 100644
index 00000000..dbcb018b
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/ModulusTests.twin
@@ -0,0 +1,390 @@
+' BigNumber: AssignModulus and the four methods that take a remainder of a result, checked
+' against Decimal arithmetic (operands of up to 12 digits, so every product fits in Decimal).
+[TestFixture]
+Module ModulusTests
+
+    Private Function Operands() As Variant
+        Operands = Array("0", "1", "-3", "4", "-7", "123456789012", "-987654321098")
+    End Function
+
+    Private Function PositiveModuli() As Variant
+        PositiveModuli = Array("1", "7", "13", "1000000007", "123456789012")
+    End Function
+
+    Private Function NegativeModuli() As Variant
+        NegativeModuli = Array("-1", "-7", "-13", "-1000000007")
+    End Function
+
+    ' The expected result for a negative modulus: the sign of the modulus, and the modulus itself for zero.
+    Private Function ForNegativeModulus(ByVal Remainder As String, ByVal Modulus As String) As String
+        If Remainder = "0" Then ForNegativeModulus = Modulus Else ForNegativeModulus = Remainder
+    End Function
+
+    [TestCase]
+    Public Sub AssignModulus_PositiveDivisor()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Operands()
+        m = PositiveModuli()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(m) To UBound(m)
+                a.ValueString = v(i)
+                b.ValueString = m(j)
+                r.AssignModulus a, b
+                Expect.AreEqual DecMod(v(i), m(j)), r.ValueString, v(i) & " Mod " & m(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignModulus_NegativeDivisor()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        v = Operands()
+        m = NegativeModuli()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(m) To UBound(m)
+                a.ValueString = v(i)
+                b.ValueString = m(j)
+                r.AssignModulus a, b
+                Expect.AreEqual DecMod(v(i), m(j)), r.ValueString, v(i) & " Mod " & m(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignModulus_ManualExamples()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "-7"
+        b.ValueString = "2"
+        r.AssignModulus a, b
+        Expect.AreEqual "1", r.ValueString, "-7 Mod 2"
+        a.ValueString = "7"
+        b.ValueString = "-2"
+        r.AssignModulus a, b
+        Expect.AreEqual "-1", r.ValueString, "7 Mod -2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignModulus_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim q As New BigNumber
+        a.ValueString = Pattern(600, 2)
+        b.ValueString = Pattern(250, 9)
+        r.AssignModulus a, b
+        q.AssignDivision a, b
+        Expect.AreEqual -1, StrCmp(r.ValueString, Pattern(250, 9)), "a 600-digit number Mod a 250-digit one is less than the divisor"
+        Expect.AreEqual Pattern(600, 2), StrAdd(StrMul(q.ValueString, Pattern(250, 9)), r.ValueString), "(a \ b) * b + (a Mod b) for a 600-digit a and a 250-digit b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignModulus_NegativeDivisor_ZeroResultIsNotNegative()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "6"
+        b.ValueString = "-3"
+        r.AssignModulus a, b
+        Expect.AreEqual "0", r.ValueString, "6 Mod -3"
+        Expect.IsFalse r.IsNegative, "IsNegative of 6 Mod -3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignModulus_NegativeDivisor_ZeroResultEqualsZero()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim r As New BigNumber
+        Dim zero As New BigNumber
+        a.ValueString = "6"
+        b.ValueString = "-3"
+        zero.ValueString = "0"
+        r.AssignModulus a, b
+        Expect.IsTrue r.IsEqualTo(zero), "6 Mod -3 IsEqualTo a zero read from ""0"""
+        Expect.IsFalse r.IsLessThan(zero), "6 Mod -3 IsLessThan a zero read from ""0"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignAdditionModulus_PositiveModulus()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim c As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        Dim k As Long
+        v = Operands()
+        m = PositiveModuli()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                For k = LBound(m) To UBound(m)
+                    a.ValueString = v(i)
+                    b.ValueString = v(j)
+                    c.ValueString = m(k)
+                    r.AssignAdditionModulus a, b, c
+                    Expect.AreEqual DecMod(DecAdd(v(i), v(j)), m(k)), r.ValueString, "(" & v(i) & " + " & v(j) & ") Mod " & m(k)
+                Next k
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignAdditionModulus_NegativeModulus()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim c As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        Dim k As Long
+        v = Operands()
+        m = NegativeModuli()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                For k = LBound(m) To UBound(m)
+                    a.ValueString = v(i)
+                    b.ValueString = v(j)
+                    c.ValueString = m(k)
+                    r.AssignAdditionModulus a, b, c
+                    Expect.AreEqual ForNegativeModulus(DecMod(DecAdd(v(i), v(j)), m(k)), m(k)), r.ValueString, "(" & v(i) & " + " & v(j) & ") Mod " & m(k)
+                Next k
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSubtractionModulus_PositiveModulus()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim c As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        Dim k As Long
+        v = Operands()
+        m = PositiveModuli()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                For k = LBound(m) To UBound(m)
+                    a.ValueString = v(i)
+                    b.ValueString = v(j)
+                    c.ValueString = m(k)
+                    r.AssignSubtractionModulus a, b, c
+                    Expect.AreEqual DecMod(DecSub(v(i), v(j)), m(k)), r.ValueString, "(" & v(i) & " - " & v(j) & ") Mod " & m(k)
+                Next k
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSubtractionModulus_NegativeModulus()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim c As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        Dim k As Long
+        v = Operands()
+        m = NegativeModuli()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                For k = LBound(m) To UBound(m)
+                    a.ValueString = v(i)
+                    b.ValueString = v(j)
+                    c.ValueString = m(k)
+                    r.AssignSubtractionModulus a, b, c
+                    Expect.AreEqual ForNegativeModulus(DecMod(DecSub(v(i), v(j)), m(k)), m(k)), r.ValueString, "(" & v(i) & " - " & v(j) & ") Mod " & m(k)
+                Next k
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignMultiplicationModulus_PositiveModulus()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim c As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        Dim k As Long
+        v = Operands()
+        m = PositiveModuli()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                For k = LBound(m) To UBound(m)
+                    a.ValueString = v(i)
+                    b.ValueString = v(j)
+                    c.ValueString = m(k)
+                    r.AssignMultiplicationModulus a, b, c
+                    Expect.AreEqual DecMod(DecMul(v(i), v(j)), m(k)), r.ValueString, "(" & v(i) & " * " & v(j) & ") Mod " & m(k)
+                Next k
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignMultiplicationModulus_NegativeModulus()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim c As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim j As Long
+        Dim k As Long
+        v = Operands()
+        m = NegativeModuli()
+        For i = LBound(v) To UBound(v)
+            For j = LBound(v) To UBound(v)
+                For k = LBound(m) To UBound(m)
+                    a.ValueString = v(i)
+                    b.ValueString = v(j)
+                    c.ValueString = m(k)
+                    r.AssignMultiplicationModulus a, b, c
+                    Expect.AreEqual ForNegativeModulus(DecMod(DecMul(v(i), v(j)), m(k)), m(k)), r.ValueString, "(" & v(i) & " * " & v(j) & ") Mod " & m(k)
+                Next k
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSquaredModulus_PositiveModulus()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim c As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim k As Long
+        v = Operands()
+        m = PositiveModuli()
+        For i = LBound(v) To UBound(v)
+            For k = LBound(m) To UBound(m)
+                a.ValueString = v(i)
+                c.ValueString = m(k)
+                r.AssignSquaredModulus a, c
+                Expect.AreEqual DecMod(DecMul(v(i), v(i)), m(k)), r.ValueString, "(" & v(i) & " * " & v(i) & ") Mod " & m(k)
+            Next k
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSquaredModulus_NegativeModulus()
+        Expect.Begin
+        Dim v As Variant
+        Dim m As Variant
+        Dim a As New BigNumber
+        Dim c As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim k As Long
+        v = Operands()
+        m = NegativeModuli()
+        For i = LBound(v) To UBound(v)
+            For k = LBound(m) To UBound(m)
+                a.ValueString = v(i)
+                c.ValueString = m(k)
+                r.AssignSquaredModulus a, c
+                Expect.AreEqual ForNegativeModulus(DecMod(DecMul(v(i), v(i)), m(k)), m(k)), r.ValueString, "(" & v(i) & " * " & v(i) & ") Mod " & m(k)
+            Next k
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignAdditionModulus_ManualExamples()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim m As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "-3"
+        b.ValueString = "4"
+        m.ValueString = "7"
+        r.AssignAdditionModulus a, b, m
+        Expect.AreEqual "1", r.ValueString, "(-3 + 4) Mod 7"
+        r.AssignSubtractionModulus a, b, m
+        Expect.AreEqual "0", r.ValueString, "(-3 - 4) Mod 7"
+        r.AssignMultiplicationModulus a, b, m
+        Expect.AreEqual "2", r.ValueString, "(-3 * 4) Mod 7"
+        a.ValueString = "3"
+        m.ValueString = "-7"
+        r.AssignAdditionModulus a, b, m
+        Expect.AreEqual "-7", r.ValueString, "(3 + 4) Mod -7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignMultiplicationModulus_LargeNumbers()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim b As New BigNumber
+        Dim m As New BigNumber
+        Dim r As New BigNumber
+        Dim q As New BigNumber
+        Dim p As New BigNumber
+        a.ValueString = Pattern(300, 1)
+        b.ValueString = Pattern(280, 2)
+        m.ValueString = Pattern(200, 3)
+        r.AssignMultiplicationModulus a, b, m
+        p.AssignMultiplication a, b
+        q.AssignDivision p, m
+        ' a * b = q * m + r, with 0 <= r < m
+        Expect.AreEqual StrMul(Pattern(300, 1), Pattern(280, 2)), StrAdd(StrMul(q.ValueString, Pattern(200, 3)), r.ValueString), "q * m + r for q = (a * b) \ m and r = (a * b) Mod m"
+        Expect.AreEqual -1, StrCmp(r.ValueString, Pattern(200, 3)), "(a * b) Mod m is less than m"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/OverflowTests.twin b/test/package-tests/BigNumberLib/Sources/OverflowTests.twin
new file mode 100644
index 00000000..fa8795b1
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/OverflowTests.twin
@@ -0,0 +1,130 @@
+' BigNumber: numbers of 4096 bits and more. A result is right or raises an error; it never silently
+' loses its high bits.
+[TestFixture]
+Module OverflowTests
+
+    ' The bits the library holds: a little more than the 4096 the class supports.
+    Private Function LibraryBits() As Long
+        #If Win64 Then
+            LibraryBits = 4608
+        #Else
+            LibraryBits = 4352
+        #End If
+    End Function
+
+    [TestCase]
+    Public Sub Capacity_4096BitNumberIsHeld()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueBinary = Rep("1", 4096)
+        Expect.AreEqual Rep("1", 4096), n.ValueBinary, "ValueBinary of a number of 4096 one bits, read back"
+        Expect.AreEqual Rep("F", 1024), n.ValueHex, "ValueHex of the same number"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Capacity_ShiftLeftToTheLibraryLimitIsRight()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "1"
+        r.AssignShiftLeft a, LibraryBits() - 1
+        Expect.AreEqual "1" & Rep("0", LibraryBits() - 1), r.ValueBinary, "1 << " & (LibraryBits() - 1) & ", the largest power of two the library holds, as binary"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Capacity_AFewBitsOver4096IsStillRight()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "1"
+        r.AssignShiftLeft a, 4200
+        Expect.AreEqual "1" & Rep("0", 4200), r.ValueBinary, "1 << 4200, as binary"
+        Expect.Done
+    End Sub
+
+    ' A result that does not fit is an error or the right value, never the value without its high bits.
+
+    [TestCase]
+    Public Sub Overflow_ShiftLeftBeyondTheLibrary_RaisesErrorOrIsRight()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        Dim e As Long
+        a.ValueString = "1"
+        On Error Resume Next
+        r.AssignShiftLeft a, 6000
+        e = Err.Number
+        Err.Clear
+        If e = 0 Then
+            Expect.AreEqual "1" & Rep("0", 6000), r.ValueBinary, "1 << 6000 raised no error; ValueBinary"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Overflow_MultiplicationBeyondTheLibrary_RaisesErrorOrIsRight()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        Dim e As Long
+        a.ValueBinary = "1" & Rep("0", 3000)
+        On Error Resume Next
+        r.AssignMultiplication a, a
+        e = Err.Number
+        Err.Clear
+        If e = 0 Then
+            Expect.AreEqual "1" & Rep("0", 6000), r.ValueBinary, "2^3000 * 2^3000 raised no error; ValueBinary"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Overflow_AdditionBeyondTheLibrary_RaisesErrorOrIsRight()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        Dim e As Long
+        a.ValueBinary = Rep("1", LibraryBits())
+        On Error Resume Next
+        r.AssignAddition a, a
+        e = Err.Number
+        Err.Clear
+        If e = 0 Then
+            Expect.AreEqual Rep("1", LibraryBits()) & "0", r.ValueBinary, "(2^" & LibraryBits() & " - 1) * 2 raised no error; ValueBinary"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Overflow_ValueStringWithTooManyDigits_RaisesErrorOrIsRight()
+        Expect.Begin
+        Dim n As New BigNumber
+        Dim e As Long
+        On Error Resume Next
+        n.ValueString = Rep("9", 1600)
+        e = Err.Number
+        Err.Clear
+        If e = 0 Then
+            Expect.AreEqual Rep("9", 1600), n.ValueString, "ValueString of 1,600 nines raised no error; read back"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Overflow_ValueHexWithTooManyDigits_RaisesErrorOrIsRight()
+        Expect.Begin
+        Dim n As New BigNumber
+        Dim e As Long
+        On Error Resume Next
+        n.ValueHex = Rep("F", 1300)
+        e = Err.Number
+        Err.Clear
+        If e = 0 Then
+            Expect.AreEqual Rep("F", 1300), n.ValueHex, "ValueHex of 1,300 F digits raised no error; read back"
+        End If
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/RefMath.twin b/test/package-tests/BigNumberLib/Sources/RefMath.twin
new file mode 100644
index 00000000..8a9f6976
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/RefMath.twin
@@ -0,0 +1,171 @@
+' Reference arithmetic the cases check BigNumber against: numbers in Decimal range, and decimal
+' strings added and multiplied digit by digit. Nothing here calls BigNumber except Big.
+Module RefMath
+
+    ' A new BigNumber holding the decimal integer Text.
+    Public Function Big(ByVal Text As String) As BigNumber
+        Set Big = New BigNumber
+        Big.ValueString = Text
+    End Function
+
+    ' A decimal string of Digits digits that does not start with 0, made from Seed.
+    Public Function Pattern(ByVal Digits As Long, ByVal Seed As Long) As String
+        Dim s As String
+        Dim i As Long
+        Dim d As Long
+        s = Space$(Digits)
+        For i = 1 To Digits
+            d = (i * 7 + Seed * 3 + (i \ 5)) Mod 10
+            If i = 1 And d = 0 Then d = 1
+            Mid$(s, i, 1) = Chr$(48 + d)
+        Next i
+        Pattern = s
+    End Function
+
+    Public Function StripZeros(ByVal A As String) As String
+        Dim i As Long
+        i = 1
+        Do While i < Len(A)
+            If Mid$(A, i, 1) <> "0" Then Exit Do
+            i = i + 1
+        Loop
+        StripZeros = Mid$(A, i)
+    End Function
+
+    ' The sum of two non-negative decimal strings.
+    Public Function StrAdd(ByVal A As String, ByVal B As String) As String
+        Dim n As Long
+        Dim i As Long
+        Dim carry As Long
+        Dim s As Long
+        Dim da As Long
+        Dim db As Long
+        Dim res As String
+        n = Len(A)
+        If Len(B) > n Then n = Len(B)
+        res = Space$(n + 1)
+        For i = 1 To n
+            da = 0
+            db = 0
+            If i <= Len(A) Then da = Asc(Mid$(A, Len(A) - i + 1, 1)) - 48
+            If i <= Len(B) Then db = Asc(Mid$(B, Len(B) - i + 1, 1)) - 48
+            s = da + db + carry
+            carry = s \ 10
+            Mid$(res, n + 2 - i, 1) = Chr$(48 + (s Mod 10))
+        Next i
+        Mid$(res, 1, 1) = Chr$(48 + carry)
+        StrAdd = StripZeros(res)
+    End Function
+
+    ' The product of two non-negative decimal strings.
+    Public Function StrMul(ByVal A As String, ByVal B As String) As String
+        Dim la As Long
+        Dim lb As Long
+        Dim i As Long
+        Dim j As Long
+        Dim k As Long
+        Dim da As Long
+        Dim acc() As Long
+        Dim res As String
+        la = Len(A)
+        lb = Len(B)
+        ReDim acc(0 To la + lb)
+        For i = 0 To la - 1
+            da = Asc(Mid$(A, la - i, 1)) - 48
+            For j = 0 To lb - 1
+                acc(i + j) = acc(i + j) + da * (Asc(Mid$(B, lb - j, 1)) - 48)
+            Next j
+        Next i
+        For k = 0 To la + lb - 1
+            acc(k + 1) = acc(k + 1) + acc(k) \ 10
+            acc(k) = acc(k) Mod 10
+        Next k
+        res = Space$(la + lb)
+        For k = 0 To la + lb - 1
+            Mid$(res, la + lb - k, 1) = Chr$(48 + acc(k))
+        Next k
+        StrMul = StripZeros(res)
+    End Function
+
+    ' -1, 0 or 1: how the non-negative decimal strings A and B compare.
+    Public Function StrCmp(ByVal A As String, ByVal B As String) As Long
+        A = StripZeros(A)
+        B = StripZeros(B)
+        If Len(A) < Len(B) Then
+            StrCmp = -1
+        ElseIf Len(A) > Len(B) Then
+            StrCmp = 1
+        Else
+            StrCmp = StrComp(A, B, vbBinaryCompare)
+        End If
+    End Function
+
+    ' Fibonacci number N as a decimal string (Fib(1) = Fib(2) = 1).
+    Public Function Fib(ByVal N As Long) As String
+        Dim a As String
+        Dim b As String
+        Dim t As String
+        Dim i As Long
+        a = "1"
+        b = "1"
+        For i = 3 To N
+            t = StrAdd(a, b)
+            a = b
+            b = t
+        Next i
+        If N < 2 Then Fib = a Else Fib = b
+    End Function
+
+    Private Function Plain(ByVal X As Variant) As String
+        If X = 0 Then Plain = "0" Else Plain = CStr(X)
+    End Function
+
+    ' The sum of two integers given as decimal strings of at most 27 digits, as text.
+    Public Function DecAdd(ByVal A As String, ByVal B As String) As String
+        DecAdd = Plain(CDec(A) + CDec(B))
+    End Function
+
+    Public Function DecSub(ByVal A As String, ByVal B As String) As String
+        DecSub = Plain(CDec(A) - CDec(B))
+    End Function
+
+    Public Function DecMul(ByVal A As String, ByVal B As String) As String
+        DecMul = Plain(CDec(A) * CDec(B))
+    End Function
+
+    ' The quotient of A and B truncated toward zero.
+    Public Function DecQuot(ByVal A As String, ByVal B As String) As String
+        DecQuot = Plain(Fix(CDec(A) / CDec(B)))
+    End Function
+
+    ' The remainder of A and B that is zero or has the sign of B (the floored remainder).
+    Public Function DecMod(ByVal A As Variant, ByVal B As Variant) As String
+        Dim q As Variant
+        Dim r As Variant
+        A = CDec(A)
+        B = CDec(B)
+        q = Fix(A / B)
+        r = A - q * B
+        If r <> 0 Then
+            If (r < 0) <> (B < 0) Then r = r + B
+        End If
+        DecMod = Plain(r)
+    End Function
+
+    ' 2 to the power K, as Decimal, for K up to 90.
+    Public Function Pow2(ByVal K As Long) As Variant
+        Dim r As Variant
+        Dim i As Long
+        r = CDec(1)
+        For i = 1 To K
+            r = r * 2
+        Next i
+        Pow2 = r
+    End Function
+
+    ' Ch repeated Count times.
+    Public Function Rep(ByVal Ch As String, ByVal Count As Long) As String
+        Rep = String$(Count, Ch)
+    End Function
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/RunAll.twin b/test/package-tests/BigNumberLib/Sources/RunAll.twin
new file mode 100644
index 00000000..293a0819
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/RunAll.twin
@@ -0,0 +1,520 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package BigNumberLib, version 1.0.2.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "BigNumberLib 1.0.2.0: 128 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignAddition_Signs
+        Expect.EndCase "ArithmeticTests.AssignAddition_Signs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignAddition_ManualExample
+        Expect.EndCase "ArithmeticTests.AssignAddition_ManualExample", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignAddition_LargeNumbers
+        Expect.EndCase "ArithmeticTests.AssignAddition_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignSubtraction_Signs
+        Expect.EndCase "ArithmeticTests.AssignSubtraction_Signs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignSubtraction_LargeNumbers
+        Expect.EndCase "ArithmeticTests.AssignSubtraction_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignMultiplication_Signs
+        Expect.EndCase "ArithmeticTests.AssignMultiplication_Signs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignMultiplication_LargeNumbers
+        Expect.EndCase "ArithmeticTests.AssignMultiplication_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignMultiplication_OperandsOf2048Bits
+        Expect.EndCase "ArithmeticTests.AssignMultiplication_OperandsOf2048Bits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignDivision_TruncatesTowardZero
+        Expect.EndCase "ArithmeticTests.AssignDivision_TruncatesTowardZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignDivision_LargeNumbers
+        Expect.EndCase "ArithmeticTests.AssignDivision_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignSquared_Signs
+        Expect.EndCase "ArithmeticTests.AssignSquared_Signs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.AssignSquared_LargeNumber
+        Expect.EndCase "ArithmeticTests.AssignSquared_LargeNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArithmeticTests.Example_Factorial50
+        Expect.EndCase "ArithmeticTests.Example_Factorial50", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ComparisonTests.IsEqualTo_AllPairs
+        Expect.EndCase "ComparisonTests.IsEqualTo_AllPairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ComparisonTests.IsLessThan_AllPairs
+        Expect.EndCase "ComparisonTests.IsLessThan_AllPairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ComparisonTests.IsLessThanOrEqualTo_AllPairs
+        Expect.EndCase "ComparisonTests.IsLessThanOrEqualTo_AllPairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ComparisonTests.IsGreaterThan_AllPairs
+        Expect.EndCase "ComparisonTests.IsGreaterThan_AllPairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ComparisonTests.IsGreaterThanOrEqualTo_AllPairs
+        Expect.EndCase "ComparisonTests.IsGreaterThanOrEqualTo_AllPairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ComparisonTests.Comparisons_LargeNumbers
+        Expect.EndCase "ComparisonTests.Comparisons_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ComparisonTests.IsEqualTo_SameValueFromDifferentBases
+        Expect.EndCase "ComparisonTests.IsEqualTo_SameValueFromDifferentBases", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueString_NewNumberIsZero
+        Expect.EndCase "ConversionTests.ValueString_NewNumberIsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueString_RoundTrip
+        Expect.EndCase "ConversionTests.ValueString_RoundTrip", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueString_IsTheDefaultMember
+        Expect.EndCase "ConversionTests.ValueString_IsTheDefaultMember", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueString_StopsAtFirstInvalidCharacter
+        Expect.EndCase "ConversionTests.ValueString_StopsAtFirstInvalidCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueString_LeadingPlusOrSpaceGivesZero
+        Expect.EndCase "ConversionTests.ValueString_LeadingPlusOrSpaceGivesZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueString_NoDigitsGivesZero
+        Expect.EndCase "ConversionTests.ValueString_NoDigitsGivesZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueHex_UpperCaseWithoutLeadingZeros
+        Expect.EndCase "ConversionTests.ValueHex_UpperCaseWithoutLeadingZeros", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueHex_StopsAtFirstInvalidCharacter
+        Expect.EndCase "ConversionTests.ValueHex_StopsAtFirstInvalidCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueHex_PrefixIsNotAccepted
+        Expect.EndCase "ConversionTests.ValueHex_PrefixIsNotAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueHex_Negative
+        Expect.EndCase "ConversionTests.ValueHex_Negative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueOctal_RoundTripAndStop
+        Expect.EndCase "ConversionTests.ValueOctal_RoundTripAndStop", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.ValueBinary_RoundTripAndStop
+        Expect.EndCase "ConversionTests.ValueBinary_RoundTripAndStop", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.Conversions_NegativeNumberInEveryBase
+        Expect.EndCase "ConversionTests.Conversions_NegativeNumberInEveryBase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.Conversions_PowerOfTwoInEveryBase
+        Expect.EndCase "ConversionTests.Conversions_PowerOfTwoInEveryBase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConversionTests.Conversions_LargeNumberSameInEveryBase
+        Expect.EndCase "ConversionTests.Conversions_LargeNumberSameInEveryBase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.AssignDivision_ByZero_RaisesError5
+        Expect.EndCase "ErrorTests.AssignDivision_ByZero_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.AssignDivision_ByZero_KeepsTheValue
+        Expect.EndCase "ErrorTests.AssignDivision_ByZero_KeepsTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.AssignModulus_ByZero_RaisesError5
+        Expect.EndCase "ErrorTests.AssignModulus_ByZero_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.AssignAdditionModulus_ByZero_RaisesError5
+        Expect.EndCase "ErrorTests.AssignAdditionModulus_ByZero_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.AssignSubtractionModulus_ByZero_RaisesError5
+        Expect.EndCase "ErrorTests.AssignSubtractionModulus_ByZero_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.AssignMultiplicationModulus_ByZero_RaisesError5
+        Expect.EndCase "ErrorTests.AssignMultiplicationModulus_ByZero_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.AssignSquaredModulus_ByZero_RaisesError5
+        Expect.EndCase "ErrorTests.AssignSquaredModulus_ByZero_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.HandleError_NewNumberRaisesNothing
+        Expect.EndCase "ErrorTests.HandleError_NewNumberRaisesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.HandleError_AfterAFailureRaisesAgain
+        Expect.EndCase "ErrorTests.HandleError_AfterAFailureRaisesAgain", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.HandleError_StaysAfterAMethodThatStoresNoStatus
+        Expect.EndCase "ErrorTests.HandleError_StaysAfterAMethodThatStoresNoStatus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.HandleError_ClearedByAMemberThatStoresStatus
+        Expect.EndCase "ErrorTests.HandleError_ClearedByAMemberThatStoresStatus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Gcd_PositiveValues
+        Expect.EndCase "GcdLcmTests.Gcd_PositiveValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Gcd_WithZero
+        Expect.EndCase "GcdLcmTests.Gcd_WithZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Gcd_ResultIsNonNegativeWhateverTheSigns
+        Expect.EndCase "GcdLcmTests.Gcd_ResultIsNonNegativeWhateverTheSigns", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Gcd_LargeNumbers
+        Expect.EndCase "GcdLcmTests.Gcd_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Gcd_NegativeFirstOperandKeepsItsValue
+        Expect.EndCase "GcdLcmTests.Gcd_NegativeFirstOperandKeepsItsValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Gcd_NegativeSecondOperandKeepsItsValue
+        Expect.EndCase "GcdLcmTests.Gcd_NegativeSecondOperandKeepsItsValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Gcd_NegativeOperandStillAddsCorrectly
+        Expect.EndCase "GcdLcmTests.Gcd_NegativeOperandStillAddsCorrectly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Lcm_PositiveValues
+        Expect.EndCase "GcdLcmTests.Lcm_PositiveValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Lcm_WithZero
+        Expect.EndCase "GcdLcmTests.Lcm_WithZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Lcm_OfTwoZeros_64Bit
+        Expect.EndCase "GcdLcmTests.Lcm_OfTwoZeros_64Bit", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Lcm_ResultIsNonNegativeWhateverTheSigns
+        Expect.EndCase "GcdLcmTests.Lcm_ResultIsNonNegativeWhateverTheSigns", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Lcm_LargeNumbers
+        Expect.EndCase "GcdLcmTests.Lcm_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Lcm_NegativeFirstOperandKeepsItsValue
+        Expect.EndCase "GcdLcmTests.Lcm_NegativeFirstOperandKeepsItsValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Lcm_NegativeSecondOperandKeepsItsValue
+        Expect.EndCase "GcdLcmTests.Lcm_NegativeSecondOperandKeepsItsValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcdLcmTests.Lcm_NegativeOperandStillAddsCorrectly
+        Expect.EndCase "GcdLcmTests.Lcm_NegativeOperandStillAddsCorrectly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_ManualExample
+        Expect.EndCase "InverseTests.Inverse_ManualExample", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_ProductWithResultIsOneModuloModulus
+        Expect.EndCase "InverseTests.Inverse_ProductWithResultIsOneModuloModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_KnownValues
+        Expect.EndCase "InverseTests.Inverse_KnownValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_NegativeValueGivesNegativeResult
+        Expect.EndCase "InverseTests.Inverse_NegativeValueGivesNegativeResult", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_CommonFactorRaisesError5
+        Expect.EndCase "InverseTests.Inverse_CommonFactorRaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_MultipleOfModulusRaisesError5
+        Expect.EndCase "InverseTests.Inverse_MultipleOfModulusRaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_ModulusOneRaisesNoError
+        Expect.EndCase "InverseTests.Inverse_ModulusOneRaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_ZeroValueEvenModulusRaisesError5
+        Expect.EndCase "InverseTests.Inverse_ZeroValueEvenModulusRaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        InverseTests.Inverse_NegativeEvenModulusRaisesError5
+        Expect.EndCase "InverseTests.Inverse_NegativeEvenModulusRaisesError5", Err.Number, Err.Description
+        Expect.Skip "InverseTests.Inverse_ZeroValueOddModulus_RaisesError5", "it does not return in version 1.0.2.0"
+        Expect.Skip "InverseTests.Inverse_NegativeOddModulus_RaisesError5", "it does not return in version 1.0.2.0"
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignModulus_PositiveDivisor
+        Expect.EndCase "ModulusTests.AssignModulus_PositiveDivisor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignModulus_NegativeDivisor
+        Expect.EndCase "ModulusTests.AssignModulus_NegativeDivisor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignModulus_ManualExamples
+        Expect.EndCase "ModulusTests.AssignModulus_ManualExamples", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignModulus_LargeNumbers
+        Expect.EndCase "ModulusTests.AssignModulus_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignModulus_NegativeDivisor_ZeroResultIsNotNegative
+        Expect.EndCase "ModulusTests.AssignModulus_NegativeDivisor_ZeroResultIsNotNegative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignModulus_NegativeDivisor_ZeroResultEqualsZero
+        Expect.EndCase "ModulusTests.AssignModulus_NegativeDivisor_ZeroResultEqualsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignAdditionModulus_PositiveModulus
+        Expect.EndCase "ModulusTests.AssignAdditionModulus_PositiveModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignAdditionModulus_NegativeModulus
+        Expect.EndCase "ModulusTests.AssignAdditionModulus_NegativeModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignSubtractionModulus_PositiveModulus
+        Expect.EndCase "ModulusTests.AssignSubtractionModulus_PositiveModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignSubtractionModulus_NegativeModulus
+        Expect.EndCase "ModulusTests.AssignSubtractionModulus_NegativeModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignMultiplicationModulus_PositiveModulus
+        Expect.EndCase "ModulusTests.AssignMultiplicationModulus_PositiveModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignMultiplicationModulus_NegativeModulus
+        Expect.EndCase "ModulusTests.AssignMultiplicationModulus_NegativeModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignSquaredModulus_PositiveModulus
+        Expect.EndCase "ModulusTests.AssignSquaredModulus_PositiveModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignSquaredModulus_NegativeModulus
+        Expect.EndCase "ModulusTests.AssignSquaredModulus_NegativeModulus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignAdditionModulus_ManualExamples
+        Expect.EndCase "ModulusTests.AssignAdditionModulus_ManualExamples", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModulusTests.AssignMultiplicationModulus_LargeNumbers
+        Expect.EndCase "ModulusTests.AssignMultiplicationModulus_LargeNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OverflowTests.Capacity_4096BitNumberIsHeld
+        Expect.EndCase "OverflowTests.Capacity_4096BitNumberIsHeld", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OverflowTests.Capacity_ShiftLeftToTheLibraryLimitIsRight
+        Expect.EndCase "OverflowTests.Capacity_ShiftLeftToTheLibraryLimitIsRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OverflowTests.Capacity_AFewBitsOver4096IsStillRight
+        Expect.EndCase "OverflowTests.Capacity_AFewBitsOver4096IsStillRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OverflowTests.Overflow_ShiftLeftBeyondTheLibrary_RaisesErrorOrIsRight
+        Expect.EndCase "OverflowTests.Overflow_ShiftLeftBeyondTheLibrary_RaisesErrorOrIsRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OverflowTests.Overflow_MultiplicationBeyondTheLibrary_RaisesErrorOrIsRight
+        Expect.EndCase "OverflowTests.Overflow_MultiplicationBeyondTheLibrary_RaisesErrorOrIsRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OverflowTests.Overflow_AdditionBeyondTheLibrary_RaisesErrorOrIsRight
+        Expect.EndCase "OverflowTests.Overflow_AdditionBeyondTheLibrary_RaisesErrorOrIsRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OverflowTests.Overflow_ValueStringWithTooManyDigits_RaisesErrorOrIsRight
+        Expect.EndCase "OverflowTests.Overflow_ValueStringWithTooManyDigits_RaisesErrorOrIsRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OverflowTests.Overflow_ValueHexWithTooManyDigits_RaisesErrorOrIsRight
+        Expect.EndCase "OverflowTests.Overflow_ValueHexWithTooManyDigits_RaisesErrorOrIsRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShiftTests.ShiftLeft_MultipliesByPowerOfTwo
+        Expect.EndCase "ShiftTests.ShiftLeft_MultipliesByPowerOfTwo", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShiftTests.ShiftLeft_ManualExample
+        Expect.EndCase "ShiftTests.ShiftLeft_ManualExample", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShiftTests.ShiftLeft_ByThousandsOfBits
+        Expect.EndCase "ShiftTests.ShiftLeft_ByThousandsOfBits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShiftTests.ShiftLeft_NegativeAmountDoesNotShiftRight
+        Expect.EndCase "ShiftTests.ShiftLeft_NegativeAmountDoesNotShiftRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShiftTests.ShiftRight_DividesByPowerOfTwoTruncatingTowardZero
+        Expect.EndCase "ShiftTests.ShiftRight_DividesByPowerOfTwoTruncatingTowardZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShiftTests.ShiftRight_ManualExamples
+        Expect.EndCase "ShiftTests.ShiftRight_ManualExamples", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShiftTests.ShiftRight_LargeNumber
+        Expect.EndCase "ShiftTests.ShiftRight_LargeNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShiftTests.ShiftRight_NegativeAmountLeavesValueUnchanged
+        Expect.EndCase "ShiftTests.ShiftRight_NegativeAmountLeavesValueUnchanged", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.IsNegative_ReadsTheSignOfTheValue
+        Expect.EndCase "SignTests.IsNegative_ReadsTheSignOfTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.IsNegative_SetFalseMakesNumberNonNegative
+        Expect.EndCase "SignTests.IsNegative_SetFalseMakesNumberNonNegative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.IsNegative_SetTrueShowsMinusSign
+        Expect.EndCase "SignTests.IsNegative_SetTrueShowsMinusSign", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.IsNegative_SetTrueShowsMinusSignInEveryBase
+        Expect.EndCase "SignTests.IsNegative_SetTrueShowsMinusSignInEveryBase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.IsNegative_SetTrueMakesArithmeticRight
+        Expect.EndCase "SignTests.IsNegative_SetTrueMakesArithmeticRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.IsNegative_SetTrueMakesNumberLessThanZero
+        Expect.EndCase "SignTests.IsNegative_SetTrueMakesNumberLessThanZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignNegation_ChangesTheSign
+        Expect.EndCase "SignTests.AssignNegation_ChangesTheSign", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignNegation_OfZeroIsZero
+        Expect.EndCase "SignTests.AssignNegation_OfZeroIsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignNegation_ResultOfNegationAddsToZero
+        Expect.EndCase "SignTests.AssignNegation_ResultOfNegationAddsToZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignNegation_ReturnValueIsFalse
+        Expect.EndCase "SignTests.AssignNegation_ReturnValueIsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignAbsolute_DropsTheSign
+        Expect.EndCase "SignTests.AssignAbsolute_DropsTheSign", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignAbsolute_ReturnValueIsFalse
+        Expect.EndCase "SignTests.AssignAbsolute_ReturnValueIsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_Values
+        Expect.EndCase "SignTests.AssignFromLong_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_MostNegativeLong
+        Expect.EndCase "SignTests.AssignFromLong_MostNegativeLong", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_ReplacesThePreviousValue
+        Expect.EndCase "SignTests.AssignFromLong_ReplacesThePreviousValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_Zero_IsNotNegative
+        Expect.EndCase "SignTests.AssignFromLong_Zero_IsNotNegative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_Zero_EqualsZeroFromString
+        Expect.EndCase "SignTests.AssignFromLong_Zero_EqualsZeroFromString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_Zero_IsNotLessThanZeroFromString
+        Expect.EndCase "SignTests.AssignFromLong_Zero_IsNotLessThanZeroFromString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_Zero_TextIsZero
+        Expect.EndCase "SignTests.AssignFromLong_Zero_TextIsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_Zero_AddsAndSubtractsAsZero
+        Expect.EndCase "SignTests.AssignFromLong_Zero_AddsAndSubtractsAsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_Zero_ValueStringZeroGivesTrueZero
+        Expect.EndCase "SignTests.AssignFromLong_Zero_ValueStringZeroGivesTrueZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignFromLong_Zero_IsNegativeFalseGivesTrueZero
+        Expect.EndCase "SignTests.AssignFromLong_Zero_IsNegativeFalseGivesTrueZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignSquared_Zero_IsNotNegative
+        Expect.EndCase "SignTests.AssignSquared_Zero_IsNotNegative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SignTests.AssignSquared_Zero_EqualsZeroFromString
+        Expect.EndCase "SignTests.AssignSquared_Zero_EqualsZeroFromString", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/ShiftTests.twin b/test/package-tests/BigNumberLib/Sources/ShiftTests.twin
new file mode 100644
index 00000000..b6d9fdc6
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/ShiftTests.twin
@@ -0,0 +1,121 @@
+' BigNumber: AssignShiftRight and AssignShiftLeft, checked against Decimal arithmetic.
+[TestFixture]
+Module ShiftTests
+
+    [TestCase]
+    Public Sub ShiftLeft_MultipliesByPowerOfTwo()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim k As Variant
+        Dim j As Long
+        v = Array("1", "5", "-7", "123456789012", "-123456789012")
+        k = Array(0, 1, 5, 13, 40)
+        For i = LBound(v) To UBound(v)
+            For j = LBound(k) To UBound(k)
+                a.ValueString = v(i)
+                r.AssignShiftLeft a, k(j)
+                Expect.AreEqual DecMul(v(i), CStr(Pow2(k(j)))), r.ValueString, v(i) & " << " & k(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShiftLeft_ManualExample()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "5"
+        r.AssignShiftLeft a, 100
+        Expect.AreEqual "6338253001141147007483516026880", r.ValueString, "5 << 100"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShiftLeft_ByThousandsOfBits()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "1"
+        r.AssignShiftLeft a, 4000
+        Expect.AreEqual "1" & Rep("0", 4000), r.ValueBinary, "1 << 4000, as binary"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShiftLeft_NegativeAmountDoesNotShiftRight()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "1000"
+        r.AssignShiftLeft a, -1
+        Expect.IsTrue r.ValueString <> "500", "1000 << -1 is not 1000 >> 1, but it gave " & r.ValueString
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShiftRight_DividesByPowerOfTwoTruncatingTowardZero()
+        Expect.Begin
+        Dim v As Variant
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        Dim i As Long
+        Dim k As Variant
+        Dim j As Long
+        v = Array("1", "5", "-7", "123456789012", "-123456789012", "-1")
+        k = Array(0, 1, 5, 13, 40)
+        For i = LBound(v) To UBound(v)
+            For j = LBound(k) To UBound(k)
+                a.ValueString = v(i)
+                r.AssignShiftRight a, k(j)
+                Expect.AreEqual DecQuot(v(i), CStr(Pow2(k(j)))), r.ValueString, v(i) & " >> " & k(j)
+            Next j
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShiftRight_ManualExamples()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "-7"
+        r.AssignShiftRight a, 1
+        Expect.AreEqual "-3", r.ValueString, "-7 >> 1"
+        a.ValueString = "-1"
+        r.AssignShiftRight a, 1
+        Expect.AreEqual "0", r.ValueString, "-1 >> 1"
+        r.AssignShiftRight a, 100
+        Expect.AreEqual "0", r.ValueString, "-1 >> 100"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShiftRight_LargeNumber()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueBinary = "1" & Rep("0", 2999) & "1"
+        r.AssignShiftRight a, 2999
+        Expect.AreEqual "10", r.ValueBinary, "(2^3000 + 1) >> 2999, as binary"
+        a.ValueBinary = "1" & Rep("0", 2999) & "1"
+        r.AssignShiftRight a, 3000
+        Expect.AreEqual "1", r.ValueBinary, "(2^3000 + 1) >> 3000, as binary"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShiftRight_NegativeAmountLeavesValueUnchanged()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "1000"
+        r.AssignShiftRight a, -1
+        Expect.AreEqual "1000", r.ValueString, "1000 >> -1"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/Sources/SignTests.twin b/test/package-tests/BigNumberLib/Sources/SignTests.twin
new file mode 100644
index 00000000..50dc2386
--- /dev/null
+++ b/test/package-tests/BigNumberLib/Sources/SignTests.twin
@@ -0,0 +1,315 @@
+' BigNumber: IsNegative, AssignNegation, AssignAbsolute, AssignFromLong, and the zero that
+' AssignFromLong and AssignSquared give.
+[TestFixture]
+Module SignTests
+
+    [TestCase]
+    Public Sub IsNegative_ReadsTheSignOfTheValue()
+        Expect.Begin
+        Dim n As New BigNumber
+        Expect.IsFalse n.IsNegative, "IsNegative of a new BigNumber"
+        n.ValueString = "5"
+        Expect.IsFalse n.IsNegative, "IsNegative of 5"
+        n.ValueString = "-5"
+        Expect.IsTrue n.IsNegative, "IsNegative of -5"
+        n.ValueString = "0"
+        Expect.IsFalse n.IsNegative, "IsNegative of a zero read from ""0"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsNegative_SetFalseMakesNumberNonNegative()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "-5"
+        n.IsNegative = False
+        Expect.IsFalse n.IsNegative, "IsNegative after setting it to False"
+        Expect.AreEqual "5", n.ValueString, "ValueString of -5 after IsNegative = False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsNegative_SetTrueShowsMinusSign()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "5"
+        n.IsNegative = True
+        Expect.IsTrue n.IsNegative, "IsNegative after setting it to True"
+        Expect.AreEqual "-5", n.ValueString, "ValueString of 5 after IsNegative = True"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsNegative_SetTrueShowsMinusSignInEveryBase()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = "255"
+        n.IsNegative = True
+        Expect.AreEqual "-FF", n.ValueHex, "ValueHex of 255 after IsNegative = True"
+        Expect.AreEqual "-377", n.ValueOctal, "ValueOctal of 255 after IsNegative = True"
+        Expect.AreEqual "-11111111", n.ValueBinary, "ValueBinary of 255 after IsNegative = True"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsNegative_SetTrueMakesArithmeticRight()
+        Expect.Begin
+        Dim n As New BigNumber
+        Dim three As New BigNumber
+        Dim r As New BigNumber
+        n.ValueString = "5"
+        three.ValueString = "3"
+        n.IsNegative = True
+        r.AssignAddition n, three
+        Expect.AreEqual "-2", r.ValueString, "5 with IsNegative = True, plus 3"
+        r.AssignMultiplication n, three
+        Expect.AreEqual "-15", r.ValueString, "5 with IsNegative = True, times 3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsNegative_SetTrueMakesNumberLessThanZero()
+        Expect.Begin
+        Dim n As New BigNumber
+        Dim zero As New BigNumber
+        n.ValueString = "5"
+        n.IsNegative = True
+        Expect.IsTrue n.IsLessThan(zero), "5 with IsNegative = True IsLessThan 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignNegation_ChangesTheSign()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "5"
+        r.AssignNegation a
+        Expect.AreEqual "-5", r.ValueString, "the negation of 5"
+        Expect.IsTrue r.IsNegative, "IsNegative of the negation of 5"
+        a.ValueString = "-" & Pattern(200, 1)
+        r.AssignNegation a
+        Expect.AreEqual Pattern(200, 1), r.ValueString, "the negation of a negative 200-digit number"
+        Expect.IsFalse r.IsNegative, "IsNegative of the negation of a negative number"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignNegation_OfZeroIsZero()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        Dim zero As New BigNumber
+        zero.ValueString = "0"
+        a.ValueString = "0"
+        r.AssignNegation a
+        Expect.AreEqual "0", r.ValueString, "the negation of 0"
+        Expect.IsFalse r.IsNegative, "IsNegative of the negation of 0"
+        Expect.IsTrue r.IsEqualTo(zero), "the negation of 0 IsEqualTo 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignNegation_ResultOfNegationAddsToZero()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim n As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = Pattern(100, 2)
+        n.AssignNegation a
+        r.AssignAddition a, n
+        Expect.AreEqual "0", r.ValueString, "a 100-digit number plus its negation"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignNegation_ReturnValueIsFalse()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "5"
+        Expect.IsFalse r.AssignNegation(a), "the value AssignNegation returns"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignAbsolute_DropsTheSign()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "-5"
+        r.AssignAbsolute a
+        Expect.AreEqual "5", r.ValueString, "the absolute value of -5"
+        Expect.IsFalse r.IsNegative, "IsNegative of the absolute value of -5"
+        a.ValueString = "7"
+        r.AssignAbsolute a
+        Expect.AreEqual "7", r.ValueString, "the absolute value of 7"
+        a.ValueString = "-" & Pattern(200, 3)
+        r.AssignAbsolute a
+        Expect.AreEqual Pattern(200, 3), r.ValueString, "the absolute value of a negative 200-digit number"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignAbsolute_ReturnValueIsFalse()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "-5"
+        Expect.IsFalse r.AssignAbsolute(a), "the value AssignAbsolute returns"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_Values()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.AssignFromLong 5
+        Expect.AreEqual "5", n.ValueString, "AssignFromLong 5"
+        n.AssignFromLong -5
+        Expect.AreEqual "-5", n.ValueString, "AssignFromLong -5"
+        n.AssignFromLong 1
+        Expect.AreEqual "1", n.ValueString, "AssignFromLong 1"
+        n.AssignFromLong -1
+        Expect.AreEqual "-1", n.ValueString, "AssignFromLong -1"
+        n.AssignFromLong 2147483647
+        Expect.AreEqual "2147483647", n.ValueString, "AssignFromLong 2147483647"
+        n.AssignFromLong -2147483647
+        Expect.AreEqual "-2147483647", n.ValueString, "AssignFromLong -2147483647"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_MostNegativeLong()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.AssignFromLong &H80000000
+        Expect.AreEqual "-2147483648", n.ValueString, "AssignFromLong &H80000000"
+        Expect.IsTrue n.IsNegative, "IsNegative after AssignFromLong &H80000000"
+        Expect.AreEqual "-80000000", n.ValueHex, "ValueHex after AssignFromLong &H80000000"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_ReplacesThePreviousValue()
+        Expect.Begin
+        Dim n As New BigNumber
+        n.ValueString = Pattern(100, 1)
+        n.AssignFromLong 42
+        Expect.AreEqual "42", n.ValueString, "AssignFromLong 42 on a 100-digit number"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_Zero_IsNotNegative()
+        Expect.Begin
+        Dim z As New BigNumber
+        z.AssignFromLong 0
+        Expect.IsFalse z.IsNegative, "IsNegative after AssignFromLong 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_Zero_EqualsZeroFromString()
+        Expect.Begin
+        Dim z As New BigNumber
+        Dim s As New BigNumber
+        s.ValueString = "0"
+        z.AssignFromLong 0
+        Expect.IsTrue z.IsEqualTo(s), "AssignFromLong 0 IsEqualTo a zero read from ""0"""
+        Expect.IsTrue s.IsEqualTo(z), "a zero read from ""0"" IsEqualTo AssignFromLong 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_Zero_IsNotLessThanZeroFromString()
+        Expect.Begin
+        Dim z As New BigNumber
+        Dim s As New BigNumber
+        s.ValueString = "0"
+        z.AssignFromLong 0
+        Expect.IsFalse z.IsLessThan(s), "AssignFromLong 0 IsLessThan a zero read from ""0"""
+        Expect.IsTrue z.IsLessThanOrEqualTo(s), "AssignFromLong 0 IsLessThanOrEqualTo a zero read from ""0"""
+        Expect.IsTrue z.IsGreaterThanOrEqualTo(s), "AssignFromLong 0 IsGreaterThanOrEqualTo a zero read from ""0"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_Zero_TextIsZero()
+        Expect.Begin
+        Dim z As New BigNumber
+        z.AssignFromLong 0
+        Expect.AreEqual "0", z.ValueString, "ValueString after AssignFromLong 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_Zero_AddsAndSubtractsAsZero()
+        Expect.Begin
+        Dim z As New BigNumber
+        Dim five As New BigNumber
+        Dim r As New BigNumber
+        z.AssignFromLong 0
+        five.ValueString = "5"
+        r.AssignAddition five, z
+        Expect.AreEqual "5", r.ValueString, "5 + AssignFromLong 0"
+        r.AssignSubtraction five, z
+        Expect.AreEqual "5", r.ValueString, "5 - AssignFromLong 0"
+        r.AssignSubtraction z, five
+        Expect.AreEqual "-5", r.ValueString, "AssignFromLong 0 - 5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_Zero_ValueStringZeroGivesTrueZero()
+        Expect.Begin
+        Dim z As New BigNumber
+        Dim s As New BigNumber
+        s.ValueString = "0"
+        z.AssignFromLong 0
+        z.ValueString = "0"
+        Expect.IsFalse z.IsNegative, "IsNegative after AssignFromLong 0 then ValueString = ""0"""
+        Expect.IsTrue z.IsEqualTo(s), "that number IsEqualTo a zero read from ""0"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignFromLong_Zero_IsNegativeFalseGivesTrueZero()
+        Expect.Begin
+        Dim z As New BigNumber
+        Dim s As New BigNumber
+        s.ValueString = "0"
+        z.AssignFromLong 0
+        z.IsNegative = False
+        Expect.IsFalse z.IsNegative, "IsNegative after AssignFromLong 0 then IsNegative = False"
+        Expect.IsTrue z.IsEqualTo(s), "that number IsEqualTo a zero read from ""0"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSquared_Zero_IsNotNegative()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        a.ValueString = "0"
+        r.AssignSquared a
+        Expect.AreEqual "0", r.ValueString, "0 squared"
+        Expect.IsFalse r.IsNegative, "IsNegative of 0 squared"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AssignSquared_Zero_EqualsZeroFromString()
+        Expect.Begin
+        Dim a As New BigNumber
+        Dim r As New BigNumber
+        Dim s As New BigNumber
+        a.ValueString = "0"
+        s.ValueString = "0"
+        r.AssignSquared a
+        Expect.IsTrue r.IsEqualTo(s), "0 squared IsEqualTo a zero read from ""0"""
+        Expect.IsFalse r.IsLessThan(s), "0 squared IsLessThan a zero read from ""0"""
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/BigNumberLib/expect.json b/test/package-tests/BigNumberLib/expect.json
new file mode 100644
index 00000000..4859acbc
--- /dev/null
+++ b/test/package-tests/BigNumberLib/expect.json
@@ -0,0 +1,98 @@
+{
+  "version": "1.0.2.0",
+  "cases": {
+    "GcdLcmTests.Gcd_NegativeFirstOperandKeepsItsValue": {
+      "fails": "1 of 2 checks failed: ValueString of the first operand after gcd(-12, 18): expected \"-12\", got \"12\""
+    },
+    "GcdLcmTests.Gcd_NegativeSecondOperandKeepsItsValue": {
+      "fails": "1 of 2 checks failed: ValueString of the second operand after gcd(12, -18): expected \"-18\", got \"18\""
+    },
+    "GcdLcmTests.Gcd_NegativeOperandStillAddsCorrectly": {
+      "fails": "2 of 2 checks failed: the first operand of gcd(-12, 18) plus 1: expected \"-11\", got \"11\"; the first operand of gcd(-12, 18) is less than 1: expected True, got False"
+    },
+    "GcdLcmTests.Lcm_OfTwoZeros_64Bit": {
+      "win32": "pass",
+      "win64": {
+        "fails": "1 of 1 checks failed: lcm(0, 0) of a number that held 99: expected \"0\", got \"99\""
+      }
+    },
+    "GcdLcmTests.Lcm_NegativeFirstOperandKeepsItsValue": {
+      "fails": "1 of 2 checks failed: ValueString of the first operand after lcm(-4, 6): expected \"-4\", got \"4\""
+    },
+    "GcdLcmTests.Lcm_NegativeSecondOperandKeepsItsValue": {
+      "fails": "1 of 2 checks failed: ValueString of the second operand after lcm(4, -6): expected \"-6\", got \"6\""
+    },
+    "GcdLcmTests.Lcm_NegativeOperandStillAddsCorrectly": {
+      "fails": "1 of 1 checks failed: the first operand of lcm(-4, 6) plus 1: expected \"-3\", got \"3\""
+    },
+    "InverseTests.Inverse_ZeroValueOddModulus_RaisesError5": {
+      "hangs": true
+    },
+    "InverseTests.Inverse_NegativeOddModulus_RaisesError5": {
+      "hangs": true
+    },
+    "ModulusTests.AssignModulus_NegativeDivisor_ZeroResultIsNotNegative": {
+      "fails": "1 of 2 checks failed: IsNegative of 6 Mod -3: expected False, got True"
+    },
+    "ModulusTests.AssignModulus_NegativeDivisor_ZeroResultEqualsZero": {
+      "fails": "2 of 2 checks failed: 6 Mod -3 IsEqualTo a zero read from \"0\": expected True, got False; 6 Mod -3 IsLessThan a zero read from \"0\": expected False, got True"
+    },
+    "OverflowTests.Overflow_ShiftLeftBeyondTheLibrary_RaisesErrorOrIsRight": {
+      "fails": "1 of 1 checks failed: 1 << 6000 raised no error; ValueBinary: expected \"1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000\"... (6001 characters), got \"0\""
+    },
+    "OverflowTests.Overflow_MultiplicationBeyondTheLibrary_RaisesErrorOrIsRight": {
+      "fails": "1 of 1 checks failed: 2^3000 * 2^3000 raised no error; ValueBinary: expected \"1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000\"... (6001 characters), got \"0\""
+    },
+    "OverflowTests.Overflow_AdditionBeyondTheLibrary_RaisesErrorOrIsRight": {
+      "win32": {
+        "fails": "1 of 1 checks failed: (2^4352 - 1) * 2 raised no error; ValueBinary: expected \"1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111\"... (4353 characters), got \"1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111\"... (4352 characters)"
+      },
+      "win64": {
+        "fails": "1 of 1 checks failed: (2^4608 - 1) * 2 raised no error; ValueBinary: expected \"1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111\"... (4609 characters), got \"1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111\"... (4608 characters)"
+      }
+    },
+    "OverflowTests.Overflow_ValueStringWithTooManyDigits_RaisesErrorOrIsRight": {
+      "win32": {
+        "fails": "1 of 1 checks failed: ValueString of 1,600 nines raised no error; read back: expected \"9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999\"... (1600 characters), got \"4286452832310585597233729070503425569902306886885523889489200741297515745171908463685529577272257134\"... (1310 characters)"
+      },
+      "win64": {
+        "fails": "1 of 1 checks failed: ValueString of 1,600 nines raised no error; read back: expected \"9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999\"... (1600 characters), got \"9008938760588959665641366052989158261445202088243123331546110814618818177382341717365057548908500041\"... (1387 characters)"
+      }
+    },
+    "OverflowTests.Overflow_ValueHexWithTooManyDigits_RaisesErrorOrIsRight": {
+      "win32": {
+        "fails": "1 of 1 checks failed: ValueHex of 1,300 F digits raised no error; read back: expected \"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF\"... (1300 characters), got \"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF\"... (1088 characters)"
+      },
+      "win64": {
+        "fails": "1 of 1 checks failed: ValueHex of 1,300 F digits raised no error; read back: expected \"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF\"... (1300 characters), got \"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF\"... (1152 characters)"
+      }
+    },
+    "SignTests.IsNegative_SetTrueShowsMinusSign": {
+      "fails": "1 of 2 checks failed: ValueString of 5 after IsNegative = True: expected \"-5\", got \"5\""
+    },
+    "SignTests.IsNegative_SetTrueShowsMinusSignInEveryBase": {
+      "fails": "3 of 3 checks failed: ValueHex of 255 after IsNegative = True: expected \"-FF\", got \"FF\"; ValueOctal of 255 after IsNegative = True: expected \"-377\", got \"377\"; ValueBinary of 255 after IsNegative = True: expected \"-11111111\", got \"11111111\""
+    },
+    "SignTests.IsNegative_SetTrueMakesArithmeticRight": {
+      "fails": "2 of 2 checks failed: 5 with IsNegative = True, plus 3: expected \"-2\", got \"2\"; 5 with IsNegative = True, times 3: expected \"-15\", got \"15\""
+    },
+    "SignTests.IsNegative_SetTrueMakesNumberLessThanZero": {
+      "fails": "1 of 1 checks failed: 5 with IsNegative = True IsLessThan 0: expected True, got False"
+    },
+    "SignTests.AssignFromLong_Zero_IsNotNegative": {
+      "fails": "1 of 1 checks failed: IsNegative after AssignFromLong 0: expected False, got True"
+    },
+    "SignTests.AssignFromLong_Zero_EqualsZeroFromString": {
+      "fails": "2 of 2 checks failed: AssignFromLong 0 IsEqualTo a zero read from \"0\": expected True, got False; a zero read from \"0\" IsEqualTo AssignFromLong 0: expected True, got False"
+    },
+    "SignTests.AssignFromLong_Zero_IsNotLessThanZeroFromString": {
+      "fails": "2 of 3 checks failed: AssignFromLong 0 IsLessThan a zero read from \"0\": expected False, got True; AssignFromLong 0 IsGreaterThanOrEqualTo a zero read from \"0\": expected True, got False"
+    },
+    "SignTests.AssignSquared_Zero_IsNotNegative": {
+      "fails": "1 of 2 checks failed: IsNegative of 0 squared: expected False, got True"
+    },
+    "SignTests.AssignSquared_Zero_EqualsZeroFromString": {
+      "fails": "2 of 2 checks failed: 0 squared IsEqualTo a zero read from \"0\": expected True, got False; 0 squared IsLessThan a zero read from \"0\": expected False, got True"
+    }
+  }
+}
diff --git a/test/package-tests/FileProps/Sources/CollectionTests.twin b/test/package-tests/FileProps/Sources/CollectionTests.twin
new file mode 100644
index 00000000..6e50bb6f
--- /dev/null
+++ b/test/package-tests/FileProps/Sources/CollectionTests.twin
@@ -0,0 +1,286 @@
+' FileProperties: Count, FilePath, Item by index, name and ID, the errors Item raises, and For Each.
+[TestFixture]
+Module CollectionTests
+
+    [TestCase]
+    Public Sub Count_DiffersByFileType()
+        Expect.Begin
+        Dim w As String, t As FileProperties, j As FileProperties
+        w = Sandbox.Fresh("Count_DiffersByFileType")
+        On Error GoTo Oops
+        Set t = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Set j = FilePropertyExplorer.OpenFile(Sandbox.MakeJpeg(w, "a.jpg"))
+        Expect.IsTrue t.Count > 0, "Count of a text file"
+        Expect.IsTrue j.Count > 0, "Count of a JPEG file"
+        Expect.IsTrue t.Count <> j.Count, "Count of a text file and of a JPEG file differ (" & t.Count & " and " & j.Count & ")"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set t = Nothing
+        Set j = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Count_IsOneMoreThanTheLastIndex()
+        Expect.Begin
+        Dim w As String, fp As FileProperties
+        w = Sandbox.Fresh("Count_IsOneMoreThanTheLastIndex")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual 0, Sandbox.ItemError(fp, 0&), "Err.Number of Item(0)"
+        Expect.AreEqual 0, Sandbox.ItemError(fp, fp.Count - 1), "Err.Number of Item(Count - 1)"
+        Expect.AreEqual Sandbox.E_OutOfBounds, Sandbox.ItemError(fp, fp.Count), "Err.Number of Item(Count)"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FilePath_IsThePathPassedToOpenFile()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties
+        w = Sandbox.Fresh("FilePath_IsThePathPassedToOpenFile")
+        On Error GoTo Oops
+        p = Sandbox.MakeText(w, "a.txt")
+        Set fp = FilePropertyExplorer.OpenFile(p)
+        Expect.AreEqual p, fp.FilePath, "FilePath of the collection OpenFile returned for the full path"
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.AreEqual p, fp.FilePath, "FilePath of the collection OpenFile returned for the full path, with write support"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_ByIndex_ReturnsThePropertyAtThatPosition()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, a As String, b As String, i As Long
+        w = Sandbox.Fresh("Item_ByIndex_ReturnsThePropertyAtThatPosition")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual "FileProperty", TypeName(fp.Item(0)), "TypeName of Item(0)"
+        For i = 0 To fp.Count - 1
+            a = fp.Item(i).ID
+            b = fp.Item(i).ID
+            If a <> b Then Expect.Fail "ID of Item(" & i & ") read twice gives " & a & " and " & b
+            If Len(a) = 0 Then Expect.Fail "ID of Item(" & i & ") is empty"
+        Next
+        Expect.AreEqual "FileProperty", TypeName(fp.Item(fp.Count - 1)), "TypeName of Item(Count - 1)"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_ByName_ReturnsThePropertyOfThatName()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, i As Long, p As FileProperty
+        w = Sandbox.Fresh("Item_ByName_ReturnsThePropertyOfThatName")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        For i = 0 To fp.Count - 1
+            Set p = fp.Item(i)
+            If Len(p.Name) > 0 Then
+                If fp.Item(p.Name).ID <> p.ID Then Expect.Fail "Item(""" & p.Name & """) is not the property at index " & i
+            End If
+        Next
+        Expect.AreEqual "a.txt", fp.Item("System.ItemNameDisplay").Value, "Value of Item(""System.ItemNameDisplay"")"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set p = Nothing
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_ByID_ReturnsThePropertyWithThatID()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, names As Variant, n As Variant, id As String
+        w = Sandbox.Fresh("Item_ByID_ReturnsThePropertyWithThatID")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        names = Array("System.Size", "System.ItemNameDisplay", "System.DateModified", "System.ContentType", "System.FileExtension")
+        For Each n In names
+            id = fp.Item(CStr(n)).ID
+            Expect.AreEqual 0, Sandbox.ItemError(fp, id), "Err.Number of Item with the ID of " & n
+            If Sandbox.ItemError(fp, id) = 0 Then Expect.AreEqual CStr(n), fp.Item(id).Name, "Name of the property Item returns for the ID of " & n
+        Next
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_ByID_ComputedProperty_ReturnsThePropertyWithThatID()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, names As Variant, n As Variant, id As String
+        w = Sandbox.Fresh("Item_ByID_ComputedProperty_ReturnsThePropertyWithThatID")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        names = Array("System.ItemTypeText", "System.ItemFolderNameDisplay", "System.ItemPathDisplay", "System.Kind")
+        For Each n In names
+            id = fp.Item(CStr(n)).ID
+            Expect.AreEqual 0, Sandbox.ItemError(fp, id), "Err.Number of Item with the ID of " & n
+        Next
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_ByID_UnknownID_RaisesElementNotFound()
+        Expect.Begin
+        Dim w As String, fp As FileProperties
+        w = Sandbox.Fresh("Item_ByID_UnknownID_RaisesElementNotFound")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual Sandbox.E_ElementNotFound, Sandbox.ItemError(fp, "{00000000-0000-0000-0000-000000000000}/1"), "Err.Number of Item with an ID of a GUID that no property has"
+        Expect.AreEqual Sandbox.E_ElementNotFound, Sandbox.ItemError(fp, "{B725F130-47EF-101A-A5F1-02608C9EEBAC}/9999"), "Err.Number of Item with an ID of a known GUID and an index that no property has"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_ByID_UnknownID_ReturnsAPropertyWithNoValue()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, p As FileProperty
+        w = Sandbox.Fresh("Item_ByID_UnknownID_ReturnsAPropertyWithNoValue")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Set p = fp.Item("{00000000-0000-0000-0000-000000000000}/1")
+        Expect.AreEqual "{00000000-0000-0000-0000-000000000000}/1", p.ID, "ID of the property Item returns for an ID that no property has"
+        Expect.AreEqual "", p.Name, "Name of that property"
+        Expect.IsTrue IsEmpty(p.Value), "Value of that property is Empty"
+        Expect.AreEqual "", p.ValueDesc, "ValueDesc of that property"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set p = Nothing
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_NameAndID_IgnoreCase()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, p As FileProperty
+        w = Sandbox.Fresh("Item_NameAndID_IgnoreCase")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Set p = fp.Item("System.Size")
+        Expect.AreEqual p.ID, fp.Item("system.size").ID, "ID of Item(""system.size"")"
+        Expect.AreEqual p.ID, fp.Item(LCase$(p.ID)).ID, "ID of Item with the ID of System.Size in lower case"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set p = Nothing
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_UnknownName_RaisesElementNotFound()
+        Expect.Begin
+        Dim w As String, fp As FileProperties
+        w = Sandbox.Fresh("Item_UnknownName_RaisesElementNotFound")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual Sandbox.E_ElementNotFound, Sandbox.ItemError(fp, "No.Such.Property"), "Err.Number of Item(""No.Such.Property"")"
+        Expect.AreEqual Sandbox.E_ElementNotFound, Sandbox.ItemError(fp, "3"), "Err.Number of Item(""3""), a String of digits"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_NegativeIndex_RaisesFail()
+        Expect.Begin
+        Dim w As String, fp As FileProperties
+        w = Sandbox.Fresh("Item_NegativeIndex_RaisesFail")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual Sandbox.E_Fail, Sandbox.ItemError(fp, -1&), "Err.Number of Item(-1)"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ForEach_VisitsEveryProperty()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, p As FileProperty, n As Long, i As Long
+        w = Sandbox.Fresh("ForEach_VisitsEveryProperty")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        For Each p In fp
+            If p.ID <> fp.Item(n).ID Then Expect.Fail "the property visited as number " & n & " is not Item(" & n & ")"
+            n = n + 1
+        Next
+        Expect.AreEqual fp.Count, n, "number of properties a For Each over the collection visits"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set p = Nothing
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/FileProps/Sources/ExplorerTests.twin b/test/package-tests/FileProps/Sources/ExplorerTests.twin
new file mode 100644
index 00000000..71fbd610
--- /dev/null
+++ b/test/package-tests/FileProps/Sources/ExplorerTests.twin
@@ -0,0 +1,265 @@
+' FilePropertyExplorer: OpenFile, the paths it takes and the errors it raises, and WriteSupport.
+[TestFixture]
+Module ExplorerTests
+
+    [TestCase]
+    Public Sub OpenFile_FullPath_ReturnsCollection()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties
+        w = Sandbox.Fresh("OpenFile_FullPath_ReturnsCollection")
+        On Error GoTo Oops
+        p = Sandbox.MakeText(w, "a.txt")
+        Set fp = FilePropertyExplorer.OpenFile(p)
+        Expect.IsFalse fp Is Nothing, "OpenFile of an existing text file returns a collection"
+        Expect.AreEqual "FileProperties", TypeName(fp), "TypeName of what OpenFile returns"
+        Expect.IsTrue fp.Count > 0, "Count of the collection OpenFile returns for a text file"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_NewInstance_ReturnsCollection()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties, ex As FilePropertyExplorer
+        w = Sandbox.Fresh("OpenFile_NewInstance_ReturnsCollection")
+        On Error GoTo Oops
+        p = Sandbox.MakeText(w, "a.txt")
+        Set ex = New FilePropertyExplorer
+        Set fp = ex.OpenFile(p)
+        Expect.IsTrue fp.Count > 0, "Count of the collection OpenFile returns on a FilePropertyExplorer made with New"
+        Expect.AreEqual p, fp.FilePath, "FilePath of that collection"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Set ex = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_MissingFile_RaisesFileNotFound()
+        Expect.Begin
+        Dim w As String
+        w = Sandbox.Fresh("OpenFile_MissingFile_RaisesFileNotFound")
+        On Error GoTo Oops
+        Expect.AreEqual Sandbox.E_FileNotFound, Sandbox.OpenError(w & "\none.txt"), "Err.Number of OpenFile of a file that does not exist"
+        Expect.AreEqual Sandbox.E_FileNotFound, Sandbox.OpenError(w & "\no\such\folder\none.txt"), "Err.Number of OpenFile of a file in a folder that does not exist"
+        Expect.AreEqual Sandbox.E_FileNotFound, Sandbox.OpenError(w & "\none.txt", True), "Err.Number of OpenFile of a file that does not exist, with write support"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_RelativePath_RaisesFileNotFound()
+        Expect.Begin
+        Dim w As String, p As String, oldDrive As String, oldDir As String, n As Long
+        w = Sandbox.Fresh("OpenFile_RelativePath_RaisesFileNotFound")
+        oldDir = CurDir$
+        oldDrive = Left$(oldDir, 2)
+        On Error GoTo Oops
+        p = Sandbox.MakeText(w, "a.txt")
+        Expect.AreEqual 0, Sandbox.OpenError(p), "Err.Number of OpenFile of the full path of the file"
+        ChDrive Left$(w, 2)
+        ChDir w
+        n = Sandbox.OpenError("a.txt")
+        ChDrive oldDrive
+        ChDir oldDir
+        Expect.AreEqual Sandbox.E_FileNotFound, n, "Err.Number of OpenFile of ""a.txt"", a file of the current folder"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        On Error Resume Next
+        ChDrive oldDrive
+        ChDir oldDir
+        On Error GoTo 0
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_DotDotSegment_RaisesFileNotFound()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("OpenFile_DotDotSegment_RaisesFileNotFound")
+        On Error GoTo Oops
+        p = Sandbox.MakeText(w, "a.txt")
+        Expect.AreEqual Sandbox.E_FileNotFound, Sandbox.OpenError(w & "\..\OpenFile_DotDotSegment_RaisesFileNotFound\a.txt"), "Err.Number of OpenFile of the existing file a.txt given with a "".."" segment in its path"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_ForwardSlashes_RaisesFileNotFound()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("OpenFile_ForwardSlashes_RaisesFileNotFound")
+        On Error GoTo Oops
+        p = Sandbox.MakeText(w, "a.txt")
+        Expect.AreEqual Sandbox.E_FileNotFound, Sandbox.OpenError(Replace(p, "\", "/")), "Err.Number of OpenFile of the existing file a.txt given with forward slashes"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_WriteSupport_JpegListsTheHandlersProperties()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties, plainCount As Long
+        w = Sandbox.Fresh("OpenFile_WriteSupport_JpegListsTheHandlersProperties")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p)
+        plainCount = fp.Count
+        Expect.AreEqual 631, CLng(fp.Item("System.Size").Value), "System.Size of the JPEG file, opened without write support"
+        Set fp = Nothing
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.IsTrue fp.Count > 0, "Count of a JPEG file opened with write support"
+        Expect.IsTrue fp.Count < plainCount, "Count of a JPEG file opened with write support is lower than without it (" & fp.Count & " and " & plainCount & ")"
+        Expect.IsTrue IsEmpty(fp.Item("System.Size").Value), "System.Size of the JPEG file, opened with write support, is Empty"
+        Expect.AreEqual "System.Size", fp.Item("System.Size").Name, "Name of System.Size, opened with write support"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_WriteSupport_TextFileListsTheSameProperties()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties, plainCount As Long
+        w = Sandbox.Fresh("OpenFile_WriteSupport_TextFileListsTheSameProperties")
+        On Error GoTo Oops
+        p = Sandbox.MakeText(w, "a.txt")
+        Set fp = FilePropertyExplorer.OpenFile(p)
+        plainCount = fp.Count
+        Set fp = Nothing
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.AreEqual plainCount, fp.Count, "Count of a text file opened with write support and without it"
+        Expect.AreEqual 7, CLng(fp.Item("System.Size").Value), "System.Size of the text file, opened with write support"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_TwoReadOnlyCollections_BothHoldTheProperties()
+        Expect.Begin
+        Dim w As String, p As String, a As FileProperties, b As FileProperties
+        w = Sandbox.Fresh("OpenFile_TwoReadOnlyCollections_BothHoldTheProperties")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set a = FilePropertyExplorer.OpenFile(p)
+        Set b = FilePropertyExplorer.OpenFile(p)
+        Expect.IsTrue a.Count > 0, "Count of the first collection of a JPEG file, while the second is open"
+        Expect.AreEqual a.Count, b.Count, "Count of the second collection of the JPEG file, opened while the first is open"
+        Expect.AreEqual 631, CLng(b.Item("System.Size").Value), "System.Size read through the second collection"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set a = Nothing
+        Set b = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_WhileWriteSupportCollectionIsOpen_ListsTheProperties()
+        Expect.Begin
+        Dim w As String, p As String, writable As FileProperties, plain As FileProperties
+        w = Sandbox.Fresh("OpenFile_WhileWriteSupportCollectionIsOpen_ListsTheProperties")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set writable = FilePropertyExplorer.OpenFile(p, True)
+        Set plain = FilePropertyExplorer.OpenFile(p)
+        Expect.IsTrue plain.Count > 0, "Count of a collection of a JPEG file opened while a collection with write support of the same file is open"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set writable = Nothing
+        Set plain = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_WriteSupportWhileWriteSupportCollectionIsOpen_ListsTheProperties()
+        Expect.Begin
+        Dim w As String, p As String, first As FileProperties, second As FileProperties
+        w = Sandbox.Fresh("OpenFile_WriteSupportWhileWriteSupportCollectionIsOpen_ListsTheProperties")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set first = FilePropertyExplorer.OpenFile(p, True)
+        Set second = FilePropertyExplorer.OpenFile(p, True)
+        Expect.IsTrue first.Count > 0, "Count of the first collection of a JPEG file opened with write support"
+        Expect.IsTrue second.Count > 0, "Count of a second collection of the same file opened with write support while the first is open"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set first = Nothing
+        Set second = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_WriteSupportWhileACollectionIsOpen_Returns()
+        Expect.Begin
+        Dim w As String, p As String, plain As FileProperties, writable As FileProperties
+        w = Sandbox.Fresh("OpenFile_WriteSupportWhileACollectionIsOpen_Returns")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set plain = FilePropertyExplorer.OpenFile(p)
+        Set writable = FilePropertyExplorer.OpenFile(p, True)
+        Expect.IsTrue writable.Count > 0, "Count of a collection with write support of a JPEG file, opened while a collection of the same file is open"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set plain = Nothing
+        Set writable = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/FileProps/Sources/PropertyTests.twin b/test/package-tests/FileProps/Sources/PropertyTests.twin
new file mode 100644
index 00000000..9830481f
--- /dev/null
+++ b/test/package-tests/FileProps/Sources/PropertyTests.twin
@@ -0,0 +1,218 @@
+' FileProperty: Name, NameDesc, ID, Value and ValueDesc.
+[TestFixture]
+Module PropertyTests
+
+    [TestCase]
+    Public Sub Name_IsTheSystemName()
+        Expect.Begin
+        Dim w As String, fp As FileProperties
+        w = Sandbox.Fresh("Name_IsTheSystemName")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual "System.ItemFolderNameDisplay", fp.Item("System.ItemFolderNameDisplay").Name, "Name of Item(""System.ItemFolderNameDisplay"")"
+        Expect.AreEqual "System.Size", fp.Item("system.size").Name, "Name of Item(""system.size"") is the system name in its own case"
+        Expect.AreEqual vbString, VarType(fp.Item("System.Size").Name), "VarType of Name"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Name_PropertyWithoutSystemName_IsEmpty()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, i As Long, p As FileProperty
+        w = Sandbox.Fresh("Name_PropertyWithoutSystemName_IsEmpty")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        For i = 0 To fp.Count - 1
+            Set p = fp.Item(i)
+            If Len(p.Name) = 0 Then
+                Expect.IsTrue Len(p.ID) > 0, "ID of the property at index " & i & ", which has no Name, is not empty"
+                Expect.AreEqual p.ID, fp.Item(p.ID).ID, "Item with the ID of the property at index " & i & ", which has no Name"
+            End If
+        Next
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set p = Nothing
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NameDesc_IsAStringAndNotAlwaysAvailable()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, i As Long, p As FileProperty
+        w = Sandbox.Fresh("NameDesc_IsAStringAndNotAlwaysAvailable")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.IsTrue Len(fp.Item("System.Size").NameDesc) > 0, "NameDesc of System.Size is not empty"
+        For i = 0 To fp.Count - 1
+            Set p = fp.Item(i)
+            If Len(p.NameDesc) = 0 Then
+                Expect.IsTrue Len(p.ID) > 0, "ID of the property at index " & i & ", whose NameDesc is empty"
+            End If
+        Next
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set p = Nothing
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ID_IsAGuidAndAnIndex()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, i As Long, id As String, seen As New Collection
+        w = Sandbox.Fresh("ID_IsAGuidAndAnIndex")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual "{B725F130-47EF-101A-A5F1-02608C9EEBAC}/12", fp.Item("System.Size").ID, "ID of System.Size"
+        For i = 0 To fp.Count - 1
+            id = fp.Item(i).ID
+            If Not (id Like "{????????-????-????-????-????????????}/#*") Then
+                Expect.Fail "ID of the property at index " & i & " is a GUID in braces, a slash and an integer: got """ & id & """"
+            ElseIf Not IsNumeric(Mid$(id, 40)) Then
+                Expect.Fail "ID of the property at index " & i & " ends in an integer: got """ & id & """"
+            End If
+            Err.Clear
+            seen.Add True, UCase$(id)
+            If Err.Number <> 0 Then Expect.Fail "ID of the property at index " & i & " is the ID of an earlier property: " & id
+            Err.Clear
+        Next
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_TypeDependsOnTheProperty()
+        Expect.Begin
+        Dim w As String, fp As FileProperties
+        w = Sandbox.Fresh("Value_TypeDependsOnTheProperty")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual vbString, VarType(fp.Item("System.ItemNameDisplay").Value), "VarType of the Value of System.ItemNameDisplay"
+        Expect.AreEqual "a.txt", fp.Item("System.ItemNameDisplay").Value, "Value of System.ItemNameDisplay"
+        Expect.AreEqual vbDate, VarType(fp.Item("System.DateModified").Value), "VarType of the Value of System.DateModified"
+        Expect.AreEqual vbBoolean, VarType(fp.Item("System.IsShared").Value), "VarType of the Value of System.IsShared"
+        Expect.IsFalse fp.Item("System.IsShared").Value, "Value of System.IsShared of a new file"
+        Expect.AreEqual 7, CLng(fp.Item("System.Size").Value), "Value of System.Size of a file of seven bytes"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_PropertyWithNoValue_IsEmpty()
+        Expect.Begin
+        Dim w As String, fp As FileProperties
+        w = Sandbox.Fresh("Value_PropertyWithNoValue_IsEmpty")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.IsTrue IsEmpty(fp.Item("System.Title").Value), "Value of System.Title of a text file, which has none, is Empty"
+        Expect.AreEqual "", fp.Item("System.Title").ValueDesc, "ValueDesc of System.Title of a text file"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_MultiValueProperty_IsAnArray()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, v As Variant
+        w = Sandbox.Fresh("Value_MultiValueProperty_IsAnArray")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        v = fp.Item("System.Kind").Value
+        Expect.IsTrue IsArray(v), "Value of System.Kind of a text file is an array"
+        If IsArray(v) Then
+            Expect.AreEqual 1, UBound(v) - LBound(v) + 1, "number of elements of the Value of System.Kind of a text file"
+            Expect.AreEqual "document", LCase$(CStr(v(LBound(v)))), "the element of the Value of System.Kind of a text file"
+        End If
+        Expect.IsFalse IsArray(fp.Item("System.ItemNameDisplay").Value), "Value of System.ItemNameDisplay is not an array"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueDesc_IsAString()
+        Expect.Begin
+        Dim w As String, fp As FileProperties, i As Long
+        w = Sandbox.Fresh("ValueDesc_IsAString")
+        On Error GoTo Oops
+        Set fp = FilePropertyExplorer.OpenFile(Sandbox.MakeText(w, "a.txt"))
+        Expect.AreEqual "a.txt", fp.Item("System.ItemNameDisplay").ValueDesc, "ValueDesc of System.ItemNameDisplay"
+        For i = 0 To fp.Count - 1
+            If VarType(fp.Item(i).ValueDesc) <> vbString Then Expect.Fail "ValueDesc of the property at index " & i & " is a String"
+        Next
+        Expect.AreEqual "document", LCase$(fp.Item("System.Kind").ValueDesc), "ValueDesc of System.Kind, a multi-value property"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueDesc_MultiValueProperty_IsOneString()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties, d As String
+        w = Sandbox.Fresh("ValueDesc_MultiValueProperty_IsOneString")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.AreEqual 0, Sandbox.ValueError(fp.Item("System.Keywords"), Array("alpha", "beta")), "Err.Number of assigning two keywords to System.Keywords"
+        Set fp = Nothing
+        Set fp = FilePropertyExplorer.OpenFile(p)
+        Expect.IsTrue IsArray(fp.Item("System.Keywords").Value), "Value of System.Keywords with two keywords is an array"
+        d = fp.Item("System.Keywords").ValueDesc
+        Expect.AreEqual vbString, VarType(fp.Item("System.Keywords").ValueDesc), "VarType of ValueDesc of System.Keywords with two keywords"
+        Expect.IsTrue InStr(d, "alpha") > 0 And InStr(d, "beta") > 0, "ValueDesc of System.Keywords holds both keywords: got """ & d & """"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/FileProps/Sources/RunAll.twin b/test/package-tests/FileProps/Sources/RunAll.twin
new file mode 100644
index 00000000..7cd82a7b
--- /dev/null
+++ b/test/package-tests/FileProps/Sources/RunAll.twin
@@ -0,0 +1,175 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package FileProps, version 1.7.1.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "FileProps 1.7.1.0: 41 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Count_DiffersByFileType
+        Expect.EndCase "CollectionTests.Count_DiffersByFileType", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Count_IsOneMoreThanTheLastIndex
+        Expect.EndCase "CollectionTests.Count_IsOneMoreThanTheLastIndex", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.FilePath_IsThePathPassedToOpenFile
+        Expect.EndCase "CollectionTests.FilePath_IsThePathPassedToOpenFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_ByIndex_ReturnsThePropertyAtThatPosition
+        Expect.EndCase "CollectionTests.Item_ByIndex_ReturnsThePropertyAtThatPosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_ByName_ReturnsThePropertyOfThatName
+        Expect.EndCase "CollectionTests.Item_ByName_ReturnsThePropertyOfThatName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_ByID_ReturnsThePropertyWithThatID
+        Expect.EndCase "CollectionTests.Item_ByID_ReturnsThePropertyWithThatID", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_ByID_ComputedProperty_ReturnsThePropertyWithThatID
+        Expect.EndCase "CollectionTests.Item_ByID_ComputedProperty_ReturnsThePropertyWithThatID", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_ByID_UnknownID_RaisesElementNotFound
+        Expect.EndCase "CollectionTests.Item_ByID_UnknownID_RaisesElementNotFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_ByID_UnknownID_ReturnsAPropertyWithNoValue
+        Expect.EndCase "CollectionTests.Item_ByID_UnknownID_ReturnsAPropertyWithNoValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_NameAndID_IgnoreCase
+        Expect.EndCase "CollectionTests.Item_NameAndID_IgnoreCase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_UnknownName_RaisesElementNotFound
+        Expect.EndCase "CollectionTests.Item_UnknownName_RaisesElementNotFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.Item_NegativeIndex_RaisesFail
+        Expect.EndCase "CollectionTests.Item_NegativeIndex_RaisesFail", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectionTests.ForEach_VisitsEveryProperty
+        Expect.EndCase "CollectionTests.ForEach_VisitsEveryProperty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_FullPath_ReturnsCollection
+        Expect.EndCase "ExplorerTests.OpenFile_FullPath_ReturnsCollection", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_NewInstance_ReturnsCollection
+        Expect.EndCase "ExplorerTests.OpenFile_NewInstance_ReturnsCollection", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_MissingFile_RaisesFileNotFound
+        Expect.EndCase "ExplorerTests.OpenFile_MissingFile_RaisesFileNotFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_RelativePath_RaisesFileNotFound
+        Expect.EndCase "ExplorerTests.OpenFile_RelativePath_RaisesFileNotFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_DotDotSegment_RaisesFileNotFound
+        Expect.EndCase "ExplorerTests.OpenFile_DotDotSegment_RaisesFileNotFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_ForwardSlashes_RaisesFileNotFound
+        Expect.EndCase "ExplorerTests.OpenFile_ForwardSlashes_RaisesFileNotFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_WriteSupport_JpegListsTheHandlersProperties
+        Expect.EndCase "ExplorerTests.OpenFile_WriteSupport_JpegListsTheHandlersProperties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_WriteSupport_TextFileListsTheSameProperties
+        Expect.EndCase "ExplorerTests.OpenFile_WriteSupport_TextFileListsTheSameProperties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_TwoReadOnlyCollections_BothHoldTheProperties
+        Expect.EndCase "ExplorerTests.OpenFile_TwoReadOnlyCollections_BothHoldTheProperties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_WhileWriteSupportCollectionIsOpen_ListsTheProperties
+        Expect.EndCase "ExplorerTests.OpenFile_WhileWriteSupportCollectionIsOpen_ListsTheProperties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExplorerTests.OpenFile_WriteSupportWhileWriteSupportCollectionIsOpen_ListsTheProperties
+        Expect.EndCase "ExplorerTests.OpenFile_WriteSupportWhileWriteSupportCollectionIsOpen_ListsTheProperties", Err.Number, Err.Description
+        Expect.Skip "ExplorerTests.OpenFile_WriteSupportWhileACollectionIsOpen_Returns", "it does not return in version 1.7.1.0"
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Name_IsTheSystemName
+        Expect.EndCase "PropertyTests.Name_IsTheSystemName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Name_PropertyWithoutSystemName_IsEmpty
+        Expect.EndCase "PropertyTests.Name_PropertyWithoutSystemName_IsEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.NameDesc_IsAStringAndNotAlwaysAvailable
+        Expect.EndCase "PropertyTests.NameDesc_IsAStringAndNotAlwaysAvailable", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.ID_IsAGuidAndAnIndex
+        Expect.EndCase "PropertyTests.ID_IsAGuidAndAnIndex", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Value_TypeDependsOnTheProperty
+        Expect.EndCase "PropertyTests.Value_TypeDependsOnTheProperty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Value_PropertyWithNoValue_IsEmpty
+        Expect.EndCase "PropertyTests.Value_PropertyWithNoValue_IsEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Value_MultiValueProperty_IsAnArray
+        Expect.EndCase "PropertyTests.Value_MultiValueProperty_IsAnArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.ValueDesc_IsAString
+        Expect.EndCase "PropertyTests.ValueDesc_IsAString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.ValueDesc_MultiValueProperty_IsOneString
+        Expect.EndCase "PropertyTests.ValueDesc_MultiValueProperty_IsOneString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.Value_Let_Title_IsStored
+        Expect.EndCase "WriteTests.Value_Let_Title_IsStored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.Value_Let_Rating_IsStored
+        Expect.EndCase "WriteTests.Value_Let_Rating_IsStored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.Value_Let_Array_IsStoredAsMultiValue
+        Expect.EndCase "WriteTests.Value_Let_Array_IsStoredAsMultiValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.Value_Let_WithoutWriteSupport_Raises
+        Expect.EndCase "WriteTests.Value_Let_WithoutWriteSupport_Raises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.Value_Let_NotWritableProperty_Raises
+        Expect.EndCase "WriteTests.Value_Let_NotWritableProperty_Raises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.Value_Let_NotWritableProperty_RaisesPermissionDenied
+        Expect.EndCase "WriteTests.Value_Let_NotWritableProperty_RaisesPermissionDenied", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.Value_Let_NotWritableProperty_RaisesTheSameErrorEverywhere
+        Expect.EndCase "WriteTests.Value_Let_NotWritableProperty_RaisesTheSameErrorEverywhere", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/FileProps/Sources/Sandbox.twin b/test/package-tests/FileProps/Sources/Sandbox.twin
new file mode 100644
index 00000000..56e3227d
--- /dev/null
+++ b/test/package-tests/FileProps/Sources/Sandbox.twin
@@ -0,0 +1,132 @@
+' Sandbox: the folders the test cases of FileProps work in, and a few helpers they share.
+'
+' Every file a case makes is under %TEMP%\tbdocs-package-tests\FileProps\. A case asks for a fresh
+' folder of its own (Fresh), which empties it first in case an earlier run left something, and
+' removes it at its end (Remove). The cases only read or write the properties of the files they
+' made there, and never a file of the system, the profile or the repository.
+'
+' The JPEG is a file of 631 bytes (8 by 8 pixels), made once with System.Drawing. Windows has a
+' property handler for JPEG files that can write properties, which a text file does not have.
+Module Sandbox
+
+    Private Const JpegHex As String = "FFD8FFE000104A46494600010101006000600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C1912130F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F27393D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232323232323232323232323232323232323232323232323232323232323232323232323232323232323232323232FFC00011080008000803012200021101031101FFC4001F0000010501010101010100000000000000000102030405060708090A0BFFC400B5100002010303020403050504040000017D01020300041105122131410613516107227114328191A1082342B1C11552D1F02433627282090A161718191A25262728292A3435363738393A434445464748494A535455565758595A636465666768696A737475767778797A838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F0100030101010101010101010000000000000102030405060708090A0BFFC400B51100020102040403040705040400010277000102031104052131061241510761711322328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728292A35363738393A434445464748494A535455565758595A636465666768696A737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F9FE8A28A00FFFD9"
+
+    ' HRESULTs of the package's own errors.
+    Public Const E_FileNotFound As Long = &H8004220A
+    Public Const E_ElementNotFound As Long = &H80042702
+    Public Const E_OutOfBounds As Long = &H80042703
+    Public Const E_Fail As Long = &H80004005
+
+    Public Function Root() As String
+        Root = Environ$("TEMP") & "\tbdocs-package-tests\FileProps"
+    End Function
+
+    ' A new, empty folder for one case.
+    Public Function Fresh(ByVal Tag As String) As String
+        Dim p As String
+        p = Root() & "\" & Tag
+        Remove p
+        On Error Resume Next
+        MkDir Environ$("TEMP") & "\tbdocs-package-tests"
+        MkDir Root()
+        MkDir p
+        Err.Clear
+        Fresh = p
+    End Function
+
+    ' Removes a folder with the files in it (none has a folder inside), and then the sandbox itself
+    ' when nothing else is in it. Raises no error.
+    Public Sub Remove(ByVal Path As String)
+        Dim names As New Collection, f As String, n As Variant
+        On Error Resume Next
+        f = Dir$(Path & "\*", vbHidden Or vbSystem Or vbReadOnly)
+        Do While Len(f) > 0
+            names.Add f
+            f = Dir$()
+        Loop
+        For Each n In names
+            SetAttr Path & "\" & n, vbNormal
+            Kill Path & "\" & n
+        Next
+        RmDir Path
+        RmDir Root()
+        RmDir Environ$("TEMP") & "\tbdocs-package-tests"
+        Err.Clear
+    End Sub
+
+    ' A text file of one line, in the folder. Returns its full path.
+    Public Function MakeText(ByVal Folder As String, ByVal Name As String) As String
+        Dim p As String, f As Integer
+        p = Folder & "\" & Name
+        f = FreeFile
+        Open p For Output As #f
+        Print #f, "hello"
+        Close #f
+        MakeText = p
+    End Function
+
+    ' A JPEG file, in the folder. Returns its full path.
+    Public Function MakeJpeg(ByVal Folder As String, ByVal Name As String) As String
+        Dim p As String, f As Integer, b() As Byte, i As Long
+        p = Folder & "\" & Name
+        ReDim b(0 To Len(JpegHex) \ 2 - 1)
+        For i = 0 To UBound(b)
+            b(i) = CByte("&H" & Mid$(JpegHex, i * 2 + 1, 2))
+        Next
+        f = FreeFile
+        Open p For Binary Access Write As #f
+        Put #f, , b
+        Close #f
+        MakeJpeg = p
+    End Function
+
+    ' The number of the error that FilePropertyExplorer.OpenFile raises for the path (0 for none).
+    Public Function OpenError(ByVal Path As String, Optional ByVal WriteSupport As Boolean) As Long
+        Dim fp As FileProperties
+        On Error Resume Next
+        Set fp = FilePropertyExplorer.OpenFile(Path, WriteSupport)
+        OpenError = Err.Number
+        Err.Clear
+    End Function
+
+    ' The number of the error that Item raises for the key (0 for none).
+    Public Function ItemError(ByVal Props As FileProperties, ByVal Key As Variant) As Long
+        Dim p As FileProperty
+        On Error Resume Next
+        Set p = Props.Item(Key)
+        ItemError = Err.Number
+        Err.Clear
+    End Function
+
+    ' The number of the error that assigning Value raises (0 for none).
+    Public Function ValueError(ByVal Prop As FileProperty, ByVal NewValue As Variant) As Long
+        On Error Resume Next
+        Prop.Value = NewValue
+        ValueError = Err.Number
+        Err.Clear
+    End Function
+
+    ' The Value of the named property of the file, opened without write support.
+    Public Function ValueOf(ByVal Path As String, ByVal Name As String) As Variant
+        Dim fp As FileProperties
+        Set fp = FilePropertyExplorer.OpenFile(Path)
+        ValueOf = fp.Item(Name).Value
+    End Function
+
+    ' Text for a failure message: the array or the scalar in a Variant.
+    Public Function Show(ByVal V As Variant) As String
+        Dim i As Long, s As String
+        If IsArray(V) Then
+            For i = LBound(V) To UBound(V)
+                If Len(s) > 0 Then s = s & ", "
+                s = s & V(i)
+            Next
+            Show = "{" & s & "}"
+        ElseIf IsEmpty(V) Then
+            Show = "Empty"
+        Else
+            Show = CStr(V)
+        End If
+    End Function
+
+End Module
diff --git a/test/package-tests/FileProps/Sources/WriteTests.twin b/test/package-tests/FileProps/Sources/WriteTests.twin
new file mode 100644
index 00000000..4cbe7163
--- /dev/null
+++ b/test/package-tests/FileProps/Sources/WriteTests.twin
@@ -0,0 +1,166 @@
+' FileProperty.Value assignment: what is stored, and what happens for a property that cannot be
+' written and for a collection opened without write support. The file is a JPEG, whose Windows
+' property handler can write properties; a text file has none.
+[TestFixture]
+Module WriteTests
+
+    [TestCase]
+    Public Sub Value_Let_Title_IsStored()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties
+        w = Sandbox.Fresh("Value_Let_Title_IsStored")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.IsTrue IsEmpty(fp.Item("System.Title").Value), "Value of System.Title of a new JPEG file is Empty"
+        Expect.AreEqual 0, Sandbox.ValueError(fp.Item("System.Title"), "Annual Report"), "Err.Number of assigning System.Title, with write support"
+        Expect.AreEqual "Annual Report", fp.Item("System.Title").Value, "Value of System.Title just after the assignment"
+        Set fp = Nothing
+        Expect.AreEqual "Annual Report", Sandbox.ValueOf(p, "System.Title"), "Value of System.Title after the file is opened again"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_Let_Rating_IsStored()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties
+        w = Sandbox.Fresh("Value_Let_Rating_IsStored")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.AreEqual 0, Sandbox.ValueError(fp.Item("System.Rating"), 50&), "Err.Number of assigning 50 to System.Rating, with write support"
+        Set fp = Nothing
+        Expect.AreEqual 50, CLng(Sandbox.ValueOf(p, "System.Rating")), "Value of System.Rating after the file is opened again"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_Let_Array_IsStoredAsMultiValue()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties, v As Variant
+        w = Sandbox.Fresh("Value_Let_Array_IsStoredAsMultiValue")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.AreEqual 0, Sandbox.ValueError(fp.Item("System.Keywords"), Array("alpha", "beta")), "Err.Number of assigning an array of two strings to System.Keywords, with write support"
+        Set fp = Nothing
+        v = Sandbox.ValueOf(p, "System.Keywords")
+        Expect.IsTrue IsArray(v), "Value of System.Keywords after the file is opened again is an array"
+        If IsArray(v) Then Expect.AreEqual "{alpha, beta}", Sandbox.Show(v), "Value of System.Keywords after the file is opened again"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_Let_WithoutWriteSupport_Raises()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties
+        w = Sandbox.Fresh("Value_Let_WithoutWriteSupport_Raises")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p)
+        Expect.IsTrue Sandbox.ValueError(fp.Item("System.Title"), "Annual Report") <> 0, "assigning System.Title raises an error when the file was opened without write support"
+        Set fp = Nothing
+        Expect.IsTrue IsEmpty(Sandbox.ValueOf(p, "System.Title")), "Value of System.Title after that assignment is still Empty"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_Let_NotWritableProperty_Raises()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties
+        w = Sandbox.Fresh("Value_Let_NotWritableProperty_Raises")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.IsTrue Sandbox.ValueError(fp.Item("System.ItemNameDisplay"), "renamed.jpg") <> 0, "assigning System.ItemNameDisplay raises an error"
+        Expect.IsTrue Sandbox.ValueError(fp.Item("System.Size"), 1&) <> 0, "assigning System.Size raises an error"
+        Set fp = Nothing
+        Expect.AreEqual 631, CLng(Sandbox.ValueOf(p, "System.Size")), "System.Size of the file after those assignments"
+        Expect.AreEqual "a.jpg", Sandbox.ValueOf(p, "System.ItemNameDisplay"), "System.ItemNameDisplay of the file after those assignments"
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        Expect.IsTrue Sandbox.ValueError(fp.Item("System.ItemNameDisplay"), "renamed.jpg") <> 0, "assigning System.ItemNameDisplay raises an error"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_Let_NotWritableProperty_RaisesPermissionDenied()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties, n As Long
+        w = Sandbox.Fresh("Value_Let_NotWritableProperty_RaisesPermissionDenied")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        n = Sandbox.ValueError(fp.Item("System.ItemNameDisplay"), "renamed.jpg")
+        Expect.IsTrue n = 70 Or n = &H80070005, "assigning System.ItemNameDisplay raises Permission denied (70, or E_ACCESSDENIED, 0x80070005), got error " & n
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_Let_NotWritableProperty_RaisesTheSameErrorEverywhere()
+        Expect.Begin
+        Dim w As String, p As String, fp As FileProperties, a As Long, b As Long, c As Long
+        w = Sandbox.Fresh("Value_Let_NotWritableProperty_RaisesTheSameErrorEverywhere")
+        On Error GoTo Oops
+        p = Sandbox.MakeJpeg(w, "a.jpg")
+        Set fp = FilePropertyExplorer.OpenFile(p, True)
+        a = Sandbox.ValueError(fp.Item("System.ItemNameDisplay"), "renamed.jpg")
+        b = Sandbox.ValueError(fp.Item("System.Size"), 1&)
+        Set fp = Nothing
+        Set fp = FilePropertyExplorer.OpenFile(p)
+        c = Sandbox.ValueError(fp.Item("System.Title"), "Annual Report")
+        Expect.AreEqual -2147352567, a, "Err.Number of assigning System.ItemNameDisplay, with write support"
+        Expect.AreEqual a, b, "Err.Number of assigning System.Size, with write support, as for System.ItemNameDisplay"
+        Expect.AreEqual a, c, "Err.Number of assigning System.Title without write support, as for System.ItemNameDisplay"
+        GoTo Finish
+Oops:
+        Expect.Fail "unexpected run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Set fp = Nothing
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/FileProps/expect.json b/test/package-tests/FileProps/expect.json
new file mode 100644
index 00000000..49a38142
--- /dev/null
+++ b/test/package-tests/FileProps/expect.json
@@ -0,0 +1,23 @@
+{
+  "version": "1.7.1.0",
+  "cases": {
+    "CollectionTests.Item_ByID_ComputedProperty_ReturnsThePropertyWithThatID": {
+      "fails": "4 of 4 checks failed: Err.Number of Item with the ID of System.ItemTypeText: expected 0, got 13; Err.Number of Item with the ID of System.ItemFolderNameDisplay: expected 0, got 13; Err.Number of Item with the ID of System.ItemPathDisplay: expected 0, got 13; Err.Number of Item with the ID of System.Kind: expected 0, got 13"
+    },
+    "CollectionTests.Item_ByID_UnknownID_RaisesElementNotFound": {
+      "fails": "2 of 2 checks failed: Err.Number of Item with an ID of a GUID that no property has: expected -2147211518, got 0; Err.Number of Item with an ID of a known GUID and an index that no property has: expected -2147211518, got 0"
+    },
+    "ExplorerTests.OpenFile_WhileWriteSupportCollectionIsOpen_ListsTheProperties": {
+      "fails": "1 of 1 checks failed: Count of a collection of a JPEG file opened while a collection with write support of the same file is open: expected True, got False"
+    },
+    "ExplorerTests.OpenFile_WriteSupportWhileWriteSupportCollectionIsOpen_ListsTheProperties": {
+      "fails": "1 of 2 checks failed: Count of a second collection of the same file opened with write support while the first is open: expected True, got False"
+    },
+    "ExplorerTests.OpenFile_WriteSupportWhileACollectionIsOpen_Returns": {
+      "hangs": true
+    },
+    "WriteTests.Value_Let_NotWritableProperty_RaisesPermissionDenied": {
+      "fails": "1 of 1 checks failed: assigning System.ItemNameDisplay raises Permission denied (70, or E_ACCESSDENIED, 0x80070005), got error -2147352567: expected True, got False"
+    }
+  }
+}
diff --git a/test/package-tests/Fmt/Sources/CurrencyTests.twin b/test/package-tests/Fmt/Sources/CurrencyTests.twin
new file mode 100644
index 00000000..e84a3056
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/CurrencyTests.twin
@@ -0,0 +1,69 @@
+' Fmt: the C identifier (CurrencySFI). The dollar sign is written after the number whatever the regional
+' settings; the thousands separator and the decimal point follow them.
+[TestFixture]
+Module CurrencyTests
+
+    [TestCase]
+    Public Sub Default_TwoDecimalPlacesAndATrailingDollar()
+        Expect.Begin
+        Expect.AreEqual "17" & Loc.Dec() & "63$", Try1("{0:C}", 17.63245), "StringFormat(""{0:C}"", 17.63245)"
+        Expect.AreEqual "17" & Loc.Dec() & "63$", Try1("{0:c}", 17.63245), "StringFormat(""{0:c}"", 17.63245)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Precision_SetsTheDecimalPlaces()
+        Expect.Begin
+        Expect.AreEqual "2" & Loc.Dec() & "500$", Try1("{0:C3}", 2.5), "StringFormat(""{0:C3}"", 2.5)"
+        Expect.AreEqual "17" & Loc.Dec() & "6$", Try1("{0:C1}", 17.63245), "StringFormat(""{0:C1}"", 17.63245)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PrecisionZero_IsTheDefault()
+        Expect.Begin
+        Expect.AreEqual "17" & Loc.Dec() & "63$", Try1("{0:C0}", 17.63245), "StringFormat(""{0:C0}"", 17.63245)"
+        Expect.AreEqual "17" & Loc.Dec() & "63$", Try1("{0:c2}", 17.63245), "StringFormat(""{0:c2}"", 17.63245)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ThousandsSeparators_FollowTheRegionalSettings()
+        Expect.Begin
+        Expect.AreEqual Format$(1234567.891, "#,##0.00") & "$", Try1("{0:C}", 1234567.891), "StringFormat(""{0:C}"", 1234567.891) against Format$ ""#,##0.00"" and a $"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DollarSign_IsAfterTheNumber()
+        Expect.Begin
+        Dim r As String = Try1("{0:C}", 5)
+        Expect.AreEqual "$", Right$(r, 1), "last character of StringFormat(""{0:C}"", 5), " & r
+        Expect.IsTrue Left$(r, 1) <> "$", "StringFormat(""{0:C}"", 5) does not start with a $, " & r
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Negative_KeepsTheSignInFront()
+        Expect.Begin
+        Expect.AreEqual Format$(-5, "#,##0.00") & "$", Try1("{0:C}", -5), "StringFormat(""{0:C}"", -5) against Format$ ""#,##0.00"" and a $"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_MatchesCAndOnlyC()
+        Expect.Begin
+        Expect.AreEqual "Cc", Loc.MatchedLetters(CurrencySFI), "letters CurrencySFI.IsIdentifierMatch is True for"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_GetFormattedValue_ReadsThePrecision()
+        Expect.Begin
+        Dim f As IStringFormatIdentifier = CurrencySFI
+        Expect.AreEqual "2" & Loc.Dec() & "500$", f.GetFormattedValue(2.5, Loc.Spec("C", "3")), "CurrencySFI.GetFormattedValue(2.5, C3)"
+        Expect.AreEqual "2" & Loc.Dec() & "50$", f.GetFormattedValue(2.5, Loc.Spec("C")), "CurrencySFI.GetFormattedValue(2.5, C)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/DateTests.twin b/test/package-tests/Fmt/Sources/DateTests.twin
new file mode 100644
index 00000000..c6740b5d
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/DateTests.twin
@@ -0,0 +1,146 @@
+' Fmt: the date identifiers (GenericDateTimeSFI, and DateTimeSFI, which has the same code but is not
+' registered). The date used is Sunday 11 October 2026, 14:05:09. The expected text is built from
+' Format$, because the layout of dates follows the regional settings.
+[TestFixture]
+Module DateTests
+
+    [TestCase]
+    Public Sub ShortDate_d()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "Short Date"), Try1("{0:d}", Loc.Dt()), "StringFormat(""{0:d}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LongDate_D()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "Long Date"), Try1("{0:D}", Loc.Dt()), "StringFormat(""{0:D}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LongDateShortTime_f()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "Long Date") & " " & Format$(Loc.Dt(), "h:mm AM/PM"), Try1("{0:f}", Loc.Dt()), "StringFormat(""{0:f}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LongDateLongTime_F()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "Long Date") & " " & Format$(Loc.Dt(), "Long Time"), Try1("{0:F}", Loc.Dt()), "StringFormat(""{0:F}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShortDateShortTime_g()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "Short Date") & " " & Format$(Loc.Dt(), "hh:mm AM/PM"), Try1("{0:g}", Loc.Dt()), "StringFormat(""{0:g}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShortDateLongTime_G()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "Short Date") & " " & Format$(Loc.Dt(), "Long Time"), Try1("{0:G}", Loc.Dt()), "StringFormat(""{0:G}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Sortable_s()
+        Expect.Begin
+        Dim t As String = Loc.TimeSep()
+        Expect.AreEqual "2026-10-11T14" & t & "05" & t & "09", Try1("{0:s}", Loc.Dt()), "StringFormat(""{0:s}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShortTime_t()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "hh:mm AM/PM"), Try1("{0:t}", Loc.Dt()), "StringFormat(""{0:t}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LongTime_T()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "Long Time"), Try1("{0:T}", Loc.Dt()), "StringFormat(""{0:T}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Custom_C_PassesTheTextToFormat()
+        Expect.Begin
+        Expect.AreEqual "2026-10-11", Try1("{0:Cyyyy-MM-dd}", Loc.Dt()), "StringFormat(""{0:Cyyyy-MM-dd}"", a date)"
+        Expect.AreEqual Format$(Loc.Dt(), "dddd"), Try1("{0:cdddd}", Loc.Dt()), "StringFormat(""{0:cdddd}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Custom_C_Empty_IsTheGeneralDate()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "General Date"), Try1("{0:C}", Loc.Dt()), "StringFormat(""{0:C}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Letters_AreCaseSensitiveExceptC()
+        Expect.Begin
+        Dim r As String = Try1("{0:S}", Loc.Dt())
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:S}"", a date)"
+        Expect.IsTrue Try1("{0:d}", Loc.Dt()) <> Try1("{0:D}", Loc.Dt()), "{0:d} and {0:D} give different results"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TextAfterTheLetter_IsIgnoredExceptForC()
+        Expect.Begin
+        Expect.AreEqual Try1("{0:d}", Loc.Dt()), Try1("{0:dxyz}", Loc.Dt()), "StringFormat(""{0:dxyz}"", a date) against {0:d}"
+        Expect.AreEqual Try1("{0:T}", Loc.Dt()), Try1("{0:T7}", Loc.Dt()), "StringFormat(""{0:T7}"", a date) against {0:T}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnknownLetter_RaisesFormatError()
+        Expect.Begin
+        Dim r As String = Try1("{0:q}", Loc.Dt())
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:q}"", a date)"
+        Expect.AreEqual "Invalid format string.", Loc.LastDescription, "Err.Description of StringFormat(""{0:q}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NumericIdentifier_ForADate_RaisesFormatError()
+        Expect.Begin
+        Dim r As String = Try1("{0:X}", Loc.Dt())
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:X}"", a date)"
+        r = Try1("{0:E}", Loc.Dt())
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:E}"", a date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Generic_Class_MatchesTheTenLetters()
+        Expect.Begin
+        Expect.AreEqual "CcDdFfGgsTt", Loc.MatchedLetters(GenericDateTimeSFI), "letters GenericDateTimeSFI.IsIdentifierMatch is True for"
+        Dim f As IStringFormatIdentifier = GenericDateTimeSFI
+        Expect.AreEqual "2026-10-11", f.GetFormattedValue(Loc.Dt(), Loc.Spec("C", "yyyy-MM-dd")), "GenericDateTimeSFI.GetFormattedValue(date, Cyyyy-MM-dd)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DateTimeSFI_GivesTheSameResultsAsGeneric()
+        Expect.Begin
+        Expect.AreEqual "CcDdFfGgsTt", Loc.MatchedLetters(DateTimeSFI), "letters DateTimeSFI.IsIdentifierMatch is True for"
+        Dim a As IStringFormatIdentifier = DateTimeSFI
+        Dim b As IStringFormatIdentifier = GenericDateTimeSFI
+        Dim letters As Variant = Array("d", "D", "f", "F", "g", "G", "s", "t", "T")
+        Dim i As Long
+        For i = LBound(letters) To UBound(letters)
+            Expect.AreEqual b.GetFormattedValue(Loc.Dt(), Loc.Spec(CStr(letters(i)))), a.GetFormattedValue(Loc.Dt(), Loc.Spec(CStr(letters(i)))), "DateTimeSFI against GenericDateTimeSFI for " & letters(i)
+        Next
+        Expect.AreEqual "2026-10-11", a.GetFormattedValue(Loc.Dt(), Loc.Spec("C", "yyyy-MM-dd")), "DateTimeSFI.GetFormattedValue(date, Cyyyy-MM-dd)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/DecimalTests.twin b/test/package-tests/Fmt/Sources/DecimalTests.twin
new file mode 100644
index 00000000..ee4b345f
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/DecimalTests.twin
@@ -0,0 +1,58 @@
+' Fmt: the D identifier (DecimalSFI): whole-number digits, padded with zeros to the precision.
+[TestFixture]
+Module DecimalTests
+
+    [TestCase]
+    Public Sub Default_IsTheWholeNumber()
+        Expect.Begin
+        Expect.AreEqual "42", Try1("{0:D}", 42), "StringFormat(""{0:D}"", 42)"
+        Expect.AreEqual "42", Try1("{0:d}", 42), "StringFormat(""{0:d}"", 42)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Precision_PadsWithZeros()
+        Expect.Begin
+        Expect.AreEqual "00042", Try1("{0:D5}", 42), "StringFormat(""{0:D5}"", 42)"
+        Expect.AreEqual "07:05", Try2("{0:D2}:{1:D2}", 7, 5), "StringFormat(""{0:D2}:{1:D2}"", 7, 5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FractionalValue_IsRounded()
+        Expect.Begin
+        Expect.AreEqual "4", Try1("{0:D}", 3.7), "StringFormat(""{0:D}"", 3.7)"
+        Expect.AreEqual "3", Try1("{0:D}", 3.2), "StringFormat(""{0:D}"", 3.2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Negative_KeepsTheSignInFrontOfThePadding()
+        Expect.Begin
+        Expect.AreEqual "-005", Try1("{0:D3}", -5), "StringFormat(""{0:D3}"", -5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LongerNumber_IsNotShortened()
+        Expect.Begin
+        Expect.AreEqual "1234", Try1("{0:D2}", 1234), "StringFormat(""{0:D2}"", 1234)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_MatchesDAndOnlyD()
+        Expect.Begin
+        Expect.AreEqual "Dd", Loc.MatchedLetters(DecimalSFI), "letters DecimalSFI.IsIdentifierMatch is True for"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_GetFormattedValue_ReadsThePrecision()
+        Expect.Begin
+        Dim f As IStringFormatIdentifier = DecimalSFI
+        Expect.AreEqual "00042", f.GetFormattedValue(42, Loc.Spec("D", "5")), "DecimalSFI.GetFormattedValue(42, D5)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/EscapeSequenceTests.twin b/test/package-tests/Fmt/Sources/EscapeSequenceTests.twin
new file mode 100644
index 00000000..5b51b12e
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/EscapeSequenceTests.twin
@@ -0,0 +1,180 @@
+' Fmt: the EscapeSequence class (a plain sequence or an ASCII one made with Create and applied with
+' Execute), its Friend members that a project that references the package can still call, the
+' AsciiEscapeBase enumeration, and FormerEscapeSequence.
+[TestFixture]
+Module EscapeSequenceTests
+
+    [TestCase]
+    Public Sub Create_Plain_HoldsTheArguments()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\z", "ZZ")
+        Expect.AreEqual "\z", esc.EscapeString, "EscapeString"
+        Expect.AreEqual "ZZ", esc.ReplacementString, "ReplacementString"
+        Expect.IsFalse esc.IsAsciiCharacter, "IsAsciiCharacter"
+        Expect.AreEqual 0, esc.AsciiBase, "AsciiBase is Octal by default"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Create_Ascii_HoldsTheArguments()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\\#(\d{2})", vbNullString, True, Hexadecimal)
+        Expect.IsTrue esc.IsAsciiCharacter, "IsAsciiCharacter"
+        Expect.AreEqual 1, esc.AsciiBase, "AsciiBase"
+        Expect.AreEqual "\\#(\d{2})", esc.EscapeString, "EscapeString"
+        Dim octal As EscapeSequence = EscapeSequence.Create("\\(\d{3})", vbNullString, True)
+        Expect.AreEqual 0, octal.AsciiBase, "AsciiBase of a sequence created without a base"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Create_ReturnsANewObjectEachTime()
+        Expect.Begin
+        Dim a As EscapeSequence = EscapeSequence.Create("\z", "ZZ")
+        Dim b As EscapeSequence = EscapeSequence.Create("\z", "ZZ")
+        Expect.IsFalse a Is b, "two calls of EscapeSequence.Create return the same object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Execute_Plain_ReplacesEveryOccurrence()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\z", "ZZ")
+        Dim text As String = "a\zb\z"
+        esc.Execute text
+        Expect.AreEqual "aZZbZZ", text, "Execute of a\zb\z"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Execute_Plain_TakesLetterCaseIntoAccount()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\z", "ZZ")
+        Dim text As String = "a\Zb"
+        esc.Execute text
+        Expect.AreEqual "a\Zb", text, "Execute of a\Zb with the sequence \z"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Execute_Plain_LeavesAStringWithoutTheTextAlone()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\z", "ZZ")
+        Dim text As String = "abc"
+        esc.Execute text
+        Expect.AreEqual "abc", text, "Execute of abc"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Execute_Ascii_Hexadecimal()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\\#(\d{2})", vbNullString, True, Hexadecimal)
+        Dim text As String = "a\#41b\#42"
+        esc.Execute text
+        Expect.AreEqual "aAbB", text, "Execute of a\#41b\#42"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Execute_Ascii_Octal()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\\(\d{3})", vbNullString, True)
+        Dim text As String = "x\101y"
+        esc.Execute text
+        Expect.AreEqual "xAy", text, "Execute of x\101y read as octal"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Execute_Ascii_PatternIgnoresLetterCase()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\\x(\w{2})", vbNullString, True, Hexadecimal)
+        Dim text As String = "\X41"
+        esc.Execute text
+        Expect.AreEqual "A", text, "Execute of \X41 with the pattern \\x(\w{2})"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Execute_Ascii_PatternWithoutABackslash_HasNoEffectOnAStringWithoutOne()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("#(\d{3})", vbNullString, True)
+        Dim text As String = "a#101b"
+        esc.Execute text
+        Expect.AreEqual "a#101b", text, "Execute of a#101b with the pattern #(\d{3})"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Execute_Ascii_InvalidDigits_RaisesTypeMismatch()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\\(\d{3})", vbNullString, True)
+        Dim text As String = "\189"
+        On Error Resume Next
+        esc.Execute text
+        Expect.AreEqual 13, Err.Number, "Err.Number of Execute on \189 read as octal"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Friend_Setters_CanBeCalledByAProject()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\z", "ZZ")
+        esc.EscapeString = "\y"
+        esc.ReplacementString = "YY"
+        Dim text As String = "a\yb"
+        esc.Execute text
+        Expect.AreEqual "aYYb", text, "Execute after EscapeString and ReplacementString were set"
+        esc.IsAsciiCharacter = True
+        esc.AsciiBase = Hexadecimal
+        esc.EscapeString = "\\x(\w{2})"
+        text = "\x41"
+        esc.Execute text
+        Expect.AreEqual "A", text, "Execute after IsAsciiCharacter and AsciiBase were set"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Self_ReturnsTheSameObject()
+        Expect.Begin
+        Dim esc As EscapeSequence = EscapeSequence.Create("\z", "ZZ")
+        Expect.IsTrue esc.Self Is esc, "esc.Self Is esc"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AsciiEscapeBase_Values()
+        Expect.Begin
+        Expect.AreEqual 0, AsciiEscapeBase.Octal, "AsciiEscapeBase.Octal"
+        Expect.AreEqual 1, AsciiEscapeBase.Hexadecimal, "AsciiEscapeBase.Hexadecimal"
+        Expect.AreEqual 1, Hexadecimal, "Hexadecimal without a qualifier"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Former_Create_ReturnsANewObjectWithTheArguments()
+        Expect.Begin
+        Dim factory As New FormerEscapeSequence
+        Dim esc As FormerEscapeSequence = factory.Create("\n", vbNewLine)
+        Expect.AreEqual "\n", esc.EscapeString, "EscapeString"
+        Expect.AreEqual 2, Len(esc.ReplacementString), "Len of ReplacementString"
+        Expect.IsFalse esc Is factory, "Create returns the object it is called on"
+        Expect.AreEqual "", factory.EscapeString, "EscapeString of the object Create is called on"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Former_Friend_Setters_CanBeCalledByAProject()
+        Expect.Begin
+        Dim factory As New FormerEscapeSequence
+        Dim esc As FormerEscapeSequence = factory.Create("\z", "ZZ")
+        esc.EscapeString = "\y"
+        esc.ReplacementString = "YY"
+        Expect.AreEqual "\y", esc.EscapeString, "EscapeString after it was set"
+        Expect.AreEqual "YY", esc.ReplacementString, "ReplacementString after it was set"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/EscapeTests.twin b/test/package-tests/Fmt/Sources/EscapeTests.twin
new file mode 100644
index 00000000..afc0e700
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/EscapeTests.twin
@@ -0,0 +1,142 @@
+' Fmt: the escape sequences StringFormat expands in the finished string, the leading @ that turns
+' them off, and the order of work (items first, escape sequences after, values included).
+[TestFixture]
+Module EscapeTests
+
+    [TestCase]
+    Public Sub Newline_IsVbNewLine()
+        Expect.Begin
+        Expect.AreEqual "a" & vbNewLine & "b", Try0("a\nb"), "StringFormat(""a\nb"")"
+        Expect.AreEqual 4, Len(Try0("a\nb")), "Len of StringFormat(""a\nb"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Quote_IsADoubleQuote()
+        Expect.Begin
+        Expect.AreEqual """ok""", Try0("\qok\q"), "StringFormat(""\qok\q"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Tab_IsVbTab()
+        Expect.Begin
+        Expect.AreEqual "a" & vbTab & "b", Try0("a\tb"), "StringFormat(""a\tb"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alert_And_Backspace_AreCodes7And8()
+        Expect.Begin
+        Expect.AreEqual Chr$(7), Try0("\a"), "StringFormat(""\a"")"
+        Expect.AreEqual Chr$(8), Try0("\b"), "StringFormat(""\b"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub VerticalTab_FormFeed_CarriageReturn_AreCodes13_14_15()
+        Expect.Begin
+        Expect.AreEqual 13, Asc(Try0("\v")), "Asc of StringFormat(""\v"")"
+        Expect.AreEqual 14, Asc(Try0("\f")), "Asc of StringFormat(""\f"")"
+        Expect.AreEqual 15, Asc(Try0("\r")), "Asc of StringFormat(""\r"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HexEscape_GivesTheCharactersOfC()
+        Expect.Begin
+        Expect.AreEqual 11, Asc(Try0("\x0B")), "Asc of StringFormat(""\x0B"")"
+        Expect.AreEqual 12, Asc(Try0("\x0C")), "Asc of StringFormat(""\x0C"")"
+        Expect.AreEqual 13, Asc(Try0("\x0D")), "Asc of StringFormat(""\x0D"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HexEscape_TwoDigits()
+        Expect.Begin
+        Expect.AreEqual "A", Try0("\x41"), "StringFormat(""\x41"")"
+        Expect.AreEqual "J", Try0("\x4a"), "StringFormat(""\x4a"")"
+        Expect.AreEqual "AB", Try0("\x41\x42"), "StringFormat(""\x41\x42"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OctalEscape_ThreeDigits()
+        Expect.Begin
+        Expect.AreEqual "A", Try0("\101"), "StringFormat(""\101"")"
+        Expect.AreEqual "AA", Try0("\x41\101"), "StringFormat(""\x41\101"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HexEscape_InvalidDigits_RaisesTypeMismatch()
+        Expect.Begin
+        Dim r As String = Try0("\xzz")
+        Expect.AreEqual 13, Loc.LastNumber, "Err.Number of StringFormat(""\xzz"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OctalEscape_InvalidDigits_RaisesTypeMismatch()
+        Expect.Begin
+        Dim r As String = Try0("\189")
+        Expect.AreEqual 13, Loc.LastNumber, "Err.Number of StringFormat(""\189"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DoubledBackslash_IsOneBackslash()
+        Expect.Begin
+        Expect.AreEqual "a\nb", Try0("a\\nb"), "StringFormat(""a\\nb"")"
+        Expect.AreEqual "C:\temp\file.txt", Try1("C:\\temp\\{0}", "file.txt"), "StringFormat(""C:\\temp\\{0}"", ""file.txt"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnknownEscape_StaysAsWritten()
+        Expect.Begin
+        Expect.AreEqual "a\zb", Try0("a\zb"), "StringFormat(""a\zb"")"
+        Expect.AreEqual "\d", Try0("\d"), "StringFormat(""\d"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Literal_AtSign_TurnsEscapesOff()
+        Expect.Begin
+        Expect.AreEqual "a\nb", Try0("@a\nb"), "StringFormat(""@a\nb"")"
+        Expect.AreEqual "C:\temp\file.txt", Try1("@C:\temp\{0}", "file.txt"), "StringFormat(""@C:\temp\{0}"", ""file.txt"")"
+        Expect.AreEqual "a\\b", Try0("@a\\b"), "StringFormat(""@a\\b"") keeps the doubled backslash"
+        Expect.AreEqual "\x41\101", Try0("@\x41\101"), "StringFormat(""@\x41\101"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Values_EscapesInAValue_AreExpanded()
+        Expect.Begin
+        Expect.AreEqual "a""b", Try1("{0}", "a\qb"), "StringFormat(""{0}"", ""a\qb"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Literal_EscapesInAValue_AreNotExpanded()
+        Expect.Begin
+        Expect.AreEqual "a\qb", Try1("@{0}", "a\qb"), "StringFormat(""@{0}"", ""a\qb"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Values_ALaterItemInAValue_IsReplacedToo()
+        Expect.Begin
+        Expect.AreEqual "x x", Try2("{0} {1}", "{1}", "x"), "StringFormat(""{0} {1}"", ""{1}"", ""x"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Escape_Chr27_BecomesABackslash()
+        Expect.Begin
+        Expect.AreEqual "a\b", Try1("a{0}b", Chr$(27)), "StringFormat(""a{0}b"", Chr$(27))"
+        Expect.AreEqual "a" & Chr$(27) & "b", Try1("@a{0}b", Chr$(27)), "StringFormat(""@a{0}b"", Chr$(27)) with a literal format string"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/ExponentialTests.twin b/test/package-tests/Fmt/Sources/ExponentialTests.twin
new file mode 100644
index 00000000..395c0386
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/ExponentialTests.twin
@@ -0,0 +1,61 @@
+' Fmt: the E identifier (ExponentialSFI) and its ParseExponent. The letter in the result is the identifier's,
+' the exponent has no plus sign and no leading zeros, the decimal point follows the regional settings.
+[TestFixture]
+Module ExponentialTests
+
+    [TestCase]
+    Public Sub Default_SixDecimalPlaces()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "234568E4", Try1("{0:E}", 12345.678), "StringFormat(""{0:E}"", 12345.678)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Precision_SetsTheDecimalPlaces()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "23E4", Try1("{0:E2}", 12345.678), "StringFormat(""{0:E2}"", 12345.678)"
+        Expect.AreEqual "1" & Loc.Dec() & "5E0", Try1("{0:E1}", 1.5), "StringFormat(""{0:E1}"", 1.5)"
+        Expect.AreEqual "1" & Loc.Dec() & "50E0", Try1("{0:E3}", 1.5), "StringFormat(""{0:E3}"", 1.5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LowerCaseIdentifier_GivesALowerCaseE()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "234568e4", Try1("{0:e}", 12345.678), "StringFormat(""{0:e}"", 12345.678)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NegativeExponent_HasNoLeadingZeros()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "23450E-4", Try1("{0:E}", 0.00012345), "StringFormat(""{0:E}"", 0.00012345)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseExponent_ReadsTheTextAfterTheE()
+        Expect.Begin
+        Expect.AreEqual -3, ExponentialSFI.ParseExponent("1.5E-3"), "ExponentialSFI.ParseExponent(""1.5E-3"")"
+        Expect.AreEqual 4, ExponentialSFI.ParseExponent("1.5E4"), "ExponentialSFI.ParseExponent(""1.5E4"")"
+        Expect.AreEqual 12, ExponentialSFI.ParseExponent("1.5e12"), "ExponentialSFI.ParseExponent(""1.5e12"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_MatchesEAndOnlyE()
+        Expect.Begin
+        Expect.AreEqual "Ee", Loc.MatchedLetters(ExponentialSFI), "letters ExponentialSFI.IsIdentifierMatch is True for"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_GetFormattedValue_ReadsThePrecisionAndTheIdentifier()
+        Expect.Begin
+        Dim f As IStringFormatIdentifier = ExponentialSFI
+        Expect.AreEqual "1" & Loc.Dec() & "23E4", f.GetFormattedValue(12345.678, Loc.Spec("E", "2")), "ExponentialSFI.GetFormattedValue(12345.678, E2)"
+        Expect.AreEqual "1" & Loc.Dec() & "23e4", f.GetFormattedValue(12345.678, Loc.Spec("e", "2")), "ExponentialSFI.GetFormattedValue(12345.678, e2)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/FixedPointTests.twin b/test/package-tests/Fmt/Sources/FixedPointTests.twin
new file mode 100644
index 00000000..0705b93b
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/FixedPointTests.twin
@@ -0,0 +1,51 @@
+' Fmt: the F identifier (FixedPointSFI): a fixed count of decimal places, no thousands separator.
+[TestFixture]
+Module FixedPointTests
+
+    [TestCase]
+    Public Sub Default_TwoDecimalPlaces()
+        Expect.Begin
+        Expect.AreEqual "3" & Loc.Dec() & "14", Try1("{0:F}", 3.14159), "StringFormat(""{0:F}"", 3.14159)"
+        Expect.AreEqual "3" & Loc.Dec() & "14", Try1("{0:f}", 3.14159), "StringFormat(""{0:f}"", 3.14159)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Precision_SetsTheDecimalPlaces()
+        Expect.Begin
+        Expect.AreEqual "3" & Loc.Dec() & "142", Try1("{0:F3}", 3.14159), "StringFormat(""{0:F3}"", 3.14159)"
+        Expect.AreEqual "-3" & Loc.Dec() & "1", Try1("{0:f1}", -3.14159), "StringFormat(""{0:f1}"", -3.14159)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PrecisionZero_IsTwoDecimalPlaces()
+        Expect.Begin
+        Expect.AreEqual "2" & Loc.Dec() & "50", Try1("{0:F0}", 2.5), "StringFormat(""{0:F0}"", 2.5)"
+        Expect.AreEqual "12345" & Loc.Dec() & "68", Try1("{0:F0}", 12345.678), "StringFormat(""{0:F0}"", 12345.678)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NoThousandsSeparator()
+        Expect.Begin
+        Expect.AreEqual "12345" & Loc.Dec() & "68", Try1("{0:F2}", 12345.678), "StringFormat(""{0:F2}"", 12345.678)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_MatchesFAndOnlyF()
+        Expect.Begin
+        Expect.AreEqual "Ff", Loc.MatchedLetters(FixedPointSFI), "letters FixedPointSFI.IsIdentifierMatch is True for"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_GetFormattedValue_ReadsThePrecision()
+        Expect.Begin
+        Dim f As IStringFormatIdentifier = FixedPointSFI
+        Expect.AreEqual "3" & Loc.Dec() & "142", f.GetFormattedValue(3.14159, Loc.Spec("F", "3")), "FixedPointSFI.GetFormattedValue(3.14159, F3)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/FormerStringFormatTests.twin b/test/package-tests/Fmt/Sources/FormerStringFormatTests.twin
new file mode 100644
index 00000000..9ffefb57
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/FormerStringFormatTests.twin
@@ -0,0 +1,97 @@
+' Fmt: FormerStringFormat, the earlier implementation, and how it differs from StringFormat.
+[TestFixture]
+Module FormerStringFormatTests
+
+    [TestCase]
+    Public Sub CommonNotation_GivesTheSameAsStringFormat()
+        Expect.Begin
+        Expect.AreEqual "x 2" & Loc.Dec() & "50", Loc.TryFormer2("{0} {1:F2}", "x", 2.5), "FormerStringFormat(""{0} {1:F2}"", ""x"", 2.5)"
+        Expect.AreEqual "12" & Loc.Dec() & "3%", Loc.TryFormer1("{0:P1}", 0.12345), "FormerStringFormat(""{0:P1}"", 0.12345)"
+        Expect.AreEqual "[ab    ]", Loc.TryFormer1("[{0,-6}]", "ab"), "FormerStringFormat(""[{0,-6}]"", ""ab"")"
+        Expect.AreEqual "00042", Loc.TryFormer1("{0:D5}", 42), "FormerStringFormat(""{0:D5}"", 42)"
+        Expect.AreEqual "a" & vbNewLine & "b", Loc.TryFormer1("a\nb{0}", ""), "FormerStringFormat(""a\nb{0}"", """")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub N_IsUnderstood()
+        Expect.Begin
+        Expect.AreEqual Format$(1234567.891, "#,##0"), Loc.TryFormer1("{0:N}", 1234567.891), "FormerStringFormat(""{0:N}"", 1234567.891)"
+        Expect.AreEqual Format$(1234567.891, "#,##0.00"), Loc.TryFormer1("{0:N2}", 1234567.891), "FormerStringFormat(""{0:N2}"", 1234567.891)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomNumberFormat_IsPassedToFormat()
+        Expect.Begin
+        Expect.AreEqual "3" & Loc.Dec() & "14", Loc.TryFormer1("{0:0.00}", 3.14159), "FormerStringFormat(""{0:0.00}"", 3.14159)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub G_WithoutPrecision_TakesTheDigitsAfterThePoint()
+        Expect.Begin
+        ' The package reads the digits after the point from the value converted to text, which has the
+        ' decimal separator of the regional settings, and looks for "." in it.
+        Expect.AreEqual "123" & Loc.Dec() & "46", Loc.TryFormer1("{0:G}", 123.456), "FormerStringFormat(""{0:G}"", 123.456)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub G_WithoutPrecision_StringFormatGivesExponential()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "23456E2", Try1("{0:G}", 123.456), "StringFormat(""{0:G}"", 123.456)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub X_PrefixIsUpperCaseForBothCases()
+        Expect.Begin
+        Expect.AreEqual "&H00ff", Loc.TryFormer1("{0:x4}", 255), "FormerStringFormat(""{0:x4}"", 255)"
+        Expect.AreEqual "&H00FF", Loc.TryFormer1("{0:X4}", 255), "FormerStringFormat(""{0:X4}"", 255)"
+        Expect.AreEqual "&h00ff", Try1("{0:x4}", 255), "StringFormat(""{0:x4}"", 255)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HexEscape_IsNotExpanded()
+        Expect.Begin
+        Expect.AreEqual "\x41A", Loc.TryFormer1("\x41\101{0}", ""), "FormerStringFormat(""\x41\101{0}"", """") has \x41 left and \101 expanded"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NonNumericValue_WithNumericIdentifier_RaisesInvalidNumberArgument()
+        Expect.Begin
+        Dim r As String = Loc.TryFormer1("{0:C}", "abc")
+        Expect.AreEqual vbObjectError Or 9003, Loc.LastNumber, "Err.Number of FormerStringFormat(""{0:C}"", ""abc"")"
+        Expect.AreEqual "Invalid number argument.", Loc.LastDescription, "Err.Description of FormerStringFormat(""{0:C}"", ""abc"")"
+        Expect.AreEqual "FormerStringFormat", Loc.LastSource, "Err.Source of FormerStringFormat(""{0:C}"", ""abc"")"
+        r = Try1("{0:C}", "abc")
+        Expect.AreEqual "Invalid format string.", Loc.LastDescription, "Err.Description of StringFormat(""{0:C}"", ""abc"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub E_PrecisionZero_RaisesInvalidFormatString()
+        Expect.Begin
+        Dim r As String = Loc.TryFormer1("{0:E0}", 12345.678)
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of FormerStringFormat(""{0:E0}"", 12345.678)"
+        Expect.AreEqual "Invalid format string.", Loc.LastDescription, "Err.Description of FormerStringFormat(""{0:E0}"", 12345.678)"
+        Expect.AreEqual Try1("{0:E}", 12345.678), Try1("{0:E0}", 12345.678), "StringFormat(""{0:E0}"", 12345.678) against {0:E}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WrongCount_HasTheSameNumberAndTextWithItsOwnSource()
+        Expect.Begin
+        Dim r As String = Loc.TryFormer1("{0} {1}", "only one")
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of FormerStringFormat with a missing value"
+        Expect.AreEqual "FormerStringFormat", Loc.LastSource, "Err.Source of FormerStringFormat with a missing value"
+        Dim former As String = Loc.LastDescription
+        r = Try1("{0} {1}", "only one")
+        Expect.AreEqual Loc.LastDescription, former, "Err.Description of FormerStringFormat against StringFormat for a missing value"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/GeneralTests.twin b/test/package-tests/Fmt/Sources/GeneralTests.twin
new file mode 100644
index 00000000..8f2c263a
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/GeneralTests.twin
@@ -0,0 +1,97 @@
+' Fmt: the G identifier (GeneralNumericSFI): an Integer or Long as D, a Double in fixed-point or
+' exponential notation. The package gives an empty string for any other numeric type.
+[TestFixture]
+Module GeneralTests
+
+    [TestCase]
+    Public Sub Integer_IsFormattedAsD()
+        Expect.Begin
+        Expect.AreEqual "42", Try1("{0:G}", 42), "StringFormat(""{0:G}"", 42)"
+        Expect.AreEqual "00042", Try1("{0:G5}", 42), "StringFormat(""{0:G5}"", 42)"
+        Expect.AreEqual "42", Try1("{0:g}", 42&), "StringFormat(""{0:g}"", 42&)"
+        Expect.AreEqual "00042", Try1("{0:G5}", 42&), "StringFormat(""{0:G5}"", 42&)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Double_WithoutPrecision_IsExponential()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "234568E4", Try1("{0:G}", 12345.678), "StringFormat(""{0:G}"", 12345.678)"
+        Expect.AreEqual "1" & Loc.Dec() & "23456E2", Try1("{0:G}", 123.456), "StringFormat(""{0:G}"", 123.456)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Double_ExponentAtOrAbovePrecision_IsExponential()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "235E4", Try1("{0:G3}", 12345.678), "StringFormat(""{0:G3}"", 12345.678)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Double_ExponentBelowPrecision_IsFixedPoint()
+        Expect.Begin
+        Expect.AreEqual "12345" & Loc.Dec() & "678000", Try1("{0:G6}", 12345.678), "StringFormat(""{0:G6}"", 12345.678)"
+        Expect.AreEqual "123" & Loc.Dec() & "456", Try1("{0:G3}", 123.456), "StringFormat(""{0:G3}"", 123.456)"
+        Expect.AreEqual "0" & Loc.Dec() & "500", Try1("{0:G3}", 0.5), "StringFormat(""{0:G3}"", 0.5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LowerCaseIdentifier_GivesALowerCaseE()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "234568e4", Try1("{0:g}", 12345.678), "StringFormat(""{0:g}"", 12345.678)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Single_GivesTheValue()
+        Expect.Begin
+        Expect.AreEqual Try1("{0:G}", 1.5#), Try1("{0:G}", 1.5!), "StringFormat(""{0:G}"", 1.5!) against the same value as a Double"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Currency_GivesTheValue()
+        Expect.Begin
+        Expect.AreEqual Try1("{0:G}", 1.5#), Try1("{0:G}", 1.5@), "StringFormat(""{0:G}"", 1.5@) against the same value as a Double"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Byte_GivesTheValue()
+        Expect.Begin
+        Expect.AreEqual "7", Try1("{0:G}", CByte(7)), "StringFormat(""{0:G}"", CByte(7))"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decimal_GivesTheValue()
+        Expect.Begin
+        Expect.AreEqual Try1("{0:G}", 1.5#), Try1("{0:G}", CDec(1.5)), "StringFormat(""{0:G}"", CDec(1.5)) against the same value as a Double"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NumericString_GivesTheValue()
+        Expect.Begin
+        Expect.AreEqual "12", Try1("{0:G}", "12"), "StringFormat(""{0:G}"", ""12"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_MatchesGAndOnlyG()
+        Expect.Begin
+        Expect.AreEqual "Gg", Loc.MatchedLetters(GeneralNumericSFI), "letters GeneralNumericSFI.IsIdentifierMatch is True for"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_GetFormattedValue_IsPublic()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "235E4", GeneralNumericSFI.GetFormattedValue(12345.678, Loc.Spec("G", "3")), "GeneralNumericSFI.GetFormattedValue(12345.678, G3)"
+        Expect.AreEqual "00042", GeneralNumericSFI.GetFormattedValue(42, Loc.Spec("G", "5")), "GeneralNumericSFI.GetFormattedValue(42, G5)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/HexTests.twin b/test/package-tests/Fmt/Sources/HexTests.twin
new file mode 100644
index 00000000..66ae8d7f
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/HexTests.twin
@@ -0,0 +1,82 @@
+' Fmt: the X identifier (HexSFI): the digits of Hex$ with an &H prefix, padded or cut to the precision.
+' The prefix is written as &H and &h whatever the regional settings.
+[TestFixture]
+Module HexTests
+
+    [TestCase]
+    Public Sub Default_IsThePrefixAndTheDigits()
+        Expect.Begin
+        Expect.AreEqual "&HFF", Try1("{0:X}", 255), "StringFormat(""{0:X}"", 255)"
+        Expect.AreEqual "&H4D3", Try1("{0:X}", 1235), "StringFormat(""{0:X}"", 1235)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LowerCaseIdentifier_GivesALowerCaseResult()
+        Expect.Begin
+        Expect.AreEqual "&hff", Try1("{0:x}", 255), "StringFormat(""{0:x}"", 255)"
+        Expect.AreEqual "&h00ff", Try1("{0:x4}", 255), "StringFormat(""{0:x4}"", 255)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Precision_PadsWithZeros()
+        Expect.Begin
+        Expect.AreEqual "&H000000FF", Try1("{0:X8}", 255), "StringFormat(""{0:X8}"", 255)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Precision_CutsFromTheLeft()
+        Expect.Begin
+        Expect.AreEqual "&HFF", Try1("{0:X2}", 4095), "StringFormat(""{0:X2}"", 4095)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Negative_IntegerIs16Bits_LongIs32Bits()
+        Expect.Begin
+        Expect.AreEqual "&HFFFF", Try1("{0:X}", -1), "StringFormat(""{0:X}"", -1)"
+        Expect.AreEqual "&HFFFFFFFF", Try1("{0:X}", -1&), "StringFormat(""{0:X}"", -1&)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FractionalValue_IsRounded()
+        Expect.Begin
+        Expect.AreEqual "&H100", Try1("{0:X}", 255.6), "StringFormat(""{0:X}"", 255.6)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Class_MatchesXAndOnlyX()
+        Expect.Begin
+        Expect.AreEqual "Xx", Loc.MatchedLetters(HexSFI), "letters HexSFI.IsIdentifierMatch is True for"
+        Dim f As IStringFormatIdentifier = HexSFI
+        Expect.AreEqual "&hff", f.GetFormattedValue(255, Loc.Spec("x")), "HexSFI.GetFormattedValue(255, x)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NumericPadding_NeverMatches()
+        Expect.Begin
+        Expect.AreEqual "", Loc.MatchedLetters(NumericPaddingSFI), "letters NumericPaddingSFI.IsIdentifierMatch is True for"
+        Dim f As IStringFormatIdentifier = NumericPaddingSFI
+        Expect.IsFalse f.IsIdentifierMatch(Loc.Spec("N")), "NumericPaddingSFI.IsIdentifierMatch of N"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NumericPadding_GetFormattedValue_RaisesError5()
+        Expect.Begin
+        Dim f As IStringFormatIdentifier = NumericPaddingSFI
+        Dim r As String
+        On Error Resume Next
+        r = f.GetFormattedValue(1, Loc.Spec("N"))
+        Expect.AreEqual 5, Err.Number, "Err.Number of NumericPaddingSFI.GetFormattedValue"
+        Expect.AreEqual "Invalid procedure call or argument", Err.Description, "Err.Description of NumericPaddingSFI.GetFormattedValue"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/IdentifierInterfaceTests.twin b/test/package-tests/Fmt/Sources/IdentifierInterfaceTests.twin
new file mode 100644
index 00000000..9d62b1de
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/IdentifierInterfaceTests.twin
@@ -0,0 +1,65 @@
+' Fmt: IStringFormatIdentifier. A project can implement the interface and call its class through it;
+' StringFormat never calls a class it was not built with.
+Class UpperSFI
+    Implements IStringFormatIdentifier
+
+    Private Function IStringFormatIdentifier_GetFormattedValue(ByVal value As Variant, ByVal specifier As StringFormatSpecifier) As String
+        IStringFormatIdentifier_GetFormattedValue = UCase$(CStr(value))
+    End Function
+
+    Private Function IStringFormatIdentifier_IsIdentifierMatch(ByVal specifier As StringFormatSpecifier) As Boolean
+        IStringFormatIdentifier_IsIdentifierMatch = (specifier.identifier = "U")
+    End Function
+End Class
+
+[TestFixture]
+Module IdentifierInterfaceTests
+
+    [TestCase]
+    Public Sub OwnClass_CanBeCalledThroughTheInterface()
+        Expect.Begin
+        Dim f As IStringFormatIdentifier = New UpperSFI
+        Expect.IsTrue f.IsIdentifierMatch(Loc.Spec("U")), "UpperSFI.IsIdentifierMatch of U"
+        Expect.AreEqual "HELLO", f.GetFormattedValue("hello", Loc.Spec("U")), "UpperSFI.GetFormattedValue(""hello"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OwnClass_IsNotKnownToStringFormat()
+        Expect.Begin
+        Dim r As String = Try1("{0:U}", "hello")
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:U}"", ""hello"")"
+        Expect.AreEqual "Invalid format string.", Loc.LastDescription, "Err.Description of StringFormat(""{0:U}"", ""hello"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EveryClass_ImplementsTheInterface()
+        Expect.Begin
+        Dim f As IStringFormatIdentifier
+        Set f = CurrencySFI
+        Expect.IsFalse f Is Nothing, "CurrencySFI as IStringFormatIdentifier"
+        Set f = DateTimeSFI
+        Expect.IsFalse f Is Nothing, "DateTimeSFI as IStringFormatIdentifier"
+        Set f = DecimalSFI
+        Expect.IsFalse f Is Nothing, "DecimalSFI as IStringFormatIdentifier"
+        Set f = ExponentialSFI
+        Expect.IsFalse f Is Nothing, "ExponentialSFI as IStringFormatIdentifier"
+        Set f = FixedPointSFI
+        Expect.IsFalse f Is Nothing, "FixedPointSFI as IStringFormatIdentifier"
+        Set f = GeneralNumericSFI
+        Expect.IsFalse f Is Nothing, "GeneralNumericSFI as IStringFormatIdentifier"
+        Set f = GenericDateTimeSFI
+        Expect.IsFalse f Is Nothing, "GenericDateTimeSFI as IStringFormatIdentifier"
+        Set f = HexSFI
+        Expect.IsFalse f Is Nothing, "HexSFI as IStringFormatIdentifier"
+        Set f = NumericPaddingSFI
+        Expect.IsFalse f Is Nothing, "NumericPaddingSFI as IStringFormatIdentifier"
+        Set f = PercentSFI
+        Expect.IsFalse f Is Nothing, "PercentSFI as IStringFormatIdentifier"
+        Set f = RoundTripSFI
+        Expect.IsFalse f Is Nothing, "RoundTripSFI as IStringFormatIdentifier"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/ItemTests.twin b/test/package-tests/Fmt/Sources/ItemTests.twin
new file mode 100644
index 00000000..72293707
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/ItemTests.twin
@@ -0,0 +1,272 @@
+' Fmt: StringFormat and its format items: the index, the alignment, which values must be used, the
+' four rules that decide what is an item, the errors, and the departures from .NET's String.Format.
+[TestFixture]
+Module ItemTests
+
+    [TestCase]
+    Public Sub Index_SelectsValueByPosition()
+        Expect.Begin
+        Expect.AreEqual "b a b", Try2("{1} {0} {1}", "a", "b"), "StringFormat(""{1} {0} {1}"", ""a"", ""b"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Index_RepeatedIndexUsesTheValueEachTime()
+        Expect.Begin
+        Expect.AreEqual "77", Try1("{0}{0}", 7), "StringFormat(""{0}{0}"", 7)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Index_Word_RaisesTypeMismatch()
+        Expect.Begin
+        Dim r As String = Try1("{name}", 1)
+        Expect.AreEqual 13, Loc.LastNumber, "Err.Number of StringFormat(""{name}"", 1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alignment_Positive_RightJustifies()
+        Expect.Begin
+        Expect.AreEqual "[      ab]", Try1("[{0,8}]", "ab"), "StringFormat(""[{0,8}]"", ""ab"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alignment_Negative_LeftJustifies()
+        Expect.Begin
+        Expect.AreEqual "[ab      ]", Try1("[{0,-8}]", "ab"), "StringFormat(""[{0,-8}]"", ""ab"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alignment_WiderValue_IsNotShortened()
+        Expect.Begin
+        Expect.AreEqual "[abcdef]", Try1("[{0,3}]", "abcdef"), "StringFormat(""[{0,3}]"", ""abcdef"")"
+        Expect.AreEqual "[abcdef]", Try1("[{0,-3}]", "abcdef"), "StringFormat(""[{0,-3}]"", ""abcdef"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alignment_IsAppliedAfterTheIdentifier()
+        Expect.Begin
+        Expect.AreEqual "[    3" & Loc.Dec() & "14]", Try1("[{0,8:F2}]", 3.14159), "StringFormat(""[{0,8:F2}]"", 3.14159)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NoIdentifier_ConvertsTheValueToString()
+        Expect.Begin
+        Expect.AreEqual CStr(3.142), Try1("{0}", 3.142), "StringFormat(""{0}"", 3.142)"
+        Expect.AreEqual "True", Try1("{0}", True), "StringFormat(""{0}"", True)"
+        Expect.AreEqual "abc", Try1("{0}", "abc"), "StringFormat(""{0}"", ""abc"")"
+        Expect.AreEqual CStr(Loc.Dt()), Try1("{0}", Loc.Dt()), "StringFormat(""{0}"", a Date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_WithSpaces_StaysText()
+        Expect.Begin
+        Expect.AreEqual "[{0, 8}]", Try1("[{0, 8}]", 5), "StringFormat(""[{0, 8}]"", 5)"
+        Expect.AreEqual "[{0 ,8}]", Try1("[{0 ,8}]", 5), "StringFormat(""[{0 ,8}]"", 5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_WithoutClosingBrace_StaysText()
+        Expect.Begin
+        Expect.AreEqual "{0", Try1("{0", 5), "StringFormat(""{0"", 5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_LeadingZeroIndex_IsNotReplaced()
+        Expect.Begin
+        Expect.AreEqual "[{00}]", Try1("[{00}]", 5), "StringFormat(""[{00}]"", 5)"
+        Expect.AreEqual 0, Loc.LastNumber, "Err.Number of StringFormat(""[{00}]"", 5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_LeadingZeroAlignment_IsNotReplaced()
+        Expect.Begin
+        Expect.AreEqual "[{0,08}]", Try1("[{0,08}]", 5), "StringFormat(""[{0,08}]"", 5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_ZeroAlignment_IsNotReplaced()
+        Expect.Begin
+        Expect.AreEqual "[{0,0}]", Try1("[{0,0}]", 5), "StringFormat(""[{0,0}]"", 5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Precision_Zero_IsTheSameAsNone()
+        Expect.Begin
+        Dim letters As Variant = Array("C", "D", "E", "F", "G", "P", "X")
+        Dim i As Long
+        For i = LBound(letters) To UBound(letters)
+            Expect.AreEqual Try1("{0:" & letters(i) & "}", 1234.5678), Try1("{0:" & letters(i) & "0}", 1234.5678), _
+                "StringFormat of 1234.5678 with {0:" & letters(i) & "0} against {0:" & letters(i) & "}"
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DoubledBrace_IsNotAnEscape()
+        Expect.Begin
+        Expect.AreEqual "{5}", Try1("{{0}}", 5), "StringFormat(""{{0}}"", 5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Values_UnusedValue_RaisesFormatError()
+        Expect.Begin
+        Dim r As String = Try2("{0}", 1, 2)
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0}"", 1, 2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Values_MissingValue_RaisesFormatError()
+        Expect.Begin
+        Dim r As String = Try1("{0} {1}", 1)
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0} {1}"", 1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Values_IndexGap_RaisesFormatError()
+        Expect.Begin
+        Dim r As String = Try2("{0} {2}", 1, 2)
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0} {2}"", 1, 2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Values_NoValuesButAnItem_RaisesFormatError()
+        Expect.Begin
+        Dim r As String = Try0("{0}")
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0}"") with no value"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Values_NoItems_IgnoresTheValues()
+        Expect.Begin
+        Expect.AreEqual "No items.", Try2("No items.", 1, 2), "StringFormat(""No items."", 1, 2)"
+        Expect.AreEqual 0, Loc.LastNumber, "Err.Number of StringFormat(""No items."", 1, 2)"
+        Expect.AreEqual "No items.", Try0("No items."), "StringFormat(""No items."")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_WrongCount_NumberSourceAndDescription()
+        Expect.Begin
+        Dim r As String = Try1("{0} {1}", "only one")
+        Expect.AreEqual vbObjectError Or 9001, Loc.LastNumber, "Err.Number for a missing value"
+        Expect.AreEqual "StringHelper", Loc.LastSource, "Err.Source for a missing value"
+        Expect.AreEqual "The number indicating an argument to format is less than zero, or greater than or equal to the length of the args array.", Loc.LastDescription, "Err.Description for a missing value"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_UnknownIdentifier_NumberSourceAndDescription()
+        Expect.Begin
+        Dim r As String = Try1("{0:Z}", 5)
+        Expect.AreEqual vbObjectError Or 9001, Loc.LastNumber, "Err.Number for the identifier Z"
+        Expect.AreEqual "StringHelper", Loc.LastSource, "Err.Source for the identifier Z"
+        Expect.AreEqual "Invalid format string.", Loc.LastDescription, "Err.Description for the identifier Z"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_NullValue_RaisesInvalidUseOfNull()
+        Expect.Begin
+        Dim r As String = Try1("{0}", Null)
+        Expect.AreEqual 94, Loc.LastNumber, "Err.Number of StringFormat(""{0}"", Null)"
+        Expect.AreEqual "Invalid use of Null", Loc.LastDescription, "Err.Description of StringFormat(""{0}"", Null)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Identifier_TextValue_IsRefused()
+        Expect.Begin
+        Dim r As String = Try1("{0:F}", "abc")
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:F}"", ""abc"")"
+        Expect.AreEqual "Invalid format string.", Loc.LastDescription, "Err.Description of StringFormat(""{0:F}"", ""abc"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Identifier_NumericText_UsesTheNumericIdentifiers()
+        Expect.Begin
+        Expect.AreEqual "12" & Loc.Dec() & "00", Try1("{0:F}", "12"), "StringFormat(""{0:F}"", ""12"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Identifier_Boolean_UsesTheNumericIdentifiers()
+        Expect.Begin
+        Expect.AreEqual "-1", Try1("{0:D}", True), "StringFormat(""{0:D}"", True)"
+        Expect.AreEqual "0", Try1("{0:D}", False), "StringFormat(""{0:D}"", False)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DotNet_CustomNumericFormat_IsRefused()
+        Expect.Begin
+        Dim r As String = Try1("{0:#,##0.0}", 1234.5)
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:#,##0.0}"", 1234.5)"
+        Expect.AreEqual "Invalid format string.", Loc.LastDescription, "Err.Description of StringFormat(""{0:#,##0.0}"", 1234.5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DotNet_CustomDateFormat_IsRefused()
+        Expect.Begin
+        Dim r As String = Try1("{0:yyyy-MM-dd}", Loc.Dt())
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:yyyy-MM-dd}"", a Date)"
+        Expect.AreEqual "Invalid format string.", Loc.LastDescription, "Err.Description of StringFormat(""{0:yyyy-MM-dd}"", a Date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DotNet_NumberIdentifierN_DoesNotExist()
+        Expect.Begin
+        Dim r As String = Try1("{0:N}", 1234.5)
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:N}"", 1234.5)"
+        r = Try1("{0:N2}", 1234.5)
+        Expect.AreEqual Loc.FormatError, Loc.LastNumber, "Err.Number of StringFormat(""{0:N2}"", 1234.5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DotNet_Precision_IsDecimalPlacesNotSignificantDigits()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "23E4", Try1("{0:E2}", 12345.678), "StringFormat(""{0:E2}"", 12345.678) has two decimal places"
+        Expect.AreEqual "1" & Loc.Dec() & "235E4", Try1("{0:G3}", 12345.678), "StringFormat(""{0:G3}"", 12345.678) has three decimal places"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Results_NumericResultsComeFromFormat()
+        Expect.Begin
+        Expect.AreEqual Format$(1234567.891, "0.00"), Try1("{0:F}", 1234567.891), "StringFormat of 1234567.891 with F against Format$ ""0.00"""
+        Expect.AreEqual Format$(1234567.891, "#,##0.00") & "$", Try1("{0:C}", 1234567.891), "StringFormat of 1234567.891 with C against Format$ ""#,##0.00"" and a $"
+        Expect.AreEqual Format$(0.12345, "#,##0.0%"), Try1("{0:P1}", 0.12345), "StringFormat of 0.12345 with P1 against Format$ ""#,##0.0%"""
+        Expect.AreEqual Format$(12345.678, "0.0#E-#"), Try1("{0:E2}", 12345.678), "StringFormat of 12345.678 with E2 against Format$ ""0.0#E-#"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Results_DateResultsComeFromFormat()
+        Expect.Begin
+        Expect.AreEqual Format$(Loc.Dt(), "ddddd"), Try1("{0:d}", Loc.Dt()), "StringFormat of a date with d against Format$ ""ddddd"""
+        Expect.AreEqual Format$(Loc.Dt(), "dddddd"), Try1("{0:D}", Loc.Dt()), "StringFormat of a date with D against Format$ ""dddddd"""
+        Expect.AreEqual Format$(Loc.Dt(), "ttttt"), Try1("{0:T}", Loc.Dt()), "StringFormat of a date with T against Format$ ""ttttt"""
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/Loc.twin b/test/package-tests/Fmt/Sources/Loc.twin
new file mode 100644
index 00000000..6009ba31
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/Loc.twin
@@ -0,0 +1,95 @@
+' Fmt: helpers shared by the fixtures. Fmt builds its numbers and dates with Format$, so the decimal
+' point, the thousands separator and the layout of dates follow the regional settings of the
+' machine. A case states what the package should give in terms of the separators this module reports
+' or of Format$ itself, never in terms of one locale's literal text. A character the package writes
+' whatever the locale (the dollar sign after a currency amount, the &H of a hexadecimal number) is
+' checked literally.
+Module Loc
+
+    ' What the last Try call raised.
+    Public LastNumber As Long
+    Public LastDescription As String
+    Public LastSource As String
+
+    ' The error number of StringFormat for a bad format string or a wrong count of values.
+    Public Const FormatError As Long = -2147212503
+
+    ' The decimal separator of the regional settings.
+    Public Function Dec() As String
+        Dec = Mid$(Format$(1.5, "0.0"), 2, 1)
+    End Function
+
+    ' The time separator of the regional settings.
+    Public Function TimeSep() As String
+        TimeSep = Mid$(Format$(TimeSerial(14, 5, 9), "hh:mm"), 3, 1)
+    End Function
+
+    ' A fixed date and time, Sunday 11 October 2026, 14:05:09.
+    Public Function Dt() As Date
+        Dt = DateSerial(2026, 10, 11) + TimeSerial(14, 5, 9)
+    End Function
+
+    Private Sub Keep()
+        LastNumber = Err.Number
+        LastDescription = Err.Description
+        LastSource = Err.Source
+        Err.Clear
+    End Sub
+
+    ' StringFormat with no value. A call that raises returns an empty string, and LastNumber says why.
+    Public Function Try0(ByVal Pattern As String) As String
+        On Error Resume Next
+        Err.Clear
+        Try0 = StringFormat(Pattern)
+        Keep
+    End Function
+
+    Public Function Try1(ByVal Pattern As String, ByVal A As Variant) As String
+        On Error Resume Next
+        Err.Clear
+        Try1 = StringFormat(Pattern, A)
+        Keep
+    End Function
+
+    Public Function Try2(ByVal Pattern As String, ByVal A As Variant, ByVal B As Variant) As String
+        On Error Resume Next
+        Err.Clear
+        Try2 = StringFormat(Pattern, A, B)
+        Keep
+    End Function
+
+    Public Function TryFormer1(ByVal Pattern As String, ByVal A As Variant) As String
+        On Error Resume Next
+        Err.Clear
+        TryFormer1 = FormerStringFormat(Pattern, A)
+        Keep
+    End Function
+
+    Public Function TryFormer2(ByVal Pattern As String, ByVal A As Variant, ByVal B As Variant) As String
+        On Error Resume Next
+        Err.Clear
+        TryFormer2 = FormerStringFormat(Pattern, A, B)
+        Keep
+    End Function
+
+    ' A format specifier with an identifier and the text after it.
+    Public Function Spec(ByVal Identifier As String, Optional ByVal Custom As String = "") As StringFormatSpecifier
+        Dim s As New StringFormatSpecifier
+        s.identifier = Identifier
+        If Len(Custom) > 0 Then s.CustomSpecifier = Custom
+        Set Spec = s
+    End Function
+
+    ' The letters among A-Z, in both cases, that an identifier class matches, in the order A a B b ...
+    Public Function MatchedLetters(ByVal Sfi As IStringFormatIdentifier) As String
+        Dim i As Long
+        Dim c As String
+        For i = 65 To 90
+            c = Chr$(i)
+            If Sfi.IsIdentifierMatch(Spec(c)) Then MatchedLetters = MatchedLetters & c
+            c = LCase$(c)
+            If Sfi.IsIdentifierMatch(Spec(c)) Then MatchedLetters = MatchedLetters & c
+        Next
+    End Function
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/PercentRoundTripTests.twin b/test/package-tests/Fmt/Sources/PercentRoundTripTests.twin
new file mode 100644
index 00000000..07fb1919
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/PercentRoundTripTests.twin
@@ -0,0 +1,77 @@
+' Fmt: the P identifier (PercentSFI) and the R identifier (RoundTripSFI).
+[TestFixture]
+Module PercentRoundTripTests
+
+    [TestCase]
+    Public Sub Percent_Default_IsAWholeNumberOfPercent()
+        Expect.Begin
+        Expect.AreEqual "12%", Try1("{0:P}", 0.12345), "StringFormat(""{0:P}"", 0.12345)"
+        Expect.AreEqual "100%", Try1("{0:P}", 1), "StringFormat(""{0:P}"", 1)"
+        Expect.AreEqual "1%", Try1("{0:p}", 0.005), "StringFormat(""{0:p}"", 0.005)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Percent_Precision_SetsTheDecimalPlaces()
+        Expect.Begin
+        Expect.AreEqual "12" & Loc.Dec() & "3%", Try1("{0:P1}", 0.12345), "StringFormat(""{0:P1}"", 0.12345)"
+        Expect.AreEqual "50" & Loc.Dec() & "00%", Try1("{0:P2}", 0.5), "StringFormat(""{0:P2}"", 0.5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Percent_HasThousandsSeparators()
+        Expect.Begin
+        Expect.AreEqual Format$(12.5, "#,##0%"), Try1("{0:P}", 12.5), "StringFormat(""{0:P}"", 12.5) against Format$ ""#,##0%"""
+        Expect.AreEqual Format$(123.5, "#,##0%"), Try1("{0:P}", 123.5), "StringFormat(""{0:P}"", 123.5) against Format$ ""#,##0%"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Percent_Class_MatchesPAndOnlyP()
+        Expect.Begin
+        Expect.AreEqual "Pp", Loc.MatchedLetters(PercentSFI), "letters PercentSFI.IsIdentifierMatch is True for"
+        Dim f As IStringFormatIdentifier = PercentSFI
+        Expect.AreEqual "12" & Loc.Dec() & "3%", f.GetFormattedValue(0.12345, Loc.Spec("P", "1")), "PercentSFI.GetFormattedValue(0.12345, P1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RoundTrip_ConvertsTheValueToText()
+        Expect.Begin
+        Expect.AreEqual CStr(0.1), Try1("{0:R}", 0.1), "StringFormat(""{0:R}"", 0.1)"
+        Expect.AreEqual "0" & Loc.Dec() & "333333333333333", Try1("{0:r}", 1 / 3), "StringFormat(""{0:r}"", 1 / 3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RoundTrip_NumericString_IsReturnedAsANumber()
+        Expect.Begin
+        Expect.AreEqual "1" & Loc.Dec() & "5", Try1("{0:R}", "1" & Loc.Dec() & "50"), "StringFormat(""{0:R}"", a numeric String with a trailing zero)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RoundTrip_KeepsAtMost15SignificantDigits()
+        Expect.Begin
+        Expect.AreEqual "0" & Loc.Dec() & "123456789012347", Try1("{0:R}", 0.123456789012346789#), "StringFormat(""{0:R}"", 0.123456789012346789#)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RoundTrip_IgnoresThePrecision()
+        Expect.Begin
+        Expect.AreEqual Try1("{0:R}", 0.1), Try1("{0:R5}", 0.1), "StringFormat(""{0:R5}"", 0.1) against {0:R}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RoundTrip_Class_MatchesRAndOnlyR()
+        Expect.Begin
+        Expect.AreEqual "Rr", Loc.MatchedLetters(RoundTripSFI), "letters RoundTripSFI.IsIdentifierMatch is True for"
+        Dim f As IStringFormatIdentifier = RoundTripSFI
+        Expect.AreEqual CStr(0.1), f.GetFormattedValue(0.1, Loc.Spec("R")), "RoundTripSFI.GetFormattedValue(0.1, R)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/RunAll.twin b/test/package-tests/Fmt/Sources/RunAll.twin
new file mode 100644
index 00000000..cc55d134
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/RunAll.twin
@@ -0,0 +1,714 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package Fmt, version 1.0.0.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "Fmt 1.0.0.0: 175 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        CurrencyTests.Default_TwoDecimalPlacesAndATrailingDollar
+        Expect.EndCase "CurrencyTests.Default_TwoDecimalPlacesAndATrailingDollar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CurrencyTests.Precision_SetsTheDecimalPlaces
+        Expect.EndCase "CurrencyTests.Precision_SetsTheDecimalPlaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CurrencyTests.PrecisionZero_IsTheDefault
+        Expect.EndCase "CurrencyTests.PrecisionZero_IsTheDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CurrencyTests.ThousandsSeparators_FollowTheRegionalSettings
+        Expect.EndCase "CurrencyTests.ThousandsSeparators_FollowTheRegionalSettings", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CurrencyTests.DollarSign_IsAfterTheNumber
+        Expect.EndCase "CurrencyTests.DollarSign_IsAfterTheNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CurrencyTests.Negative_KeepsTheSignInFront
+        Expect.EndCase "CurrencyTests.Negative_KeepsTheSignInFront", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CurrencyTests.Class_MatchesCAndOnlyC
+        Expect.EndCase "CurrencyTests.Class_MatchesCAndOnlyC", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CurrencyTests.Class_GetFormattedValue_ReadsThePrecision
+        Expect.EndCase "CurrencyTests.Class_GetFormattedValue_ReadsThePrecision", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.ShortDate_d
+        Expect.EndCase "DateTests.ShortDate_d", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.LongDate_D
+        Expect.EndCase "DateTests.LongDate_D", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.LongDateShortTime_f
+        Expect.EndCase "DateTests.LongDateShortTime_f", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.LongDateLongTime_F
+        Expect.EndCase "DateTests.LongDateLongTime_F", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.ShortDateShortTime_g
+        Expect.EndCase "DateTests.ShortDateShortTime_g", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.ShortDateLongTime_G
+        Expect.EndCase "DateTests.ShortDateLongTime_G", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.Sortable_s
+        Expect.EndCase "DateTests.Sortable_s", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.ShortTime_t
+        Expect.EndCase "DateTests.ShortTime_t", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.LongTime_T
+        Expect.EndCase "DateTests.LongTime_T", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.Custom_C_PassesTheTextToFormat
+        Expect.EndCase "DateTests.Custom_C_PassesTheTextToFormat", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.Custom_C_Empty_IsTheGeneralDate
+        Expect.EndCase "DateTests.Custom_C_Empty_IsTheGeneralDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.Letters_AreCaseSensitiveExceptC
+        Expect.EndCase "DateTests.Letters_AreCaseSensitiveExceptC", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.TextAfterTheLetter_IsIgnoredExceptForC
+        Expect.EndCase "DateTests.TextAfterTheLetter_IsIgnoredExceptForC", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.UnknownLetter_RaisesFormatError
+        Expect.EndCase "DateTests.UnknownLetter_RaisesFormatError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.NumericIdentifier_ForADate_RaisesFormatError
+        Expect.EndCase "DateTests.NumericIdentifier_ForADate_RaisesFormatError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.Generic_Class_MatchesTheTenLetters
+        Expect.EndCase "DateTests.Generic_Class_MatchesTheTenLetters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DateTests.DateTimeSFI_GivesTheSameResultsAsGeneric
+        Expect.EndCase "DateTests.DateTimeSFI_GivesTheSameResultsAsGeneric", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DecimalTests.Default_IsTheWholeNumber
+        Expect.EndCase "DecimalTests.Default_IsTheWholeNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DecimalTests.Precision_PadsWithZeros
+        Expect.EndCase "DecimalTests.Precision_PadsWithZeros", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DecimalTests.FractionalValue_IsRounded
+        Expect.EndCase "DecimalTests.FractionalValue_IsRounded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DecimalTests.Negative_KeepsTheSignInFrontOfThePadding
+        Expect.EndCase "DecimalTests.Negative_KeepsTheSignInFrontOfThePadding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DecimalTests.LongerNumber_IsNotShortened
+        Expect.EndCase "DecimalTests.LongerNumber_IsNotShortened", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DecimalTests.Class_MatchesDAndOnlyD
+        Expect.EndCase "DecimalTests.Class_MatchesDAndOnlyD", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DecimalTests.Class_GetFormattedValue_ReadsThePrecision
+        Expect.EndCase "DecimalTests.Class_GetFormattedValue_ReadsThePrecision", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Create_Plain_HoldsTheArguments
+        Expect.EndCase "EscapeSequenceTests.Create_Plain_HoldsTheArguments", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Create_Ascii_HoldsTheArguments
+        Expect.EndCase "EscapeSequenceTests.Create_Ascii_HoldsTheArguments", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Create_ReturnsANewObjectEachTime
+        Expect.EndCase "EscapeSequenceTests.Create_ReturnsANewObjectEachTime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Execute_Plain_ReplacesEveryOccurrence
+        Expect.EndCase "EscapeSequenceTests.Execute_Plain_ReplacesEveryOccurrence", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Execute_Plain_TakesLetterCaseIntoAccount
+        Expect.EndCase "EscapeSequenceTests.Execute_Plain_TakesLetterCaseIntoAccount", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Execute_Plain_LeavesAStringWithoutTheTextAlone
+        Expect.EndCase "EscapeSequenceTests.Execute_Plain_LeavesAStringWithoutTheTextAlone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Execute_Ascii_Hexadecimal
+        Expect.EndCase "EscapeSequenceTests.Execute_Ascii_Hexadecimal", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Execute_Ascii_Octal
+        Expect.EndCase "EscapeSequenceTests.Execute_Ascii_Octal", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Execute_Ascii_PatternIgnoresLetterCase
+        Expect.EndCase "EscapeSequenceTests.Execute_Ascii_PatternIgnoresLetterCase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Execute_Ascii_PatternWithoutABackslash_HasNoEffectOnAStringWithoutOne
+        Expect.EndCase "EscapeSequenceTests.Execute_Ascii_PatternWithoutABackslash_HasNoEffectOnAStringWithoutOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Execute_Ascii_InvalidDigits_RaisesTypeMismatch
+        Expect.EndCase "EscapeSequenceTests.Execute_Ascii_InvalidDigits_RaisesTypeMismatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Friend_Setters_CanBeCalledByAProject
+        Expect.EndCase "EscapeSequenceTests.Friend_Setters_CanBeCalledByAProject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Self_ReturnsTheSameObject
+        Expect.EndCase "EscapeSequenceTests.Self_ReturnsTheSameObject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.AsciiEscapeBase_Values
+        Expect.EndCase "EscapeSequenceTests.AsciiEscapeBase_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Former_Create_ReturnsANewObjectWithTheArguments
+        Expect.EndCase "EscapeSequenceTests.Former_Create_ReturnsANewObjectWithTheArguments", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeSequenceTests.Former_Friend_Setters_CanBeCalledByAProject
+        Expect.EndCase "EscapeSequenceTests.Former_Friend_Setters_CanBeCalledByAProject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Newline_IsVbNewLine
+        Expect.EndCase "EscapeTests.Newline_IsVbNewLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Quote_IsADoubleQuote
+        Expect.EndCase "EscapeTests.Quote_IsADoubleQuote", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Tab_IsVbTab
+        Expect.EndCase "EscapeTests.Tab_IsVbTab", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Alert_And_Backspace_AreCodes7And8
+        Expect.EndCase "EscapeTests.Alert_And_Backspace_AreCodes7And8", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.VerticalTab_FormFeed_CarriageReturn_AreCodes13_14_15
+        Expect.EndCase "EscapeTests.VerticalTab_FormFeed_CarriageReturn_AreCodes13_14_15", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.HexEscape_GivesTheCharactersOfC
+        Expect.EndCase "EscapeTests.HexEscape_GivesTheCharactersOfC", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.HexEscape_TwoDigits
+        Expect.EndCase "EscapeTests.HexEscape_TwoDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.OctalEscape_ThreeDigits
+        Expect.EndCase "EscapeTests.OctalEscape_ThreeDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.HexEscape_InvalidDigits_RaisesTypeMismatch
+        Expect.EndCase "EscapeTests.HexEscape_InvalidDigits_RaisesTypeMismatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.OctalEscape_InvalidDigits_RaisesTypeMismatch
+        Expect.EndCase "EscapeTests.OctalEscape_InvalidDigits_RaisesTypeMismatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.DoubledBackslash_IsOneBackslash
+        Expect.EndCase "EscapeTests.DoubledBackslash_IsOneBackslash", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.UnknownEscape_StaysAsWritten
+        Expect.EndCase "EscapeTests.UnknownEscape_StaysAsWritten", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Literal_AtSign_TurnsEscapesOff
+        Expect.EndCase "EscapeTests.Literal_AtSign_TurnsEscapesOff", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Values_EscapesInAValue_AreExpanded
+        Expect.EndCase "EscapeTests.Values_EscapesInAValue_AreExpanded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Literal_EscapesInAValue_AreNotExpanded
+        Expect.EndCase "EscapeTests.Literal_EscapesInAValue_AreNotExpanded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Values_ALaterItemInAValue_IsReplacedToo
+        Expect.EndCase "EscapeTests.Values_ALaterItemInAValue_IsReplacedToo", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EscapeTests.Escape_Chr27_BecomesABackslash
+        Expect.EndCase "EscapeTests.Escape_Chr27_BecomesABackslash", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExponentialTests.Default_SixDecimalPlaces
+        Expect.EndCase "ExponentialTests.Default_SixDecimalPlaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExponentialTests.Precision_SetsTheDecimalPlaces
+        Expect.EndCase "ExponentialTests.Precision_SetsTheDecimalPlaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExponentialTests.LowerCaseIdentifier_GivesALowerCaseE
+        Expect.EndCase "ExponentialTests.LowerCaseIdentifier_GivesALowerCaseE", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExponentialTests.NegativeExponent_HasNoLeadingZeros
+        Expect.EndCase "ExponentialTests.NegativeExponent_HasNoLeadingZeros", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExponentialTests.ParseExponent_ReadsTheTextAfterTheE
+        Expect.EndCase "ExponentialTests.ParseExponent_ReadsTheTextAfterTheE", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExponentialTests.Class_MatchesEAndOnlyE
+        Expect.EndCase "ExponentialTests.Class_MatchesEAndOnlyE", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ExponentialTests.Class_GetFormattedValue_ReadsThePrecisionAndTheIdentifier
+        Expect.EndCase "ExponentialTests.Class_GetFormattedValue_ReadsThePrecisionAndTheIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FixedPointTests.Default_TwoDecimalPlaces
+        Expect.EndCase "FixedPointTests.Default_TwoDecimalPlaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FixedPointTests.Precision_SetsTheDecimalPlaces
+        Expect.EndCase "FixedPointTests.Precision_SetsTheDecimalPlaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FixedPointTests.PrecisionZero_IsTwoDecimalPlaces
+        Expect.EndCase "FixedPointTests.PrecisionZero_IsTwoDecimalPlaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FixedPointTests.NoThousandsSeparator
+        Expect.EndCase "FixedPointTests.NoThousandsSeparator", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FixedPointTests.Class_MatchesFAndOnlyF
+        Expect.EndCase "FixedPointTests.Class_MatchesFAndOnlyF", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FixedPointTests.Class_GetFormattedValue_ReadsThePrecision
+        Expect.EndCase "FixedPointTests.Class_GetFormattedValue_ReadsThePrecision", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.CommonNotation_GivesTheSameAsStringFormat
+        Expect.EndCase "FormerStringFormatTests.CommonNotation_GivesTheSameAsStringFormat", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.N_IsUnderstood
+        Expect.EndCase "FormerStringFormatTests.N_IsUnderstood", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.CustomNumberFormat_IsPassedToFormat
+        Expect.EndCase "FormerStringFormatTests.CustomNumberFormat_IsPassedToFormat", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.G_WithoutPrecision_TakesTheDigitsAfterThePoint
+        Expect.EndCase "FormerStringFormatTests.G_WithoutPrecision_TakesTheDigitsAfterThePoint", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.G_WithoutPrecision_StringFormatGivesExponential
+        Expect.EndCase "FormerStringFormatTests.G_WithoutPrecision_StringFormatGivesExponential", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.X_PrefixIsUpperCaseForBothCases
+        Expect.EndCase "FormerStringFormatTests.X_PrefixIsUpperCaseForBothCases", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.HexEscape_IsNotExpanded
+        Expect.EndCase "FormerStringFormatTests.HexEscape_IsNotExpanded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.NonNumericValue_WithNumericIdentifier_RaisesInvalidNumberArgument
+        Expect.EndCase "FormerStringFormatTests.NonNumericValue_WithNumericIdentifier_RaisesInvalidNumberArgument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.E_PrecisionZero_RaisesInvalidFormatString
+        Expect.EndCase "FormerStringFormatTests.E_PrecisionZero_RaisesInvalidFormatString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormerStringFormatTests.WrongCount_HasTheSameNumberAndTextWithItsOwnSource
+        Expect.EndCase "FormerStringFormatTests.WrongCount_HasTheSameNumberAndTextWithItsOwnSource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Integer_IsFormattedAsD
+        Expect.EndCase "GeneralTests.Integer_IsFormattedAsD", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Double_WithoutPrecision_IsExponential
+        Expect.EndCase "GeneralTests.Double_WithoutPrecision_IsExponential", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Double_ExponentAtOrAbovePrecision_IsExponential
+        Expect.EndCase "GeneralTests.Double_ExponentAtOrAbovePrecision_IsExponential", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Double_ExponentBelowPrecision_IsFixedPoint
+        Expect.EndCase "GeneralTests.Double_ExponentBelowPrecision_IsFixedPoint", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.LowerCaseIdentifier_GivesALowerCaseE
+        Expect.EndCase "GeneralTests.LowerCaseIdentifier_GivesALowerCaseE", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Single_GivesTheValue
+        Expect.EndCase "GeneralTests.Single_GivesTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Currency_GivesTheValue
+        Expect.EndCase "GeneralTests.Currency_GivesTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Byte_GivesTheValue
+        Expect.EndCase "GeneralTests.Byte_GivesTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Decimal_GivesTheValue
+        Expect.EndCase "GeneralTests.Decimal_GivesTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.NumericString_GivesTheValue
+        Expect.EndCase "GeneralTests.NumericString_GivesTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Class_MatchesGAndOnlyG
+        Expect.EndCase "GeneralTests.Class_MatchesGAndOnlyG", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GeneralTests.Class_GetFormattedValue_IsPublic
+        Expect.EndCase "GeneralTests.Class_GetFormattedValue_IsPublic", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.Default_IsThePrefixAndTheDigits
+        Expect.EndCase "HexTests.Default_IsThePrefixAndTheDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.LowerCaseIdentifier_GivesALowerCaseResult
+        Expect.EndCase "HexTests.LowerCaseIdentifier_GivesALowerCaseResult", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.Precision_PadsWithZeros
+        Expect.EndCase "HexTests.Precision_PadsWithZeros", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.Precision_CutsFromTheLeft
+        Expect.EndCase "HexTests.Precision_CutsFromTheLeft", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.Negative_IntegerIs16Bits_LongIs32Bits
+        Expect.EndCase "HexTests.Negative_IntegerIs16Bits_LongIs32Bits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.FractionalValue_IsRounded
+        Expect.EndCase "HexTests.FractionalValue_IsRounded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.Class_MatchesXAndOnlyX
+        Expect.EndCase "HexTests.Class_MatchesXAndOnlyX", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.NumericPadding_NeverMatches
+        Expect.EndCase "HexTests.NumericPadding_NeverMatches", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HexTests.NumericPadding_GetFormattedValue_RaisesError5
+        Expect.EndCase "HexTests.NumericPadding_GetFormattedValue_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IdentifierInterfaceTests.OwnClass_CanBeCalledThroughTheInterface
+        Expect.EndCase "IdentifierInterfaceTests.OwnClass_CanBeCalledThroughTheInterface", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IdentifierInterfaceTests.OwnClass_IsNotKnownToStringFormat
+        Expect.EndCase "IdentifierInterfaceTests.OwnClass_IsNotKnownToStringFormat", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IdentifierInterfaceTests.EveryClass_ImplementsTheInterface
+        Expect.EndCase "IdentifierInterfaceTests.EveryClass_ImplementsTheInterface", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Index_SelectsValueByPosition
+        Expect.EndCase "ItemTests.Index_SelectsValueByPosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Index_RepeatedIndexUsesTheValueEachTime
+        Expect.EndCase "ItemTests.Index_RepeatedIndexUsesTheValueEachTime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Index_Word_RaisesTypeMismatch
+        Expect.EndCase "ItemTests.Index_Word_RaisesTypeMismatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Alignment_Positive_RightJustifies
+        Expect.EndCase "ItemTests.Alignment_Positive_RightJustifies", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Alignment_Negative_LeftJustifies
+        Expect.EndCase "ItemTests.Alignment_Negative_LeftJustifies", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Alignment_WiderValue_IsNotShortened
+        Expect.EndCase "ItemTests.Alignment_WiderValue_IsNotShortened", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Alignment_IsAppliedAfterTheIdentifier
+        Expect.EndCase "ItemTests.Alignment_IsAppliedAfterTheIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.NoIdentifier_ConvertsTheValueToString
+        Expect.EndCase "ItemTests.NoIdentifier_ConvertsTheValueToString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Item_WithSpaces_StaysText
+        Expect.EndCase "ItemTests.Item_WithSpaces_StaysText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Item_WithoutClosingBrace_StaysText
+        Expect.EndCase "ItemTests.Item_WithoutClosingBrace_StaysText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Item_LeadingZeroIndex_IsNotReplaced
+        Expect.EndCase "ItemTests.Item_LeadingZeroIndex_IsNotReplaced", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Item_LeadingZeroAlignment_IsNotReplaced
+        Expect.EndCase "ItemTests.Item_LeadingZeroAlignment_IsNotReplaced", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Item_ZeroAlignment_IsNotReplaced
+        Expect.EndCase "ItemTests.Item_ZeroAlignment_IsNotReplaced", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Precision_Zero_IsTheSameAsNone
+        Expect.EndCase "ItemTests.Precision_Zero_IsTheSameAsNone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.DoubledBrace_IsNotAnEscape
+        Expect.EndCase "ItemTests.DoubledBrace_IsNotAnEscape", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Values_UnusedValue_RaisesFormatError
+        Expect.EndCase "ItemTests.Values_UnusedValue_RaisesFormatError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Values_MissingValue_RaisesFormatError
+        Expect.EndCase "ItemTests.Values_MissingValue_RaisesFormatError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Values_IndexGap_RaisesFormatError
+        Expect.EndCase "ItemTests.Values_IndexGap_RaisesFormatError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Values_NoValuesButAnItem_RaisesFormatError
+        Expect.EndCase "ItemTests.Values_NoValuesButAnItem_RaisesFormatError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Values_NoItems_IgnoresTheValues
+        Expect.EndCase "ItemTests.Values_NoItems_IgnoresTheValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Error_WrongCount_NumberSourceAndDescription
+        Expect.EndCase "ItemTests.Error_WrongCount_NumberSourceAndDescription", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Error_UnknownIdentifier_NumberSourceAndDescription
+        Expect.EndCase "ItemTests.Error_UnknownIdentifier_NumberSourceAndDescription", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Error_NullValue_RaisesInvalidUseOfNull
+        Expect.EndCase "ItemTests.Error_NullValue_RaisesInvalidUseOfNull", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Identifier_TextValue_IsRefused
+        Expect.EndCase "ItemTests.Identifier_TextValue_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Identifier_NumericText_UsesTheNumericIdentifiers
+        Expect.EndCase "ItemTests.Identifier_NumericText_UsesTheNumericIdentifiers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Identifier_Boolean_UsesTheNumericIdentifiers
+        Expect.EndCase "ItemTests.Identifier_Boolean_UsesTheNumericIdentifiers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.DotNet_CustomNumericFormat_IsRefused
+        Expect.EndCase "ItemTests.DotNet_CustomNumericFormat_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.DotNet_CustomDateFormat_IsRefused
+        Expect.EndCase "ItemTests.DotNet_CustomDateFormat_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.DotNet_NumberIdentifierN_DoesNotExist
+        Expect.EndCase "ItemTests.DotNet_NumberIdentifierN_DoesNotExist", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.DotNet_Precision_IsDecimalPlacesNotSignificantDigits
+        Expect.EndCase "ItemTests.DotNet_Precision_IsDecimalPlacesNotSignificantDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Results_NumericResultsComeFromFormat
+        Expect.EndCase "ItemTests.Results_NumericResultsComeFromFormat", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Results_DateResultsComeFromFormat
+        Expect.EndCase "ItemTests.Results_DateResultsComeFromFormat", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.Percent_Default_IsAWholeNumberOfPercent
+        Expect.EndCase "PercentRoundTripTests.Percent_Default_IsAWholeNumberOfPercent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.Percent_Precision_SetsTheDecimalPlaces
+        Expect.EndCase "PercentRoundTripTests.Percent_Precision_SetsTheDecimalPlaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.Percent_HasThousandsSeparators
+        Expect.EndCase "PercentRoundTripTests.Percent_HasThousandsSeparators", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.Percent_Class_MatchesPAndOnlyP
+        Expect.EndCase "PercentRoundTripTests.Percent_Class_MatchesPAndOnlyP", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.RoundTrip_ConvertsTheValueToText
+        Expect.EndCase "PercentRoundTripTests.RoundTrip_ConvertsTheValueToText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.RoundTrip_NumericString_IsReturnedAsANumber
+        Expect.EndCase "PercentRoundTripTests.RoundTrip_NumericString_IsReturnedAsANumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.RoundTrip_KeepsAtMost15SignificantDigits
+        Expect.EndCase "PercentRoundTripTests.RoundTrip_KeepsAtMost15SignificantDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.RoundTrip_IgnoresThePrecision
+        Expect.EndCase "PercentRoundTripTests.RoundTrip_IgnoresThePrecision", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PercentRoundTripTests.RoundTrip_Class_MatchesRAndOnlyR
+        Expect.EndCase "PercentRoundTripTests.RoundTrip_Class_MatchesRAndOnlyR", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.Defaults
+        Expect.EndCase "SpecifierTests.Defaults", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.ToString_RebuildsTheItem
+        Expect.EndCase "SpecifierTests.ToString_RebuildsTheItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.ToString_AlignmentAndIdentifier
+        Expect.EndCase "SpecifierTests.ToString_AlignmentAndIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.Index_IsNotCheckedWhenAssigned
+        Expect.EndCase "SpecifierTests.Index_IsNotCheckedWhenAssigned", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.Alignment_ProducesTheComma
+        Expect.EndCase "SpecifierTests.Alignment_ProducesTheComma", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.Identifier_KeepsTheCaseAsWritten
+        Expect.EndCase "SpecifierTests.Identifier_KeepsTheCaseAsWritten", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.CustomSpecifier_Numeric_SetsThePrecision
+        Expect.EndCase "SpecifierTests.CustomSpecifier_Numeric_SetsThePrecision", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.CustomSpecifier_NotNumeric_KeepsThePrecision
+        Expect.EndCase "SpecifierTests.CustomSpecifier_NotNumeric_KeepsThePrecision", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.CustomSpecifier_Zero_KeepsThePrecision
+        Expect.EndCase "SpecifierTests.CustomSpecifier_Zero_KeepsThePrecision", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.Precision_IsTheNumberAfterTheLetter
+        Expect.EndCase "SpecifierTests.Precision_IsTheNumberAfterTheLetter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.StringHelper_StringFormat_TakesAnArray
+        Expect.EndCase "SpecifierTests.StringHelper_StringFormat_TakesAnArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.StringHelper_NewInstance_BehavesLikeThePredeclaredOne
+        Expect.EndCase "SpecifierTests.StringHelper_NewInstance_BehavesLikeThePredeclaredOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SpecifierTests.StringHelper_Errors_HaveTheSourceStringHelper
+        Expect.EndCase "SpecifierTests.StringHelper_Errors_HaveTheSourceStringHelper", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.Functions_CanBeCalledDespiteOptionPrivateModule
+        Expect.EndCase "StringValidationTests.Functions_CanBeCalledDespiteOptionPrivateModule", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.StringContains_IgnoresCaseUnlessAsked
+        Expect.EndCase "StringValidationTests.StringContains_IgnoresCaseUnlessAsked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.StringContains_EmptyNeedle_IsTrue
+        Expect.EndCase "StringValidationTests.StringContains_EmptyNeedle_IsTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.StringContains_Null_RaisesInvalidUseOfNull
+        Expect.EndCase "StringValidationTests.StringContains_Null_RaisesInvalidUseOfNull", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.StringContainsAny_FindsAnyNeedle
+        Expect.EndCase "StringValidationTests.StringContainsAny_FindsAnyNeedle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.StringMatchesAny_ComparesWholeStringsExactly
+        Expect.EndCase "StringValidationTests.StringMatchesAny_ComparesWholeStringsExactly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.StringStartsWith_ArgumentOrder_IsStartThenSource
+        Expect.EndCase "StringValidationTests.StringStartsWith_ArgumentOrder_IsStartThenSource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.StringStartsWith_IsBinary_EmptyStartIsTrue
+        Expect.EndCase "StringValidationTests.StringStartsWith_IsBinary_EmptyStartIsTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StringValidationTests.CopyCapitalisation_FollowsTheWholeSource
+        Expect.EndCase "StringValidationTests.CopyCapitalisation_FollowsTheWholeSource", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/SpecifierTests.twin b/test/package-tests/Fmt/Sources/SpecifierTests.twin
new file mode 100644
index 00000000..9ec7e3bc
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/SpecifierTests.twin
@@ -0,0 +1,159 @@
+' Fmt: StringFormatSpecifier, which describes one format item, and StringHelper, the class behind
+' StringFormat that takes its values as an array.
+[TestFixture]
+Module SpecifierTests
+
+    [TestCase]
+    Public Sub Defaults()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        Expect.AreEqual 0, spec.Index, "Index"
+        Expect.AreEqual 0, spec.Alignment, "Alignment"
+        Expect.AreEqual "", spec.identifier, "identifier"
+        Expect.AreEqual "", spec.CustomSpecifier, "CustomSpecifier"
+        Expect.AreEqual 0, spec.Precision, "Precision"
+        Expect.AreEqual "{0}", spec.ToString(), "ToString"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToString_RebuildsTheItem()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        spec.Index = 2
+        spec.Alignment = -8
+        spec.identifier = "G"
+        spec.CustomSpecifier = "3"
+        Expect.AreEqual "{2,-8:G3}", spec.ToString(), "ToString of index 2, alignment -8, G3"
+        Expect.AreEqual 3, spec.Precision, "Precision after CustomSpecifier = ""3"""
+        spec.Alignment = 0
+        spec.identifier = ""
+        spec.CustomSpecifier = ""
+        Expect.AreEqual "{2}", spec.ToString(), "ToString with no alignment, identifier or custom text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToString_AlignmentAndIdentifier()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        spec.Index = 1
+        spec.Alignment = 8
+        spec.identifier = "F"
+        spec.CustomSpecifier = "2"
+        Expect.AreEqual "{1,8:F2}", spec.ToString(), "ToString"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Index_IsNotCheckedWhenAssigned()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        spec.Index = -1
+        Expect.AreEqual -1, spec.Index, "Index after it was set to -1"
+        Expect.AreEqual "{-1}", spec.ToString(), "ToString of index -1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alignment_ProducesTheComma()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        spec.Alignment = -8
+        Expect.AreEqual "{0,-8}", spec.ToString(), "ToString with alignment -8"
+        Expect.AreEqual -8, spec.Alignment, "Alignment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Identifier_KeepsTheCaseAsWritten()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        spec.identifier = "x"
+        Expect.AreEqual "x", spec.identifier, "identifier"
+        Dim f As IStringFormatIdentifier = HexSFI
+        Expect.AreEqual "&hff", f.GetFormattedValue(255, spec), "HexSFI.GetFormattedValue(255) with identifier x"
+        Expect.IsFalse CurrencySFI_Matches(spec), "CurrencySFI.IsIdentifierMatch of x"
+        Expect.Done
+    End Sub
+
+    Private Function CurrencySFI_Matches(ByVal spec As StringFormatSpecifier) As Boolean
+        Dim f As IStringFormatIdentifier = CurrencySFI
+        CurrencySFI_Matches = f.IsIdentifierMatch(spec)
+    End Function
+
+    [TestCase]
+    Public Sub CustomSpecifier_Numeric_SetsThePrecision()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        spec.CustomSpecifier = "3"
+        Expect.AreEqual 3, spec.Precision, "Precision after ""3"""
+        spec.CustomSpecifier = "12"
+        Expect.AreEqual 12, spec.Precision, "Precision after ""12"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomSpecifier_NotNumeric_KeepsThePrecision()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        spec.CustomSpecifier = "3"
+        spec.CustomSpecifier = "abc"
+        Expect.AreEqual 3, spec.Precision, "Precision after ""abc"" followed ""3"""
+        Expect.AreEqual "abc", spec.CustomSpecifier, "CustomSpecifier"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomSpecifier_Zero_KeepsThePrecision()
+        Expect.Begin
+        Dim spec As New StringFormatSpecifier
+        spec.CustomSpecifier = "3"
+        spec.CustomSpecifier = "0"
+        Expect.AreEqual 3, spec.Precision, "Precision after ""0"" followed ""3"""
+        Expect.AreEqual "0", spec.CustomSpecifier, "CustomSpecifier"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Precision_IsTheNumberAfterTheLetter()
+        Expect.Begin
+        Dim f As IStringFormatIdentifier = FixedPointSFI
+        Expect.AreEqual "3" & Loc.Dec() & "142", f.GetFormattedValue(3.14159, Loc.Spec("F", "3")), "FixedPointSFI.GetFormattedValue(3.14159, F3)"
+        Expect.AreEqual 0, Loc.Spec("F").Precision, "Precision of {0:F}"
+        Expect.AreEqual 0, Loc.Spec("F", "0").Precision, "Precision of {0:F0}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringHelper_StringFormat_TakesAnArray()
+        Expect.Begin
+        Dim values(0 To 1) As Variant
+        values(0) = "x"
+        values(1) = 2.5
+        Expect.AreEqual "x-2" & Loc.Dec() & "5", StringHelper.StringFormat("{0}-{1:F1}", values), "StringHelper.StringFormat(""{0}-{1:F1}"", array)"
+        Expect.AreEqual "salt and pepper", StringHelper.StringFormat("{0} and {1}", Array("salt", "pepper")), "StringHelper.StringFormat(""{0} and {1}"", Array(...))"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringHelper_NewInstance_BehavesLikeThePredeclaredOne()
+        Expect.Begin
+        Dim h As New StringHelper
+        Expect.AreEqual "a-b", h.StringFormat("{0}-{1}", Array("a", "b")), "StringFormat of a new StringHelper"
+        Expect.AreEqual "[ab    ]", h.StringFormat("[{0,-6}]", Array("ab")), "alignment pads with spaces"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringHelper_Errors_HaveTheSourceStringHelper()
+        Expect.Begin
+        On Error Resume Next
+        Dim r As String = StringHelper.StringFormat("{0} {1}", Array("only one"))
+        Expect.AreEqual Loc.FormatError, Err.Number, "Err.Number of StringHelper.StringFormat with a missing value"
+        Expect.AreEqual "StringHelper", Err.Source, "Err.Source"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/Sources/StringValidationTests.twin b/test/package-tests/Fmt/Sources/StringValidationTests.twin
new file mode 100644
index 00000000..768c1842
--- /dev/null
+++ b/test/package-tests/Fmt/Sources/StringValidationTests.twin
@@ -0,0 +1,95 @@
+' Fmt: the StringValidation module, five public functions that the formatter uses. The package
+' declares the module with Option Private Module, and a project that references the package can
+' still call its functions.
+[TestFixture]
+Module StringValidationTests
+
+    [TestCase]
+    Public Sub Functions_CanBeCalledDespiteOptionPrivateModule()
+        Expect.Begin
+        Expect.IsTrue StringContains("Hello", "ELL"), "StringContains(""Hello"", ""ELL"")"
+        Expect.IsTrue StringValidation.StringContains("Hello", "ELL"), "StringValidation.StringContains(""Hello"", ""ELL"")"
+        Expect.IsTrue StringContainsAny("Hello", False, "x", "L"), "StringContainsAny(""Hello"", False, ""x"", ""L"")"
+        Expect.IsTrue StringMatchesAny("b", "a", "b", "c"), "StringMatchesAny(""b"", ""a"", ""b"", ""c"")"
+        Expect.IsTrue StringStartsWith("He", "Hello"), "StringStartsWith(""He"", ""Hello"")"
+        Expect.AreEqual "WORLD", CopyCapitalisation("HELLO", "world"), "CopyCapitalisation(""HELLO"", ""world"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringContains_IgnoresCaseUnlessAsked()
+        Expect.Begin
+        Expect.IsTrue StringContains("Hello", "ELL"), "StringContains(""Hello"", ""ELL"")"
+        Expect.IsFalse StringContains("Hello", "ELL", True), "StringContains(""Hello"", ""ELL"", True)"
+        Expect.IsTrue StringContains("Hello", "ell", True), "StringContains(""Hello"", ""ell"", True)"
+        Expect.IsFalse StringContains("Hello", "xyz"), "StringContains(""Hello"", ""xyz"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringContains_EmptyNeedle_IsTrue()
+        Expect.Begin
+        Expect.IsTrue StringContains("Hello", ""), "StringContains(""Hello"", """")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringContains_Null_RaisesInvalidUseOfNull()
+        Expect.Begin
+        Dim r As Boolean
+        On Error Resume Next
+        r = StringContains(Null, "a")
+        Expect.AreEqual 94, Err.Number, "Err.Number of StringContains(Null, ""a"")"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringContainsAny_FindsAnyNeedle()
+        Expect.Begin
+        Expect.IsTrue StringContainsAny("Hello", False, "x", "L"), "StringContainsAny(""Hello"", False, ""x"", ""L"")"
+        Expect.IsFalse StringContainsAny("Hello", True, "x", "L"), "StringContainsAny(""Hello"", True, ""x"", ""L"")"
+        Expect.IsTrue StringContainsAny("Hello", True, "x", "l"), "StringContainsAny(""Hello"", True, ""x"", ""l"")"
+        Expect.IsFalse StringContainsAny("Hello", False), "StringContainsAny(""Hello"", False) with no needle"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringMatchesAny_ComparesWholeStringsExactly()
+        Expect.Begin
+        Expect.IsTrue StringMatchesAny("b", "a", "b", "c"), "StringMatchesAny(""b"", ""a"", ""b"", ""c"")"
+        Expect.IsFalse StringMatchesAny("B", "a", "b", "c"), "StringMatchesAny(""B"", ""a"", ""b"", ""c"")"
+        Expect.IsTrue StringMatchesAny("1", 1, 2), "StringMatchesAny(""1"", 1, 2)"
+        Expect.IsFalse StringMatchesAny("ab", "a", "b"), "StringMatchesAny(""ab"", ""a"", ""b"")"
+        Expect.IsFalse StringMatchesAny("a"), "StringMatchesAny(""a"") with no value"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringStartsWith_ArgumentOrder_IsStartThenSource()
+        Expect.Begin
+        Expect.IsTrue StringStartsWith("He", "Hello"), "StringStartsWith(""He"", ""Hello"")"
+        Expect.IsFalse StringStartsWith("Hello", "He"), "StringStartsWith(""Hello"", ""He"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringStartsWith_IsBinary_EmptyStartIsTrue()
+        Expect.Begin
+        Expect.IsFalse StringStartsWith("he", "Hello"), "StringStartsWith(""he"", ""Hello"")"
+        Expect.IsTrue StringStartsWith("", "Hello"), "StringStartsWith("""", ""Hello"")"
+        Expect.IsFalse StringStartsWith("Hello world", "Hello"), "StringStartsWith(""Hello world"", ""Hello"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CopyCapitalisation_FollowsTheWholeSource()
+        Expect.Begin
+        Expect.AreEqual "WORLD", CopyCapitalisation("HELLO", "world"), "CopyCapitalisation(""HELLO"", ""world"")"
+        Expect.AreEqual "world", CopyCapitalisation("HeLLo", "world"), "CopyCapitalisation(""HeLLo"", ""world"")"
+        Expect.AreEqual "world", CopyCapitalisation("hello", "WORLD"), "CopyCapitalisation(""hello"", ""WORLD"")"
+        Expect.AreEqual "WORLD", CopyCapitalisation("123", "world"), "CopyCapitalisation(""123"", ""world"")"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Fmt/expect.json b/test/package-tests/Fmt/expect.json
new file mode 100644
index 00000000..148660b4
--- /dev/null
+++ b/test/package-tests/Fmt/expect.json
@@ -0,0 +1,20 @@
+{
+  "version": "1.0.0.0",
+  "cases": {
+    "GeneralTests.Single_GivesTheValue": {
+      "fails": "1 of 1 checks failed: StringFormat(\"{0:G}\", 1.5!) against the same value as a Double: expected \"1.50000E0\", got \"\""
+    },
+    "GeneralTests.Currency_GivesTheValue": {
+      "fails": "1 of 1 checks failed: StringFormat(\"{0:G}\", 1.5@) against the same value as a Double: expected \"1.50000E0\", got \"\""
+    },
+    "GeneralTests.Byte_GivesTheValue": {
+      "fails": "1 of 1 checks failed: StringFormat(\"{0:G}\", CByte(7)): expected \"7\", got \"\""
+    },
+    "GeneralTests.Decimal_GivesTheValue": {
+      "fails": "1 of 1 checks failed: StringFormat(\"{0:G}\", CDec(1.5)) against the same value as a Double: expected \"1.50000E0\", got \"\""
+    },
+    "GeneralTests.NumericString_GivesTheValue": {
+      "fails": "1 of 1 checks failed: StringFormat(\"{0:G}\", \"12\"): expected \"12\", got \"\""
+    }
+  }
+}
diff --git a/test/package-tests/Generics/Sources/ItemTests.twin b/test/package-tests/Generics/Sources/ItemTests.twin
new file mode 100644
index 00000000..a6bfefa1
--- /dev/null
+++ b/test/package-tests/Generics/Sources/ItemTests.twin
@@ -0,0 +1,104 @@
+' Generics: the Item properties of TupleOf1 and TupleOf2 to TupleOf7. A tuple holds the values it was
+' created with, in order, each with its declared type. TupleOf4 has no case: it cannot be declared.
+[TestFixture]
+Module ItemTests
+
+    [TestCase]
+    Public Sub TupleOf1_ReturnsItem()
+        Expect.Begin
+        Dim t As TupleOf1(Of Long) = New TupleOf1(Of Long)(640)
+        Expect.AreEqual 640, t.Item1, "TupleOf1(Of Long)(640).Item1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TupleOf2_ReturnsItemsInOrder()
+        Expect.Begin
+        Dim t As TupleOf2(Of String, Long) = New TupleOf2(Of String, Long)("width", 640)
+        Expect.AreEqual "width", t.Item1, "TupleOf2(Of String, Long)(""width"", 640).Item1"
+        Expect.AreEqual 640, t.Item2, "TupleOf2(Of String, Long)(""width"", 640).Item2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TupleOf3_ReturnsItemsInOrder()
+        Expect.Begin
+        Dim t As TupleOf3(Of String, Long, Date) = New TupleOf3(Of String, Long, Date)("Ada", 36, #12/10/1815#)
+        Expect.AreEqual "Ada", t.Item1, "TupleOf3(Of String, Long, Date)(""Ada"", 36, #12/10/1815#).Item1"
+        Expect.AreEqual 36, t.Item2, "TupleOf3(Of String, Long, Date)(""Ada"", 36, #12/10/1815#).Item2"
+        Expect.AreEqual 1815, Year(t.Item3), "Year of TupleOf3(Of String, Long, Date)(""Ada"", 36, #12/10/1815#).Item3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TupleOf5_ReturnsItemsInOrder()
+        Expect.Begin
+        Dim t As TupleOf5(Of Long, Long, Long, Long, Long) = New TupleOf5(Of Long, Long, Long, Long, Long)(1, 2, 3, 4, 5)
+        Expect.AreEqual 1, t.Item1, "TupleOf5(Of Long x 5)(1, 2, 3, 4, 5).Item1"
+        Expect.AreEqual 2, t.Item2, "TupleOf5(Of Long x 5)(1, 2, 3, 4, 5).Item2"
+        Expect.AreEqual 3, t.Item3, "TupleOf5(Of Long x 5)(1, 2, 3, 4, 5).Item3"
+        Expect.AreEqual 4, t.Item4, "TupleOf5(Of Long x 5)(1, 2, 3, 4, 5).Item4"
+        Expect.AreEqual 5, t.Item5, "TupleOf5(Of Long x 5)(1, 2, 3, 4, 5).Item5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TupleOf6_ReturnsItemsInOrder()
+        Expect.Begin
+        Dim t As TupleOf6(Of Long, Long, Long, Long, Long, Long) = New TupleOf6(Of Long, Long, Long, Long, Long, Long)(1, 2, 3, 4, 5, 6)
+        Expect.AreEqual 1, t.Item1, "TupleOf6(Of Long x 6)(1 to 6).Item1"
+        Expect.AreEqual 2, t.Item2, "TupleOf6(Of Long x 6)(1 to 6).Item2"
+        Expect.AreEqual 3, t.Item3, "TupleOf6(Of Long x 6)(1 to 6).Item3"
+        Expect.AreEqual 4, t.Item4, "TupleOf6(Of Long x 6)(1 to 6).Item4"
+        Expect.AreEqual 5, t.Item5, "TupleOf6(Of Long x 6)(1 to 6).Item5"
+        Expect.AreEqual 6, t.Item6, "TupleOf6(Of Long x 6)(1 to 6).Item6"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TupleOf7_ReturnsItemsInOrder()
+        Expect.Begin
+        Dim t As TupleOf7(Of Long, Long, Long, Long, Long, Long, Long) = New TupleOf7(Of Long, Long, Long, Long, Long, Long, Long)(1, 2, 3, 4, 5, 6, 7)
+        Expect.AreEqual 1, t.Item1, "TupleOf7(Of Long x 7)(1 to 7).Item1"
+        Expect.AreEqual 2, t.Item2, "TupleOf7(Of Long x 7)(1 to 7).Item2"
+        Expect.AreEqual 3, t.Item3, "TupleOf7(Of Long x 7)(1 to 7).Item3"
+        Expect.AreEqual 4, t.Item4, "TupleOf7(Of Long x 7)(1 to 7).Item4"
+        Expect.AreEqual 5, t.Item5, "TupleOf7(Of Long x 7)(1 to 7).Item5"
+        Expect.AreEqual 6, t.Item6, "TupleOf7(Of Long x 7)(1 to 7).Item6"
+        Expect.AreEqual 7, t.Item7, "TupleOf7(Of Long x 7)(1 to 7).Item7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Items_KeepTheirDeclaredTypes()
+        Expect.Begin
+        Dim t As TupleOf5(Of Byte, Currency, Boolean, Double, String) = New TupleOf5(Of Byte, Currency, Boolean, Double, String)(200, 19.99@, True, 2.5, "x")
+        Expect.AreEqual "Byte", TypeName(t.Item1), "TypeName of Item1 of a tuple declared with Byte"
+        Expect.AreEqual "Currency", TypeName(t.Item2), "TypeName of Item2 of a tuple declared with Currency"
+        Expect.AreEqual "Boolean", TypeName(t.Item3), "TypeName of Item3 of a tuple declared with Boolean"
+        Expect.AreEqual "Double", TypeName(t.Item4), "TypeName of Item4 of a tuple declared with Double"
+        Expect.AreEqual "String", TypeName(t.Item5), "TypeName of Item5 of a tuple declared with String"
+        Expect.AreEqual 19.99@, t.Item2, "Currency item 19.99"
+        Expect.IsTrue t.Item3, "Boolean item True"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Items_LongPtr()
+        Expect.Begin
+        Dim t As TupleOf1(Of LongPtr) = New TupleOf1(Of LongPtr)(12345)
+        Expect.AreEqual 12345, CLng(t.Item1), "TupleOf1(Of LongPtr)(12345).Item1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Items_DateKeepsTimeOfDay()
+        Expect.Begin
+        Dim t As TupleOf1(Of Date) = New TupleOf1(Of Date)(#3/4/2020 5:06:07 PM#)
+        Expect.AreEqual 17, Hour(t.Item1), "Hour of a Date item 5:06:07 PM"
+        Expect.AreEqual 6, Minute(t.Item1), "Minute of a Date item 5:06:07 PM"
+        Expect.AreEqual 7, Second(t.Item1), "Second of a Date item 5:06:07 PM"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Generics/Sources/ObjectItemTests.twin b/test/package-tests/Generics/Sources/ObjectItemTests.twin
new file mode 100644
index 00000000..79002456
--- /dev/null
+++ b/test/package-tests/Generics/Sources/ObjectItemTests.twin
@@ -0,0 +1,42 @@
+' Generics: a tuple that holds an object. The tuple classes store each item with =, not with Set, so
+' a tuple of an object type cannot be created. A tuple of a class such as Collection does not
+' compile, and the compile error stops the whole project, so it has no case here.
+[TestFixture]
+Module ObjectItemTests
+
+    [TestCase]
+    Public Sub New_ObjectItemHoldsAnObject()
+        Expect.Begin
+        Dim c As Object
+        Set c = New Collection
+        Dim t As TupleOf1(Of Object)
+        Dim n As Long, d As String
+        On Error Resume Next
+        Set t = New TupleOf1(Of Object)(c)
+        n = Err.Number
+        d = Err.Description
+        On Error GoTo 0
+        Expect.AreEqual 0, n, "Err.Number of New TupleOf1(Of Object) given a Collection (" & d & ")"
+        If Not t Is Nothing Then
+            Expect.IsTrue t.Item1 Is c, "Item1 of a TupleOf1(Of Object) created with a Collection"
+        Else
+            Expect.Fail "New TupleOf1(Of Object) given a Collection returned no tuple"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_ObjectItemHoldsNothing()
+        Expect.Begin
+        Dim t As TupleOf1(Of Object)
+        Dim n As Long, d As String
+        On Error Resume Next
+        Set t = New TupleOf1(Of Object)(Nothing)
+        n = Err.Number
+        d = Err.Description
+        On Error GoTo 0
+        Expect.AreEqual 0, n, "Err.Number of New TupleOf1(Of Object) given Nothing (" & d & ")"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Generics/Sources/RunAll.twin b/test/package-tests/Generics/Sources/RunAll.twin
new file mode 100644
index 00000000..d29377be
--- /dev/null
+++ b/test/package-tests/Generics/Sources/RunAll.twin
@@ -0,0 +1,86 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package Generics, version 1.0.0.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "Generics 1.0.0.0: 18 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        ItemTests.TupleOf1_ReturnsItem
+        Expect.EndCase "ItemTests.TupleOf1_ReturnsItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.TupleOf2_ReturnsItemsInOrder
+        Expect.EndCase "ItemTests.TupleOf2_ReturnsItemsInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.TupleOf3_ReturnsItemsInOrder
+        Expect.EndCase "ItemTests.TupleOf3_ReturnsItemsInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.TupleOf5_ReturnsItemsInOrder
+        Expect.EndCase "ItemTests.TupleOf5_ReturnsItemsInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.TupleOf6_ReturnsItemsInOrder
+        Expect.EndCase "ItemTests.TupleOf6_ReturnsItemsInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.TupleOf7_ReturnsItemsInOrder
+        Expect.EndCase "ItemTests.TupleOf7_ReturnsItemsInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Items_KeepTheirDeclaredTypes
+        Expect.EndCase "ItemTests.Items_KeepTheirDeclaredTypes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Items_LongPtr
+        Expect.EndCase "ItemTests.Items_LongPtr", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ItemTests.Items_DateKeepsTimeOfDay
+        Expect.EndCase "ItemTests.Items_DateKeepsTimeOfDay", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ObjectItemTests.New_ObjectItemHoldsAnObject
+        Expect.EndCase "ObjectItemTests.New_ObjectItemHoldsAnObject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ObjectItemTests.New_ObjectItemHoldsNothing
+        Expect.EndCase "ObjectItemTests.New_ObjectItemHoldsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TupleTests.Function_ReturnsTuple
+        Expect.EndCase "TupleTests.Function_ReturnsTuple", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TupleTests.New_KeepsACopyOfEachItem
+        Expect.EndCase "TupleTests.New_KeepsACopyOfEachItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TupleTests.New_ConversionOfAByteVariable
+        Expect.EndCase "TupleTests.New_ConversionOfAByteVariable", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TupleTests.LateBound_ReadsItemsThroughObject
+        Expect.EndCase "TupleTests.LateBound_ReadsItemsThroughObject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TupleTests.TypeName_IsTheClassWithoutItsTypeArguments
+        Expect.EndCase "TupleTests.TypeName_IsTheClassWithoutItsTypeArguments", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TupleTests.Is_TwoTuplesWithEqualItemsAreTwoObjects
+        Expect.EndCase "TupleTests.Is_TwoTuplesWithEqualItemsAreTwoObjects", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TupleTests.Variable_NotAssignedIsNothing
+        Expect.EndCase "TupleTests.Variable_NotAssignedIsNothing", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/Generics/Sources/TupleTests.twin b/test/package-tests/Generics/Sources/TupleTests.twin
new file mode 100644
index 00000000..d8c1fdc7
--- /dev/null
+++ b/test/package-tests/Generics/Sources/TupleTests.twin
@@ -0,0 +1,95 @@
+' Generics: creating a tuple and using it as an object: a function that returns one, a copy of each
+' item, late-bound access, TypeName and Is.
+[TestFixture]
+Module TupleTests
+
+    Private Function MinMax(values() As Double) As TupleOf2(Of Double, Double)
+        Dim lo As Double = values(LBound(values))
+        Dim hi As Double = lo
+        Dim i As Long
+        For i = LBound(values) + 1 To UBound(values)
+            If values(i) < lo Then lo = values(i)
+            If values(i) > hi Then hi = values(i)
+        Next
+        Return New TupleOf2(Of Double, Double)(lo, hi)
+    End Function
+
+    [TestCase]
+    Public Sub Function_ReturnsTuple()
+        Expect.Begin
+        Dim data(2) As Double
+        data(0) = 4.5
+        data(1) = -2
+        data(2) = 9
+        Dim r As TupleOf2(Of Double, Double) = MinMax(data)
+        Expect.AreEqual -2, r.Item1, "Item1 of the tuple a function returned, the smallest of 4.5, -2, 9"
+        Expect.AreEqual 9, r.Item2, "Item2 of the tuple a function returned, the largest of 4.5, -2, 9"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_KeepsACopyOfEachItem()
+        Expect.Begin
+        Dim n As Long = 200
+        Dim s As String = "before"
+        Dim t As TupleOf2(Of Long, String) = New TupleOf2(Of Long, String)(n, s)
+        n = 1
+        s = "after"
+        Expect.AreEqual 200, t.Item1, "Item1 after the Long variable it was created from changed"
+        Expect.AreEqual "before", t.Item2, "Item2 after the String variable it was created from changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_ConversionOfAByteVariable()
+        Expect.Begin
+        Dim b As Byte = 200
+        Dim t As TupleOf1(Of Long) = New TupleOf1(Of Long)(CLng(b))
+        b = 1
+        Expect.AreEqual 200, t.Item1, "Item1 of TupleOf1(Of Long) created from CLng of a Byte variable, then the variable changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LateBound_ReadsItemsThroughObject()
+        Expect.Begin
+        Dim t As TupleOf2(Of String, Long) = New TupleOf2(Of String, Long)("width", 640)
+        Dim o As Object
+        Set o = t
+        Expect.AreEqual "width", o.Item1, "Item1 read through an Object variable"
+        Expect.AreEqual 640, o.Item2, "Item2 read through an Object variable"
+        Dim v As Variant
+        Set v = t
+        Expect.AreEqual "width", v.Item1, "Item1 read through a Variant variable"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TypeName_IsTheClassWithoutItsTypeArguments()
+        Expect.Begin
+        Dim t As TupleOf2(Of Long, String) = New TupleOf2(Of Long, String)(1, "x")
+        Expect.AreEqual "TupleOf2", TypeName(t), "TypeName of a TupleOf2(Of Long, String)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Is_TwoTuplesWithEqualItemsAreTwoObjects()
+        Expect.Begin
+        Dim a As TupleOf2(Of Long, String) = New TupleOf2(Of Long, String)(1, "x")
+        Dim b As TupleOf2(Of Long, String) = New TupleOf2(Of Long, String)(1, "x")
+        Dim c As TupleOf2(Of Long, String) = a
+        Expect.IsFalse a Is b, "Is of two tuples created with equal items"
+        Expect.IsTrue a Is c, "Is of a tuple and a second variable assigned the same tuple"
+        Expect.IsTrue a.Item1 = b.Item1 And a.Item2 = b.Item2, "the items of two tuples created with equal items are equal"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Variable_NotAssignedIsNothing()
+        Expect.Begin
+        Dim t As TupleOf1(Of Long)
+        Expect.IsTrue t Is Nothing, "a variable declared with a tuple type and not assigned"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/Generics/compile/CompileTests.twin b/test/package-tests/Generics/compile/CompileTests.twin
new file mode 100644
index 00000000..1740c7ce
--- /dev/null
+++ b/test/package-tests/Generics/compile/CompileTests.twin
@@ -0,0 +1,22 @@
+' Generics: what the compiler refuses. Each line ends in a comment ' CASE <Name>: <code>.
+' A tuple type that no declaration of the project names is not declared anywhere else in this folder.
+Module CompileTests
+
+    Public Sub New_WithoutADeclaration()
+        Dim a As Any = New TupleOf2(Of Date, Currency)(#1/1/2000#, 1@) ' CASE NewWithoutDeclaration: TB5074
+    End Sub
+
+    Public Sub New_ByteVariableForLongItem()
+        Dim b As Byte = 1
+        Dim t As TupleOf1(Of Long) = New TupleOf1(Of Long)(b) ' CASE ByteVariableForLongItem: TB5001
+    End Sub
+
+    Public Sub Declare_VariantTypeArgument()
+        Dim v As TupleOf1(Of Variant) ' CASE VariantTypeArgument: TB5124
+    End Sub
+
+    Public Sub Declare_TupleOf4WithFourTypeArguments()
+        Dim q As TupleOf4(Of Long, Long, Long, Long) ' CASE TupleOf4FourTypeArguments: TB5124
+    End Sub
+
+End Module
diff --git a/test/package-tests/Generics/expect.json b/test/package-tests/Generics/expect.json
new file mode 100644
index 00000000..785de1b9
--- /dev/null
+++ b/test/package-tests/Generics/expect.json
@@ -0,0 +1,11 @@
+{
+  "version": "1.0.0.0",
+  "cases": {
+    "ObjectItemTests.New_ObjectItemHoldsAnObject": {
+      "fails": "2 of 2 checks failed: Err.Number of New TupleOf1(Of Object) given a Collection (Object variable or With block variable not set): expected 0, got 91; New TupleOf1(Of Object) given a Collection returned no tuple"
+    },
+    "ObjectItemTests.New_ObjectItemHoldsNothing": {
+      "fails": "1 of 1 checks failed: Err.Number of New TupleOf1(Of Object) given Nothing (Object variable or With block variable not set): expected 0, got 91"
+    }
+  }
+}
diff --git a/test/package-tests/OLEGuids/Sources/DispatchTests.twin b/test/package-tests/OLEGuids/Sources/DispatchTests.twin
new file mode 100644
index 00000000..d0d0dacb
--- /dev/null
+++ b/test/package-tests/OLEGuids/Sources/DispatchTests.twin
@@ -0,0 +1,260 @@
+' IDispatchUnrestricted: the four methods of IDispatch called on an object, and the stdole declaration
+' of IDispatch, which does not reach them.
+[TestFixture]
+Module DispatchTests
+
+    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+    Private Declare PtrSafe Function SysStringLen Lib "oleaut32" (ByVal bstr As LongPtr) As Long
+    Private Declare PtrSafe Sub SysFreeString Lib "oleaut32" (ByVal bstr As LongPtr)
+
+    Private Const DISP_E_MEMBERNOTFOUND As Long = &H80020003
+    Private Const DISP_E_UNKNOWNNAME As Long = &H80020006
+    Private Const DISP_E_BADINDEX As Long = &H8002000B
+    Private Const DISP_E_EXCEPTION As Long = &H80020009
+
+    ' The EXCEPINFO structure, with signed members.
+    Private Type EXCEPINFO
+        wCode As Integer
+        wReserved As Integer
+        bstrSource As LongPtr
+        bstrDescription As LongPtr
+        bstrHelpFile As LongPtr
+        dwHelpContext As Long
+        pvReserved As LongPtr
+        pfnDeferredFillIn As LongPtr
+        scode As Long
+    End Type
+
+    ' The dispatch identifier of a member, or the value GetIDsOfNames left for a name it does not know.
+    Private Function IdOf(ByVal d As IDispatchUnrestricted, ByVal MemberName As String) As Long
+        Dim iid As OLECLSID
+        Dim namePtr As LongPtr = StrPtr(MemberName)
+        Dim id As Long = 0
+        d.GetIDsOfNames iid, namePtr, 1, 0, id
+        Return id
+    End Function
+
+    Private Function TextOf(ByVal Bstr As LongPtr) As String
+        If Bstr = 0 Then Exit Function
+        Dim n As Long = SysStringLen(Bstr)
+        Dim s As String = Space$(n)
+        CopyMemory StrPtr(s), Bstr, n * 2
+        Return s
+    End Function
+
+    [TestCase]
+    Public Sub GetTypeInfoCount_ClassObjectHasTypeInformation()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim count As Long = -1
+        d.GetTypeInfoCount count
+        Expect.AreEqual 1, count, "GetTypeInfoCount of an object of a twinBASIC class"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetTypeInfo_IndexZeroReturnsTypeInformation()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim p As LongPtr = 0
+        d.GetTypeInfo 0, 0, p
+        Expect.IsTrue p <> 0, "ITypeInfo pointer GetTypeInfo returned for index 0"
+        If p <> 0 Then
+            Dim v As IUnknownUnrestricted
+            CopyMemory VarPtr(v), VarPtr(p), Len(p)
+            Set v = Nothing
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetTypeInfo_OtherIndexRaisesBadIndex()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim p As LongPtr = 0
+        On Error Resume Next
+        d.GetTypeInfo 1, 0, p
+        Dim errNum As Long = Err.Number
+        Dim hr As Long = Err.LastHresult
+        On Error GoTo 0
+        Expect.AreEqual DISP_E_BADINDEX, errNum, "Err.Number of GetTypeInfo with index 1"
+        Expect.AreEqual DISP_E_BADINDEX, hr, "Err.LastHresult of GetTypeInfo with index 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetIDsOfNames_KnownNameReturnsAnIdentifier()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim id As Long = IdOf(d, "Subtract")
+        Expect.IsTrue id <> -1, "dispatch identifier GetIDsOfNames returned for Subtract (-1 is DISPID_UNKNOWN)"
+        Expect.AreEqual IdOf(d, "subtract"), id, "identifier for subtract in lower case, as the identifier for Subtract"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetIDsOfNames_UnknownNameRaisesError438()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim iid As OLECLSID
+        Dim namePtr As LongPtr = StrPtr("Add")
+        Dim id As Long = 0
+        On Error Resume Next
+        d.GetIDsOfNames iid, namePtr, 1, 0, id
+        Dim errNum As Long = Err.Number
+        Dim hr As Long = Err.LastHresult
+        On Error GoTo 0
+        Expect.AreEqual 438, errNum, "Err.Number of GetIDsOfNames for a name the object does not have"
+        Expect.AreEqual DISP_E_UNKNOWNNAME, hr, "Err.LastHresult of GetIDsOfNames for a name the object does not have"
+        Expect.AreEqual -1, id, "identifier left by GetIDsOfNames for a name the object does not have"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Invoke_CallsAMethodWithTheArgumentsInReverseOrder()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim iid As OLECLSID
+        Dim id As Long = IdOf(d, "Subtract")
+        Dim args(0 To 1) As Variant
+        args(0) = 3
+        args(1) = 10
+        Dim params As OLEDISPPARAMS
+        params.rgvarg = VarPtr(args(0))
+        params.cArgs = 2
+        Dim result As Variant
+        Dim argErr As Long
+        d.Invoke id, iid, 0, 1, VarPtr(params), VarPtr(result), 0, argErr
+        Expect.AreEqual 7, result, "Subtract(10, 3) called with element 0 holding 3 and element 1 holding 10"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Invoke_AssignsAPropertyWithPropertyPut()
+        Expect.Begin
+        Dim g As New Calculator
+        Dim d As IDispatchUnrestricted = g
+        Dim iid As OLECLSID
+        Dim id As Long = IdOf(d, "Level")
+        Dim newValue(0 To 0) As Variant
+        newValue(0) = 25
+        Dim putId As Long = -3
+        Dim params As OLEDISPPARAMS
+        params.rgvarg = VarPtr(newValue(0))
+        params.rgdispidNamedArgs = VarPtr(putId)
+        params.cArgs = 1
+        params.cNamedArgs = 1
+        Dim argErr As Long
+        d.Invoke id, iid, 0, 4, VarPtr(params), 0, 0, argErr
+        Expect.AreEqual 25, g.Level, "Level after Invoke with DISPATCH_PROPERTYPUT and the value 25"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Invoke_MemberErrorWithoutExcepinfoIsRaisedAsItIs()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim iid As OLECLSID
+        Dim id As Long = IdOf(d, "Boom")
+        Dim params As OLEDISPPARAMS
+        Dim argErr As Long
+        On Error Resume Next
+        d.Invoke id, iid, 0, 1, VarPtr(params), 0, 0, argErr
+        Dim errNum As Long = Err.Number
+        Dim errText As String = Err.Description
+        On Error GoTo 0
+        Expect.AreEqual 5, errNum, "Err.Number of Invoke of a member that raises error 5, with lpexcepinfo 0"
+        Expect.AreEqual "boom", errText, "Err.Description of Invoke of a member that raises error 5, with lpexcepinfo 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Invoke_MemberErrorWithExcepinfoRaisesDispEException()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim iid As OLECLSID
+        Dim id As Long = IdOf(d, "Boom")
+        Dim params As OLEDISPPARAMS
+        Dim ex As EXCEPINFO
+        Dim argErr As Long
+        On Error Resume Next
+        d.Invoke id, iid, 0, 1, VarPtr(params), 0, VarPtr(ex), argErr
+        Dim errNum As Long = Err.Number
+        On Error GoTo 0
+        Dim description As String = TextOf(ex.bstrDescription)
+        Dim source As String = TextOf(ex.bstrSource)
+        If ex.bstrDescription <> 0 Then SysFreeString ex.bstrDescription
+        If ex.bstrSource <> 0 Then SysFreeString ex.bstrSource
+        Expect.AreEqual DISP_E_EXCEPTION, errNum, "Err.Number of Invoke of a member that raises error 5, with lpexcepinfo set"
+        Expect.AreEqual &H800A0005, ex.scode, "scode in EXCEPINFO for error 5"
+        Expect.AreEqual "boom", description, "bstrDescription in EXCEPINFO"
+        Expect.AreEqual "Calculator", source, "bstrSource in EXCEPINFO"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Invoke_UnknownIdentifierRaisesError438()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Calculator
+        Dim iid As OLECLSID
+        Dim params As OLEDISPPARAMS
+        Dim argErr As Long
+        On Error Resume Next
+        d.Invoke 987654, iid, 0, 1, VarPtr(params), 0, 0, argErr
+        Dim errNum As Long = Err.Number
+        Dim hr As Long = Err.LastHresult
+        On Error GoTo 0
+        Expect.AreEqual 438, errNum, "Err.Number of Invoke with an identifier the object has no member for"
+        Expect.AreEqual DISP_E_MEMBERNOTFOUND, hr, "Err.LastHresult of Invoke with an identifier the object has no member for"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StdoleIDispatch_CallIsLateBoundAndDoesNotReachTheMethods()
+        Expect.Begin
+        Dim c As New Collection
+        Dim d As IDispatch = c
+        Dim count As Long = -1
+        On Error Resume Next
+        d.GetTypeInfoCount count
+        Dim errNum As Long = Err.Number
+        On Error GoTo 0
+        Expect.AreEqual 438, errNum, "Err.Number of GetTypeInfoCount called through a variable declared As IDispatch (a late-bound call by name)"
+        Expect.AreEqual -1, count, "argument of GetTypeInfoCount called through a variable declared As IDispatch"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Assign_ObjectVariableToIDispatchUnrestricted()
+        Expect.Begin
+        Dim o As Object = New Calculator
+        Dim d As IDispatchUnrestricted = o
+        Dim count As Long = -1
+        d.GetTypeInfoCount count
+        Expect.AreEqual 1, count, "GetTypeInfoCount through IDispatchUnrestricted assigned from an Object variable"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Assign_StdoleIDispatchVariableToIDispatchUnrestricted()
+        Expect.Begin
+        Dim s As stdole.IDispatch = New Calculator
+        Dim d As IDispatchUnrestricted = s
+        Dim count As Long = -1
+        d.GetTypeInfoCount count
+        Expect.AreEqual 1, count, "GetTypeInfoCount through IDispatchUnrestricted assigned from a stdole.IDispatch variable"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Assign_CollectionAsksForIDispatch()
+        Expect.Begin
+        Dim d As IDispatchUnrestricted = New Collection
+        Dim count As Long = -1
+        d.GetTypeInfoCount count
+        Expect.AreEqual 1, count, "GetTypeInfoCount of a Collection through IDispatchUnrestricted"
+        Expect.IsTrue Guids.Supports(New Collection, "{00020400-0000-0000-C000-000000000046}"), "a Collection answers QueryInterface for the identifier of IDispatch"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/OLEGuids/Sources/EnumVariantTests.twin b/test/package-tests/OLEGuids/Sources/EnumVariantTests.twin
new file mode 100644
index 00000000..1cbec694
--- /dev/null
+++ b/test/package-tests/OLEGuids/Sources/EnumVariantTests.twin
@@ -0,0 +1,37 @@
+' IEnumVARIANTUnrestricted: the method table the declaration gives. The interface has the identifier of
+' IEnumVARIANT, so a call through it on a real enumerator uses the slot that the declaration numbers.
+' IEnumVARIANT extends IUnknown: Next, Skip, Reset and Clone are slots 3, 4, 5 and 6, straight after
+' QueryInterface, AddRef and Release (slots 0, 1 and 2). Each case calls one method on a hand-built
+' object whose slots record their own numbers (FakeEnumerator).
+[TestFixture]
+Module EnumVariantTests
+
+    [TestCase]
+    Public Sub Next_CallsTheSlotAfterIUnknown()
+        Expect.Begin
+        Expect.AreEqual 3, FakeEnumerator.SlotOfNext(), "slot of the method table that Next uses (3 in IEnumVARIANT, after the three of IUnknown)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Skip_CallsTheSlotAfterNext()
+        Expect.Begin
+        Expect.AreEqual 4, FakeEnumerator.SlotOfSkip(), "slot of the method table that Skip uses (4 in IEnumVARIANT)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_CallsTheSlotAfterSkip()
+        Expect.Begin
+        Expect.AreEqual 5, FakeEnumerator.SlotOfReset(), "slot of the method table that Reset uses (5 in IEnumVARIANT)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_CallsTheLastSlot()
+        Expect.Begin
+        Expect.AreEqual 6, FakeEnumerator.SlotOfClone(), "slot of the method table that Clone uses (6 in IEnumVARIANT)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/OLEGuids/Sources/FakeEnumerator.twin b/test/package-tests/OLEGuids/Sources/FakeEnumerator.twin
new file mode 100644
index 00000000..f4bf58ab
--- /dev/null
+++ b/test/package-tests/OLEGuids/Sources/FakeEnumerator.twin
@@ -0,0 +1,215 @@
+' OLEGuids, IEnumVARIANTUnrestricted: a COM object built by hand, to see which slot of its method
+' table a call through the interface uses. Its table has eleven entries and every entry is a
+' function that records its own number in Landed. Nothing is called on a real enumerator, because a
+' call through the wrong slot of a real one ends the program.
+'
+' A function is called with the stdcall convention, so in a 32-bit program it takes off the
+' stack as many arguments as it declares: a call to a slot must find a function that declares as
+' many arguments as the call passes. There is a family of functions for each count of arguments (the
+' object pointer included): A for Reset, B for Skip and Clone, C for Next.
+Module FakeEnumerator
+
+    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+
+    Public Landed As Long
+
+    ' The slot of the method table that a call to Reset used. -1 if no function of the table ran.
+    Public Function SlotOfReset() As Long
+        Dim vtbl(0 To 10) As LongPtr
+        FillWith vtbl, 1
+        vtbl(3) = AddressOf A3
+        vtbl(4) = AddressOf A4
+        vtbl(5) = AddressOf A5
+        vtbl(6) = AddressOf A6
+        vtbl(7) = AddressOf A7
+        vtbl(8) = AddressOf A8
+        vtbl(9) = AddressOf A9
+        vtbl(10) = AddressOf A10
+        Dim obj As LongPtr = VarPtr(vtbl(0))
+        Dim iface As LongPtr = VarPtr(obj)
+        Dim e As IEnumVARIANTUnrestricted
+        CopyMemory VarPtr(e), VarPtr(iface), Len(iface)
+        Landed = -1
+        e.Reset
+        Detach VarPtr(e)
+        Return Landed
+    End Function
+
+    ' The slot that a call to Skip used.
+    Public Function SlotOfSkip() As Long
+        Dim vtbl(0 To 10) As LongPtr
+        FillWith vtbl, 2
+        vtbl(3) = AddressOf B3
+        vtbl(4) = AddressOf B4
+        vtbl(5) = AddressOf B5
+        vtbl(6) = AddressOf B6
+        vtbl(7) = AddressOf B7
+        vtbl(8) = AddressOf B8
+        vtbl(9) = AddressOf B9
+        vtbl(10) = AddressOf B10
+        Dim obj As LongPtr = VarPtr(vtbl(0))
+        Dim iface As LongPtr = VarPtr(obj)
+        Dim e As IEnumVARIANTUnrestricted
+        CopyMemory VarPtr(e), VarPtr(iface), Len(iface)
+        Landed = -1
+        e.Skip 1
+        Detach VarPtr(e)
+        Return Landed
+    End Function
+
+    ' The slot that a call to Clone used.
+    Public Function SlotOfClone() As Long
+        Dim vtbl(0 To 10) As LongPtr
+        FillWith vtbl, 2
+        vtbl(3) = AddressOf B3
+        vtbl(4) = AddressOf B4
+        vtbl(5) = AddressOf B5
+        vtbl(6) = AddressOf B6
+        vtbl(7) = AddressOf B7
+        vtbl(8) = AddressOf B8
+        vtbl(9) = AddressOf B9
+        vtbl(10) = AddressOf B10
+        Dim obj As LongPtr = VarPtr(vtbl(0))
+        Dim iface As LongPtr = VarPtr(obj)
+        Dim e As IEnumVARIANTUnrestricted
+        CopyMemory VarPtr(e), VarPtr(iface), Len(iface)
+        Dim copy As stdole.IEnumVARIANT
+        Landed = -1
+        e.Clone copy
+        Detach VarPtr(e)
+        Detach VarPtr(copy)
+        Return Landed
+    End Function
+
+    ' The slot that a call to Next used.
+    Public Function SlotOfNext() As Long
+        Dim vtbl(0 To 10) As LongPtr
+        FillWith vtbl, 3
+        vtbl(3) = AddressOf C3
+        vtbl(4) = AddressOf C4
+        vtbl(5) = AddressOf C5
+        vtbl(6) = AddressOf C6
+        vtbl(7) = AddressOf C7
+        vtbl(8) = AddressOf C8
+        vtbl(9) = AddressOf C9
+        vtbl(10) = AddressOf C10
+        Dim obj As LongPtr = VarPtr(vtbl(0))
+        Dim iface As LongPtr = VarPtr(obj)
+        Dim e As IEnumVARIANTUnrestricted
+        CopyMemory VarPtr(e), VarPtr(iface), Len(iface)
+        Dim item As Variant
+        Dim fetched As Long
+        Landed = -1
+        e.Next 1, item, VarPtr(fetched)
+        Detach VarPtr(e)
+        Return Landed
+    End Function
+
+    ' Writes null into a variable that holds a pointer the program does not own.
+    Private Sub Detach(ByVal VariablePtr As LongPtr)
+        Dim zero As LongPtr = 0
+        CopyMemory VariablePtr, VarPtr(zero), Len(zero)
+    End Sub
+
+    Private Sub FillWith(ByRef Table() As LongPtr, ByVal Family As Long)
+        Dim i As Long
+        For i = LBound(Table) To UBound(Table)
+            Select Case Family
+                Case 1: Table(i) = AddressOf A0
+                Case 2: Table(i) = AddressOf B0
+                Case Else: Table(i) = AddressOf C0
+            End Select
+        Next
+    End Sub
+
+    ' ---- family A: the object pointer alone
+
+    Public Function A0(ByVal pThis As LongPtr) As Long
+        Landed = -2
+    End Function
+    Public Function A3(ByVal pThis As LongPtr) As Long
+        Landed = 3
+    End Function
+    Public Function A4(ByVal pThis As LongPtr) As Long
+        Landed = 4
+    End Function
+    Public Function A5(ByVal pThis As LongPtr) As Long
+        Landed = 5
+    End Function
+    Public Function A6(ByVal pThis As LongPtr) As Long
+        Landed = 6
+    End Function
+    Public Function A7(ByVal pThis As LongPtr) As Long
+        Landed = 7
+    End Function
+    Public Function A8(ByVal pThis As LongPtr) As Long
+        Landed = 8
+    End Function
+    Public Function A9(ByVal pThis As LongPtr) As Long
+        Landed = 9
+    End Function
+    Public Function A10(ByVal pThis As LongPtr) As Long
+        Landed = 10
+    End Function
+
+    ' ---- family B: the object pointer and one argument
+
+    Public Function B0(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = -2
+    End Function
+    Public Function B3(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = 3
+    End Function
+    Public Function B4(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = 4
+    End Function
+    Public Function B5(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = 5
+    End Function
+    Public Function B6(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = 6
+    End Function
+    Public Function B7(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = 7
+    End Function
+    Public Function B8(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = 8
+    End Function
+    Public Function B9(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = 9
+    End Function
+    Public Function B10(ByVal pThis As LongPtr, ByVal Arg As LongPtr) As Long
+        Landed = 10
+    End Function
+
+    ' ---- family C: the object pointer and three arguments
+
+    Public Function C0(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = -2
+    End Function
+    Public Function C3(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = 3
+    End Function
+    Public Function C4(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = 4
+    End Function
+    Public Function C5(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = 5
+    End Function
+    Public Function C6(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = 6
+    End Function
+    Public Function C7(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = 7
+    End Function
+    Public Function C8(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = 8
+    End Function
+    Public Function C9(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = 9
+    End Function
+    Public Function C10(ByVal pThis As LongPtr, ByVal Arg1 As LongPtr, ByVal Arg2 As LongPtr, ByVal Arg3 As LongPtr) As Long
+        Landed = 10
+    End Function
+
+End Module
diff --git a/test/package-tests/OLEGuids/Sources/Helpers.twin b/test/package-tests/OLEGuids/Sources/Helpers.twin
new file mode 100644
index 00000000..5714d308
--- /dev/null
+++ b/test/package-tests/OLEGuids/Sources/Helpers.twin
@@ -0,0 +1,132 @@
+' OLEGuids: what the cases use. Classes to call through the package's interfaces, a class that
+' implements the interfaces a class can implement, and a helper that asks an object whether it
+' supports an interface identifier.
+
+' An object with no members of interest: the object of a class that the project compiles.
+Class PlainObject
+    Public Value As Long
+End Class
+
+' A class whose members the cases call by name and by dispatch identifier.
+Class Calculator
+    Private m_level As Long
+
+    Public Function Subtract(ByVal a As Long, ByVal b As Long) As Long
+        Return a - b
+    End Function
+
+    Public Sub Boom()
+        Err.Raise 5, "Calculator", "boom"
+    End Sub
+
+    Public Property Get Level() As Long
+        Return m_level
+    End Property
+
+    Public Property Let Level(ByVal NewValue As Long)
+        m_level = NewValue
+    End Property
+End Class
+
+' Implements the interfaces of the package that a class can implement and that have no base interface
+' of the package: the four stubs, IOleWindow, ISpecifyPropertyPages and IObjectSafety.
+Class ImplSimple
+    Implements IOleClientSite
+    Implements IStorage
+    Implements IDataObject
+    Implements IOleWindow
+    Implements ISpecifyPropertyPages
+    Implements IObjectSafety
+
+    Public WindowToReturn As LongPtr
+    ' The HRESULT that GetPages returns: 0 is S_OK.
+    Public PagesResult As Long
+
+    Private Function IOleWindow_GetWindow() As LongPtr Implements IOleWindow.GetWindow
+        Return WindowToReturn
+    End Function
+
+    Private Sub IOleWindow_ContextSensitiveHelp(ByVal fEnterMode As Long) Implements IOleWindow.ContextSensitiveHelp
+    End Sub
+
+    Private Sub ISpecifyPropertyPages_GetPages(ByRef pPages As OLECAUUID) Implements ISpecifyPropertyPages.GetPages
+        pPages.cElems = 0
+        pPages.pElems = 0
+        If PagesResult <> 0 Then Err.ReturnHResult = PagesResult
+    End Sub
+
+    Private Sub IObjectSafety_GetInterfaceSafetyOptions(ByRef riid As OLECLSID, ByRef pdwSupportedOptions As Long, ByRef pdwEnabledOptions As Long) Implements IObjectSafety.GetInterfaceSafetyOptions
+        pdwSupportedOptions = 3
+        pdwEnabledOptions = 1
+    End Sub
+
+    Private Sub IObjectSafety_SetInterfaceSafetyOptions(ByRef riid As OLECLSID, ByVal dwOptionSetMask As Long, ByVal dwEnabledOptions As Long) Implements IObjectSafety.SetInterfaceSafetyOptions
+    End Sub
+End Class
+
+' Implements the four interfaces of the package that are written for a Visual Basic class.
+Class ImplVB
+    Implements IOleInPlaceActiveObjectVB
+    Implements IOleControlVB
+    Implements IPerPropertyBrowsingVB
+    Implements IOleInPlaceObjectWindowlessVB
+
+    Private Sub IOleInPlaceActiveObjectVB_TranslateAccelerator(ByRef Handled As Boolean, ByRef RetVal As Long, ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr, ByVal Shift As Long) Implements IOleInPlaceActiveObjectVB.TranslateAccelerator
+        Handled = True
+        RetVal = 1
+    End Sub
+
+    Private Sub IOleControlVB_GetControlInfo(ByRef Handled As Boolean, ByRef AccelCount As Integer, ByRef AccelTable As LongPtr, ByRef Flags As Long) Implements IOleControlVB.GetControlInfo
+        Handled = True
+        AccelCount = 0
+        AccelTable = 0
+        Flags = 0
+    End Sub
+
+    Private Sub IOleControlVB_OnMnemonic(ByRef Handled As Boolean, ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr, ByVal Shift As Long) Implements IOleControlVB.OnMnemonic
+        Handled = True
+    End Sub
+
+    Private Sub IPerPropertyBrowsingVB_GetDisplayString(ByRef Handled As Boolean, ByVal DispId As Long, ByRef DisplayName As String) Implements IPerPropertyBrowsingVB.GetDisplayString
+        Handled = True
+        DisplayName = "shown"
+    End Sub
+
+    Private Sub IPerPropertyBrowsingVB_GetPredefinedStrings(ByRef Handled As Boolean, ByVal DispId As Long, ByRef StringsOut As String(), ByRef CookiesOut As Long()) Implements IPerPropertyBrowsingVB.GetPredefinedStrings
+        Handled = False
+    End Sub
+
+    Private Sub IPerPropertyBrowsingVB_GetPredefinedValue(ByRef Handled As Boolean, ByVal DispId As Long, ByVal Cookie As Long, ByRef Value As Variant) Implements IPerPropertyBrowsingVB.GetPredefinedValue
+        Handled = False
+    End Sub
+
+    Private Sub IOleInPlaceObjectWindowlessVB_OnWindowMessage(ByRef Handled As Boolean, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr, ByRef Result As LongPtr) Implements IOleInPlaceObjectWindowlessVB.OnWindowMessage
+        Handled = True
+        Result = 0
+    End Sub
+End Class
+
+Module Guids
+    Private Declare PtrSafe Function CLSIDFromString Lib "ole32" (ByVal lpsz As LongPtr, ByRef pclsid As OLECLSID) As Long
+    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+
+    ' The identifier written as {00000000-0000-0000-0000-000000000000}, parsed by Windows into an OLECLSID.
+    Public Function IidOf(ByVal Text As String) As OLECLSID
+        CLSIDFromString StrPtr(Text), IidOf
+    End Function
+
+    ' Whether the object answers QueryInterface for the identifier with S_OK.
+    Public Function Supports(ByVal Obj As Object, ByVal Iid As String) As Boolean
+        Dim u As IUnknownUnrestricted = Obj
+        Dim id As OLECLSID = IidOf(Iid)
+        Dim p As LongPtr = 0
+        If u.QueryInterface(VarPtr(id), p) <> 0 Then Exit Function
+        If p <> 0 Then
+            ' the call added a reference: give it back through a variable that owns it
+            Dim v As IUnknownUnrestricted
+            CopyMemory VarPtr(v), VarPtr(p), Len(p)
+            Set v = Nothing
+        End If
+        Return True
+    End Function
+End Module
diff --git a/test/package-tests/OLEGuids/Sources/ImplementTests.twin b/test/package-tests/OLEGuids/Sources/ImplementTests.twin
new file mode 100644
index 00000000..60226634
--- /dev/null
+++ b/test/package-tests/OLEGuids/Sources/ImplementTests.twin
@@ -0,0 +1,146 @@
+' The interfaces a class can implement: the interface identifiers they answer to, the HRESULT that a Sub
+' hides, the result of a Function that replaces an output parameter, and the four Visual Basic-style
+' interfaces.
+[TestFixture]
+Module ImplementTests
+
+    Private Const S_FALSE As Long = 1
+    Private Const E_NOTIMPL As Long = &H80004001
+    Private Const E_FAIL As Long = &H80004005
+
+    ' ---- interface identifiers: a class that implements the interface answers QueryInterface for it
+
+    [TestCase]
+    Public Sub IOleClientSite_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplSimple, "{00000118-0000-0000-C000-000000000046}"), "an object of a class that implements IOleClientSite answers for {00000118-0000-0000-C000-000000000046}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IStorage_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplSimple, "{0000000B-0000-0000-C000-000000000046}"), "an object of a class that implements IStorage answers for {0000000B-0000-0000-C000-000000000046}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IDataObject_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplSimple, "{0000010E-0000-0000-C000-000000000046}"), "an object of a class that implements IDataObject answers for {0000010E-0000-0000-C000-000000000046}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IOleWindow_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplSimple, "{00000114-0000-0000-C000-000000000046}"), "an object of a class that implements IOleWindow answers for {00000114-0000-0000-C000-000000000046}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ISpecifyPropertyPages_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplSimple, "{B196B28B-BAB4-101A-B69C-00AA00341D07}"), "an object of a class that implements ISpecifyPropertyPages answers for {B196B28B-BAB4-101A-B69C-00AA00341D07}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IObjectSafety_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplSimple, "{CB5BDC81-93C1-11CF-8F20-00805F2CD064}"), "an object of a class that implements IObjectSafety answers for {CB5BDC81-93C1-11CF-8F20-00805F2CD064}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IOleInPlaceActiveObjectVB_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplVB, "{38584260-0CFB-45E7-8FBB-5D20B311F5B8}"), "an object of a class that implements IOleInPlaceActiveObjectVB answers for {38584260-0CFB-45E7-8FBB-5D20B311F5B8}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IOleControlVB_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplVB, "{C895C8F9-6564-4123-8760-529F72AB9322}"), "an object of a class that implements IOleControlVB answers for {C895C8F9-6564-4123-8760-529F72AB9322}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IPerPropertyBrowsingVB_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplVB, "{D5D3BBE3-DB60-4522-AF5B-D767FE736DDB}"), "an object of a class that implements IPerPropertyBrowsingVB answers for {D5D3BBE3-DB60-4522-AF5B-D767FE736DDB}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IOleInPlaceObjectWindowlessVB_AnswersToItsIdentifier()
+        Expect.Begin
+        Expect.IsTrue Guids.Supports(New ImplVB, "{061D3A2F-A213-4016-9756-B89140604819}"), "an object of a class that implements IOleInPlaceObjectWindowlessVB answers for {061D3A2F-A213-4016-9756-B89140604819}"
+        Expect.Done
+    End Sub
+
+    ' ---- the HRESULT of a Sub is hidden
+
+    [TestCase]
+    Public Sub Sub_SuccessCodeRaisesNoErrorAndIsReadWithLastHresult()
+        Expect.Begin
+        Dim impl As New ImplSimple
+        impl.PagesResult = S_FALSE
+        Dim sp As ISpecifyPropertyPages = impl
+        Dim pages As OLECAUUID
+        On Error Resume Next
+        sp.GetPages pages
+        Dim errNum As Long = Err.Number
+        Dim hr As Long = Err.LastHresult
+        On Error GoTo 0
+        Expect.AreEqual 0, errNum, "Err.Number after GetPages of a class that sets Err.ReturnHResult to S_FALSE"
+        Expect.AreEqual S_FALSE, hr, "Err.LastHresult after GetPages of a class that sets Err.ReturnHResult to S_FALSE"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Sub_FailureCodeRaisesAnError()
+        Expect.Begin
+        Dim impl As New ImplSimple
+        impl.PagesResult = E_FAIL
+        Dim sp As ISpecifyPropertyPages = impl
+        Dim pages As OLECAUUID
+        On Error Resume Next
+        sp.GetPages pages
+        Dim errNum As Long = Err.Number
+        Dim hr As Long = Err.LastHresult
+        On Error GoTo 0
+        Expect.AreEqual E_FAIL, errNum, "Err.Number after GetPages of a class that sets Err.ReturnHResult to E_FAIL"
+        Expect.AreEqual E_FAIL, hr, "Err.LastHresult after GetPages of a class that sets Err.ReturnHResult to E_FAIL"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Function_ResultTakesThePlaceOfTheOutputParameter()
+        Expect.Begin
+        Dim impl As New ImplSimple
+        impl.WindowToReturn = 77
+        Dim w As IOleWindow = impl
+        Expect.AreEqual 77, w.GetWindow(), "GetWindow of a class that returns 77"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub VBInterface_ClassCanBeCalledThroughIt()
+        Expect.Begin
+        Dim impl As New ImplVB
+        Dim v As IOleInPlaceActiveObjectVB = impl
+        Dim handled As Boolean = False
+        Dim retVal As Long = 0
+        v.TranslateAccelerator handled, retVal, 0, 0, 0, 0, 0
+        Expect.IsTrue handled, "Handled after TranslateAccelerator through IOleInPlaceActiveObjectVB"
+        Expect.AreEqual 1, retVal, "RetVal after TranslateAccelerator through IOleInPlaceActiveObjectVB"
+        Dim p As IPerPropertyBrowsingVB = impl
+        Dim shown As String = ""
+        p.GetDisplayString handled, 1, shown
+        Expect.AreEqual "shown", shown, "DisplayName after GetDisplayString through IPerPropertyBrowsingVB"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/OLEGuids/Sources/RunAll.twin b/test/package-tests/OLEGuids/Sources/RunAll.twin
new file mode 100644
index 00000000..d7988c61
--- /dev/null
+++ b/test/package-tests/OLEGuids/Sources/RunAll.twin
@@ -0,0 +1,222 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package OLEGuids, version 1.0.10.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "OLEGuids 1.0.10.0: 52 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.GetTypeInfoCount_ClassObjectHasTypeInformation
+        Expect.EndCase "DispatchTests.GetTypeInfoCount_ClassObjectHasTypeInformation", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.GetTypeInfo_IndexZeroReturnsTypeInformation
+        Expect.EndCase "DispatchTests.GetTypeInfo_IndexZeroReturnsTypeInformation", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.GetTypeInfo_OtherIndexRaisesBadIndex
+        Expect.EndCase "DispatchTests.GetTypeInfo_OtherIndexRaisesBadIndex", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.GetIDsOfNames_KnownNameReturnsAnIdentifier
+        Expect.EndCase "DispatchTests.GetIDsOfNames_KnownNameReturnsAnIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.GetIDsOfNames_UnknownNameRaisesError438
+        Expect.EndCase "DispatchTests.GetIDsOfNames_UnknownNameRaisesError438", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.Invoke_CallsAMethodWithTheArgumentsInReverseOrder
+        Expect.EndCase "DispatchTests.Invoke_CallsAMethodWithTheArgumentsInReverseOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.Invoke_AssignsAPropertyWithPropertyPut
+        Expect.EndCase "DispatchTests.Invoke_AssignsAPropertyWithPropertyPut", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.Invoke_MemberErrorWithoutExcepinfoIsRaisedAsItIs
+        Expect.EndCase "DispatchTests.Invoke_MemberErrorWithoutExcepinfoIsRaisedAsItIs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.Invoke_MemberErrorWithExcepinfoRaisesDispEException
+        Expect.EndCase "DispatchTests.Invoke_MemberErrorWithExcepinfoRaisesDispEException", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.Invoke_UnknownIdentifierRaisesError438
+        Expect.EndCase "DispatchTests.Invoke_UnknownIdentifierRaisesError438", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.StdoleIDispatch_CallIsLateBoundAndDoesNotReachTheMethods
+        Expect.EndCase "DispatchTests.StdoleIDispatch_CallIsLateBoundAndDoesNotReachTheMethods", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.Assign_ObjectVariableToIDispatchUnrestricted
+        Expect.EndCase "DispatchTests.Assign_ObjectVariableToIDispatchUnrestricted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.Assign_StdoleIDispatchVariableToIDispatchUnrestricted
+        Expect.EndCase "DispatchTests.Assign_StdoleIDispatchVariableToIDispatchUnrestricted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DispatchTests.Assign_CollectionAsksForIDispatch
+        Expect.EndCase "DispatchTests.Assign_CollectionAsksForIDispatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnumVariantTests.Next_CallsTheSlotAfterIUnknown
+        Expect.EndCase "EnumVariantTests.Next_CallsTheSlotAfterIUnknown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnumVariantTests.Skip_CallsTheSlotAfterNext
+        Expect.EndCase "EnumVariantTests.Skip_CallsTheSlotAfterNext", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnumVariantTests.Reset_CallsTheSlotAfterSkip
+        Expect.EndCase "EnumVariantTests.Reset_CallsTheSlotAfterSkip", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnumVariantTests.Clone_CallsTheLastSlot
+        Expect.EndCase "EnumVariantTests.Clone_CallsTheLastSlot", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IOleClientSite_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IOleClientSite_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IStorage_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IStorage_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IDataObject_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IDataObject_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IOleWindow_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IOleWindow_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.ISpecifyPropertyPages_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.ISpecifyPropertyPages_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IObjectSafety_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IObjectSafety_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IOleInPlaceActiveObjectVB_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IOleInPlaceActiveObjectVB_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IOleControlVB_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IOleControlVB_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IPerPropertyBrowsingVB_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IPerPropertyBrowsingVB_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.IOleInPlaceObjectWindowlessVB_AnswersToItsIdentifier
+        Expect.EndCase "ImplementTests.IOleInPlaceObjectWindowlessVB_AnswersToItsIdentifier", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.Sub_SuccessCodeRaisesNoErrorAndIsReadWithLastHresult
+        Expect.EndCase "ImplementTests.Sub_SuccessCodeRaisesNoErrorAndIsReadWithLastHresult", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.Sub_FailureCodeRaisesAnError
+        Expect.EndCase "ImplementTests.Sub_FailureCodeRaisesAnError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.Function_ResultTakesThePlaceOfTheOutputParameter
+        Expect.EndCase "ImplementTests.Function_ResultTakesThePlaceOfTheOutputParameter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ImplementTests.VBInterface_ClassCanBeCalledThroughIt
+        Expect.EndCase "ImplementTests.VBInterface_ClassCanBeCalledThroughIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLECLSID_HasTheLayoutOfGuid
+        Expect.EndCase "TypeLayoutTests.OLECLSID_HasTheLayoutOfGuid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLERECT_HasTheLayoutOfRect
+        Expect.EndCase "TypeLayoutTests.OLERECT_HasTheLayoutOfRect", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLEPOINT_HasTheLayoutOfPoint
+        Expect.EndCase "TypeLayoutTests.OLEPOINT_HasTheLayoutOfPoint", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLESIZE_HasTheLayoutOfSize
+        Expect.EndCase "TypeLayoutTests.OLESIZE_HasTheLayoutOfSize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLEACCELMSG_HasTheLayoutOfMsg
+        Expect.EndCase "TypeLayoutTests.OLEACCELMSG_HasTheLayoutOfMsg", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLECONTROLINFO_HasTheLayoutOfControlinfo
+        Expect.EndCase "TypeLayoutTests.OLECONTROLINFO_HasTheLayoutOfControlinfo", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLEINPLACEFRAMEINFO_HasTheLayoutOfOleinplaceframeinfo
+        Expect.EndCase "TypeLayoutTests.OLEINPLACEFRAMEINFO_HasTheLayoutOfOleinplaceframeinfo", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLEDISPPARAMS_HasTheLayoutOfDispparams
+        Expect.EndCase "TypeLayoutTests.OLEDISPPARAMS_HasTheLayoutOfDispparams", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLECAUUID_HasTheLayoutOfCauuid
+        Expect.EndCase "TypeLayoutTests.OLECAUUID_HasTheLayoutOfCauuid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLECADWORD_HasTheLayoutOfCadword
+        Expect.EndCase "TypeLayoutTests.OLECADWORD_HasTheLayoutOfCadword", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.OLECALPOLESTR_HasTheLayoutOfCalpolestr
+        Expect.EndCase "TypeLayoutTests.OLECALPOLESTR_HasTheLayoutOfCalpolestr", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypeLayoutTests.QualifiedName_NamesTheTypeThroughTheModule
+        Expect.EndCase "TypeLayoutTests.QualifiedName_NamesTheTypeThroughTheModule", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnknownTests.QueryInterface_SupportedInterfaceReturnsSOk
+        Expect.EndCase "UnknownTests.QueryInterface_SupportedInterfaceReturnsSOk", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnknownTests.QueryInterface_ReturnedPointerHoldsAReference
+        Expect.EndCase "UnknownTests.QueryInterface_ReturnedPointerHoldsAReference", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnknownTests.QueryInterface_UnsupportedInterfaceOfCollectionReturnsENoInterface
+        Expect.EndCase "UnknownTests.QueryInterface_UnsupportedInterfaceOfCollectionReturnsENoInterface", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnknownTests.QueryInterface_UnsupportedInterfaceOfCollectionSetsPointerToZero
+        Expect.EndCase "UnknownTests.QueryInterface_UnsupportedInterfaceOfCollectionSetsPointerToZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnknownTests.QueryInterface_UnsupportedInterfaceOfClassObjectReturnsENoInterface
+        Expect.EndCase "UnknownTests.QueryInterface_UnsupportedInterfaceOfClassObjectReturnsENoInterface", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnknownTests.QueryInterface_UnsupportedInterfaceOfClassObjectSetsPointerToZero
+        Expect.EndCase "UnknownTests.QueryInterface_UnsupportedInterfaceOfClassObjectSetsPointerToZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnknownTests.AddRef_Release_ReturnTheNewCount
+        Expect.EndCase "UnknownTests.AddRef_Release_ReturnTheNewCount", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnknownTests.Example_ReferenceCountIncludesTheProcedureVariables
+        Expect.EndCase "UnknownTests.Example_ReferenceCountIncludesTheProcedureVariables", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/OLEGuids/Sources/TypeLayoutTests.twin b/test/package-tests/OLEGuids/Sources/TypeLayoutTests.twin
new file mode 100644
index 00000000..8e590866
--- /dev/null
+++ b/test/package-tests/OLEGuids/Sources/TypeLayoutTests.twin
@@ -0,0 +1,179 @@
+' The eleven structures of the package: each has the size and the field offsets of the Windows
+' structure it mirrors, in a 32-bit and a 64-bit program. Where a Windows function fills or reads the
+' structure, the case calls it.
+[TestFixture]
+Module TypeLayoutTests
+
+    Private Declare PtrSafe Function CLSIDFromString Lib "ole32" (ByVal lpsz As LongPtr, ByRef pclsid As OLECLSID) As Long
+    Private Declare PtrSafe Function SetRect Lib "user32" (ByRef lprc As OLERECT, ByVal xLeft As Long, ByVal yTop As Long, ByVal xRight As Long, ByVal yBottom As Long) As Long
+    Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr
+    Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long
+    Private Declare PtrSafe Function GetTextExtentPoint32W Lib "gdi32" (ByVal hDC As LongPtr, ByVal lpString As LongPtr, ByVal c As Long, ByRef lpSize As OLESIZE) As Long
+    Private Declare PtrSafe Function GetCursorPos Lib "user32" (ByRef lpPoint As OLEPOINT) As Long
+    Private Declare PtrSafe Function GetCursorPosRaw Lib "user32" Alias "GetCursorPos" (ByRef lpPoint As Long) As Long
+
+
+    ' The size of a pointer in this program: 4 or 8.
+    Private Function PtrBytes() As Long
+        Dim p As LongPtr
+        Return Len(p)
+    End Function
+
+    [TestCase]
+    Public Sub OLECLSID_HasTheLayoutOfGuid()
+        Expect.Begin
+        Dim g As OLECLSID
+        Expect.AreEqual 16, LenB(g), "size of OLECLSID"
+        Expect.AreEqual 0, VarPtr(g.Data1) - VarPtr(g), "offset of Data1"
+        Expect.AreEqual 4, VarPtr(g.Data2) - VarPtr(g), "offset of Data2"
+        Expect.AreEqual 6, VarPtr(g.Data3) - VarPtr(g), "offset of Data3"
+        Expect.AreEqual 8, VarPtr(g.Data4(0)) - VarPtr(g), "offset of Data4"
+        Dim text As String = "{00020400-0000-0000-C000-000000000046}"
+        Dim hr As Long = CLSIDFromString(StrPtr(text), g)
+        Expect.AreEqual 0, hr, "HRESULT of CLSIDFromString"
+        Expect.AreEqual &H20400, g.Data1, "Data1 of " & text & " parsed by Windows into an OLECLSID"
+        Expect.AreEqual 0, g.Data2, "Data2 of " & text
+        Expect.AreEqual 0, g.Data3, "Data3 of " & text
+        Expect.AreEqual &HC0, g.Data4(0), "Data4(0) of " & text
+        Expect.AreEqual 0, g.Data4(6), "Data4(6) of " & text
+        Expect.AreEqual &H46, g.Data4(7), "Data4(7) of " & text
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLERECT_HasTheLayoutOfRect()
+        Expect.Begin
+        Dim r As OLERECT
+        Expect.AreEqual 16, LenB(r), "size of OLERECT"
+        SetRect r, 1, 2, 3, 4
+        Expect.AreEqual 1, r.Left, "Left after SetRect(1, 2, 3, 4)"
+        Expect.AreEqual 2, r.Top, "Top after SetRect(1, 2, 3, 4)"
+        Expect.AreEqual 3, r.Right, "Right after SetRect(1, 2, 3, 4)"
+        Expect.AreEqual 4, r.Bottom, "Bottom after SetRect(1, 2, 3, 4)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLEPOINT_HasTheLayoutOfPoint()
+        Expect.Begin
+        Dim p As OLEPOINT
+        Expect.AreEqual 8, LenB(p), "size of OLEPOINT"
+        Expect.AreEqual 4, VarPtr(p.Y) - VarPtr(p.X), "offset of Y after X"
+        Dim raw(0 To 1) As Long
+        GetCursorPos p
+        GetCursorPosRaw raw(0)
+        Expect.AreEqual raw(0), p.X, "X from GetCursorPos into an OLEPOINT, against the first Long of a second call"
+        Expect.AreEqual raw(1), p.Y, "Y from GetCursorPos into an OLEPOINT, against the second Long of a second call"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLESIZE_HasTheLayoutOfSize()
+        Expect.Begin
+        Dim s As OLESIZE
+        Expect.AreEqual 8, LenB(s), "size of OLESIZE"
+        Expect.AreEqual 4, VarPtr(s.CY) - VarPtr(s.CX), "offset of CY after CX"
+        Dim dc As LongPtr = GetDC(0)
+        Dim text As String = "WWWWWWWWWW"
+        GetTextExtentPoint32W dc, StrPtr(text), Len(text), s
+        ReleaseDC 0, dc
+        Expect.IsTrue s.CX > s.CY And s.CY > 0, "ten capital W measured by GetTextExtentPoint32W: CX (" & s.CX & ") is wider than CY (" & s.CY & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLEACCELMSG_HasTheLayoutOfMsg()
+        Expect.Begin
+        Dim m As OLEACCELMSG
+        Dim ptr As Long = PtrBytes()
+        Dim expectedSize As Long = IIf(ptr = 8, 48, 28)
+        Expect.AreEqual expectedSize, LenB(m), "size of OLEACCELMSG (the size of MSG)"
+        Expect.AreEqual ptr, VarPtr(m.Message) - VarPtr(m), "offset of Message"
+        Expect.AreEqual 2 * ptr, VarPtr(m.wParam) - VarPtr(m), "offset of wParam"
+        Expect.AreEqual 3 * ptr, VarPtr(m.lParam) - VarPtr(m), "offset of lParam"
+        Expect.AreEqual 4 * ptr, VarPtr(m.Time) - VarPtr(m), "offset of Time"
+        Expect.AreEqual 4 * ptr + 4, VarPtr(m.PT) - VarPtr(m), "offset of PT"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLECONTROLINFO_HasTheLayoutOfControlinfo()
+        Expect.Begin
+        Dim c As OLECONTROLINFO
+        Dim ptr As Long = PtrBytes()
+        Expect.AreEqual IIf(ptr = 8, 24, 16), LenB(c), "size of OLECONTROLINFO (the size of CONTROLINFO)"
+        Expect.AreEqual ptr, VarPtr(c.hAccel) - VarPtr(c), "offset of hAccel"
+        Expect.AreEqual 2 * ptr, VarPtr(c.cAccel) - VarPtr(c), "offset of cAccel"
+        Expect.AreEqual 2 * ptr + 4, VarPtr(c.dwFlags) - VarPtr(c), "offset of dwFlags"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLEINPLACEFRAMEINFO_HasTheLayoutOfOleinplaceframeinfo()
+        Expect.Begin
+        Dim f As OLEINPLACEFRAMEINFO
+        Dim ptr As Long = PtrBytes()
+        Expect.AreEqual IIf(ptr = 8, 32, 20), LenB(f), "size of OLEINPLACEFRAMEINFO"
+        Expect.AreEqual 4, VarPtr(f.fMDIApp) - VarPtr(f), "offset of fMDIApp"
+        Expect.AreEqual 8, VarPtr(f.hWndFrame) - VarPtr(f), "offset of hWndFrame"
+        Expect.AreEqual 8 + ptr, VarPtr(f.hAccel) - VarPtr(f), "offset of hAccel"
+        Expect.AreEqual 8 + 2 * ptr, VarPtr(f.cAccelEntries) - VarPtr(f), "offset of cAccelEntries"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLEDISPPARAMS_HasTheLayoutOfDispparams()
+        Expect.Begin
+        Dim d As OLEDISPPARAMS
+        Dim ptr As Long = PtrBytes()
+        Expect.AreEqual 2 * ptr + 8, LenB(d), "size of OLEDISPPARAMS (the size of DISPPARAMS)"
+        Expect.AreEqual ptr, VarPtr(d.rgdispidNamedArgs) - VarPtr(d), "offset of rgdispidNamedArgs"
+        Expect.AreEqual 2 * ptr, VarPtr(d.cArgs) - VarPtr(d), "offset of cArgs"
+        Expect.AreEqual 2 * ptr + 4, VarPtr(d.cNamedArgs) - VarPtr(d), "offset of cNamedArgs"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLECAUUID_HasTheLayoutOfCauuid()
+        Expect.Begin
+        Dim c As OLECAUUID
+        Dim ptr As Long = PtrBytes()
+        Expect.AreEqual 2 * ptr, LenB(c), "size of OLECAUUID (the size of CAUUID)"
+        Expect.AreEqual ptr, VarPtr(c.pElems) - VarPtr(c), "offset of pElems"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLECADWORD_HasTheLayoutOfCadword()
+        Expect.Begin
+        Dim c As OLECADWORD
+        Dim ptr As Long = PtrBytes()
+        Expect.AreEqual 2 * ptr, LenB(c), "size of OLECADWORD (the size of CADWORD)"
+        Expect.AreEqual ptr, VarPtr(c.pElems) - VarPtr(c), "offset of pElems"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OLECALPOLESTR_HasTheLayoutOfCalpolestr()
+        Expect.Begin
+        Dim c As OLECALPOLESTR
+        Dim ptr As Long = PtrBytes()
+        Expect.AreEqual 2 * ptr, LenB(c), "size of OLECALPOLESTR (the size of CALPOLESTR)"
+        Expect.AreEqual ptr, VarPtr(c.pElems) - VarPtr(c), "offset of pElems"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QualifiedName_NamesTheTypeThroughTheModule()
+        Expect.Begin
+        Dim r As OLEGuids.OLERECT
+        Dim g As OLEGuids.OLECLSID
+        r.Right = 9
+        g.Data1 = 7
+        Dim plain As OLERECT = r
+        Expect.AreEqual 9, plain.Right, "an OLEGuids.OLERECT assigned to an OLERECT"
+        Expect.AreEqual 16, LenB(g), "size of an OLEGuids.OLECLSID"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/OLEGuids/Sources/UnknownTests.twin b/test/package-tests/OLEGuids/Sources/UnknownTests.twin
new file mode 100644
index 00000000..03256293
--- /dev/null
+++ b/test/package-tests/OLEGuids/Sources/UnknownTests.twin
@@ -0,0 +1,124 @@
+' IUnknownUnrestricted: QueryInterface, AddRef and Release called as methods, and what QueryInterface
+' does with its result pointer when the interface is not supported.
+[TestFixture]
+Module UnknownTests
+
+    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+
+    Private Const E_NOINTERFACE As Long = &H80004002
+    Private Const SENTINEL As LongPtr = 12345
+
+    ' Gives back a reference that QueryInterface added, through a variable that owns it.
+    Private Sub GiveBack(ByVal Pointer As LongPtr)
+        Dim v As IUnknownUnrestricted
+        CopyMemory VarPtr(v), VarPtr(Pointer), Len(Pointer)
+        Set v = Nothing
+    End Sub
+
+    [TestCase]
+    Public Sub QueryInterface_SupportedInterfaceReturnsSOk()
+        Expect.Begin
+        Dim u As IUnknownUnrestricted = New Collection
+        Dim iid As OLECLSID = Guids.IidOf("{00020400-0000-0000-C000-000000000046}")
+        Dim p As LongPtr = SENTINEL
+        Dim hr As Long = u.QueryInterface(VarPtr(iid), p)
+        Expect.AreEqual 0, hr, "HRESULT of QueryInterface for IDispatch on a Collection"
+        Expect.IsTrue p <> 0 And p <> SENTINEL, "pointer QueryInterface returned for IDispatch on a Collection"
+        If hr = 0 And p <> 0 And p <> SENTINEL Then GiveBack p
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryInterface_ReturnedPointerHoldsAReference()
+        Expect.Begin
+        Dim u As IUnknownUnrestricted = New Collection
+        u.AddRef
+        Dim before As Long = u.Release()
+        Dim iid As OLECLSID = Guids.IidOf("{00020400-0000-0000-C000-000000000046}")
+        Dim p As LongPtr = 0
+        u.QueryInterface VarPtr(iid), p
+        u.AddRef
+        Dim during As Long = u.Release()
+        Expect.AreEqual before + 1, during, "reference count with the pointer QueryInterface returned held, after " & before & " without it"
+        If p <> 0 Then GiveBack p
+        u.AddRef
+        Dim after As Long = u.Release()
+        Expect.AreEqual before, after, "reference count after the reference was given back with Release"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryInterface_UnsupportedInterfaceOfCollectionReturnsENoInterface()
+        Expect.Begin
+        Dim u As IUnknownUnrestricted = New Collection
+        Dim iid As OLECLSID
+        iid.Data1 = &H12345
+        Dim p As LongPtr = SENTINEL
+        Dim hr As Long = u.QueryInterface(VarPtr(iid), p)
+        Expect.AreEqual E_NOINTERFACE, hr, "HRESULT of QueryInterface for an interface a Collection does not have"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryInterface_UnsupportedInterfaceOfCollectionSetsPointerToZero()
+        Expect.Begin
+        Dim u As IUnknownUnrestricted = New Collection
+        Dim iid As OLECLSID
+        iid.Data1 = &H12345
+        Dim p As LongPtr = SENTINEL
+        u.QueryInterface VarPtr(iid), p
+        Expect.AreEqual 0, p, "result pointer after QueryInterface for an interface a Collection does not have"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryInterface_UnsupportedInterfaceOfClassObjectReturnsENoInterface()
+        Expect.Begin
+        Dim u As IUnknownUnrestricted = New PlainObject
+        Dim iid As OLECLSID
+        iid.Data1 = &H12345
+        Dim p As LongPtr = SENTINEL
+        Dim hr As Long = u.QueryInterface(VarPtr(iid), p)
+        Expect.AreEqual E_NOINTERFACE, hr, "HRESULT of QueryInterface for an interface an object of a project's class does not have"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryInterface_UnsupportedInterfaceOfClassObjectSetsPointerToZero()
+        Expect.Begin
+        Dim u As IUnknownUnrestricted = New PlainObject
+        Dim iid As OLECLSID
+        iid.Data1 = &H12345
+        Dim p As LongPtr = SENTINEL
+        u.QueryInterface VarPtr(iid), p
+        Expect.AreEqual 0, p, "result pointer after QueryInterface for an interface an object of a project's class does not have"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddRef_Release_ReturnTheNewCount()
+        Expect.Begin
+        Dim u As IUnknownUnrestricted = New PlainObject
+        Dim a As Long = u.AddRef()
+        Dim b As Long = u.AddRef()
+        Dim c As Long = u.Release()
+        Dim d As Long = u.Release()
+        Expect.AreEqual a + 1, b, "count AddRef returned the second time, after the first returned " & a
+        Expect.AreEqual a, c, "count Release returned after two AddRef calls"
+        Expect.AreEqual a - 1, d, "count Release returned the second time"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Example_ReferenceCountIncludesTheProcedureVariables()
+        Expect.Begin
+        Dim obj As Object = New PlainObject
+        Dim u As IUnknownUnrestricted = obj
+        Dim n As Long = u.AddRef()
+        Dim m As Long = u.Release()
+        Expect.AreEqual n - 1, m, "count after AddRef then Release"
+        Expect.IsTrue m >= 2, "count includes the references of the variables obj and u (at least 2), got " & m
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/OLEGuids/compile/CompileTests.twin b/test/package-tests/OLEGuids/compile/CompileTests.twin
new file mode 100644
index 00000000..1595b8f3
--- /dev/null
+++ b/test/package-tests/OLEGuids/compile/CompileTests.twin
@@ -0,0 +1,73 @@
+' OLEGuids: what the compiler refuses. Each line ends in a comment ' CASE <Name>: <code>.
+' A class cannot implement a member marked [PreserveSig]: the compiler reports TB5004 on the member.
+' Each class below implements the one such member of its interface that the case names; the
+' compiler also reports the members the class leaves out, on the class.
+
+Class ImplUnknown
+    Implements IUnknownUnrestricted
+    Private Function QueryInterface(ByVal priid As LongPtr, ByRef ppvObject As LongPtr) As Long Implements IUnknownUnrestricted.QueryInterface ' CASE ImplementIUnknownUnrestricted: TB5004
+        Return 0
+    End Function
+End Class
+
+Class ImplOleObject
+    Implements IOleObject
+    Private Function DoVerb(ByVal iVerb As Long, ByVal lpMsg As LongPtr, ByVal pActiveSite As OLEGuids.IOleClientSite, ByVal Index As Long, ByVal hWndParent As LongPtr, ByVal lprcPosRect As LongPtr) As Long Implements IOleObject.DoVerb ' CASE ImplementIOleObject: TB5004
+        Return 0
+    End Function
+End Class
+
+Class ImplWindowless
+    Implements IOleInPlaceObjectWindowless
+    Private Function OnWindowMessage(ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr, ByRef Result As LongPtr) As Long Implements IOleInPlaceObjectWindowless.OnWindowMessage ' CASE ImplementIOleInPlaceObjectWindowless: TB5004
+        Return 0
+    End Function
+End Class
+
+Class ImplOleControl
+    Implements IOleControl
+    Private Function GetControlInfo(ByRef pCI As OLECONTROLINFO) As Long Implements IOleControl.GetControlInfo ' CASE ImplementIOleControl: TB5004
+        Return 0
+    End Function
+End Class
+
+Class ImplOleControlSite
+    Implements IOleControlSite
+    Private Function TranslateAccelerator(ByVal lpMsg As LongPtr, ByVal grfModifiers As Long) As Long Implements IOleControlSite.TranslateAccelerator ' CASE ImplementIOleControlSite: TB5004
+        Return 0
+    End Function
+End Class
+
+Class ImplActiveObject
+    Implements IOleInPlaceActiveObject
+    Private Function GetWindow(ByRef phWnd As LongPtr) As Long Implements IOleInPlaceActiveObject.GetWindow ' CASE ImplementIOleInPlaceActiveObject: TB5004
+        Return 0
+    End Function
+End Class
+
+Class ImplInPlaceSite
+    Implements IOleInPlaceSite
+    Private Function CanInPlaceActivate() As Long Implements IOleInPlaceSite.CanInPlaceActivate ' CASE ImplementIOleInPlaceSite: TB5004
+        Return 0
+    End Function
+End Class
+
+Class ImplPerPropertyBrowsing
+    Implements IPerPropertyBrowsing
+    Private Function GetDisplayString(ByVal DispId As Long, ByRef lpDisplayName As LongPtr) As Long Implements IPerPropertyBrowsing.GetDisplayString ' CASE ImplementIPerPropertyBrowsing: TB5004
+        Return 0
+    End Function
+End Class
+
+Class ImplRichEditOle
+    Implements IRichEditOle
+    Private Function GetObjectCount() As Long Implements IRichEditOle.GetObjectCount ' CASE ImplementIRichEditOle: TB5004
+        Return 0
+    End Function
+End Class
+
+Module NameTests
+    Public Sub NoDeclarationNamedIDispatch()
+        Dim d As OLEGuids.IDispatch ' CASE NoIDispatchInThePackage: TB5079
+    End Sub
+End Module
diff --git a/test/package-tests/OLEGuids/expect.json b/test/package-tests/OLEGuids/expect.json
new file mode 100644
index 00000000..374fb3b8
--- /dev/null
+++ b/test/package-tests/OLEGuids/expect.json
@@ -0,0 +1,20 @@
+{
+  "version": "1.0.10.0",
+  "cases": {
+    "EnumVariantTests.Next_CallsTheSlotAfterIUnknown": {
+      "fails": "1 of 1 checks failed: slot of the method table that Next uses (3 in IEnumVARIANT, after the three of IUnknown): expected 3, got 7"
+    },
+    "EnumVariantTests.Skip_CallsTheSlotAfterNext": {
+      "fails": "1 of 1 checks failed: slot of the method table that Skip uses (4 in IEnumVARIANT): expected 4, got 8"
+    },
+    "EnumVariantTests.Reset_CallsTheSlotAfterSkip": {
+      "fails": "1 of 1 checks failed: slot of the method table that Reset uses (5 in IEnumVARIANT): expected 5, got 9"
+    },
+    "EnumVariantTests.Clone_CallsTheLastSlot": {
+      "fails": "1 of 1 checks failed: slot of the method table that Clone uses (6 in IEnumVARIANT): expected 6, got 10"
+    },
+    "UnknownTests.QueryInterface_UnsupportedInterfaceOfClassObjectSetsPointerToZero": {
+      "fails": "1 of 1 checks failed: result pointer after QueryInterface for an interface an object of a project's class does not have: expected 0, got 12345"
+    }
+  }
+}
diff --git a/test/package-tests/README.md b/test/package-tests/README.md
index dc06c05e..a0dceb96 100644
--- a/test/package-tests/README.md
+++ b/test/package-tests/README.md
@@ -60,6 +60,15 @@ End Module
   `Files.Item of a missing name raises: expected 53, got 5` is a bug report.
 - A claim about what does not compile is a **compile case**: a line ending in
   `' CASE <Name>: TB5001` (or `: error`, `: none`), as `scripts/lib/tb-tests.mjs` describes.
+  **A compile case that expects an error goes in the package folder's `compile/`**, a second
+  project that holds compile cases only (`.twin` files directly in it, no `Sources/`): the
+  compiler runs no `[TestCase]` in a project with errors, so one such line in `Sources/` stops
+  every other case. `package_tests.mjs` stages `compile/` with the package embedded and judges
+  its cases with the rest; a marker names them as `compile <Name>`, as any compile case. It is
+  not published: the published project is `Sources/` only, and compiles.
+- **Resources** a case reads go in the package folder's `Resources/`, laid out as an exported
+  project keeps them (`<TYPE>/<NAME>`, such as `BINARY/#101`). The runner stages them and the
+  published project carries them, byte for byte.
 - A claim that needs a dialog operated or a form shown goes in the package's `probe/` harness, as
   TBMANLIB_Dialog's and xCalendar's do.
 
@@ -116,7 +125,10 @@ compiler's test mode, so a crash or an access violation ends only its case. Each
 - **changed**: anything else. A claim of the page is no longer true, or the case is wrong.
 
 A case that never returns stops the compiler, so it is caught, recorded as `{ "hangs": true }` by
-`--update`, run alone from then on, and skipped by `RunAll`. The run writes `RunAll.twin` again
+`--update`, run alone from then on, and skipped by `RunAll`. A case still running at `--timeout`
+(60 s) counts as one that never returns: the compiler cannot stop it, and refuses everything else
+until it ends, so `tbrun` reports the cases after it `not run` and the run sends those again in a
+new IDE. A slow case that is meant to return is kept well under the limit. The run writes `RunAll.twin` again
 whenever the cases or `expect.json` change.
 
 `expect.json`:
@@ -135,6 +147,11 @@ whenever the cases or `expect.json` change.
 A case not named passes on both architectures. Write it with `--update`, then read every entry: an
 entry is a claim that the package is defective, and each one must match a callout.
 
+A package that compiles for one architecture only is tested on that one: `"arches": ["win32"]`
+after `version`, written by hand once (owner: TBMANLIB 1.0.0.29, which does not compile for
+win64). The run then skips the other architecture and `--update` keeps the field; the section
+states the compile failure in a callout.
+
 ## In the IDE
 
 `RunAll`'s `Sub Main` is the project's startup object: run the project and each case prints
diff --git a/test/package-tests/TBMANLIB/Sources/ArrayTests.twin b/test/package-tests/TBMANLIB/Sources/ArrayTests.twin
new file mode 100644
index 00000000..cb125d17
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/ArrayTests.twin
@@ -0,0 +1,258 @@
+' ToolsArray: searching, slicing and splitting arrays.
+[TestFixture]
+Module ArrayTests
+
+    ' The bytes of a string of single-byte characters, with no help from the package.
+    Private Function Bytes(ByVal Text As String) As Byte()
+        Bytes = StrConv(Text, vbFromUnicode)
+    End Function
+
+    ' The text of a byte array of single-byte characters.
+    Private Function Text(ByRef B() As Byte) As String
+        Text = StrConv(B, vbUnicode)
+    End Function
+
+    ' True when a byte array has no elements, or has not been dimensioned.
+    Private Function HasNoElements(ByRef B() As Byte) As Boolean
+        On Error Resume Next
+        HasNoElements = (UBound(B) < LBound(B))
+        If Err.Number <> 0 Then HasNoElements = True
+        Err.Clear
+    End Function
+
+    ' ---- SliceByteArray and SliceLongArray
+
+    [TestCase]
+    Public Sub SliceByteArray_StartEqualsEnd_ReturnsTheOneByte()
+        Expect.Begin
+        Dim src() As Byte, part() As Byte
+        src = Bytes("Hello-World")
+        part = ToolsArray.SliceByteArray(src, 2, 2)
+        Expect.AreEqual 0, UBound(part), "upper bound of SliceByteArray(Hello-World, 2, 2)"
+        Expect.AreEqual 108, part(0), "the byte of SliceByteArray(Hello-World, 2, 2), the letter l"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SliceByteArray_Range_ReturnsTheBytesFromStartToEnd()
+        Expect.Begin
+        Dim src() As Byte, part() As Byte
+        src = Bytes("Hello-World")
+        part = ToolsArray.SliceByteArray(src, 0, 4)
+        Expect.AreEqual "Hello", Text(part), "SliceByteArray(Hello-World, 0, 4)"
+        part = ToolsArray.SliceByteArray(src, 6)
+        Expect.AreEqual "World", Text(part), "SliceByteArray(Hello-World, 6)"
+        part = ToolsArray.SliceByteArray(src, 3, 5)
+        Expect.AreEqual "lo-", Text(part), "SliceByteArray(Hello-World, 3, 5)"
+        Expect.AreEqual 0, LBound(part), "lower bound of the slice"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SliceByteArray_EndBeforeStart_ReturnsOneZeroElement()
+        Expect.Begin
+        Dim src() As Byte, part() As Byte
+        src = Bytes("Hello-World")
+        part = ToolsArray.SliceByteArray(src, 5, 2)
+        Expect.AreEqual 0, UBound(part), "upper bound of SliceByteArray(Hello-World, 5, 2)"
+        Expect.AreEqual 0, part(0), "the element of SliceByteArray(Hello-World, 5, 2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SliceLongArray_Range_ReturnsTheElementsFromStartToEnd()
+        Expect.Begin
+        Dim src() As Long, part() As Long, i As Long
+        ReDim src(0 To 6)
+        For i = 0 To 6
+            src(i) = (i + 1) * 10
+        Next i
+        part = ToolsArray.SliceLongArray(src, 2, 5)
+        Expect.AreEqual 3, UBound(part), "upper bound of SliceLongArray(.., 2, 5)"
+        Expect.AreEqual 30, part(0), "first element"
+        Expect.AreEqual 60, part(3), "last element"
+        part = ToolsArray.SliceLongArray(src, 3, 3)
+        Expect.AreEqual 0, UBound(part), "upper bound of SliceLongArray(.., 3, 3)"
+        Expect.AreEqual 40, part(0), "the element of SliceLongArray(.., 3, 3)"
+        part = ToolsArray.SliceLongArray(src, 5)
+        Expect.AreEqual 1, UBound(part), "upper bound of SliceLongArray(.., 5)"
+        Expect.AreEqual 70, part(1), "last element of SliceLongArray(.., 5)"
+        part = ToolsArray.SliceLongArray(src, 5, 2)
+        Expect.AreEqual 0, UBound(part), "upper bound of SliceLongArray(.., 5, 2)"
+        Expect.AreEqual 0, part(0), "the element of SliceLongArray(.., 5, 2)"
+        Expect.Done
+    End Sub
+
+    ' ---- the small functions
+
+    [TestCase]
+    Public Sub DeArray_AssignsElementsToVariablesAndSkipsOmittedOnes()
+        Expect.Begin
+        Dim a As String, b As String, c As String
+        b = "kept"
+        ToolsArray.DeArray Split("x/y/z", "/"), a, , c
+        Expect.AreEqual "x", a, "first variable"
+        Expect.AreEqual "kept", b, "the variable that was left out of the call"
+        Expect.AreEqual "z", c, "third variable"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Extend_AssignsTheElementsToTheVariables()
+        Expect.Begin
+        Dim a As String, c As String
+        a = "A"
+        c = "C"
+        On Error Resume Next
+        ToolsArray.Extend(Array(a, c)) = Split("one/two", "/")
+        Expect.AreEqual 0, Err.Number, "assignment to Extend raised error " & Err.Number & " " & Err.Description
+        On Error GoTo 0
+        Expect.AreEqual "one", a, "first variable after the assignment to Extend"
+        Expect.AreEqual "two", c, "second variable after the assignment to Extend"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FindByteArray_ReturnsThePositionOrMinusOne()
+        Expect.Begin
+        Dim hay() As Byte, n() As Byte
+        hay = Bytes("Hello-World")
+        n = Bytes("World")
+        Expect.AreEqual 6, ToolsArray.FindByteArray(hay, n), "position of World in Hello-World"
+        n = Bytes("xyz")
+        Expect.AreEqual -1, ToolsArray.FindByteArray(hay, n), "position of xyz in Hello-World"
+        n = Bytes("H")
+        Expect.AreEqual 0, ToolsArray.FindByteArray(hay, n), "position of H in Hello-World"
+        n = Bytes("d")
+        Expect.AreEqual 10, ToolsArray.FindByteArray(hay, n), "position of d in Hello-World"
+        n = Bytes("o")
+        Expect.AreEqual 4, ToolsArray.FindByteArray(hay, n), "position of the first o in Hello-World"
+        n = Bytes("world")
+        Expect.AreEqual -1, ToolsArray.FindByteArray(hay, n), "position of world, in another letter case"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetArrayLength_ReturnsTheNumberOfElements()
+        Expect.Begin
+        Expect.AreEqual 3, ToolsArray.GetArrayLength(Array(10, 20, 30)), "GetArrayLength of Array(10, 20, 30)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetIndexByValue_ReturnsTheIndexOrMinusOne()
+        Expect.Begin
+        Expect.AreEqual 1, ToolsArray.GetIndexByValue(Array("a", "b", "c"), "b"), "index of b"
+        Expect.AreEqual -1, ToolsArray.GetIndexByValue(Array("a", "b", "c"), "z"), "index of z"
+        Expect.AreEqual 0, ToolsArray.GetIndexByValue(Array("a", "b", "c"), "a"), "index of a"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsArrayEmpty_TellsEmptyFromFilled()
+        Expect.Begin
+        Dim none() As Long
+        Expect.IsTrue ToolsArray.IsArrayEmpty(none), "IsArrayEmpty of an array that is not dimensioned"
+        Expect.IsTrue ToolsArray.IsArrayEmpty(Array()), "IsArrayEmpty of Array()"
+        Expect.IsFalse ToolsArray.IsArrayEmpty(Array(1, 2)), "IsArrayEmpty of Array(1, 2)"
+        Expect.Done
+    End Sub
+
+    ' ---- the splits
+
+    [TestCase]
+    Public Sub SplitByteArray_SplitsAtAPositionWithAnOffset()
+        Expect.Begin
+        Dim src() As Byte, parts As Variant, p() As Byte
+        src = Bytes("one,two")
+        parts = ToolsArray.SplitByteArray(src, 3, 1)
+        p = parts(0)
+        Expect.AreEqual "one", Text(p), "first part of SplitByteArray(one,two, 3, 1)"
+        p = parts(1)
+        Expect.AreEqual "two", Text(p), "second part of SplitByteArray(one,two, 3, 1)"
+        parts = ToolsArray.SplitByteArray(src, 7)
+        p = parts(0)
+        Expect.AreEqual "one,two", Text(p), "first part of SplitByteArray(one,two, 7)"
+        p = parts(1)
+        Expect.AreEqual 0, UBound(p), "upper bound of the second part of SplitByteArray(one,two, 7)"
+        Expect.AreEqual 0, p(0), "the element of the second part of SplitByteArray(one,two, 7)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitByteArray_PositionZero_RaisesUnspecifiedError()
+        Expect.Begin
+        Dim src() As Byte, parts As Variant
+        src = Bytes("one,two")
+        On Error Resume Next
+        parts = ToolsArray.SplitByteArray(src, 0)
+        Expect.AreEqual -2147467259, Err.Number, "SplitByteArray with position 0 raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitByteArrayByKeyword_SplitsAtEachKeyword()
+        Expect.Begin
+        Dim src() As Byte, parts As Variant, p() As Byte
+        src = Bytes("a,b,c")
+        parts = ToolsArray.SplitByteArrayByKeyword(src, ",")
+        Expect.AreEqual 2, UBound(parts), "upper bound of the parts of a,b,c split at a comma"
+        p = parts(1)
+        Expect.AreEqual "b", Text(p), "second part"
+        parts = ToolsArray.SplitByteArrayByKeyword(src, ",", 1)
+        p = parts(1)
+        Expect.AreEqual "b,c", Text(p), "second part of a split with SplitCount 1"
+        parts = ToolsArray.SplitByteArrayByKeyword(src, ";")
+        Expect.AreEqual 0, UBound(parts), "upper bound of the parts when the keyword does not occur"
+        p = parts(0)
+        Expect.AreEqual "a,b,c", Text(p), "the one part when the keyword does not occur"
+        parts = ToolsArray.SplitByteArrayByKeyword(Bytes("a--b--c"), "--")
+        Expect.AreEqual 2, UBound(parts), "upper bound of the parts of a--b--c split at --"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitByteArrayByKeyword_KeywordAtStart_GivesAnEmptyFirstPart()
+        Expect.Begin
+        Dim src() As Byte, parts As Variant, p() As Byte
+        src = Bytes(",a")
+        On Error Resume Next
+        parts = ToolsArray.SplitByteArrayByKeyword(src, ",")
+        Expect.AreEqual 0, Err.Number, "split of ,a at a comma raised error " & Err.Number & " " & Err.Description
+        If Err.Number = 0 Then
+            Expect.AreEqual 1, UBound(parts), "upper bound of the parts of ,a split at a comma"
+            p = parts(0)
+            Expect.IsTrue HasNoElements(p), "the first part of ,a split at a comma has no elements"
+            p = parts(1)
+            Expect.AreEqual "a", Text(p), "the second part of ,a split at a comma"
+        End If
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitByteArrayByKeyword_KeywordAtEnd_GivesAnEmptyLastPart()
+        Expect.Begin
+        Dim src() As Byte, parts As Variant, p() As Byte
+        src = Bytes("a,")
+        parts = ToolsArray.SplitByteArrayByKeyword(src, ",")
+        Expect.AreEqual 1, UBound(parts), "upper bound of the parts of a, split at a comma"
+        p = parts(0)
+        Expect.AreEqual "a", Text(p), "the first part of a, split at a comma"
+        p = parts(1)
+        Expect.IsTrue HasNoElements(p), "the last part of a, split at a comma has no elements"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringToByteArray_ReturnsTheAnsiBytes()
+        Expect.Begin
+        Dim b() As Byte
+        b = ToolsArray.StringToByteArray("abc")
+        Expect.AreEqual 2, UBound(b), "upper bound of StringToByteArray(abc)"
+        Expect.AreEqual 99, b(2), "last byte of StringToByteArray(abc)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/CsvTests.twin b/test/package-tests/TBMANLIB/Sources/CsvTests.twin
new file mode 100644
index 00000000..51d78720
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/CsvTests.twin
@@ -0,0 +1,417 @@
+' cCsv: a table of text, and reading and writing it as a file of comma-separated values.
+[TestFixture]
+Module CsvTests
+
+    ' True when LoadFrom raises an error. Err.Number alone cannot tell: an error that the class
+    ' handled itself stays in Err.
+    Private Function LoadRaises(ByVal T As cCsv, ByVal Path As String) As Boolean
+        On Error GoTo Caught
+        T.LoadFrom Path
+        Exit Function
+Caught:
+        LoadRaises = True
+    End Function
+
+    ' ---- building the table
+
+    [TestCase]
+    Public Sub NewLine_FillsAndCutsLinesToTheWidthOfTheFirstLine()
+        Expect.Begin
+        Dim T As New cCsv
+        Expect.IsTrue T.NewLine("id", "name", "note"), "NewLine of the first line"
+        T.NewLine 1, "Ann", "x,y", "dropped"
+        T.NewLine 2
+        Expect.AreEqual 3, T.Data.Count, "number of lines"
+        Expect.AreEqual 3, T.Data(2).Count, "number of fields of line 2, which was given four"
+        Expect.AreEqual 3, T.Data(3).Count, "number of fields of line 3, which was given one"
+        Expect.AreEqual "", T.value(3, 2), "second field of line 3"
+        Expect.AreEqual 3, T.CurrentLineNumber, "CurrentLineNumber after the third NewLine"
+        Expect.AreEqual 3, T.HeadTitle.Count, "number of titles"
+        Expect.AreEqual 3, T.HeadTitleWidth.Count, "number of widths"
+        Expect.AreEqual 1500, T.HeadTitleWidth(1), "width of column 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewLine_Dictionary_IsCopiedIntoTheTable()
+        Expect.Begin
+        Dim T As New cCsv, D As New Scripting.Dictionary
+        T.NewLine "a", "b"
+        D(1) = "x"
+        D(2) = "y"
+        T.NewLine D
+        D(1) = "changed"
+        Expect.AreEqual "x", T.value(2, 1), "first field of the line made from a dictionary"
+        Expect.AreEqual "y", T.value(2, 2), "second field of the line made from a dictionary"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewColumn_AddsTheColumnToEveryLine()
+        Expect.Begin
+        Dim T As New cCsv, r As Boolean
+        T.NewLine "id", "name"
+        T.NewLine 1, "Ann"
+        r = T.NewColumn("age", 700, "0")
+        Expect.AreEqual "age", T.value(1, 3), "title in the first line of the new column"
+        Expect.AreEqual "0", T.value(2, 3), "field of line 2 in the new column"
+        Expect.AreEqual "age", T.HeadTitle(3), "HeadTitle(3)"
+        Expect.AreEqual 700, T.HeadTitleWidth(3), "HeadTitleWidth(3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewColumn_ReturnsTrueWhenTheColumnIsAdded()
+        Expect.Begin
+        Dim T As New cCsv, r As Boolean
+        T.NewLine "id", "name"
+        T.NewLine 1, "Ann"
+        r = T.NewColumn("age", 700, "0")
+        Expect.AreEqual 3, T.Data(1).Count, "number of fields of line 1 after NewColumn"
+        Expect.IsTrue r, "result of NewColumn after it added a column"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewColumn_TableWithNoLines_AddsNothing()
+        Expect.Begin
+        Dim T As New cCsv, r As Boolean
+        r = T.NewColumn("age")
+        Expect.AreEqual 0, T.Data.Count, "number of lines"
+        Expect.AreEqual 0, T.HeadTitle.Count, "number of titles"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DeleteColumn_LastColumn_RemovesIt()
+        Expect.Begin
+        Dim T As New cCsv
+        T.NewLine "a", "b", "c"
+        T.NewLine "d", "e", "f"
+        Expect.IsTrue T.DeleteColumn(), "DeleteColumn with no argument"
+        Expect.AreEqual 2, T.Data(1).Count, "number of fields of line 1"
+        Expect.AreEqual 2, T.Data(2).Count, "number of fields of line 2"
+        Expect.AreEqual 2, T.HeadTitleWidth.Count, "number of widths"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DeleteColumn_NoFirstLine_ReturnsFalse()
+        Expect.Begin
+        Dim T As New cCsv
+        Expect.IsFalse T.DeleteColumn(1), "DeleteColumn of an empty table"
+        Expect.IsTrue Len(T.LastError) > 0, "LastError after the failed DeleteColumn"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DeleteColumn_MiddleColumn_SavesTheRemainingColumns()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String
+        dir = Sandbox.Fresh("csv1")
+        p = dir & "\a.csv"
+        T.NewLine "a", "b", "c"
+        T.NewLine "d", "e", "f"
+        Expect.IsTrue T.DeleteColumn(2), "DeleteColumn(2)"
+        Expect.IsTrue T.SaveTo(p), "SaveTo"
+        Expect.AreEqual "a,c" & vbCrLf & "d,f" & vbCrLf, Sandbox.AsciiOf(p), "file after deleting column 2 of three"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    ' ---- reading and writing fields of the table
+
+    [TestCase]
+    Public Sub GetLine_MakesTheLineCurrent()
+        Expect.Begin
+        Dim T As New cCsv, D As Scripting.Dictionary
+        T.NewLine "id", "name"
+        T.NewLine 1, "Ann"
+        T.NewLine 2, "Bob"
+        Expect.IsTrue T.GetLine(2), "GetLine(2)"
+        Expect.AreEqual 2, T.CurrentLineNumber, "CurrentLineNumber"
+        Expect.AreEqual "Ann", T.CurrentLineDic(2), "second field of the current line"
+        Expect.IsFalse T.GetLine(9), "GetLine(9)"
+        Expect.AreEqual 2, T.CurrentLineNumber, "CurrentLineNumber after the failed GetLine"
+        Expect.IsTrue Len(T.LastError) > 0, "LastError after the failed GetLine"
+        Expect.IsTrue T.GetLine(3, D), "GetLine(3, D)"
+        Expect.IsTrue D Is T.CurrentLineDic, "the dictionary variable passed to GetLine is the current line"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetCurrentLineData_ChangesAFieldOfTheCurrentLine()
+        Expect.Begin
+        Dim T As New cCsv
+        Expect.IsFalse T.SetCurrentLineData(1, "x"), "SetCurrentLineData on an empty table"
+        T.NewLine "id", "name"
+        T.NewLine 1, "Ann"
+        Expect.IsTrue T.SetCurrentLineData(2, "Zed"), "SetCurrentLineData(2, Zed)"
+        Expect.AreEqual "Zed", T.value(2, 2), "field after SetCurrentLineData"
+        Expect.IsFalse T.SetCurrentLineData(9, "x"), "SetCurrentLineData(9, x)"
+        Expect.IsTrue Len(T.LastError) > 0, "LastError after the failed SetCurrentLineData"
+        Dim D As Scripting.Dictionary
+        Expect.IsTrue T.SetCurrentLineData(1, "y", D), "SetCurrentLineData(1, y, D)"
+        Expect.IsTrue D Is Nothing, "the dictionary variable passed to SetCurrentLineData is not changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetLine_ReplacesALineAndClearsTheCurrentLine()
+        Expect.Begin
+        Dim T As New cCsv, D As New Scripting.Dictionary
+        T.NewLine "id", "name"
+        T.NewLine 1, "Ann"
+        D(1) = "7"
+        Expect.IsTrue T.SetLine(2, D), "SetLine(2, D)"
+        Expect.AreEqual "7", T.value(2, 1), "first field of the replaced line"
+        Expect.AreEqual "", T.value(2, 2), "second field of the replaced line, filled up"
+        Expect.IsFalse T.SetCurrentLineData(1, "x"), "SetCurrentLineData after SetLine"
+        Expect.IsFalse T.SetLine(9, D), "SetLine(9, D)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub value_MissingLineOrColumn_ReturnsOneAndSetsLastError()
+        Expect.Begin
+        Dim T As New cCsv
+        T.NewLine "id", "name"
+        Expect.AreEqual 1, T.value(9, 1), "value of a line that does not exist"
+        Expect.AreEqual 1, T.value(1, 9), "value of a column that does not exist"
+        Expect.IsTrue Len(T.LastError) > 0, "LastError after reading a missing field"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub value_Assignment_ChangesTheField()
+        Expect.Begin
+        Dim T As New cCsv
+        T.NewLine "id", "name"
+        T.NewLine 1, "Ann"
+        On Error Resume Next
+        T.value(2, 2) = "Zed"
+        Expect.AreEqual 0, Err.Number, "assignment to value(2, 2) raised error " & Err.Number & " " & Err.Description
+        On Error GoTo 0
+        Expect.AreEqual "Zed", T.value(2, 2), "value(2, 2) after the assignment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetHeadTitleWidth_StoresTheWidthUpToTheMaximum()
+        Expect.Begin
+        Dim T As New cCsv
+        T.NewLine "a", "b"
+        Expect.IsTrue T.SetHeadTitleWidth(1, 900), "SetHeadTitleWidth(1, 900)"
+        Expect.AreEqual 900, T.HeadTitleWidth(1), "width of column 1"
+        Expect.IsTrue T.SetHeadTitleWidth(2, 99999), "SetHeadTitleWidth(2, 99999)"
+        Expect.AreEqual 8000, T.HeadTitleWidth(2), "width of column 2, given more than the maximum"
+        Expect.IsFalse T.SetHeadTitleWidth(5, 100), "SetHeadTitleWidth of a column that has no entry"
+        Expect.IsTrue Len(T.LastError) > 0, "LastError after the failed SetHeadTitleWidth"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetHeadTitleWidthByDic_StoresTheWidthsOfTheColumnsItHas()
+        Expect.Begin
+        Dim T As New cCsv, D As New Scripting.Dictionary, r As Boolean
+        T.NewLine "a", "b"
+        D(1) = 20000
+        D(2) = 300
+        D(7) = 5
+        r = T.SetHeadTitleWidthByDic(D)
+        Expect.AreEqual 20000, T.HeadTitleWidth(1), "width of column 1, which is not limited by the maximum"
+        Expect.AreEqual 300, T.HeadTitleWidth(2), "width of column 2"
+        Expect.IsFalse T.HeadTitleWidth.Exists(7), "an entry for a column the table lacks"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetHeadTitleWidthByDic_ReturnsTrueWhenTheWidthsAreStored()
+        Expect.Begin
+        Dim T As New cCsv, D As New Scripting.Dictionary, r As Boolean
+        T.NewLine "a", "b"
+        D(1) = 300
+        r = T.SetHeadTitleWidthByDic(D)
+        Expect.AreEqual 300, T.HeadTitleWidth(1), "width of column 1"
+        Expect.IsTrue r, "result of SetHeadTitleWidthByDic after it stored a width"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_EmptiesTheTableAndRestoresTheSettings()
+        Expect.Begin
+        Dim T As New cCsv
+        T.NewLine "a", "b"
+        T.Delimiter = ";"
+        T.HeadTitleWidthDefault = 10
+        T.IsFirstLineToHead = False
+        T.Reset True
+        Expect.AreEqual 0, T.Data.Count, "number of lines after Reset(True)"
+        Expect.AreEqual ";", T.Delimiter, "Delimiter after Reset(True)"
+        Expect.AreEqual 10, T.HeadTitleWidthDefault, "HeadTitleWidthDefault after Reset(True)"
+        T.Reset
+        Expect.AreEqual ",", T.Delimiter, "Delimiter after Reset"
+        Expect.AreEqual 1500, T.HeadTitleWidthDefault, "HeadTitleWidthDefault after Reset"
+        Expect.AreEqual 8000, T.HeadTitleWidthMax, "HeadTitleWidthMax after Reset"
+        Expect.IsTrue T.IsFirstLineToHead, "IsFirstLineToHead after Reset"
+        Expect.IsTrue T.HasHeadTitle, "HasHeadTitle after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- LoadFrom
+
+    [TestCase]
+    Public Sub LoadFrom_QuotedFields_AreParsed()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String
+        dir = Sandbox.Fresh("csv2")
+        p = dir & "\a.csv"
+        Sandbox.WriteAscii p, "id,name,note" & vbCrLf & "1,Ann,""x,y""" & vbCrLf & "2,""say """"hi"""""",z" & vbCrLf
+        T.LoadFrom p
+        Expect.AreEqual 3, T.Data.Count, "number of lines"
+        Expect.AreEqual "x,y", T.value(2, 3), "quoted field that holds the delimiter"
+        Expect.AreEqual "say ""hi""", T.value(3, 2), "quoted field that holds quotation marks"
+        Expect.AreEqual "z", T.value(3, 3), "field after a quoted one"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFrom_SpacesAtTheEndsOfAField_AreKept()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String
+        dir = Sandbox.Fresh("csv3")
+        p = dir & "\a.csv"
+        Sandbox.WriteAscii p, "a,b" & vbCrLf & " Ann ,"" x """ & vbCrLf
+        T.LoadFrom p
+        Expect.AreEqual " Ann ", T.value(2, 1), "field with a space at each end"
+        Expect.AreEqual " x ", T.value(2, 2), "quoted field with a space at each end"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFrom_BlankLine_IsSkippedAndItsNumberCounted()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String
+        dir = Sandbox.Fresh("csv4")
+        p = dir & "\a.csv"
+        Sandbox.WriteAscii p, "a,b" & vbCrLf & vbCrLf & "c,d" & vbCrLf
+        T.LoadFrom p
+        Expect.AreEqual 2, T.Data.Count, "number of lines"
+        Expect.IsTrue T.Data.Exists(1), "line 1 exists"
+        Expect.IsFalse T.Data.Exists(2), "line 2, the blank one, exists"
+        Expect.IsTrue T.Data.Exists(3), "line 3 exists"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewLine_AfterABlankLineInTheFile_AddsALine()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String
+        dir = Sandbox.Fresh("csv5")
+        p = dir & "\a.csv"
+        Sandbox.WriteAscii p, "a,b" & vbCrLf & vbCrLf & "c,d" & vbCrLf
+        T.LoadFrom p
+        On Error Resume Next
+        T.NewLine "e", "f"
+        Expect.AreEqual 0, Err.Number, "NewLine after loading a file with a blank line raised error " & Err.Number & " " & Err.Description
+        On Error GoTo 0
+        Expect.AreEqual 3, T.Data.Count, "number of lines after NewLine"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFrom_LinesOfOtherLength_AreCutOrFilledToTheFirstLine()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String
+        dir = Sandbox.Fresh("csv6")
+        p = dir & "\a.csv"
+        Sandbox.WriteAscii p, "a,b,c" & vbCrLf & "1,2,3,4,5" & vbCrLf & "x" & vbCrLf
+        T.LoadFrom p
+        Expect.AreEqual 3, T.Data(2).Count, "number of fields of the long line"
+        Expect.AreEqual "3", T.value(2, 3), "last field of the long line"
+        Expect.AreEqual 3, T.Data(3).Count, "number of fields of the short line"
+        Expect.AreEqual "", T.value(3, 3), "last field of the short line"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFrom_MissingFile_RaisesNothingAndSetsLastError()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String, raised As Boolean
+        dir = Sandbox.Fresh("csv7")
+        p = dir & "\missing.csv"
+        T.NewLine "keep"
+        raised = LoadRaises(T, p)
+        Expect.IsFalse raised, "LoadFrom of a missing file raised an error"
+        Expect.AreEqual "53#", Left$(T.LastError, 3), "start of LastError"
+        Expect.AreEqual p, Right$(T.LastError, Len(p)), "end of LastError"
+        Expect.AreEqual 1, T.Data.Count, "number of lines, which the failed LoadFrom leaves"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    ' ---- SaveTo
+
+    [TestCase]
+    Public Sub SaveTo_QuotesFieldsThatHoldTheDelimiterOrAQuote()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String
+        dir = Sandbox.Fresh("csv8")
+        p = dir & "\a.csv"
+        T.NewLine "plain", "a,b", "say ""hi"""
+        T.Delimiter = ";"
+        T.NewLine "x;y", "a,b", " pad"
+        Expect.IsTrue T.SaveTo(p), "SaveTo"
+        Expect.AreEqual "plain;a,b;""say """"hi""""""" & vbCrLf & """x;y"";a,b; pad" & vbCrLf, Sandbox.AsciiOf(p), "file written with the delimiter ;"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveTo_MissingFolder_ReturnsFalseAndSetsLastError()
+        Expect.Begin
+        Dim T As New cCsv, dir As String
+        dir = Sandbox.Fresh("csv9")
+        T.NewLine "a"
+        Expect.IsFalse T.SaveTo(dir & "\nosuch\a.csv"), "SaveTo into a folder that does not exist"
+        Expect.IsTrue Len(T.LastError) > 0, "LastError after the failed SaveTo"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveTo_FieldWithALineBreak_ReadsBackAsOneField()
+        Expect.Begin
+        Dim T As New cCsv, R As New cCsv, dir As String, p As String
+        dir = Sandbox.Fresh("csv10")
+        p = dir & "\a.csv"
+        T.NewLine "a", "x" & vbCrLf & "y"
+        T.SaveTo p
+        R.LoadFrom p
+        Expect.AreEqual 1, R.Data.Count, "number of lines read back from a table of one line"
+        Expect.AreEqual "x" & vbCrLf & "y", R.value(1, 2), "second field read back"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveTo_CharacterOutsideTheCodePage_KeepsThePreviousFile()
+        Expect.Begin
+        Dim T As New cCsv, dir As String, p As String, r As Boolean
+        dir = Sandbox.Fresh("csv11")
+        p = dir & "\a.csv"
+        Sandbox.WriteAscii p, "old,data" & vbCrLf
+        T.NewLine "a", ChrW(&H4E2D)
+        r = T.SaveTo(p)
+        Expect.IsTrue FileLen(p) > 0, "the file after SaveTo with a field of ChrW(&H4E2D) is not empty"
+        If Not r Then Expect.AreEqual "old,data" & vbCrLf, Sandbox.AsciiOf(p), "the file after the failed SaveTo"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/DicTests.twin b/test/package-tests/TBMANLIB/Sources/DicTests.twin
new file mode 100644
index 00000000..9cd4d816
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/DicTests.twin
@@ -0,0 +1,153 @@
+' ToolsDic: form text, two-level assignment, merging and copying of dictionaries.
+[TestFixture]
+Module DicTests
+
+    ' ---- FromWwwFormUrlencoded
+
+    [TestCase]
+    Public Sub FromWwwFormUrlencoded_ReadsPairsAndTrimsThem()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary, r As Boolean
+        r = ToolsDic.FromWwwFormUrlencoded("name=Ann&city=Oslo&empty=&x= y &novalue&=skipped", D)
+        Expect.IsTrue r, "result of FromWwwFormUrlencoded"
+        Expect.AreEqual 5, D.Count, "number of pairs read"
+        Expect.AreEqual "Ann", D("name"), "value of name"
+        Expect.AreEqual "Oslo", D("city"), "value of city"
+        Expect.AreEqual "", D("empty"), "value of empty"
+        Expect.AreEqual "y", D("x"), "value of x, which had spaces at both ends"
+        Expect.AreEqual "", D("novalue"), "value of a pair with no ="
+        Expect.IsFalse D.Exists(""), "a pair with an empty name is skipped"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FromWwwFormUrlencoded_ExistingNameGetsTheNewValue()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary
+        D("keep") = "k"
+        D("a") = "old"
+        ToolsDic.FromWwwFormUrlencoded "a=new", D
+        Expect.AreEqual "new", D("a"), "value of a"
+        Expect.AreEqual "k", D("keep"), "value of the entry that is not in the text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FromWwwFormUrlencoded_ValueWithEqualsSign_KeepsTheRest()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary
+        ToolsDic.FromWwwFormUrlencoded "a=b=c", D
+        Expect.AreEqual "b=c", D("a"), "value of a in a=b=c"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FromWwwFormUrlencoded_PercentEscapes_AreDecoded()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary
+        ToolsDic.FromWwwFormUrlencoded "a=x%20y&b=1%2B1&c=p+q", D
+        Expect.AreEqual "x y", D("a"), "value of a in a=x%20y"
+        Expect.AreEqual "1+1", D("b"), "value of b in b=1%2B1"
+        Expect.AreEqual "p q", D("c"), "value of c in c=p+q"
+        Expect.Done
+    End Sub
+
+    ' ---- OverWrite
+
+    [TestCase]
+    Public Sub OverWrite_OnlyKey_WritesTheKeysTheTargetHas()
+        Expect.Begin
+        Dim A As New Scripting.Dictionary, B As New Scripting.Dictionary
+        A("x") = 1
+        A("y") = 2
+        B("y") = 20
+        B("z") = 30
+        ToolsDic.OverWrite A, B
+        Expect.AreEqual 1, A("x"), "x after OverWrite"
+        Expect.AreEqual 20, A("y"), "y after OverWrite"
+        Expect.IsFalse A.Exists("z"), "z, which only the source has, after OverWrite"
+        ToolsDic.OverWrite A, B, False
+        Expect.AreEqual 30, A("z"), "z after OverWrite with OnlyKey False"
+        Expect.AreEqual 20, B("y"), "y of the source, which OverWrite does not change"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OverWrite_NestedDictionary_IsUpdatedInPlace()
+        Expect.Begin
+        Dim A As New Scripting.Dictionary, B As New Scripting.Dictionary, Inner As Scripting.Dictionary
+        Set A("n") = New Scripting.Dictionary
+        A("n")("x") = 1
+        A("n")("y") = 2
+        Set Inner = A("n")
+        Set B("n") = New Scripting.Dictionary
+        B("n")("y") = 20
+        B("n")("z") = 30
+        ToolsDic.OverWrite A, B
+        Expect.AreEqual 20, Inner("y"), "y of the nested dictionary the target held"
+        Expect.AreEqual 1, Inner("x"), "x of the nested dictionary the target held"
+        Expect.IsFalse Inner.Exists("z"), "z of the nested dictionary, which only the source has"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OverWrite_OnlyKeyFalse_NestedDictionaryMissingInTarget_IsAdded()
+        Expect.Begin
+        Dim A As New Scripting.Dictionary, B As New Scripting.Dictionary
+        A("x") = 1
+        Set B("m") = New Scripting.Dictionary
+        B("m")("k") = 5
+        On Error Resume Next
+        ToolsDic.OverWrite A, B, False
+        Expect.AreEqual 0, Err.Number, "OverWrite with OnlyKey False of a nested dictionary the target lacks raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.IsTrue A.Exists("m"), "the target has the key m"
+        Expect.AreEqual 5, A("m")("k"), "value m.k in the target"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    ' ---- TowLevelDicAssign and DeepCopy
+
+    [TestCase]
+    Public Sub TowLevelDicAssign_CreatesAndUpdatesTheInnerDictionary()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary
+        ToolsDic.TowLevelDicAssign D, "a", "x", 1
+        ToolsDic.TowLevelDicAssign D, "a", "y", 2
+        ToolsDic.TowLevelDicAssign D, "a", "x", 10
+        Expect.AreEqual 12, D("a")("x") + D("a")("y"), "x plus y"
+        Expect.AreEqual 2, D("a").Count, "number of entries of the inner dictionary"
+        Expect.AreEqual 1, D.Count, "number of entries of the outer dictionary"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DeepCopy_FirstLevel_CopiesKeysAndValues()
+        Expect.Begin
+        Dim A As New Scripting.Dictionary, C As Scripting.Dictionary
+        A.CompareMode = TextCompare
+        A("p") = 1
+        A("q") = "two"
+        Set C = ToolsDic.DeepCopy(A)
+        Expect.AreEqual BinaryCompare, C.CompareMode, "CompareMode of the copy of a dictionary that compares text"
+        C("p") = 99
+        Expect.AreEqual 1, A("p"), "p of the source after the copy was changed"
+        Expect.AreEqual "two", C("q"), "q of the copy"
+        Expect.AreEqual 2, C.Count, "number of entries of the copy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DeepCopy_NestedDictionary_IsCopied()
+        Expect.Begin
+        Dim A As New Scripting.Dictionary, C As Scripting.Dictionary
+        Set A("child") = New Scripting.Dictionary
+        A("child")("n") = 1
+        Set C = ToolsDic.DeepCopy(A)
+        C("child")("n") = 2
+        Expect.AreEqual 1, A("child")("n"), "n of the source's nested dictionary after the copy's was changed"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/FsoTests.twin b/test/package-tests/TBMANLIB/Sources/FsoTests.twin
new file mode 100644
index 00000000..0ecb35fc
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/FsoTests.twin
@@ -0,0 +1,99 @@
+' ToolsFso: completing a path, tidying its slashes, creating folders and naming a new file.
+[TestFixture]
+Module FsoTests
+
+    ' ---- AutoCompleteFullPath and ClearSpan
+
+    [TestCase]
+    Public Sub AutoCompleteFullPath_RelativePath_StartsAtAppPath()
+        Expect.Begin
+        Expect.AreEqual App.Path & "\sub\a.txt", ToolsFso.AutoCompleteFullPath("sub/a.txt", True), "AutoCompleteFullPath of sub/a.txt as a file"
+        Expect.AreEqual App.Path & "\sub\", ToolsFso.AutoCompleteFullPath("sub", False), "AutoCompleteFullPath of sub as a folder"
+        Expect.AreEqual "C:\data\a.json", ToolsFso.AutoCompleteFullPath("C:\data\\a.json", True), "AutoCompleteFullPath of C:\data\\a.json as a file"
+        Expect.AreEqual "C:\data\", ToolsFso.AutoCompleteFullPath("C:\data", False), "AutoCompleteFullPath of C:\data as a folder"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AutoCompleteFullPath_DriveWithForwardSlashes_IsComplete()
+        Expect.Begin
+        Expect.AreEqual "C:\data\a.json", Replace(ToolsFso.AutoCompleteFullPath("C:/data/a.json", True), App.Path, "<App.Path>"), "AutoCompleteFullPath of C:/data/a.json"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AutoCompleteFullPath_NetworkPath_IsComplete()
+        Expect.Begin
+        Expect.AreEqual "\\server\share\a.json", Replace(ToolsFso.AutoCompleteFullPath("\\server\share\a.json", True), App.Path, "<App.Path>"), "AutoCompleteFullPath of \\server\share\a.json"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearSpan_NetworkPath_KeepsItsTwoLeadingBackslashes()
+        Expect.Begin
+        Expect.AreEqual "\\server\share\a.json", ToolsFso.ClearSpan("\\server\share\a.json", True), "ClearSpan of \\server\share\a.json"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearSpan_ReplacesSlashesOneStepAtATime()
+        Expect.Begin
+        Expect.AreEqual "C:\data\a", ToolsFso.ClearSpan("C:/data//a", True), "ClearSpan of C:/data//a as a file"
+        Expect.AreEqual "C:\data\a\", ToolsFso.ClearSpan("C:\data\a", False), "ClearSpan of C:\data\a as a folder"
+        Expect.AreEqual "a\b", ToolsFso.ClearSpan("a\/b", True), "ClearSpan of a\/b"
+        Expect.AreEqual "a\\b", ToolsFso.ClearSpan("a\\\\b", True), "ClearSpan of four backslashes between a and b"
+        Expect.Done
+    End Sub
+
+    ' ---- AutoMakeDir
+
+    [TestCase]
+    Public Sub AutoMakeDir_IsFileTrue_CreatesTheFoldersOfTheFile()
+        Expect.Begin
+        Dim root As String, r As String
+        root = Sandbox.Fresh("fso1")
+        r = ToolsFso.AutoMakeDir(root & "\a\b\file.txt", True)
+        Expect.AreEqual root & "\a\b\", r, "AutoMakeDir result"
+        Expect.AreEqual "b", Dir(root & "\a\b", vbDirectory), "folder a\b exists"
+        Expect.AreEqual "", Dir(root & "\a\b\file.txt", vbDirectory), "no folder is made for the file name"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AutoMakeDir_IsFileFalse_MakesTheLastNameAFolder()
+        Expect.Begin
+        Dim root As String, r As String
+        root = Sandbox.Fresh("fso2")
+        r = ToolsFso.AutoMakeDir(root & "\a\log.txt")
+        Expect.AreEqual root & "\a\log.txt\", r, "AutoMakeDir result with IsFile left out"
+        Expect.AreEqual "log.txt", Dir(root & "\a\log.txt", vbDirectory), "a folder named log.txt exists"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    ' ---- MakeNewFileFulPath
+
+    [TestCase]
+    Public Sub MakeNewFileFulPath_ReturnsTheNewNameWithTheFolder()
+        Expect.Begin
+        Expect.AreEqual "C:\data\a_old.json", ToolsFso.MakeNewFileFulPath("C:\data\a.json", "old"), "MakeNewFileFulPath of C:\data\a.json"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MakeNewFileFulPath_NoFolder_ReturnsTheNewName()
+        Expect.Begin
+        Expect.AreEqual "a_old.json", ToolsFso.MakeNewFileFulPath("a.json", "old"), "MakeNewFileFulPath of a.json"
+        Expect.AreEqual "a-old.json", ToolsFso.MakeNewFileFulPath("a.json", "old", "-"), "MakeNewFileFulPath of a.json with the join text -"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MakeNewFileFulPath_NoExtension_HasNoTrailingPeriod()
+        Expect.Begin
+        Expect.AreEqual "readme_old", ToolsFso.MakeNewFileFulPath("readme", "old"), "MakeNewFileFulPath of readme"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/GroupSink.twin b/test/package-tests/TBMANLIB/Sources/GroupSink.twin
new file mode 100644
index 00000000..464d4990
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/GroupSink.twin
@@ -0,0 +1,22 @@
+' GroupSink: a cTimers and the numbers of the timers that raised its Timer event, in order, for the
+' test cases.
+Class GroupSink
+
+    Private WithEvents Grp As cTimers
+    Public Count As Long
+    Public Last As Long
+
+    Public Sub Attach(ByVal G As cTimers)
+        Set Grp = G
+    End Sub
+
+    Public Sub Detach()
+        Set Grp = Nothing
+    End Sub
+
+    Private Sub Grp_Timer(ByVal Index As Integer)
+        Count = Count + 1
+        Last = Index
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB/Sources/HttpRequestTests.twin b/test/package-tests/TBMANLIB/Sources/HttpRequestTests.twin
new file mode 100644
index 00000000..d5e3c1ca
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/HttpRequestTests.twin
@@ -0,0 +1,362 @@
+' cHttpClient: what the client sends. Each case starts the small server of TestServer on 127.0.0.1,
+' sends one request to it and reads what the server received. Nothing leaves the computer.
+[TestFixture]
+Module HttpRequestTests
+
+    ' The first line of the request on connection Index.
+    Private Function RequestLine(ByVal Index As Long) As String
+        RequestLine = Split(TestServer.RequestHead(Index), vbCrLf)(0)
+    End Function
+
+    ' The body of the request on connection Index as text, one character for each byte.
+    Private Function BodyText(ByVal Index As Long) As String
+        Dim b() As Byte
+        b = TestServer.RequestBody(Index)
+        On Error Resume Next
+        If UBound(b) >= 0 Then BodyText = StrConv(b, vbUnicode)
+        Err.Clear
+    End Function
+
+    ' ---- the settings that become the request
+
+    [TestCase]
+    Public Sub RequestDataQuery_Pairs_AreSentAsParametersOfTheirOwnNames()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.RequestDataQuery.Item("a") = "1"
+        H.RequestDataQuery.Item("b") = "2"
+        H.SendGet TestServer.Url("/p")
+        TestServer.ServerDown
+        Expect.AreEqual "GET /p?a=1&b=2 HTTP/1.1", RequestLine(0), "request line of a GET with the query values a = 1 and b = 2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestDataQuery_UrlWithAQuery_GetsTheValuesAfterAnAmpersand()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.RequestDataQuery.Item("a") = "1"
+        H.SendGet TestServer.Url("/p?x=0")
+        TestServer.ServerDown
+        Expect.AreEqual "GET /p?x=0&a=1 HTTP/1.1", RequestLine(0), "request line of a GET to a URL that has a query"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestDataQuery_IsEmptiedAfterTheRequest()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.RequestDataQuery.Item("a") = "1"
+        H.SendGet TestServer.Url("/p")
+        TestServer.ServerDown
+        Expect.AreEqual 0, H.RequestDataQuery.Count, "number of query values after the request"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestDataForm_Values_AreUrlEncoded()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, body As String
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.RequestDataForm.Item("city") = "A B&C"
+        H.SendPost TestServer.Url("/f")
+        TestServer.ServerDown
+        body = BodyText(0)
+        Expect.IsTrue body = "city=A%20B%26C" Or body = "city=A+B%26C", "body of a form with city = A B&C: " & body
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestDataForm_Values_AreSentAsNamePairsAndThenEmptied()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.RequestDataForm.Item("user") = "ann"
+        H.RequestDataForm.Item("language") = "en"
+        H.SendPost TestServer.Url("/f")
+        TestServer.ServerDown
+        Expect.AreEqual "POST /f HTTP/1.1", RequestLine(0), "request line"
+        Expect.AreEqual "user=ann&language=en", BodyText(0), "body"
+        Expect.AreEqual "application/x-www-form-urlencoded", TestServer.RequestHeader(0, "Content-Type"), "Content-Type of the request"
+        Expect.AreEqual 0, H.RequestDataForm.Count, "number of form values after the request"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestContentType_ChangedAfterAFirstRequest_ChangesTheHeader()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Respond 1, TestServer.Ok("ok")
+        TestServer.Run 2
+        H.RequestDataForm.Item("a") = "1"
+        H.SendPost TestServer.Url("/one")
+        H.SetRequestContentType JsonString
+        H.RequestDataJson.Item("name") = "Ann"
+        H.SendPost TestServer.Url("/two")
+        TestServer.ServerDown
+        Expect.AreEqual "{""name"":""Ann""}", BodyText(1), "body of the second request"
+        Expect.AreEqual "application/json", TestServer.RequestHeader(1, "Content-Type"), "Content-Type of the second request"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestDataJson_Document_IsSentAsTheBody()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.SetRequestContentType JsonString
+        H.RequestDataJson.Item("name") = "Ann"
+        H.RequestDataJson.Item("n") = 3
+        H.SendPost TestServer.Url("/j")
+        TestServer.ServerDown
+        Expect.AreEqual "{""name"":""Ann"",""n"":3}", BodyText(0), "body"
+        Expect.AreEqual "application/json", TestServer.RequestHeader(0, "Content-Type"), "Content-Type"
+        Expect.AreEqual 0, H.RequestDataJson.RootItem.Count, "number of members of the document after the request"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestDataJson_NonAsciiText_IsSentAsUtf8Characters()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, b() As Byte
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.SetRequestContentType JsonString
+        H.RequestDataJson.Item("w") = "caf" & ChrW(233)
+        H.SendPost TestServer.Url("/j")
+        TestServer.ServerDown
+        b = TestServer.RequestBody(0)
+        Expect.AreEqual "7B 22 77 22 3A 22 63 61 66 C3 A9 22 7D", Sandbox.HexOfBytes(b), "bytes of the body"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestDataJson_ValueWithBackslashU_IsSent()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.SetRequestContentType JsonString
+        H.RequestDataJson.Item("p") = "C:\users"
+        On Error Resume Next
+        H.SendPost TestServer.Url("/j")
+        Expect.AreEqual 0, Err.Number, "SendPost of a document that holds C:\users raised error " & Err.Number & " " & Err.Description
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.AreEqual "{""p"":""C:\\users""}", BodyText(0), "body"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestDataJson_EmptyDocument_SendsNoBody()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.SetRequestContentType JsonString
+        H.SendPost TestServer.Url("/j")
+        TestServer.ServerDown
+        Expect.AreEqual "", BodyText(0), "body"
+        Expect.AreEqual "0", TestServer.RequestHeader(0, "Content-Length"), "Content-Length"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Fetch_Body_IsSentAsItIsWithTheTwoLengthHeaders()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.SetRequestContentType TextPlain
+        H.RequestDataForm.Item("ignored") = "1"
+        H.SendPost TestServer.Url("/t"), "abc"
+        TestServer.ServerDown
+        Expect.AreEqual "abc", BodyText(0), "body"
+        Expect.AreEqual "text/plain", TestServer.RequestHeader(0, "Content-Type"), "Content-Type"
+        Expect.AreEqual "3", TestServer.RequestHeader(0, "Content-Lenght"), "the misspelled Content-Lenght header"
+        Expect.AreEqual "3", TestServer.RequestHeader(0, "Content-Length"), "the Content-Length header that WinHTTP adds"
+        Expect.AreEqual 0, H.RequestDataForm.Count, "number of form values after the request"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestChartSet_Utf8Name_EncodesTheBodyAsUtf8AndAnyOtherAsAnsi()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, b() As Byte, ansi() As Byte
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Respond 1, TestServer.Ok("ok")
+        TestServer.Run 2
+        H.SetRequestContentType TextPlain
+        Expect.AreEqual "utf-8", H.RequestChartSet, "RequestChartSet of a new object"
+        H.SendPost TestServer.Url("/t"), ChrW(233)
+        H.RequestChartSet = "gbk"
+        H.SendPost TestServer.Url("/t"), ChrW(233)
+        TestServer.ServerDown
+        b = TestServer.RequestBody(0)
+        Expect.AreEqual "C3 A9", Sandbox.HexOfBytes(b), "bytes of the body with the character set utf-8"
+        ansi = StrConv(ChrW(233), vbFromUnicode)
+        b = TestServer.RequestBody(1)
+        Expect.AreEqual Sandbox.HexOfBytes(ansi), Sandbox.HexOfBytes(b), "bytes of the body with the character set gbk, which is encoded in the ANSI code page"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestHeaders_AreSentOnEveryRequestAndEmptyOnesAreNot()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Respond 1, TestServer.Ok("ok")
+        TestServer.Run 2
+        H.RequestHeaders.Item("X-Api-Key") = "secret"
+        H.RequestHeaders.Item("X-Empty") = ""
+        H.SetCookies "a=1; b=2"
+        H.SendGet TestServer.Url("/h")
+        H.SendGet TestServer.Url("/h")
+        TestServer.ServerDown
+        Expect.AreEqual "secret", TestServer.RequestHeader(0, "X-Api-Key"), "X-Api-Key of the first request"
+        Expect.AreEqual "secret", TestServer.RequestHeader(1, "X-Api-Key"), "X-Api-Key of the second request"
+        Expect.AreEqual "", TestServer.RequestHeader(0, "X-Empty"), "X-Empty of the first request"
+        Expect.AreEqual "a=1; b=2", TestServer.RequestHeader(0, "Cookie"), "Cookie of the first request"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Fetch_Methods_UseTheirOwnVerbs()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        Dim i As Long
+        For i = 0 To 3
+            TestServer.Respond i, TestServer.Ok("ok")
+        Next i
+        TestServer.Run 4
+        H.SendPut TestServer.Url("/m")
+        H.SendDelete TestServer.Url("/m")
+        H.SendOptions TestServer.Url("/m")
+        H.Send ReqGet, TestServer.Url("/m")
+        TestServer.ServerDown
+        Expect.AreEqual "PUT /m HTTP/1.1", RequestLine(0), "request line of SendPut"
+        Expect.AreEqual "DELETE /m HTTP/1.1", RequestLine(1), "request line of SendDelete"
+        Expect.AreEqual "OPTIONS /m HTTP/1.1", RequestLine(2), "request line of SendOptions"
+        Expect.AreEqual "GET /m HTTP/1.1", RequestLine(3), "request line of Send ReqGet"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Fetch_EmptyUrl_Raises500()
+        Expect.Begin
+        Dim H As New cHttpClient
+        On Error Resume Next
+        H.SendGet ""
+        Expect.AreEqual 500, Err.Number, "SendGet of an empty address raises"
+        On Error GoTo 0
+        Expect.IsTrue Len(H.LastError) > 0, "LastError after the failed request"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetRequestContentType_ChoosesTheMediaTypeByNumber()
+        Expect.Begin
+        Dim H As New cHttpClient, r As String
+        Expect.AreEqual "application/json", H.SetRequestContentType(JsonString), "SetRequestContentType(JsonString)"
+        Expect.AreEqual "application/x-www-form-urlencoded", H.SetRequestContentType(FormEncode), "SetRequestContentType(FormEncode)"
+        Expect.AreEqual "multipart/form-data", H.MapRequestContentType(FormMultiPart), "MapRequestContentType(FormMultiPart)"
+        Expect.AreEqual "text/plain", H.SetRequestContentType(TextPlain), "SetRequestContentType(TextPlain)"
+        Expect.AreEqual "text/html", H.SetRequestContentType(TextHtml), "SetRequestContentType(TextHtml)"
+        Expect.AreEqual "text/html", H.RequestContentType, "RequestContentType"
+        Expect.AreEqual "", H.SetRequestContentType(0), "SetRequestContentType(0)"
+        On Error Resume Next
+        r = H.SetRequestContentType(6)
+        Expect.AreEqual 9, Err.Number, "SetRequestContentType(6) raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Settings_HaveTheirDefaults()
+        Expect.Begin
+        Dim H As New cHttpClient
+        Expect.AreEqual "", H.RequestContentType, "RequestContentType of a new object"
+        Expect.AreEqual "utf-8", H.RequestChartSet, "RequestChartSet of a new object"
+        Expect.AreEqual 5, H.RequestTimeOut, "RequestTimeOut of a new object"
+        Expect.IsTrue H.EnableRedirects, "EnableRedirects of a new object"
+        Expect.AreEqual 10, H.MaxRedirects, "MaxRedirects of a new object"
+        Expect.IsTrue H.AllowRedirects(False) Is H, "AllowRedirects returns the object"
+        Expect.IsFalse H.EnableRedirects, "EnableRedirects after AllowRedirects(False)"
+        Expect.IsTrue H.Async(True) Is H, "Async returns the object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RequestTimeOut_UnderFive_IsRaisedToFive()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.RequestTimeOut = 1
+        H.SendGet TestServer.Url("/t")
+        TestServer.ServerDown
+        Expect.AreEqual 5, H.RequestTimeOut, "RequestTimeOut after a request"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Fetch_NoAnswerWithinTheTimeOut_Raises900()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, t As Single
+        port = TestServer.ServerUp()
+        TestServer.RespondSilently 0
+        TestServer.Run 1
+        t = Timer
+        On Error Resume Next
+        H.SendGet TestServer.Url("/slow")
+        Expect.AreEqual 900, Err.Number, "SendGet to a server that does not answer raises"
+        On Error GoTo 0
+        Expect.IsTrue Timer - t >= 4 And Timer - t < 15, "seconds the request waited: " & (Timer - t)
+        TestServer.ServerDown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DebugInfo_DescribesTheRequestAndTheAnswer()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, TestServer.Ok("ok")
+        TestServer.Run 1
+        H.DebugStart = True
+        H.SendGet TestServer.Url("/d")
+        TestServer.ServerDown
+        Expect.IsFalse H.DebugStart, "DebugStart after the request"
+        Expect.AreEqual "GET", H.DebugInfo.Item("Request")("Method"), "Request.Method"
+        Expect.AreEqual TestServer.Url("/d"), H.DebugInfo.Item("Request")("Url"), "Request.Url"
+        Expect.AreEqual 200, H.DebugInfo.Item("Response")("Status"), "Response.Status"
+        Expect.AreEqual "ok", H.DebugInfo.Item("Response")("Content"), "Response.Content"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/HttpResponseTests.twin b/test/package-tests/TBMANLIB/Sources/HttpResponseTests.twin
new file mode 100644
index 00000000..7f63f171
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/HttpResponseTests.twin
@@ -0,0 +1,501 @@
+' cHttpClient: what the client does with the answer, redirects, and the transfer of files. Each case
+' starts the small server of TestServer on 127.0.0.1; nothing leaves the computer.
+[TestFixture]
+Module HttpResponseTests
+
+    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
+
+    ' An answer with a status line, header lines and a body.
+    Private Function Answer(ByVal Status As String, ByVal Headers As String, ByVal Body As String) As String
+        Answer = "HTTP/1.1 " & Status & vbCrLf & Headers & "Content-Length: " & Len(Body) & vbCrLf & "Connection: close" & vbCrLf & vbCrLf & Body
+    End Function
+
+    ' True when DownloadFile raises an error; its result is left in Result.
+    Private Function DownloadRaises(ByVal H As cHttpClient, ByVal Url As String, ByVal Path As String, ByRef Result As Boolean) As Boolean
+        On Error GoTo Caught
+        Result = H.DownloadFile(Url, Path)
+        Exit Function
+Caught:
+        DownloadRaises = True
+    End Function
+
+    ' Reads the text of an asynchronous request, trying for at most MaxMs.
+    Private Function WaitText(ByVal H As cHttpClient, ByVal MaxMs As Long, ByRef Ok As Boolean) As String
+        Dim limit As Single, t As String
+        limit = Timer + MaxMs / 1000
+        Ok = False
+        Do
+            On Error Resume Next
+            Err.Clear
+            t = H.ReturnText()
+            If Err.Number = 0 Then
+                Ok = True
+                WaitText = t
+                On Error GoTo 0
+                Exit Function
+            End If
+            On Error GoTo 0
+            Sleep 20
+        Loop While Timer < limit
+    End Function
+
+    ' ---- the answer
+
+    [TestCase]
+    Public Sub ResponseHeaders_ValueWithColons_IsKeptWhole()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "Date: Tue, 13 Oct 2026 18:00:00 GMT" & vbCrLf & "Content-Type: text/plain" & vbCrLf, "ok")
+        TestServer.Run 1
+        H.SendGet TestServer.Url("/h")
+        TestServer.ServerDown
+        Expect.AreEqual "Tue, 13 Oct 2026 18:00:00 GMT", H.ResponseHeaders("Date"), "ResponseHeaders(Date)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ResponseHeaders_AreFilledAndKeptFromOneAnswerToTheNext()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "Content-Type: text/plain" & vbCrLf & "X-First: 1" & vbCrLf, "ok")
+        TestServer.Respond 1, Answer("200 OK", "Content-Type: text/html" & vbCrLf, "ok")
+        TestServer.Run 2
+        H.SendGet TestServer.Url("/h")
+        Expect.AreEqual "text/plain", H.ResponseHeaders("content-type"), "ResponseHeaders(content-type) after the first answer"
+        H.SendGet TestServer.Url("/h")
+        TestServer.ServerDown
+        Expect.AreEqual "text/html", H.ResponseHeaders("Content-Type"), "ResponseHeaders(Content-Type) after the second answer"
+        Expect.AreEqual "1", H.ResponseHeaders("X-First"), "ResponseHeaders(X-First), which only the first answer had"
+        Expect.IsTrue H.ResponseHeaders.Exists(""), "the empty key that the blank line at the end of the headers becomes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnText_ReturnJson_ReturnBody_ReadTheAnswer()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, J As cJson, b() As Byte
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "Content-Type: application/json" & vbCrLf, "{""a"":1}")
+        TestServer.Respond 1, Answer("200 OK", "Content-Type: text/plain" & vbCrLf, "caf" & ChrW(195) & ChrW(169))
+        TestServer.Respond 2, Answer("200 OK", "Content-Type: text/plain" & vbCrLf, "not json")
+        TestServer.Run 3
+        H.SendGet TestServer.Url("/j")
+        Set J = H.ReturnJson()
+        Expect.AreEqual 1, J.Item("a"), "ReturnJson().Item(a)"
+        Expect.AreEqual "{""a"":1}", H.ReturnText(), "ReturnText of the first answer"
+        H.SendGet TestServer.Url("/u")
+        b = H.ReturnBody()
+        Expect.AreEqual "63 61 66 C3 A9", Sandbox.HexOfBytes(b), "ReturnBody"
+        Expect.AreEqual "caf" & ChrW(233), H.ReturnText(), "ReturnText decodes UTF-8"
+        H.SendGet TestServer.Url("/n")
+        On Error Resume Next
+        Set J = H.ReturnJson()
+        Expect.AreEqual 10001, Err.Number, "ReturnJson of a text that is not JSON raises"
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBody_BeforeAnyRequest_Raises()
+        Expect.Begin
+        Dim H As New cHttpClient, b() As Byte
+        On Error Resume Next
+        b = H.ReturnBody()
+        Expect.AreEqual -2147012795, Err.Number, "ReturnBody of an object that has sent nothing raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Fetch_ErrorStatus_IsRaisedWithItsNumberAndText()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("404 Not Found", "Content-Type: text/plain" & vbCrLf, "nope")
+        TestServer.Respond 1, Answer("500 Internal Server Error", "Content-Type: text/plain" & vbCrLf, "boom")
+        TestServer.Run 2
+        On Error Resume Next
+        H.SendGet TestServer.Url("/x")
+        Expect.AreEqual 404, Err.Number, "number of the error for a 404 answer"
+        Expect.AreEqual "404#Not Found#nope", Err.Description, "description of that error"
+        Expect.AreEqual "404#Not Found#nope", H.LastError, "LastError"
+        Err.Clear
+        H.SendGet TestServer.Url("/y")
+        Expect.AreEqual 500, Err.Number, "number of the error for a 500 answer"
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Async_SendGet_ReturnsAtOnceAndTheAnswerIsReadLater()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, ok As Boolean, t As String
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "X-Seen: 1" & vbCrLf, "later")
+        TestServer.Run 1
+        H.Async(True).SendGet TestServer.Url("/a")
+        Expect.AreEqual 0, H.ResponseHeaders.Count, "ResponseHeaders after an asynchronous request"
+        t = WaitText(H, 4000, ok)
+        TestServer.ServerDown
+        Expect.IsTrue ok, "the answer of the asynchronous request arrived"
+        Expect.AreEqual "later", t, "ReturnText"
+        Expect.AreEqual 0, H.ResponseHeaders.Count, "ResponseHeaders after the answer was read"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnResponseFinished_AsyncRequest_IsRaisedWhenTheAnswerArrives()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, S As New HttpSink, ok As Boolean, t As String, limit As Single
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "", "later")
+        TestServer.Run 1
+        S.Attach H
+        H.Async(True).SendGet TestServer.Url("/a")
+        t = WaitText(H, 4000, ok)
+        limit = Timer + 0.4
+        Do While Timer < limit
+            DoEvents
+            Sleep 5
+        Loop
+        TestServer.ServerDown
+        S.Detach
+        Expect.IsTrue ok, "the answer of the asynchronous request arrived"
+        Expect.IsTrue S.Finished >= 1, "OnResponseFinished events after the answer arrived (got " & S.Finished & ")"
+        Expect.Done
+    End Sub
+
+    ' ---- redirects
+
+    [TestCase]
+    Public Sub EnableRedirects_True_FollowsTheRedirectToTheFinalAnswer()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("302 Found", "Location: " & TestServer.Url("/next") & vbCrLf, "")
+        TestServer.Respond 1, Answer("200 OK", "", "arrived")
+        TestServer.Run 2
+        H.SendGet TestServer.Url("/start")
+        TestServer.ServerDown
+        Expect.AreEqual "arrived", H.ReturnText(), "ReturnText after a redirect that WinHTTP followed"
+        Expect.AreEqual 2, TestServer.Served, "number of connections the server served"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetRedirectUrl_AbsoluteLocation_IsReturnedWhole()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("302 Found", "Location: " & TestServer.Url("/next") & vbCrLf, "")
+        TestServer.Run 1
+        H.AllowRedirects False
+        H.SendGet TestServer.Url("/start")
+        TestServer.ServerDown
+        Expect.AreEqual "http://127.0.0.1:<port>/next", TestServer.Masked(H.GetRedirectUrl()), "GetRedirectUrl of a 302 answer with the Location http://127.0.0.1:<port>/next"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FollowRedirect_Status302_SendsARequestToTheLocation()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("302 Found", "Location: " & TestServer.Url("/next") & vbCrLf, "")
+        TestServer.Respond 1, Answer("200 OK", "", "arrived")
+        TestServer.Run 2
+        H.AllowRedirects False
+        H.SendGet TestServer.Url("/start")
+        On Error Resume Next
+        H.FollowRedirect
+        Expect.AreEqual 0, Err.Number, "FollowRedirect raised error " & Err.Number & " " & Err.Description
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.AreEqual 2, TestServer.Served, "number of connections the server served"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FollowRedirect_NoLocation_DoesNothing()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "", "plain")
+        TestServer.Run 1
+        H.SendGet TestServer.Url("/start")
+        H.FollowRedirect
+        TestServer.ServerDown
+        Expect.AreEqual 1, TestServer.Served, "number of connections the server served"
+        Expect.AreEqual "", H.GetRedirectUrl(), "GetRedirectUrl of an answer with no Location header"
+        Expect.IsTrue H.ResetRedirectCount() Is H, "ResetRedirectCount returns the object"
+        Expect.Done
+    End Sub
+
+    ' ---- files
+
+    [TestCase]
+    Public Sub DownloadFile_WritesTheBodyToTheFile()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String
+        root = Sandbox.Fresh("http1")
+        p = root & "\got.bin"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "Content-Type: application/octet-stream" & vbCrLf, "abc123")
+        TestServer.Run 1
+        Expect.IsTrue H.DownloadFile(TestServer.Url("/f"), p), "DownloadFile"
+        TestServer.ServerDown
+        Expect.AreEqual "abc123", Sandbox.AsciiOf(p), "content of the file"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DownloadFile_OverwriteFalseAndFileExists_Raises58AfterTheRequest()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String
+        root = Sandbox.Fresh("http2")
+        p = root & "\got.bin"
+        Sandbox.WriteAscii p, "old"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "", "new")
+        TestServer.Run 1
+        On Error Resume Next
+        H.DownloadFile TestServer.Url("/f"), p, False
+        Expect.AreEqual 58, Err.Number, "DownloadFile with Overwrite False of a file that exists raises"
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.AreEqual 1, TestServer.Served, "number of connections the server served"
+        Expect.AreEqual "old", Sandbox.AsciiOf(p), "content of the file"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DownloadFile_ErrorStatus_Raises()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String
+        root = Sandbox.Fresh("http3")
+        p = root & "\got.bin"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("404 Not Found", "", "nope")
+        TestServer.Run 1
+        On Error Resume Next
+        H.DownloadFile TestServer.Url("/f"), p
+        Expect.AreEqual 404, Err.Number, "DownloadFile of a 404 answer raises"
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.AreEqual "", Dir(p), "the file is not made"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String, r As Boolean, raised As Boolean
+        root = Sandbox.Fresh("http4")
+        p = root & "\nosuch\got.bin"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "", "abc")
+        TestServer.Run 1
+        raised = DownloadRaises(H, TestServer.Url("/f"), p, r)
+        TestServer.ServerDown
+        Expect.IsFalse CreateObject("Scripting.FileSystemObject").FileExists(p), "the file exists"
+        Expect.IsTrue raised Or Not r, "DownloadFile returned True and raised no error though the file was not written"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DownloadFileAsync_ThenFinishDownloadFile_WritesTheFile()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String, limit As Single, done As Boolean
+        root = Sandbox.Fresh("http5")
+        p = root & "\got.bin"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "", "async body")
+        TestServer.Run 1
+        Expect.IsTrue H.DownloadFileAsync(TestServer.Url("/f"), p) Is H, "DownloadFileAsync returns the object"
+        Expect.AreEqual p, H.RequestHeaders("X-Download-Path"), "the item X-Download-Path"
+        Expect.AreEqual "1", H.RequestHeaders("X-Download-Overwrite"), "the item X-Download-Overwrite"
+        limit = Timer + 4
+        Do
+            On Error Resume Next
+            Err.Clear
+            done = H.FinishDownloadFile()
+            If Err.Number = 0 Then Exit Do
+            On Error GoTo 0
+            Sleep 20
+        Loop While Timer < limit
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.IsTrue done, "FinishDownloadFile"
+        Expect.AreEqual "async body", Sandbox.AsciiOf(p), "content of the file"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FinishDownloadFile_WithoutDownloadFileAsync_Raises()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, ok As Boolean, t As String
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "", "x")
+        TestServer.Run 1
+        H.Async(True).SendGet TestServer.Url("/f")
+        t = WaitText(H, 4000, ok)
+        On Error Resume Next
+        H.FinishDownloadFile
+        Expect.AreEqual 1, Err.Number, "FinishDownloadFile with no X-Download-Path item raises"
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FinishDownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String, limit As Single, r As Boolean, raised As Boolean, ready As Boolean
+        root = Sandbox.Fresh("http6")
+        p = root & "\nosuch\got.bin"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "", "abc")
+        TestServer.Run 1
+        H.DownloadFileAsync TestServer.Url("/f"), p
+        limit = Timer + 4
+        Do
+            On Error Resume Next
+            Err.Clear
+            r = H.FinishDownloadFile()
+            If Err.Number = 0 Then
+                ready = True
+                Exit Do
+            End If
+            If Err.Number <> -2147483638 Then
+                raised = True
+                ready = True
+                Exit Do
+            End If
+            On Error GoTo 0
+            Sleep 20
+        Loop While Timer < limit
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.IsTrue ready, "the answer arrived"
+        Expect.IsFalse CreateObject("Scripting.FileSystemObject").FileExists(p), "the file exists"
+        Expect.IsTrue raised Or Not r, "FinishDownloadFile returned True and raised no error though the file was not written"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UploadFile_SendsTheFileAsMultipartFormData()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String, D As New Scripting.Dictionary
+        Dim ct As String, body As String
+        root = Sandbox.Fresh("http7")
+        p = root & "\report.txt"
+        Sandbox.WriteAscii p, "file data"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("200 OK", "X-Up: yes" & vbCrLf, "stored")
+        TestServer.Run 1
+        H.RequestHeaders.Item("X-Test") = "kept at home"
+        D.Add "owner", "ann"
+        H.UploadFile TestServer.Url("/up"), p, "document", D
+        TestServer.ServerDown
+        ct = TestServer.RequestHeader(0, "Content-Type")
+        body = Replace(Mid$(TestServer.RequestText(0), InStr(TestServer.RequestText(0), vbCrLf & vbCrLf) + 4), vbCrLf, "|")
+        Expect.AreEqual "POST /up HTTP/1.1", Split(TestServer.RequestHead(0), vbCrLf)(0), "request line"
+        Expect.IsTrue ct Like "multipart/form-data; boundary=----WebKitFormBoundary*", "Content-Type of the request: " & ct
+        Expect.IsTrue InStr(body, "Content-Disposition: form-data; name=""document""; filename=""report.txt""|Content-Type: application/octet-stream||file data|") > 0, "the part with the file: " & body
+        Expect.IsTrue InStr(body, "Content-Disposition: form-data; name=""owner""||ann|") > 0, "the part with the additional field: " & body
+        Expect.AreEqual "", TestServer.RequestHeader(0, "X-Test"), "the item of RequestHeaders, which UploadFile does not send"
+        Expect.AreEqual "yes", H.ResponseHeaders("X-Up"), "ResponseHeaders(X-Up)"
+        Expect.AreEqual ct, H.RequestContentType, "RequestContentType after the upload"
+        Expect.IsTrue H.RequestHeaders.Exists("Content-Length"), "RequestHeaders holds a Content-Length item"
+        Expect.AreEqual "stored", H.ReturnText(), "ReturnText"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UploadFile_MissingFile_Raises53()
+        Expect.Begin
+        Dim H As New cHttpClient, root As String
+        root = Sandbox.Fresh("http8")
+        On Error Resume Next
+        H.UploadFile "http://127.0.0.1:1/up", root & "\missing.txt"
+        Expect.AreEqual 53, Err.Number, "UploadFile of a file that does not exist raises"
+        On Error GoTo 0
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UploadFile_ErrorStatus_RaisesWithTheTextOfTheFailure()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String, desc As String
+        root = Sandbox.Fresh("http9")
+        p = root & "\report.txt"
+        Sandbox.WriteAscii p, "x"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("404 Not Found", "", "nope")
+        TestServer.Run 1
+        On Error Resume Next
+        H.UploadFile TestServer.Url("/up"), p
+        Expect.AreEqual 404, Err.Number, "number of the error for a 404 answer"
+        desc = Err.Description
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.IsTrue Right$(H.LastError, 13) = "404#Not Found", "LastError ends with 404#Not Found: " & H.LastError
+        Expect.AreEqual H.LastError, desc, "the description of the error raised"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UploadFile_NoAnswerWithinTheTimeOut_RaisesWithTheTextOfTheFailure()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String, desc As String, n As Long
+        root = Sandbox.Fresh("http10")
+        p = root & "\report.txt"
+        Sandbox.WriteAscii p, "x"
+        port = TestServer.ServerUp()
+        TestServer.RespondSilently 0
+        TestServer.Run 1
+        On Error Resume Next
+        H.UploadFile TestServer.Url("/up"), p
+        n = Err.Number
+        desc = Err.Description
+        On Error GoTo 0
+        TestServer.ServerDown
+        Expect.AreEqual 900, n, "number of the error for an upload that gets no answer"
+        Expect.AreEqual H.LastError, desc, "the description of the error raised"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UploadFileSimple_Failure_LastErrorHoldsTheTextOfTheFailure()
+        Expect.Begin
+        Dim port As Long, H As New cHttpClient, root As String, p As String
+        root = Sandbox.Fresh("http11")
+        p = root & "\report.txt"
+        Sandbox.WriteAscii p, "x"
+        port = TestServer.ServerUp()
+        TestServer.Respond 0, Answer("404 Not Found", "", "nope")
+        TestServer.Respond 1, Answer("200 OK", "", "stored")
+        TestServer.Run 2
+        Expect.IsFalse H.UploadFileSimple(TestServer.Url("/up"), p), "UploadFileSimple of a 404 answer"
+        Expect.IsTrue Right$(H.LastError, 13) = "404#Not Found", "LastError ends with 404#Not Found: " & H.LastError
+        Expect.IsTrue H.UploadFileSimple(TestServer.Url("/up"), p), "UploadFileSimple of a 200 answer"
+        TestServer.ServerDown
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/HttpSink.twin b/test/package-tests/TBMANLIB/Sources/HttpSink.twin
new file mode 100644
index 00000000..6c1a2443
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/HttpSink.twin
@@ -0,0 +1,19 @@
+' HttpSink: a cHttpClient and the number of times it raised OnResponseFinished, for the test cases.
+Class HttpSink
+
+    Private WithEvents Cli As cHttpClient
+    Public Finished As Long
+
+    Public Sub Attach(ByVal C As cHttpClient)
+        Set Cli = C
+    End Sub
+
+    Public Sub Detach()
+        Set Cli = Nothing
+    End Sub
+
+    Private Sub Cli_OnResponseFinished()
+        Finished = Finished + 1
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB/Sources/HttpToolsTests.twin b/test/package-tests/TBMANLIB/Sources/HttpToolsTests.twin
new file mode 100644
index 00000000..eee80d00
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/HttpToolsTests.twin
@@ -0,0 +1,164 @@
+' ToolsHttp: the method names, form and header text, and URL escapes.
+[TestFixture]
+Module HttpToolsTests
+
+    ' A percent sign, written by name so that the escapes read as the pairs of hexadecimal digits.
+    Private Const PCT As String = "%"
+
+    ' ---- methods and enumerations
+
+    [TestCase]
+    Public Sub MapMethod_MapMethodName_UseTheListOfMethodNames()
+        Expect.Begin
+        Dim r As String
+        Expect.AreEqual 2, ToolsHttp.MapMethod("GET"), "MapMethod(GET)"
+        Expect.AreEqual 1, ToolsHttp.MapMethod("POST"), "MapMethod(POST)"
+        Expect.AreEqual 0, ToolsHttp.MapMethod("ANY"), "MapMethod(ANY)"
+        Expect.AreEqual -1, ToolsHttp.MapMethod("get"), "MapMethod(get)"
+        Expect.AreEqual -1, ToolsHttp.MapMethod("PATCH"), "MapMethod(PATCH)"
+        Expect.AreEqual "PUT", ToolsHttp.MapMethodName(ReqPut), "MapMethodName(ReqPut)"
+        Expect.AreEqual "ANY", ToolsHttp.MapMethodName(0), "MapMethodName(0)"
+        Expect.AreEqual "OPTIONS", ToolsHttp.MapMethodName(5), "MapMethodName(5)"
+        On Error Resume Next
+        r = ToolsHttp.MapMethodName(6)
+        Expect.AreEqual 9, Err.Number, "MapMethodName(6) raises"
+        Err.Clear
+        r = ToolsHttp.MapMethodName(-1)
+        Expect.AreEqual 9, Err.Number, "MapMethodName(-1) raises"
+        On Error GoTo 0
+        Expect.AreEqual 1, ReqPost, "ReqPost"
+        Expect.AreEqual 5, ReqOptions, "ReqOptions"
+        Expect.AreEqual 1, JsonString, "JsonString"
+        Expect.AreEqual 5, TextHtml, "TextHtml"
+        Expect.Done
+    End Sub
+
+    ' ---- form and header text
+
+    [TestCase]
+    Public Sub AddToQueryString_PutsTheTextAfterTheNameVer()
+        Expect.Begin
+        Expect.AreEqual "http://host/p?ver=a=1", ToolsHttp.AddToQueryString("http://host/p", "a=1"), "AddToQueryString of a URL with no query"
+        Expect.AreEqual "http://host/p?x=1&ver=a=1", ToolsHttp.AddToQueryString("http://host/p?x=1", "a=1"), "AddToQueryString of a URL with a query"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MakeContent_JoinsPairsWithoutEncodingThem()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary
+        Expect.AreEqual "", ToolsHttp.MakeContent(D), "MakeContent of an empty dictionary"
+        D.Add "user", "ann"
+        D.Add "city", "New York"
+        Expect.AreEqual "user=ann&city=New York", ToolsHttp.MakeContent(D), "MakeContent"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseContent_ReadsPairsIntoTheDictionary()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary, r As Boolean
+        r = ToolsHttp.ParseContent("a=1&b= two &c&=x&d=1=2", D)
+        Expect.AreEqual 4, D.Count, "number of pairs read"
+        Expect.AreEqual "two", D("b"), "value of b"
+        Expect.AreEqual "", D("c"), "value of c"
+        Expect.AreEqual "1", D("d"), "value of d, which is cut at its second ="
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseContent_ReturnsTrueWhenThePairsAreRead()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary, r As Boolean
+        r = ToolsHttp.ParseContent("a=1", D)
+        Expect.AreEqual "1", D("a"), "value of a"
+        Expect.IsTrue r, "result of ParseContent after it read a pair"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseKeyValue_ReadsHeaderLines()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary, r As Boolean
+        r = ToolsHttp.ParseKeyValue("Host: example.com" & vbCrLf & "X-Flag" & vbCrLf & vbCrLf, D)
+        Expect.AreEqual "example.com", D("Host"), "value of Host"
+        Expect.AreEqual "", D("X-Flag"), "value of a line with no colon"
+        Expect.IsTrue D.Exists(""), "the empty line becomes the item with the empty key"
+        Expect.AreEqual 3, D.Count, "number of items"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseKeyValue_ValueWithColons_IsKeptWhole()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary, r As Boolean
+        r = ToolsHttp.ParseKeyValue("Date: Tue, 13 Oct 2026 18:00:00 GMT" & vbCrLf & "Location: http://host/path" & vbCrLf, D)
+        Expect.AreEqual "Tue, 13 Oct 2026 18:00:00 GMT", D("Date"), "value of Date"
+        Expect.AreEqual "http://host/path", D("Location"), "value of Location"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseKeyValue_ReturnsTrueWhenTheLinesAreRead()
+        Expect.Begin
+        Dim D As New Scripting.Dictionary, r As Boolean
+        r = ToolsHttp.ParseKeyValue("Host: example.com", D)
+        Expect.AreEqual "example.com", D("Host"), "value of Host"
+        Expect.IsTrue r, "result of ParseKeyValue after it read a line"
+        Expect.Done
+    End Sub
+
+    ' ---- URL escapes
+
+    [TestCase]
+    Public Sub UrlEncode_EscapesWhatIsNotALetterADigitOrOneOfTheKeptMarks()
+        Expect.Begin
+        Expect.AreEqual "New%20York/a%26b", ToolsHttp.UrlEncode("New York/a&b"), "UrlEncode(New York/a&b)"
+        Expect.AreEqual "a%5Fb", ToolsHttp.UrlEncode("a_b"), "UrlEncode(a_b)"
+        Expect.AreEqual "x-1,2.3/4", ToolsHttp.UrlEncode("x-1,2.3/4"), "UrlEncode of the kept marks"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UrlDecode_LowEscapes_AreDecoded()
+        Expect.Begin
+        Expect.AreEqual "New York/a&b", ToolsHttp.UrlDecode("New%20York/a%26b"), "UrlDecode(New%20York/a%26b)"
+        Expect.AreEqual "a+b", ToolsHttp.UrlDecode("a+b"), "UrlDecode of a plus sign"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UrlDecodeUtf8_PercentEscapes_AreDecoded()
+        Expect.Begin
+        Dim r As String
+        On Error Resume Next
+        r = ToolsHttp.UrlDecodeUtf8("a" & PCT & "20b")
+        Expect.AreEqual 0, Err.Number, "UrlDecodeUtf8 of a text with %20 raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual "a b", r, "UrlDecodeUtf8 of a%20b"
+        r = ToolsHttp.UrlDecodeUtf8(PCT & "E4" & PCT & "B8" & PCT & "AD")
+        Expect.AreEqual 0, Err.Number, "UrlDecodeUtf8 of the escapes of U+4E2D raised error " & Err.Number & " " & Err.Description
+        Expect.AreEqual ChrW(&H4E2D), r, "UrlDecodeUtf8 of %E4%B8%AD"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UrlDecodeUtf8_TextWithoutPercent_IsReturnedWithPlusAsSpace()
+        Expect.Begin
+        Expect.AreEqual "a b c", ToolsHttp.UrlDecodeUtf8("a+b c"), "UrlDecodeUtf8 of a+b c"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UrlEncodUtf8_CharactersAbove7F_AreWrittenAsPercentEscapes()
+        Expect.Begin
+        Expect.AreEqual "a b", ToolsHttp.UrlEncodUtf8("a b"), "UrlEncodUtf8(a b)"
+        Expect.AreEqual "", ToolsHttp.UrlEncodUtf8(""), "UrlEncodUtf8 of an empty text"
+        Expect.AreEqual PCT & "E4" & PCT & "B8" & PCT & "AD", ToolsHttp.UrlEncodUtf8(ChrW(&H4E2D)), "UrlEncodUtf8 of U+4E2D"
+        Expect.AreEqual "caf" & PCT & "C3" & PCT & "A9", ToolsHttp.UrlEncodUtf8("caf" & ChrW(233)), "UrlEncodUtf8 of cafe acute"
+        Expect.AreEqual PCT & "C2" & PCT & "80", ToolsHttp.UrlEncodUtf8(ChrW(&H80)), "UrlEncodUtf8 of U+0080"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/IniTests.twin b/test/package-tests/TBMANLIB/Sources/IniTests.twin
new file mode 100644
index 00000000..f884b99f
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/IniTests.twin
@@ -0,0 +1,105 @@
+' cIni: INI files read into a two-level dictionary and written from it.
+[TestFixture]
+Module IniTests
+
+    ' True when LoadFrom raises an error. Err.Number alone cannot tell: an error that the class
+    ' handled itself stays in Err.
+    Private Function LoadRaises(ByVal C As cIni, ByVal Path As String) As Boolean
+        On Error GoTo Caught
+        C.LoadFrom Path
+        Exit Function
+Caught:
+        LoadRaises = True
+    End Function
+
+    [TestCase]
+    Public Sub LoadFrom_ReadsSectionsKeysAndValues()
+        Expect.Begin
+        Dim C As New cIni, root As String, p As String
+        root = Sandbox.Fresh("ini1")
+        p = root & "\read.ini"
+        Sandbox.WriteAscii p, "top=1" & vbCrLf & "; a comment" & vbCrLf & "[Window]" & vbCrLf & "Title = ""Main""" & vbCrLf & "Width=800" & vbCrLf & vbCrLf & "# not a comment=7" & vbCrLf & "no equals sign" & vbCrLf & "[Empty]" & vbCrLf
+        C.LoadFrom p
+        Expect.AreEqual "1", C.Root("")("top"), "key before the first section"
+        Expect.AreEqual "Main", C("Window")("Title"), "value with quotation marks and spaces around the key"
+        Expect.AreEqual "800", C.Root("Window")("Width"), "Width"
+        Expect.AreEqual "7", C.Root("Window")("# not a comment"), "a line that starts with # is read as a key"
+        Expect.AreEqual 2, C.Root.Count, "number of sections, the empty one not being a section for want of a key"
+        Expect.AreEqual "", C.LastError, "LastError after a good LoadFrom"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFrom_AddsTheIniExtensionAndEmptiesRoot()
+        Expect.Begin
+        Dim C As New cIni, root As String
+        root = Sandbox.Fresh("ini2")
+        Sandbox.WriteAscii root & "\settings.ini", "[A]" & vbCrLf & "k=v" & vbCrLf
+        C.Section("Old")("x") = "1"
+        C.LoadFrom root & "\settings"
+        Expect.IsFalse C.Root.Exists("Old"), "the section that was in Root before LoadFrom"
+        Expect.AreEqual "v", C.Root("A")("k"), "k of section A, read from settings.ini"
+        C.LoadFrom root & "\SETTINGS.INI"
+        Expect.AreEqual "v", C.Root("A")("k"), "k of section A, read from SETTINGS.INI"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFrom_MissingFile_RaisesNothingEmptiesRootAndSetsLastError()
+        Expect.Begin
+        Dim C As New cIni, root As String, raised As Boolean
+        root = Sandbox.Fresh("ini3")
+        C.Section("Old")("x") = "1"
+        raised = LoadRaises(C, root & "\missing.ini")
+        Expect.IsFalse raised, "LoadFrom of a missing file raised an error"
+        Expect.AreEqual 0, C.Root.Count, "number of sections after the failed LoadFrom"
+        Expect.IsTrue InStr(C.LastError, "iniTools.LoadFrom") > 0, "LastError names iniTools.LoadFrom"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveTo_WritesSectionsAndKeys()
+        Expect.Begin
+        Dim C As New cIni, root As String, p As String
+        root = Sandbox.Fresh("ini4")
+        p = root & "\out"
+        Expect.IsFalse C.SaveTo(p), "SaveTo with no data"
+        Expect.IsTrue Len(C.LastError) > 0, "LastError after SaveTo with no data"
+        C.Section("Window")("Width") = "800"
+        C.Section("Window")("Height") = 600
+        C.Section("Colors")("Back") = "white"
+        Expect.IsTrue C.SaveTo(p), "SaveTo"
+        Expect.AreEqual "[Window]" & vbCrLf & "Width=800" & vbCrLf & "Height=600" & vbCrLf & vbCrLf & "[Colors]" & vbCrLf & "Back=white" & vbCrLf & vbCrLf, Sandbox.AsciiOf(p & ".ini"), "file written to out.ini"
+        Expect.AreEqual "", C.LastError, "LastError after a good SaveTo"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveTo_CreatesTheFoldersOfThePath()
+        Expect.Begin
+        Dim C As New cIni, root As String
+        root = Sandbox.Fresh("ini5")
+        C.Section("A")("k") = "v"
+        Expect.IsTrue C.SaveTo(root & "\a\b\c.ini"), "SaveTo into folders that do not exist"
+        Expect.AreEqual "c.ini", Dir(root & "\a\b\c.ini"), "the file exists"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Section_CreatesTheSectionEvenForAReader()
+        Expect.Begin
+        Dim C As New cIni
+        Expect.AreEqual 0, C.Root.Count, "number of sections of a new object"
+        C.Section("Window")("Width") = "800"
+        Expect.AreEqual 1, C.Root.Count, "number of sections after an assignment"
+        Expect.AreEqual 0, C.Section("Colors").Count, "number of keys of a new section"
+        Expect.AreEqual 2, C.Root.Count, "number of sections after reading a section that was not there"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/JsonTests.twin b/test/package-tests/TBMANLIB/Sources/JsonTests.twin
new file mode 100644
index 00000000..c6b07095
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/JsonTests.twin
@@ -0,0 +1,388 @@
+' cJson: Decode, Encode, LoadFrom and SaveTo, and the shared stream behind the two file calls.
+[TestFixture]
+Module JsonTests
+
+    ' ---- Decode
+
+    [TestCase]
+    Public Sub Decode_WhiteSpaceBeforeArray_ReadsTheArray()
+        Expect.Begin
+        Dim J As cJson, ws As Variant, i As Long
+        ws = Array(vbCrLf, vbLf, vbTab, " ")
+        For i = 0 To UBound(ws)
+            Set J = New cJson
+            On Error Resume Next
+            J.Decode ws(i) & "[1,2]"
+            Expect.AreEqual 0, Err.Number, "Decode of white space code " & AscW(ws(i)) & " and [1,2] raised error " & Err.Number & " " & Err.Description
+            Err.Clear
+            Expect.AreEqual 2, J.RootItems.Count, "number of items after Decode of white space code " & AscW(ws(i)) & " and [1,2]"
+            On Error GoTo 0
+        Next i
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_SyntaxError_RaisesWithTheSourceDecode()
+        Expect.Begin
+        Dim J As New cJson
+        On Error Resume Next
+        J.Decode "{""a"" 1}"
+        Expect.AreEqual 10001, Err.Number, "Decode of {""a"" 1} raises"
+        Expect.AreEqual "DECODE", Err.Source, "source of the error"
+        Expect.IsTrue InStr(Err.Description, "#{""a"" 1}") > 0, "description ends with # and the text"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    ' ---- Encode
+
+    [TestCase]
+    Public Sub Encode_FromUnicode_BackslashThenU_IsNotAnEscape()
+        Expect.Begin
+        Dim J As New cJson, t As String
+        J.Item("p") = "C:\users"
+        Expect.AreEqual "{""p"":""C:\\users""}", J.Encode(), "Encode of a value that holds C:\users"
+        On Error Resume Next
+        t = J.Encode(, , True)
+        Expect.AreEqual 0, Err.Number, "Encode with FromUnicode of C:\users raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual "{""p"":""C:\\users""}", t, "Encode with FromUnicode of a value that holds C:\users"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Encode_FromUnicode_ControlCharacter_StaysEscaped()
+        Expect.Begin
+        Dim J As New cJson, t As String, i As Long, bad As Boolean
+        J.Item("c") = Chr$(1)
+        t = J.Encode(, , True)
+        For i = 1 To Len(t)
+            If AscW(Mid$(t, i, 1)) < 32 Then bad = True
+        Next i
+        Expect.IsFalse bad, "Encode with FromUnicode of Chr(1) holds a raw control character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Encode_NonAscii_IsWrittenAsEscapeAndFromUnicodeReadsItBack()
+        Expect.Begin
+        Dim J As New cJson
+        J.Item("word") = "caf" & ChrW(233)
+        Expect.AreEqual "{""word"":""caf\u00E9""}", J.Encode(), "Encode of a value with e acute"
+        Expect.AreEqual "{""word"":""caf" & ChrW(233) & """}", J.Encode(, , True), "Encode with FromUnicode of a value with e acute"
+        Expect.Done
+    End Sub
+
+    ' ---- LoadFrom and SaveTo
+
+    [TestCase]
+    Public Sub LoadFrom_AfterLoadFrom_ReadsTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, J As New cJson, K As New cJson
+        Sandbox.ResetSharedStream
+        dir = Sandbox.Fresh("json1")
+        p = dir & "\a.json"
+        Sandbox.WriteAscii p, "{""a"":1}"
+        On Error Resume Next
+        J.LoadFrom p
+        Expect.AreEqual 0, Err.Number, "first LoadFrom raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        K.LoadFrom p
+        Expect.AreEqual 0, Err.Number, "second LoadFrom raised error " & Err.Number & " " & Err.Description
+        Expect.AreEqual 1, K.Item("a"), "value read by the second LoadFrom"
+        Sandbox.ResetSharedStream
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFrom_AfterSaveTo_ReadsTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, J As New cJson, K As New cJson
+        Sandbox.ResetSharedStream
+        dir = Sandbox.Fresh("json2")
+        p = dir & "\a.json"
+        J.Item("a") = 1
+        On Error Resume Next
+        J.SaveTo p
+        Expect.AreEqual 0, Err.Number, "SaveTo raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        K.LoadFrom p
+        Expect.AreEqual 0, Err.Number, "LoadFrom after SaveTo raised error " & Err.Number & " " & Err.Description
+        Expect.AreEqual 1, K.Item("a"), "value read by LoadFrom after SaveTo"
+        Sandbox.ResetSharedStream
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFrom_AfterFailedLoadFrom_ReadsTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, J As New cJson
+        Sandbox.ResetSharedStream
+        dir = Sandbox.Fresh("json3")
+        p = dir & "\a.json"
+        Sandbox.WriteAscii p, "{""a"":1}"
+        On Error Resume Next
+        J.LoadFrom dir & "\missing.json"
+        Expect.AreEqual 3002, Err.Number, "LoadFrom of a missing file raises"
+        Err.Clear
+        J.LoadFrom p
+        Expect.AreEqual 0, Err.Number, "LoadFrom after a failed LoadFrom raised error " & Err.Number & " " & Err.Description
+        Expect.AreEqual 1, J.Item("a"), "value read after a failed LoadFrom"
+        Sandbox.ResetSharedStream
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveTo_SecondShorterDocument_WritesValidJson()
+        Expect.Begin
+        Dim dir As String, p1 As String, p2 As String, J As New cJson, K As New cJson, t As String
+        Sandbox.ResetSharedStream
+        dir = Sandbox.Fresh("json4")
+        p1 = dir & "\one.json"
+        p2 = dir & "\two.json"
+        J.Item("a") = "long long"
+        K.Item("b") = 1
+        On Error Resume Next
+        J.SaveTo p1
+        K.SaveTo p2
+        Expect.AreEqual 0, Err.Number, "SaveTo raised error " & Err.Number & " " & Err.Description
+        Sandbox.ResetSharedStream
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual "EF BB BF 7B 22 62 22 3A 31 7D", Sandbox.HexOf(p2), "bytes of the second file, which should hold {""b"":1}"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveTo_ThenLoadFrom_RoundTripsNonAscii()
+        Expect.Begin
+        Dim dir As String, p As String, J As New cJson, K As New cJson, s As String
+        Sandbox.ResetSharedStream
+        dir = Sandbox.Fresh("json5")
+        p = dir & "\sample.json"
+        J.Item("word") = "caf" & ChrW(233)
+        On Error Resume Next
+        s = J.SaveTo(p)
+        Sandbox.ResetSharedStream
+        K.LoadFrom p
+        Sandbox.ResetSharedStream
+        On Error GoTo 0
+        Expect.AreEqual "{""word"":""caf\u00E9""}", s, "text returned by SaveTo"
+        Expect.AreEqual "caf" & ChrW(233), K.Item("word"), "value read back"
+        Expect.AreEqual "EF BB BF", Left$(Sandbox.HexOf(p), 8), "start of the file"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    ' ---- the document
+
+    [TestCase]
+    Public Sub Decode_ObjectAndArray_AreHeldInTheirOwnFields()
+        Expect.Begin
+        Dim J As New cJson
+        J.Decode "{""name"":""Ann"",""age"":31,""tags"":[""a"",""b""],""ok"":true,""none"":null}"
+        Expect.AreEqual "Ann", J.Item("name"), "Item(name)"
+        Expect.AreEqual 32, J.Item("age") + 1, "Item(age) + 1"
+        Expect.AreEqual "b", J.Item("tags")(2), "second item of tags"
+        Expect.AreEqual vbBoolean, VarType(J.Item("ok")), "type of Item(ok)"
+        Expect.IsTrue IsNull(J.Item("none")), "Item(none) is Null"
+        Expect.IsTrue IsEmpty(J.Item("missing")), "Item(missing) is Empty"
+        Expect.IsFalse J.RootIsArray, "RootIsArray for an object"
+        Expect.IsFalse J.RootIsEmpty, "RootIsEmpty for an object"
+        Dim A As New cJson
+        A.Decode "[1,2]"
+        Expect.IsTrue A.RootIsArray, "RootIsArray for an array"
+        Expect.AreEqual 2, A.Items(2), "Items(2)"
+        Expect.IsTrue IsEmpty(A.Items(9)), "Items(9) of two items is Empty"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_NumberOf16Characters_IsReturnedAsText()
+        Expect.Begin
+        Dim J As New cJson
+        J.Decode "{""big"":1234567890123456,""small"":123456789012345,""dec"":1.234567890123456,""dec2"":1.23456789012345}"
+        Expect.AreEqual vbString, VarType(J.Item("big")), "type of a number of 16 characters"
+        Expect.AreEqual vbDouble, VarType(J.Item("small")), "type of a number of 15 characters"
+        Expect.AreEqual vbString, VarType(J.Item("dec")), "type of a number of 17 characters with a decimal point"
+        Expect.AreEqual vbDouble, VarType(J.Item("dec2")), "type of a number of 16 characters with a decimal point"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_EmptyText_ChangesNothing()
+        Expect.Begin
+        Dim J As New cJson
+        J.Decode "{""a"":1}"
+        J.Decode "   "
+        Expect.AreEqual 1, J.Item("a"), "Item(a) after Decode of spaces"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_ObjectAfterArray_ReplacesTheDocument()
+        Expect.Begin
+        Dim J As New cJson
+        J.Decode "[1,2]"
+        J.Decode "{""a"":1}"
+        Expect.IsFalse J.RootIsArray, "RootIsArray after decoding an array and then an object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_EmptiesTheDocumentAndTheFieldsWorkAgain()
+        Expect.Begin
+        Dim J As New cJson
+        J.Decode "[1,2]"
+        J.Clear
+        Expect.IsTrue J.RootIsEmpty, "RootIsEmpty after Clear"
+        Expect.AreEqual "", J.RootText, "RootText after Clear"
+        J.Item("a") = 1
+        Expect.AreEqual "{""a"":1}", J.Encode(), "Encode after Clear and an assignment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_ArrayAfterObject_EncodeWritesTheArray()
+        Expect.Begin
+        Dim J As New cJson
+        J.Decode "{""a"":1}"
+        J.Decode "[1,2]"
+        Expect.AreEqual "[1,2]", J.Encode(), "Encode after decoding an object and then an array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_MissingComma_Raises()
+        Expect.Begin
+        Dim J As New cJson
+        On Error Resume Next
+        J.Decode "{""a"":1 ""b"":2}"
+        Expect.AreEqual 10001, Err.Number, "Decode of an object with no comma between its members raises"
+        Err.Clear
+        J.Decode "[1 2]"
+        Expect.AreEqual 10001, Err.Number, "Decode of an array with no comma between its items raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_TextAfterTheDocument_Raises()
+        Expect.Begin
+        Dim J As New cJson
+        On Error Resume Next
+        J.Decode "{""a"":1} garbage"
+        Expect.AreEqual 10001, Err.Number, "Decode of an object followed by other text raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Items_Assignment_ReplacesTheItemAtTheIndex()
+        Expect.Begin
+        Dim J As New cJson
+        J.Decode "[1,2]"
+        J.Items(1) = 5
+        Expect.AreEqual "[5,2]", J.Encode(), "Encode after Items(1) = 5 on [1,2]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Encode_EmptyDocument_IsWrittenAsEmptyBraces()
+        Expect.Begin
+        Dim J As New cJson
+        Expect.AreEqual "{}", J.Encode(), "Encode of a new document"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Encode_DocumentEmptiedAfterAnEncode_IsNotTheOldText()
+        Expect.Begin
+        Dim J As New cJson
+        J.Item("a") = 1
+        Expect.AreEqual "{""a"":1}", J.Encode(), "Encode of a document with one member"
+        J.RootItem.RemoveAll
+        Expect.AreEqual "{}", J.Encode(), "Encode after the member was removed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Encode_Whitespace_IndentsByLevel()
+        Expect.Begin
+        Dim J As New cJson
+        J.Decode "{""a"":[1,2]}"
+        Expect.AreEqual "{|  ""a"": [|    1,|    2|  ]|}", Replace(J.Encode(, 2), vbCrLf, "|"), "Encode with Whitespace 2"
+        J.WhiteSpaceSet = 1
+        Expect.AreEqual "{|" & " ""a"": [|" & "  1,|" & "  2|" & " ]|}", Replace(J.Encode(), vbCrLf, "|"), "Encode with WhiteSpaceSet 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Encode_NonObjectValue_IsStoredAsText()
+        Expect.Begin
+        Dim J As New cJson, r As String
+        r = J.Encode("plain")
+        Expect.AreEqual "plain", r, "Encode of a string"
+        Expect.AreEqual "plain", J.RootText, "RootText after Encode of a string"
+        On Error Resume Next
+        r = J.Encode(Array(1, 2))
+        Expect.AreEqual 13, Err.Number, "Encode of an array raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewItem_NewItems_BuildNestedObjectsAndArrays()
+        Expect.Begin
+        Dim J As New cJson, Home As cJson, Row As cJson, L As New cJson, Tags As cJson, T As New cJson
+        J.Item("name") = "Ann"
+        Set Home = J.NewItem("home")
+        Home.Item("city") = "Oslo"
+        Expect.AreEqual "{""name"":""Ann"",""home"":{""city"":""Oslo""}}", J.Encode(), "Encode after NewItem(home)"
+        Set Row = L.NewItem()
+        Row.Item("id") = 1
+        Set Row = L.NewItem()
+        Row.Item("id") = 2
+        Expect.AreEqual "[{""id"":1},{""id"":2}]", L.Encode(), "Encode after two NewItem()"
+        Set Tags = T.NewItems("tags")
+        Tags.RootItems.Add "a"
+        Tags.RootItems.Add "b"
+        Expect.AreEqual "{""tags"":[""a"",""b""]}", T.Encode(), "Encode after NewItems(tags)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToArray_ObjectDocument_ReturnsOneElementArray()
+        Expect.Begin
+        Dim J As New cJson, v As Variant
+        J.Item("a") = 1
+        v = J.ToArray()
+        Expect.IsTrue IsArray(v), "ToArray of an object document is an array"
+        Expect.AreEqual 0, UBound(v), "upper bound"
+        Dim A As New cJson
+        A.Decode "[1]"
+        Expect.IsTrue IsEmpty(A.ToArray()), "ToArray of an array document is Empty"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LastError_IsNeverSet()
+        Expect.Begin
+        Dim J As New cJson
+        On Error Resume Next
+        J.Decode "{""a"" 1}"
+        On Error GoTo 0
+        Expect.AreEqual "", J.LastError, "LastError after a failed Decode"
+        Expect.IsTrue J.LastSuccess, "LastSuccess after a failed Decode"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/LogsTests.twin b/test/package-tests/TBMANLIB/Sources/LogsTests.twin
new file mode 100644
index 00000000..e21fa716
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/LogsTests.twin
@@ -0,0 +1,173 @@
+' cLogs: the log line, the file a line goes to, the level, and the other outputs.
+[TestFixture]
+Module LogsTests
+
+    ' A cLogs that writes under a folder of the sandbox.
+    Private Function NewLogs(ByVal Folder As String) As cLogs
+        Dim L As New cLogs
+        L.LogDir = Folder
+        Set NewLogs = L
+    End Function
+
+    ' True when a file exists. Dir cannot be used for a path with doubled backslashes.
+    Private Function FileExists(ByVal Path As String) As Boolean
+        FileExists = CreateObject("Scripting.FileSystemObject").FileExists(Path)
+    End Function
+
+    ' ---- the line and the file
+
+    [TestCase]
+    Public Sub Save_ByDay_AppendsTheLineToTheFileOfTheDay()
+        Expect.Begin
+        Dim root As String, L As cLogs, line As String, p As String
+        root = Sandbox.Fresh("logs1")
+        Set L = NewLogs(root)
+        line = L.Save("disk is almost full", EnumLogLevel.Warn)
+        Expect.IsTrue line Like "[[]*] [[]WARN] disk is almost full", "line returned by Save: " & line
+        p = root & "\logs\system\" & Format$(Now, "yyyy") & "\" & Format$(Now, "MM") & "\" & Format$(Now, "yyyyMMdd") & ".txt"
+        Expect.IsTrue FileExists(p), "the file of the day exists"
+        L.Save "second", EnumLogLevel.Info
+        Expect.AreEqual line & vbCrLf, Left$(Sandbox.AsciiOf(p), Len(line) + 2), "first line of the file"
+        Expect.AreEqual 2, UBound(Split(Sandbox.AsciiOf(p), vbCrLf)), "number of lines in the file, with the empty text after the last line break"
+        Expect.AreEqual EnumLogFileNameRule.ByDay, L.LogFileNameRule, "LogFileNameRule after the first Save"
+        Expect.AreEqual "system", L.LogSubDir, "LogSubDir after the first Save"
+        Expect.AreEqual "vb.txt", L.LogFileNameByUer, "LogFileNameByUer after the first Save"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Save_ByMonth_AppendsTheLineToTheFileOfTheMonth()
+        Expect.Begin
+        Dim root As String, L As cLogs, p As String
+        root = Sandbox.Fresh("logs2")
+        Set L = NewLogs(root)
+        L.LogFileNameRule = EnumLogFileNameRule.ByMonth
+        L.LogSubDir = "app"
+        L.Save "hello"
+        p = root & "\logs\app\" & Format$(Now, "yyyy") & "\" & Format$(Now, "yyyyMM") & ".txt"
+        Expect.IsTrue FileExists(p), "the file of the month exists"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Save_ByUser_UsesTheNameTheProgramGives()
+        Expect.Begin
+        Dim root As String, L As cLogs
+        root = Sandbox.Fresh("logs3")
+        Set L = NewLogs(root)
+        L.LogFileNameRule = EnumLogFileNameRule.byUser
+        L.LogSubDir = "app"
+        L.LogFileNameByUer = "demo.log"
+        L.Save "started"
+        Expect.IsTrue FileExists(root & "\app\demo.log"), "the file app\demo.log exists"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Save_ByUser_MissingFolderInTheFileName_FailsWithUnspecifiedError()
+        Expect.Begin
+        Dim root As String, L As cLogs
+        root = Sandbox.Fresh("logs4")
+        Set L = NewLogs(root)
+        L.LogFileNameRule = EnumLogFileNameRule.byUser
+        L.LogSubDir = "app"
+        L.LogFileNameByUer = "deep\demo.log"
+        On Error Resume Next
+        L.Save "started"
+        Expect.AreEqual -2147467259, Err.Number, "Save with a folder in LogFileNameByUer that does not exist raises"
+        On Error GoTo 0
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Save_BelowLogLevelControl_DoesNothingButSetTheDefaults()
+        Expect.Begin
+        Dim root As String, L As cLogs, line As String
+        root = Sandbox.Fresh("logs5")
+        Set L = NewLogs(root)
+        L.LogLevelControl = EnumLogLevel.Warn
+        line = L.Save("quiet", EnumLogLevel.Info)
+        Expect.AreEqual "", line, "Save of a line below LogLevelControl"
+        Expect.AreEqual "", Dir(root & "\logs", vbDirectory), "no folder of logs is made"
+        Expect.AreEqual "system", L.LogSubDir, "LogSubDir after the dropped line"
+        line = L.Save("loud", EnumLogLevel.Danger)
+        Expect.IsTrue line Like "*[[]DANGER] loud", "line returned by Save at level Danger: " & line
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Save_DebuggerLevel_WritesALine()
+        Expect.Begin
+        Dim root As String, L As cLogs, line As String
+        root = Sandbox.Fresh("logs6")
+        Set L = NewLogs(root)
+        On Error Resume Next
+        line = L.Save("x", EnumLogLevel.Debugger)
+        Expect.AreEqual 0, Err.Number, "Save at level Debugger raised error " & Err.Number & " " & Err.Description
+        Expect.IsTrue Len(line) > 0, "Save at level Debugger returns a line"
+        On Error GoTo 0
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Save_CustomLevel_WritesALine()
+        Expect.Begin
+        Dim root As String, L As cLogs, line As String
+        root = Sandbox.Fresh("logs7")
+        Set L = NewLogs(root)
+        On Error Resume Next
+        line = L.Save("x", EnumLogLevel.Custom)
+        Expect.AreEqual 0, Err.Number, "Save at level Custom raised error " & Err.Number & " " & Err.Description
+        Expect.IsTrue Len(line) > 0, "Save at level Custom returns a line"
+        On Error GoTo 0
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    ' ---- the other outputs
+
+    [TestCase]
+    Public Sub Save_OtherOutputs_KeepTheLevelOfTheLine()
+        Expect.Begin
+        Dim root As String, L As cLogs, line As String
+        root = Sandbox.Fresh("logs8")
+        Set L = NewLogs(root)
+        line = L.Save("x", EnumLogLevel.Warn, , True)
+        Expect.AreEqual "[WARN] x", Mid$(line, InStr(line, "] [") + 2), "level and text of the line returned by Save at level Warn with the debugging tool switched on"
+        Sandbox.Remove root
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DbgView_ReturnsTheLineOrAnEmptyStringBelowTheLevel()
+        Expect.Begin
+        Dim L As New cLogs
+        Expect.IsTrue L.DbgView("probe line", EnumLogLevel.Warn) Like "*[[]WARN] probe line", "DbgView at level Warn"
+        L.LogLevelControl = EnumLogLevel.Danger
+        Expect.AreEqual "", L.DbgView("probe line", EnumLogLevel.Warn), "DbgView below LogLevelControl"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormView_NoListBox_ReturnsAnEmptyString()
+        Expect.Begin
+        Dim L As New cLogs
+        Expect.AreEqual "", L.FormView("x"), "FormView with FormListBox set to Nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WebView_NoUserCode_SendsNothingAndReturnsAnEmptyString()
+        Expect.Begin
+        Dim L As New cLogs
+        Expect.AreEqual "", L.WebView("x"), "WebView with WebUserCode empty"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/MathCnTests.twin b/test/package-tests/TBMANLIB/Sources/MathCnTests.twin
new file mode 100644
index 00000000..e4f2d5f1
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/MathCnTests.twin
@@ -0,0 +1,93 @@
+' ToolsMath and ToolsCN: rounding up, random numbers and pinyin.
+[TestFixture]
+Module MathCnTests
+
+    ' ---- ToolsMath
+
+    [TestCase]
+    Public Sub Ceil_RoundsUpToDecimalPlaces()
+        Expect.Begin
+        Expect.AreEqual 1.24, ToolsMath.Ceil(1.231, 2), "Ceil(1.231, 2)"
+        Expect.AreEqual -1, ToolsMath.Ceil(-1.5), "Ceil(-1.5)"
+        Expect.AreEqual 1300, ToolsMath.Ceil(1234, -2), "Ceil(1234, -2)"
+        Expect.AreEqual 2, ToolsMath.Ceil(1.2), "Ceil(1.2)"
+        Expect.AreEqual 5, ToolsMath.Ceil(5), "Ceil(5)"
+        Expect.AreEqual 0, ToolsMath.Ceil(0), "Ceil(0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Ceil_ExactDecimalNumber_IsNotRoundedUp()
+        Expect.Begin
+        Expect.AreEqual 0.07, ToolsMath.Ceil(0.07, 2), "Ceil(0.07, 2)"
+        Expect.AreEqual 1.1, ToolsMath.Ceil(1.1, 1), "Ceil(1.1, 1)"
+        Expect.AreEqual 0.29, ToolsMath.Ceil(0.29, 2), "Ceil(0.29, 2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetRandRange_StaysInTheRangeAndReachesBothEnds()
+        Expect.Begin
+        Dim i As Long, v As Long, lo As Long, hi As Long, outside As Long, a As Long, b As Long
+        a = 3
+        b = 5
+        lo = 99
+        hi = -99
+        For i = 1 To 300
+            v = ToolsMath.GetRandRange(a, b)
+            If v < a Or v > b Then outside = outside + 1
+            If v < lo Then lo = v
+            If v > hi Then hi = v
+        Next i
+        Expect.AreEqual 0, outside, "number of values outside 3 to 5 in 300 calls"
+        Expect.AreEqual 3, lo, "smallest value in 300 calls"
+        Expect.AreEqual 5, hi, "largest value in 300 calls"
+        a = 7
+        b = 7
+        Expect.AreEqual 7, ToolsMath.GetRandRange(a, b), "GetRandRange(7, 7)"
+        Expect.Done
+    End Sub
+
+    ' ---- ToolsCN
+
+    [TestCase]
+    Public Sub GetPinYin_EnglishLetterDigitAndSpace_AreCopied()
+        Expect.Begin
+        Dim r As String
+        On Error Resume Next
+        r = ToolsCN.GetPinYin("ab 1")
+        Expect.AreEqual 0, Err.Number, "GetPinYin of ab 1 raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual "ab 1", r, "GetPinYin of ab 1"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPinYin_ChineseCharacter_ReturnsItsPinyin()
+        Expect.Begin
+        Dim r As String
+        On Error Resume Next
+        r = ToolsCN.GetPinYin(ChrW(&H4E2D))
+        Expect.AreEqual 0, Err.Number, "GetPinYin of the character zhong raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual "Zhong", r, "GetPinYin of the character zhong"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPinYin_EmptyString_ReturnsAnEmptyString()
+        Expect.Begin
+        Expect.AreEqual "", ToolsCN.GetPinYin(""), "GetPinYin of an empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPinYin_OtherCharacter_IsDropped()
+        Expect.Begin
+        Expect.AreEqual "", ToolsCN.GetPinYin(ChrW(233)), "GetPinYin of e acute"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/MimeTests.twin b/test/package-tests/TBMANLIB/Sources/MimeTests.twin
new file mode 100644
index 00000000..f4ebbbff
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/MimeTests.twin
@@ -0,0 +1,86 @@
+' ToolsHttpMimeType: the media type of a file name.
+[TestFixture]
+Module MimeTests
+
+    [TestCase]
+    Public Sub MapMimeType_TableOfThePage_GivesTheMediaTypeOfEachExtension()
+        Expect.Begin
+        Dim rows As Variant, i As Long, parts() As String
+        rows = Array( _
+            "7z|application/x-7z-compressed", "aac|audio/x-aac", "avi|video/x-msvideo", "bmp|image/bmp", "css|text/css", "csv|text/csv", _
+            "doc|application/msword", "docx|application/vnd.openxmlformats-officedocument.wordprocessingml.document", "dwf|model/vnd.dwf", "dwg|image/vnd.dwg", "dxf|image/vnd.dxf", "eml|message/rfc822", _
+            "exe|application/x-msdownload", "f4v|video/x-f4v", "flv|video/x-flv", "gif|image/gif", "html|text/html", "ico|image/x-icon", _
+            "ics|text/calendar", "jar|application/java-archive", "jpeg|image/jpeg", "jpg|image/jpeg", "jpgv|video/jpeg", "jpm|video/jpm", _
+            "js|application/javascript", "json|application/json", "kml|application/vnd.google-earth.kml+xml", "kmz|application/vnd.google-earth.kmz", "m3u|audio/x-mpegurl", "m3u8|application/vnd.apple.mpegurl", _
+            "mdb|application/x-msaccess", "mid|audio/midi", "mov|video/quicktime", "mp4|video/mp4", "mp4a|audio/mp4", "mpeg|video/mpeg", _
+            "mpg|video/mpeg", "mpga|audio/mpeg", "mpp|application/vnd.ms-project", "odb|application/vnd.oasis.opendocument.database", "odc|application/vnd.oasis.opendocument.chart", "odf|application/vnd.oasis.opendocument.formula", _
+            "odft|application/vnd.oasis.opendocument.formula-template", "odg|application/vnd.oasis.opendocument.graphics", "odi|application/vnd.oasis.opendocument.image", "odm|application/vnd.oasis.opendocument.text-master", "odp|application/vnd.oasis.opendocument.presentation", "ods|application/vnd.oasis.opendocument.spreadsheet", _
+            "odt|application/vnd.oasis.opendocument.text", "oga|audio/ogg", "ogv|video/ogg", "ogx|application/ogg", "onetoc|application/onenote", "otf|application/x-font-otf", _
+            "pdf|application/pdf", "png|image/png", "ppsx|application/vnd.openxmlformats-officedocument.presentationml.slideshow", "ppt|application/vnd.ms-powerpoint", "pptx|application/vnd.openxmlformats-officedocument.presentationml.presentation", "psd|image/vnd.adobe.photoshop", _
+            "pub|application/x-mspublisher", "qt|video/quicktime", "ram|audio/x-pn-realaudio", "rar|application/x-rar-compressed", "rm|application/vnd.rn-realmedia", "rss|application/rss+xml", _
+            "svg|image/svg+xml", "swf|application/x-shockwave-flash", "tar|application/x-tar", "tif|image/tiff", "tiff|image/tiff", "torrent|application/x-bittorrent", _
+            "tsv|text/tab-separated-values", "ttf|application/x-font-ttf", "txt|text/plain", "vbml|text/html", "vcf|text/x-vcard", "vcs|text/x-vcalendar", _
+            "vsd|application/vnd.visio", "vsdx|application/vnd.visio2013", "wav|audio/x-wav", "weba|audio/webm", "webm|video/webm", "webp|image/webp", _
+            "wm|video/x-ms-wm", "wma|audio/x-ms-wma", "wmf|application/x-msmetafile", "wmv|video/x-ms-wmv", "xhtml|application/xhtml+xml", "xls|application/vnd.ms-excel", _
+            "xlsx|application/vnd.openxmlformats-officedocument.spreadsheetml.sheet", "xml|application/xml", "xps|application/vnd.ms-xpsdocument", "xslt|application/xslt+xml", "xul|application/vnd.mozilla.xul+xml", "zip|application/zip" _
+        )
+        For i = 0 To UBound(rows)
+            parts = Split(rows(i), "|")
+            Expect.AreEqual parts(1), ToolsHttpMimeType.MapMimeType("file." & parts(0)), "MapMimeType of file." & parts(0)
+        Next i
+        Expect.AreEqual 96, UBound(rows) + 1, "number of extensions checked"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MapMimeType_PathsAndOtherExtensions()
+        Expect.Begin
+        Dim r As String
+        Expect.AreEqual "application/pdf", ToolsHttpMimeType.MapMimeType("report.pdf"), "MapMimeType(report.pdf)"
+        Expect.AreEqual "text/html", ToolsHttpMimeType.MapMimeType("C:\site\index.html"), "MapMimeType of a path"
+        Expect.AreEqual "application/zip", ToolsHttpMimeType.MapMimeType("archive.tar.zip"), "MapMimeType(archive.tar.zip)"
+        Expect.AreEqual "application/octet-stream", ToolsHttpMimeType.MapMimeType("notes.unknown"), "MapMimeType(notes.unknown)"
+        Expect.AreEqual "text/html", ToolsHttpMimeType.MapMimeType(".html"), "MapMimeType(.html)"
+        Expect.AreEqual "text/html", ToolsHttpMimeType.MapMimeType("html"), "MapMimeType(html)"
+        Expect.AreEqual "application/octet-stream", ToolsHttpMimeType.MapMimeType("noextension"), "MapMimeType of a name with no dot"
+        On Error Resume Next
+        r = ToolsHttpMimeType.MapMimeType("")
+        Expect.AreEqual 9, Err.Number, "MapMimeType of an empty string raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MapMimeType_UpperCaseExtension_IsFound()
+        Expect.Begin
+        Expect.AreEqual "application/pdf", ToolsHttpMimeType.MapMimeType("report.PDF"), "MapMimeType(report.PDF)"
+        Expect.AreEqual "image/jpeg", ToolsHttpMimeType.MapMimeType("Photo.JPG"), "MapMimeType(Photo.JPG)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MapMimeType_WoffAndWoff2_HaveFontTypes()
+        Expect.Begin
+        Expect.AreEqual "font/woff", ToolsHttpMimeType.MapMimeType("a.woff"), "MapMimeType(a.woff)"
+        Expect.AreEqual "font/woff2", ToolsHttpMimeType.MapMimeType("a.woff2"), "MapMimeType(a.woff2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MapMimeType_CommonExtensionsMissingFromTheTable_HaveTheirTypes()
+        Expect.Begin
+        Expect.AreEqual "text/html", ToolsHttpMimeType.MapMimeType("a.htm"), "MapMimeType(a.htm)"
+        Expect.AreEqual "audio/mpeg", ToolsHttpMimeType.MapMimeType("a.mp3"), "MapMimeType(a.mp3)"
+        Expect.AreEqual "audio/ogg", ToolsHttpMimeType.MapMimeType("a.ogg"), "MapMimeType(a.ogg)"
+        Expect.AreEqual "application/wasm", ToolsHttpMimeType.MapMimeType("a.wasm"), "MapMimeType(a.wasm)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MapMimeType_Java_IsTheMediaTypeOfJavaSource()
+        Expect.Begin
+        Expect.AreEqual "text/x-java-source", ToolsHttpMimeType.MapMimeType("A.java"), "MapMimeType(A.java)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/Pump.twin b/test/package-tests/TBMANLIB/Sources/Pump.twin
new file mode 100644
index 00000000..186b1614
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/Pump.twin
@@ -0,0 +1,29 @@
+' Pump: waits for a bounded time while the thread's message pump runs, which is what delivers the
+' events of a cTimer. No wait is longer than the limit it is given.
+Module Pump
+
+    Private Declare PtrSafe Function GetTickCount64 Lib "kernel32" () As LongLong
+    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
+
+    ' Runs the message pump for Milliseconds.
+    Public Sub ForMs(ByVal Milliseconds As Long)
+        Dim limit As LongLong
+        limit = GetTickCount64() + Milliseconds
+        Do While GetTickCount64() < limit
+            DoEvents
+            Sleep 1
+        Loop
+    End Sub
+
+    ' Runs the message pump until the sink has Count events, for at most MaxMs. True when it has.
+    Public Function UntilCount(ByVal Sink As TickSink, ByVal Count As Long, ByVal MaxMs As Long) As Boolean
+        Dim limit As LongLong
+        limit = GetTickCount64() + MaxMs
+        Do While Sink.Count < Count And GetTickCount64() < limit
+            DoEvents
+            Sleep 1
+        Loop
+        UntilCount = (Sink.Count >= Count)
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/RunAll.twin b/test/package-tests/TBMANLIB/Sources/RunAll.twin
new file mode 100644
index 00000000..62560b1f
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/RunAll.twin
@@ -0,0 +1,1054 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB, version 1.0.0.29. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB 1.0.0.29: 260 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SliceByteArray_StartEqualsEnd_ReturnsTheOneByte
+        Expect.EndCase "ArrayTests.SliceByteArray_StartEqualsEnd_ReturnsTheOneByte", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SliceByteArray_Range_ReturnsTheBytesFromStartToEnd
+        Expect.EndCase "ArrayTests.SliceByteArray_Range_ReturnsTheBytesFromStartToEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SliceByteArray_EndBeforeStart_ReturnsOneZeroElement
+        Expect.EndCase "ArrayTests.SliceByteArray_EndBeforeStart_ReturnsOneZeroElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SliceLongArray_Range_ReturnsTheElementsFromStartToEnd
+        Expect.EndCase "ArrayTests.SliceLongArray_Range_ReturnsTheElementsFromStartToEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.DeArray_AssignsElementsToVariablesAndSkipsOmittedOnes
+        Expect.EndCase "ArrayTests.DeArray_AssignsElementsToVariablesAndSkipsOmittedOnes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.Extend_AssignsTheElementsToTheVariables
+        Expect.EndCase "ArrayTests.Extend_AssignsTheElementsToTheVariables", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.FindByteArray_ReturnsThePositionOrMinusOne
+        Expect.EndCase "ArrayTests.FindByteArray_ReturnsThePositionOrMinusOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.GetArrayLength_ReturnsTheNumberOfElements
+        Expect.EndCase "ArrayTests.GetArrayLength_ReturnsTheNumberOfElements", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.GetIndexByValue_ReturnsTheIndexOrMinusOne
+        Expect.EndCase "ArrayTests.GetIndexByValue_ReturnsTheIndexOrMinusOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.IsArrayEmpty_TellsEmptyFromFilled
+        Expect.EndCase "ArrayTests.IsArrayEmpty_TellsEmptyFromFilled", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SplitByteArray_SplitsAtAPositionWithAnOffset
+        Expect.EndCase "ArrayTests.SplitByteArray_SplitsAtAPositionWithAnOffset", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SplitByteArray_PositionZero_RaisesUnspecifiedError
+        Expect.EndCase "ArrayTests.SplitByteArray_PositionZero_RaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SplitByteArrayByKeyword_SplitsAtEachKeyword
+        Expect.EndCase "ArrayTests.SplitByteArrayByKeyword_SplitsAtEachKeyword", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SplitByteArrayByKeyword_KeywordAtStart_GivesAnEmptyFirstPart
+        Expect.EndCase "ArrayTests.SplitByteArrayByKeyword_KeywordAtStart_GivesAnEmptyFirstPart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.SplitByteArrayByKeyword_KeywordAtEnd_GivesAnEmptyLastPart
+        Expect.EndCase "ArrayTests.SplitByteArrayByKeyword_KeywordAtEnd_GivesAnEmptyLastPart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ArrayTests.StringToByteArray_ReturnsTheAnsiBytes
+        Expect.EndCase "ArrayTests.StringToByteArray_ReturnsTheAnsiBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.NewLine_FillsAndCutsLinesToTheWidthOfTheFirstLine
+        Expect.EndCase "CsvTests.NewLine_FillsAndCutsLinesToTheWidthOfTheFirstLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.NewLine_Dictionary_IsCopiedIntoTheTable
+        Expect.EndCase "CsvTests.NewLine_Dictionary_IsCopiedIntoTheTable", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.NewColumn_AddsTheColumnToEveryLine
+        Expect.EndCase "CsvTests.NewColumn_AddsTheColumnToEveryLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.NewColumn_ReturnsTrueWhenTheColumnIsAdded
+        Expect.EndCase "CsvTests.NewColumn_ReturnsTrueWhenTheColumnIsAdded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.NewColumn_TableWithNoLines_AddsNothing
+        Expect.EndCase "CsvTests.NewColumn_TableWithNoLines_AddsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.DeleteColumn_LastColumn_RemovesIt
+        Expect.EndCase "CsvTests.DeleteColumn_LastColumn_RemovesIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.DeleteColumn_NoFirstLine_ReturnsFalse
+        Expect.EndCase "CsvTests.DeleteColumn_NoFirstLine_ReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.DeleteColumn_MiddleColumn_SavesTheRemainingColumns
+        Expect.EndCase "CsvTests.DeleteColumn_MiddleColumn_SavesTheRemainingColumns", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.GetLine_MakesTheLineCurrent
+        Expect.EndCase "CsvTests.GetLine_MakesTheLineCurrent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SetCurrentLineData_ChangesAFieldOfTheCurrentLine
+        Expect.EndCase "CsvTests.SetCurrentLineData_ChangesAFieldOfTheCurrentLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SetLine_ReplacesALineAndClearsTheCurrentLine
+        Expect.EndCase "CsvTests.SetLine_ReplacesALineAndClearsTheCurrentLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.value_MissingLineOrColumn_ReturnsOneAndSetsLastError
+        Expect.EndCase "CsvTests.value_MissingLineOrColumn_ReturnsOneAndSetsLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.value_Assignment_ChangesTheField
+        Expect.EndCase "CsvTests.value_Assignment_ChangesTheField", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SetHeadTitleWidth_StoresTheWidthUpToTheMaximum
+        Expect.EndCase "CsvTests.SetHeadTitleWidth_StoresTheWidthUpToTheMaximum", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SetHeadTitleWidthByDic_StoresTheWidthsOfTheColumnsItHas
+        Expect.EndCase "CsvTests.SetHeadTitleWidthByDic_StoresTheWidthsOfTheColumnsItHas", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SetHeadTitleWidthByDic_ReturnsTrueWhenTheWidthsAreStored
+        Expect.EndCase "CsvTests.SetHeadTitleWidthByDic_ReturnsTrueWhenTheWidthsAreStored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.Reset_EmptiesTheTableAndRestoresTheSettings
+        Expect.EndCase "CsvTests.Reset_EmptiesTheTableAndRestoresTheSettings", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.LoadFrom_QuotedFields_AreParsed
+        Expect.EndCase "CsvTests.LoadFrom_QuotedFields_AreParsed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.LoadFrom_SpacesAtTheEndsOfAField_AreKept
+        Expect.EndCase "CsvTests.LoadFrom_SpacesAtTheEndsOfAField_AreKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.LoadFrom_BlankLine_IsSkippedAndItsNumberCounted
+        Expect.EndCase "CsvTests.LoadFrom_BlankLine_IsSkippedAndItsNumberCounted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.NewLine_AfterABlankLineInTheFile_AddsALine
+        Expect.EndCase "CsvTests.NewLine_AfterABlankLineInTheFile_AddsALine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.LoadFrom_LinesOfOtherLength_AreCutOrFilledToTheFirstLine
+        Expect.EndCase "CsvTests.LoadFrom_LinesOfOtherLength_AreCutOrFilledToTheFirstLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.LoadFrom_MissingFile_RaisesNothingAndSetsLastError
+        Expect.EndCase "CsvTests.LoadFrom_MissingFile_RaisesNothingAndSetsLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SaveTo_QuotesFieldsThatHoldTheDelimiterOrAQuote
+        Expect.EndCase "CsvTests.SaveTo_QuotesFieldsThatHoldTheDelimiterOrAQuote", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SaveTo_MissingFolder_ReturnsFalseAndSetsLastError
+        Expect.EndCase "CsvTests.SaveTo_MissingFolder_ReturnsFalseAndSetsLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SaveTo_FieldWithALineBreak_ReadsBackAsOneField
+        Expect.EndCase "CsvTests.SaveTo_FieldWithALineBreak_ReadsBackAsOneField", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CsvTests.SaveTo_CharacterOutsideTheCodePage_KeepsThePreviousFile
+        Expect.EndCase "CsvTests.SaveTo_CharacterOutsideTheCodePage_KeepsThePreviousFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.FromWwwFormUrlencoded_ReadsPairsAndTrimsThem
+        Expect.EndCase "DicTests.FromWwwFormUrlencoded_ReadsPairsAndTrimsThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.FromWwwFormUrlencoded_ExistingNameGetsTheNewValue
+        Expect.EndCase "DicTests.FromWwwFormUrlencoded_ExistingNameGetsTheNewValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.FromWwwFormUrlencoded_ValueWithEqualsSign_KeepsTheRest
+        Expect.EndCase "DicTests.FromWwwFormUrlencoded_ValueWithEqualsSign_KeepsTheRest", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.FromWwwFormUrlencoded_PercentEscapes_AreDecoded
+        Expect.EndCase "DicTests.FromWwwFormUrlencoded_PercentEscapes_AreDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.OverWrite_OnlyKey_WritesTheKeysTheTargetHas
+        Expect.EndCase "DicTests.OverWrite_OnlyKey_WritesTheKeysTheTargetHas", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.OverWrite_NestedDictionary_IsUpdatedInPlace
+        Expect.EndCase "DicTests.OverWrite_NestedDictionary_IsUpdatedInPlace", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.OverWrite_OnlyKeyFalse_NestedDictionaryMissingInTarget_IsAdded
+        Expect.EndCase "DicTests.OverWrite_OnlyKeyFalse_NestedDictionaryMissingInTarget_IsAdded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.TowLevelDicAssign_CreatesAndUpdatesTheInnerDictionary
+        Expect.EndCase "DicTests.TowLevelDicAssign_CreatesAndUpdatesTheInnerDictionary", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.DeepCopy_FirstLevel_CopiesKeysAndValues
+        Expect.EndCase "DicTests.DeepCopy_FirstLevel_CopiesKeysAndValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DicTests.DeepCopy_NestedDictionary_IsCopied
+        Expect.EndCase "DicTests.DeepCopy_NestedDictionary_IsCopied", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.AutoCompleteFullPath_RelativePath_StartsAtAppPath
+        Expect.EndCase "FsoTests.AutoCompleteFullPath_RelativePath_StartsAtAppPath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.AutoCompleteFullPath_DriveWithForwardSlashes_IsComplete
+        Expect.EndCase "FsoTests.AutoCompleteFullPath_DriveWithForwardSlashes_IsComplete", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.AutoCompleteFullPath_NetworkPath_IsComplete
+        Expect.EndCase "FsoTests.AutoCompleteFullPath_NetworkPath_IsComplete", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.ClearSpan_NetworkPath_KeepsItsTwoLeadingBackslashes
+        Expect.EndCase "FsoTests.ClearSpan_NetworkPath_KeepsItsTwoLeadingBackslashes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.ClearSpan_ReplacesSlashesOneStepAtATime
+        Expect.EndCase "FsoTests.ClearSpan_ReplacesSlashesOneStepAtATime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.AutoMakeDir_IsFileTrue_CreatesTheFoldersOfTheFile
+        Expect.EndCase "FsoTests.AutoMakeDir_IsFileTrue_CreatesTheFoldersOfTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.AutoMakeDir_IsFileFalse_MakesTheLastNameAFolder
+        Expect.EndCase "FsoTests.AutoMakeDir_IsFileFalse_MakesTheLastNameAFolder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.MakeNewFileFulPath_ReturnsTheNewNameWithTheFolder
+        Expect.EndCase "FsoTests.MakeNewFileFulPath_ReturnsTheNewNameWithTheFolder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.MakeNewFileFulPath_NoFolder_ReturnsTheNewName
+        Expect.EndCase "FsoTests.MakeNewFileFulPath_NoFolder_ReturnsTheNewName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FsoTests.MakeNewFileFulPath_NoExtension_HasNoTrailingPeriod
+        Expect.EndCase "FsoTests.MakeNewFileFulPath_NoExtension_HasNoTrailingPeriod", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataQuery_Pairs_AreSentAsParametersOfTheirOwnNames
+        Expect.EndCase "HttpRequestTests.RequestDataQuery_Pairs_AreSentAsParametersOfTheirOwnNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataQuery_UrlWithAQuery_GetsTheValuesAfterAnAmpersand
+        Expect.EndCase "HttpRequestTests.RequestDataQuery_UrlWithAQuery_GetsTheValuesAfterAnAmpersand", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataQuery_IsEmptiedAfterTheRequest
+        Expect.EndCase "HttpRequestTests.RequestDataQuery_IsEmptiedAfterTheRequest", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataForm_Values_AreUrlEncoded
+        Expect.EndCase "HttpRequestTests.RequestDataForm_Values_AreUrlEncoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataForm_Values_AreSentAsNamePairsAndThenEmptied
+        Expect.EndCase "HttpRequestTests.RequestDataForm_Values_AreSentAsNamePairsAndThenEmptied", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestContentType_ChangedAfterAFirstRequest_ChangesTheHeader
+        Expect.EndCase "HttpRequestTests.RequestContentType_ChangedAfterAFirstRequest_ChangesTheHeader", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataJson_Document_IsSentAsTheBody
+        Expect.EndCase "HttpRequestTests.RequestDataJson_Document_IsSentAsTheBody", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataJson_NonAsciiText_IsSentAsUtf8Characters
+        Expect.EndCase "HttpRequestTests.RequestDataJson_NonAsciiText_IsSentAsUtf8Characters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataJson_ValueWithBackslashU_IsSent
+        Expect.EndCase "HttpRequestTests.RequestDataJson_ValueWithBackslashU_IsSent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestDataJson_EmptyDocument_SendsNoBody
+        Expect.EndCase "HttpRequestTests.RequestDataJson_EmptyDocument_SendsNoBody", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.Fetch_Body_IsSentAsItIsWithTheTwoLengthHeaders
+        Expect.EndCase "HttpRequestTests.Fetch_Body_IsSentAsItIsWithTheTwoLengthHeaders", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestChartSet_Utf8Name_EncodesTheBodyAsUtf8AndAnyOtherAsAnsi
+        Expect.EndCase "HttpRequestTests.RequestChartSet_Utf8Name_EncodesTheBodyAsUtf8AndAnyOtherAsAnsi", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestHeaders_AreSentOnEveryRequestAndEmptyOnesAreNot
+        Expect.EndCase "HttpRequestTests.RequestHeaders_AreSentOnEveryRequestAndEmptyOnesAreNot", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.Fetch_Methods_UseTheirOwnVerbs
+        Expect.EndCase "HttpRequestTests.Fetch_Methods_UseTheirOwnVerbs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.Fetch_EmptyUrl_Raises500
+        Expect.EndCase "HttpRequestTests.Fetch_EmptyUrl_Raises500", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.SetRequestContentType_ChoosesTheMediaTypeByNumber
+        Expect.EndCase "HttpRequestTests.SetRequestContentType_ChoosesTheMediaTypeByNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.Settings_HaveTheirDefaults
+        Expect.EndCase "HttpRequestTests.Settings_HaveTheirDefaults", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.RequestTimeOut_UnderFive_IsRaisedToFive
+        Expect.EndCase "HttpRequestTests.RequestTimeOut_UnderFive_IsRaisedToFive", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.Fetch_NoAnswerWithinTheTimeOut_Raises900
+        Expect.EndCase "HttpRequestTests.Fetch_NoAnswerWithinTheTimeOut_Raises900", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpRequestTests.DebugInfo_DescribesTheRequestAndTheAnswer
+        Expect.EndCase "HttpRequestTests.DebugInfo_DescribesTheRequestAndTheAnswer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.ResponseHeaders_ValueWithColons_IsKeptWhole
+        Expect.EndCase "HttpResponseTests.ResponseHeaders_ValueWithColons_IsKeptWhole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.ResponseHeaders_AreFilledAndKeptFromOneAnswerToTheNext
+        Expect.EndCase "HttpResponseTests.ResponseHeaders_AreFilledAndKeptFromOneAnswerToTheNext", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.ReturnText_ReturnJson_ReturnBody_ReadTheAnswer
+        Expect.EndCase "HttpResponseTests.ReturnText_ReturnJson_ReturnBody_ReadTheAnswer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.ReturnBody_BeforeAnyRequest_Raises
+        Expect.EndCase "HttpResponseTests.ReturnBody_BeforeAnyRequest_Raises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.Fetch_ErrorStatus_IsRaisedWithItsNumberAndText
+        Expect.EndCase "HttpResponseTests.Fetch_ErrorStatus_IsRaisedWithItsNumberAndText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.Async_SendGet_ReturnsAtOnceAndTheAnswerIsReadLater
+        Expect.EndCase "HttpResponseTests.Async_SendGet_ReturnsAtOnceAndTheAnswerIsReadLater", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.OnResponseFinished_AsyncRequest_IsRaisedWhenTheAnswerArrives
+        Expect.EndCase "HttpResponseTests.OnResponseFinished_AsyncRequest_IsRaisedWhenTheAnswerArrives", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.EnableRedirects_True_FollowsTheRedirectToTheFinalAnswer
+        Expect.EndCase "HttpResponseTests.EnableRedirects_True_FollowsTheRedirectToTheFinalAnswer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.GetRedirectUrl_AbsoluteLocation_IsReturnedWhole
+        Expect.EndCase "HttpResponseTests.GetRedirectUrl_AbsoluteLocation_IsReturnedWhole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.FollowRedirect_Status302_SendsARequestToTheLocation
+        Expect.EndCase "HttpResponseTests.FollowRedirect_Status302_SendsARequestToTheLocation", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.FollowRedirect_NoLocation_DoesNothing
+        Expect.EndCase "HttpResponseTests.FollowRedirect_NoLocation_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.DownloadFile_WritesTheBodyToTheFile
+        Expect.EndCase "HttpResponseTests.DownloadFile_WritesTheBodyToTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.DownloadFile_OverwriteFalseAndFileExists_Raises58AfterTheRequest
+        Expect.EndCase "HttpResponseTests.DownloadFile_OverwriteFalseAndFileExists_Raises58AfterTheRequest", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.DownloadFile_ErrorStatus_Raises
+        Expect.EndCase "HttpResponseTests.DownloadFile_ErrorStatus_Raises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.DownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone
+        Expect.EndCase "HttpResponseTests.DownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.DownloadFileAsync_ThenFinishDownloadFile_WritesTheFile
+        Expect.EndCase "HttpResponseTests.DownloadFileAsync_ThenFinishDownloadFile_WritesTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.FinishDownloadFile_WithoutDownloadFileAsync_Raises
+        Expect.EndCase "HttpResponseTests.FinishDownloadFile_WithoutDownloadFileAsync_Raises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.FinishDownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone
+        Expect.EndCase "HttpResponseTests.FinishDownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.UploadFile_SendsTheFileAsMultipartFormData
+        Expect.EndCase "HttpResponseTests.UploadFile_SendsTheFileAsMultipartFormData", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.UploadFile_MissingFile_Raises53
+        Expect.EndCase "HttpResponseTests.UploadFile_MissingFile_Raises53", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.UploadFile_ErrorStatus_RaisesWithTheTextOfTheFailure
+        Expect.EndCase "HttpResponseTests.UploadFile_ErrorStatus_RaisesWithTheTextOfTheFailure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.UploadFile_NoAnswerWithinTheTimeOut_RaisesWithTheTextOfTheFailure
+        Expect.EndCase "HttpResponseTests.UploadFile_NoAnswerWithinTheTimeOut_RaisesWithTheTextOfTheFailure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpResponseTests.UploadFileSimple_Failure_LastErrorHoldsTheTextOfTheFailure
+        Expect.EndCase "HttpResponseTests.UploadFileSimple_Failure_LastErrorHoldsTheTextOfTheFailure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.MapMethod_MapMethodName_UseTheListOfMethodNames
+        Expect.EndCase "HttpToolsTests.MapMethod_MapMethodName_UseTheListOfMethodNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.AddToQueryString_PutsTheTextAfterTheNameVer
+        Expect.EndCase "HttpToolsTests.AddToQueryString_PutsTheTextAfterTheNameVer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.MakeContent_JoinsPairsWithoutEncodingThem
+        Expect.EndCase "HttpToolsTests.MakeContent_JoinsPairsWithoutEncodingThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.ParseContent_ReadsPairsIntoTheDictionary
+        Expect.EndCase "HttpToolsTests.ParseContent_ReadsPairsIntoTheDictionary", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.ParseContent_ReturnsTrueWhenThePairsAreRead
+        Expect.EndCase "HttpToolsTests.ParseContent_ReturnsTrueWhenThePairsAreRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.ParseKeyValue_ReadsHeaderLines
+        Expect.EndCase "HttpToolsTests.ParseKeyValue_ReadsHeaderLines", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.ParseKeyValue_ValueWithColons_IsKeptWhole
+        Expect.EndCase "HttpToolsTests.ParseKeyValue_ValueWithColons_IsKeptWhole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.ParseKeyValue_ReturnsTrueWhenTheLinesAreRead
+        Expect.EndCase "HttpToolsTests.ParseKeyValue_ReturnsTrueWhenTheLinesAreRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.UrlEncode_EscapesWhatIsNotALetterADigitOrOneOfTheKeptMarks
+        Expect.EndCase "HttpToolsTests.UrlEncode_EscapesWhatIsNotALetterADigitOrOneOfTheKeptMarks", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.UrlDecode_LowEscapes_AreDecoded
+        Expect.EndCase "HttpToolsTests.UrlDecode_LowEscapes_AreDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.UrlDecodeUtf8_PercentEscapes_AreDecoded
+        Expect.EndCase "HttpToolsTests.UrlDecodeUtf8_PercentEscapes_AreDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.UrlDecodeUtf8_TextWithoutPercent_IsReturnedWithPlusAsSpace
+        Expect.EndCase "HttpToolsTests.UrlDecodeUtf8_TextWithoutPercent_IsReturnedWithPlusAsSpace", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HttpToolsTests.UrlEncodUtf8_CharactersAbove7F_AreWrittenAsPercentEscapes
+        Expect.EndCase "HttpToolsTests.UrlEncodUtf8_CharactersAbove7F_AreWrittenAsPercentEscapes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IniTests.LoadFrom_ReadsSectionsKeysAndValues
+        Expect.EndCase "IniTests.LoadFrom_ReadsSectionsKeysAndValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IniTests.LoadFrom_AddsTheIniExtensionAndEmptiesRoot
+        Expect.EndCase "IniTests.LoadFrom_AddsTheIniExtensionAndEmptiesRoot", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IniTests.LoadFrom_MissingFile_RaisesNothingEmptiesRootAndSetsLastError
+        Expect.EndCase "IniTests.LoadFrom_MissingFile_RaisesNothingEmptiesRootAndSetsLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IniTests.SaveTo_WritesSectionsAndKeys
+        Expect.EndCase "IniTests.SaveTo_WritesSectionsAndKeys", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IniTests.SaveTo_CreatesTheFoldersOfThePath
+        Expect.EndCase "IniTests.SaveTo_CreatesTheFoldersOfThePath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        IniTests.Section_CreatesTheSectionEvenForAReader
+        Expect.EndCase "IniTests.Section_CreatesTheSectionEvenForAReader", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_WhiteSpaceBeforeArray_ReadsTheArray
+        Expect.EndCase "JsonTests.Decode_WhiteSpaceBeforeArray_ReadsTheArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_SyntaxError_RaisesWithTheSourceDecode
+        Expect.EndCase "JsonTests.Decode_SyntaxError_RaisesWithTheSourceDecode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Encode_FromUnicode_BackslashThenU_IsNotAnEscape
+        Expect.EndCase "JsonTests.Encode_FromUnicode_BackslashThenU_IsNotAnEscape", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Encode_FromUnicode_ControlCharacter_StaysEscaped
+        Expect.EndCase "JsonTests.Encode_FromUnicode_ControlCharacter_StaysEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Encode_NonAscii_IsWrittenAsEscapeAndFromUnicodeReadsItBack
+        Expect.EndCase "JsonTests.Encode_NonAscii_IsWrittenAsEscapeAndFromUnicodeReadsItBack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.LoadFrom_AfterLoadFrom_ReadsTheFile
+        Expect.EndCase "JsonTests.LoadFrom_AfterLoadFrom_ReadsTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.LoadFrom_AfterSaveTo_ReadsTheFile
+        Expect.EndCase "JsonTests.LoadFrom_AfterSaveTo_ReadsTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.LoadFrom_AfterFailedLoadFrom_ReadsTheFile
+        Expect.EndCase "JsonTests.LoadFrom_AfterFailedLoadFrom_ReadsTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.SaveTo_SecondShorterDocument_WritesValidJson
+        Expect.EndCase "JsonTests.SaveTo_SecondShorterDocument_WritesValidJson", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.SaveTo_ThenLoadFrom_RoundTripsNonAscii
+        Expect.EndCase "JsonTests.SaveTo_ThenLoadFrom_RoundTripsNonAscii", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_ObjectAndArray_AreHeldInTheirOwnFields
+        Expect.EndCase "JsonTests.Decode_ObjectAndArray_AreHeldInTheirOwnFields", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_NumberOf16Characters_IsReturnedAsText
+        Expect.EndCase "JsonTests.Decode_NumberOf16Characters_IsReturnedAsText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_EmptyText_ChangesNothing
+        Expect.EndCase "JsonTests.Decode_EmptyText_ChangesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_ObjectAfterArray_ReplacesTheDocument
+        Expect.EndCase "JsonTests.Decode_ObjectAfterArray_ReplacesTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Clear_EmptiesTheDocumentAndTheFieldsWorkAgain
+        Expect.EndCase "JsonTests.Clear_EmptiesTheDocumentAndTheFieldsWorkAgain", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_ArrayAfterObject_EncodeWritesTheArray
+        Expect.EndCase "JsonTests.Decode_ArrayAfterObject_EncodeWritesTheArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_MissingComma_Raises
+        Expect.EndCase "JsonTests.Decode_MissingComma_Raises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Decode_TextAfterTheDocument_Raises
+        Expect.EndCase "JsonTests.Decode_TextAfterTheDocument_Raises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Items_Assignment_ReplacesTheItemAtTheIndex
+        Expect.EndCase "JsonTests.Items_Assignment_ReplacesTheItemAtTheIndex", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Encode_EmptyDocument_IsWrittenAsEmptyBraces
+        Expect.EndCase "JsonTests.Encode_EmptyDocument_IsWrittenAsEmptyBraces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Encode_DocumentEmptiedAfterAnEncode_IsNotTheOldText
+        Expect.EndCase "JsonTests.Encode_DocumentEmptiedAfterAnEncode_IsNotTheOldText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Encode_Whitespace_IndentsByLevel
+        Expect.EndCase "JsonTests.Encode_Whitespace_IndentsByLevel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.Encode_NonObjectValue_IsStoredAsText
+        Expect.EndCase "JsonTests.Encode_NonObjectValue_IsStoredAsText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.NewItem_NewItems_BuildNestedObjectsAndArrays
+        Expect.EndCase "JsonTests.NewItem_NewItems_BuildNestedObjectsAndArrays", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.ToArray_ObjectDocument_ReturnsOneElementArray
+        Expect.EndCase "JsonTests.ToArray_ObjectDocument_ReturnsOneElementArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        JsonTests.LastError_IsNeverSet
+        Expect.EndCase "JsonTests.LastError_IsNeverSet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.Save_ByDay_AppendsTheLineToTheFileOfTheDay
+        Expect.EndCase "LogsTests.Save_ByDay_AppendsTheLineToTheFileOfTheDay", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.Save_ByMonth_AppendsTheLineToTheFileOfTheMonth
+        Expect.EndCase "LogsTests.Save_ByMonth_AppendsTheLineToTheFileOfTheMonth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.Save_ByUser_UsesTheNameTheProgramGives
+        Expect.EndCase "LogsTests.Save_ByUser_UsesTheNameTheProgramGives", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.Save_ByUser_MissingFolderInTheFileName_FailsWithUnspecifiedError
+        Expect.EndCase "LogsTests.Save_ByUser_MissingFolderInTheFileName_FailsWithUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.Save_BelowLogLevelControl_DoesNothingButSetTheDefaults
+        Expect.EndCase "LogsTests.Save_BelowLogLevelControl_DoesNothingButSetTheDefaults", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.Save_DebuggerLevel_WritesALine
+        Expect.EndCase "LogsTests.Save_DebuggerLevel_WritesALine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.Save_CustomLevel_WritesALine
+        Expect.EndCase "LogsTests.Save_CustomLevel_WritesALine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.Save_OtherOutputs_KeepTheLevelOfTheLine
+        Expect.EndCase "LogsTests.Save_OtherOutputs_KeepTheLevelOfTheLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.DbgView_ReturnsTheLineOrAnEmptyStringBelowTheLevel
+        Expect.EndCase "LogsTests.DbgView_ReturnsTheLineOrAnEmptyStringBelowTheLevel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.FormView_NoListBox_ReturnsAnEmptyString
+        Expect.EndCase "LogsTests.FormView_NoListBox_ReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LogsTests.WebView_NoUserCode_SendsNothingAndReturnsAnEmptyString
+        Expect.EndCase "LogsTests.WebView_NoUserCode_SendsNothingAndReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MathCnTests.Ceil_RoundsUpToDecimalPlaces
+        Expect.EndCase "MathCnTests.Ceil_RoundsUpToDecimalPlaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MathCnTests.Ceil_ExactDecimalNumber_IsNotRoundedUp
+        Expect.EndCase "MathCnTests.Ceil_ExactDecimalNumber_IsNotRoundedUp", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MathCnTests.GetRandRange_StaysInTheRangeAndReachesBothEnds
+        Expect.EndCase "MathCnTests.GetRandRange_StaysInTheRangeAndReachesBothEnds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MathCnTests.GetPinYin_EnglishLetterDigitAndSpace_AreCopied
+        Expect.EndCase "MathCnTests.GetPinYin_EnglishLetterDigitAndSpace_AreCopied", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MathCnTests.GetPinYin_ChineseCharacter_ReturnsItsPinyin
+        Expect.EndCase "MathCnTests.GetPinYin_ChineseCharacter_ReturnsItsPinyin", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MathCnTests.GetPinYin_EmptyString_ReturnsAnEmptyString
+        Expect.EndCase "MathCnTests.GetPinYin_EmptyString_ReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MathCnTests.GetPinYin_OtherCharacter_IsDropped
+        Expect.EndCase "MathCnTests.GetPinYin_OtherCharacter_IsDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MimeTests.MapMimeType_TableOfThePage_GivesTheMediaTypeOfEachExtension
+        Expect.EndCase "MimeTests.MapMimeType_TableOfThePage_GivesTheMediaTypeOfEachExtension", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MimeTests.MapMimeType_PathsAndOtherExtensions
+        Expect.EndCase "MimeTests.MapMimeType_PathsAndOtherExtensions", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MimeTests.MapMimeType_UpperCaseExtension_IsFound
+        Expect.EndCase "MimeTests.MapMimeType_UpperCaseExtension_IsFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MimeTests.MapMimeType_WoffAndWoff2_HaveFontTypes
+        Expect.EndCase "MimeTests.MapMimeType_WoffAndWoff2_HaveFontTypes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MimeTests.MapMimeType_CommonExtensionsMissingFromTheTable_HaveTheirTypes
+        Expect.EndCase "MimeTests.MapMimeType_CommonExtensionsMissingFromTheTable_HaveTheirTypes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MimeTests.MapMimeType_Java_IsTheMediaTypeOfJavaSource
+        Expect.EndCase "MimeTests.MapMimeType_Java_IsTheMediaTypeOfJavaSource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SharedInstanceTests.Tools_HoldsTheSharedInstancesOfCToolsStrAndCToolsStream
+        Expect.EndCase "SharedInstanceTests.Tools_HoldsTheSharedInstancesOfCToolsStrAndCToolsStream", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SharedInstanceTests.TBMAN_HoldsOneSharedInstanceOfEachMainClass
+        Expect.EndCase "SharedInstanceTests.TBMAN_HoldsOneSharedInstanceOfEachMainClass", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SharedInstanceTests.TBMAN_Version_IsMadeFromTheAppOfTheProgram
+        Expect.EndCase "SharedInstanceTests.TBMAN_Version_IsMadeFromTheAppOfTheProgram", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SharedInstanceTests.Consts_HoldsTheMediaTypesAndHeaderNames
+        Expect.EndCase "SharedInstanceTests.Consts_HoldsTheMediaTypesAndHeaderNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.IsEmptyEx_DoesNotChangeTheVariableItIsGiven
+        Expect.EndCase "StrTests.IsEmptyEx_DoesNotChangeTheVariableItIsGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.IsEmptyEx_WhiteSpaceOnly_IsTrue
+        Expect.EndCase "StrTests.IsEmptyEx_WhiteSpaceOnly_IsTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.IsString_TellsStringsFromNumbers
+        Expect.EndCase "StrTests.IsString_TellsStringsFromNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.LeftEx_RightEx_TrimOnlySpaces
+        Expect.EndCase "StrTests.LeftEx_RightEx_TrimOnlySpaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.TrimEx_RemovesWhiteSpaceAndControlCharactersAtBothEnds
+        Expect.EndCase "StrTests.TrimEx_RemovesWhiteSpaceAndControlCharactersAtBothEnds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.TrimEx_TextOver32767Characters_IsTrimmed
+        Expect.EndCase "StrTests.TrimEx_TextOver32767Characters_IsTrimmed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.InsertSpan_TextOver32767Characters_IsSplit
+        Expect.EndCase "StrTests.InsertSpan_TextOver32767Characters_IsSplit", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.PercentEncode_TextOver32767Characters_IsEncoded
+        Expect.EndCase "StrTests.PercentEncode_TextOver32767Characters_IsEncoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.PercentDecode_TextOver32767Characters_IsDecoded
+        Expect.EndCase "StrTests.PercentDecode_TextOver32767Characters_IsDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.UnicodeEncode_TextOver32767Characters_IsEncoded
+        Expect.EndCase "StrTests.UnicodeEncode_TextOver32767Characters_IsEncoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.UnicodeDecode_TextOver32767Characters_IsDecoded
+        Expect.EndCase "StrTests.UnicodeDecode_TextOver32767Characters_IsDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.GetFirstChar_SkipsSpacesAndReturnsTheCharacters
+        Expect.EndCase "StrTests.GetFirstChar_SkipsSpacesAndReturnsTheCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.GetFirstChar_NoVisibleCharacter_Raises5
+        Expect.EndCase "StrTests.GetFirstChar_NoVisibleCharacter_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.GetLastChar_ReturnsTheLastVisibleCharacter
+        Expect.EndCase "StrTests.GetLastChar_ReturnsTheLastVisibleCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.HasStr_FindsTheTextIgnoringCaseByDefault
+        Expect.EndCase "StrTests.HasStr_FindsTheTextIgnoringCaseByDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.MidEx_ReturnsTheTextBetweenTheMarkersWithoutItsEnds
+        Expect.EndCase "StrTests.MidEx_ReturnsTheTextBetweenTheMarkersWithoutItsEnds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.MidEx_FewerThanTwoCharactersBetween_Raises5
+        Expect.EndCase "StrTests.MidEx_FewerThanTwoCharactersBetween_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.SliceString_CountsFromZeroAndIncludesTheEnd
+        Expect.EndCase "StrTests.SliceString_CountsFromZeroAndIncludesTheEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.SubStr_ReturnsTheTrimmedTextBetweenTheMarkers
+        Expect.EndCase "StrTests.SubStr_ReturnsTheTrimmedTextBetweenTheMarkers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.InsertSpan_PutsTheSeparatorBetweenGroups
+        Expect.EndCase "StrTests.InsertSpan_PutsTheSeparatorBetweenGroups", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.JoinStr_JoinsWithTheSeparator
+        Expect.EndCase "StrTests.JoinStr_JoinsWithTheSeparator", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.PercentDecode_ReadsHexPairsAsAnsiCharacters
+        Expect.EndCase "StrTests.PercentDecode_ReadsHexPairsAsAnsiCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.PercentEncode_EncodesTheDigits
+        Expect.EndCase "StrTests.PercentEncode_EncodesTheDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.PercentEncode_SpaceSlashAndPercent_AreEncoded
+        Expect.EndCase "StrTests.PercentEncode_SpaceSlashAndPercent_AreEncoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.UniVbCrLf_CrAndCrLf_BecomeCrLf
+        Expect.EndCase "StrTests.UniVbCrLf_CrAndCrLf_BecomeCrLf", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.UniVbCrLf_LoneLineFeed_BecomesOneCrLf
+        Expect.EndCase "StrTests.UniVbCrLf_LoneLineFeed_BecomesOneCrLf", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.UniVbCrLf_ThreeAtSigns_AreKept
+        Expect.EndCase "StrTests.UniVbCrLf_ThreeAtSigns_AreKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.UnicodeDecode_ReplacesEscapesWithCharacters
+        Expect.EndCase "StrTests.UnicodeDecode_ReplacesEscapesWithCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.UnicodeDecode_EscapedBackslashBeforeU_IsNotAnEscape
+        Expect.EndCase "StrTests.UnicodeDecode_EscapedBackslashBeforeU_IsNotAnEscape", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.UnicodeEncode_EscapesNonAsciiCharacters
+        Expect.EndCase "StrTests.UnicodeEncode_EscapesNonAsciiCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.JoinLinesFromCollection_JoinsWithCrLf
+        Expect.EndCase "StrTests.JoinLinesFromCollection_JoinsWithCrLf", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.SplitLinesToCollection_SplitsAtCrLf
+        Expect.EndCase "StrTests.SplitLinesToCollection_SplitsAtCrLf", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.SplitLinesToCollection_LastLineOfOneCharacter_IsKept
+        Expect.EndCase "StrTests.SplitLinesToCollection_LastLineOfOneCharacter_IsKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.LenBytes_CountsTheElements
+        Expect.EndCase "StrTests.LenBytes_CountsTheElements", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.ToBytes_ToString_ConvertWithTheAnsiCodePage
+        Expect.EndCase "StrTests.ToBytes_ToString_ConvertWithTheAnsiCodePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.ToHex_WritesTwoDigitsForEachByte
+        Expect.EndCase "StrTests.ToHex_WritesTwoDigitsForEachByte", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.GetGUID_HasThe36CharacterForm
+        Expect.EndCase "StrTests.GetGUID_HasThe36CharacterForm", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.GetRandByte_ReturnsTenBytes
+        Expect.EndCase "StrTests.GetRandByte_ReturnsTenBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StrTests.GetRandStr_UsesTheNamedGroupsOfCharacters
+        Expect.EndCase "StrTests.GetRandStr_UsesTheNamedGroupsOfCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.LoadFileAsText_AfterLoadFileAsText_ReadsTheFile
+        Expect.EndCase "StreamTests.LoadFileAsText_AfterLoadFileAsText_ReadsTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.LoadFileAsText_AfterSaveFileAsText_ReadsTheFile
+        Expect.EndCase "StreamTests.LoadFileAsText_AfterSaveFileAsText_ReadsTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.LoadFileAsText_AfterFailedLoad_ReadsTheFile
+        Expect.EndCase "StreamTests.LoadFileAsText_AfterFailedLoad_ReadsTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.SaveFileAsText_AfterSaveFileAsText_ReplacesTheFile
+        Expect.EndCase "StreamTests.SaveFileAsText_AfterSaveFileAsText_ReplacesTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.BinaryFunctions_CloseAnOpenStream
+        Expect.EndCase "StreamTests.BinaryFunctions_CloseAnOpenStream", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.NewObjectForEachCall_ReadsAndWritesTheFile
+        Expect.EndCase "StreamTests.NewObjectForEachCall_ReadsAndWritesTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.SaveFileAsText_ReturnsTrueWhenTheFileIsWritten
+        Expect.EndCase "StreamTests.SaveFileAsText_ReturnsTrueWhenTheFileIsWritten", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.SaveFileAsText_MissingFolder_Raises3004
+        Expect.EndCase "StreamTests.SaveFileAsText_MissingFolder_Raises3004", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.SaveFileAsText_Utf8_StartsWithTheByteOrderMark
+        Expect.EndCase "StreamTests.SaveFileAsText_Utf8_StartsWithTheByteOrderMark", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.LoadFileAsText_MissingFile_Raises3002
+        Expect.EndCase "StreamTests.LoadFileAsText_MissingFile_Raises3002", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.LoadFileAsText_ByteOrderMark_IsNotPartOfTheText
+        Expect.EndCase "StreamTests.LoadFileAsText_ByteOrderMark_IsNotPartOfTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.LoadFileAsBinary_MissingFile_ReturnsFalseAndTheErrorTwice
+        Expect.EndCase "StreamTests.LoadFileAsBinary_MissingFile_ReturnsFalseAndTheErrorTwice", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.SaveFileAsBinary_ThenLoadFileAsBinary_RoundTripsAllByteValues
+        Expect.EndCase "StreamTests.SaveFileAsBinary_ThenLoadFileAsBinary_RoundTripsAllByteValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.WriteLine_InLineMode_StoresTheLine
+        Expect.EndCase "StreamTests.WriteLine_InLineMode_StoresTheLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.WriteLine_LineModeOff_Raises1
+        Expect.EndCase "StreamTests.WriteLine_LineModeOff_Raises1", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.ReadLine_LineModeOff_Raises1
+        Expect.EndCase "StreamTests.ReadLine_LineModeOff_Raises1", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.ReadLine_InLineMode_ReadsTheLinesOfTheFile
+        Expect.EndCase "StreamTests.ReadLine_InLineMode_ReadsTheLinesOfTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StreamTests.SaveFileAsText_DataOmittedInLineMode_WritesTheLines
+        Expect.EndCase "StreamTests.SaveFileAsText_DataOmittedInLineMode_WritesTheLines", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SubClassTests.Hook_RaisesWindowProcForEachMessageOfTheWindow
+        Expect.EndCase "SubClassTests.Hook_RaisesWindowProcForEachMessageOfTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SubClassTests.Hook_CancelNextCall_StopsTheMessageAndReturnsZero
+        Expect.EndCase "SubClassTests.Hook_CancelNextCall_StopsTheMessageAndReturnsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SubClassTests.UnHook_RestoresTheWindowProcedureAndStopsTheEvents
+        Expect.EndCase "SubClassTests.UnHook_RestoresTheWindowProcedureAndStopsTheEvents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SubClassTests.Hook_AnotherObjectOnTheSameWindow_Raises457
+        Expect.EndCase "SubClassTests.Hook_AnotherObjectOnTheSameWindow_Raises457", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SubClassTests.UnHook_WithNoHookInPlace_Raises5
+        Expect.EndCase "SubClassTests.UnHook_WithNoHookInPlace_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimeuse_Show_ReplacesEveryPlaceholderWithTheMilliseconds
+        Expect.EndCase "TimerTests.cTimeuse_Show_ReplacesEveryPlaceholderWithTheMilliseconds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimeuse_Show_WithoutStart_IsTheTickCount
+        Expect.EndCase "TimerTests.cTimeuse_Show_WithoutStart_IsTheTickCount", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimer_Enabled_FollowsTheInterval
+        Expect.EndCase "TimerTests.cTimer_Enabled_FollowsTheInterval", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimer_Enabled_RaisesTheTimerEventAtTheInterval
+        Expect.EndCase "TimerTests.cTimer_Enabled_RaisesTheTimerEventAtTheInterval", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimer_EnableTimer_Reset_Disable_StartAndStopTheTimer
+        Expect.EndCase "TimerTests.cTimer_EnableTimer_Reset_Disable_StartAndStopTheTimer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimer_EnabledTimerReleased_IsDestroyed
+        Expect.EndCase "TimerTests.cTimer_EnabledTimerReleased_IsDestroyed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimer_NeverEnabledTimerReleased_IsDestroyed
+        Expect.EndCase "TimerTests.cTimer_NeverEnabledTimerReleased_IsDestroyed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimers_Add_Count_Item_BulkLoad
+        Expect.EndCase "TimerTests.cTimers_Add_Count_Item_BulkLoad", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimers_ItemAndBulkLoad_RaiseTheirErrors
+        Expect.EndCase "TimerTests.cTimers_ItemAndBulkLoad_RaiseTheirErrors", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimers_Timer_IsRaisedByTheGroupWithTheNumberOfTheTimer
+        Expect.EndCase "TimerTests.cTimers_Timer_IsRaisedByTheGroupWithTheNumberOfTheTimer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimers_EnabledTimerOfAReleasedGroup_IsDestroyed
+        Expect.EndCase "TimerTests.cTimers_EnabledTimerOfAReleasedGroup_IsDestroyed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TimerTests.cTimers_GroupReleased_IsDestroyed
+        Expect.EndCase "TimerTests.cTimers_GroupReleased_IsDestroyed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.Encode_ReturnsUtf8BytesWithNoByteOrderMark
+        Expect.EndCase "Utf8Tests.Encode_ReturnsUtf8BytesWithNoByteOrderMark", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.Encode_EmptyString_ReturnsAnArrayThatIsNotDimensioned
+        Expect.EndCase "Utf8Tests.Encode_EmptyString_ReturnsAnArrayThatIsNotDimensioned", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.Decode_Utf8Bytes_ReturnsTheText
+        Expect.EndCase "Utf8Tests.Decode_Utf8Bytes_ReturnsTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.Decode_ByteOrderMark_BecomesTheCharacterFeff
+        Expect.EndCase "Utf8Tests.Decode_ByteOrderMark_BecomesTheCharacterFeff", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.Decode_ArrayNotDimensioned_ReturnsAnEmptyString
+        Expect.EndCase "Utf8Tests.Decode_ArrayNotDimensioned_ReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.DecodeToByteArray_ReturnsAllTheUtf16Bytes
+        Expect.EndCase "Utf8Tests.DecodeToByteArray_ReturnsAllTheUtf16Bytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.DecodeToByteArray_ArrayNotDimensioned_Raises9
+        Expect.EndCase "Utf8Tests.DecodeToByteArray_ArrayNotDimensioned_Raises9", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/Sandbox.twin b/test/package-tests/TBMANLIB/Sources/Sandbox.twin
new file mode 100644
index 00000000..9e0ef680
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/Sandbox.twin
@@ -0,0 +1,120 @@
+' Sandbox: the folder the test cases of TBMANLIB write files in.
+'
+' Every file and folder a case makes is under %TEMP%\tbdocs-package-tests\TBMANLIB\. A case asks for
+' a fresh folder of its own (Fresh), which empties it first in case an earlier run left something,
+' and removes it at its end (Remove).
+Module Sandbox
+
+    Public Function Root() As String
+        Root = Environ$("TEMP") & "\tbdocs-package-tests\TBMANLIB"
+    End Function
+
+    ' A new, empty folder for one case.
+    Public Function Fresh(ByVal Tag As String) As String
+        Dim p As String
+        p = Root() & "\" & Tag
+        Remove p
+        On Error Resume Next
+        MkDir Environ$("TEMP") & "\tbdocs-package-tests"
+        MkDir Root()
+        MkDir p
+        Err.Clear
+        Fresh = p
+    End Function
+
+    ' Removes a folder with everything in it, and then the sandbox itself when nothing else is in
+    ' it. Raises no error.
+    Public Sub Remove(ByVal Path As String)
+        On Error Resume Next
+        CreateObject("Scripting.FileSystemObject").DeleteFolder Path, True
+        RmDir Root()
+        RmDir Environ$("TEMP") & "\tbdocs-package-tests"
+        Err.Clear
+    End Sub
+
+    ' The bytes of a file, or an empty array when it cannot be read.
+    Public Function BytesOf(ByVal Path As String) As Byte()
+        Dim b() As Byte, n As Long
+        On Error Resume Next
+        n = FileLen(Path)
+        If Err.Number = 0 And n > 0 Then
+            ReDim b(0 To n - 1)
+            Dim f As Long
+            f = FreeFile
+            Open Path For Binary Access Read As #f
+            Get #f, , b
+            Close #f
+        End If
+        Err.Clear
+        BytesOf = b
+    End Function
+
+    ' The bytes of a file as hexadecimal pairs separated by spaces, "" for an empty file.
+    Public Function HexOf(ByVal Path As String) As String
+        Dim b() As Byte, i As Long, s As String
+        b = BytesOf(Path)
+        On Error Resume Next
+        For i = 0 To UBound(b)
+            If Err.Number <> 0 Then Exit For
+            If Len(s) > 0 Then s = s & " "
+            s = s & Right$("0" & Hex$(b(i)), 2)
+        Next i
+        Err.Clear
+        HexOf = s
+    End Function
+
+    ' Writes bytes to a file with no byte order mark and nothing added.
+    Public Sub WriteBytes(ByVal Path As String, ByRef Data() As Byte)
+        Dim f As Long
+        f = FreeFile
+        Open Path For Binary Access Write As #f
+        Put #f, , Data
+        Close #f
+    End Sub
+
+    ' Writes a string of single-byte characters to a file as they are.
+    Public Sub WriteAscii(ByVal Path As String, ByVal Text As String)
+        Dim b() As Byte, i As Long
+        If Len(Text) = 0 Then Exit Sub
+        ReDim b(0 To Len(Text) - 1)
+        For i = 1 To Len(Text)
+            b(i - 1) = AscW(Mid$(Text, i, 1)) And &HFF
+        Next i
+        WriteBytes Path, b
+    End Sub
+
+    ' The content of a file as a string of one character for each byte.
+    Public Function AsciiOf(ByVal Path As String) As String
+        Dim b() As Byte, i As Long, s As String
+        b = BytesOf(Path)
+        On Error Resume Next
+        For i = 0 To UBound(b)
+            If Err.Number <> 0 Then Exit For
+            s = s & ChrW(b(i))
+        Next i
+        Err.Clear
+        AsciiOf = s
+    End Function
+
+    ' The hexadecimal pairs of a byte array, separated by spaces.
+    Public Function HexOfBytes(ByRef b() As Byte) As String
+        Dim i As Long, s As String
+        On Error Resume Next
+        For i = LBound(b) To UBound(b)
+            If Err.Number <> 0 Then Exit For
+            If Len(s) > 0 Then s = s & " "
+            s = s & Right$("0" & Hex$(b(i)), 2)
+        Next i
+        Err.Clear
+        HexOfBytes = s
+    End Function
+
+    ' Closes the shared stream of the package, which the text calls leave open, so that one case
+    ' does not meet the state the case before it left.
+    Public Sub ResetSharedStream()
+        On Error Resume Next
+        ToolsStream.Inst.Close
+        Err.Clear
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/SharedInstanceTests.twin b/test/package-tests/TBMANLIB/Sources/SharedInstanceTests.twin
new file mode 100644
index 00000000..f8dac445
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/SharedInstanceTests.twin
@@ -0,0 +1,67 @@
+' The ready-made instances of the modules TBMAN and Tools, the constants of Consts and ToolsHttp,
+' and the small modules that have no member of their own to test.
+[TestFixture]
+Module SharedInstanceTests
+
+    [TestCase]
+    Public Sub Tools_HoldsTheSharedInstancesOfCToolsStrAndCToolsStream()
+        Expect.Begin
+        Expect.AreEqual "cToolsStr", TypeName(ToolsStr), "TypeName(ToolsStr)"
+        Expect.AreEqual "cToolsStr", TypeName(Tools.ToolsStr), "TypeName(Tools.ToolsStr)"
+        Expect.IsTrue ToolsStr Is Tools.ToolsStr, "ToolsStr Is Tools.ToolsStr"
+        Expect.AreEqual "cToolsStream", TypeName(ToolsStream), "TypeName(ToolsStream)"
+        Expect.AreEqual "cToolsStr", TypeName(TBMANLIB.ToolsStr), "TypeName(TBMANLIB.ToolsStr)"
+        Expect.AreEqual "cToolsStr", TypeName(TBMANLIB.Tools.ToolsStr), "TypeName(TBMANLIB.Tools.ToolsStr)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TBMAN_HoldsOneSharedInstanceOfEachMainClass()
+        Expect.Begin
+        Expect.AreEqual "cJson", TypeName(TBMAN.Json), "TypeName(TBMAN.Json)"
+        Expect.AreEqual "cJson", TypeName(TBMANLIB.TBMAN.Json), "TypeName(TBMANLIB.TBMAN.Json)"
+        Expect.AreEqual "cCsv", TypeName(TBMAN.Csv), "TypeName(TBMAN.Csv)"
+        Expect.AreEqual "cIni", TypeName(TBMAN.Ini), "TypeName(TBMAN.Ini)"
+        Expect.AreEqual "cLogs", TypeName(TBMAN.Logs), "TypeName(TBMAN.Logs)"
+        Expect.AreEqual "cHttpClient", TypeName(TBMAN.HttpClient), "TypeName(TBMAN.HttpClient)"
+        Expect.AreEqual "cLayer", TypeName(TBMAN.Layer), "TypeName(TBMAN.Layer)"
+        Expect.AreEqual "cTimeuse", TypeName(TBMAN.TimerUse), "TypeName(TBMAN.TimerUse)"
+        Expect.AreEqual "cSysTray", TypeName(TBMAN.SysTray), "TypeName(TBMAN.SysTray)"
+        Expect.IsTrue TBMAN.Json Is TBMAN.Json, "TBMAN.Json Is TBMAN.Json"
+        TBMAN.Json.Clear
+        TBMAN.Json.Decode "{""name"":""Ann""}"
+        Expect.AreEqual "Ann", TBMAN.Json.Item("name"), "TBMAN.Json.Item(name)"
+        TBMAN.Json.Clear
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TBMAN_Version_IsMadeFromTheAppOfTheProgram()
+        Expect.Begin
+        Expect.AreEqual "v" & App.Major & "." & App.Minor & "." & App.Build, TBMAN.Version, "TBMAN.Version"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Consts_HoldsTheMediaTypesAndHeaderNames()
+        Expect.Begin
+        Expect.AreEqual "multipart/form-data", Consts.TOOLS_HTTP_CONTENT_TYPE_FORM_MULTIPART, "TOOLS_HTTP_CONTENT_TYPE_FORM_MULTIPART"
+        Expect.AreEqual "application/x-www-form-urlencoded", Consts.TOOLS_HTTP_CONTENT_TYPE_FORM_URLENCODED, "TOOLS_HTTP_CONTENT_TYPE_FORM_URLENCODED"
+        Expect.AreEqual "application/json", Consts.TOOLS_HTTP_CONTENT_TYPE_JSON, "TOOLS_HTTP_CONTENT_TYPE_JSON"
+        Expect.AreEqual "application/octet-stream", Consts.TOOLS_HTTP_CONTENT_TYPE_STREAM, "TOOLS_HTTP_CONTENT_TYPE_STREAM"
+        Expect.AreEqual "text/html", Consts.TOOLS_HTTP_CONTENT_TYPE_TEXT_HTML, "TOOLS_HTTP_CONTENT_TYPE_TEXT_HTML"
+        Expect.AreEqual "text/plain", Consts.TOOLS_HTTP_CONTENT_TYPE_TEXT_PLAIN, "TOOLS_HTTP_CONTENT_TYPE_TEXT_PLAIN"
+        Expect.AreEqual "Content-Lenght", Consts.TOOLS_HTTP_HEADER_FIELD_CONTENT_LENGHT, "TOOLS_HTTP_HEADER_FIELD_CONTENT_LENGHT"
+        Expect.AreEqual "Content-Type", Consts.TOOLS_HTTP_HEADER_FIELD_CONTENT_TYPE, "TOOLS_HTTP_HEADER_FIELD_CONTENT_TYPE"
+        Expect.AreEqual Consts.TOOLS_HTTP_CONTENT_TYPE_JSON, ToolsHttp.C_CONTENT_TYPE_JSON, "ToolsHttp.C_CONTENT_TYPE_JSON"
+        Expect.AreEqual Consts.TOOLS_HTTP_CONTENT_TYPE_FORM_MULTIPART, ToolsHttp.C_CONTENT_TYPE_FORM_MULTIPART, "ToolsHttp.C_CONTENT_TYPE_FORM_MULTIPART"
+        Expect.AreEqual Consts.TOOLS_HTTP_CONTENT_TYPE_FORM_URLENCODED, ToolsHttp.C_CONTENT_TYPE_FORM_URLENCODED, "ToolsHttp.C_CONTENT_TYPE_FORM_URLENCODED"
+        Expect.AreEqual Consts.TOOLS_HTTP_CONTENT_TYPE_STREAM, ToolsHttp.C_CONTENT_TYPE_STREAM, "ToolsHttp.C_CONTENT_TYPE_STREAM"
+        Expect.AreEqual Consts.TOOLS_HTTP_CONTENT_TYPE_TEXT_HTML, ToolsHttp.C_CONTENT_TYPE_TEXT_HTML, "ToolsHttp.C_CONTENT_TYPE_TEXT_HTML"
+        Expect.AreEqual Consts.TOOLS_HTTP_CONTENT_TYPE_TEXT_PLAIN, ToolsHttp.C_CONTENT_TYPE_TEXT_PLAIN, "ToolsHttp.C_CONTENT_TYPE_TEXT_PLAIN"
+        Expect.AreEqual Consts.TOOLS_HTTP_HEADER_FIELD_CONTENT_LENGHT, ToolsHttp.C_HEADER_FIELD_CONTENT_LENGHT, "ToolsHttp.C_HEADER_FIELD_CONTENT_LENGHT"
+        Expect.AreEqual Consts.TOOLS_HTTP_HEADER_FIELD_CONTENT_TYPE, ToolsHttp.C_HEADER_FIELD_CONTENT_TYPE, "ToolsHttp.C_HEADER_FIELD_CONTENT_TYPE"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/StrTests.twin b/test/package-tests/TBMANLIB/Sources/StrTests.twin
new file mode 100644
index 00000000..3a4904cf
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/StrTests.twin
@@ -0,0 +1,454 @@
+' cToolsStr: trimming, searching, escapes, lines, bytes and random text.
+[TestFixture]
+Module StrTests
+
+    ' A backslash. Cases write it by name so that no escape sequence is typed in the source.
+    Private Const BS As String = "\"
+
+    ' A string of n copies of one character.
+    Private Function Repeated(ByVal Ch As String, ByVal N As Long) As String
+        Repeated = String$(N, Ch)
+    End Function
+
+    ' ---- testing and trimming
+
+    [TestCase]
+    Public Sub IsEmptyEx_DoesNotChangeTheVariableItIsGiven()
+        Expect.Begin
+        Dim t As String, r As Boolean
+        t = "  x  "
+        r = ToolsStr.IsEmptyEx(t)
+        Expect.IsFalse r, "IsEmptyEx of two spaces, x and two spaces"
+        Expect.AreEqual "  x  ", t, "the variable after IsEmptyEx(t)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsEmptyEx_WhiteSpaceOnly_IsTrue()
+        Expect.Begin
+        Expect.IsTrue ToolsStr.IsEmptyEx(vbTab & " " & vbCrLf), "IsEmptyEx of a tab, a space and a line break"
+        Expect.IsTrue ToolsStr.IsEmptyEx(""), "IsEmptyEx of an empty string"
+        Expect.IsFalse ToolsStr.IsEmptyEx(" a "), "IsEmptyEx of a letter between spaces"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsString_TellsStringsFromNumbers()
+        Expect.Begin
+        Expect.IsTrue ToolsStr.IsString("12"), "IsString of the text 12"
+        Expect.IsFalse ToolsStr.IsString(12), "IsString of the number 12"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LeftEx_RightEx_TrimOnlySpaces()
+        Expect.Begin
+        Expect.AreEqual "ab", ToolsStr.LeftEx("  abc  ", 2), "LeftEx of abc between spaces, 2"
+        Expect.AreEqual "bc", ToolsStr.RightEx("  abc  ", 2), "RightEx of abc between spaces, 2"
+        Expect.AreEqual vbTab, ToolsStr.LeftEx(vbTab & "ab", 1), "LeftEx of a tab and ab, 1"
+        Expect.AreEqual "12", ToolsStr.LeftEx(12345, 2), "LeftEx of the number 12345, 2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TrimEx_RemovesWhiteSpaceAndControlCharactersAtBothEnds()
+        Expect.Begin
+        Expect.AreEqual "a b", ToolsStr.TrimEx(vbTab & "  a b " & vbCrLf), "TrimEx of a b with a tab, spaces and a line break around it"
+        Expect.AreEqual "a", ToolsStr.TrimEx(Chr$(1) & Chr$(31) & "a" & Chr$(0)), "TrimEx of a between control characters"
+        Expect.AreEqual ChrW(160) & "a" & ChrW(160), ToolsStr.TrimEx(ChrW(160) & "a" & ChrW(160)), "TrimEx of a between non-breaking spaces"
+        Expect.AreEqual "", ToolsStr.TrimEx("   "), "TrimEx of spaces"
+        Expect.AreEqual "", ToolsStr.TrimEx(""), "TrimEx of an empty string"
+        Expect.Done
+    End Sub
+
+    ' ---- text over 32,767 characters
+
+    [TestCase]
+    Public Sub TrimEx_TextOver32767Characters_IsTrimmed()
+        Expect.Begin
+        Dim s As String, r As String
+        s = " " & Repeated("a", 40000) & " "
+        On Error Resume Next
+        r = ToolsStr.TrimEx(s)
+        Expect.AreEqual 0, Err.Number, "TrimEx of 40002 characters raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual 40000, Len(r), "length of TrimEx of 40002 characters"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub InsertSpan_TextOver32767Characters_IsSplit()
+        Expect.Begin
+        Dim s As String, r As String
+        s = Repeated("a", 40000)
+        On Error Resume Next
+        r = ToolsStr.InsertSpan(s, "-", 10)
+        Expect.AreEqual 0, Err.Number, "InsertSpan of 40000 characters raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual 40000 + 3999, Len(r), "length of InsertSpan of 40000 characters in groups of 10"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PercentEncode_TextOver32767Characters_IsEncoded()
+        Expect.Begin
+        Dim s As String, r As String
+        s = Repeated("a", 40000)
+        On Error Resume Next
+        r = ToolsStr.PercentEncode(s)
+        Expect.AreEqual 0, Err.Number, "PercentEncode of 40000 characters raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual 40000, Len(r), "length of PercentEncode of 40000 letters"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PercentDecode_TextOver32767Characters_IsDecoded()
+        Expect.Begin
+        Dim s As String, r As String
+        s = Repeated("a", 40000)
+        On Error Resume Next
+        r = ToolsStr.PercentDecode(s)
+        Expect.AreEqual 0, Err.Number, "PercentDecode of 40000 characters raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual 40000, Len(r), "length of PercentDecode of 40000 letters"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnicodeEncode_TextOver32767Characters_IsEncoded()
+        Expect.Begin
+        Dim s As String, r As String
+        s = Repeated("a", 40000)
+        On Error Resume Next
+        r = ToolsStr.UnicodeEncode(s)
+        Expect.AreEqual 0, Err.Number, "UnicodeEncode of 40000 characters raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual 40000, Len(r), "length of UnicodeEncode of 40000 letters"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnicodeDecode_TextOver32767Characters_IsDecoded()
+        Expect.Begin
+        Dim s As String, r As String
+        s = Repeated("a", 40000)
+        On Error Resume Next
+        r = ToolsStr.UnicodeDecode(s)
+        Expect.AreEqual 0, Err.Number, "UnicodeDecode of 40000 characters raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual 40000, Len(r), "length of UnicodeDecode of 40000 letters"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    ' ---- searching and cutting
+
+    [TestCase]
+    Public Sub GetFirstChar_SkipsSpacesAndReturnsTheCharacters()
+        Expect.Begin
+        Expect.AreEqual "-", ToolsStr.GetFirstChar("  - abc"), "GetFirstChar of two spaces and - abc"
+        Expect.AreEqual "- a", ToolsStr.GetFirstChar("  - abc", 3), "GetFirstChar of two spaces and - abc, 3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFirstChar_NoVisibleCharacter_Raises5()
+        Expect.Begin
+        Dim r As String
+        On Error Resume Next
+        r = ToolsStr.GetFirstChar("   ")
+        Expect.AreEqual 5, Err.Number, "GetFirstChar of spaces raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetLastChar_ReturnsTheLastVisibleCharacter()
+        Expect.Begin
+        Expect.AreEqual "c", ToolsStr.GetLastChar("abc"), "GetLastChar of abc"
+        Expect.AreEqual "c", ToolsStr.GetLastChar("abc  "), "GetLastChar of abc and two spaces"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HasStr_FindsTheTextIgnoringCaseByDefault()
+        Expect.Begin
+        Expect.AreEqual 4, ToolsStr.HasStr("lo", "Hello"), "HasStr(lo, Hello)"
+        Expect.AreEqual 4, ToolsStr.HasStr("LO", "Hello"), "HasStr(LO, Hello)"
+        Expect.AreEqual 0, ToolsStr.HasStr("LO", "Hello", 1, vbBinaryCompare), "HasStr(LO, Hello) with a binary comparison"
+        Expect.AreEqual 0, ToolsStr.HasStr("xyz", "Hello"), "HasStr(xyz, Hello)"
+        Expect.AreEqual 4, ToolsStr.HasStr("l", "Hello", 4), "HasStr(l, Hello) from position 4"
+        Expect.AreEqual 0, ToolsStr.HasStr("l", "Hello", 5), "HasStr(l, Hello) from position 5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MidEx_ReturnsTheTextBetweenTheMarkersWithoutItsEnds()
+        Expect.Begin
+        Dim start As Long
+        Expect.AreEqual "abc", ToolsStr.MidEx("id=[""abc""]", "[", "]"), "MidEx of id=[""abc""]"
+        Expect.AreEqual "", ToolsStr.MidEx("abc", "[", "]"), "MidEx when the markers are missing"
+        Expect.AreEqual "a", ToolsStr.MidEx("[""a""][""bc""]", "[", "]", start), "first MidEx of two bracketed values"
+        Expect.AreEqual 6, start, "starindex after the first MidEx"
+        Expect.AreEqual "bc", ToolsStr.MidEx("[""a""][""bc""]", "[", "]", start), "second MidEx of two bracketed values"
+        Expect.AreEqual 12, start, "starindex after the second MidEx"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MidEx_FewerThanTwoCharactersBetween_Raises5()
+        Expect.Begin
+        Dim r As String
+        On Error Resume Next
+        r = ToolsStr.MidEx("x[]y", "[", "]")
+        Expect.AreEqual 5, Err.Number, "MidEx with nothing between the markers raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SliceString_CountsFromZeroAndIncludesTheEnd()
+        Expect.Begin
+        Expect.AreEqual "Hello", ToolsStr.SliceString("Hello World", 0, 4), "SliceString(Hello World, 0, 4)"
+        Expect.AreEqual "World", ToolsStr.SliceString("Hello World", 6), "SliceString(Hello World, 6)"
+        Expect.AreEqual "o", ToolsStr.SliceString("Hello World", 4, 4), "SliceString(Hello World, 4, 4)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SubStr_ReturnsTheTrimmedTextBetweenTheMarkers()
+        Expect.Begin
+        Expect.AreEqual "value", ToolsStr.SubStr("key = value ;", "=", ";"), "SubStr(key = value ;, =, ;)"
+        Expect.AreEqual "value", ToolsStr.SubStr("key = value", "="), "SubStr(key = value, =)"
+        Expect.AreEqual "", ToolsStr.SubStr("abc", "x"), "SubStr(abc, x)"
+        Expect.AreEqual "0", ToolsStr.SubStr("abc", "x", , True), "SubStr(abc, x) with RetInt"
+        Expect.AreEqual "", ToolsStr.SubStr("a=;", "=", ";"), "SubStr of an empty value"
+        Expect.AreEqual "", ToolsStr.SubStr("key = value", "KEY"), "SubStr with a marker in another letter case"
+        Expect.Done
+    End Sub
+
+    ' ---- changing text
+
+    [TestCase]
+    Public Sub InsertSpan_PutsTheSeparatorBetweenGroups()
+        Expect.Begin
+        Expect.AreEqual "abc-def-g", ToolsStr.InsertSpan("abcdefg", "-", 3), "InsertSpan(abcdefg, -, 3)"
+        Expect.AreEqual "-abc-def-g-", ToolsStr.InsertSpan("abcdefg", "-", 3, True), "InsertSpan(abcdefg, -, 3) with HeadFoot"
+        Expect.AreEqual "abc-def", ToolsStr.InsertSpan("abcdef", "-", 3), "InsertSpan(abcdef, -, 3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub JoinStr_JoinsWithTheSeparator()
+        Expect.Begin
+        Expect.AreEqual "a-b-c", ToolsStr.JoinStr("-", "a", "b", "c"), "JoinStr(-, a, b, c)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PercentDecode_ReadsHexPairsAsAnsiCharacters()
+        Expect.Begin
+        Dim r As String
+        Expect.AreEqual "A1b2", ToolsStr.PercentDecode("A%31b%32"), "PercentDecode(A%31b%32)"
+        Expect.AreEqual 2, Len(ToolsStr.PercentDecode("%C3%A9")), "length of PercentDecode of the two UTF-8 bytes of e acute"
+        On Error Resume Next
+        r = ToolsStr.PercentDecode("50%")
+        Expect.AreEqual 13, Err.Number, "PercentDecode of a % with no digits raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PercentEncode_EncodesTheDigits()
+        Expect.Begin
+        Expect.AreEqual "A%31b%32", ToolsStr.PercentEncode("A1b2"), "PercentEncode(A1b2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PercentEncode_SpaceSlashAndPercent_AreEncoded()
+        Expect.Begin
+        Expect.AreEqual "a%20b%2Fc%25", ToolsStr.PercentEncode("a b/c%"), "PercentEncode of a space, a slash and a percent sign"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UniVbCrLf_CrAndCrLf_BecomeCrLf()
+        Expect.Begin
+        Expect.AreEqual "a" & vbCrLf & "b", ToolsStr.UniVbCrLf("a" & vbCr & "b"), "UniVbCrLf of a, a carriage return and b"
+        Expect.AreEqual "a" & vbCrLf & "b", ToolsStr.UniVbCrLf("a" & vbCrLf & "b"), "UniVbCrLf of a, a CRLF pair and b"
+        Expect.AreEqual "", ToolsStr.UniVbCrLf(""), "UniVbCrLf of an empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UniVbCrLf_LoneLineFeed_BecomesOneCrLf()
+        Expect.Begin
+        Expect.AreEqual "a" & vbCrLf & "b", ToolsStr.UniVbCrLf("a" & vbLf & "b"), "UniVbCrLf of a, a line feed and b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UniVbCrLf_ThreeAtSigns_AreKept()
+        Expect.Begin
+        Expect.AreEqual "x@@@y", ToolsStr.UniVbCrLf("x@@@y"), "UniVbCrLf of x@@@y"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnicodeDecode_ReplacesEscapesWithCharacters()
+        Expect.Begin
+        Dim r As String
+        Expect.AreEqual "AB", ToolsStr.UnicodeDecode(BS & "u0041" & BS & "u0042"), "UnicodeDecode of two escapes, 0041 and 0042"
+        Expect.AreEqual "caf" & ChrW(233), ToolsStr.UnicodeDecode("caf" & BS & "u00e9"), "UnicodeDecode of an escape with lower-case hex digits"
+        Expect.AreEqual "caf" & ChrW(233), ToolsStr.UnicodeDecode("caf" & BS & "u00E9"), "UnicodeDecode of an escape with upper-case hex digits"
+        On Error Resume Next
+        r = ToolsStr.UnicodeDecode(BS & "uZZZZ")
+        Expect.AreEqual 13, Err.Number, "UnicodeDecode of a backslash, u and ZZZZ raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnicodeDecode_EscapedBackslashBeforeU_IsNotAnEscape()
+        Expect.Begin
+        Expect.AreEqual BS & BS & "u0041", ToolsStr.UnicodeDecode(BS & BS & "u0041"), "UnicodeDecode of two backslashes and u0041"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnicodeEncode_EscapesNonAsciiCharacters()
+        Expect.Begin
+        Expect.AreEqual "caf" & BS & "u00E9", ToolsStr.UnicodeEncode("caf" & ChrW(233)), "UnicodeEncode of cafe acute"
+        Expect.AreEqual Chr$(1) & "a", ToolsStr.UnicodeEncode(Chr$(1) & "a"), "UnicodeEncode of a control character and a"
+        Expect.AreEqual BS & "u20AC", ToolsStr.UnicodeEncode(ChrW(&H20AC)), "UnicodeEncode of the euro sign"
+        Expect.AreEqual BS & "uD83D" & BS & "uDE00", ToolsStr.UnicodeEncode(ChrW(&HD83D) & ChrW(&HDE00)), "UnicodeEncode of a surrogate pair"
+        Expect.AreEqual "x@@00E9", ToolsStr.UnicodeEncode("x" & ChrW(233), "@@"), "UnicodeEncode of x and e acute with the prefix @@"
+        Expect.Done
+    End Sub
+
+    ' ---- lines
+
+    [TestCase]
+    Public Sub JoinLinesFromCollection_JoinsWithCrLf()
+        Expect.Begin
+        Dim c As New Collection
+        c.Add "one"
+        c.Add "two"
+        c.Add 3
+        Expect.AreEqual "one" & vbCrLf & "two" & vbCrLf & "3", ToolsStr.JoinLinesFromCollection(c), "JoinLinesFromCollection of one, two and 3"
+        Expect.AreEqual "", ToolsStr.JoinLinesFromCollection(New Collection), "JoinLinesFromCollection of an empty collection"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitLinesToCollection_SplitsAtCrLf()
+        Expect.Begin
+        Dim c As Collection
+        Set c = ToolsStr.SplitLinesToCollection("one" & vbCrLf & "two" & vbCrLf & "three")
+        Expect.AreEqual 3, c.Count, "number of lines of one, two, three"
+        Expect.AreEqual "three", c(3), "third line"
+        Set c = ToolsStr.SplitLinesToCollection("a" & vbCrLf & "bc" & vbCrLf)
+        Expect.AreEqual 3, c.Count, "number of lines of a, bc and a final line break"
+        Expect.AreEqual "", c(3), "last line of a text that ends with a line break"
+        Set c = ToolsStr.SplitLinesToCollection("")
+        Expect.AreEqual 0, c.Count, "number of lines of an empty text"
+        Set c = ToolsStr.SplitLinesToCollection("one" & vbLf & "two")
+        Expect.AreEqual 1, c.Count, "number of lines of two words with a lone line feed between them"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitLinesToCollection_LastLineOfOneCharacter_IsKept()
+        Expect.Begin
+        Dim c As Collection
+        Set c = ToolsStr.SplitLinesToCollection("a" & vbCrLf & "b")
+        Expect.AreEqual 2, c.Count, "number of lines of a, a line break and b"
+        Set c = ToolsStr.SplitLinesToCollection("a")
+        Expect.AreEqual 1, c.Count, "number of lines of the text a"
+        Expect.Done
+    End Sub
+
+    ' ---- bytes
+
+    [TestCase]
+    Public Sub LenBytes_CountsTheElements()
+        Expect.Begin
+        Dim b() As Byte
+        b = StrConv("abcd", vbFromUnicode)
+        Expect.AreEqual 4, ToolsStr.LenBytes(b), "LenBytes of four bytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToBytes_ToString_ConvertWithTheAnsiCodePage()
+        Expect.Begin
+        Dim b() As Byte
+        b = ToolsStr.ToBytes("AB")
+        Expect.AreEqual "41 42", Sandbox.HexOfBytes(b), "bytes of ToBytes(AB)"
+        Expect.AreEqual "AB", ToolsStr.ToString(b), "ToString of the bytes of AB"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToHex_WritesTwoDigitsForEachByte()
+        Expect.Begin
+        Dim b() As Byte
+        b = ToolsStr.ToBytes("AB")
+        Expect.AreEqual "4142", ToolsStr.ToHex(b), "ToHex of the bytes of AB"
+        b = ToolsStr.ToBytes(Chr$(10))
+        Expect.AreEqual "0A", ToolsStr.ToHex(b), "ToHex of the byte 10"
+        b = ToolsStr.ToBytes(Chr$(10) & Chr$(11))
+        Expect.AreEqual "0A0B", ToolsStr.ToHex(b), "ToHex of the bytes 10 and 11"
+        Expect.Done
+    End Sub
+
+    ' ---- random text and identifiers
+
+    [TestCase]
+    Public Sub GetGUID_HasThe36CharacterForm()
+        Expect.Begin
+        Dim g As String, h As String
+        g = ToolsStr.GetGUID()
+        h = ToolsStr.GetGUID(True)
+        Expect.AreEqual 36, Len(g), "length of GetGUID()"
+        Expect.AreEqual 38, Len(h), "length of GetGUID(True)"
+        Expect.IsTrue g Like "[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]-[0-9A-F][0-9A-F][0-9A-F][0-9A-F]-[0-9A-F][0-9A-F][0-9A-F][0-9A-F]-[0-9A-F][0-9A-F][0-9A-F][0-9A-F]-[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]", "GetGUID() " & g & " is upper-case hexadecimal groups of 8-4-4-4-12"
+        Expect.AreEqual "{", Left$(h, 1), "first character of GetGUID(True)"
+        Expect.AreEqual "}", Right$(h, 1), "last character of GetGUID(True)"
+        Expect.IsTrue g <> ToolsStr.GetGUID(), "two calls of GetGUID give different values"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetRandByte_ReturnsTenBytes()
+        Expect.Begin
+        Dim b() As Byte
+        b = ToolsStr.GetRandByte()
+        Expect.AreEqual 0, LBound(b), "lower bound of GetRandByte"
+        Expect.AreEqual 9, UBound(b), "upper bound of GetRandByte"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetRandStr_UsesTheNamedGroupsOfCharacters()
+        Expect.Begin
+        Dim s As String
+        s = ToolsStr.GetRandStr(10, "1")
+        Expect.AreEqual 10, Len(s), "length of GetRandStr(10, 1)"
+        Expect.IsTrue s Like "##########", "GetRandStr(10, 1) " & s & " holds digits only"
+        s = ToolsStr.GetRandStr(40, "a")
+        Expect.IsTrue s Like Replace(Space$(40), " ", "[a-z]"), "GetRandStr(40, a) " & s & " holds lower-case letters only"
+        Expect.AreEqual 32, Len(ToolsStr.GetRandStr()), "length of GetRandStr()"
+        Expect.AreEqual 8, Len(ToolsStr.GetRandStr(0)), "length of GetRandStr(0)"
+        Expect.AreEqual "", ToolsStr.GetRandStr(5, "x"), "GetRandStr(5, x), which names no group"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/StreamTests.twin b/test/package-tests/TBMANLIB/Sources/StreamTests.twin
new file mode 100644
index 00000000..f11dd82f
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/StreamTests.twin
@@ -0,0 +1,340 @@
+' cToolsStream: whole files as text and as bytes, the line mode, and the stream that the text
+' calls leave open.
+[TestFixture]
+Module StreamTests
+
+    ' ---- the stream that the text calls leave open
+
+    [TestCase]
+    Public Sub LoadFileAsText_AfterLoadFileAsText_ReadsTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream, t As String
+        dir = Sandbox.Fresh("stream1")
+        p = dir & "\a.txt"
+        Sandbox.WriteAscii p, "hello"
+        On Error Resume Next
+        t = S.LoadFileAsText(p)
+        Expect.AreEqual 0, Err.Number, "first LoadFileAsText of a file raised an error"
+        Err.Clear
+        t = S.LoadFileAsText(p)
+        Expect.AreEqual 0, Err.Number, "second LoadFileAsText on the same object raised error " & Err.Number & " " & Err.Description
+        Expect.AreEqual "hello", t, "text from the second LoadFileAsText"
+        S.Inst.Close
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFileAsText_AfterSaveFileAsText_ReadsTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream, t As String
+        dir = Sandbox.Fresh("stream2")
+        p = dir & "\a.txt"
+        On Error Resume Next
+        S.SaveFileAsText p, "saved text"
+        Expect.AreEqual 0, Err.Number, "SaveFileAsText raised an error"
+        Err.Clear
+        t = S.LoadFileAsText(p)
+        Expect.AreEqual 0, Err.Number, "LoadFileAsText after SaveFileAsText raised error " & Err.Number & " " & Err.Description
+        Expect.AreEqual "saved text", t, "text from LoadFileAsText after SaveFileAsText"
+        S.Inst.Close
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFileAsText_AfterFailedLoad_ReadsTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream, t As String
+        dir = Sandbox.Fresh("stream3")
+        p = dir & "\a.txt"
+        Sandbox.WriteAscii p, "present"
+        On Error Resume Next
+        t = S.LoadFileAsText(dir & "\missing.txt")
+        Expect.AreEqual 3002, Err.Number, "LoadFileAsText of a missing file raises 3002"
+        Err.Clear
+        t = S.LoadFileAsText(p)
+        Expect.AreEqual 0, Err.Number, "LoadFileAsText after a failed load raised error " & Err.Number & " " & Err.Description
+        Expect.AreEqual "present", t, "text from LoadFileAsText after a failed load"
+        S.Inst.Close
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveFileAsText_AfterSaveFileAsText_ReplacesTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream
+        dir = Sandbox.Fresh("stream4")
+        p = dir & "\a.txt"
+        On Error Resume Next
+        S.SaveFileAsText p, "0123456789"
+        S.SaveFileAsText p, "abc"
+        Expect.AreEqual 0, Err.Number, "SaveFileAsText raised an error"
+        S.Inst.Close
+        On Error GoTo 0
+        Expect.AreEqual "EF BB BF 61 62 63", Sandbox.HexOf(p), "bytes of the file after saving 0123456789 and then abc with one object"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BinaryFunctions_CloseAnOpenStream()
+        Expect.Begin
+        Dim dir As String, p As String, q As String, S As New cToolsStream, t As String
+        Dim b() As Byte, back() As Byte
+        dir = Sandbox.Fresh("stream5")
+        p = dir & "\a.txt"
+        q = dir & "\b.bin"
+        Sandbox.WriteAscii p, "xyz"
+        b = ToolsStr.ToBytes("abc")
+        On Error Resume Next
+        t = S.LoadFileAsText(p)
+        Expect.IsTrue S.SaveFileAsBinary(q, b), "SaveFileAsBinary after a text call returns True"
+        Expect.AreEqual 0, Err.Number, "SaveFileAsBinary after a text call raised error " & Err.Number
+        Err.Clear
+        t = S.LoadFileAsText(p)
+        Expect.AreEqual 0, Err.Number, "LoadFileAsText after SaveFileAsBinary raised error " & Err.Number
+        Expect.AreEqual "xyz", t, "text read after SaveFileAsBinary"
+        Err.Clear
+        Expect.IsTrue S.LoadFileAsBinary(q, back), "LoadFileAsBinary after a text call returns True"
+        Expect.AreEqual "61 62 63", Sandbox.HexOfBytes(back), "bytes read back"
+        Err.Clear
+        t = S.LoadFileAsText(p)
+        Expect.AreEqual 0, Err.Number, "LoadFileAsText after LoadFileAsBinary raised error " & Err.Number
+        S.Inst.Close
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewObjectForEachCall_ReadsAndWritesTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, t As String
+        dir = Sandbox.Fresh("stream6")
+        p = dir & "\a.txt"
+        On Error Resume Next
+        With New cToolsStream
+            .SaveFileAsText p, "0123456789"
+        End With
+        With New cToolsStream
+            .SaveFileAsText p, "abc"
+        End With
+        Expect.AreEqual 0, Err.Number, "SaveFileAsText on new objects raised error " & Err.Number
+        Err.Clear
+        Expect.AreEqual "EF BB BF 61 62 63", Sandbox.HexOf(p), "bytes of the file after two saves, each with an object of its own"
+        With New cToolsStream
+            t = .LoadFileAsText(p)
+        End With
+        With New cToolsStream
+            t = .LoadFileAsText(p)
+        End With
+        Expect.AreEqual 0, Err.Number, "LoadFileAsText on new objects raised error " & Err.Number
+        Expect.AreEqual "abc", t, "text read by a new object"
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    ' ---- SaveFileAsText
+
+    [TestCase]
+    Public Sub SaveFileAsText_ReturnsTrueWhenTheFileIsWritten()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream, r As Boolean
+        dir = Sandbox.Fresh("stream7")
+        p = dir & "\a.txt"
+        On Error Resume Next
+        r = S.SaveFileAsText(p, "hello")
+        Expect.AreEqual 0, Err.Number, "SaveFileAsText raised error " & Err.Number
+        S.Inst.Close
+        On Error GoTo 0
+        Expect.AreEqual "EF BB BF 68 65 6C 6C 6F", Sandbox.HexOf(p), "bytes of the written file"
+        Expect.IsTrue r, "result of SaveFileAsText after it wrote the file"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveFileAsText_MissingFolder_Raises3004()
+        Expect.Begin
+        Dim dir As String, S As New cToolsStream
+        dir = Sandbox.Fresh("stream8")
+        On Error Resume Next
+        S.SaveFileAsText dir & "\nosuch\a.txt", "x"
+        Expect.AreEqual 3004, Err.Number, "SaveFileAsText into a folder that does not exist raises"
+        S.Inst.Close
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveFileAsText_Utf8_StartsWithTheByteOrderMark()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream
+        dir = Sandbox.Fresh("stream9")
+        p = dir & "\a.txt"
+        On Error Resume Next
+        S.SaveFileAsText p, "a" & ChrW(233), "UTF-8"
+        S.Inst.Close
+        On Error GoTo 0
+        Expect.AreEqual "EF BB BF 61 C3 A9", Sandbox.HexOf(p), "bytes of a UTF-8 file with the text a and e acute"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFileAsText_MissingFile_Raises3002()
+        Expect.Begin
+        Dim dir As String, S As New cToolsStream, t As String
+        dir = Sandbox.Fresh("stream10")
+        On Error Resume Next
+        t = S.LoadFileAsText(dir & "\missing.txt")
+        Expect.AreEqual 3002, Err.Number, "LoadFileAsText of a file that does not exist raises"
+        S.Inst.Close
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFileAsText_ByteOrderMark_IsNotPartOfTheText()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream, t As String
+        Dim b() As Byte
+        dir = Sandbox.Fresh("stream11")
+        p = dir & "\a.txt"
+        b = ToolsStr.ToBytes("x")
+        ReDim b(0 To 5)
+        b(0) = &HEF: b(1) = &HBB: b(2) = &HBF: b(3) = &H61: b(4) = &HC3: b(5) = &HA9
+        Sandbox.WriteBytes p, b
+        On Error Resume Next
+        t = S.LoadFileAsText(p)
+        S.Inst.Close
+        On Error GoTo 0
+        Expect.AreEqual "a" & ChrW(233), t, "text of a UTF-8 file with a byte order mark"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    ' ---- the binary functions
+
+    [TestCase]
+    Public Sub LoadFileAsBinary_MissingFile_ReturnsFalseAndTheErrorTwice()
+        Expect.Begin
+        Dim dir As String, S As New cToolsStream, b() As Byte
+        dir = Sandbox.Fresh("stream12")
+        Expect.IsFalse S.LoadFileAsBinary(dir & "\missing.bin", b), "LoadFileAsBinary of a missing file"
+        Expect.AreEqual "File could not be opened.#File could not be opened.", S.LastError, "LastError after the failed LoadFileAsBinary"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveFileAsBinary_ThenLoadFileAsBinary_RoundTripsAllByteValues()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream, b(0 To 255) As Byte, back() As Byte, i As Long
+        dir = Sandbox.Fresh("stream13")
+        p = dir & "\a.bin"
+        For i = 0 To 255
+            b(i) = i
+        Next i
+        Expect.IsTrue S.SaveFileAsBinary(p, b), "SaveFileAsBinary"
+        Expect.AreEqual 256, FileLen(p), "size of the file"
+        Expect.IsTrue S.LoadFileAsBinary(p, back), "LoadFileAsBinary"
+        Expect.AreEqual 255, UBound(back), "upper bound of the bytes read"
+        Expect.AreEqual Sandbox.HexOfBytes(b), Sandbox.HexOfBytes(back), "bytes read back"
+        Expect.AreEqual "", S.LastError, "LastError after a good call"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    ' ---- the line mode
+
+    [TestCase]
+    Public Sub WriteLine_InLineMode_StoresTheLine()
+        Expect.Begin
+        Dim S As New cToolsStream, r As Boolean
+        S.UseLineMode True
+        On Error Resume Next
+        r = S.WriteLine("first")
+        Expect.AreEqual 0, Err.Number, "WriteLine in line mode raised error " & Err.Number & " " & Err.Description
+        Err.Clear
+        Expect.AreEqual 1, S.LineData.Count, "number of lines held after one WriteLine"
+        Expect.IsTrue r, "result of WriteLine"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLine_LineModeOff_Raises1()
+        Expect.Begin
+        Dim S As New cToolsStream
+        On Error Resume Next
+        S.WriteLine "x"
+        Expect.AreEqual 1, Err.Number, "WriteLine with line mode off raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadLine_LineModeOff_Raises1()
+        Expect.Begin
+        Dim S As New cToolsStream, t As String
+        On Error Resume Next
+        t = S.ReadLine()
+        Expect.AreEqual 1, Err.Number, "ReadLine with line mode off raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadLine_InLineMode_ReadsTheLinesOfTheFile()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream, t As String
+        dir = Sandbox.Fresh("stream14")
+        p = dir & "\a.txt"
+        Sandbox.WriteAscii p, "first" & vbCrLf & "second" & vbCrLf & "third"
+        S.UseLineMode True
+        On Error Resume Next
+        t = S.LoadFileAsText(p)
+        S.Inst.Close
+        Expect.AreEqual 1, S.LineNumber, "LineNumber after LoadFileAsText in line mode"
+        Expect.AreEqual "first", S.ReadLine(), "first ReadLine"
+        Expect.AreEqual "second", S.ReadLine(), "second ReadLine"
+        Expect.AreEqual 3, S.LineNumber, "LineNumber after two ReadLine calls"
+        Expect.AreEqual "first", S.ReadLine(1), "ReadLine(1)"
+        Expect.AreEqual 2, S.LineNumber, "LineNumber after ReadLine(1)"
+        Err.Clear
+        t = S.ReadLine(9)
+        Expect.AreEqual 9, Err.Number, "ReadLine of a number that is not a line raises"
+        On Error GoTo 0
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveFileAsText_DataOmittedInLineMode_WritesTheLines()
+        Expect.Begin
+        Dim dir As String, p As String, S As New cToolsStream
+        dir = Sandbox.Fresh("stream15")
+        p = dir & "\a.txt"
+        S.UseLineMode True
+        S.LineData.Add "one"
+        S.LineData.Add "two"
+        On Error Resume Next
+        S.SaveFileAsText p
+        Expect.AreEqual 0, Err.Number, "SaveFileAsText with the text left out raised error " & Err.Number & " " & Err.Description
+        S.Inst.Close
+        On Error GoTo 0
+        Expect.IsTrue Len(Sandbox.HexOf(p)) > 8, "the file holds the lines, not only a byte order mark"
+        Sandbox.Remove dir
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/SubClassTests.twin b/test/package-tests/TBMANLIB/Sources/SubClassTests.twin
new file mode 100644
index 00000000..db3c6da4
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/SubClassTests.twin
@@ -0,0 +1,127 @@
+' cSubClass: the messages of a window of the program, seen and stopped. Each case makes a window
+' that has no parent on the screen (a message-only window), hooks it, and destroys it.
+[TestFixture]
+Module SubClassTests
+
+    Private Declare PtrSafe Function CreateWindowExW Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As LongPtr, ByVal lpWindowName As LongPtr, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As LongPtr, ByVal hMenu As LongPtr, ByVal hInstance As LongPtr, ByVal lpParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function DestroyWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function SendMessageW Lib "user32" (ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function GetWindowLongW Lib "user32" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long
+
+    Private Const HWND_MESSAGE As Long = -3
+    Private Const GWL_WNDPROC As Long = -4
+    Private Const WM_USER As Long = &H400
+    Private Const WM_SETTEXT As Long = &HC
+    Private Const WM_GETTEXT As Long = &HD
+    Private Const WM_GETTEXTLENGTH As Long = &HE
+
+    ' A message-only window of the STATIC class.
+    Private Function NewWindow() As Long
+        NewWindow = CLng(CreateWindowExW(0, StrPtr("STATIC"), StrPtr("start"), 0, 0, 0, 0, 0, HWND_MESSAGE, 0, 0, 0))
+    End Function
+
+    ' The text of a window, read with WM_GETTEXT.
+    Private Function TextOf(ByVal hWnd As Long) As String
+        Dim n As Long, buf As String
+        n = CLng(SendMessageW(hWnd, WM_GETTEXTLENGTH, 0, 0))
+        buf = String$(n + 1, vbNullChar)
+        SendMessageW hWnd, WM_GETTEXT, n + 1, StrPtr(buf)
+        TextOf = Left$(buf, n)
+    End Function
+
+    [TestCase]
+    Public Sub Hook_RaisesWindowProcForEachMessageOfTheWindow()
+        Expect.Begin
+        Dim h As Long, S As New WindowSink
+        h = NewWindow()
+        Expect.IsTrue h <> 0, "a window was created"
+        S.Create
+        S.Hooker.Hook h
+        Expect.AreEqual h, S.Hooker.mHWnd, "mHWnd after Hook"
+        SendMessageW h, WM_USER + 1, 5, 6
+        Expect.AreEqual WM_USER + 1, S.LastMsg, "Msg of the event"
+        Expect.AreEqual 5, S.LastWParam, "wParam of the event"
+        Expect.AreEqual 6, S.LastLParam, "lParam of the event"
+        Expect.IsTrue S.Count >= 1, "number of events"
+        S.Hooker.UnHook
+        S.Release
+        DestroyWindow h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Hook_CancelNextCall_StopsTheMessageAndReturnsZero()
+        Expect.Begin
+        Dim h As Long, S As New WindowSink, r As LongPtr
+        h = NewWindow()
+        S.Create
+        S.Hooker.Hook h
+        SendMessageW h, WM_SETTEXT, 0, StrPtr("first")
+        Expect.AreEqual "first", TextOf(h), "text after WM_SETTEXT that was not cancelled"
+        S.CancelMsg = WM_SETTEXT
+        r = SendMessageW(h, WM_SETTEXT, 0, StrPtr("second"))
+        Expect.AreEqual "first", TextOf(h), "text after WM_SETTEXT that was cancelled"
+        Expect.AreEqual 0, CLng(r), "result of the cancelled message"
+        S.Hooker.UnHook
+        S.Release
+        DestroyWindow h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnHook_RestoresTheWindowProcedureAndStopsTheEvents()
+        Expect.Begin
+        Dim h As Long, S As New WindowSink, before As Long, hooked As Long, n As Long
+        h = NewWindow()
+        before = GetWindowLongW(h, GWL_WNDPROC)
+        S.Create
+        S.Hooker.Hook h
+        hooked = GetWindowLongW(h, GWL_WNDPROC)
+        Expect.IsTrue hooked <> before, "the window procedure while the window is hooked is the package's"
+        S.Hooker.UnHook
+        Expect.AreEqual before, GetWindowLongW(h, GWL_WNDPROC), "the window procedure after UnHook"
+        n = S.Count
+        SendMessageW h, WM_USER + 2, 0, 0
+        Expect.AreEqual n, S.Count, "events after UnHook"
+        S.Release
+        DestroyWindow h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Hook_AnotherObjectOnTheSameWindow_Raises457()
+        Expect.Begin
+        Dim h As Long, S As New WindowSink, T As New WindowSink
+        h = NewWindow()
+        S.Create
+        T.Create
+        S.Hooker.Hook h
+        On Error Resume Next
+        T.Hooker.Hook h
+        Expect.AreEqual 457, Err.Number, "Hook of a window another cSubClass has hooked raises"
+        On Error GoTo 0
+        S.Hooker.UnHook
+        S.Release
+        T.Release
+        DestroyWindow h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnHook_WithNoHookInPlace_Raises5()
+        Expect.Begin
+        Dim h As Long, S As New WindowSink
+        h = NewWindow()
+        S.Create
+        S.Hooker.Hook h
+        S.Hooker.UnHook
+        On Error Resume Next
+        S.Hooker.UnHook
+        Expect.AreEqual 5, Err.Number, "a second UnHook raises"
+        On Error GoTo 0
+        S.Release
+        DestroyWindow h
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/TestServer.twin b/test/package-tests/TBMANLIB/Sources/TestServer.twin
new file mode 100644
index 00000000..8615ae10
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/TestServer.twin
@@ -0,0 +1,295 @@
+' TestServer: a small HTTP server for the cases of cHttpClient, on 127.0.0.1 only.
+'
+' A case calls ServerUp, which listens on a free port of the loopback address and returns the port,
+' sets the answer for each connection with Respond (or RespondSilently, for a server that reads the
+' request and never answers), starts the server thread with Run, and calls the client. ServerDown ends
+' the thread and the socket; a case calls it at its end, and ServerUp calls it first, so a case that
+' stopped half way leaves nothing behind. After the client has finished, RequestText and RequestBody
+' give what the client sent on each connection.
+'
+' The server thread uses only the arrays and numbers of this module and the Windows functions
+' declared here, and handles its own errors; it takes no part in the program's objects. Nothing in
+' this module goes beyond the loopback interface.
+Module TestServer
+
+    Private Declare PtrSafe Function WSAStartup Lib "ws2_32" (ByVal wVersionRequested As Integer, ByRef lpWSAData As Any) As Long
+    Private Declare PtrSafe Function WSACleanup Lib "ws2_32" () As Long
+    Private Declare PtrSafe Function ws_socket Lib "ws2_32" Alias "socket" (ByVal af As Long, ByVal stype As Long, ByVal protocol As Long) As LongPtr
+    Private Declare PtrSafe Function ws_bind Lib "ws2_32" Alias "bind" (ByVal s As LongPtr, ByRef name As Any, ByVal namelen As Long) As Long
+    Private Declare PtrSafe Function ws_listen Lib "ws2_32" Alias "listen" (ByVal s As LongPtr, ByVal backlog As Long) As Long
+    Private Declare PtrSafe Function ws_accept Lib "ws2_32" Alias "accept" (ByVal s As LongPtr, ByVal addr As LongPtr, ByVal addrlen As LongPtr) As LongPtr
+    Private Declare PtrSafe Function ws_getsockname Lib "ws2_32" Alias "getsockname" (ByVal s As LongPtr, ByRef name As Any, ByRef namelen As Long) As Long
+    Private Declare PtrSafe Function ws_recv Lib "ws2_32" Alias "recv" (ByVal s As LongPtr, ByRef buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
+    Private Declare PtrSafe Function ws_send Lib "ws2_32" Alias "send" (ByVal s As LongPtr, ByRef buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
+    Private Declare PtrSafe Function ws_closesocket Lib "ws2_32" Alias "closesocket" (ByVal s As LongPtr) As Long
+    Private Declare PtrSafe Function ws_shutdown Lib "ws2_32" Alias "shutdown" (ByVal s As LongPtr, ByVal how As Long) As Long
+    Private Declare PtrSafe Function ws_setsockopt Lib "ws2_32" Alias "setsockopt" (ByVal s As LongPtr, ByVal level As Long, ByVal optname As Long, ByRef optval As Any, ByVal optlen As Long) As Long
+    Private Declare PtrSafe Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As LongPtr, ByVal dwStackSize As LongPtr, ByVal lpStartAddress As LongPtr, ByVal lpParameter As LongPtr, ByVal dwCreationFlags As Long, ByRef lpThreadId As Long) As LongPtr
+    Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As LongPtr, ByVal dwMilliseconds As Long) As Long
+    Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As LongPtr) As Long
+    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
+
+    Private Const MAXCONN As Long = 4
+    Private Const REQ_STRIDE As Long = 65536
+    Private Const RESP_STRIDE As Long = 32768
+
+    Private gReq(0 To 262143) As Byte
+    Private gReqLen(0 To 3) As Long
+    Private gResp(0 To 131071) As Byte
+    Private gRespLen(0 To 3) As Long
+    Private gSilent(0 To 3) As Long
+
+    Private gPat(0 To 14) As Byte
+    Private gListen As LongPtr
+    Private gThread As LongPtr
+    Private gPort As Long
+    Private gExpected As Long
+    Private gServed As Long
+    Private gStop As Long
+    Private gThreadError As Long
+    Private gStarted As Boolean
+
+    ' Starts listening on the loopback address and returns the port.
+    Public Function ServerUp() As Long
+        Dim wsa(0 To 511) As Byte, addr(0 To 15) As Byte, n As Long, i As Long
+        ServerDown
+        For i = 0 To MAXCONN - 1
+            gReqLen(i) = 0
+            gRespLen(i) = 0
+            gSilent(i) = 0
+        Next i
+        Dim pat As String
+        pat = "content-length:"
+        For i = 1 To Len(pat)
+            gPat(i - 1) = AscW(Mid$(pat, i, 1))
+        Next i
+        gServed = 0
+        gStop = 0
+        gThreadError = 0
+        If WSAStartup(&H202, wsa(0)) <> 0 Then Err.Raise 5, "TestServer.ServerUp", "WSAStartup failed"
+        gStarted = True
+        gListen = ws_socket(2, 1, 6)
+        If gListen = 0 Or gListen = -1 Then Err.Raise 5, "TestServer.ServerUp", "socket failed"
+        addr(0) = 2
+        addr(4) = 127
+        addr(7) = 1
+        If ws_bind(gListen, addr(0), 16) <> 0 Then Err.Raise 5, "TestServer.ServerUp", "bind failed"
+        If ws_listen(gListen, 4) <> 0 Then Err.Raise 5, "TestServer.ServerUp", "listen failed"
+        n = 16
+        If ws_getsockname(gListen, addr(0), n) <> 0 Then Err.Raise 5, "TestServer.ServerUp", "getsockname failed"
+        gPort = addr(2) * 256& + addr(3)
+        ServerUp = gPort
+    End Function
+
+    ' The text with the port of the server replaced by <port>, so that a report is the same on every run.
+    Public Function Masked(ByVal Text As String) As String
+        Masked = Replace(Text, ":" & gPort, ":<port>")
+    End Function
+
+    Public Function Url(ByVal Path As String) As String
+        Url = "http://127.0.0.1:" & gPort & Path
+    End Function
+
+    ' The whole answer, with its status line, headers, a blank line and the body, for connection
+    ' number Index (from 0).
+    Public Sub Respond(ByVal Index As Long, ByVal Text As String)
+        Dim b() As Byte, i As Long
+        b = StrConv(Text, vbFromUnicode)
+        For i = 0 To UBound(b)
+            gResp(Index * RESP_STRIDE + i) = b(i)
+        Next i
+        gRespLen(Index) = UBound(b) + 1
+        gSilent(Index) = 0
+    End Sub
+
+    ' Connection number Index is read and then held open with no answer until ServerDown.
+    Public Sub RespondSilently(ByVal Index As Long)
+        gSilent(Index) = 1
+    End Sub
+
+    ' An answer of status 200 with a plain text body.
+    Public Function Ok(ByVal Body As String) As String
+        Ok = "HTTP/1.1 200 OK" & vbCrLf & "Content-Type: text/plain" & vbCrLf & "Content-Length: " & Len(Body) & vbCrLf & "Connection: close" & vbCrLf & vbCrLf & Body
+    End Function
+
+    ' Starts the server thread, which serves Expected connections one after the other.
+    Public Sub Run(ByVal Expected As Long)
+        Dim tid As Long
+        gExpected = Expected
+        gThread = CreateThread(0, 0, AddressOf ServerThread, 0, 0, tid)
+        If gThread = 0 Then Err.Raise 5, "TestServer.Run", "CreateThread failed"
+    End Sub
+
+    ' Ends the thread and closes the sockets. Raises no error and may be called twice.
+    Public Sub ServerDown()
+        gStop = 1
+        If gListen <> 0 Then
+            ws_closesocket gListen
+            gListen = 0
+        End If
+        If gThread <> 0 Then
+            WaitForSingleObject gThread, 5000
+            CloseHandle gThread
+            gThread = 0
+        End If
+        If gStarted Then
+            WSACleanup
+            gStarted = False
+        End If
+    End Sub
+
+    Public Function Served() As Long
+        Served = gServed
+    End Function
+
+    Public Function ThreadFailed() As Long
+        ThreadFailed = gThreadError
+    End Function
+
+    ' What the client sent on connection number Index, as text (one character for each byte).
+    Public Function RequestText(ByVal Index As Long) As String
+        Dim b() As Byte, i As Long, s As String
+        If gReqLen(Index) = 0 Then Exit Function
+        ReDim b(0 To gReqLen(Index) - 1)
+        For i = 0 To gReqLen(Index) - 1
+            b(i) = gReq(Index * REQ_STRIDE + i)
+        Next i
+        RequestText = StrConv(b, vbUnicode)
+    End Function
+
+    ' The bytes of the body of the request on connection number Index.
+    Public Function RequestBody(ByVal Index As Long) As Byte()
+        Dim b() As Byte, e As Long, i As Long, n As Long
+        e = HeaderEnd(Index * REQ_STRIDE, gReqLen(Index))
+        If e < 0 Then Exit Function
+        n = gReqLen(Index) - (e + 4)
+        If n <= 0 Then Exit Function
+        ReDim b(0 To n - 1)
+        For i = 0 To n - 1
+            b(i) = gReq(Index * REQ_STRIDE + e + 4 + i)
+        Next i
+        RequestBody = b
+    End Function
+
+    ' The text of the headers of the request on connection number Index: the request line and the
+    ' header lines.
+    Public Function RequestHead(ByVal Index As Long) As String
+        Dim t As String, p As Long
+        t = RequestText(Index)
+        p = InStr(t, vbCrLf & vbCrLf)
+        If p > 0 Then RequestHead = Left$(t, p - 1) Else RequestHead = t
+    End Function
+
+    ' The value of a header line of the request, or "" when there is none. Matches the name without
+    ' regard to letter case.
+    Public Function RequestHeader(ByVal Index As Long, ByVal Name As String) As String
+        Dim lines() As String, i As Long, p As Long
+        lines = Split(RequestHead(Index), vbCrLf)
+        For i = 1 To UBound(lines)
+            p = InStr(lines(i), ":")
+            If p > 0 Then
+                If StrComp(Left$(lines(i), p - 1), Name, vbTextCompare) = 0 Then
+                    RequestHeader = Trim$(Mid$(lines(i), p + 1))
+                    Exit Function
+                End If
+            End If
+        Next i
+    End Function
+
+    ' ---- the server thread
+
+    ' Index, relative to Base, of the first byte of the first blank line, or -1.
+    Private Function HeaderEnd(ByVal Base As Long, ByVal Total As Long) As Long
+        Dim i As Long
+        HeaderEnd = -1
+        For i = 0 To Total - 4
+            If gReq(Base + i) = 13 Then
+                If gReq(Base + i + 1) = 10 And gReq(Base + i + 2) = 13 And gReq(Base + i + 3) = 10 Then
+                    HeaderEnd = i
+                    Exit Function
+                End If
+            End If
+        Next i
+    End Function
+
+    ' The value of the header Content-Length in the headers that end at HdrEnd, or 0.
+    Private Function ContentLengthOf(ByVal Base As Long, ByVal HdrEnd As Long) As Long
+        Dim i As Long, j As Long, v As Long, ch As Long, ok As Boolean
+        For i = 0 To HdrEnd - 1
+            ok = (i = 0)
+            If Not ok Then ok = (gReq(Base + i - 1) = 10)
+            If ok Then
+                ok = True
+                For j = 0 To 14
+                    ch = gReq(Base + i + j)
+                    If ch >= 65 And ch <= 90 Then ch = ch + 32
+                    If ch <> gPat(j) Then
+                        ok = False
+                        Exit For
+                    End If
+                Next j
+                If ok Then
+                    j = i + 15
+                    Do While gReq(Base + j) = 32
+                        j = j + 1
+                    Loop
+                    v = 0
+                    Do While gReq(Base + j) >= 48 And gReq(Base + j) <= 57
+                        v = v * 10 + (gReq(Base + j) - 48)
+                        j = j + 1
+                    Loop
+                    ContentLengthOf = v
+                    Exit Function
+                End If
+            End If
+        Next i
+    End Function
+
+    Private Sub Serve(ByVal C As LongPtr, ByVal Index As Long)
+        Dim base As Long, total As Long, n As Long, hdr As Long, bodyLen As Long, tmo As Long, sent As Long
+        base = Index * REQ_STRIDE
+        tmo = 3000
+        ws_setsockopt C, &HFFFF&, &H1006&, tmo, 4
+        hdr = -1
+        Do
+            n = ws_recv(C, gReq(base + total), REQ_STRIDE - total, 0)
+            If n <= 0 Then Exit Do
+            total = total + n
+            If hdr < 0 Then hdr = HeaderEnd(base, total)
+            If hdr >= 0 Then
+                bodyLen = ContentLengthOf(base, hdr)
+                If total >= hdr + 4 + bodyLen Then Exit Do
+            End If
+        Loop While total < REQ_STRIDE
+        gReqLen(Index) = total
+        If gSilent(Index) <> 0 Then
+            Do While gStop = 0
+                Sleep 20
+            Loop
+        ElseIf gRespLen(Index) > 0 Then
+            Do While sent < gRespLen(Index)
+                n = ws_send(C, gResp(Index * RESP_STRIDE + sent), gRespLen(Index) - sent, 0)
+                If n <= 0 Then Exit Do
+                sent = sent + n
+            Loop
+        End If
+        ws_shutdown C, 1
+        ws_closesocket C
+    End Sub
+
+    [Debuggable(False)]
+    Public Function ServerThread(ByVal Param As LongPtr) As Long
+        On Error GoTo Failed
+        Dim i As Long, c As LongPtr
+        For i = 0 To gExpected - 1
+            c = ws_accept(gListen, 0, 0)
+            If c = 0 Or c = -1 Then Exit For
+            Serve c, i
+            gServed = gServed + 1
+        Next i
+        Exit Function
+Failed:
+        gThreadError = Err.Number
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/TickSink.twin b/test/package-tests/TBMANLIB/Sources/TickSink.twin
new file mode 100644
index 00000000..72bdc439
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/TickSink.twin
@@ -0,0 +1,19 @@
+' TickSink: a cTimer and the number of Timer events it raised, for the test cases.
+Class TickSink
+
+    Private WithEvents Tmr As cTimer
+    Public Count As Long
+
+    Public Sub Attach(ByVal T As cTimer)
+        Set Tmr = T
+    End Sub
+
+    Public Sub Detach()
+        Set Tmr = Nothing
+    End Sub
+
+    Private Sub Tmr_Timer()
+        Count = Count + 1
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB/Sources/TimerState.twin b/test/package-tests/TBMANLIB/Sources/TimerState.twin
new file mode 100644
index 00000000..266b08d8
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/TimerState.twin
@@ -0,0 +1,15 @@
+' TimerState: a way to stop every timer the package still has registered, so that no case leaves
+' one running.
+Module TimerState
+
+    Public Sub StopAllTimers()
+        Dim n As Long
+        On Error Resume Next
+        Do While mTimer.timers.Count > 0 And n < 200
+            mTimer.timers(1).Enabled = False
+            n = n + 1
+        Loop
+        Err.Clear
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/TimerTests.twin b/test/package-tests/TBMANLIB/Sources/TimerTests.twin
new file mode 100644
index 00000000..eee2f684
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/TimerTests.twin
@@ -0,0 +1,205 @@
+' cTimeuse, cTimer and cTimers: the stopwatch and the timers. A case that starts a timer stops it
+' before it ends, and runs the message pump for a bounded time only.
+[TestFixture]
+Module TimerTests
+
+    ' ---- cTimeuse
+
+    [TestCase]
+    Public Sub cTimeuse_Show_ReplacesEveryPlaceholderWithTheMilliseconds()
+        Expect.Begin
+        Dim W As New cTimeuse, t As String, parts() As String
+        W.Start
+        t = W.Show("{*}-{*}")
+        parts = Split(t, "-")
+        Expect.AreEqual 1, UBound(parts), "number of parts of Show(""{*}-{*}"")"
+        Expect.AreEqual parts(0), parts(1), "the two numbers Show writes"
+        Expect.IsTrue Val(parts(0)) >= 0 And Val(parts(0)) < 5000, "the number " & parts(0) & " is a short time in milliseconds"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimeuse_Show_WithoutStart_IsTheTickCount()
+        Expect.Begin
+        Dim W As New cTimeuse
+        Expect.IsTrue Val(W.Show("{*}")) > 0, "Show without Start is the tick count of the computer"
+        Expect.Done
+    End Sub
+
+    ' ---- cTimer
+
+    [TestCase]
+    Public Sub cTimer_Enabled_FollowsTheInterval()
+        Expect.Begin
+        TimerState.StopAllTimers
+        Dim T As New cTimer
+        Expect.AreEqual 2000, T.Interval, "Interval of a new timer"
+        Expect.IsFalse T.Enabled, "Enabled of a new timer"
+        T.Interval = 0
+        T.Enabled = True
+        Expect.IsFalse T.Enabled, "Enabled after the start of a timer with Interval 0"
+        T.Interval = 1000
+        T.Enabled = True
+        Expect.IsTrue T.Enabled, "Enabled after the start of a timer with Interval 1000"
+        T.Enabled = False
+        Expect.IsFalse T.Enabled, "Enabled after it was set to False"
+        TimerState.StopAllTimers
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimer_Enabled_RaisesTheTimerEventAtTheInterval()
+        Expect.Begin
+        TimerState.StopAllTimers
+        Dim T As New cTimer, S As New TickSink
+        S.Attach T
+        T.Interval = 30
+        T.Enabled = True
+        Expect.IsTrue Pump.UntilCount(S, 3, 1500), "three Timer events within 1.5 seconds (got " & S.Count & ")"
+        T.Enabled = False
+        Dim n As Long
+        n = S.Count
+        Pump.ForMs 150
+        Expect.AreEqual n, S.Count, "Timer events after Enabled was set to False"
+        S.Detach
+        TimerState.StopAllTimers
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimer_EnableTimer_Reset_Disable_StartAndStopTheTimer()
+        Expect.Begin
+        TimerState.StopAllTimers
+        Dim T As New cTimer
+        T.EnableTimer 500
+        Expect.AreEqual 500, T.Interval, "Interval after EnableTimer(500)"
+        Expect.IsTrue T.Enabled, "Enabled after EnableTimer"
+        T.Disable
+        Expect.IsFalse T.Enabled, "Enabled after Disable"
+        T.Reset
+        Expect.IsTrue T.Enabled, "Enabled after Reset of a timer that was off"
+        T.Enable
+        Expect.IsTrue T.Enabled, "Enabled after Enable of a timer that was on"
+        Expect.AreEqual 1, mTimer.timers.Count, "number of registered timers after Reset and Enable"
+        T.Disable
+        TimerState.StopAllTimers
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimer_EnabledTimerReleased_IsDestroyed()
+        Expect.Begin
+        TimerState.StopAllTimers
+        Dim T As New cTimer, before As Long
+        before = mTimer.timers.Count
+        T.Interval = 1000
+        T.Enabled = True
+        Expect.AreEqual before + 1, mTimer.timers.Count, "registered timers while the timer runs"
+        Set T = Nothing
+        Expect.AreEqual before, mTimer.timers.Count, "registered timers after the last reference to the timer was released"
+        TimerState.StopAllTimers
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimer_NeverEnabledTimerReleased_IsDestroyed()
+        Expect.Begin
+        TimerState.StopAllTimers
+        Dim T As New cTimer, before As Long
+        before = mTimer.timers.Count
+        Set T = Nothing
+        Expect.AreEqual before, mTimer.timers.Count, "registered timers after a timer that never ran was released"
+        Expect.Done
+    End Sub
+
+    ' ---- cTimers
+
+    [TestCase]
+    Public Sub cTimers_Add_Count_Item_BulkLoad()
+        Expect.Begin
+        Dim G As New cTimers
+        Expect.AreEqual 1, G.Add(), "first Add"
+        Expect.AreEqual 2, G.Add(), "second Add"
+        Expect.AreEqual 2, G.Count, "Count"
+        G(2).Interval = 250
+        Expect.AreEqual 250, G(2).Interval, "Interval of timer 2"
+        Expect.AreEqual 2000, G(1).Interval, "Interval of timer 1"
+        Expect.IsFalse G(1).Enabled, "timer 1 is off"
+        G.BulkLoad 3
+        Expect.AreEqual 6, G.Count, "Count after BulkLoad 3"
+        TimerState.StopAllTimers
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimers_ItemAndBulkLoad_RaiseTheirErrors()
+        Expect.Begin
+        Dim G As New cTimers, t As cTimer
+        G.Add
+        On Error Resume Next
+        Set t = G.Item(5)
+        Expect.AreEqual vbObjectError, Err.Number, "Item(5) of a group of one raises"
+        Expect.AreEqual "Index does not Exist", Err.Description, "description of that error"
+        Err.Clear
+        Set t = G.Item(0)
+        Expect.AreEqual 9, Err.Number, "Item(0) raises"
+        Err.Clear
+        G.BulkLoad 0
+        Expect.AreEqual vbObjectError, Err.Number, "BulkLoad 0 raises"
+        Err.Clear
+        G.BulkLoad 200
+        Expect.AreEqual vbObjectError, Err.Number, "BulkLoad 200 raises"
+        Expect.AreEqual "No more than 200 times allowed per class", Err.Description, "description of that error"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimers_Timer_IsRaisedByTheGroupWithTheNumberOfTheTimer()
+        Expect.Begin
+        TimerState.StopAllTimers
+        Dim G As New cTimers, S As New GroupSink, i As Long, limit As Long
+        S.Attach G
+        G.BulkLoad 1
+        G(2).Interval = 30
+        G(2).Enabled = True
+        Pump.ForMs 200
+        G(2).Enabled = False
+        Expect.IsTrue S.Count >= 2, "events of the group within 200 ms (got " & S.Count & ")"
+        Expect.AreEqual 2, S.Last, "number of the timer that raised the event"
+        S.Detach
+        TimerState.StopAllTimers
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimers_EnabledTimerOfAReleasedGroup_IsDestroyed()
+        Expect.Begin
+        TimerState.StopAllTimers
+        Dim G As cTimers, before As Long
+        before = mTimer.timers.Count
+        Set G = New cTimers
+        G.Add
+        G(1).Interval = 1000
+        G(1).Enabled = True
+        Expect.AreEqual before + 1, mTimer.timers.Count, "registered timers while the timer of the group runs"
+        Set G = Nothing
+        Expect.AreEqual before, mTimer.timers.Count, "registered timers after the last reference to the group was released"
+        TimerState.StopAllTimers
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub cTimers_GroupReleased_IsDestroyed()
+        Expect.Begin
+        TimerState.StopAllTimers
+        Dim G As cTimers, before As Long
+        before = mTimer.CTimersCol.Count
+        Set G = New cTimers
+        Expect.IsTrue mTimer.CTimersCol.Count = before + 1, "the group is registered while it exists"
+        Set G = Nothing
+        Expect.IsTrue mTimer.CTimersCol.Count = before, "the group is no longer registered after the last reference to it was released"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/Utf8Tests.twin b/test/package-tests/TBMANLIB/Sources/Utf8Tests.twin
new file mode 100644
index 00000000..c456d7c6
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/Utf8Tests.twin
@@ -0,0 +1,79 @@
+' ToolsUtf8: UTF-8 bytes and strings.
+[TestFixture]
+Module Utf8Tests
+
+    [TestCase]
+    Public Sub Encode_ReturnsUtf8BytesWithNoByteOrderMark()
+        Expect.Begin
+        Dim b() As Byte
+        b = ToolsUtf8.Encode("caf" & ChrW(233))
+        Expect.AreEqual 4, UBound(b), "upper bound of Encode(cafe acute)"
+        Expect.AreEqual "63 61 66 C3 A9", Sandbox.HexOfBytes(b), "bytes of Encode(cafe acute)"
+        b = ToolsUtf8.Encode(ChrW(&H20AC))
+        Expect.AreEqual "E2 82 AC", Sandbox.HexOfBytes(b), "bytes of Encode(euro sign)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Encode_EmptyString_ReturnsAnArrayThatIsNotDimensioned()
+        Expect.Begin
+        Dim b() As Byte, n As Long
+        b = ToolsUtf8.Encode("")
+        On Error Resume Next
+        n = UBound(b)
+        Expect.AreEqual 9, Err.Number, "UBound of Encode of an empty string raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_Utf8Bytes_ReturnsTheText()
+        Expect.Begin
+        Dim b() As Byte
+        b = ToolsUtf8.Encode("caf" & ChrW(233) & ChrW(&H20AC))
+        Expect.AreEqual "caf" & ChrW(233) & ChrW(&H20AC), ToolsUtf8.Decode(b), "Decode of the bytes of cafe acute and the euro sign"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_ByteOrderMark_BecomesTheCharacterFeff()
+        Expect.Begin
+        Dim b(0 To 3) As Byte, s As String
+        b(0) = &HEF: b(1) = &HBB: b(2) = &HBF: b(3) = &H61
+        s = ToolsUtf8.Decode(b)
+        Expect.AreEqual 2, Len(s), "length of the text decoded from a byte order mark and a"
+        Expect.AreEqual &HFEFF&, AscW(Left$(s, 1)) And &HFFFF&, "first character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Decode_ArrayNotDimensioned_ReturnsAnEmptyString()
+        Expect.Begin
+        Dim b() As Byte
+        Expect.AreEqual "", ToolsUtf8.Decode(b), "Decode of an array that is not dimensioned"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecodeToByteArray_ReturnsAllTheUtf16Bytes()
+        Expect.Begin
+        Dim u() As Byte, w() As Byte
+        u = ToolsUtf8.Encode("caf" & ChrW(233))
+        w = ToolsUtf8.DecodeToByteArray(u)
+        Expect.AreEqual 8, UBound(w) + 1, "number of bytes of DecodeToByteArray for four characters"
+        Expect.AreEqual "63 00 61 00 66 00 E9 00", Sandbox.HexOfBytes(w), "bytes of DecodeToByteArray for cafe acute"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecodeToByteArray_ArrayNotDimensioned_Raises9()
+        Expect.Begin
+        Dim u() As Byte, w() As Byte
+        On Error Resume Next
+        w = ToolsUtf8.DecodeToByteArray(u)
+        Expect.AreEqual 9, Err.Number, "DecodeToByteArray of an array that is not dimensioned raises"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/Sources/WindowSink.twin b/test/package-tests/TBMANLIB/Sources/WindowSink.twin
new file mode 100644
index 00000000..5504c276
--- /dev/null
+++ b/test/package-tests/TBMANLIB/Sources/WindowSink.twin
@@ -0,0 +1,34 @@
+' WindowSink: a cSubClass and the messages it reported, for the test cases.
+'
+' It records the last message and its arguments and the number of messages, and sets
+' CancelNextCall for the message number in CancelMsg.
+Class WindowSink
+
+    Private WithEvents Sub1 As cSubClass
+    Public Count As Long
+    Public LastMsg As Long
+    Public LastWParam As Long
+    Public LastLParam As Long
+    Public CancelMsg As Long
+
+    Public Property Get Hooker() As cSubClass
+        Set Hooker = Sub1
+    End Property
+
+    Public Sub Create()
+        Set Sub1 = New cSubClass
+    End Sub
+
+    Public Sub Release()
+        Set Sub1 = Nothing
+    End Sub
+
+    Private Sub Sub1_WindowProc(Msg As Long, wParam As Long, lParam As Long, CancelNextCall As Boolean)
+        Count = Count + 1
+        LastMsg = Msg
+        LastWParam = wParam
+        LastLParam = lParam
+        If CancelMsg <> 0 And Msg = CancelMsg Then CancelNextCall = True
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB/compile/CompileTests.twin b/test/package-tests/TBMANLIB/compile/CompileTests.twin
new file mode 100644
index 00000000..bf90a10a
--- /dev/null
+++ b/test/package-tests/TBMANLIB/compile/CompileTests.twin
@@ -0,0 +1,20 @@
+' TBMANLIB: what the compiler refuses. Each line ends in a comment ' CASE <Name>: <code>.
+Module CompileTests
+
+    Public Sub RequestHeaders_AssignmentThroughTheDefaultMember()
+        Dim Http As New cHttpClient
+        Http.RequestHeaders("X-Key") = "1" ' CASE RequestHeadersDefaultMemberAssignment: TB5090
+    End Sub
+
+    Public Sub RequestHeaders_AssignmentWithItemWrittenOut()
+        Dim Http As New cHttpClient
+        Http.RequestHeaders.Item("X-Key") = "1" ' CASE RequestHeadersItemAssignment: none
+    End Sub
+
+    Public Sub RequestHeaders_ReadThroughTheDefaultMember()
+        Dim Http As New cHttpClient
+        Dim s As String
+        s = Http.RequestHeaders("X-Key") ' CASE RequestHeadersDefaultMemberRead: none
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB/expect.json b/test/package-tests/TBMANLIB/expect.json
new file mode 100644
index 00000000..d8f0f001
--- /dev/null
+++ b/test/package-tests/TBMANLIB/expect.json
@@ -0,0 +1,275 @@
+{
+  "version": "1.0.0.29",
+  "arches": [
+    "win32"
+  ],
+  "cases": {
+    "ArrayTests.SliceByteArray_StartEqualsEnd_ReturnsTheOneByte": {
+      "fails": "1 of 2 checks failed: the byte of SliceByteArray(Hello-World, 2, 2), the letter l: expected 108, got 0"
+    },
+    "ArrayTests.Extend_AssignsTheElementsToTheVariables": {
+      "fails": "2 of 3 checks failed: first variable after the assignment to Extend: expected \"one\", got \"A\"; second variable after the assignment to Extend: expected \"two\", got \"C\""
+    },
+    "ArrayTests.SplitByteArrayByKeyword_KeywordAtStart_GivesAnEmptyFirstPart": {
+      "fails": "1 of 1 checks failed: split of ,a at a comma raised error -2147467259 Unspecified error: expected 0, got -2147467259"
+    },
+    "ArrayTests.SplitByteArrayByKeyword_KeywordAtEnd_GivesAnEmptyLastPart": {
+      "fails": "1 of 3 checks failed: the last part of a, split at a comma has no elements: expected True, got False"
+    },
+    "CsvTests.NewColumn_ReturnsTrueWhenTheColumnIsAdded": {
+      "fails": "1 of 2 checks failed: result of NewColumn after it added a column: expected True, got False"
+    },
+    "CsvTests.DeleteColumn_MiddleColumn_SavesTheRemainingColumns": {
+      "fails": "1 of 3 checks failed: file after deleting column 2 of three: expected \"a,c d,f \", got \"a, d, \""
+    },
+    "CsvTests.value_Assignment_ChangesTheField": {
+      "fails": "2 of 2 checks failed: assignment to value(2, 2) raised error -2147467259 Unspecified error: expected 0, got -2147467259; value(2, 2) after the assignment: expected \"Zed\", got \"Ann\""
+    },
+    "CsvTests.SetHeadTitleWidthByDic_ReturnsTrueWhenTheWidthsAreStored": {
+      "fails": "1 of 2 checks failed: result of SetHeadTitleWidthByDic after it stored a width: expected True, got False"
+    },
+    "CsvTests.LoadFrom_SpacesAtTheEndsOfAField_AreKept": {
+      "fails": "2 of 2 checks failed: field with a space at each end: expected \" Ann \", got \"Ann\"; quoted field with a space at each end: expected \" x \", got \"x\""
+    },
+    "CsvTests.NewLine_AfterABlankLineInTheFile_AddsALine": {
+      "fails": "2 of 2 checks failed: NewLine after loading a file with a blank line raised error 457 Automation error: expected 0, got 457; number of lines after NewLine: expected 3, got 2"
+    },
+    "CsvTests.SaveTo_FieldWithALineBreak_ReadsBackAsOneField": {
+      "fails": "2 of 2 checks failed: number of lines read back from a table of one line: expected 1, got 2; second field read back: expected \"x y\", got \"x\""
+    },
+    "CsvTests.SaveTo_CharacterOutsideTheCodePage_KeepsThePreviousFile": {
+      "fails": "2 of 2 checks failed: the file after SaveTo with a field of ChrW(&H4E2D) is not empty: expected True, got False; the file after the failed SaveTo: expected \"old,data \", got \"\""
+    },
+    "DicTests.FromWwwFormUrlencoded_ValueWithEqualsSign_KeepsTheRest": {
+      "fails": "1 of 1 checks failed: value of a in a=b=c: expected \"b=c\", got \"b\""
+    },
+    "DicTests.FromWwwFormUrlencoded_PercentEscapes_AreDecoded": {
+      "fails": "3 of 3 checks failed: value of a in a=x%20y: expected \"x y\", got \"x%20y\"; value of b in b=1%2B1: expected \"1+1\", got \"1%2B1\"; value of c in c=p+q: expected \"p q\", got \"p+q\""
+    },
+    "DicTests.OverWrite_OnlyKeyFalse_NestedDictionaryMissingInTarget_IsAdded": {
+      "fails": "1 of 2 checks failed: OverWrite with OnlyKey False of a nested dictionary the target lacks raised error 424 Object required: expected 0, got 424"
+    },
+    "DicTests.DeepCopy_NestedDictionary_IsCopied": {
+      "fails": "1 of 1 checks failed: n of the source's nested dictionary after the copy's was changed: expected 1, got 2"
+    },
+    "FsoTests.AutoCompleteFullPath_DriveWithForwardSlashes_IsComplete": {
+      "fails": "1 of 1 checks failed: AutoCompleteFullPath of C:/data/a.json: expected \"C:\\data\\a.json\", got \"<App.Path>\\C:\\data\\a.json\""
+    },
+    "FsoTests.AutoCompleteFullPath_NetworkPath_IsComplete": {
+      "fails": "1 of 1 checks failed: AutoCompleteFullPath of \\\\server\\share\\a.json: expected \"\\\\server\\share\\a.json\", got \"<App.Path>\\\\server\\share\\a.json\""
+    },
+    "FsoTests.ClearSpan_NetworkPath_KeepsItsTwoLeadingBackslashes": {
+      "fails": "1 of 1 checks failed: ClearSpan of \\\\server\\share\\a.json: expected \"\\\\server\\share\\a.json\", got \"\\server\\share\\a.json\""
+    },
+    "FsoTests.MakeNewFileFulPath_ReturnsTheNewNameWithTheFolder": {
+      "fails": "1 of 1 checks failed: MakeNewFileFulPath of C:\\data\\a.json: expected \"C:\\data\\a_old.json\", got \"a_old.json\""
+    },
+    "FsoTests.MakeNewFileFulPath_NoExtension_HasNoTrailingPeriod": {
+      "fails": "1 of 1 checks failed: MakeNewFileFulPath of readme: expected \"readme_old\", got \"readme_old.\""
+    },
+    "HttpRequestTests.RequestDataQuery_Pairs_AreSentAsParametersOfTheirOwnNames": {
+      "fails": "1 of 1 checks failed: request line of a GET with the query values a = 1 and b = 2: expected \"GET /p?a=1&b=2 HTTP/1.1\", got \"GET /p?ver=a=1&b=2 HTTP/1.1\""
+    },
+    "HttpRequestTests.RequestDataQuery_UrlWithAQuery_GetsTheValuesAfterAnAmpersand": {
+      "fails": "1 of 1 checks failed: request line of a GET to a URL that has a query: expected \"GET /p?x=0&a=1 HTTP/1.1\", got \"GET /p?x=0&ver=a=1 HTTP/1.1\""
+    },
+    "HttpRequestTests.RequestDataForm_Values_AreUrlEncoded": {
+      "fails": "1 of 1 checks failed: body of a form with city = A B&C: city=A B&C: expected True, got False"
+    },
+    "HttpRequestTests.RequestContentType_ChangedAfterAFirstRequest_ChangesTheHeader": {
+      "fails": "1 of 2 checks failed: Content-Type of the second request: expected \"application/json\", got \"application/x-www-form-urlencoded\""
+    },
+    "HttpRequestTests.RequestDataJson_ValueWithBackslashU_IsSent": {
+      "fails": "2 of 2 checks failed: SendPost of a document that holds C:\\users raised error 13 Automation error: expected 0, got 13; body: expected \"{\"p\":\"C:\\\\users\"}\", got \"\""
+    },
+    "HttpResponseTests.ResponseHeaders_ValueWithColons_IsKeptWhole": {
+      "fails": "1 of 1 checks failed: ResponseHeaders(Date): expected \"Tue, 13 Oct 2026 18:00:00 GMT\", got \"Tue, 13 Oct 2026 18\""
+    },
+    "HttpResponseTests.OnResponseFinished_AsyncRequest_IsRaisedWhenTheAnswerArrives": {
+      "fails": "1 of 2 checks failed: OnResponseFinished events after the answer arrived (got 0): expected True, got False"
+    },
+    "HttpResponseTests.GetRedirectUrl_AbsoluteLocation_IsReturnedWhole": {
+      "fails": "1 of 1 checks failed: GetRedirectUrl of a 302 answer with the Location http://127.0.0.1:<port>/next: expected \"http://127.0.0.1:<port>/next\", got \"http\""
+    },
+    "HttpResponseTests.FollowRedirect_Status302_SendsARequestToTheLocation": {
+      "fails": "2 of 2 checks failed: FollowRedirect raised error -2147012890 The URL does not use a recognized protocol : expected 0, got -2147012890; number of connections the server served: expected 2, got 1"
+    },
+    "HttpResponseTests.DownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone": {
+      "fails": "1 of 2 checks failed: DownloadFile returned True and raised no error though the file was not written: expected True, got False"
+    },
+    "HttpResponseTests.FinishDownloadFile_FolderThatDoesNotExist_IsNotReportedAsDone": {
+      "fails": "1 of 3 checks failed: FinishDownloadFile returned True and raised no error though the file was not written: expected True, got False"
+    },
+    "HttpResponseTests.UploadFile_ErrorStatus_RaisesWithTheTextOfTheFailure": {
+      "fails": "1 of 3 checks failed: the description of the error raised: expected \"上传失败: 404#Not Found\", got \"Application-defined or object-defined error\""
+    },
+    "HttpResponseTests.UploadFile_NoAnswerWithinTheTimeOut_RaisesWithTheTextOfTheFailure": {
+      "fails": "1 of 2 checks failed: the description of the error raised: expected \"上传超时: 5\", got \"Automation error\""
+    },
+    "HttpResponseTests.UploadFileSimple_Failure_LastErrorHoldsTheTextOfTheFailure": {
+      "fails": "1 of 3 checks failed: LastError ends with 404#Not Found: Application-defined or object-defined error: expected True, got False"
+    },
+    "HttpToolsTests.ParseContent_ReturnsTrueWhenThePairsAreRead": {
+      "fails": "1 of 2 checks failed: result of ParseContent after it read a pair: expected True, got False"
+    },
+    "HttpToolsTests.ParseKeyValue_ValueWithColons_IsKeptWhole": {
+      "fails": "2 of 2 checks failed: value of Date: expected \"Tue, 13 Oct 2026 18:00:00 GMT\", got \"Tue, 13 Oct 2026 18\"; value of Location: expected \"http://host/path\", got \"http\""
+    },
+    "HttpToolsTests.ParseKeyValue_ReturnsTrueWhenTheLinesAreRead": {
+      "fails": "1 of 2 checks failed: result of ParseKeyValue after it read a line: expected True, got False"
+    },
+    "HttpToolsTests.UrlDecodeUtf8_PercentEscapes_AreDecoded": {
+      "fails": "4 of 4 checks failed: UrlDecodeUtf8 of a text with %20 raised error 13 Type mismatch: expected 0, got 13; UrlDecodeUtf8 of a%20b: expected \"a b\", got \"\"; UrlDecodeUtf8 of the escapes of U+4E2D raised error 13 Type mismatch: expected 0, got 13; UrlDecodeUtf8 of %E4%B8%AD: expected \"中\", got \"\""
+    },
+    "HttpToolsTests.UrlEncodUtf8_CharactersAbove7F_AreWrittenAsPercentEscapes": {
+      "fails": "2 of 5 checks failed: UrlEncodUtf8 of cafe acute: expected \"caf%C3%A9\", got \"caf%C3A9\"; UrlEncodUtf8 of U+0080: expected \"%C2%80\", got \"%C280\""
+    },
+    "JsonTests.Decode_WhiteSpaceBeforeArray_ReadsTheArray": {
+      "fails": "6 of 8 checks failed: Decode of white space code 13 and [1,2] raised error -2147467262 No such interface supported# [1,2]: expected 0, got -2147467262; number of items after Decode of white space code 13 and [1,2]: expected 2, got 0; Decode of white space code 10 and [1,2] raised error -2147467262 No such interface supported# [1,2]: expected 0, got -2147467262; number of items after Decode of white space code 10 and [1,2]: expected 2, got 0; Decode of white space code 9 and [1,2] raised error -2147467262 No such interface supported# [1,2]: expected 0, got -2147467262; number of items after Decode of white space code 9 and [1,2]: expected 2, got 0"
+    },
+    "JsonTests.Encode_FromUnicode_BackslashThenU_IsNotAnEscape": {
+      "fails": "2 of 3 checks failed: Encode with FromUnicode of C:\\users raised error 13 Type mismatch: expected 0, got 13; Encode with FromUnicode of a value that holds C:\\users: expected \"{\"p\":\"C:\\\\users\"}\", got \"\""
+    },
+    "JsonTests.Encode_FromUnicode_ControlCharacter_StaysEscaped": {
+      "fails": "1 of 1 checks failed: Encode with FromUnicode of Chr(1) holds a raw control character: expected False, got True"
+    },
+    "JsonTests.LoadFrom_AfterLoadFrom_ReadsTheFile": {
+      "fails": "2 of 3 checks failed: second LoadFrom raised error 3705 Operation is not allowed when the object is open.: expected 0, got 3705; value read by the second LoadFrom: expected 1, got Empty"
+    },
+    "JsonTests.LoadFrom_AfterSaveTo_ReadsTheFile": {
+      "fails": "2 of 3 checks failed: LoadFrom after SaveTo raised error 3705 Operation is not allowed when the object is open.: expected 0, got 3705; value read by LoadFrom after SaveTo: expected 1, got Empty"
+    },
+    "JsonTests.LoadFrom_AfterFailedLoadFrom_ReadsTheFile": {
+      "fails": "2 of 3 checks failed: LoadFrom after a failed LoadFrom raised error 3705 Operation is not allowed when the object is open.: expected 0, got 3705; value read after a failed LoadFrom: expected 1, got Empty"
+    },
+    "JsonTests.SaveTo_SecondShorterDocument_WritesValidJson": {
+      "fails": "1 of 2 checks failed: bytes of the second file, which should hold {\"b\":1}: expected \"EF BB BF 7B 22 62 22 3A 31 7D\", got \"EF BB BF 7B 22 62 22 3A 31 7D 6F 6E 67 20 6C 6F 6E 67 22 7D\""
+    },
+    "JsonTests.Decode_ObjectAfterArray_ReplacesTheDocument": {
+      "fails": "1 of 1 checks failed: RootIsArray after decoding an array and then an object: expected False, got True"
+    },
+    "JsonTests.Decode_ArrayAfterObject_EncodeWritesTheArray": {
+      "fails": "1 of 1 checks failed: Encode after decoding an object and then an array: expected \"[1,2]\", got \"{\"a\":1}\""
+    },
+    "JsonTests.Decode_MissingComma_Raises": {
+      "fails": "2 of 2 checks failed: Decode of an object with no comma between its members raises: expected 10001, got 0; Decode of an array with no comma between its items raises: expected 10001, got 0"
+    },
+    "JsonTests.Decode_TextAfterTheDocument_Raises": {
+      "fails": "1 of 1 checks failed: Decode of an object followed by other text raises: expected 10001, got 0"
+    },
+    "JsonTests.Items_Assignment_ReplacesTheItemAtTheIndex": {
+      "fails": "1 of 1 checks failed: Encode after Items(1) = 5 on [1,2]: expected \"[5,2]\", got \"[1,2,5]\""
+    },
+    "JsonTests.Encode_EmptyDocument_IsWrittenAsEmptyBraces": {
+      "fails": "1 of 1 checks failed: Encode of a new document: expected \"{}\", got \"\""
+    },
+    "JsonTests.Encode_DocumentEmptiedAfterAnEncode_IsNotTheOldText": {
+      "fails": "1 of 2 checks failed: Encode after the member was removed: expected \"{}\", got \"{\"a\":1}\""
+    },
+    "LogsTests.Save_DebuggerLevel_WritesALine": {
+      "fails": "2 of 2 checks failed: Save at level Debugger raised error 9 Subscript out of range: expected 0, got 9; Save at level Debugger returns a line: expected True, got False"
+    },
+    "LogsTests.Save_CustomLevel_WritesALine": {
+      "fails": "2 of 2 checks failed: Save at level Custom raised error 9 Subscript out of range: expected 0, got 9; Save at level Custom returns a line: expected True, got False"
+    },
+    "LogsTests.Save_OtherOutputs_KeepTheLevelOfTheLine": {
+      "fails": "1 of 1 checks failed: level and text of the line returned by Save at level Warn with the debugging tool switched on: expected \"[WARN] x\", got \"[INFO] x\""
+    },
+    "MathCnTests.Ceil_ExactDecimalNumber_IsNotRoundedUp": {
+      "fails": "1 of 3 checks failed: Ceil(0.07, 2): expected 0.07, got 0.08"
+    },
+    "MathCnTests.GetPinYin_EnglishLetterDigitAndSpace_AreCopied": {
+      "fails": "2 of 2 checks failed: GetPinYin of ab 1 raised error -2147467259 Unspecified error: expected 0, got -2147467259; GetPinYin of ab 1: expected \"ab 1\", got \"\""
+    },
+    "MathCnTests.GetPinYin_ChineseCharacter_ReturnsItsPinyin": {
+      "fails": "2 of 2 checks failed: GetPinYin of the character zhong raised error -2147467259 Unspecified error: expected 0, got -2147467259; GetPinYin of the character zhong: expected \"Zhong\", got \"\""
+    },
+    "MimeTests.MapMimeType_UpperCaseExtension_IsFound": {
+      "fails": "2 of 2 checks failed: MapMimeType(report.PDF): expected \"application/pdf\", got \"application/octet-stream\"; MapMimeType(Photo.JPG): expected \"image/jpeg\", got \"application/octet-stream\""
+    },
+    "MimeTests.MapMimeType_WoffAndWoff2_HaveFontTypes": {
+      "fails": "2 of 2 checks failed: MapMimeType(a.woff): expected \"font/woff\", got \"\"; MapMimeType(a.woff2): expected \"font/woff2\", got \"application/x-font-woff\""
+    },
+    "MimeTests.MapMimeType_CommonExtensionsMissingFromTheTable_HaveTheirTypes": {
+      "fails": "4 of 4 checks failed: MapMimeType(a.htm): expected \"text/html\", got \"application/octet-stream\"; MapMimeType(a.mp3): expected \"audio/mpeg\", got \"application/octet-stream\"; MapMimeType(a.ogg): expected \"audio/ogg\", got \"application/octet-stream\"; MapMimeType(a.wasm): expected \"application/wasm\", got \"application/octet-stream\""
+    },
+    "MimeTests.MapMimeType_Java_IsTheMediaTypeOfJavaSource": {
+      "fails": "1 of 1 checks failed: MapMimeType(A.java): expected \"text/x-java-source\", got \"text/x-java-source,java\""
+    },
+    "StrTests.IsEmptyEx_DoesNotChangeTheVariableItIsGiven": {
+      "fails": "1 of 2 checks failed: the variable after IsEmptyEx(t): expected \" x \", got \"x\""
+    },
+    "StrTests.TrimEx_TextOver32767Characters_IsTrimmed": {
+      "fails": "2 of 2 checks failed: TrimEx of 40002 characters raised error 6 Overflow: expected 0, got 6; length of TrimEx of 40002 characters: expected 40000, got 0"
+    },
+    "StrTests.InsertSpan_TextOver32767Characters_IsSplit": {
+      "fails": "2 of 2 checks failed: InsertSpan of 40000 characters raised error 6 Overflow: expected 0, got 6; length of InsertSpan of 40000 characters in groups of 10: expected 43999, got 0"
+    },
+    "StrTests.PercentEncode_TextOver32767Characters_IsEncoded": {
+      "fails": "2 of 2 checks failed: PercentEncode of 40000 characters raised error 6 Overflow: expected 0, got 6; length of PercentEncode of 40000 letters: expected 40000, got 0"
+    },
+    "StrTests.PercentDecode_TextOver32767Characters_IsDecoded": {
+      "fails": "2 of 2 checks failed: PercentDecode of 40000 characters raised error 6 Overflow: expected 0, got 6; length of PercentDecode of 40000 letters: expected 40000, got 0"
+    },
+    "StrTests.UnicodeEncode_TextOver32767Characters_IsEncoded": {
+      "fails": "2 of 2 checks failed: UnicodeEncode of 40000 characters raised error 6 Overflow: expected 0, got 6; length of UnicodeEncode of 40000 letters: expected 40000, got 0"
+    },
+    "StrTests.UnicodeDecode_TextOver32767Characters_IsDecoded": {
+      "fails": "2 of 2 checks failed: UnicodeDecode of 40000 characters raised error 6 Overflow: expected 0, got 6; length of UnicodeDecode of 40000 letters: expected 40000, got 0"
+    },
+    "StrTests.GetLastChar_ReturnsTheLastVisibleCharacter": {
+      "fails": "2 of 2 checks failed: GetLastChar of abc: expected \"c\", got \"a\"; GetLastChar of abc and two spaces: expected \"c\", got \"a\""
+    },
+    "StrTests.PercentEncode_SpaceSlashAndPercent_AreEncoded": {
+      "fails": "1 of 1 checks failed: PercentEncode of a space, a slash and a percent sign: expected \"a%20b%2Fc%25\", got \"a b/c%\""
+    },
+    "StrTests.UniVbCrLf_LoneLineFeed_BecomesOneCrLf": {
+      "fails": "1 of 1 checks failed: UniVbCrLf of a, a line feed and b: expected \"a b\", got \"a b\""
+    },
+    "StrTests.UniVbCrLf_ThreeAtSigns_AreKept": {
+      "fails": "1 of 1 checks failed: UniVbCrLf of x@@@y: expected \"x@@@y\", got \"x y\""
+    },
+    "StrTests.UnicodeDecode_EscapedBackslashBeforeU_IsNotAnEscape": {
+      "fails": "1 of 1 checks failed: UnicodeDecode of two backslashes and u0041: expected \"\\\\u0041\", got \"\\A\""
+    },
+    "StrTests.SplitLinesToCollection_LastLineOfOneCharacter_IsKept": {
+      "fails": "2 of 2 checks failed: number of lines of a, a line break and b: expected 2, got 1; number of lines of the text a: expected 1, got 0"
+    },
+    "StrTests.ToHex_WritesTwoDigitsForEachByte": {
+      "fails": "2 of 3 checks failed: ToHex of the byte 10: expected \"0A\", got \"A\"; ToHex of the bytes 10 and 11: expected \"0A0B\", got \"AB\""
+    },
+    "StreamTests.LoadFileAsText_AfterLoadFileAsText_ReadsTheFile": {
+      "fails": "1 of 3 checks failed: second LoadFileAsText on the same object raised error 3705 Operation is not allowed when the object is open.: expected 0, got 3705"
+    },
+    "StreamTests.LoadFileAsText_AfterSaveFileAsText_ReadsTheFile": {
+      "fails": "2 of 3 checks failed: LoadFileAsText after SaveFileAsText raised error 3705 Operation is not allowed when the object is open.: expected 0, got 3705; text from LoadFileAsText after SaveFileAsText: expected \"saved text\", got \"\""
+    },
+    "StreamTests.LoadFileAsText_AfterFailedLoad_ReadsTheFile": {
+      "fails": "2 of 3 checks failed: LoadFileAsText after a failed load raised error 3705 Operation is not allowed when the object is open.: expected 0, got 3705; text from LoadFileAsText after a failed load: expected \"present\", got \"\""
+    },
+    "StreamTests.SaveFileAsText_AfterSaveFileAsText_ReplacesTheFile": {
+      "fails": "1 of 2 checks failed: bytes of the file after saving 0123456789 and then abc with one object: expected \"EF BB BF 61 62 63\", got \"EF BB BF 61 62 63 33 34 35 36 37 38 39\""
+    },
+    "StreamTests.SaveFileAsText_ReturnsTrueWhenTheFileIsWritten": {
+      "fails": "1 of 3 checks failed: result of SaveFileAsText after it wrote the file: expected True, got False"
+    },
+    "StreamTests.WriteLine_InLineMode_StoresTheLine": {
+      "fails": "3 of 3 checks failed: WriteLine in line mode raised error 13 Automation error: expected 0, got 13; number of lines held after one WriteLine: expected 1, got 0; result of WriteLine: expected True, got False"
+    },
+    "StreamTests.SaveFileAsText_DataOmittedInLineMode_WritesTheLines": {
+      "fails": "2 of 2 checks failed: SaveFileAsText with the text left out raised error 3001 Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.: expected 0, got 3001; the file holds the lines, not only a byte order mark: expected True, got False"
+    },
+    "TimerTests.cTimer_EnabledTimerReleased_IsDestroyed": {
+      "fails": "1 of 2 checks failed: registered timers after the last reference to the timer was released: expected 0, got 1"
+    },
+    "TimerTests.cTimers_EnabledTimerOfAReleasedGroup_IsDestroyed": {
+      "fails": "1 of 2 checks failed: registered timers after the last reference to the group was released: expected 0, got 1"
+    },
+    "TimerTests.cTimers_GroupReleased_IsDestroyed": {
+      "fails": "1 of 2 checks failed: the group is no longer registered after the last reference to it was released: expected True, got False"
+    },
+    "Utf8Tests.DecodeToByteArray_ReturnsAllTheUtf16Bytes": {
+      "fails": "2 of 2 checks failed: number of bytes of DecodeToByteArray for four characters: expected 8, got 4; bytes of DecodeToByteArray for cafe acute: expected \"63 00 61 00 66 00 E9 00\", got \"63 00 61 00\""
+    }
+  }
+}
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/AesVec.twin b/test/package-tests/TBMANLIB_Aes/Sources/AesVec.twin
new file mode 100644
index 00000000..f29cf1cb
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/AesVec.twin
@@ -0,0 +1,180 @@
+' AesVec: the byte helpers and the published test vectors the cases of TBMANLIB_Aes use.
+'
+' The vectors are not the package's output. Their sources:
+'   FIPS 197, Appendix C: the example vectors of AES-128, AES-192 and AES-256 (one block).
+'   NIST SP 800-38A, Appendix F: the four-block examples of ECB, CBC, CFB128, OFB and CTR, with the
+'   keys, the IV and the plaintext of Appendix F (Plain4 here), and the initial counter block of CTR.
+'   McGrew and Viega, "The Galois/Counter Mode of Operation", test cases 4, 10 and 16: the GCM
+'   vectors NIST SP 800-38D is based on (60-byte plaintext, 20 bytes of additional data).
+' Every vector was also computed with OpenSSL's AES, which gave the same bytes.
+Module AesVec
+
+    Public Const Key128 As String = "2b7e151628aed2a6abf7158809cf4f3c"
+    Public Const Key192 As String = "8e73b0f7da0e6452c810f32b809079e562f8ead2522c6b7b"
+    Public Const Key256 As String = "603deb1015ca71be2b73aef0857d77811f352c073b6108d72d9810a30914dff4"
+    Public Const Iv16 As String = "000102030405060708090a0b0c0d0e0f"
+    Public Const CtrIv As String = "f0f1f2f3f4f5f6f7f8f9fafbfcfdfeff"
+    Public Const Plain4 As String = "6bc1bee22e409f96e93d7e117393172aae2d8a571e03ac9c9eb76fac45af8e5130c81c46a35ce411e5fbc1191a0a52eff69f2445df4f9b17ad2b417be66c3710"
+
+    ' The run-time error number of "Unspecified error" (&H80004005).
+    Public Const Unspecified As Long = -2147467259
+
+    ' The error that the last Encrypt or Decrypt call of this module raised: 0 when it raised none.
+    Public LastNumber As Long
+    Public LastText As String
+
+    Public Function FromHex(ByVal Text As String) As Byte()
+        Dim b() As Byte
+        Dim i As Long
+        If Len(Text) = 0 Then
+            FromHex = b
+            Exit Function
+        End If
+        ReDim b(Len(Text) \ 2 - 1)
+        For i = 0 To UBound(b)
+            b(i) = CByte("&H" & Mid$(Text, i * 2 + 1, 2))
+        Next
+        FromHex = b
+    End Function
+
+    Public Function Ascii(ByVal Text As String) As Byte()
+        Dim b() As Byte
+        b = StrConv(Text, vbFromUnicode)
+        Ascii = b
+    End Function
+
+    ' The number of elements; 0 for an array that was never sized.
+    Public Function Count(ByRef Bytes() As Byte) As Long
+        On Error Resume Next
+        Count = UBound(Bytes) - LBound(Bytes) + 1
+        If Err.Number <> 0 Then
+            Count = 0
+            Err.Clear
+        End If
+    End Function
+
+    Public Function HexOf(ByRef Bytes() As Byte) As String
+        Dim i As Long
+        Dim s As String
+        If Count(Bytes) = 0 Then Exit Function
+        For i = LBound(Bytes) To UBound(Bytes)
+            s = s & Right$("0" & LCase$(Hex$(Bytes(i))), 2)
+        Next
+        HexOf = s
+    End Function
+
+    ' A cAes with the given mode, key size, padding, key and IV (empty text sets none).
+    Public Function MakeAes(ByVal Mode As AesCipherMode, ByVal KeyBits As Long, ByVal Padding As AesPaddingMode, ByVal KeyHex As String, ByVal IvHex As String) As cAes
+        Dim a As New cAes
+        Dim k() As Byte
+        Dim v() As Byte
+        a.CipherMode = Mode
+        a.KeySize = KeyBits
+        a.PaddingMode = Padding
+        If Len(KeyHex) > 0 Then
+            k = FromHex(KeyHex)
+            a.Key = k
+        End If
+        If Len(IvHex) > 0 Then
+            v = FromHex(IvHex)
+            a.IV = v
+        End If
+        Set MakeAes = a
+    End Function
+
+    ' EncryptBytes with the error kept in LastNumber and LastText; an unsized array when it raised.
+    Public Function Enc(ByVal Aes As cAes, ByRef Plain() As Byte) As Byte()
+        Dim r() As Byte
+        Dim n As Long
+        Dim d As String
+        Err.Clear
+        On Error Resume Next
+        r = Aes.EncryptBytes(Plain)
+        ' The package leaves error 9 in Err after some calls that succeed (its IsArrayEmpty
+        ' does), so a call failed only when it returned nothing.
+        n = Err.Number
+        d = Err.Description
+        If Count(r) = 0 Then
+            LastNumber = n
+            LastText = d
+        Else
+            LastNumber = 0
+            LastText = ""
+        End If
+        On Error GoTo 0
+        Err.Clear
+        Enc = r
+    End Function
+
+    Public Function Dec(ByVal Aes As cAes, ByRef Cipher() As Byte) As Byte()
+        Dim r() As Byte
+        Dim n As Long
+        Dim d As String
+        Err.Clear
+        On Error Resume Next
+        r = Aes.DecryptBytes(Cipher)
+        n = Err.Number
+        d = Err.Description
+        If Count(r) = 0 Then
+            LastNumber = n
+            LastText = d
+        Else
+            LastNumber = 0
+            LastText = ""
+        End If
+        On Error GoTo 0
+        Err.Clear
+        Dec = r
+    End Function
+
+    ' Checks the length of Actual and then each block of 16 bytes against the expected hexadecimal text.
+    Public Sub CheckBlocks(ByVal What As String, ByVal ExpectedHex As String, ByRef Actual() As Byte)
+        Dim i As Long
+        Dim got As String
+        got = HexOf(Actual)
+        Expect.AreEqual Len(ExpectedHex) \ 2, Count(Actual), What & ": length of the output in bytes"
+        For i = 0 To (Len(ExpectedHex) + 31) \ 32 - 1
+            Expect.AreEqual Mid$(ExpectedHex, i * 32 + 1, 32), Mid$(got, i * 32 + 1, 32), What & ": block " & (i + 1)
+        Next
+    End Sub
+
+    Public Sub EncryptAndCheck(ByVal What As String, ByVal Mode As AesCipherMode, ByVal KeyBits As Long, ByVal KeyHex As String, ByVal IvHex As String, ByVal PlainHex As String, ByVal ExpectedHex As String)
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = MakeAes(Mode, KeyBits, AesPaddingMode.NoPadding, KeyHex, IvHex)
+        p = FromHex(PlainHex)
+        c = Enc(a, p)
+        If LastNumber <> 0 Then Expect.Fail What & ": EncryptBytes raised error " & LastNumber & ", " & LastText
+        CheckBlocks What, ExpectedHex, c
+    End Sub
+
+    Public Sub DecryptAndCheck(ByVal What As String, ByVal Mode As AesCipherMode, ByVal KeyBits As Long, ByVal KeyHex As String, ByVal IvHex As String, ByVal CipherHex As String, ByVal ExpectedHex As String)
+        Dim a As cAes
+        Dim c() As Byte
+        Dim p() As Byte
+        Set a = MakeAes(Mode, KeyBits, AesPaddingMode.NoPadding, KeyHex, IvHex)
+        c = FromHex(CipherHex)
+        p = Dec(a, c)
+        If LastNumber <> 0 Then Expect.Fail What & ": DecryptBytes raised error " & LastNumber & ", " & LastText
+        CheckBlocks What, ExpectedHex, p
+    End Sub
+
+    ' Encrypts Plain with the object, decrypts the result with the same object, and checks the round trip.
+    Public Sub CheckRoundTrip(ByVal What As String, ByVal Aes As cAes, ByRef Plain() As Byte)
+        Dim c() As Byte
+        Dim p() As Byte
+        c = Enc(Aes, Plain)
+        If LastNumber <> 0 Then
+            Expect.Fail What & ": EncryptBytes raised error " & LastNumber & ", " & LastText
+            Exit Sub
+        End If
+        p = Dec(Aes, c)
+        If LastNumber <> 0 Then
+            Expect.Fail What & ": DecryptBytes raised error " & LastNumber & ", " & LastText
+            Exit Sub
+        End If
+        Expect.AreEqual HexOf(Plain), HexOf(p), What & ": the decrypted bytes"
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/CryptoApiModeTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/CryptoApiModeTests.twin
new file mode 100644
index 00000000..f90db1c8
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/CryptoApiModeTests.twin
@@ -0,0 +1,86 @@
+' TBMANLIB_Aes, cAes: the modes ECB and CBC, which the package runs through the Crypto API of Windows.
+'
+' AES in ECB or CBC mode with NoPadding takes the key bytes as the AES key and gives as many bytes
+' as it was given. The cases check those two properties, which the published vectors of
+' StandardVectorTests rely on as well.
+[TestFixture]
+Module CryptoApiModeTests
+
+    Private Sub NoPaddingLength(ByVal Mode As AesCipherMode)
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(Mode, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.FromHex("6bc1bee22e409f96e93d7e117393172a")
+        c = AesVec.Enc(a, p)
+        If AesVec.LastNumber <> 0 Then Expect.Fail "EncryptBytes raised error " & AesVec.LastNumber & ", " & AesVec.LastText
+        Expect.AreEqual 16, AesVec.Count(c), "length of the output for one block of plaintext with NoPadding"
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_NoPaddingKeepsTheLengthOfTheInput()
+        Expect.Begin
+        NoPaddingLength AesCipherMode.ECB
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_NoPaddingKeepsTheLengthOfTheInput()
+        Expect.Begin
+        NoPaddingLength AesCipherMode.CBC
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_Pkcs7OfOneBlockGivesTwoBlocks()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.ECB, 128, AesPaddingMode.PKCS7, AesVec.Key128, "")
+        p = AesVec.Ascii("0123456789abcdef")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual 32, AesVec.Count(c), "length of the ECB output for 16 bytes with PKCS7 (one block of data and one of padding)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_Pkcs7OfOneBlockGivesTwoBlocks()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CBC, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.Ascii("0123456789abcdef")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual 32, AesVec.Count(c), "length of the CBC output for 16 bytes with PKCS7 (one block of data and one of padding)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_RefusesAKeyOfFiveBytes()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.ECB, 128, AesPaddingMode.PKCS7, "0102030405", "")
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual 0, AesVec.Count(c), "bytes returned by ECB for a key of 5 bytes (an AES key has 16, 24 or 32 bytes)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_RefusesAKeyOfFortyBytes()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CBC, 256, AesPaddingMode.PKCS7, AesVec.Key256 & "0102030405060708", AesVec.Iv16)
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual 0, AesVec.Count(c), "bytes returned by CBC for a key of 40 bytes (an AES key has 16, 24 or 32 bytes)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/DefaultsAndConstantsTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/DefaultsAndConstantsTests.twin
new file mode 100644
index 00000000..dbd9ac1f
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/DefaultsAndConstantsTests.twin
@@ -0,0 +1,141 @@
+' TBMANLIB_Aes, cAes defaults and constructor, IsInitialized, Cleanup and the constants of mAesConstants.
+'
+' The Windows values are those of wincrypt.h in the Windows SDK: CRYPT_MODE_CBC 1, CRYPT_MODE_ECB 2,
+' CRYPT_MODE_OFB 3, CRYPT_MODE_CFB 4 and ZERO_PADDING 3 (the Windows header defines the last for the
+' KP_PADDING key parameter).
+[TestFixture]
+Module DefaultsAndConstantsTests
+
+    [TestCase]
+    Public Sub New_StartsWithTheDefaultValues()
+        Expect.Begin
+        Dim a As New cAes
+        Dim k() As Byte
+        Dim v() As Byte
+        Dim t() As Byte
+        Dim d() As Byte
+        k = a.Key
+        v = a.IV
+        t = a.GcmTag
+        d = a.GcmAAD
+        Expect.AreEqual 256, a.KeySize, "KeySize of a new cAes"
+        Expect.AreEqual 2, a.CipherMode, "CipherMode of a new cAes (CBC)"
+        Expect.AreEqual 1, a.PaddingMode, "PaddingMode of a new cAes (PKCS7)"
+        Expect.AreEqual 0, AesVec.Count(k), "elements of Key"
+        Expect.AreEqual 0, AesVec.Count(v), "elements of IV"
+        Expect.AreEqual 0, AesVec.Count(t), "elements of GcmTag"
+        Expect.AreEqual 0, AesVec.Count(d), "elements of GcmAAD"
+        Expect.IsFalse a.IsInitialized, "IsInitialized of a new cAes"
+        Expect.AreEqual "", a.LastError, "LastError of a new cAes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_WithArgumentsStoresThem()
+        Expect.Begin
+        Dim a As cAes = New cAes(AesKeySize.KeySize_128, AesCipherMode.GCM, AesPaddingMode.NoPadding)
+        Expect.AreEqual 128, a.KeySize, "KeySize"
+        Expect.AreEqual 6, a.CipherMode, "CipherMode"
+        Expect.AreEqual 3, a.PaddingMode, "PaddingMode"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsInitialized_IsTrueAfterACallAndFalseAfterASetterOrCleanup()
+        Expect.Begin
+        Dim a As New cAes
+        Dim s As String
+        a.SetKeyFromString "key"
+        Expect.IsFalse a.IsInitialized, "IsInitialized after SetKeyFromString"
+        s = a.EncryptString("text")
+        Expect.IsTrue a.IsInitialized, "IsInitialized after EncryptString"
+        a.KeySize = AesKeySize.KeySize_256
+        Expect.IsFalse a.IsInitialized, "IsInitialized after setting KeySize"
+        s = a.EncryptString("text")
+        a.Cleanup
+        Expect.IsFalse a.IsInitialized, "IsInitialized after Cleanup"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Cleanup_LeavesTheObjectUsable()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c1() As Byte
+        Dim c2() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.Ascii("Hello, AES!")
+        c1 = AesVec.Enc(a, p)
+        a.Cleanup
+        c2 = AesVec.Enc(a, p)
+        Expect.IsTrue AesVec.Count(c1) > 0, "the encryption before Cleanup returns bytes"
+        Expect.AreEqual AesVec.HexOf(c1), AesVec.HexOf(c2), "output before and after Cleanup"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumerations_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 1, AesCipherMode.ECB, "AesCipherMode.ECB"
+        Expect.AreEqual 2, AesCipherMode.CBC, "AesCipherMode.CBC"
+        Expect.AreEqual 3, AesCipherMode.CFB, "AesCipherMode.CFB"
+        Expect.AreEqual 4, AesCipherMode.OFB, "AesCipherMode.OFB"
+        Expect.AreEqual 5, AesCipherMode.CTR, "AesCipherMode.CTR"
+        Expect.AreEqual 6, AesCipherMode.GCM, "AesCipherMode.GCM"
+        Expect.AreEqual 128, AesKeySize.KeySize_128, "AesKeySize.KeySize_128"
+        Expect.AreEqual 192, AesKeySize.KeySize_192, "AesKeySize.KeySize_192"
+        Expect.AreEqual 256, AesKeySize.KeySize_256, "AesKeySize.KeySize_256"
+        Expect.AreEqual 1, AesPaddingMode.PKCS7, "AesPaddingMode.PKCS7"
+        Expect.AreEqual 2, AesPaddingMode.ZeroPadding, "AesPaddingMode.ZeroPadding"
+        Expect.AreEqual 3, AesPaddingMode.NoPadding, "AesPaddingMode.NoPadding"
+        Expect.AreEqual 4, AesPaddingMode.ISO10126, "AesPaddingMode.ISO10126"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PackageConstants_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 16, mAesConstants.BLOCK_SIZE_128, "BLOCK_SIZE_128"
+        Expect.AreEqual 16, mAesConstants.KEY_SIZE_128, "KEY_SIZE_128"
+        Expect.AreEqual 24, mAesConstants.KEY_SIZE_192, "KEY_SIZE_192"
+        Expect.AreEqual 32, mAesConstants.KEY_SIZE_256, "KEY_SIZE_256"
+        Expect.AreEqual "1.0.0", mAesConstants.VERSION, "VERSION"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WindowsConstants_MatchWincryptHExceptTheFive()
+        Expect.Begin
+        Expect.AreEqual 24, mAesConstants.PROV_RSA_AES, "PROV_RSA_AES"
+        Expect.AreEqual 1, mAesConstants.PROV_RSA_FULL, "PROV_RSA_FULL"
+        Expect.AreEqual 1, mAesConstants.CRYPT_EXPORTABLE, "CRYPT_EXPORTABLE"
+        Expect.AreEqual 8, mAesConstants.CRYPT_NEWKEYSET, "CRYPT_NEWKEYSET"
+        Expect.AreEqual 26126, mAesConstants.CALG_AES_128, "CALG_AES_128"
+        Expect.AreEqual 26127, mAesConstants.CALG_AES_192, "CALG_AES_192"
+        Expect.AreEqual 26128, mAesConstants.CALG_AES_256, "CALG_AES_256"
+        Expect.AreEqual 32780, mAesConstants.CALG_SHA_256, "CALG_SHA_256"
+        Expect.AreEqual 32771, mAesConstants.CALG_MD5, "CALG_MD5"
+        Expect.AreEqual 1, mAesConstants.KP_IV, "KP_IV"
+        Expect.AreEqual 3, mAesConstants.KP_PADDING, "KP_PADDING"
+        Expect.AreEqual 4, mAesConstants.KP_MODE, "KP_MODE"
+        Expect.AreEqual 8, mAesConstants.KP_BLOCKLEN, "KP_BLOCKLEN"
+        Expect.AreEqual 1, mAesConstants.PKCS5_PADDING, "PKCS5_PADDING"
+        Expect.AreEqual 2, mAesConstants.HP_HASHVAL, "HP_HASHVAL"
+        Expect.AreEqual 4, mAesConstants.HP_HASHSIZE, "HP_HASHSIZE"
+        Expect.AreEqual 1, mAesConstants.AT_KEYEXCHANGE, "AT_KEYEXCHANGE"
+        Expect.AreEqual 2, mAesConstants.AT_SIGNATURE, "AT_SIGNATURE"
+        Expect.AreEqual 1, mAesConstants.CRYPT_STRING_BASE64, "CRYPT_STRING_BASE64"
+        Expect.AreEqual &H40000000, mAesConstants.CRYPT_STRING_NOCRLF, "CRYPT_STRING_NOCRLF"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CryptModeConstants_EcbAndCbcMatchWincryptH()
+        Expect.Begin
+        Expect.AreEqual 2, mAesConstants.CRYPT_MODE_ECB, "CRYPT_MODE_ECB (wincrypt.h: 2)"
+        Expect.AreEqual 1, mAesConstants.CRYPT_MODE_CBC, "CRYPT_MODE_CBC (wincrypt.h: 1)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/FailureTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/FailureTests.twin
new file mode 100644
index 00000000..ca574230
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/FailureTests.twin
@@ -0,0 +1,214 @@
+' TBMANLIB_Aes, cAes: what a failed call gives the caller.
+'
+' EncryptBytes and DecryptBytes raise "Unspecified error" (&H80004005, -2147467259) for every
+' cause. EncryptString and DecryptString return an empty string and raise nothing. A call that
+' fails should say why: the error names the cause, or LastError holds it.
+[TestFixture]
+Module FailureTests
+
+    Private Function GcmWithADamagedTag(ByRef Cipher() As Byte) As cAes
+        Dim a As cAes
+        Dim p() As Byte
+        Dim t() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, AesVec.Key128, "cafebabefacedbaddecaf888")
+        p = AesVec.Ascii("Hello, AES!")
+        Cipher = AesVec.Enc(a, p)
+        t = a.GcmTag
+        t(0) = t(0) Xor 1
+        a.GcmTag = t
+        Set GcmWithADamagedTag = a
+    End Function
+
+    ' ---- EncryptBytes and DecryptBytes
+
+    [TestCase]
+    Public Sub EncryptBytes_NoKey_RaisesUnspecifiedError()
+        Expect.Begin
+        Dim a As New cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        p = AesVec.Ascii("text")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual AesVec.Unspecified, AesVec.LastNumber, "error number of EncryptBytes with no key"
+        Expect.AreEqual "Unspecified error", AesVec.LastText, "error description of EncryptBytes with no key"
+        Expect.AreEqual 0, AesVec.Count(c), "bytes returned"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_NoKey_ErrorNamesTheCause()
+        Expect.Begin
+        Dim a As New cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        p = AesVec.Ascii("text")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual "Key not set", AesVec.LastText, "error description of EncryptBytes with no key"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_EmptyInput_RaisesUnspecifiedError()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual AesVec.Unspecified, AesVec.LastNumber, "error number of EncryptBytes with an array that was never sized"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_NoKey_RaisesUnspecifiedError()
+        Expect.Begin
+        Dim a As New cAes
+        Dim c() As Byte
+        Dim d() As Byte
+        c = AesVec.FromHex("000102030405060708090a0b0c0d0e0f")
+        d = AesVec.Dec(a, c)
+        Expect.AreEqual AesVec.Unspecified, AesVec.LastNumber, "error number of DecryptBytes with no key"
+        Expect.AreEqual "Unspecified error", AesVec.LastText, "error description of DecryptBytes with no key"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_NoKey_ErrorNamesTheCause()
+        Expect.Begin
+        Dim a As New cAes
+        Dim c() As Byte
+        Dim d() As Byte
+        c = AesVec.FromHex("000102030405060708090a0b0c0d0e0f")
+        d = AesVec.Dec(a, c)
+        Expect.AreEqual "Key not set", AesVec.LastText, "error description of DecryptBytes with no key"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_GcmDamagedTag_ErrorNamesTheCause()
+        Expect.Begin
+        Dim a As cAes
+        Dim c() As Byte
+        Dim d() As Byte
+        Set a = GcmWithADamagedTag(c)
+        d = AesVec.Dec(a, c)
+        Expect.IsTrue AesVec.LastNumber <> 0 And AesVec.LastText <> "Unspecified error", "error description of DecryptBytes with a damaged GCM tag names the cause (got " & AesVec.LastText & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Cfb_InvalidPadding_RaisesUnspecifiedError()
+        Expect.Begin
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim d() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        Set b = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.Ascii("0123456789abcdef")
+        c = AesVec.Enc(a, p)
+        d = AesVec.Dec(b, c)
+        Expect.AreEqual AesVec.Unspecified, AesVec.LastNumber, "error number of DecryptBytes with a padding that is not valid"
+        Expect.AreEqual "PKCS7 unpadding exception: Unspecified error", b.LastError, "LastError after the failure"
+        Expect.Done
+    End Sub
+
+    ' ---- EncryptString and DecryptString
+
+    [TestCase]
+    Public Sub EncryptString_NoKey_ReturnsAnEmptyString()
+        Expect.Begin
+        Dim a As New cAes
+        Dim s As String
+        s = a.EncryptString("text")
+        Expect.AreEqual "", s, "EncryptString with no key"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptString_NoKey_ReportsTheFailure()
+        Expect.Begin
+        Dim a As New cAes
+        Dim s As String
+        s = a.EncryptString("text")
+        Expect.IsTrue Len(a.LastError) > 0, "LastError after EncryptString with no key"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptString_EmptyText_ReturnsAnEmptyString()
+        Expect.Begin
+        Dim a As cAes
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        Expect.AreEqual "", a.EncryptString(""), "EncryptString of an empty text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptString_GcmDamagedTag_ReturnsAnEmptyString()
+        Expect.Begin
+        Dim a As cAes
+        Dim c() As Byte
+        Dim h As New cAesHelper
+        Set a = GcmWithADamagedTag(c)
+        Expect.AreEqual "", a.DecryptString(h.Base64Encode(c)), "DecryptString of a GCM message with a damaged tag"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptString_GcmDamagedTag_ReportsTheFailure()
+        Expect.Begin
+        Dim a As cAes
+        Dim c() As Byte
+        Dim h As New cAesHelper
+        Dim s As String
+        Set a = GcmWithADamagedTag(c)
+        s = a.DecryptString(h.Base64Encode(c))
+        Expect.IsTrue Len(a.LastError) > 0, "LastError after DecryptString of a GCM message with a damaged tag"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptString_InvalidBase64_ReturnsAnEmptyStringAndSetsLastError()
+        Expect.Begin
+        Dim a As cAes
+        Dim s As String
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        s = a.DecryptString("!!! not base64")
+        Expect.AreEqual "", s, "DecryptString of text that is not Base64"
+        Expect.AreEqual "Base64 decoding exception: Unspecified error", a.LastError, "LastError after the failure"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LastError_IsNotClearedByALaterSuccess()
+        Expect.Begin
+        Dim a As cAes
+        Dim s As String
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        Expect.AreEqual "", a.LastError, "LastError of a new object"
+        s = a.DecryptString("!!! not base64")
+        s = a.DecryptString(a.EncryptString("Hello, AES!"))
+        Expect.AreEqual "Hello, AES!", s, "a round trip after the failure"
+        Expect.AreEqual "Base64 decoding exception: Unspecified error", a.LastError, "LastError after the successful round trip"
+        Expect.Done
+    End Sub
+
+    ' ---- a wrong key in a mode that does not verify
+
+    [TestCase]
+    Public Sub DecryptString_WrongKeyWithNoPadding_ReturnsOtherText()
+        Expect.Begin
+        Dim writer As cAes
+        Dim reader As cAes
+        Dim s As String
+        Set writer = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.NoPadding, "30313233343536373839616263646566", AesVec.Iv16)
+        Set reader = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.NoPadding, "30313233343536373839616263646567", AesVec.Iv16)
+        s = reader.DecryptString(writer.EncryptString("Hello, AES!"))
+        Expect.IsTrue Len(s) > 0, "DecryptString with a wrong key and NoPadding returns text"
+        Expect.IsTrue s <> "Hello, AES!", "the text that a wrong key gives is not the plaintext"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/GcmTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/GcmTests.twin
new file mode 100644
index 00000000..1b483a2b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/GcmTests.twin
@@ -0,0 +1,327 @@
+' TBMANLIB_Aes, cAes: the GCM mode, GcmTag and GcmAAD.
+'
+' The vectors are test cases 4, 10 and 16 of McGrew and Viega, "The Galois/Counter Mode of
+' Operation", on which NIST SP 800-38D is based: the keys feffe992... of 128, 192 and 256 bits, the
+' 96-bit IV cafebabefacedbaddecaf888, 20 bytes of additional data and a plaintext of 60 bytes.
+[TestFixture]
+Module GcmTests
+
+    Private Const Iv12 As String = "cafebabefacedbaddecaf888"
+    Private Const Aad20 As String = "feedfacedeadbeeffeedfacedeadbeefabaddad2"
+    Private Const Plain60 As String = "d9313225f88406e5a55909c5aff5269a86a7a9531534f7da2e4c303d8a318a721c3c0c95956809532fcf0e2449a6b525b16aedf5aa0de657ba637b39"
+    Private Const Key128 As String = "feffe9928665731c6d6a8f9467308308"
+
+    Private Sub CheckGcm(ByVal What As String, ByVal KeyBits As Long, ByVal KeyHex As String, ByVal CipherHex As String, ByVal TagHex As String)
+        Dim a As cAes
+        Dim b As cAes
+        Dim aad() As Byte
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim t() As Byte
+        Dim d() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, KeyBits, AesPaddingMode.NoPadding, KeyHex, Iv12)
+        aad = AesVec.FromHex(Aad20)
+        a.GcmAAD = aad
+        p = AesVec.FromHex(Plain60)
+        c = AesVec.Enc(a, p)
+        If AesVec.LastNumber <> 0 Then Expect.Fail What & ": EncryptBytes raised error " & AesVec.LastNumber & ", " & AesVec.LastText
+        t = a.GcmTag
+        AesVec.CheckBlocks What & " ciphertext", CipherHex, c
+        Expect.AreEqual TagHex, AesVec.HexOf(t), What & ": GcmTag after the encryption"
+        ' Decrypt the published ciphertext with the published tag.
+        Set b = AesVec.MakeAes(AesCipherMode.GCM, KeyBits, AesPaddingMode.NoPadding, KeyHex, Iv12)
+        b.GcmAAD = aad
+        t = AesVec.FromHex(TagHex)
+        b.GcmTag = t
+        c = AesVec.FromHex(CipherHex)
+        d = AesVec.Dec(b, c)
+        If AesVec.LastNumber <> 0 Then Expect.Fail What & ": DecryptBytes raised error " & AesVec.LastNumber & ", " & AesVec.LastText
+        Expect.AreEqual Plain60, AesVec.HexOf(d), What & ": plaintext of the published ciphertext and tag"
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_Aes128_GivesTheVectorOfTestCase4()
+        Expect.Begin
+        CheckGcm "GCM test case 4 (AES-128)", 128, Key128, "42831ec2217774244b7221b784d0d49ce3aa212f2c02a4e035c17e2329aca12e21d514b25466931c7d8f6a5aac84aa051ba30b396a0aac973d58e091", "5bc94fbc3221a5db94fae95ae7121a47"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_Aes192_GivesTheVectorOfTestCase10()
+        Expect.Begin
+        CheckGcm "GCM test case 10 (AES-192)", 192, Key128 & "feffe9928665731c", "3980ca0b3c00e841eb06fac4872a2757859e1ceaa6efd984628593b40ca1e19c7d773d00c144c525ac619d18c84a3f4718e2448b2fe324d9ccda2710", "2519498e80f1478f37ba55bd6d27618c"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_Aes256_GivesTheVectorOfTestCase16()
+        Expect.Begin
+        CheckGcm "GCM test case 16 (AES-256)", 256, Key128 & Key128, "522dc1f099567d07f47f37a32a84427d643a8cdcbfe5c0c97598a2bd2555d1aa8cb08e48590dbb3da7b08b1056828838c5f61e6393ba7a0abcc9f662", "76fc6ece0f4e1768cddf8853bb2d551b"
+        Expect.Done
+    End Sub
+
+    ' ---- the default padding
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_DefaultPaddingGivesTheStandardOutput()
+        Expect.Begin
+        Dim a As cAes
+        Dim aad() As Byte
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim t() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.PKCS7, Key128, Iv12)
+        aad = AesVec.FromHex(Aad20)
+        a.GcmAAD = aad
+        p = AesVec.FromHex(Plain60)
+        c = AesVec.Enc(a, p)
+        t = a.GcmTag
+        AesVec.CheckBlocks "GCM test case 4 with the default PaddingMode (PKCS7) ciphertext", "42831ec2217774244b7221b784d0d49ce3aa212f2c02a4e035c17e2329aca12e21d514b25466931c7d8f6a5aac84aa051ba30b396a0aac973d58e091", c
+        Expect.AreEqual "5bc94fbc3221a5db94fae95ae7121a47", AesVec.HexOf(t), "GCM test case 4 with the default PaddingMode (PKCS7): GcmTag"
+        Expect.Done
+    End Sub
+
+    ' ---- a GCM encryption with no IV
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_NoIVCanBeDecrypted()
+        Expect.Begin
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim t() As Byte
+        Dim v() As Byte
+        Dim d() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, "")
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        t = a.GcmTag
+        v = a.IV
+        Set b = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, "")
+        If AesVec.Count(v) > 0 Then b.IV = v
+        b.GcmTag = t
+        d = AesVec.Dec(b, c)
+        Expect.AreEqual AesVec.HexOf(p), AesVec.HexOf(d), "plaintext from the ciphertext, GcmTag and IV of a GCM encryption that had no IV set"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_NoIVLeavesTheNonceInIV()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim v() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, "")
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        v = a.IV
+        Expect.AreEqual 12, AesVec.Count(v), "length of the IV property after a GCM encryption that had no IV set (the nonce it used)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_NoIVRaisesNoErrorAndUsesAFreshNonceEachTime()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c1() As Byte
+        Dim c2() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, "")
+        p = AesVec.Ascii("Hello, AES!")
+        c1 = AesVec.Enc(a, p)
+        Expect.AreEqual 0, AesVec.LastNumber, "error number of the first GCM encryption with no IV"
+        c2 = AesVec.Enc(a, p)
+        Expect.AreEqual 0, AesVec.LastNumber, "error number of the second GCM encryption with no IV"
+        Expect.AreEqual 11, AesVec.Count(c1), "length of the output for 11 bytes"
+        Expect.IsTrue AesVec.HexOf(c1) <> AesVec.HexOf(c2), "two GCM encryptions of the same bytes with no IV"
+        Expect.Done
+    End Sub
+
+    ' ---- the IV of GCM
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_AnIVLongerThan12BytesGivesTheOutputOfItsFirst12Bytes()
+        Expect.Begin
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim ca() As Byte
+        Dim cb() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, Iv12)
+        Set b = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, Iv12 & "01020304")
+        p = AesVec.Ascii("Hello, AES!")
+        ca = AesVec.Enc(a, p)
+        cb = AesVec.Enc(b, p)
+        Expect.IsTrue AesVec.Count(ca) > 0, "GCM with an IV of 12 bytes returns bytes"
+        Expect.AreEqual AesVec.HexOf(ca), AesVec.HexOf(cb), "GCM output for an IV of 12 bytes and for the same 12 bytes followed by 4 more"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_TwoEncryptionsWithTheSameIVUseTheSameNonce()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c1() As Byte
+        Dim c2() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, Iv12)
+        p = AesVec.Ascii("Hello, AES!")
+        c1 = AesVec.Enc(a, p)
+        c2 = AesVec.Enc(a, p)
+        Expect.IsTrue AesVec.Count(c1) > 0, "the first GCM encryption returns bytes"
+        Expect.AreEqual AesVec.HexOf(c1), AesVec.HexOf(c2), "two GCM encryptions in a row with one IV"
+        Expect.Done
+    End Sub
+
+    ' ---- a decryption that does not verify
+
+    Private Sub Damaged(ByVal What As String, ByVal Damage As Long)
+        ' Damage: 1 the tag, 2 the additional data, 3 the ciphertext, 4 the IV, 5 no tag.
+        Dim a As cAes
+        Dim aad() As Byte
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim t() As Byte
+        Dim v() As Byte
+        Dim d() As Byte
+        Dim none() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, Iv12)
+        aad = AesVec.FromHex(Aad20)
+        a.GcmAAD = aad
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        t = a.GcmTag
+        Select Case Damage
+            Case 1
+                t(0) = t(0) Xor 1
+                a.GcmTag = t
+            Case 2
+                aad(0) = aad(0) Xor 1
+                a.GcmAAD = aad
+            Case 3
+                c(0) = c(0) Xor 1
+            Case 4
+                v = AesVec.FromHex(Iv12)
+                v(0) = v(0) Xor 1
+                a.IV = v
+            Case 5
+                a.GcmTag = none
+        End Select
+        d = AesVec.Dec(a, c)
+        Expect.AreEqual AesVec.Unspecified, AesVec.LastNumber, What & ": error number of DecryptBytes"
+        Expect.AreEqual 0, AesVec.Count(d), What & ": bytes returned"
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Gcm_DamagedTagRaises()
+        Expect.Begin
+        Damaged "a tag with one bit changed", 1
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Gcm_DamagedAdditionalDataRaises()
+        Expect.Begin
+        Damaged "additional data with one bit changed", 2
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Gcm_DamagedCiphertextRaises()
+        Expect.Begin
+        Damaged "ciphertext with one bit changed", 3
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Gcm_ChangedIVRaises()
+        Expect.Begin
+        Damaged "an IV with one bit changed", 4
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Gcm_NoTagRaises()
+        Expect.Begin
+        Damaged "no tag set", 5
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Gcm_TagOf12BytesIsAccepted()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim t() As Byte
+        Dim s() As Byte
+        Dim d() As Byte
+        Dim i As Long
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, Iv12)
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        t = a.GcmTag
+        ReDim s(11)
+        For i = 0 To 11
+            s(i) = t(i)
+        Next
+        a.GcmTag = s
+        d = AesVec.Dec(a, c)
+        Expect.AreEqual 0, AesVec.LastNumber, "error number of a decryption with the first 12 bytes of the tag"
+        Expect.AreEqual AesVec.HexOf(p), AesVec.HexOf(d), "plaintext from a tag cut to 12 bytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Gcm_TagOf4BytesIsRefused()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim t() As Byte
+        Dim s() As Byte
+        Dim d() As Byte
+        Dim i As Long
+        Set a = AesVec.MakeAes(AesCipherMode.GCM, 128, AesPaddingMode.NoPadding, Key128, Iv12)
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        t = a.GcmTag
+        ReDim s(3)
+        For i = 0 To 3
+            s(i) = t(i)
+        Next
+        a.GcmTag = s
+        d = AesVec.Dec(a, c)
+        Expect.AreEqual AesVec.Unspecified, AesVec.LastNumber, "error number of a decryption with the first 4 bytes of the tag"
+        Expect.AreEqual 0, AesVec.Count(d), "bytes returned for a tag of 4 bytes"
+        Expect.Done
+    End Sub
+
+    ' ---- GcmAAD
+
+    [TestCase]
+    Public Sub SetGcmAADFromString_SetsTheBytesOfTheText()
+        Expect.Begin
+        Dim a As New cAes
+        Dim aad() As Byte
+        a.SetGcmAADFromString "header"
+        aad = a.GcmAAD
+        Expect.AreEqual "686561646572", AesVec.HexOf(aad), "GcmAAD after SetGcmAADFromString with the text header"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetGcmAADFromString_EmptyTextRemovesTheData()
+        Expect.Begin
+        Dim a As New cAes
+        Dim aad() As Byte
+        a.SetGcmAADFromString "header"
+        a.SetGcmAADFromString ""
+        aad = a.GcmAAD
+        Expect.AreEqual 0, AesVec.Count(aad), "bytes in GcmAAD after SetGcmAADFromString with an empty text"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/HelperTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/HelperTests.twin
new file mode 100644
index 00000000..b3a42fcb
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/HelperTests.twin
@@ -0,0 +1,344 @@
+' TBMANLIB_Aes, cAesHelper: Base64, UTF-8, PKCS #7 padding, zero padding and IsArrayEmpty.
+'
+' Base64 is checked with the test vectors of RFC 4648 section 10 ("foobar" and its prefixes), UTF-8
+' with the encodings of RFC 3629, PKCS #7 with the examples of RFC 5652 section 6.3.
+[TestFixture]
+Module HelperTests
+
+    ' ---- Base64
+
+    [TestCase]
+    Public Sub Base64Encode_GivesTheVectorsOfRfc4648()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        b = AesVec.Ascii("f")
+        Expect.AreEqual "Zg==", h.Base64Encode(b), "Base64Encode of f"
+        b = AesVec.Ascii("fo")
+        Expect.AreEqual "Zm8=", h.Base64Encode(b), "Base64Encode of fo"
+        b = AesVec.Ascii("foo")
+        Expect.AreEqual "Zm9v", h.Base64Encode(b), "Base64Encode of foo"
+        b = AesVec.Ascii("foob")
+        Expect.AreEqual "Zm9vYg==", h.Base64Encode(b), "Base64Encode of foob"
+        b = AesVec.Ascii("fooba")
+        Expect.AreEqual "Zm9vYmE=", h.Base64Encode(b), "Base64Encode of fooba"
+        b = AesVec.Ascii("foobar")
+        Expect.AreEqual "Zm9vYmFy", h.Base64Encode(b), "Base64Encode of foobar"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Base64Encode_WritesOneLineWithTheStandardAlphabet()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim s As String
+        b = AesVec.FromHex("fbffbe" & String$(150, "0"))
+        s = h.Base64Encode(b)
+        Expect.IsTrue Len(s) > 100, "Base64Encode of 78 bytes returns a long text"
+        Expect.AreEqual 0, InStr(s, vbCr) + InStr(s, vbLf), "line breaks in the Base64 text"
+        Expect.AreEqual "+/++", Left$(s, 4), "the first characters of the Base64 text of fb ff be"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Base64Encode_UnsizedArrayGivesAnEmptyString()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Expect.AreEqual "", h.Base64Encode(b), "Base64Encode of an array that was never sized"
+        Expect.AreEqual "", h.LastError, "LastError after it"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Base64Decode_GivesTheVectorsOfRfc4648()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Expect.AreEqual "f", StrConv(h.Base64Decode("Zg=="), vbUnicode), "Base64Decode of Zg=="
+        Expect.AreEqual "fo", StrConv(h.Base64Decode("Zm8="), vbUnicode), "Base64Decode of Zm8="
+        Expect.AreEqual "foobar", StrConv(h.Base64Decode("Zm9vYmFy"), vbUnicode), "Base64Decode of Zm9vYmFy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Base64Decode_SkipsLineBreaksAndSpaces()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Expect.AreEqual "foobar", StrConv(h.Base64Decode("Zm9v" & vbCrLf & "Ym Fy"), vbUnicode), "Base64Decode of text with a line break and a space"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Base64Decode_EmptyTextRaisesUnspecifiedError()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        On Error Resume Next
+        b = h.Base64Decode("")
+        Expect.AreEqual AesVec.Unspecified, Err.Number, "error number of Base64Decode of an empty text"
+        Expect.AreEqual "Base64 decoding exception: Unspecified error", h.LastError, "LastError after it"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Base64Decode_InvalidTextRaisesUnspecifiedError()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        On Error Resume Next
+        b = h.Base64Decode("!!! not base64")
+        Expect.AreEqual AesVec.Unspecified, Err.Number, "error number of Base64Decode of text that is not Base64"
+        Expect.AreEqual "Base64 decoding exception: Unspecified error", h.LastError, "LastError after it"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Base64Decode_InvalidText_LastErrorNamesTheCause()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        On Error Resume Next
+        b = h.Base64Decode("!!! not base64")
+        Expect.AreEqual "Failed to get Base64 decoding length", h.LastError, "LastError after Base64Decode of text that is not Base64"
+        Expect.Done
+    End Sub
+
+    ' ---- UTF-8
+
+    [TestCase]
+    Public Sub StringToUtf8Bytes_GivesTheBytesOfUtf8()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        b = h.StringToUtf8Bytes("caf" & ChrW(233))
+        Expect.AreEqual "636166c3a9", AesVec.HexOf(b), "UTF-8 of caf and e-acute"
+        b = h.StringToUtf8Bytes(ChrW(&H20AC))
+        Expect.AreEqual "e282ac", AesVec.HexOf(b), "UTF-8 of the euro sign"
+        b = h.StringToUtf8Bytes(ChrW(&HD83D) & ChrW(&HDE00))
+        Expect.AreEqual "f09f9880", AesVec.HexOf(b), "UTF-8 of U+1F600 (a surrogate pair)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringToUtf8Bytes_EmptyTextRaisesUnspecifiedError()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        On Error Resume Next
+        b = h.StringToUtf8Bytes("")
+        Expect.AreEqual AesVec.Unspecified, Err.Number, "error number of StringToUtf8Bytes of an empty text"
+        Expect.AreEqual "String conversion exception: Unspecified error", h.LastError, "LastError after it"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Utf8BytesToString_ReadsUtf8()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim s As String
+        b = AesVec.FromHex("636166c3a9")
+        s = h.Utf8BytesToString(b)
+        Expect.AreEqual "caf" & ChrW(233), s, "Utf8BytesToString of 63 61 66 c3 a9"
+        b = AesVec.FromHex("f09f9880")
+        s = h.Utf8BytesToString(b)
+        Expect.AreEqual ChrW(&HD83D) & ChrW(&HDE00), s, "Utf8BytesToString of f0 9f 98 80"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Utf8BytesToString_InvalidBytesBecomeTheReplacementCharacter()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim s As String
+        b = AesVec.FromHex("ff")
+        s = h.Utf8BytesToString(b)
+        Expect.AreEqual 1, Len(s), "length of the text for the byte ff"
+        Expect.AreEqual &HFFFD&, AscW(s) And &HFFFF&, "the character for the byte ff"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Utf8BytesToString_UnsizedArrayGivesAnEmptyStringAndSetsLastError()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Expect.AreEqual "", h.Utf8BytesToString(b), "Utf8BytesToString of an array that was never sized"
+        Expect.AreEqual "Byte conversion exception: Subscript out of range", h.LastError, "LastError after it"
+        Expect.Done
+    End Sub
+
+    ' ---- PKCS #7
+
+    [TestCase]
+    Public Sub ApplyPKCS7Padding_AddsTheCountOfTheBytesAdded()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        b = AesVec.Ascii("Hello")
+        r = h.ApplyPKCS7Padding(b, 16)
+        Expect.AreEqual "48656c6c6f0b0b0b0b0b0b0b0b0b0b0b", AesVec.HexOf(r), "ApplyPKCS7Padding of Hello with a block size of 16"
+        b = AesVec.Ascii("0123456789abcdef")
+        r = h.ApplyPKCS7Padding(b, 16)
+        Expect.AreEqual 32, AesVec.Count(r), "length of the padded data for 16 bytes"
+        Expect.AreEqual "10101010101010101010101010101010", Mid$(AesVec.HexOf(r), 33), "the padding of 16 bytes that fill a block"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ApplyPKCS7Padding_UnsizedArrayRaisesUnspecifiedError()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        On Error Resume Next
+        r = h.ApplyPKCS7Padding(b, 16)
+        Expect.AreEqual AesVec.Unspecified, Err.Number, "error number of ApplyPKCS7Padding of an array that was never sized"
+        Expect.AreEqual "PKCS7 padding exception: Unspecified error", h.LastError, "LastError after it"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemovePKCS7Padding_TakesOffTheCountedBytes()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        b = AesVec.FromHex("48656c6c6f0b0b0b0b0b0b0b0b0b0b0b")
+        r = h.RemovePKCS7Padding(b)
+        Expect.AreEqual "48656c6c6f", AesVec.HexOf(r), "RemovePKCS7Padding of Hello and 11 bytes of 0b"
+        Expect.Done
+    End Sub
+
+    Private Sub Refused(ByVal What As String, ByVal Hex As String)
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        b = AesVec.FromHex(Hex)
+        On Error Resume Next
+        r = h.RemovePKCS7Padding(b)
+        Expect.AreEqual AesVec.Unspecified, Err.Number, What & ": error number of RemovePKCS7Padding"
+        Expect.AreEqual 0, AesVec.Count(r), What & ": bytes returned"
+        Expect.AreEqual "PKCS7 unpadding exception: Unspecified error", h.LastError, What & ": LastError"
+    End Sub
+
+    [TestCase]
+    Public Sub RemovePKCS7Padding_RefusesALastByteOfZero()
+        Expect.Begin
+        Refused "last byte 00", "01020300"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemovePKCS7Padding_RefusesACountAbove16()
+        Expect.Begin
+        Refused "last byte 11 (17)", "0102030405060708090a0b0c0d0e0f1011"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemovePKCS7Padding_RefusesACountLargerThanTheData()
+        Expect.Begin
+        Refused "count 5 in an array of 1 byte", "05"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemovePKCS7Padding_RefusesPaddingBytesThatDiffer()
+        Expect.Begin
+        Refused "last three bytes 03 03 02", "01020303" & "0302"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemovePKCS7Padding_RefusesDataThatIsAllPadding()
+        Expect.Begin
+        Refused "16 bytes of 10", "10101010101010101010101010101010"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemovePKCS7Padding_InvalidPadding_LastErrorNamesTheCause()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        b = AesVec.Ascii("0123456789abcdef")
+        On Error Resume Next
+        r = h.RemovePKCS7Padding(b)
+        Expect.AreEqual "Invalid PKCS7 padding length: 102", h.LastError, "LastError after RemovePKCS7Padding of data whose last byte is 102"
+        Expect.Done
+    End Sub
+
+    ' ---- zero padding
+
+    [TestCase]
+    Public Sub ApplyZeroPadding_AddsZeroBytesToAWholeBlock()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        b = AesVec.Ascii("Hello")
+        r = h.ApplyZeroPadding(b, 16)
+        Expect.AreEqual "48656c6c6f" & String$(22, "0"), AesVec.HexOf(r), "ApplyZeroPadding of Hello"
+        b = AesVec.Ascii("0123456789abcdef")
+        r = h.ApplyZeroPadding(b, 16)
+        Expect.AreEqual 32, AesVec.Count(r), "length of the padded data for 16 bytes"
+        Expect.AreEqual String$(32, "0"), Mid$(AesVec.HexOf(r), 33), "the padding of 16 bytes that fill a block"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ApplyZeroPadding_UnsizedArrayGivesOneBlockOfZeroBytes()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        r = h.ApplyZeroPadding(b, 16)
+        Expect.AreEqual String$(32, "0"), AesVec.HexOf(r), "ApplyZeroPadding of an array that was never sized"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemoveZeroPadding_TakesOffTheTrailingZeroBytes()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        b = AesVec.FromHex("0102000000")
+        r = h.RemoveZeroPadding(b)
+        Expect.AreEqual "0102", AesVec.HexOf(r), "RemoveZeroPadding of 01 02 00 00 00"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemoveZeroPadding_ArrayOfZeroBytesRaisesUnspecifiedError()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim b() As Byte
+        Dim r() As Byte
+        b = AesVec.FromHex("00000000")
+        On Error Resume Next
+        r = h.RemoveZeroPadding(b)
+        Expect.AreEqual AesVec.Unspecified, Err.Number, "error number of RemoveZeroPadding of an array of zero bytes"
+        Expect.AreEqual "Zero unpadding exception: Unspecified error", h.LastError, "LastError after it"
+        Expect.Done
+    End Sub
+
+    ' ---- IsArrayEmpty
+
+    [TestCase]
+    Public Sub IsArrayEmpty_TellsASizedArrayFromAnUnsizedOne()
+        Expect.Begin
+        Dim h As New cAesHelper
+        Dim unsized() As Byte
+        Dim sized(3) As Byte
+        Expect.IsTrue h.IsArrayEmpty(unsized), "IsArrayEmpty of an array that was never sized"
+        Expect.IsFalse h.IsArrayEmpty(sized), "IsArrayEmpty of an array of 4 elements"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/KeyAndIVTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/KeyAndIVTests.twin
new file mode 100644
index 00000000..96e5815a
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/KeyAndIVTests.twin
@@ -0,0 +1,218 @@
+' TBMANLIB_Aes, cAes: Key, KeySize, IV, SetKeyFromString and GenerateRandomIV.
+[TestFixture]
+Module KeyAndIVTests
+
+    ' ---- SetKeyFromString
+
+    [TestCase]
+    Public Sub SetKeyFromString_DifferentTextsGiveDifferentKeys()
+        Expect.Begin
+        Dim a As New cAes
+        Dim b As New cAes
+        Dim ka() As Byte
+        Dim kb() As Byte
+        a.SetKeyFromString "0123456789ABCDEF0123456789ABCDEF-first"
+        b.SetKeyFromString "0123456789ABCDEF0123456789ABCDEF-second"
+        ka = a.Key
+        kb = b.Key
+        Expect.IsTrue AesVec.HexOf(ka) <> AesVec.HexOf(kb), "keys made from two texts that differ after the 32nd character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetKeyFromString_ShortTextIsNotExtendedWithZeroBytes()
+        Expect.Begin
+        Dim a As New cAes
+        Dim k() As Byte
+        Dim i As Long
+        Dim zeros As Boolean
+        a.SetKeyFromString "abc"
+        k = a.Key
+        zeros = True
+        For i = 3 To UBound(k)
+            If k(i) <> 0 Then zeros = False
+        Next
+        Expect.IsFalse zeros, "bytes 4 to 32 of the key made from the text abc are all zero"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetKeyFromString_KeyHasTheLengthOfKeySize()
+        Expect.Begin
+        Dim a As New cAes
+        Dim k() As Byte
+        a.KeySize = AesKeySize.KeySize_128
+        a.SetKeyFromString "abc"
+        k = a.Key
+        Expect.AreEqual 16, AesVec.Count(k), "key length for KeySize_128"
+        a.KeySize = AesKeySize.KeySize_192
+        a.SetKeyFromString "abc"
+        k = a.Key
+        Expect.AreEqual 24, AesVec.Count(k), "key length for KeySize_192"
+        a.KeySize = AesKeySize.KeySize_256
+        a.SetKeyFromString "abc"
+        k = a.Key
+        Expect.AreEqual 32, AesVec.Count(k), "key length for KeySize_256"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetKeyFromString_TextLongerThanTheKeyIsCutAndShorterIsFollowedByZeros()
+        Expect.Begin
+        Dim a As New cAes
+        Dim k() As Byte
+        a.SetKeyFromString "abc"
+        k = a.Key
+        Expect.AreEqual "6162630000000000000000000000000000000000000000000000000000000000", AesVec.HexOf(k), "key made from the text abc (KeySize_256)"
+        a.SetKeyFromString "0123456789ABCDEF0123456789ABCDEF-extra"
+        k = a.Key
+        Expect.AreEqual "3031323334353637383941424344454630313233343536373839414243444546", AesVec.HexOf(k), "key made from a text of 38 characters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetKeyFromString_Utf8EncodingGivesTheBytesOfUtf8()
+        Expect.Begin
+        Dim a As New cAes
+        Dim k() As Byte
+        a.KeySize = AesKeySize.KeySize_128
+        a.SetKeyFromString "e" & ChrW(233), vbUTF8
+        k = a.Key
+        Expect.AreEqual "65c3a900000000000000000000000000", AesVec.HexOf(k), "key made from e and e-acute with vbUTF8"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetKeyFromString_EmptyTextRaisesAndKeepsTheKey()
+        Expect.Begin
+        Dim a As New cAes
+        Dim k() As Byte
+        a.SetKeyFromString "abc"
+        On Error Resume Next
+        a.SetKeyFromString ""
+        Expect.AreEqual 2, Err.Number - vbObjectError, "Err.Number - vbObjectError after SetKeyFromString with an empty text"
+        Expect.AreEqual "cAes.SetKeyFromString", Err.Source, "Err.Source after SetKeyFromString with an empty text"
+        Expect.AreEqual "Key cannot be empty", Err.Description, "Err.Description after SetKeyFromString with an empty text"
+        On Error GoTo 0
+        k = a.Key
+        Expect.AreEqual "6162630000000000000000000000000000000000000000000000000000000000", AesVec.HexOf(k), "the key after the refused call"
+        Expect.Done
+    End Sub
+
+    ' ---- GenerateRandomIV
+
+    [TestCase]
+    Public Sub GenerateRandomIV_Returns16BytesAndSetsTheIV()
+        Expect.Begin
+        Dim a As New cAes
+        Dim v() As Byte
+        Dim s() As Byte
+        v = a.GenerateRandomIV()
+        s = a.IV
+        Expect.AreEqual 16, AesVec.Count(v), "length of the IV that GenerateRandomIV returns"
+        Expect.AreEqual AesVec.HexOf(v), AesVec.HexOf(s), "the IV property after GenerateRandomIV"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GenerateRandomIV_TwoCallsFromTheSameRndStateGiveDifferentIVs()
+        Expect.Begin
+        ' A cryptographic generator has no state a program can put back. Rnd -1 and Randomize 7
+        ' put the state of Rnd back; the IVs of two calls from the same state should still differ.
+        Dim a As New cAes
+        Dim v1() As Byte
+        Dim v2() As Byte
+        Dim attempt As Long
+        Dim same As Long
+        For attempt = 1 To 200
+            Rnd -1
+            Randomize 7
+            v1 = a.GenerateRandomIV()
+            Rnd -1
+            Randomize 7
+            v2 = a.GenerateRandomIV()
+            If AesVec.HexOf(v1) = AesVec.HexOf(v2) Then same = same + 1
+        Next
+        Expect.AreEqual 0, same, "pairs of equal IVs among 200 pairs made from the same state of Rnd"
+        Expect.Done
+    End Sub
+
+    ' ---- IV and key length in the CNG modes
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_NoIVGivesTheOutputOfAnIVOfZeroBytes()
+        Expect.Begin
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim ca() As Byte
+        Dim cb() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, "")
+        Set b = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, "00000000000000000000000000000000")
+        p = AesVec.Ascii("Hello, AES!")
+        ca = AesVec.Enc(a, p)
+        cb = AesVec.Enc(b, p)
+        Expect.IsTrue AesVec.Count(ca) > 0, "CFB with no IV returns bytes"
+        Expect.AreEqual AesVec.HexOf(cb), AesVec.HexOf(ca), "CFB output with no IV and with an IV of 16 zero bytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_RefusesAnIVOf12Bytes()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, "000102030405060708090a0b")
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual 0, AesVec.Count(c), "bytes returned by CFB for an IV of 12 bytes (AES needs 16)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_RefusesAKeyOf20Bytes()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, "000102030405060708090a0b0c0d0e0f10111213", AesVec.Iv16)
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual 0, AesVec.Count(c), "bytes returned by CFB for a key of 20 bytes (an AES key has 16, 24 or 32 bytes)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_KeySizeDoesNotChangeTheKeyLengthThatRuns()
+        Expect.Begin
+        ' A key of 32 bytes is an AES-256 key in the CNG modes whatever KeySize says.
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim ca() As Byte
+        Dim cb() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key256, AesVec.Iv16)
+        Set b = AesVec.MakeAes(AesCipherMode.CFB, 256, AesPaddingMode.PKCS7, AesVec.Key256, AesVec.Iv16)
+        p = AesVec.Ascii("Hello, AES!")
+        ca = AesVec.Enc(a, p)
+        cb = AesVec.Enc(b, p)
+        Expect.IsTrue AesVec.Count(ca) > 0, "CFB with a key of 32 bytes and KeySize_128 returns bytes"
+        Expect.AreEqual AesVec.HexOf(cb), AesVec.HexOf(ca), "CFB output for a key of 32 bytes with KeySize_128 and with KeySize_256"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_IVOf16BytesIsAccepted()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.Ascii("Hello, AES!")
+        c = AesVec.Enc(a, p)
+        Expect.AreEqual 16, AesVec.Count(c), "length of the CFB output for 11 bytes"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/ModeTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/ModeTests.twin
new file mode 100644
index 00000000..9dd6c3eb
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/ModeTests.twin
@@ -0,0 +1,246 @@
+' TBMANLIB_Aes, cAes: what each cipher mode does, apart from the published vectors.
+'
+' A mode of AES has properties that hold whatever the key: ECB gives equal ciphertext blocks for
+' equal plaintext blocks and ignores the IV; CBC chains the blocks and depends on the IV; OFB and
+' CTR give streams that differ from CFB after the first block; and every mode decrypts what it
+' encrypted. The cases check these properties of the mode that the name says.
+[TestFixture]
+Module ModeTests
+
+    Private Const SameKey As String = "2b7e151628aed2a6abf7158809cf4f3c"
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_EqualPlainBlocksGiveEqualCipherBlocks()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim h As String
+        Set a = AesVec.MakeAes(AesCipherMode.ECB, 128, AesPaddingMode.NoPadding, SameKey, "")
+        p = AesVec.Ascii(String$(32, "A"))
+        c = AesVec.Enc(a, p)
+        h = AesVec.HexOf(c)
+        Expect.IsTrue Len(h) >= 64, "ECB output of two equal blocks holds at least two blocks"
+        Expect.AreEqual Mid$(h, 1, 32), Mid$(h, 33, 32), "first and second block of the ECB output for two equal plaintext blocks"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_EqualPlainBlocksGiveDifferentCipherBlocks()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim h As String
+        Set a = AesVec.MakeAes(AesCipherMode.CBC, 128, AesPaddingMode.NoPadding, SameKey, AesVec.Iv16)
+        p = AesVec.Ascii(String$(32, "A"))
+        c = AesVec.Enc(a, p)
+        h = AesVec.HexOf(c)
+        Expect.IsTrue Len(h) >= 64, "CBC output of two equal blocks holds at least two blocks"
+        Expect.IsTrue Mid$(h, 1, 32) <> Mid$(h, 33, 32), "first and second block of the CBC output for two equal plaintext blocks differ"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_DefaultModeGivesDifferentCipherBlocksForEqualPlainBlocks()
+        Expect.Begin
+        Dim a As New cAes
+        Dim k() As Byte
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim h As String
+        k = AesVec.FromHex(SameKey)
+        a.Key = k
+        p = AesVec.Ascii(String$(32, "A"))
+        c = AesVec.Enc(a, p)
+        h = AesVec.HexOf(c)
+        Expect.IsTrue Len(h) >= 64, "output of the default mode for two equal blocks holds at least two blocks"
+        Expect.IsTrue Mid$(h, 1, 32) <> Mid$(h, 33, 32), "first and second block of the output of a new cAes (CBC) for two equal plaintext blocks differ"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_IVChangesTheCiphertext()
+        Expect.Begin
+        Dim a As cAes
+        Dim iv2() As Byte
+        Dim p() As Byte
+        Dim c1() As Byte
+        Dim c2() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CBC, 128, AesPaddingMode.PKCS7, SameKey, AesVec.Iv16)
+        p = AesVec.Ascii("Hello, AES!")
+        c1 = AesVec.Enc(a, p)
+        iv2 = AesVec.FromHex("ffffffffffffffffffffffffffffffff")
+        a.IV = iv2
+        c2 = AesVec.Enc(a, p)
+        Expect.IsTrue AesVec.Count(c1) > 0 And AesVec.Count(c2) > 0, "both CBC encryptions return bytes"
+        Expect.IsTrue AesVec.HexOf(c1) <> AesVec.HexOf(c2), "CBC output with the IV 000102... and with the IV ffff..."
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_IVDoesNotChangeTheCiphertext()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c1() As Byte
+        Dim c2() As Byte
+        Dim iv() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.ECB, 128, AesPaddingMode.PKCS7, SameKey, "")
+        p = AesVec.Ascii(String$(32, "A"))
+        c1 = AesVec.Enc(a, p)
+        iv = AesVec.FromHex(AesVec.Iv16)
+        a.IV = iv
+        c2 = AesVec.Enc(a, p)
+        Expect.IsTrue AesVec.Count(c1) > 0, "the ECB encryption returns bytes"
+        Expect.AreEqual AesVec.HexOf(c1), AesVec.HexOf(c2), "ECB output without an IV and with one"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ofb_DiffersFromCfbAfterTheFirstBlock()
+        Expect.Begin
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim ca() As Byte
+        Dim cb() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        Set b = AesVec.MakeAes(AesCipherMode.OFB, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.FromHex(AesVec.Plain4)
+        ca = AesVec.Enc(a, p)
+        cb = AesVec.Enc(b, p)
+        Expect.AreEqual 64, AesVec.Count(cb), "length of the OFB output for 64 bytes"
+        Expect.IsTrue Mid$(AesVec.HexOf(ca), 33) <> Mid$(AesVec.HexOf(cb), 33), "CFB and OFB output after the first block, for the same key, IV and plaintext"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ctr_DiffersFromCfb()
+        Expect.Begin
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim ca() As Byte
+        Dim cb() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        Set b = AesVec.MakeAes(AesCipherMode.CTR, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.FromHex(AesVec.Plain4)
+        ca = AesVec.Enc(a, p)
+        cb = AesVec.Enc(b, p)
+        Expect.AreEqual 64, AesVec.Count(cb), "length of the CTR output for 64 bytes"
+        Expect.IsTrue AesVec.HexOf(ca) <> AesVec.HexOf(cb), "CFB and CTR output for the same key, IV and plaintext"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ctr_DiffersFromOfb()
+        Expect.Begin
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim ca() As Byte
+        Dim cb() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.OFB, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        Set b = AesVec.MakeAes(AesCipherMode.CTR, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.FromHex(AesVec.Plain4)
+        ca = AesVec.Enc(a, p)
+        cb = AesVec.Enc(b, p)
+        Expect.AreEqual 64, AesVec.Count(cb), "length of the CTR output for 64 bytes"
+        Expect.IsTrue AesVec.HexOf(ca) <> AesVec.HexOf(cb), "OFB and CTR output for the same key, IV and plaintext"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_IVChangesTheCiphertext()
+        Expect.Begin
+        Dim a As cAes
+        Dim iv2() As Byte
+        Dim p() As Byte
+        Dim c1() As Byte
+        Dim c2() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, SameKey, AesVec.Iv16)
+        p = AesVec.Ascii("Hello, AES!")
+        c1 = AesVec.Enc(a, p)
+        iv2 = AesVec.FromHex("ffffffffffffffffffffffffffffffff")
+        a.IV = iv2
+        c2 = AesVec.Enc(a, p)
+        Expect.IsTrue AesVec.Count(c1) > 0 And AesVec.Count(c2) > 0, "both CFB encryptions return bytes"
+        Expect.IsTrue AesVec.HexOf(c1) <> AesVec.HexOf(c2), "CFB output with the IV 000102... and with the IV ffff..."
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_TwoCallsWithTheSamePropertiesGiveTheSameOutput()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c1() As Byte
+        Dim c2() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, SameKey, AesVec.Iv16)
+        p = AesVec.Ascii("Hello, AES!")
+        c1 = AesVec.Enc(a, p)
+        c2 = AesVec.Enc(a, p)
+        Expect.IsTrue AesVec.Count(c1) > 0, "the first encryption returns bytes"
+        Expect.AreEqual AesVec.HexOf(c1), AesVec.HexOf(c2), "two CFB encryptions in a row with the same key and IV"
+        Expect.Done
+    End Sub
+
+    ' ---- every mode decrypts what it encrypted
+
+    Private Sub RoundTrip(ByVal Mode As AesCipherMode)
+        Dim a As cAes
+        Dim p() As Byte
+        Dim s As String
+        Dim r As String
+        Set a = AesVec.MakeAes(Mode, 256, AesPaddingMode.PKCS7, AesVec.Key256, AesVec.Iv16)
+        p = AesVec.Ascii("The quick brown fox jumps over the lazy dog")
+        AesVec.CheckRoundTrip "bytes", a, p
+        s = "caf" & ChrW(233) & " " & ChrW(&H20AC) & " " & ChrW(&H4E2D)
+        r = a.DecryptString(a.EncryptString(s))
+        Expect.AreEqual s, r, "DecryptString of EncryptString for text with non-ASCII characters"
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_RoundTrips()
+        Expect.Begin
+        RoundTrip AesCipherMode.ECB
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_RoundTrips()
+        Expect.Begin
+        RoundTrip AesCipherMode.CBC
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_RoundTrips()
+        Expect.Begin
+        RoundTrip AesCipherMode.CFB
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ofb_RoundTrips()
+        Expect.Begin
+        RoundTrip AesCipherMode.OFB
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ctr_RoundTrips()
+        Expect.Begin
+        RoundTrip AesCipherMode.CTR
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Gcm_RoundTrips()
+        Expect.Begin
+        RoundTrip AesCipherMode.GCM
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/PaddingTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/PaddingTests.twin
new file mode 100644
index 00000000..031fff31
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/PaddingTests.twin
@@ -0,0 +1,138 @@
+' TBMANLIB_Aes, cAes.PaddingMode: what each padding mode adds and takes off.
+'
+' The cases use the mode CFB, where the package adds no padding of Windows, so that the length of
+' the output is the length that the padding mode alone gives. PKCS #7 (RFC 5652) adds 1 to 16 bytes
+' that each hold their count; ISO 10126 adds random bytes and a last byte that holds the count.
+[TestFixture]
+Module PaddingTests
+
+    Private Function CfbLength(ByVal Padding As AesPaddingMode, ByVal DataLength As Long) As Long
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, Padding, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.Ascii(String$(DataLength, "x"))
+        c = AesVec.Enc(a, p)
+        If AesVec.LastNumber <> 0 Then Expect.Fail "EncryptBytes raised error " & AesVec.LastNumber & ", " & AesVec.LastText
+        CfbLength = AesVec.Count(c)
+    End Function
+
+    [TestCase]
+    Public Sub EncryptBytes_Pkcs7_PadsToTheNextWholeBlock()
+        Expect.Begin
+        Expect.AreEqual 16, CfbLength(AesPaddingMode.PKCS7, 5), "PKCS7: output length for 5 bytes"
+        Expect.AreEqual 16, CfbLength(AesPaddingMode.PKCS7, 15), "PKCS7: output length for 15 bytes"
+        Expect.AreEqual 32, CfbLength(AesPaddingMode.PKCS7, 16), "PKCS7: output length for 16 bytes"
+        Expect.AreEqual 48, CfbLength(AesPaddingMode.PKCS7, 33), "PKCS7: output length for 33 bytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_ZeroPadding_PadsToTheNextWholeBlock()
+        Expect.Begin
+        Expect.AreEqual 16, CfbLength(AesPaddingMode.ZeroPadding, 5), "ZeroPadding: output length for 5 bytes"
+        Expect.AreEqual 32, CfbLength(AesPaddingMode.ZeroPadding, 16), "ZeroPadding: output length for 16 bytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_NoPadding_KeepsTheLengthOfTheInput()
+        Expect.Begin
+        Expect.AreEqual 5, CfbLength(AesPaddingMode.NoPadding, 5), "NoPadding: output length for 5 bytes"
+        Expect.AreEqual 16, CfbLength(AesPaddingMode.NoPadding, 16), "NoPadding: output length for 16 bytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Iso10126_PadsToTheNextWholeBlock()
+        Expect.Begin
+        Expect.AreEqual 16, CfbLength(AesPaddingMode.ISO10126, 5), "ISO10126: output length for 5 bytes"
+        Expect.AreEqual 32, CfbLength(AesPaddingMode.ISO10126, 16), "ISO10126: output length for 16 bytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Iso10126_RoundTrips()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.ISO10126, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.Ascii("Hello")
+        AesVec.CheckRoundTrip "ISO10126, 5 bytes", a, p
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Pkcs7_RoundTripsEveryLengthFrom1To40()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim d() As Byte
+        Dim n As Long
+        Dim bad As String
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        For n = 1 To 40
+            p = AesVec.Ascii(String$(n, Chr$(1 + (n Mod 7))))
+            c = AesVec.Enc(a, p)
+            d = AesVec.Dec(a, c)
+            If AesVec.HexOf(d) <> AesVec.HexOf(p) Then bad = bad & n & " "
+        Next
+        Expect.AreEqual "", bad, "lengths whose PKCS7 round trip gives other bytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Pkcs7_RejectsInvalidPadding()
+        Expect.Begin
+        ' Encrypt 16 bytes whose last byte is 102 with NoPadding, then decrypt with PKCS7: the last
+        ' byte is not a count from 1 to 16, so the decryption fails.
+        Dim a As cAes
+        Dim b As cAes
+        Dim p() As Byte
+        Dim c() As Byte
+        Dim d() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.NoPadding, AesVec.Key128, AesVec.Iv16)
+        Set b = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.PKCS7, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.Ascii("0123456789abcdef")
+        c = AesVec.Enc(a, p)
+        d = AesVec.Dec(b, c)
+        Expect.AreEqual AesVec.Unspecified, AesVec.LastNumber, "error number of a PKCS7 decryption whose last byte is 102"
+        Expect.AreEqual 0, AesVec.Count(d), "bytes returned for the invalid padding"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_ZeroPadding_KeepsTheTrailingZeroBytesOfTheData()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.ZeroPadding, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.FromHex("41420000")
+        AesVec.CheckRoundTrip "ZeroPadding, data 41 42 00 00", a, p
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_ZeroPadding_DataOfZeroBytesRoundTrips()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.ZeroPadding, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.FromHex("00000000")
+        AesVec.CheckRoundTrip "ZeroPadding, data 00 00 00 00", a, p
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_ZeroPadding_TakesOffTheZeroBytesTheEncryptionAdded()
+        Expect.Begin
+        Dim a As cAes
+        Dim p() As Byte
+        Set a = AesVec.MakeAes(AesCipherMode.CFB, 128, AesPaddingMode.ZeroPadding, AesVec.Key128, AesVec.Iv16)
+        p = AesVec.Ascii("Hello, zero padding")
+        AesVec.CheckRoundTrip "ZeroPadding, data that does not end in a zero byte", a, p
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/RunAll.twin b/test/package-tests/TBMANLIB_Aes/Sources/RunAll.twin
new file mode 100644
index 00000000..8b566b36
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/RunAll.twin
@@ -0,0 +1,558 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB_Aes, version 1.0.0.4. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB_Aes 1.0.0.4: 136 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        CryptoApiModeTests.EncryptBytes_Ecb_NoPaddingKeepsTheLengthOfTheInput
+        Expect.EndCase "CryptoApiModeTests.EncryptBytes_Ecb_NoPaddingKeepsTheLengthOfTheInput", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoApiModeTests.EncryptBytes_Cbc_NoPaddingKeepsTheLengthOfTheInput
+        Expect.EndCase "CryptoApiModeTests.EncryptBytes_Cbc_NoPaddingKeepsTheLengthOfTheInput", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoApiModeTests.EncryptBytes_Ecb_Pkcs7OfOneBlockGivesTwoBlocks
+        Expect.EndCase "CryptoApiModeTests.EncryptBytes_Ecb_Pkcs7OfOneBlockGivesTwoBlocks", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoApiModeTests.EncryptBytes_Cbc_Pkcs7OfOneBlockGivesTwoBlocks
+        Expect.EndCase "CryptoApiModeTests.EncryptBytes_Cbc_Pkcs7OfOneBlockGivesTwoBlocks", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoApiModeTests.EncryptBytes_Ecb_RefusesAKeyOfFiveBytes
+        Expect.EndCase "CryptoApiModeTests.EncryptBytes_Ecb_RefusesAKeyOfFiveBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoApiModeTests.EncryptBytes_Cbc_RefusesAKeyOfFortyBytes
+        Expect.EndCase "CryptoApiModeTests.EncryptBytes_Cbc_RefusesAKeyOfFortyBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsAndConstantsTests.New_StartsWithTheDefaultValues
+        Expect.EndCase "DefaultsAndConstantsTests.New_StartsWithTheDefaultValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsAndConstantsTests.New_WithArgumentsStoresThem
+        Expect.EndCase "DefaultsAndConstantsTests.New_WithArgumentsStoresThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsAndConstantsTests.IsInitialized_IsTrueAfterACallAndFalseAfterASetterOrCleanup
+        Expect.EndCase "DefaultsAndConstantsTests.IsInitialized_IsTrueAfterACallAndFalseAfterASetterOrCleanup", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsAndConstantsTests.Cleanup_LeavesTheObjectUsable
+        Expect.EndCase "DefaultsAndConstantsTests.Cleanup_LeavesTheObjectUsable", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsAndConstantsTests.Enumerations_HaveTheDocumentedValues
+        Expect.EndCase "DefaultsAndConstantsTests.Enumerations_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsAndConstantsTests.PackageConstants_HaveTheDocumentedValues
+        Expect.EndCase "DefaultsAndConstantsTests.PackageConstants_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsAndConstantsTests.WindowsConstants_MatchWincryptHExceptTheFive
+        Expect.EndCase "DefaultsAndConstantsTests.WindowsConstants_MatchWincryptHExceptTheFive", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsAndConstantsTests.CryptModeConstants_EcbAndCbcMatchWincryptH
+        Expect.EndCase "DefaultsAndConstantsTests.CryptModeConstants_EcbAndCbcMatchWincryptH", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.EncryptBytes_NoKey_RaisesUnspecifiedError
+        Expect.EndCase "FailureTests.EncryptBytes_NoKey_RaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.EncryptBytes_NoKey_ErrorNamesTheCause
+        Expect.EndCase "FailureTests.EncryptBytes_NoKey_ErrorNamesTheCause", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.EncryptBytes_EmptyInput_RaisesUnspecifiedError
+        Expect.EndCase "FailureTests.EncryptBytes_EmptyInput_RaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.DecryptBytes_NoKey_RaisesUnspecifiedError
+        Expect.EndCase "FailureTests.DecryptBytes_NoKey_RaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.DecryptBytes_NoKey_ErrorNamesTheCause
+        Expect.EndCase "FailureTests.DecryptBytes_NoKey_ErrorNamesTheCause", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.DecryptBytes_GcmDamagedTag_ErrorNamesTheCause
+        Expect.EndCase "FailureTests.DecryptBytes_GcmDamagedTag_ErrorNamesTheCause", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.DecryptBytes_Cfb_InvalidPadding_RaisesUnspecifiedError
+        Expect.EndCase "FailureTests.DecryptBytes_Cfb_InvalidPadding_RaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.EncryptString_NoKey_ReturnsAnEmptyString
+        Expect.EndCase "FailureTests.EncryptString_NoKey_ReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.EncryptString_NoKey_ReportsTheFailure
+        Expect.EndCase "FailureTests.EncryptString_NoKey_ReportsTheFailure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.EncryptString_EmptyText_ReturnsAnEmptyString
+        Expect.EndCase "FailureTests.EncryptString_EmptyText_ReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.DecryptString_GcmDamagedTag_ReturnsAnEmptyString
+        Expect.EndCase "FailureTests.DecryptString_GcmDamagedTag_ReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.DecryptString_GcmDamagedTag_ReportsTheFailure
+        Expect.EndCase "FailureTests.DecryptString_GcmDamagedTag_ReportsTheFailure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.DecryptString_InvalidBase64_ReturnsAnEmptyStringAndSetsLastError
+        Expect.EndCase "FailureTests.DecryptString_InvalidBase64_ReturnsAnEmptyStringAndSetsLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.LastError_IsNotClearedByALaterSuccess
+        Expect.EndCase "FailureTests.LastError_IsNotClearedByALaterSuccess", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FailureTests.DecryptString_WrongKeyWithNoPadding_ReturnsOtherText
+        Expect.EndCase "FailureTests.DecryptString_WrongKeyWithNoPadding_ReturnsOtherText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_Aes128_GivesTheVectorOfTestCase4
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_Aes128_GivesTheVectorOfTestCase4", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_Aes192_GivesTheVectorOfTestCase10
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_Aes192_GivesTheVectorOfTestCase10", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_Aes256_GivesTheVectorOfTestCase16
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_Aes256_GivesTheVectorOfTestCase16", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_DefaultPaddingGivesTheStandardOutput
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_DefaultPaddingGivesTheStandardOutput", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_NoIVCanBeDecrypted
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_NoIVCanBeDecrypted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_NoIVLeavesTheNonceInIV
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_NoIVLeavesTheNonceInIV", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_NoIVRaisesNoErrorAndUsesAFreshNonceEachTime
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_NoIVRaisesNoErrorAndUsesAFreshNonceEachTime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_AnIVLongerThan12BytesGivesTheOutputOfItsFirst12Bytes
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_AnIVLongerThan12BytesGivesTheOutputOfItsFirst12Bytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.EncryptBytes_Gcm_TwoEncryptionsWithTheSameIVUseTheSameNonce
+        Expect.EndCase "GcmTests.EncryptBytes_Gcm_TwoEncryptionsWithTheSameIVUseTheSameNonce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.DecryptBytes_Gcm_DamagedTagRaises
+        Expect.EndCase "GcmTests.DecryptBytes_Gcm_DamagedTagRaises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.DecryptBytes_Gcm_DamagedAdditionalDataRaises
+        Expect.EndCase "GcmTests.DecryptBytes_Gcm_DamagedAdditionalDataRaises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.DecryptBytes_Gcm_DamagedCiphertextRaises
+        Expect.EndCase "GcmTests.DecryptBytes_Gcm_DamagedCiphertextRaises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.DecryptBytes_Gcm_ChangedIVRaises
+        Expect.EndCase "GcmTests.DecryptBytes_Gcm_ChangedIVRaises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.DecryptBytes_Gcm_NoTagRaises
+        Expect.EndCase "GcmTests.DecryptBytes_Gcm_NoTagRaises", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.DecryptBytes_Gcm_TagOf12BytesIsAccepted
+        Expect.EndCase "GcmTests.DecryptBytes_Gcm_TagOf12BytesIsAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.DecryptBytes_Gcm_TagOf4BytesIsRefused
+        Expect.EndCase "GcmTests.DecryptBytes_Gcm_TagOf4BytesIsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.SetGcmAADFromString_SetsTheBytesOfTheText
+        Expect.EndCase "GcmTests.SetGcmAADFromString_SetsTheBytesOfTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GcmTests.SetGcmAADFromString_EmptyTextRemovesTheData
+        Expect.EndCase "GcmTests.SetGcmAADFromString_EmptyTextRemovesTheData", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Base64Encode_GivesTheVectorsOfRfc4648
+        Expect.EndCase "HelperTests.Base64Encode_GivesTheVectorsOfRfc4648", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Base64Encode_WritesOneLineWithTheStandardAlphabet
+        Expect.EndCase "HelperTests.Base64Encode_WritesOneLineWithTheStandardAlphabet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Base64Encode_UnsizedArrayGivesAnEmptyString
+        Expect.EndCase "HelperTests.Base64Encode_UnsizedArrayGivesAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Base64Decode_GivesTheVectorsOfRfc4648
+        Expect.EndCase "HelperTests.Base64Decode_GivesTheVectorsOfRfc4648", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Base64Decode_SkipsLineBreaksAndSpaces
+        Expect.EndCase "HelperTests.Base64Decode_SkipsLineBreaksAndSpaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Base64Decode_EmptyTextRaisesUnspecifiedError
+        Expect.EndCase "HelperTests.Base64Decode_EmptyTextRaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Base64Decode_InvalidTextRaisesUnspecifiedError
+        Expect.EndCase "HelperTests.Base64Decode_InvalidTextRaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Base64Decode_InvalidText_LastErrorNamesTheCause
+        Expect.EndCase "HelperTests.Base64Decode_InvalidText_LastErrorNamesTheCause", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.StringToUtf8Bytes_GivesTheBytesOfUtf8
+        Expect.EndCase "HelperTests.StringToUtf8Bytes_GivesTheBytesOfUtf8", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.StringToUtf8Bytes_EmptyTextRaisesUnspecifiedError
+        Expect.EndCase "HelperTests.StringToUtf8Bytes_EmptyTextRaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Utf8BytesToString_ReadsUtf8
+        Expect.EndCase "HelperTests.Utf8BytesToString_ReadsUtf8", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Utf8BytesToString_InvalidBytesBecomeTheReplacementCharacter
+        Expect.EndCase "HelperTests.Utf8BytesToString_InvalidBytesBecomeTheReplacementCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.Utf8BytesToString_UnsizedArrayGivesAnEmptyStringAndSetsLastError
+        Expect.EndCase "HelperTests.Utf8BytesToString_UnsizedArrayGivesAnEmptyStringAndSetsLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.ApplyPKCS7Padding_AddsTheCountOfTheBytesAdded
+        Expect.EndCase "HelperTests.ApplyPKCS7Padding_AddsTheCountOfTheBytesAdded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.ApplyPKCS7Padding_UnsizedArrayRaisesUnspecifiedError
+        Expect.EndCase "HelperTests.ApplyPKCS7Padding_UnsizedArrayRaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemovePKCS7Padding_TakesOffTheCountedBytes
+        Expect.EndCase "HelperTests.RemovePKCS7Padding_TakesOffTheCountedBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemovePKCS7Padding_RefusesALastByteOfZero
+        Expect.EndCase "HelperTests.RemovePKCS7Padding_RefusesALastByteOfZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemovePKCS7Padding_RefusesACountAbove16
+        Expect.EndCase "HelperTests.RemovePKCS7Padding_RefusesACountAbove16", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemovePKCS7Padding_RefusesACountLargerThanTheData
+        Expect.EndCase "HelperTests.RemovePKCS7Padding_RefusesACountLargerThanTheData", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemovePKCS7Padding_RefusesPaddingBytesThatDiffer
+        Expect.EndCase "HelperTests.RemovePKCS7Padding_RefusesPaddingBytesThatDiffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemovePKCS7Padding_RefusesDataThatIsAllPadding
+        Expect.EndCase "HelperTests.RemovePKCS7Padding_RefusesDataThatIsAllPadding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemovePKCS7Padding_InvalidPadding_LastErrorNamesTheCause
+        Expect.EndCase "HelperTests.RemovePKCS7Padding_InvalidPadding_LastErrorNamesTheCause", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.ApplyZeroPadding_AddsZeroBytesToAWholeBlock
+        Expect.EndCase "HelperTests.ApplyZeroPadding_AddsZeroBytesToAWholeBlock", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.ApplyZeroPadding_UnsizedArrayGivesOneBlockOfZeroBytes
+        Expect.EndCase "HelperTests.ApplyZeroPadding_UnsizedArrayGivesOneBlockOfZeroBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemoveZeroPadding_TakesOffTheTrailingZeroBytes
+        Expect.EndCase "HelperTests.RemoveZeroPadding_TakesOffTheTrailingZeroBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.RemoveZeroPadding_ArrayOfZeroBytesRaisesUnspecifiedError
+        Expect.EndCase "HelperTests.RemoveZeroPadding_ArrayOfZeroBytesRaisesUnspecifiedError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        HelperTests.IsArrayEmpty_TellsASizedArrayFromAnUnsizedOne
+        Expect.EndCase "HelperTests.IsArrayEmpty_TellsASizedArrayFromAnUnsizedOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.SetKeyFromString_DifferentTextsGiveDifferentKeys
+        Expect.EndCase "KeyAndIVTests.SetKeyFromString_DifferentTextsGiveDifferentKeys", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.SetKeyFromString_ShortTextIsNotExtendedWithZeroBytes
+        Expect.EndCase "KeyAndIVTests.SetKeyFromString_ShortTextIsNotExtendedWithZeroBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.SetKeyFromString_KeyHasTheLengthOfKeySize
+        Expect.EndCase "KeyAndIVTests.SetKeyFromString_KeyHasTheLengthOfKeySize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.SetKeyFromString_TextLongerThanTheKeyIsCutAndShorterIsFollowedByZeros
+        Expect.EndCase "KeyAndIVTests.SetKeyFromString_TextLongerThanTheKeyIsCutAndShorterIsFollowedByZeros", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.SetKeyFromString_Utf8EncodingGivesTheBytesOfUtf8
+        Expect.EndCase "KeyAndIVTests.SetKeyFromString_Utf8EncodingGivesTheBytesOfUtf8", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.SetKeyFromString_EmptyTextRaisesAndKeepsTheKey
+        Expect.EndCase "KeyAndIVTests.SetKeyFromString_EmptyTextRaisesAndKeepsTheKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.GenerateRandomIV_Returns16BytesAndSetsTheIV
+        Expect.EndCase "KeyAndIVTests.GenerateRandomIV_Returns16BytesAndSetsTheIV", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.GenerateRandomIV_TwoCallsFromTheSameRndStateGiveDifferentIVs
+        Expect.EndCase "KeyAndIVTests.GenerateRandomIV_TwoCallsFromTheSameRndStateGiveDifferentIVs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.EncryptBytes_Cfb_NoIVGivesTheOutputOfAnIVOfZeroBytes
+        Expect.EndCase "KeyAndIVTests.EncryptBytes_Cfb_NoIVGivesTheOutputOfAnIVOfZeroBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.EncryptBytes_Cfb_RefusesAnIVOf12Bytes
+        Expect.EndCase "KeyAndIVTests.EncryptBytes_Cfb_RefusesAnIVOf12Bytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.EncryptBytes_Cfb_RefusesAKeyOf20Bytes
+        Expect.EndCase "KeyAndIVTests.EncryptBytes_Cfb_RefusesAKeyOf20Bytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.EncryptBytes_Cfb_KeySizeDoesNotChangeTheKeyLengthThatRuns
+        Expect.EndCase "KeyAndIVTests.EncryptBytes_Cfb_KeySizeDoesNotChangeTheKeyLengthThatRuns", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyAndIVTests.EncryptBytes_Cfb_IVOf16BytesIsAccepted
+        Expect.EndCase "KeyAndIVTests.EncryptBytes_Cfb_IVOf16BytesIsAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Ecb_EqualPlainBlocksGiveEqualCipherBlocks
+        Expect.EndCase "ModeTests.EncryptBytes_Ecb_EqualPlainBlocksGiveEqualCipherBlocks", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Cbc_EqualPlainBlocksGiveDifferentCipherBlocks
+        Expect.EndCase "ModeTests.EncryptBytes_Cbc_EqualPlainBlocksGiveDifferentCipherBlocks", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Cbc_DefaultModeGivesDifferentCipherBlocksForEqualPlainBlocks
+        Expect.EndCase "ModeTests.EncryptBytes_Cbc_DefaultModeGivesDifferentCipherBlocksForEqualPlainBlocks", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Cbc_IVChangesTheCiphertext
+        Expect.EndCase "ModeTests.EncryptBytes_Cbc_IVChangesTheCiphertext", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Ecb_IVDoesNotChangeTheCiphertext
+        Expect.EndCase "ModeTests.EncryptBytes_Ecb_IVDoesNotChangeTheCiphertext", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Ofb_DiffersFromCfbAfterTheFirstBlock
+        Expect.EndCase "ModeTests.EncryptBytes_Ofb_DiffersFromCfbAfterTheFirstBlock", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Ctr_DiffersFromCfb
+        Expect.EndCase "ModeTests.EncryptBytes_Ctr_DiffersFromCfb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Ctr_DiffersFromOfb
+        Expect.EndCase "ModeTests.EncryptBytes_Ctr_DiffersFromOfb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Cfb_IVChangesTheCiphertext
+        Expect.EndCase "ModeTests.EncryptBytes_Cfb_IVChangesTheCiphertext", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_TwoCallsWithTheSamePropertiesGiveTheSameOutput
+        Expect.EndCase "ModeTests.EncryptBytes_TwoCallsWithTheSamePropertiesGiveTheSameOutput", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Ecb_RoundTrips
+        Expect.EndCase "ModeTests.EncryptBytes_Ecb_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Cbc_RoundTrips
+        Expect.EndCase "ModeTests.EncryptBytes_Cbc_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Cfb_RoundTrips
+        Expect.EndCase "ModeTests.EncryptBytes_Cfb_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Ofb_RoundTrips
+        Expect.EndCase "ModeTests.EncryptBytes_Ofb_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Ctr_RoundTrips
+        Expect.EndCase "ModeTests.EncryptBytes_Ctr_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModeTests.EncryptBytes_Gcm_RoundTrips
+        Expect.EndCase "ModeTests.EncryptBytes_Gcm_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.EncryptBytes_Pkcs7_PadsToTheNextWholeBlock
+        Expect.EndCase "PaddingTests.EncryptBytes_Pkcs7_PadsToTheNextWholeBlock", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.EncryptBytes_ZeroPadding_PadsToTheNextWholeBlock
+        Expect.EndCase "PaddingTests.EncryptBytes_ZeroPadding_PadsToTheNextWholeBlock", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.EncryptBytes_NoPadding_KeepsTheLengthOfTheInput
+        Expect.EndCase "PaddingTests.EncryptBytes_NoPadding_KeepsTheLengthOfTheInput", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.EncryptBytes_Iso10126_PadsToTheNextWholeBlock
+        Expect.EndCase "PaddingTests.EncryptBytes_Iso10126_PadsToTheNextWholeBlock", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.DecryptBytes_Iso10126_RoundTrips
+        Expect.EndCase "PaddingTests.DecryptBytes_Iso10126_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.EncryptBytes_Pkcs7_RoundTripsEveryLengthFrom1To40
+        Expect.EndCase "PaddingTests.EncryptBytes_Pkcs7_RoundTripsEveryLengthFrom1To40", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.DecryptBytes_Pkcs7_RejectsInvalidPadding
+        Expect.EndCase "PaddingTests.DecryptBytes_Pkcs7_RejectsInvalidPadding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.DecryptBytes_ZeroPadding_KeepsTheTrailingZeroBytesOfTheData
+        Expect.EndCase "PaddingTests.DecryptBytes_ZeroPadding_KeepsTheTrailingZeroBytesOfTheData", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.DecryptBytes_ZeroPadding_DataOfZeroBytesRoundTrips
+        Expect.EndCase "PaddingTests.DecryptBytes_ZeroPadding_DataOfZeroBytesRoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PaddingTests.DecryptBytes_ZeroPadding_TakesOffTheZeroBytesTheEncryptionAdded
+        Expect.EndCase "PaddingTests.DecryptBytes_ZeroPadding_TakesOffTheZeroBytesTheEncryptionAdded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheBlockOfFips197C1
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheBlockOfFips197C1", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ecb_Aes192_GivesTheBlockOfFips197C2
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ecb_Aes192_GivesTheBlockOfFips197C2", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ecb_Aes256_GivesTheBlockOfFips197C3
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ecb_Aes256_GivesTheBlockOfFips197C3", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheVectorOfSp80038aF11
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheVectorOfSp80038aF11", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ecb_Aes192_GivesTheVectorOfSp80038aF13
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ecb_Aes192_GivesTheVectorOfSp80038aF13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ecb_Aes256_GivesTheVectorOfSp80038aF15
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ecb_Aes256_GivesTheVectorOfSp80038aF15", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.DecryptBytes_Ecb_Aes128_GivesThePlaintextOfSp80038aF12
+        Expect.EndCase "StandardVectorTests.DecryptBytes_Ecb_Aes128_GivesThePlaintextOfSp80038aF12", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Cbc_Aes128_GivesTheVectorOfSp80038aF21
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Cbc_Aes128_GivesTheVectorOfSp80038aF21", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Cbc_Aes192_GivesTheVectorOfSp80038aF23
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Cbc_Aes192_GivesTheVectorOfSp80038aF23", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Cbc_Aes256_GivesTheVectorOfSp80038aF25
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Cbc_Aes256_GivesTheVectorOfSp80038aF25", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.DecryptBytes_Cbc_Aes128_GivesThePlaintextOfSp80038aF22
+        Expect.EndCase "StandardVectorTests.DecryptBytes_Cbc_Aes128_GivesThePlaintextOfSp80038aF22", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Cfb_Aes128_GivesTheVectorOfSp80038aF313
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Cfb_Aes128_GivesTheVectorOfSp80038aF313", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Cfb_Aes192_GivesTheVectorOfSp80038aF315
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Cfb_Aes192_GivesTheVectorOfSp80038aF315", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Cfb_Aes256_GivesTheVectorOfSp80038aF317
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Cfb_Aes256_GivesTheVectorOfSp80038aF317", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.DecryptBytes_Cfb_Aes128_GivesThePlaintextOfSp80038aF314
+        Expect.EndCase "StandardVectorTests.DecryptBytes_Cfb_Aes128_GivesThePlaintextOfSp80038aF314", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ofb_Aes128_GivesTheVectorOfSp80038aF41
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ofb_Aes128_GivesTheVectorOfSp80038aF41", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ofb_Aes192_GivesTheVectorOfSp80038aF43
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ofb_Aes192_GivesTheVectorOfSp80038aF43", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ofb_Aes256_GivesTheVectorOfSp80038aF45
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ofb_Aes256_GivesTheVectorOfSp80038aF45", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.DecryptBytes_Ofb_Aes128_GivesThePlaintextOfSp80038aF42
+        Expect.EndCase "StandardVectorTests.DecryptBytes_Ofb_Aes128_GivesThePlaintextOfSp80038aF42", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ctr_Aes128_GivesTheVectorOfSp80038aF51
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ctr_Aes128_GivesTheVectorOfSp80038aF51", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ctr_Aes192_GivesTheVectorOfSp80038aF53
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ctr_Aes192_GivesTheVectorOfSp80038aF53", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.EncryptBytes_Ctr_Aes256_GivesTheVectorOfSp80038aF55
+        Expect.EndCase "StandardVectorTests.EncryptBytes_Ctr_Aes256_GivesTheVectorOfSp80038aF55", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StandardVectorTests.DecryptBytes_Ctr_Aes128_GivesThePlaintextOfSp80038aF52
+        Expect.EndCase "StandardVectorTests.DecryptBytes_Ctr_Aes128_GivesThePlaintextOfSp80038aF52", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/Sources/StandardVectorTests.twin b/test/package-tests/TBMANLIB_Aes/Sources/StandardVectorTests.twin
new file mode 100644
index 00000000..7216481f
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/Sources/StandardVectorTests.twin
@@ -0,0 +1,182 @@
+' TBMANLIB_Aes, cAes: the output of each cipher mode against the published test vectors.
+'
+' Every case uses NoPadding, so the output is the vector and nothing else, and the keys of
+' NIST SP 800-38A Appendix F as they are. CFB here is CFB128, the CFB of SP 800-38A F.3.13 to
+' F.3.18 and of OpenSSL's aes-N-cfb. The sources of the vectors are in AesVec.
+[TestFixture]
+Module StandardVectorTests
+
+    ' ---- FIPS 197, Appendix C: one block, the mode ECB
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_Aes128_GivesTheBlockOfFips197C1()
+        Expect.Begin
+        AesVec.EncryptAndCheck "AES-128 (FIPS 197 C.1)", AesCipherMode.ECB, 128, "000102030405060708090a0b0c0d0e0f", "", "00112233445566778899aabbccddeeff", "69c4e0d86a7b0430d8cdb78070b4c55a"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_Aes192_GivesTheBlockOfFips197C2()
+        Expect.Begin
+        AesVec.EncryptAndCheck "AES-192 (FIPS 197 C.2)", AesCipherMode.ECB, 192, "000102030405060708090a0b0c0d0e0f1011121314151617", "", "00112233445566778899aabbccddeeff", "dda97ca4864cdfe06eaf70a0ec0d7191"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_Aes256_GivesTheBlockOfFips197C3()
+        Expect.Begin
+        AesVec.EncryptAndCheck "AES-256 (FIPS 197 C.3)", AesCipherMode.ECB, 256, "000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f", "", "00112233445566778899aabbccddeeff", "8ea2b7ca516745bfeafc49904b496089"
+        Expect.Done
+    End Sub
+
+    ' ---- NIST SP 800-38A F.1: ECB
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_Aes128_GivesTheVectorOfSp80038aF11()
+        Expect.Begin
+        AesVec.EncryptAndCheck "ECB-AES128.Encrypt (F.1.1)", AesCipherMode.ECB, 128, AesVec.Key128, "", AesVec.Plain4, "3ad77bb40d7a3660a89ecaf32466ef97f5d3d58503b9699de785895a96fdbaaf43b1cd7f598ece23881b00e3ed0306887b0c785e27e8ad3f8223207104725dd4"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_Aes192_GivesTheVectorOfSp80038aF13()
+        Expect.Begin
+        AesVec.EncryptAndCheck "ECB-AES192.Encrypt (F.1.3)", AesCipherMode.ECB, 192, AesVec.Key192, "", AesVec.Plain4, "bd334f1d6e45f25ff712a214571fa5cc974104846d0ad3ad7734ecb3ecee4eefef7afd2270e2e60adce0ba2face6444e9a4b41ba738d6c72fb16691603c18e0e"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ecb_Aes256_GivesTheVectorOfSp80038aF15()
+        Expect.Begin
+        AesVec.EncryptAndCheck "ECB-AES256.Encrypt (F.1.5)", AesCipherMode.ECB, 256, AesVec.Key256, "", AesVec.Plain4, "f3eed1bdb5d2a03c064b5a7e3db181f8591ccb10d410ed26dc5ba74a31362870b6ed21b99ca6f4f9f153e7b1beafed1d23304b7a39f9f3ff067d8d8f9e24ecc7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Ecb_Aes128_GivesThePlaintextOfSp80038aF12()
+        Expect.Begin
+        AesVec.DecryptAndCheck "ECB-AES128.Decrypt (F.1.2)", AesCipherMode.ECB, 128, AesVec.Key128, "", "3ad77bb40d7a3660a89ecaf32466ef97f5d3d58503b9699de785895a96fdbaaf43b1cd7f598ece23881b00e3ed0306887b0c785e27e8ad3f8223207104725dd4", AesVec.Plain4
+        Expect.Done
+    End Sub
+
+    ' ---- NIST SP 800-38A F.2: CBC, IV 000102...0f
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_Aes128_GivesTheVectorOfSp80038aF21()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CBC-AES128.Encrypt (F.2.1)", AesCipherMode.CBC, 128, AesVec.Key128, AesVec.Iv16, AesVec.Plain4, "7649abac8119b246cee98e9b12e9197d5086cb9b507219ee95db113a917678b273bed6b8e3c1743b7116e69e222295163ff1caa1681fac09120eca307586e1a7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_Aes192_GivesTheVectorOfSp80038aF23()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CBC-AES192.Encrypt (F.2.3)", AesCipherMode.CBC, 192, AesVec.Key192, AesVec.Iv16, AesVec.Plain4, "4f021db243bc633d7178183a9fa071e8b4d9ada9ad7dedf4e5e738763f69145a571b242012fb7ae07fa9baac3df102e008b0e27988598881d920a9e64f5615cd"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cbc_Aes256_GivesTheVectorOfSp80038aF25()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CBC-AES256.Encrypt (F.2.5)", AesCipherMode.CBC, 256, AesVec.Key256, AesVec.Iv16, AesVec.Plain4, "f58c4c04d6e5f1ba779eabfb5f7bfbd69cfc4e967edb808d679f777bc6702c7d39f23369a9d9bacfa530e26304231461b2eb05e2c39be9fcda6c19078c6a9d1b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Cbc_Aes128_GivesThePlaintextOfSp80038aF22()
+        Expect.Begin
+        AesVec.DecryptAndCheck "CBC-AES128.Decrypt (F.2.2)", AesCipherMode.CBC, 128, AesVec.Key128, AesVec.Iv16, "7649abac8119b246cee98e9b12e9197d5086cb9b507219ee95db113a917678b273bed6b8e3c1743b7116e69e222295163ff1caa1681fac09120eca307586e1a7", AesVec.Plain4
+        Expect.Done
+    End Sub
+
+    ' ---- NIST SP 800-38A F.3: CFB128
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_Aes128_GivesTheVectorOfSp80038aF313()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CFB128-AES128.Encrypt (F.3.13)", AesCipherMode.CFB, 128, AesVec.Key128, AesVec.Iv16, AesVec.Plain4, "3b3fd92eb72dad20333449f8e83cfb4ac8a64537a0b3a93fcde3cdad9f1ce58b26751f67a3cbb140b1808cf187a4f4dfc04b05357c5d1c0eeac4c66f9ff7f2e6"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_Aes192_GivesTheVectorOfSp80038aF315()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CFB128-AES192.Encrypt (F.3.15)", AesCipherMode.CFB, 192, AesVec.Key192, AesVec.Iv16, AesVec.Plain4, "cdc80d6fddf18cab34c25909c99a417467ce7f7f81173621961a2b70171d3d7a2e1e8a1dd59b88b1c8e60fed1efac4c9c05f9f9ca9834fa042ae8fba584b09ff"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Cfb_Aes256_GivesTheVectorOfSp80038aF317()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CFB128-AES256.Encrypt (F.3.17)", AesCipherMode.CFB, 256, AesVec.Key256, AesVec.Iv16, AesVec.Plain4, "dc7e84bfda79164b7ecd8486985d386039ffed143b28b1c832113c6331e5407bdf10132415e54b92a13ed0a8267ae2f975a385741ab9cef82031623d55b1e471"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Cfb_Aes128_GivesThePlaintextOfSp80038aF314()
+        Expect.Begin
+        AesVec.DecryptAndCheck "CFB128-AES128.Decrypt (F.3.14)", AesCipherMode.CFB, 128, AesVec.Key128, AesVec.Iv16, "3b3fd92eb72dad20333449f8e83cfb4ac8a64537a0b3a93fcde3cdad9f1ce58b26751f67a3cbb140b1808cf187a4f4dfc04b05357c5d1c0eeac4c66f9ff7f2e6", AesVec.Plain4
+        Expect.Done
+    End Sub
+
+    ' ---- NIST SP 800-38A F.4: OFB
+
+    [TestCase]
+    Public Sub EncryptBytes_Ofb_Aes128_GivesTheVectorOfSp80038aF41()
+        Expect.Begin
+        AesVec.EncryptAndCheck "OFB-AES128.Encrypt (F.4.1)", AesCipherMode.OFB, 128, AesVec.Key128, AesVec.Iv16, AesVec.Plain4, "3b3fd92eb72dad20333449f8e83cfb4a7789508d16918f03f53c52dac54ed8259740051e9c5fecf64344f7a82260edcc304c6528f659c77866a510d9c1d6ae5e"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ofb_Aes192_GivesTheVectorOfSp80038aF43()
+        Expect.Begin
+        AesVec.EncryptAndCheck "OFB-AES192.Encrypt (F.4.3)", AesCipherMode.OFB, 192, AesVec.Key192, AesVec.Iv16, AesVec.Plain4, "cdc80d6fddf18cab34c25909c99a4174fcc28b8d4c63837c09e81700c11004018d9a9aeac0f6596f559c6d4daf59a5f26d9f200857ca6c3e9cac524bd9acc92a"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ofb_Aes256_GivesTheVectorOfSp80038aF45()
+        Expect.Begin
+        AesVec.EncryptAndCheck "OFB-AES256.Encrypt (F.4.5)", AesCipherMode.OFB, 256, AesVec.Key256, AesVec.Iv16, AesVec.Plain4, "dc7e84bfda79164b7ecd8486985d38604febdc6740d20b3ac88f6ad82a4fb08d71ab47a086e86eedf39d1c5bba97c4080126141d67f37be8538f5a8be740e484"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Ofb_Aes128_GivesThePlaintextOfSp80038aF42()
+        Expect.Begin
+        AesVec.DecryptAndCheck "OFB-AES128.Decrypt (F.4.2)", AesCipherMode.OFB, 128, AesVec.Key128, AesVec.Iv16, "3b3fd92eb72dad20333449f8e83cfb4a7789508d16918f03f53c52dac54ed8259740051e9c5fecf64344f7a82260edcc304c6528f659c77866a510d9c1d6ae5e", AesVec.Plain4
+        Expect.Done
+    End Sub
+
+    ' ---- NIST SP 800-38A F.5: CTR, initial counter block f0f1...ff
+
+    [TestCase]
+    Public Sub EncryptBytes_Ctr_Aes128_GivesTheVectorOfSp80038aF51()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CTR-AES128.Encrypt (F.5.1)", AesCipherMode.CTR, 128, AesVec.Key128, AesVec.CtrIv, AesVec.Plain4, "874d6191b620e3261bef6864990db6ce9806f66b7970fdff8617187bb9fffdff5ae4df3edbd5d35e5b4f09020db03eab1e031dda2fbe03d1792170a0f3009cee"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ctr_Aes192_GivesTheVectorOfSp80038aF53()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CTR-AES192.Encrypt (F.5.3)", AesCipherMode.CTR, 192, AesVec.Key192, AesVec.CtrIv, AesVec.Plain4, "1abc932417521ca24f2b0459fe7e6e0b090339ec0aa6faefd5ccc2c6f4ce8e941e36b26bd1ebc670d1bd1d665620abf74f78a7f6d29809585a97daec58c6b050"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EncryptBytes_Ctr_Aes256_GivesTheVectorOfSp80038aF55()
+        Expect.Begin
+        AesVec.EncryptAndCheck "CTR-AES256.Encrypt (F.5.5)", AesCipherMode.CTR, 256, AesVec.Key256, AesVec.CtrIv, AesVec.Plain4, "601ec313775789a5b7a7f504bbf3d228f443e3ca4d62b59aca84e990cacaf5c52b0930daa23de94ce87017ba2d84988ddfc9c58db67aada613c2dd08457941a6"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DecryptBytes_Ctr_Aes128_GivesThePlaintextOfSp80038aF52()
+        Expect.Begin
+        AesVec.DecryptAndCheck "CTR-AES128.Decrypt (F.5.2)", AesCipherMode.CTR, 128, AesVec.Key128, AesVec.CtrIv, "874d6191b620e3261bef6864990db6ce9806f66b7970fdff8617187bb9fffdff5ae4df3edbd5d35e5b4f09020db03eab1e031dda2fbe03d1792170a0f3009cee", AesVec.Plain4
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Aes/expect.json b/test/package-tests/TBMANLIB_Aes/expect.json
new file mode 100644
index 00000000..43384b27
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Aes/expect.json
@@ -0,0 +1,167 @@
+{
+  "version": "1.0.0.4",
+  "cases": {
+    "CryptoApiModeTests.EncryptBytes_Ecb_NoPaddingKeepsTheLengthOfTheInput": {
+      "fails": "1 of 1 checks failed: length of the output for one block of plaintext with NoPadding: expected 16, got 32"
+    },
+    "CryptoApiModeTests.EncryptBytes_Cbc_NoPaddingKeepsTheLengthOfTheInput": {
+      "fails": "1 of 1 checks failed: length of the output for one block of plaintext with NoPadding: expected 16, got 32"
+    },
+    "CryptoApiModeTests.EncryptBytes_Ecb_Pkcs7OfOneBlockGivesTwoBlocks": {
+      "fails": "1 of 1 checks failed: length of the ECB output for 16 bytes with PKCS7 (one block of data and one of padding): expected 32, got 48"
+    },
+    "CryptoApiModeTests.EncryptBytes_Cbc_Pkcs7OfOneBlockGivesTwoBlocks": {
+      "fails": "1 of 1 checks failed: length of the CBC output for 16 bytes with PKCS7 (one block of data and one of padding): expected 32, got 48"
+    },
+    "CryptoApiModeTests.EncryptBytes_Ecb_RefusesAKeyOfFiveBytes": {
+      "fails": "1 of 1 checks failed: bytes returned by ECB for a key of 5 bytes (an AES key has 16, 24 or 32 bytes): expected 0, got 32"
+    },
+    "CryptoApiModeTests.EncryptBytes_Cbc_RefusesAKeyOfFortyBytes": {
+      "fails": "1 of 1 checks failed: bytes returned by CBC for a key of 40 bytes (an AES key has 16, 24 or 32 bytes): expected 0, got 32"
+    },
+    "DefaultsAndConstantsTests.CryptModeConstants_EcbAndCbcMatchWincryptH": {
+      "fails": "2 of 2 checks failed: CRYPT_MODE_ECB (wincrypt.h: 2): expected 2, got 1; CRYPT_MODE_CBC (wincrypt.h: 1): expected 1, got 2"
+    },
+    "FailureTests.EncryptBytes_NoKey_ErrorNamesTheCause": {
+      "fails": "1 of 1 checks failed: error description of EncryptBytes with no key: expected \"Key not set\", got \"Unspecified error\""
+    },
+    "FailureTests.DecryptBytes_NoKey_ErrorNamesTheCause": {
+      "fails": "1 of 1 checks failed: error description of DecryptBytes with no key: expected \"Key not set\", got \"Unspecified error\""
+    },
+    "FailureTests.DecryptBytes_GcmDamagedTag_ErrorNamesTheCause": {
+      "fails": "1 of 1 checks failed: error description of DecryptBytes with a damaged GCM tag names the cause (got Unspecified error): expected True, got False"
+    },
+    "FailureTests.EncryptString_NoKey_ReportsTheFailure": {
+      "fails": "1 of 1 checks failed: LastError after EncryptString with no key: expected True, got False"
+    },
+    "FailureTests.DecryptString_GcmDamagedTag_ReportsTheFailure": {
+      "fails": "1 of 1 checks failed: LastError after DecryptString of a GCM message with a damaged tag: expected True, got False"
+    },
+    "GcmTests.EncryptBytes_Gcm_DefaultPaddingGivesTheStandardOutput": {
+      "fails": "3 of 6 checks failed: GCM test case 4 with the default PaddingMode (PKCS7) ciphertext: length of the output in bytes: expected 60, got 64; GCM test case 4 with the default PaddingMode (PKCS7) ciphertext: block 4: expected \"1ba30b396a0aac973d58e091\", got \"1ba30b396a0aac973d58e09159948fd4\"; GCM test case 4 with the default PaddingMode (PKCS7): GcmTag: expected \"5bc94fbc3221a5db94fae95ae7121a47\", got \"9f317bdde9fe9d1f6067fe4688c687c1\""
+    },
+    "GcmTests.EncryptBytes_Gcm_NoIVCanBeDecrypted": {
+      "fails": "1 of 1 checks failed: plaintext from the ciphertext, GcmTag and IV of a GCM encryption that had no IV set: expected \"48656c6c6f2c2041455321\", got \"\""
+    },
+    "GcmTests.EncryptBytes_Gcm_NoIVLeavesTheNonceInIV": {
+      "fails": "1 of 1 checks failed: length of the IV property after a GCM encryption that had no IV set (the nonce it used): expected 12, got 0"
+    },
+    "GcmTests.SetGcmAADFromString_EmptyTextRemovesTheData": {
+      "fails": "1 of 1 checks failed: bytes in GcmAAD after SetGcmAADFromString with an empty text: expected 0, got 6"
+    },
+    "HelperTests.Base64Decode_InvalidText_LastErrorNamesTheCause": {
+      "fails": "1 of 1 checks failed: LastError after Base64Decode of text that is not Base64: expected \"Failed to get Base64 decoding length\", got \"Base64 decoding exception: Unspecified error\""
+    },
+    "HelperTests.RemovePKCS7Padding_InvalidPadding_LastErrorNamesTheCause": {
+      "fails": "1 of 1 checks failed: LastError after RemovePKCS7Padding of data whose last byte is 102: expected \"Invalid PKCS7 padding length: 102\", got \"PKCS7 unpadding exception: Unspecified error\""
+    },
+    "KeyAndIVTests.SetKeyFromString_DifferentTextsGiveDifferentKeys": {
+      "fails": "1 of 1 checks failed: keys made from two texts that differ after the 32nd character: expected True, got False"
+    },
+    "KeyAndIVTests.SetKeyFromString_ShortTextIsNotExtendedWithZeroBytes": {
+      "fails": "1 of 1 checks failed: bytes 4 to 32 of the key made from the text abc are all zero: expected False, got True"
+    },
+    "KeyAndIVTests.GenerateRandomIV_TwoCallsFromTheSameRndStateGiveDifferentIVs": {
+      "fails": "1 of 1 checks failed: pairs of equal IVs among 200 pairs made from the same state of Rnd: expected 0, got 200"
+    },
+    "ModeTests.EncryptBytes_Ecb_EqualPlainBlocksGiveEqualCipherBlocks": {
+      "fails": "1 of 2 checks failed: first and second block of the ECB output for two equal plaintext blocks: expected \"53d3a493477c55406717d8fb90895565\", got \"3bdc179f8b90bc2f4bb999808955235b\""
+    },
+    "ModeTests.EncryptBytes_Cbc_EqualPlainBlocksGiveDifferentCipherBlocks": {
+      "fails": "1 of 2 checks failed: first and second block of the CBC output for two equal plaintext blocks differ: expected True, got False"
+    },
+    "ModeTests.EncryptBytes_Cbc_DefaultModeGivesDifferentCipherBlocksForEqualPlainBlocks": {
+      "fails": "1 of 2 checks failed: first and second block of the output of a new cAes (CBC) for two equal plaintext blocks differ: expected True, got False"
+    },
+    "ModeTests.EncryptBytes_Cbc_IVChangesTheCiphertext": {
+      "fails": "1 of 2 checks failed: CBC output with the IV 000102... and with the IV ffff...: expected True, got False"
+    },
+    "ModeTests.EncryptBytes_Ofb_DiffersFromCfbAfterTheFirstBlock": {
+      "fails": "1 of 2 checks failed: CFB and OFB output after the first block, for the same key, IV and plaintext: expected True, got False"
+    },
+    "ModeTests.EncryptBytes_Ctr_DiffersFromCfb": {
+      "fails": "1 of 2 checks failed: CFB and CTR output for the same key, IV and plaintext: expected True, got False"
+    },
+    "ModeTests.EncryptBytes_Ctr_DiffersFromOfb": {
+      "fails": "1 of 2 checks failed: OFB and CTR output for the same key, IV and plaintext: expected True, got False"
+    },
+    "PaddingTests.EncryptBytes_Iso10126_PadsToTheNextWholeBlock": {
+      "fails": "2 of 2 checks failed: ISO10126: output length for 5 bytes: expected 16, got 5; ISO10126: output length for 16 bytes: expected 32, got 16"
+    },
+    "PaddingTests.DecryptBytes_ZeroPadding_KeepsTheTrailingZeroBytesOfTheData": {
+      "fails": "1 of 1 checks failed: ZeroPadding, data 41 42 00 00: the decrypted bytes: expected \"41420000\", got \"4142\""
+    },
+    "PaddingTests.DecryptBytes_ZeroPadding_DataOfZeroBytesRoundTrips": {
+      "fails": "1 of 1 checks failed: ZeroPadding, data 00 00 00 00: DecryptBytes raised error -2147467259, Unspecified error"
+    },
+    "StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheBlockOfFips197C1": {
+      "fails": "2 of 2 checks failed: AES-128 (FIPS 197 C.1): length of the output in bytes: expected 16, got 32; AES-128 (FIPS 197 C.1): block 1: expected \"69c4e0d86a7b0430d8cdb78070b4c55a\", got \"3e383f2d7692bc1d0c860cfdcbb1e2d0\""
+    },
+    "StandardVectorTests.EncryptBytes_Ecb_Aes192_GivesTheBlockOfFips197C2": {
+      "fails": "2 of 2 checks failed: AES-192 (FIPS 197 C.2): length of the output in bytes: expected 16, got 32; AES-192 (FIPS 197 C.2): block 1: expected \"dda97ca4864cdfe06eaf70a0ec0d7191\", got \"ead01d5be6633bead6c0f4a0f3d98853\""
+    },
+    "StandardVectorTests.EncryptBytes_Ecb_Aes256_GivesTheBlockOfFips197C3": {
+      "fails": "2 of 2 checks failed: AES-256 (FIPS 197 C.3): length of the output in bytes: expected 16, got 32; AES-256 (FIPS 197 C.3): block 1: expected \"8ea2b7ca516745bfeafc49904b496089\", got \"ff69553d296398da20623117ea23293d\""
+    },
+    "StandardVectorTests.EncryptBytes_Ecb_Aes128_GivesTheVectorOfSp80038aF11": {
+      "fails": "5 of 5 checks failed: ECB-AES128.Encrypt (F.1.1): length of the output in bytes: expected 64, got 80; ECB-AES128.Encrypt (F.1.1): block 1: expected \"3ad77bb40d7a3660a89ecaf32466ef97\", got \"ac9a269e4ecc8fd1bc78dc547006ec44\"; ECB-AES128.Encrypt (F.1.1): block 2: expected \"f5d3d58503b9699de785895a96fdbaaf\", got \"6b2c9bae6bf241439a1f16faea099297\"; ECB-AES128.Encrypt (F.1.1): block 3: expected \"43b1cd7f598ece23881b00e3ed030688\", got \"0b80c01e483c14de96b4fc70cf7c75d8\"; ECB-AES128.Encrypt (F.1.1): block 4: expected \"7b0c785e27e8ad3f8223207104725dd4\", got \"47df8a8a852e5c894417f26f9360dd0f\""
+    },
+    "StandardVectorTests.EncryptBytes_Ecb_Aes192_GivesTheVectorOfSp80038aF13": {
+      "fails": "5 of 5 checks failed: ECB-AES192.Encrypt (F.1.3): length of the output in bytes: expected 64, got 80; ECB-AES192.Encrypt (F.1.3): block 1: expected \"bd334f1d6e45f25ff712a214571fa5cc\", got \"ff86877cb79bf1efea3ea1aac89c30e1\"; ECB-AES192.Encrypt (F.1.3): block 2: expected \"974104846d0ad3ad7734ecb3ecee4eef\", got \"c514800c8ecd9d526cfb1464e67f69b7\"; ECB-AES192.Encrypt (F.1.3): block 3: expected \"ef7afd2270e2e60adce0ba2face6444e\", got \"fda14c74b7ee019583bfb34a0807b2ab\"; ECB-AES192.Encrypt (F.1.3): block 4: expected \"9a4b41ba738d6c72fb16691603c18e0e\", got \"980f6c02ee345b615cc8f62dcbec239a\""
+    },
+    "StandardVectorTests.EncryptBytes_Ecb_Aes256_GivesTheVectorOfSp80038aF15": {
+      "fails": "5 of 5 checks failed: ECB-AES256.Encrypt (F.1.5): length of the output in bytes: expected 64, got 80; ECB-AES256.Encrypt (F.1.5): block 1: expected \"f3eed1bdb5d2a03c064b5a7e3db181f8\", got \"d050a860e3b7d95f2e43beca80ac164c\"; ECB-AES256.Encrypt (F.1.5): block 2: expected \"591ccb10d410ed26dc5ba74a31362870\", got \"a44a986ccc93ad0521f1be656344a51c\"; ECB-AES256.Encrypt (F.1.5): block 3: expected \"b6ed21b99ca6f4f9f153e7b1beafed1d\", got \"90bfced489caa54df5a87b9dec3a1af8\"; ECB-AES256.Encrypt (F.1.5): block 4: expected \"23304b7a39f9f3ff067d8d8f9e24ecc7\", got \"c9c68c0990db538d982655891c777ba0\""
+    },
+    "StandardVectorTests.DecryptBytes_Ecb_Aes128_GivesThePlaintextOfSp80038aF12": {
+      "fails": "6 of 6 checks failed: ECB-AES128.Decrypt (F.1.2): DecryptBytes raised error -2147467259, Unspecified error; ECB-AES128.Decrypt (F.1.2): length of the output in bytes: expected 64, got 0; ECB-AES128.Decrypt (F.1.2): block 1: expected \"6bc1bee22e409f96e93d7e117393172a\", got \"\"; ECB-AES128.Decrypt (F.1.2): block 2: expected \"ae2d8a571e03ac9c9eb76fac45af8e51\", got \"\"; ECB-AES128.Decrypt (F.1.2): block 3: expected \"30c81c46a35ce411e5fbc1191a0a52ef\", got \"\"; ECB-AES128.Decrypt (F.1.2): block 4: expected \"f69f2445df4f9b17ad2b417be66c3710\", got \"\""
+    },
+    "StandardVectorTests.EncryptBytes_Cbc_Aes128_GivesTheVectorOfSp80038aF21": {
+      "fails": "5 of 5 checks failed: CBC-AES128.Encrypt (F.2.1): length of the output in bytes: expected 64, got 80; CBC-AES128.Encrypt (F.2.1): block 1: expected \"7649abac8119b246cee98e9b12e9197d\", got \"ac9a269e4ecc8fd1bc78dc547006ec44\"; CBC-AES128.Encrypt (F.2.1): block 2: expected \"5086cb9b507219ee95db113a917678b2\", got \"42d97feff67504733c2a17029282d2c4\"; CBC-AES128.Encrypt (F.2.1): block 3: expected \"73bed6b8e3c1743b7116e69e22229516\", got \"96f2fb3d077903791c0c598304c4cd58\"; CBC-AES128.Encrypt (F.2.1): block 4: expected \"3ff1caa1681fac09120eca307586e1a7\", got \"66d0fd858995854b2189721ba537cb29\""
+    },
+    "StandardVectorTests.EncryptBytes_Cbc_Aes192_GivesTheVectorOfSp80038aF23": {
+      "fails": "5 of 5 checks failed: CBC-AES192.Encrypt (F.2.3): length of the output in bytes: expected 64, got 80; CBC-AES192.Encrypt (F.2.3): block 1: expected \"4f021db243bc633d7178183a9fa071e8\", got \"ff86877cb79bf1efea3ea1aac89c30e1\"; CBC-AES192.Encrypt (F.2.3): block 2: expected \"b4d9ada9ad7dedf4e5e738763f69145a\", got \"177e8f6436774ff56c20df1fdda9a27c\"; CBC-AES192.Encrypt (F.2.3): block 3: expected \"571b242012fb7ae07fa9baac3df102e0\", got \"750f7db3da17fd6db61f30ceb5cec1a9\"; CBC-AES192.Encrypt (F.2.3): block 4: expected \"08b0e27988598881d920a9e64f5615cd\", got \"bde45055ab0047080399eddc43157ad6\""
+    },
+    "StandardVectorTests.EncryptBytes_Cbc_Aes256_GivesTheVectorOfSp80038aF25": {
+      "fails": "5 of 5 checks failed: CBC-AES256.Encrypt (F.2.5): length of the output in bytes: expected 64, got 80; CBC-AES256.Encrypt (F.2.5): block 1: expected \"f58c4c04d6e5f1ba779eabfb5f7bfbd6\", got \"d050a860e3b7d95f2e43beca80ac164c\"; CBC-AES256.Encrypt (F.2.5): block 2: expected \"9cfc4e967edb808d679f777bc6702c7d\", got \"cd6933eb1684c71900d3b9479d8843af\"; CBC-AES256.Encrypt (F.2.5): block 3: expected \"39f23369a9d9bacfa530e26304231461\", got \"2e5b0bf09b4b1f3236265c2e29185d91\"; CBC-AES256.Encrypt (F.2.5): block 4: expected \"b2eb05e2c39be9fcda6c19078c6a9d1b\", got \"1b3ea55de5a1bf1ac5cd8aaf314b5d5b\""
+    },
+    "StandardVectorTests.DecryptBytes_Cbc_Aes128_GivesThePlaintextOfSp80038aF22": {
+      "fails": "6 of 6 checks failed: CBC-AES128.Decrypt (F.2.2): DecryptBytes raised error -2147467259, Unspecified error; CBC-AES128.Decrypt (F.2.2): length of the output in bytes: expected 64, got 0; CBC-AES128.Decrypt (F.2.2): block 1: expected \"6bc1bee22e409f96e93d7e117393172a\", got \"\"; CBC-AES128.Decrypt (F.2.2): block 2: expected \"ae2d8a571e03ac9c9eb76fac45af8e51\", got \"\"; CBC-AES128.Decrypt (F.2.2): block 3: expected \"30c81c46a35ce411e5fbc1191a0a52ef\", got \"\"; CBC-AES128.Decrypt (F.2.2): block 4: expected \"f69f2445df4f9b17ad2b417be66c3710\", got \"\""
+    },
+    "StandardVectorTests.EncryptBytes_Cfb_Aes128_GivesTheVectorOfSp80038aF313": {
+      "fails": "4 of 5 checks failed: CFB128-AES128.Encrypt (F.3.13): block 1: expected \"3b3fd92eb72dad20333449f8e83cfb4a\", got \"3b79424c9c0dd436bace9e0ed4586a4f\"; CFB128-AES128.Encrypt (F.3.13): block 2: expected \"c8a64537a0b3a93fcde3cdad9f1ce58b\", got \"32b9ded50ae3ba69d472e88267fb5052\"; CFB128-AES128.Encrypt (F.3.13): block 3: expected \"26751f67a3cbb140b1808cf187a4f4df\", got \"70cbad1e257691f7c47c5038297edda3\"; CFB128-AES128.Encrypt (F.3.13): block 4: expected \"c04b05357c5d1c0eeac4c66f9ff7f2e6\", got \"2ff26d0ed19174096161ecc14086dd62\""
+    },
+    "StandardVectorTests.EncryptBytes_Cfb_Aes192_GivesTheVectorOfSp80038aF315": {
+      "fails": "4 of 5 checks failed: CFB128-AES192.Encrypt (F.3.15): block 1: expected \"cdc80d6fddf18cab34c25909c99a4174\", got \"cda2521ef0a905ca44cd057cbf0d47a0\"; CFB128-AES192.Encrypt (F.3.15): block 2: expected \"67ce7f7f81173621961a2b70171d3d7a\", got \"678a7bcfb6aeaa3047b38936021f48bb\"; CFB128-AES192.Encrypt (F.3.15): block 3: expected \"2e1e8a1dd59b88b1c8e60fed1efac4c9\", got \"b63cefdac02b2e840904efce6f4326be\"; CFB128-AES192.Encrypt (F.3.15): block 4: expected \"c05f9f9ca9834fa042ae8fba584b09ff\", got \"228683739063dc30e937ffedd63e3c94\""
+    },
+    "StandardVectorTests.EncryptBytes_Cfb_Aes256_GivesTheVectorOfSp80038aF317": {
+      "fails": "4 of 5 checks failed: CFB128-AES256.Encrypt (F.3.17): block 1: expected \"dc7e84bfda79164b7ecd8486985d3860\", got \"dc1f1a8520a64db55fcc8ac554844e88\"; CFB128-AES256.Encrypt (F.3.17): block 2: expected \"39ffed143b28b1c832113c6331e5407b\", got \"9700adc6e10c63cf2d8cd2d8ce668f3e\"; CFB128-AES256.Encrypt (F.3.17): block 3: expected \"df10132415e54b92a13ed0a8267ae2f9\", got \"b9191719c47444fb43bff9b9883c2cd0\"; CFB128-AES256.Encrypt (F.3.17): block 4: expected \"75a385741ab9cef82031623d55b1e471\", got \"51120402009f974998c89d195722a75b\""
+    },
+    "StandardVectorTests.DecryptBytes_Cfb_Aes128_GivesThePlaintextOfSp80038aF314": {
+      "fails": "4 of 5 checks failed: CFB128-AES128.Decrypt (F.3.14): block 1: expected \"6bc1bee22e409f96e93d7e117393172a\", got \"6b8783f478fffa5eac98bc2ceb75682a\"; CFB128-AES128.Decrypt (F.3.14): block 2: expected \"ae2d8a571e03ac9c9eb76fac45af8e51\", got \"ae3b047e5c445a943dbe87eec5700937\"; CFB128-AES128.Decrypt (F.3.14): block 3: expected \"30c81c46a35ce411e5fbc1191a0a52ef\", got \"30b040012e1b1e28062587040531a8f4\"; CFB128-AES128.Decrypt (F.3.14): block 4: expected \"f69f2445df4f9b17ad2b417be66c3710\", got \"f67bc3cde8cd2698c918eff66c8be1f2\""
+    },
+    "StandardVectorTests.EncryptBytes_Ofb_Aes128_GivesTheVectorOfSp80038aF41": {
+      "fails": "4 of 5 checks failed: OFB-AES128.Encrypt (F.4.1): block 1: expected \"3b3fd92eb72dad20333449f8e83cfb4a\", got \"3b79424c9c0dd436bace9e0ed4586a4f\"; OFB-AES128.Encrypt (F.4.1): block 2: expected \"7789508d16918f03f53c52dac54ed825\", got \"32b9ded50ae3ba69d472e88267fb5052\"; OFB-AES128.Encrypt (F.4.1): block 3: expected \"9740051e9c5fecf64344f7a82260edcc\", got \"70cbad1e257691f7c47c5038297edda3\"; OFB-AES128.Encrypt (F.4.1): block 4: expected \"304c6528f659c77866a510d9c1d6ae5e\", got \"2ff26d0ed19174096161ecc14086dd62\""
+    },
+    "StandardVectorTests.EncryptBytes_Ofb_Aes192_GivesTheVectorOfSp80038aF43": {
+      "fails": "4 of 5 checks failed: OFB-AES192.Encrypt (F.4.3): block 1: expected \"cdc80d6fddf18cab34c25909c99a4174\", got \"cda2521ef0a905ca44cd057cbf0d47a0\"; OFB-AES192.Encrypt (F.4.3): block 2: expected \"fcc28b8d4c63837c09e81700c1100401\", got \"678a7bcfb6aeaa3047b38936021f48bb\"; OFB-AES192.Encrypt (F.4.3): block 3: expected \"8d9a9aeac0f6596f559c6d4daf59a5f2\", got \"b63cefdac02b2e840904efce6f4326be\"; OFB-AES192.Encrypt (F.4.3): block 4: expected \"6d9f200857ca6c3e9cac524bd9acc92a\", got \"228683739063dc30e937ffedd63e3c94\""
+    },
+    "StandardVectorTests.EncryptBytes_Ofb_Aes256_GivesTheVectorOfSp80038aF45": {
+      "fails": "4 of 5 checks failed: OFB-AES256.Encrypt (F.4.5): block 1: expected \"dc7e84bfda79164b7ecd8486985d3860\", got \"dc1f1a8520a64db55fcc8ac554844e88\"; OFB-AES256.Encrypt (F.4.5): block 2: expected \"4febdc6740d20b3ac88f6ad82a4fb08d\", got \"9700adc6e10c63cf2d8cd2d8ce668f3e\"; OFB-AES256.Encrypt (F.4.5): block 3: expected \"71ab47a086e86eedf39d1c5bba97c408\", got \"b9191719c47444fb43bff9b9883c2cd0\"; OFB-AES256.Encrypt (F.4.5): block 4: expected \"0126141d67f37be8538f5a8be740e484\", got \"51120402009f974998c89d195722a75b\""
+    },
+    "StandardVectorTests.DecryptBytes_Ofb_Aes128_GivesThePlaintextOfSp80038aF42": {
+      "fails": "4 of 5 checks failed: OFB-AES128.Decrypt (F.4.2): block 1: expected \"6bc1bee22e409f96e93d7e117393172a\", got \"6b8783f478fffa5eac98bc2ceb75682a\"; OFB-AES128.Decrypt (F.4.2): block 2: expected \"ae2d8a571e03ac9c9eb76fac45af8e51\", got \"11a02be0e0383dfe725368e9bbac82ea\"; OFB-AES128.Decrypt (F.4.2): block 3: expected \"30c81c46a35ce411e5fbc1191a0a52ef\", got \"9cc1708902eda5c4bc376917c616e499\"; OFB-AES128.Decrypt (F.4.2): block 4: expected \"f69f2445df4f9b17ad2b417be66c3710\", got \"a9cca55f01aa6cc44df667c9d7b6c5d8\""
+    },
+    "StandardVectorTests.EncryptBytes_Ctr_Aes128_GivesTheVectorOfSp80038aF51": {
+      "fails": "4 of 5 checks failed: CTR-AES128.Encrypt (F.5.1): block 1: expected \"874d6191b620e3261bef6864990db6ce\", got \"8755df09dbbbc1cbadcee178efafb067\"; CTR-AES128.Encrypt (F.5.1): block 2: expected \"9806f66b7970fdff8617187bb9fffdff\", got \"3ee36d23f9001b9ef6b5eeb2b438945c\"; CTR-AES128.Encrypt (F.5.1): block 3: expected \"5ae4df3edbd5d35e5b4f09020db03eab\", got \"a7e037322faaa8de04beecd70a6fefa8\"; CTR-AES128.Encrypt (F.5.1): block 4: expected \"1e031dda2fbe03d1792170a0f3009cee\", got \"79ea4db3f2965e31e2b3e526810c48ea\""
+    },
+    "StandardVectorTests.EncryptBytes_Ctr_Aes192_GivesTheVectorOfSp80038aF53": {
+      "fails": "4 of 5 checks failed: CTR-AES192.Encrypt (F.5.3): block 1: expected \"1abc932417521ca24f2b0459fe7e6e0b\", got \"1a5ae2ee4eac4f441fc82b8aeda0c571\"; CTR-AES192.Encrypt (F.5.3): block 2: expected \"090339ec0aa6faefd5ccc2c6f4ce8e94\", got \"2912692d76e27d771b1dbda13b8d0bbc\"; CTR-AES192.Encrypt (F.5.3): block 3: expected \"1e36b26bd1ebc670d1bd1d665620abf7\", got \"4a0e6ed2e129ed016eda0009bab48bb7\"; CTR-AES192.Encrypt (F.5.3): block 4: expected \"4f78a7f6d29809585a97daec58c6b050\", got \"41577f9294c5b15d43457fcb7316ecc6\""
+    },
+    "StandardVectorTests.EncryptBytes_Ctr_Aes256_GivesTheVectorOfSp80038aF55": {
+      "fails": "4 of 5 checks failed: CTR-AES256.Encrypt (F.5.5): block 1: expected \"601ec313775789a5b7a7f504bbf3d228\", got \"60905bb39eebfc480d5823a2b95c875d\"; CTR-AES256.Encrypt (F.5.5): block 2: expected \"f443e3ca4d62b59aca84e990cacaf5c5\", got \"f8f41193d43f6b1d55fdc9c3a1746e77\"; CTR-AES256.Encrypt (F.5.5): block 3: expected \"2b0930daa23de94ce87017ba2d84988d\", got \"e39bf79e8aeaa7aa9a7a7603d2b5848d\"; CTR-AES256.Encrypt (F.5.5): block 4: expected \"dfc9c58db67aada613c2dd08457941a6\", got \"84177cd8bfa0a28dc2609a3843611157\""
+    },
+    "StandardVectorTests.DecryptBytes_Ctr_Aes128_GivesThePlaintextOfSp80038aF52": {
+      "fails": "4 of 5 checks failed: CTR-AES128.Decrypt (F.5.2): block 1: expected \"6bc1bee22e409f96e93d7e117393172a\", got \"6bd9aca7eda9aecc2b115b3e53be6826\"; CTR-AES128.Decrypt (F.5.2): block 2: expected \"ae2d8a571e03ac9c9eb76fac45af8e51\", got \"a3c43242cbc4f1c1d64daaed898a8217\"; CTR-AES128.Decrypt (F.5.2): block 3: expected \"30c81c46a35ce411e5fbc1191a0a52ef\", got \"2202a36aa2ddc193549753e06bffd849\"; CTR-AES128.Decrypt (F.5.2): block 4: expected \"f69f2445df4f9b17ad2b417be66c3710\", got \"36083fa644d0a8e898aa36143e9a3a6a\""
+    }
+  }
+}
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Cells.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Cells.twin
new file mode 100644
index 00000000..e5cb773e
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Cells.twin
@@ -0,0 +1,92 @@
+' TBMANLIB_ConsoleComponents: reading the cells of a screen buffer back, for the cases that draw.
+Module Cells
+
+    Private Declare PtrSafe Function K_SafeArrayCreateVector Lib "oleaut32" Alias "SafeArrayCreateVector" (ByVal vt As Integer, ByVal lLbound As Long, ByVal cElements As Long) As LongPtr
+    Private Declare PtrSafe Sub K_Copy Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+
+    ' An array with no element (lower bound 0, upper bound -1), as a Variant. ReDim cannot make one:
+    ' it raises error -2147467259 for an upper bound below the lower bound. Vt is the VarType of an
+    ' element: 5 for a Double, 3 for a Long or an enumeration, 8 for a String.
+    Public Function EmptyArray(ByVal Vt As Integer) As Variant
+        Dim p As LongPtr = K_SafeArrayCreateVector(Vt, 0, 0)
+        Dim v As Variant
+        Dim t As Integer = Vt Or &H2000
+        K_Copy VarPtr(v), VarPtr(t), 2
+        K_Copy VarPtr(v) + 8, VarPtr(p), LenB(p)
+        EmptyArray = v
+    End Function
+
+    ' The characters of Count cells of a row, from a column; the rest of the row when Count is -1.
+    Public Function Text(ByVal Buf As cConsoleBuffer, ByVal Row As Long, Optional ByVal FromCol As Long = 0, Optional ByVal Count As Long = -1) As String
+        Dim ci As ConsoleCharInfo
+        Dim s As String
+        Dim x As Long
+        If Count < 0 Then Count = Buf.Width - FromCol
+        For x = FromCol To FromCol + Count - 1
+            ci = Buf.GetChar(x, Row)
+            s = s & ci.Char
+        Next
+        Text = s
+    End Function
+
+    ' The code points of Count cells of a row as hexadecimal numbers separated by a space.
+    Public Function Codes(ByVal Buf As cConsoleBuffer, ByVal Row As Long, ByVal FromCol As Long, ByVal Count As Long) As String
+        Dim ci As ConsoleCharInfo
+        Dim s As String
+        Dim x As Long
+        For x = FromCol To FromCol + Count - 1
+            ci = Buf.GetChar(x, Row)
+            If x > FromCol Then s = s & " "
+            s = s & Hex$(AscW(ci.Char))
+        Next
+        Codes = s
+    End Function
+
+    ' The code point of one cell.
+    Public Function Code(ByVal Buf As cConsoleBuffer, ByVal Col As Long, ByVal Row As Long) As Long
+        Dim ci As ConsoleCharInfo
+        ci = Buf.GetChar(Col, Row)
+        Code = AscW(ci.Char) And &HFFFF&
+    End Function
+
+    Public Function Fore(ByVal Buf As cConsoleBuffer, ByVal Col As Long, ByVal Row As Long) As Long
+        Dim ci As ConsoleCharInfo
+        ci = Buf.GetChar(Col, Row)
+        Fore = CLng(ci.ForeColor)
+    End Function
+
+    Public Function Back(ByVal Buf As cConsoleBuffer, ByVal Col As Long, ByVal Row As Long) As Long
+        Dim ci As ConsoleCharInfo
+        ci = Buf.GetChar(Col, Row)
+        Back = CLng(ci.BackColor)
+    End Function
+
+    ' A picture of a rectangle of cells for a failure report: the cell as the character, or as
+    ' "." for a space, "#" for a full block (U+2588), "-" for a light shade (U+2591) and {code} for
+    ' another character beyond ASCII; rows are joined by "|".
+    Public Function Picture(ByVal Buf As cConsoleBuffer, ByVal Col As Long, ByVal Row As Long, ByVal Width As Long, ByVal Height As Long) As String
+        Dim s As String
+        Dim x As Long
+        Dim y As Long
+        Dim c As Long
+        For y = Row To Row + Height - 1
+            If y > Row Then s = s & "|"
+            For x = Col To Col + Width - 1
+                c = Code(Buf, x, y)
+                If c = 32 Then
+                    s = s & "."
+                ElseIf c = &H2588& Then
+                    s = s & "#"
+                ElseIf c = &H2591& Then
+                    s = s & "-"
+                ElseIf c < 128 Then
+                    s = s & ChrW$(c)
+                Else
+                    s = s & "{" & Hex$(c) & "}"
+                End If
+            Next
+        Next
+        Picture = s
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ColorHelperTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ColorHelperTests.twin
new file mode 100644
index 00000000..d7fd4894
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ColorHelperTests.twin
@@ -0,0 +1,273 @@
+' TBMANLIB_ConsoleComponents: cColorHelper. It needs no console, so it works with the package as it is.
+[TestFixture]
+Module ColorHelperTests
+
+    ' ---- HeatmapColor
+
+    [TestCase]
+    Public Sub HeatmapColor_ThresholdsAreAtHalfAndEightTenths()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.HeatmapColor(0, 0, 100)), "HeatmapColor of 0 in 0 to 100"
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.HeatmapColor(49.9, 0, 100)), "HeatmapColor of 49.9"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.HeatmapColor(50, 0, 100)), "HeatmapColor of 50"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.HeatmapColor(79.9, 0, 100)), "HeatmapColor of 79.9"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.HeatmapColor(80, 0, 100)), "HeatmapColor of 80"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.HeatmapColor(100, 0, 100)), "HeatmapColor of 100"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HeatmapColor_ValueOutsideTheRange_IsLimitedToIt()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.HeatmapColor(-50, 0, 100)), "HeatmapColor of -50"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.HeatmapColor(500, 0, 100)), "HeatmapColor of 500"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HeatmapColor_MaxNotAboveMin_IsTheMiddleColour()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.HeatmapColor(5, 10, 10)), "HeatmapColor with min equal to max"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.HeatmapColor(5, 10, 3)), "HeatmapColor with max below min"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HeatmapColor_GivenColours_AreUsedInPlaceOfTheDefaults()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.Blue), CLng(h.HeatmapColor(10, 0, 100, ConsoleColor.Blue, ConsoleColor.Cyan, ConsoleColor.White)), "low colour"
+        Expect.AreEqual CLng(ConsoleColor.Cyan), CLng(h.HeatmapColor(60, 0, 100, ConsoleColor.Blue, ConsoleColor.Cyan, ConsoleColor.White)), "mid colour"
+        Expect.AreEqual CLng(ConsoleColor.White), CLng(h.HeatmapColor(95, 0, 100, ConsoleColor.Blue, ConsoleColor.Cyan, ConsoleColor.White)), "high colour"
+        Expect.Done
+    End Sub
+
+    ' ---- GradientColor
+
+    [TestCase]
+    Public Sub GradientColor_ChoosesAmongTheThreeColoursAtAQuarterAndThreeQuarters()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim a As ConsoleColor = ConsoleColor.Red
+        Dim b As ConsoleColor = ConsoleColor.Green
+        Dim c As ConsoleColor = ConsoleColor.Blue
+        Expect.AreEqual CLng(a), CLng(h.GradientColor(0, 0, 100, a, b, c)), "GradientColor of 0"
+        Expect.AreEqual CLng(a), CLng(h.GradientColor(24.9, 0, 100, a, b, c)), "GradientColor of 24.9"
+        Expect.AreEqual CLng(b), CLng(h.GradientColor(25, 0, 100, a, b, c)), "GradientColor of 25"
+        Expect.AreEqual CLng(b), CLng(h.GradientColor(74.9, 0, 100, a, b, c)), "GradientColor of 74.9"
+        Expect.AreEqual CLng(c), CLng(h.GradientColor(75, 0, 100, a, b, c)), "GradientColor of 75"
+        Expect.AreEqual CLng(c), CLng(h.GradientColor(100, 0, 100, a, b, c)), "GradientColor of 100"
+        Expect.AreEqual CLng(a), CLng(h.GradientColor(-20, 0, 100, a, b, c)), "GradientColor of -20"
+        Expect.AreEqual CLng(c), CLng(h.GradientColor(300, 0, 100, a, b, c)), "GradientColor of 300"
+        Expect.AreEqual CLng(b), CLng(h.GradientColor(1, 5, 5, a, b, c)), "GradientColor with min equal to max"
+        Expect.Done
+    End Sub
+
+    ' ---- IntensityColor
+
+    [TestCase]
+    Public Sub IntensityColor_EightLevelsInTheOrderOfTheColourNumbers()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(h.IntensityColor(0, 0, 7)), "level 0"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), CLng(h.IntensityColor(1, 0, 7)), "level 1"
+        Expect.AreEqual CLng(ConsoleColor.DarkGreen), CLng(h.IntensityColor(2, 0, 7)), "level 2"
+        Expect.AreEqual CLng(ConsoleColor.DarkCyan), CLng(h.IntensityColor(3, 0, 7)), "level 3"
+        Expect.AreEqual CLng(ConsoleColor.DarkRed), CLng(h.IntensityColor(4, 0, 7)), "level 4"
+        Expect.AreEqual CLng(ConsoleColor.DarkMagenta), CLng(h.IntensityColor(5, 0, 7)), "level 5"
+        Expect.AreEqual CLng(ConsoleColor.DarkYellow), CLng(h.IntensityColor(6, 0, 7)), "level 6"
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), CLng(h.IntensityColor(7, 0, 7)), "level 7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IntensityColor_LevelIsRoundedHalfToEven()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.DarkRed), CLng(h.IntensityColor(3.5, 0, 7)), "level of 3.5 (rounds to 4)"
+        Expect.AreEqual CLng(ConsoleColor.DarkRed), CLng(h.IntensityColor(50, 0, 100)), "IntensityColor of 50 in 0 to 100"
+        Expect.AreEqual CLng(ConsoleColor.DarkRed), CLng(h.IntensityColor(5, 10, 10)), "IntensityColor with min equal to max"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(h.IntensityColor(-9, 0, 7)), "IntensityColor below the range"
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), CLng(h.IntensityColor(99, 0, 7)), "IntensityColor above the range"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IntensityColor_UsesItsBaseColour()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim r As Long = CLng(h.IntensityColor(50, 0, 100, ConsoleColor.Red))
+        Dim b As Long = CLng(h.IntensityColor(50, 0, 100, ConsoleColor.Blue))
+        Expect.IsTrue r <> b, "IntensityColor of 50 with the base colour Red (" & r & ") and with Blue (" & b & ") differ"
+        Expect.Done
+    End Sub
+
+    ' ---- the usage colours
+
+    [TestCase]
+    Public Sub CPUUsageColor_ThresholdsAre50And80()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.CPUUsageColor(49.9)), "CPUUsageColor of 49.9"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.CPUUsageColor(50)), "CPUUsageColor of 50"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.CPUUsageColor(79.9)), "CPUUsageColor of 79.9"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.CPUUsageColor(80)), "CPUUsageColor of 80"
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.CPUUsageColor(-10)), "CPUUsageColor of -10"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.CPUUsageColor(500)), "CPUUsageColor of 500"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MemoryUsageColor_ThresholdsAre70And90()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.MemoryUsageColor(69.9)), "MemoryUsageColor of 69.9"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.MemoryUsageColor(70)), "MemoryUsageColor of 70"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.MemoryUsageColor(89.9)), "MemoryUsageColor of 89.9"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.MemoryUsageColor(90)), "MemoryUsageColor of 90"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DiskUsageColor_ThresholdsAre80And95()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.DiskUsageColor(79.9)), "DiskUsageColor of 79.9"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.DiskUsageColor(80)), "DiskUsageColor of 80"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(h.DiskUsageColor(94.9)), "DiskUsageColor of 94.9"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.DiskUsageColor(95)), "DiskUsageColor of 95"
+        Expect.Done
+    End Sub
+
+    ' ---- contrast and darkness
+
+    [TestCase]
+    Public Sub GetContrastColor_WhiteUpToDarkGray_BlackAbove()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim c As Long
+        For c = 0 To 8
+            Expect.AreEqual CLng(ConsoleColor.White), CLng(h.GetContrastColor(c)), "GetContrastColor of " & c
+        Next
+        For c = 9 To 15
+            Expect.AreEqual CLng(ConsoleColor.Black), CLng(h.GetContrastColor(c)), "GetContrastColor of " & c
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsDarkColor_TrueUpToDarkGray_FalseAbove()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim c As Long
+        For c = 0 To 8
+            Expect.IsTrue h.IsDarkColor(c), "IsDarkColor of " & c
+        Next
+        For c = 9 To 15
+            Expect.IsFalse h.IsDarkColor(c), "IsDarkColor of " & c
+        Next
+        Expect.Done
+    End Sub
+
+    ' ---- DimColor and BrightenColor
+
+    [TestCase]
+    Public Sub DimColor_BrightColour_IsTheDarkColourOfTheSameHue()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), CLng(h.DimColor(ConsoleColor.Blue)), "DimColor of Blue"
+        Expect.AreEqual CLng(ConsoleColor.DarkRed), CLng(h.DimColor(ConsoleColor.Red)), "DimColor of Red"
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(h.DimColor(ConsoleColor.White)), "DimColor of White"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DimColor_DarkColour_IsNotBrighter()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.IsTrue CLng(h.DimColor(ConsoleColor.Black)) <= CLng(ConsoleColor.Black), "DimColor of Black (" & CLng(h.DimColor(ConsoleColor.Black)) & ") is not brighter than Black"
+        Expect.IsTrue CLng(h.DimColor(ConsoleColor.DarkGreen)) <= CLng(ConsoleColor.DarkGreen), "DimColor of DarkGreen (" & CLng(h.DimColor(ConsoleColor.DarkGreen)) & ") is not brighter than DarkGreen"
+        Expect.IsTrue CLng(h.DimColor(ConsoleColor.Gray)) <= CLng(ConsoleColor.Gray), "DimColor of Gray (" & CLng(h.DimColor(ConsoleColor.Gray)) & ") is not brighter than Gray"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BrightenColor_DarkColour_IsTheBrightColourOfTheSameHue()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), CLng(h.BrightenColor(ConsoleColor.Black)), "BrightenColor of Black"
+        Expect.AreEqual CLng(ConsoleColor.Blue), CLng(h.BrightenColor(ConsoleColor.DarkBlue)), "BrightenColor of DarkBlue"
+        Expect.AreEqual CLng(ConsoleColor.White), CLng(h.BrightenColor(ConsoleColor.Gray)), "BrightenColor of Gray"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BrightenColor_BrightColour_IsWhite()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim c As Long
+        For c = 9 To 15
+            Expect.AreEqual CLng(ConsoleColor.White), CLng(h.BrightenColor(c)), "BrightenColor of " & c
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BrightenColor_DarkGray_IsAConsoleColour()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim r As Long = CLng(h.BrightenColor(ConsoleColor.DarkGray))
+        Expect.IsTrue r >= 0 And r <= 15, "BrightenColor of DarkGray (" & r & ") is a ConsoleColor, 0 to 15"
+        Expect.Done
+    End Sub
+
+    ' ---- CycleColor
+
+    [TestCase]
+    Public Sub CycleColor_GoesRoundTheList_AlsoBackwards()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim list(0 To 2) As ConsoleColor
+        list(0) = ConsoleColor.Red
+        list(1) = ConsoleColor.Green
+        list(2) = ConsoleColor.Blue
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.CycleColor(0, list)), "CycleColor of 0"
+        Expect.AreEqual CLng(ConsoleColor.Blue), CLng(h.CycleColor(2, list)), "CycleColor of 2"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(h.CycleColor(3, list)), "CycleColor of 3"
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.CycleColor(7, list)), "CycleColor of 7"
+        Expect.AreEqual CLng(ConsoleColor.Blue), CLng(h.CycleColor(-1, list)), "CycleColor of -1"
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(h.CycleColor(-2, list)), "CycleColor of -2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CycleColor_EmptyList_IsGray()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim list() As ConsoleColor
+        list = Cells.EmptyArray(3)
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(h.CycleColor(5, list)), "CycleColor of an array with no element"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CycleColor_ListStartingAtOne_GivesTheFirstElementForIndexZero()
+        Expect.Begin
+        Dim h As New cColorHelper
+        Dim list(1 To 3) As ConsoleColor
+        list(1) = ConsoleColor.Red
+        list(2) = ConsoleColor.Green
+        list(3) = ConsoleColor.Blue
+        Dim r As Long
+        On Error Resume Next
+        r = CLng(h.CycleColor(0, list))
+        Expect.AreEqual 0, Err.Number, "Err.Number of CycleColor on an array with the lower bound 1"
+        On Error GoTo 0
+        Expect.AreEqual CLng(ConsoleColor.Red), r, "CycleColor of 0 on an array with the lower bound 1"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cConsoleLayout.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cConsoleLayout.twin
new file mode 100644
index 00000000..c2c5046c
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cConsoleLayout.twin
@@ -0,0 +1,393 @@
+' cConsoleLayout.twin of TBMANLIB_ConsoleComponents 1.0.0.1 (woeoio, MIT licence), compiled into this project.
+' The package cannot take the cConsole of TBMANLIB_ConsoleCore (see the notes of its landing page), so the
+' cases that draw run this copy of the code, which is the code of the package below the line of dashes.
+' The package's own classes are reached as TBMANLIB_ConsoleComponents.<name>.
+' ----------------------------------------------------------------------------
+' =====================================================
+' cConsoleLayout.twin - Layout Manager Component
+' Modern Console Library for TwinBASIC - Components
+' =====================================================
+
+[COMCreatable(False)]
+Public Class cConsoleLayout
+
+    Private m_Console As cConsole
+    Private m_ConsoleWidth As Long
+    Private m_ConsoleHeight As Long
+    Private m_Panels As Collection
+    Private m_PanelsDict As Object  ' Dictionary for fast lookup by name
+    Private m_RootPanel As cConsolePanel
+    Private m_Initialized As Boolean
+
+    ' Constructor
+    Public Sub New(ByVal console As cConsole)
+        Set m_Console = console
+        Set m_Panels = New Collection
+        Set m_PanelsDict = CreateObject("Scripting.Dictionary")
+        m_ConsoleWidth = console.Width
+        m_ConsoleHeight = console.Height
+        m_Initialized = True
+    End Sub
+
+    ' Add a panel to the layout
+    Public Function AddPanel(ByVal name As String, _
+                            ByVal left As Long, ByVal top As Long, _
+                            ByVal width As Long, ByVal height As Long, _
+                            Optional ByVal title As String = "") As cConsolePanel
+        Dim panel As cConsolePanel
+        Set panel = New cConsolePanel(name, left, top, width, height)
+        If Len(title) > 0 Then panel.Title = title
+
+        m_Panels.Add panel
+        m_PanelsDict.Add name, panel
+
+        ' Set as root if first panel
+        If m_Panels.Count = 1 Then
+            Set m_RootPanel = panel
+        End If
+
+        Set AddPanel = panel
+    End Function
+
+    ' Add a panel using ConsoleRect
+    Public Function AddPanelByRect(ByVal name As String, _
+                                    ByVal rect As ConsoleRect, _
+                                    Optional ByVal title As String = "") As cConsolePanel
+        Dim width As Long = rect.Right - rect.Left + 1
+        Dim height As Long = rect.Bottom - rect.Top + 1
+        Return AddPanel(name, rect.Left, rect.Top, width, height, title)
+    End Function
+
+    ' Get a panel by name
+    Public Function GetPanel(ByVal name As String) As cConsolePanel
+        If m_PanelsDict.Exists(name) Then
+            Return m_PanelsDict(name)
+        End If
+        Return Nothing
+    End Function
+
+    ' Remove a panel
+    Public Sub RemovePanel(ByVal name As String)
+        If m_PanelsDict.Exists(name) Then
+            Dim panel As cConsolePanel = m_PanelsDict(name)
+            m_PanelsDict.Remove name
+
+            ' Remove from collection
+            Dim i As Long
+            For i = 1 To m_Panels.Count
+                If m_Panels(i) Is panel Then
+                    m_Panels.Remove i
+                    Exit For
+                End If
+            Next i
+
+            ' Update root if needed
+            If m_RootPanel Is panel Then
+                If m_Panels.Count > 0 Then
+                    Set m_RootPanel = m_Panels(1)
+                Else
+                    Set m_RootPanel = Nothing
+                End If
+            End If
+        End If
+    End Sub
+
+    ' Clear all panels
+    Public Sub Clear()
+        Set m_Panels = New Collection
+        Set m_PanelsDict = CreateObject("Scripting.Dictionary")
+        Set m_RootPanel = Nothing
+    End Sub
+
+    ' Get count of panels
+    Public Property Get PanelCount() As Long
+        Return m_Panels.Count
+    End Property
+
+    ' ========== Layout Methods ==========
+
+    ' Create a horizontal split (left and right)
+    Public Function SplitHorizontal(ByVal parentName As String, _
+                                    ByVal ratio As Double, _
+                                    ByVal leftName As String, _
+                                    ByVal rightName As String) As Variant
+        Dim parent As cConsolePanel = GetPanel(parentName)
+        If parent Is Nothing Then Return Nothing
+
+        Dim leftWidth As Long = CLng(parent.ContentWidth() * ratio)
+        Dim rightWidth As Long = parent.ContentWidth() - leftWidth - 1  ' -1 for separator
+        Dim contentHeight As Long = parent.ContentHeight()
+
+        Dim contentRect As ConsoleRect = parent.ContentRect()
+
+        Dim leftPanel As cConsolePanel = AddPanelByRect(leftName, _
+            ConsoleRect_Create(contentRect.Left, contentRect.Top, _
+                             contentRect.Left + leftWidth - 1, contentRect.Bottom))
+
+        Dim rightPanel As cConsolePanel = AddPanelByRect(rightName, _
+            ConsoleRect_Create(contentRect.Left + leftWidth + 1, contentRect.Top, _
+                             contentRect.Right, contentRect.Bottom))
+
+        Dim result(0 To 1) As cConsolePanel
+        Set result(0) = leftPanel
+        Set result(1) = rightPanel
+        SplitHorizontal = result
+    End Function
+
+    ' Create a vertical split (top and bottom)
+    Public Function SplitVertical(ByVal parentName As String, _
+                                  ByVal ratio As Double, _
+                                  ByVal topName As String, _
+                                  ByVal bottomName As String) As Variant
+        Dim parent As cConsolePanel = GetPanel(parentName)
+        If parent Is Nothing Then Return Nothing
+
+        Dim topHeight As Long = CLng(parent.ContentHeight() * ratio)
+        Dim bottomHeight As Long = parent.ContentHeight() - topHeight - 1  ' -1 for separator
+        Dim contentWidth As Long = parent.ContentWidth()
+
+        Dim contentRect As ConsoleRect = parent.ContentRect()
+
+        Dim topPanel As cConsolePanel = AddPanelByRect(topName, _
+            ConsoleRect_Create(contentRect.Left, contentRect.Top, _
+                             contentRect.Right, contentRect.Top + topHeight - 1))
+
+        Dim bottomPanel As cConsolePanel = AddPanelByRect(bottomName, _
+            ConsoleRect_Create(contentRect.Left, contentRect.Top + topHeight + 1, _
+                             contentRect.Right, contentRect.Bottom))
+
+        Dim result(0 To 1) As cConsolePanel
+        Set result(0) = topPanel
+        Set result(1) = bottomPanel
+        SplitVertical = result
+    End Function
+
+    ' Create a grid layout
+    Public Function CreateGrid(ByVal cols As Long, ByVal rows As Long, _
+                              ByVal namePrefix As String) As Variant
+        Dim gridPanels() As cConsolePanel
+        ReDim gridPanels(0 To cols * rows - 1)
+
+        Dim contentRect As ConsoleRect
+        If m_RootPanel Is Nothing Then
+            contentRect = ConsoleRect_Create(0, 0, m_ConsoleWidth - 1, m_ConsoleHeight - 1)
+        Else
+            contentRect = m_RootPanel.ContentRect()
+        End If
+
+        Dim cellWidth As Long = contentRect.Right - contentRect.Left + 1
+        Dim colStep As Long = cellWidth \ cols
+
+        Dim cellHeight As Long = contentRect.Bottom - contentRect.Top + 1
+        Dim rowStep As Long = cellHeight \ rows
+
+        Dim cellIndex As Long = 0
+        Dim r As Long, c As Long
+
+        For r = 0 To rows - 1
+            For c = 0 To cols - 1
+                Dim panelName As String = namePrefix & "_" & cellIndex
+
+                Dim panelRect As ConsoleRect
+                panelRect.Left = contentRect.Left + c * colStep
+                panelRect.Top = contentRect.Top + r * rowStep
+
+                If c = cols - 1 Then
+                    panelRect.Right = contentRect.Right
+                Else
+                    panelRect.Right = panelRect.Left + colStep - 2  ' -2 for separator
+                End If
+
+                If r = rows - 1 Then
+                    panelRect.Bottom = contentRect.Bottom
+                Else
+                    panelRect.Bottom = panelRect.Top + rowStep - 2  ' -2 for separator
+                End If
+
+                Dim panel As cConsolePanel = AddPanelByRect(panelName, panelRect)
+                Set gridPanels(cellIndex) = panel
+                cellIndex += 1
+            Next c
+        Next r
+
+        CreateGrid = gridPanels
+    End Function
+
+    ' Create a sidebar layout
+    Public Function CreateSidebar(ByVal sidebarWidth As Long, _
+                                  ByVal sidebarName As String, _
+                                  ByVal contentName As String) As Variant
+        Dim contentRect As ConsoleRect
+        If m_RootPanel Is Nothing Then
+            contentRect = ConsoleRect_Create(0, 0, m_ConsoleWidth - 1, m_ConsoleHeight - 1)
+        Else
+            contentRect = m_RootPanel.ContentRect()
+        End If
+
+        Dim sidebarPanel As cConsolePanel = AddPanelByRect(sidebarName, _
+            ConsoleRect_Create(contentRect.Left, contentRect.Top, _
+                             contentRect.Left + sidebarWidth - 1, contentRect.Bottom))
+
+        Dim contentPanel As cConsolePanel = AddPanelByRect(contentName, _
+            ConsoleRect_Create(contentRect.Left + sidebarWidth, contentRect.Top, _
+                             contentRect.Right, contentRect.Bottom))
+
+        Dim result(0 To 1) As cConsolePanel
+        Set result(0) = sidebarPanel
+        Set result(1) = contentPanel
+        CreateSidebar = result
+    End Function
+
+    ' Create header/footer layout
+    Public Function CreateHeaderFooter(ByVal headerHeight As Long, _
+                                       ByVal footerHeight As Long, _
+                                       ByVal headerName As String, _
+                                       ByVal contentName As String, _
+                                       ByVal footerName As String) As Variant
+        Dim contentRect As ConsoleRect
+        If m_RootPanel Is Nothing Then
+            contentRect = ConsoleRect_Create(0, 0, m_ConsoleWidth - 1, m_ConsoleHeight - 1)
+        Else
+            contentRect = m_RootPanel.ContentRect()
+        End If
+
+        Dim headerPanel As cConsolePanel = AddPanelByRect(headerName, _
+            ConsoleRect_Create(contentRect.Left, contentRect.Top, _
+                             contentRect.Right, contentRect.Top + headerHeight - 1))
+
+        Dim mainContentPanel As cConsolePanel = AddPanelByRect(contentName, _
+            ConsoleRect_Create(contentRect.Left, contentRect.Top + headerHeight, _
+                             contentRect.Right, contentRect.Bottom - footerHeight))
+
+        Dim footerPanel As cConsolePanel = AddPanelByRect(footerName, _
+            ConsoleRect_Create(contentRect.Left, contentRect.Bottom - footerHeight + 1, _
+                             contentRect.Right, contentRect.Bottom))
+
+        Dim result(0 To 2) As cConsolePanel
+        Set result(0) = headerPanel
+        Set result(1) = mainContentPanel
+        Set result(2) = footerPanel
+        CreateHeaderFooter = result
+    End Function
+
+    ' ========== Render Methods ==========
+
+    ' Render all panels
+    Public Sub Render(Optional ByVal theme As cConsoleTheme = Nothing)
+        Dim panel As Variant
+        For Each panel In m_Panels
+            Dim p As cConsolePanel = panel
+            If theme IsNot Nothing Then
+                p.Render m_Console.Buffer, theme.Border, theme.Background
+            Else
+                p.Render m_Console.Buffer, ConsoleColor.Gray, ConsoleColor.Black
+            End If
+        Next panel
+    End Sub
+
+    ' Render a specific panel
+    Public Sub RenderPanel(ByVal name As String, _
+                           Optional ByVal theme As cConsoleTheme = Nothing)
+        Dim panel As cConsolePanel = GetPanel(name)
+        If panel IsNot Nothing Then
+            If theme IsNot Nothing Then
+                panel.Render m_Console.Buffer, theme.Border, theme.Background
+            Else
+                panel.Render m_Console.Buffer, ConsoleColor.Gray, ConsoleColor.Black
+            End If
+        End If
+    End Sub
+
+    ' Clear all panels' content areas
+    Public Sub ClearAllContent(Optional ByVal theme As cConsoleTheme = Nothing)
+        Dim panel As Variant
+        For Each panel In m_Panels
+            Dim p As cConsolePanel = panel
+            If theme IsNot Nothing Then
+                p.ClearContent m_Console.Buffer, theme.Foreground, theme.Background
+            Else
+                p.ClearContent m_Console.Buffer, ConsoleColor.Gray, ConsoleColor.Black
+            End If
+        Next panel
+    End Sub
+
+    ' Clear a specific panel's content
+    Public Sub ClearPanelContent(ByVal name As String, _
+                                 Optional ByVal theme As cConsoleTheme = Nothing)
+        Dim panel As cConsolePanel = GetPanel(name)
+        If panel IsNot Nothing Then
+            If theme IsNot Nothing Then
+                panel.ClearContent m_Console.Buffer, theme.Foreground, theme.Background
+            Else
+                panel.ClearContent m_Console.Buffer, ConsoleColor.Gray, ConsoleColor.Black
+            End If
+        End If
+    End Sub
+
+    ' ========== Responsive Methods ==========
+
+    ' Resize layout (called when console size changes)
+    Public Sub Resize(ByVal newWidth As Long, ByVal newHeight As Long)
+        m_ConsoleWidth = newWidth
+        m_ConsoleHeight = newHeight
+
+        ' Simple approach: scale all panels proportionally
+        Dim scaleX As Double = newWidth / m_ConsoleWidth
+        Dim scaleY As Double = newHeight / m_ConsoleHeight
+
+        Dim panel As Variant
+        For Each panel In m_Panels
+            Dim p As cConsolePanel = panel
+            Dim pnlNewLeft As Long = CLng(p.Rect.Left * scaleX)
+            Dim pnlNewTop As Long = CLng(p.Rect.Top * scaleY)
+            Dim pnlNewWidth As Long = CLng((p.Rect.Right - p.Rect.Left + 1) * scaleX)
+            Dim pnlNewHeight As Long = CLng((p.Rect.Bottom - p.Rect.Top + 1) * scaleY)
+
+            p.Move pnlNewLeft, pnlNewTop
+            p.Resize pnlNewWidth, pnlNewHeight
+        Next panel
+    End Sub
+
+    ' Auto-resize layout from console
+    Public Sub AutoResize()
+        Resize m_Console.Width, m_Console.Height
+    End Sub
+
+    ' ========== Utility Methods ==========
+
+    ' Get all panel names
+    Public Function GetPanelNames() As Variant
+        Dim names() As String
+        ReDim names(0 To m_Panels.Count - 1)
+
+        Dim i As Long = 0
+        Dim key As Variant
+        For Each key In m_PanelsDict.Keys
+            names(i) = key
+            i += 1
+        Next key
+
+        GetPanelNames = names
+    End Function
+
+    ' Check if panel exists
+    Public Function HasPanel(ByVal name As String) As Boolean
+        Return m_PanelsDict.Exists(name)
+    End Function
+
+    ' Get all panels
+    Public Function GetAllPanels() As Variant
+        Dim panels() As cConsolePanel
+        ReDim panels(0 To m_Panels.Count - 1)
+
+        Dim i As Long = 1
+        Dim panel As Variant
+        For Each panel In m_Panels
+            Set panels(i - 1) = panel
+            i += 1
+        Next panel
+
+        GetAllPanels = panels
+    End Function
+
+End Class
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cConsolePanel.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cConsolePanel.twin
new file mode 100644
index 00000000..890d7a9d
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cConsolePanel.twin
@@ -0,0 +1,206 @@
+' cConsolePanel.twin of TBMANLIB_ConsoleComponents 1.0.0.1 (woeoio, MIT licence), compiled into this project.
+' The package cannot take the cConsole of TBMANLIB_ConsoleCore (see the notes of its landing page), so the
+' cases that draw run this copy of the code, which is the code of the package below the line of dashes.
+' The package's own classes are reached as TBMANLIB_ConsoleComponents.<name>.
+' ----------------------------------------------------------------------------
+' =====================================================
+' cConsolePanel.twin - Console Panel Component
+' Modern Console Library for TwinBASIC - Components
+' =====================================================
+
+[COMCreatable(False)]
+Public Class cConsolePanel
+
+    ' Panel border style enum
+    Public Enum PanelBorderStyle
+        None = 0
+        Single = 1
+        Double = 2
+        Rounded = 3
+        Bold = 4
+    End Enum
+
+    ' Panel properties
+    Public Name As String
+    Public Rect As ConsoleRect
+    Public Title As String
+
+    ' Style properties
+    Public BorderStyle As PanelBorderStyle
+    Public BorderColor As ConsoleColor
+    Public TitleColor As ConsoleColor
+    Public Padding As Long
+
+    ' Constructor
+    Public Sub New(Optional ByVal name As String = "", _
+                   Optional ByVal left As Long = 0, _
+                   Optional ByVal top As Long = 0, _
+                   Optional ByVal width As Long = 10, _
+                   Optional ByVal height As Long = 5)
+        Me.Name = name
+        Me.Rect.Left = left
+        Me.Rect.Top = top
+        Me.Rect.Right = left + width - 1
+        Me.Rect.Bottom = top + height - 1
+        Me.BorderStyle = PanelBorderStyle.Single
+        Me.BorderColor = ConsoleColor.Gray
+        Me.TitleColor = ConsoleColor.White
+        Me.Padding = 1
+    End Sub
+
+    ' Render the panel
+    Public Sub Render(ByVal buffer As cConsoleBuffer, _
+                      Optional ByVal fore As ConsoleColor = ConsoleColor.Gray, _
+                      Optional ByVal back As ConsoleColor = ConsoleColor.Black)
+        If Me.BorderStyle = PanelBorderStyle.None Then Exit Sub
+
+        Select Case Me.BorderStyle
+            Case PanelBorderStyle.Single
+                DrawSingleBorder buffer, fore, back
+            Case PanelBorderStyle.Double
+                DrawDoubleBorder buffer, fore, back
+            Case PanelBorderStyle.Rounded
+                DrawRoundedBorder buffer, fore, back
+            Case PanelBorderStyle.Bold
+                DrawBoldBorder buffer, fore, back
+        End Select
+
+        ' Draw title if exists
+        If Len(Title) > 0 Then
+            DrawTitle buffer
+        End If
+    End Sub
+
+    ' Draw single-line border
+    Private Sub DrawSingleBorder(ByVal buffer As cConsoleBuffer, _
+                                  ByVal fore As ConsoleColor, _
+                                  ByVal back As ConsoleColor)
+        buffer.DrawBox Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, fore, back, False
+    End Sub
+
+    ' Draw double-line border
+    Private Sub DrawDoubleBorder(ByVal buffer As cConsoleBuffer, _
+                                  ByVal fore As ConsoleColor, _
+                                  ByVal back As ConsoleColor)
+        buffer.DrawBox Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, fore, back, True
+    End Sub
+
+    ' Draw rounded border
+    Private Sub DrawRoundedBorder(ByVal buffer As cConsoleBuffer, _
+                                   ByVal fore As ConsoleColor, _
+                                   ByVal back As ConsoleColor)
+        ' Corners
+        buffer.SetChar Rect.Left, Rect.Top, "╭", fore, back
+        buffer.SetChar Rect.Right, Rect.Top, "╮", fore, back
+        buffer.SetChar Rect.Left, Rect.Bottom, "╰", fore, back
+        buffer.SetChar Rect.Right, Rect.Bottom, "╯", fore, back
+
+        ' Horizontal lines
+        Dim col As Long
+        For col = Rect.Left + 1 To Rect.Right - 1
+            buffer.SetChar col, Rect.Top, "─", fore, back
+            buffer.SetChar col, Rect.Bottom, "─", fore, back
+        Next col
+
+        ' Vertical lines
+        Dim row As Long
+        For row = Rect.Top + 1 To Rect.Bottom - 1
+            buffer.SetChar Rect.Left, row, "│", fore, back
+            buffer.SetChar Rect.Right, row, "│", fore, back
+        Next row
+    End Sub
+
+    ' Draw bold border
+    Private Sub DrawBoldBorder(ByVal buffer As cConsoleBuffer, _
+                                ByVal fore As ConsoleColor, _
+                                ByVal back As ConsoleColor)
+        ' Corners
+        buffer.SetChar Rect.Left, Rect.Top, "┏", fore, back
+        buffer.SetChar Rect.Right, Rect.Top, "┓", fore, back
+        buffer.SetChar Rect.Left, Rect.Bottom, "┗", fore, back
+        buffer.SetChar Rect.Right, Rect.Bottom, "┛", fore, back
+
+        ' Horizontal lines
+        Dim col As Long
+        For col = Rect.Left + 1 To Rect.Right - 1
+            buffer.SetChar col, Rect.Top, "━", fore, back
+            buffer.SetChar col, Rect.Bottom, "━", fore, back
+        Next col
+
+        ' Vertical lines
+        Dim row As Long
+        For row = Rect.Top + 1 To Rect.Bottom - 1
+            buffer.SetChar Rect.Left, row, "┃", fore, back
+            buffer.SetChar Rect.Right, row, "┃", fore, back
+        Next row
+    End Sub
+
+    ' Draw panel title
+    Private Sub DrawTitle(ByVal buffer As cConsoleBuffer)
+        Dim maxWidth As Long = Rect.Right - Rect.Left - 3
+        If maxWidth < 1 Then Exit Sub
+
+        Dim displayTitle As String
+        If Len(Title) > maxWidth Then
+            displayTitle = Left$(Title, maxWidth)
+        Else
+            displayTitle = Title
+        End If
+
+        Dim titlePos As Long = Rect.Left + 2
+
+        ' Draw space, title, space
+        buffer.SetChar Rect.Left + 1, Rect.Top, " ", BorderColor, ConsoleColor.Black
+        buffer.WriteAt titlePos, Rect.Top, displayTitle, TitleColor, ConsoleColor.Black
+        buffer.SetChar titlePos + Len(displayTitle), Rect.Top, " ", BorderColor, ConsoleColor.Black
+    End Sub
+
+    ' Get content area (excluding border and padding)
+    Public Function ContentRect() As ConsoleRect
+        Dim result As ConsoleRect
+        result.Left = Rect.Left + IIf(BorderStyle <> PanelBorderStyle.None, 1, 0) + Padding
+        result.Top = Rect.Top + IIf(BorderStyle <> PanelBorderStyle.None, 1, 0) + Padding
+        result.Right = Rect.Right - IIf(BorderStyle <> PanelBorderStyle.None, 1, 0) - Padding
+        result.Bottom = Rect.Bottom - IIf(BorderStyle <> PanelBorderStyle.None, 1, 0) - Padding
+        Return result
+    End Function
+
+    ' Get content width
+    Public Function ContentWidth() As Long
+        Dim cr As ConsoleRect = ContentRect()
+        Return cr.Right - cr.Left + 1
+    End Function
+
+    ' Get content height
+    Public Function ContentHeight() As Long
+        Dim cr As ConsoleRect = ContentRect()
+        Return cr.Bottom - cr.Top + 1
+    End Function
+
+    ' Clear panel content area
+    Public Sub ClearContent(ByVal buffer As cConsoleBuffer, _
+                            Optional ByVal fore As ConsoleColor = ConsoleColor.Gray, _
+                            Optional ByVal back As ConsoleColor = ConsoleColor.Black)
+        Dim cr As ConsoleRect = ContentRect()
+        If cr.Left < cr.Right AndAlso cr.Top < cr.Bottom Then
+            buffer.FillRect cr.Left, cr.Top, cr.Right, cr.Bottom, " ", fore, back
+        End If
+    End Sub
+
+    ' Move panel
+    Public Sub Move(ByVal left As Long, ByVal top As Long)
+        Dim w As Long = Rect.Right - Rect.Left
+        Dim h As Long = Rect.Bottom - Rect.Top
+        Rect.Left = left
+        Rect.Top = top
+        Rect.Right = left + w
+        Rect.Bottom = top + h
+    End Sub
+
+    ' Resize panel
+    Public Sub Resize(ByVal width As Long, ByVal height As Long)
+        Rect.Right = Rect.Left + width - 1
+        Rect.Bottom = Rect.Top + height - 1
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cDataGrid.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cDataGrid.twin
new file mode 100644
index 00000000..5d115352
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cDataGrid.twin
@@ -0,0 +1,302 @@
+' cDataGrid.twin of TBMANLIB_ConsoleComponents 1.0.0.1 (woeoio, MIT licence), compiled into this project.
+' The package cannot take the cConsole of TBMANLIB_ConsoleCore (see the notes of its landing page), so the
+' cases that draw run this copy of the code, which is the code of the package below the line of dashes.
+' The package's own classes are reached as TBMANLIB_ConsoleComponents.<name>.
+' ----------------------------------------------------------------------------
+' =====================================================
+' cDataGrid.twin - Data Grid Component
+' Modern Console Library for TwinBASIC - Components
+' =====================================================
+
+[COMCreatable(False)]
+Public Class cDataGrid
+
+    ' Column alignment enum
+    Public Enum ColumnAlignment
+        Left = 0
+        Center = 1
+        Right = 2
+    End Enum
+
+    Private m_Console As cConsole
+    Private m_Buffer As cConsoleBuffer
+    Private m_Rows() As String
+    Private m_ColWidths() As Long
+    Private m_ColAlignments() As ColumnAlignment
+    Private m_RowColors() As ConsoleColor
+    Private m_HeaderColor As ConsoleColor
+    Private m_SelectionColor As ConsoleColor
+    Private m_SelectedRow As Long
+    Private m_HeaderRow As Boolean
+    Private m_ShowBorders As Boolean
+
+    ' Constructor
+    Public Sub New(ByVal console As cConsole)
+        Set m_Console = console
+        Set m_Buffer = console.Buffer
+        m_HeaderColor = ConsoleColor.Cyan
+        m_SelectionColor = ConsoleColor.DarkBlue
+        m_SelectedRow = -1
+        m_HeaderRow = True
+        m_ShowBorders = True
+    End Sub
+
+    ' Set the data rows
+    Public Sub SetRows(ByRef rows() As String)
+        m_Rows = rows
+    End Sub
+
+    ' Set column widths
+    Public Sub SetColumnWidths(ByRef widths() As Long)
+        m_ColWidths = widths
+    End Sub
+
+    ' Set column alignments
+    Public Sub SetColumnAlignments(ByRef alignments() As ColumnAlignment)
+        m_ColAlignments = alignments
+    End Sub
+
+    ' Set row colors
+    Public Sub SetRowColors(ByRef colors() As ConsoleColor)
+        m_RowColors = colors
+    End Sub
+
+    ' Set header color
+    Public Property Let HeaderColor(ByVal value As ConsoleColor)
+        m_HeaderColor = value
+    End Property
+
+    ' Set selection color
+    Public Property Let SelectionColor(ByVal value As ConsoleColor)
+        m_SelectionColor = value
+    End Property
+
+    ' Set selected row
+    Public Property Let SelectedRow(ByVal value As Long)
+        m_SelectedRow = value
+    End Property
+
+    ' Show/hide header row
+    Public Property Let ShowHeader(ByVal value As Boolean)
+        m_HeaderRow = value
+    End Property
+
+    ' Show/hide borders
+    Public Property Let ShowBorders(ByVal value As Boolean)
+        m_ShowBorders = value
+    End Property
+
+    ' Render the data grid
+    Public Sub Render(ByVal col As Long, ByVal row As Long, _
+                      Optional ByVal fore As ConsoleColor = ConsoleColor.Gray, _
+                      Optional ByVal back As ConsoleColor = ConsoleColor.Black)
+        If UBound(m_Rows) < LBound(m_Rows) Then Exit Sub
+
+        Dim rowCount As Long = UBound(m_Rows) - LBound(m_Rows) + 1
+        Dim displayRow As Long = row
+
+        ' Draw header if enabled
+        If m_HeaderRow AndAlso rowCount > 0 Then
+            Dim headerText As String = m_Rows(LBound(m_Rows))
+            DrawRow col, displayRow, headerText, m_HeaderColor, ConsoleColor.Black, True
+            displayRow += 1
+
+            ' Draw separator if borders are enabled
+            If m_ShowBorders Then
+                DrawSeparator col, displayRow, fore, back
+                displayRow += 1
+            End If
+        End If
+
+        ' Draw data rows
+        Dim i As Long
+        Dim startIdx As Long
+        If m_HeaderRow Then startIdx = LBound(m_Rows) + 1 Else startIdx = LBound(m_Rows)
+
+        For i = startIdx To UBound(m_Rows)
+            ' Check if this row is selected
+            Dim isSelected As Boolean = (i - startIdx = m_SelectedRow)
+
+            ' Get row color if available
+            Dim rowFore As ConsoleColor = fore
+            If isSelected Then
+                rowFore = ConsoleColor.White
+            ElseIf Not IsEmpty(m_RowColors) Then
+                Dim colorIdx As Long = i - LBound(m_RowColors)
+                If colorIdx >= 0 AndAlso colorIdx <= UBound(m_RowColors) Then
+                    rowFore = m_RowColors(colorIdx)
+                End If
+            End If
+
+            Dim rowBack As ConsoleColor
+            If isSelected Then
+                rowBack = m_SelectionColor
+            Else
+                rowBack = back
+            End If
+
+            DrawRow col, displayRow, m_Rows(i), rowFore, rowBack, False
+            displayRow += 1
+        Next i
+    End Sub
+
+    ' Draw a single row
+    Private Sub DrawRow(ByVal col As Long, ByVal row As Long, _
+                         ByVal text As String, _
+                         ByVal fore As ConsoleColor, _
+                         ByVal back As ConsoleColor, _
+                         ByVal isHeader As Boolean)
+        Dim maxCols As Long
+        If UBound(m_ColWidths) < LBound(m_ColWidths) Then
+            maxCols = 1
+        Else
+            maxCols = UBound(m_ColWidths) - LBound(m_ColWidths) + 1
+        End If
+
+        ' Parse text into columns (assuming tab or space delimiter)
+        Dim columns() As String
+        SplitText text, columns, maxCols
+
+        Dim currentCol As Long = col
+        Dim i As Long
+
+        For i = 0 To maxCols - 1
+            Dim colWidth As Long
+            If UBound(m_ColWidths) < LBound(m_ColWidths) Then
+                colWidth = Len(text)
+            Else
+                Dim widthIdx As Long = i + LBound(m_ColWidths)
+                If widthIdx > UBound(m_ColWidths) Then
+                    colWidth = 20
+                Else
+                    colWidth = m_ColWidths(widthIdx)
+                End If
+            End If
+
+            Dim cellText As String
+            If i <= UBound(columns) Then
+                cellText = columns(i)
+            Else
+                cellText = ""
+            End If
+
+            ' Truncate or pad text
+            If Len(cellText) > colWidth Then
+                cellText = Left$(cellText, colWidth)
+            End If
+
+            ' Apply alignment
+            Dim alignment As ColumnAlignment = ColumnAlignment.Left
+            If UBound(m_ColAlignments) >= LBound(m_ColAlignments) Then
+                Dim alignIdx As Long = i + LBound(m_ColAlignments)
+                If alignIdx <= UBound(m_ColAlignments) Then
+                    alignment = m_ColAlignments(alignIdx)
+                End If
+            End If
+
+            Select Case alignment
+                Case ColumnAlignment.Left
+                    cellText = Left$(cellText & Space$(colWidth), colWidth)
+                Case ColumnAlignment.Center
+                    Dim padding As Long = (colWidth - Len(cellText)) \ 2
+                    cellText = Space$(padding) & cellText & Space$(colWidth - padding - Len(cellText))
+                    cellText = Left$(cellText, colWidth)
+                Case ColumnAlignment.Right
+                    cellText = Right$(Space$(colWidth) & cellText, colWidth)
+            End Select
+
+            ' Draw cell
+            m_Buffer.WriteAt currentCol, row, cellText, fore, back
+            currentCol += colWidth
+
+            ' Draw separator if enabled
+            If m_ShowBorders AndAlso i < maxCols - 1 Then
+                m_Buffer.SetChar currentCol, row, "│", fore, back
+                currentCol += 1
+            End If
+        Next i
+    End Sub
+
+    ' Draw a separator line
+    Private Sub DrawSeparator(ByVal col As Long, ByVal row As Long, _
+                              ByVal fore As ConsoleColor, _
+                              ByVal back As ConsoleColor)
+        Dim maxWidth As Long = 0
+        Dim i As Long
+
+        If UBound(m_ColWidths) < LBound(m_ColWidths) Then
+            maxWidth = 80
+        Else
+            For i = LBound(m_ColWidths) To UBound(m_ColWidths)
+                maxWidth += m_ColWidths(i)
+            Next i
+            maxWidth += UBound(m_ColWidths) - LBound(m_ColWidths)  ' Add separators
+        End If
+
+        ' Draw horizontal line with column separators
+        Dim currentCol As Long = col
+        Dim totalWidth As Long = 0
+
+        If UBound(m_ColWidths) < LBound(m_ColWidths) Then
+            m_Buffer.DrawHLine col, row, maxWidth, fore, back, False
+        Else
+            For i = LBound(m_ColWidths) To UBound(m_ColWidths)
+                m_Buffer.DrawHLine currentCol, row, m_ColWidths(i), fore, back, False
+                currentCol += m_ColWidths(i)
+                If i < UBound(m_ColWidths) Then
+                    m_Buffer.SetChar currentCol, row, "┼", fore, back
+                    currentCol += 1
+                End If
+            Next i
+        End If
+    End Sub
+
+    ' Split text into columns
+    Private Sub SplitText(ByVal text As String, ByRef columns() As String, ByVal maxCols As Long)
+        Dim parts() As String
+        ReDim parts(0 To maxCols - 1)
+        Dim i As Long
+
+        ' Simple split by tab character
+        Dim pos As Long = InStr(text, vbTab)
+        Dim startIdx As Long = 1
+        Dim partIdx As Long = 0
+
+        For i = 0 To maxCols - 1
+            If pos > 0 Then
+                parts(i) = Mid$(text, startIdx, pos - startIdx)
+                startIdx = pos + 1
+                pos = InStr(startIdx, text, vbTab)
+            Else
+                parts(i) = Mid$(text, startIdx)
+                Exit For
+            End If
+        Next i
+
+        columns = parts
+    End Sub
+
+    ' Get the number of rows (excluding header)
+    Public Function GetRowCount() As Long
+        If UBound(m_Rows) < LBound(m_Rows) Then Return 0
+        Dim count As Long = UBound(m_Rows) - LBound(m_Rows) + 1
+        If m_HeaderRow Then count = count - 1
+        Return count
+    End Function
+
+    ' Scroll to a specific row
+    Public Sub ScrollTo(ByVal row As Long)
+        m_SelectedRow = row
+    End Sub
+
+    ' Move selection up
+    Public Sub MoveUp()
+        If m_SelectedRow > 0 Then m_SelectedRow -= 1
+    End Sub
+
+    ' Move selection down
+    Public Sub MoveDown(ByVal maxRow As Long)
+        If m_SelectedRow < maxRow - 1 Then m_SelectedRow += 1
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cLayoutHelper.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cLayoutHelper.twin
new file mode 100644
index 00000000..35020837
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cLayoutHelper.twin
@@ -0,0 +1,279 @@
+' cLayoutHelper.twin of TBMANLIB_ConsoleComponents 1.0.0.1 (woeoio, MIT licence), compiled into this project.
+' The package cannot take the cConsole of TBMANLIB_ConsoleCore (see the notes of its landing page), so the
+' cases that draw run this copy of the code, which is the code of the package below the line of dashes.
+' The package's own classes are reached as TBMANLIB_ConsoleComponents.<name>.
+' ----------------------------------------------------------------------------
+' =====================================================
+' cLayoutHelper.twin - Layout Helper Component
+' Modern Console Library for TwinBASIC - Components
+' =====================================================
+
+[COMCreatable(False)]
+Public Class cLayoutHelper
+
+    Private m_Console As cConsole
+
+    ' Constructor
+    Public Sub New(ByVal console As cConsole)
+        Set m_Console = console
+    End Sub
+
+    ' Calculate center position
+    Public Function Center(ByVal width As Long, ByVal height As Long) As ConsolePosition
+        Dim result As ConsolePosition
+        result.Col = (m_Console.Width - width) \ 2
+        result.Row = (m_Console.Height - height) \ 2
+        Return result
+    End Function
+
+    ' Calculate centered rect
+    Public Function CenterRect(ByVal width As Long, ByVal height As Long) As ConsoleRect
+        Dim pos As ConsolePosition = Center(width, height)
+        Return ConsoleRect_Create(pos.Col, pos.Row, pos.Col + width - 1, pos.Row + height - 1)
+    End Function
+
+    ' Calculate position by percentage
+    Public Function Percent(ByVal percentX As Double, ByVal percentY As Double) As ConsolePosition
+        Dim result As ConsolePosition
+        result.Col = CLng((m_Console.Width * percentX) / 100)
+        result.Row = CLng((m_Console.Height * percentY) / 100)
+        Return result
+    End Function
+
+    ' Calculate rect by percentage
+    Public Function PercentRect(ByVal leftPercent As Double, ByVal topPercent As Double, _
+                                 ByVal widthPercent As Double, ByVal heightPercent As Double) As ConsoleRect
+        Dim result As ConsoleRect
+        result.Left = CLng((m_Console.Width * leftPercent) / 100)
+        result.Top = CLng((m_Console.Height * topPercent) / 100)
+        result.Right = CLng((m_Console.Width * (leftPercent + widthPercent)) / 100) - 1
+        result.Bottom = CLng((m_Console.Height * (topPercent + heightPercent)) / 100) - 1
+        Return result
+    End Function
+
+    ' Calculate centered x position
+    Public Function CenterX(ByVal width As Long) As Long
+        Return (m_Console.Width - width) \ 2
+    End Function
+
+    ' Calculate centered y position
+    Public Function CenterY(ByVal height As Long) As Long
+        Return (m_Console.Height - height) \ 2
+    End Function
+
+    ' Calculate x position by percentage
+    Public Function PercentX(ByVal percent As Double) As Long
+        Return CLng((m_Console.Width * percent) / 100)
+    End Function
+
+    ' Calculate y position by percentage
+    Public Function PercentY(ByVal percent As Double) As Long
+        Return CLng((m_Console.Height * percent) / 100)
+    End Function
+
+    ' Calculate a horizontal split (top and bottom rects)
+    Public Function SplitHorizontal(ByVal topPercent As Double) As Variant
+        Dim rects(0 To 1) As ConsoleRect
+
+        ' Top rect
+        rects(0).Left = 0
+        rects(0).Top = 0
+        rects(0).Right = m_Console.Width - 1
+        rects(0).Bottom = PercentY(topPercent) - 1
+
+        ' Bottom rect
+        rects(1).Left = 0
+        rects(1).Top = PercentY(topPercent)
+        rects(1).Right = m_Console.Width - 1
+        rects(1).Bottom = m_Console.Height - 1
+
+        SplitHorizontal = rects
+    End Function
+
+    ' Calculate a vertical split (left and right rects)
+    Public Function SplitVertical(ByVal leftPercent As Double) As Variant
+        Dim rects(0 To 1) As ConsoleRect
+
+        ' Left rect
+        rects(0).Left = 0
+        rects(0).Top = 0
+        rects(0).Right = PercentX(leftPercent) - 1
+        rects(0).Bottom = m_Console.Height - 1
+
+        ' Right rect
+        rects(1).Left = PercentX(leftPercent)
+        rects(1).Top = 0
+        rects(1).Right = m_Console.Width - 1
+        rects(1).Bottom = m_Console.Height - 1
+
+        SplitVertical = rects
+    End Function
+
+    ' Calculate a grid layout
+    Public Function Grid(ByVal cols As Long, ByVal rows As Long) As Variant
+        Dim colWidth As Long = m_Console.Width \ cols
+        Dim rowHeight As Long = m_Console.Height \ rows
+
+        Dim gridRects() As ConsoleRect
+        ReDim gridRects(0 To cols * rows - 1)
+
+        Dim cellIndex As Long = 0
+        Dim r As Long, c As Long
+
+        For r = 0 To rows - 1
+            For c = 0 To cols - 1
+                gridRects(cellIndex).Left = c * colWidth
+                gridRects(cellIndex).Top = r * rowHeight
+                gridRects(cellIndex).Right = (c + 1) * colWidth - 1
+                gridRects(cellIndex).Bottom = (r + 1) * rowHeight - 1
+                cellIndex += 1
+            Next c
+        Next r
+
+        Grid = gridRects
+    End Function
+
+    ' Calculate a sidebar layout (left sidebar, right content)
+    Public Function Sidebar(ByVal sidebarWidth As Long) As Variant
+        Dim rects(0 To 1) As ConsoleRect
+
+        ' Sidebar
+        rects(0).Left = 0
+        rects(0).Top = 0
+        rects(0).Right = sidebarWidth - 1
+        rects(0).Bottom = m_Console.Height - 1
+
+        ' Content
+        rects(1).Left = sidebarWidth
+        rects(1).Top = 0
+        rects(1).Right = m_Console.Width - 1
+        rects(1).Bottom = m_Console.Height - 1
+
+        Sidebar = rects
+    End Function
+
+    ' Calculate a header/footer layout
+    Public Function HeaderFooter(ByVal headerHeight As Long, ByVal footerHeight As Long) As Variant
+        Dim rects(0 To 2) As ConsoleRect
+
+        ' Header
+        rects(0).Left = 0
+        rects(0).Top = 0
+        rects(0).Right = m_Console.Width - 1
+        rects(0).Bottom = headerHeight - 1
+
+        ' Content
+        rects(1).Left = 0
+        rects(1).Top = headerHeight
+        rects(1).Right = m_Console.Width - 1
+        rects(1).Bottom = m_Console.Height - footerHeight - 1
+
+        ' Footer
+        rects(2).Left = 0
+        rects(2).Top = m_Console.Height - footerHeight
+        rects(2).Right = m_Console.Width - 1
+        rects(2).Bottom = m_Console.Height - 1
+
+        HeaderFooter = rects
+    End Function
+
+    ' Calculate margins
+    Public Function WithMargins(ByVal left As Long, ByVal top As Long, _
+                                 ByVal right As Long, ByVal bottom As Long) As ConsoleRect
+        Dim result As ConsoleRect
+        result.Left = left
+        result.Top = top
+        result.Right = m_Console.Width - 1 - right
+        result.Bottom = m_Console.Height - 1 - bottom
+        Return result
+    End Function
+
+    ' Clamp rect to console bounds
+    Public Function ClampRect(ByVal rect As ConsoleRect) As ConsoleRect
+        Dim result As ConsoleRect
+
+        If rect.Left < 0 Then result.Left = 0 Else result.Left = rect.Left
+        If rect.Top < 0 Then result.Top = 0 Else result.Top = rect.Top
+        If rect.Right >= m_Console.Width Then result.Right = m_Console.Width - 1 Else result.Right = rect.Right
+        If rect.Bottom >= m_Console.Height Then result.Bottom = m_Console.Height - 1 Else result.Bottom = rect.Bottom
+
+        Return result
+    End Function
+
+    ' Check if rect is valid
+    Public Function IsValidRect(ByVal rect As ConsoleRect) As Boolean
+        Return rect.Left <= rect.Right AndAlso rect.Top <= rect.Bottom
+    End Function
+
+    ' Get rect width
+    Public Function GetRectWidth(ByVal rect As ConsoleRect) As Long
+        Return rect.Right - rect.Left + 1
+    End Function
+
+    ' Get rect height
+    Public Function GetRectHeight(ByVal rect As ConsoleRect) As Long
+        Return rect.Bottom - rect.Top + 1
+    End Function
+
+    ' Calculate spacing between items
+    Public Function SpacedPositions(ByVal count As Long, ByVal itemWidth As Long, _
+                                     ByVal spacing As Long, ByVal startX As Long) As Variant
+        Dim positions() As Long
+        ReDim positions(0 To count - 1)
+
+        Dim i As Long
+        Dim currentX As Long = startX
+
+        For i = 0 To count - 1
+            positions(i) = currentX
+            currentX += itemWidth + spacing
+        Next i
+
+        SpacedPositions = positions
+    End Function
+
+    ' Calculate evenly distributed columns
+    Public Function EvenColumns(ByVal count As Long, ByVal margin As Long) As Variant
+        Dim availableWidth As Long = m_Console.Width - (margin * 2)
+        Dim columnWidth As Long = availableWidth \ count
+
+        Dim rects() As ConsoleRect
+        ReDim rects(0 To count - 1)
+
+        Dim i As Long
+        For i = 0 To count - 1
+            rects(i).Left = margin + i * columnWidth
+            rects(i).Top = margin
+            rects(i).Right = rects(i).Left + columnWidth - 1
+            rects(i).Bottom = m_Console.Height - 1 - margin
+        Next i
+
+        ' Adjust last column to fill remaining space
+        rects(count - 1).Right = m_Console.Width - 1 - margin
+
+        EvenColumns = rects
+    End Function
+
+    ' Calculate evenly distributed rows
+    Public Function EvenRows(ByVal count As Long, ByVal margin As Long) As Variant
+        Dim availableHeight As Long = m_Console.Height - (margin * 2)
+        Dim rowHeight As Long = availableHeight \ count
+
+        Dim rects() As ConsoleRect
+        ReDim rects(0 To count - 1)
+
+        Dim i As Long
+        For i = 0 To count - 1
+            rects(i).Left = margin
+            rects(i).Top = margin + i * rowHeight
+            rects(i).Right = m_Console.Width - 1 - margin
+            rects(i).Bottom = rects(i).Top + rowHeight - 1
+        Next i
+
+        ' Adjust last row to fill remaining space
+        rects(count - 1).Bottom = m_Console.Height - 1 - margin
+
+        EvenRows = rects
+    End Function
+
+End Class
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cProgressBar.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cProgressBar.twin
new file mode 100644
index 00000000..28f2a60c
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cProgressBar.twin
@@ -0,0 +1,167 @@
+' cProgressBar.twin of TBMANLIB_ConsoleComponents 1.0.0.1 (woeoio, MIT licence), compiled into this project.
+' The package cannot take the cConsole of TBMANLIB_ConsoleCore (see the notes of its landing page), so the
+' cases that draw run this copy of the code, which is the code of the package below the line of dashes.
+' The package's own classes are reached as TBMANLIB_ConsoleComponents.<name>.
+' ----------------------------------------------------------------------------
+' =====================================================
+' cProgressBar.twin - Progress Bar Component
+' Modern Console Library for TwinBASIC - Components
+' =====================================================
+
+[COMCreatable(False)]
+Public Class cProgressBar
+
+    Private m_Console As cConsole
+    Private m_Buffer As cConsoleBuffer
+
+    ' Constructor
+    Public Sub New(ByVal console As cConsole)
+        Set m_Console = console
+        Set m_Buffer = console.Buffer
+    End Sub
+
+    ' Draw a horizontal progress bar
+    Public Sub Render(ByVal col As Long, ByVal row As Long, _
+                      ByVal width As Long, ByVal percent As Double, _
+                      Optional ByVal filledChar As String = "█", _
+                      Optional ByVal emptyChar As String = "░", _
+                      Optional ByVal filledColor As ConsoleColor = ConsoleColor.Green, _
+                      Optional ByVal emptyColor As ConsoleColor = ConsoleColor.DarkGray)
+        If percent < 0 Then percent = 0
+        If percent > 100 Then percent = 100
+
+        Dim filledWidth As Long = CLng((percent / 100) * width)
+        Dim emptyWidth As Long = width - filledWidth
+
+        Dim currentCol As Long = col
+
+        ' Draw filled portion
+        If filledWidth > 0 Then
+            m_Buffer.WriteAt currentCol, row, String$(filledWidth, filledChar), filledColor
+            currentCol += filledWidth
+        End If
+
+        ' Draw empty portion
+        If emptyWidth > 0 Then
+            m_Buffer.WriteAt currentCol, row, String$(emptyWidth, emptyChar), emptyColor
+        End If
+    End Sub
+
+    ' Draw a progress bar with brackets and percentage
+    Public Sub RenderWithBrackets(ByVal col As Long, ByVal row As Long, _
+                                  ByVal width As Long, ByVal percent As Double, _
+                                  Optional ByVal filledChar As String = "█", _
+                                  Optional ByVal emptyChar As String = "░", _
+                                  Optional ByVal filledColor As ConsoleColor = ConsoleColor.Green, _
+                                  Optional ByVal emptyColor As ConsoleColor = ConsoleColor.DarkGray, _
+                                  Optional ByVal bracketColor As ConsoleColor = ConsoleColor.Gray)
+        If percent < 0 Then percent = 0
+        If percent > 100 Then percent = 100
+
+        ' Adjust width to account for brackets
+        Dim barWidth As Long = width - 2  ' Subtract brackets
+
+        ' Draw opening bracket
+        m_Buffer.SetChar col, row, "[", bracketColor, ConsoleColor.Black
+
+        ' Draw progress bar
+        Render col + 1, row, barWidth, percent, filledChar, emptyChar, filledColor, emptyColor
+
+        ' Draw closing bracket
+        m_Buffer.SetChar col + width - 1, row, "]", bracketColor, ConsoleColor.Black
+    End Sub
+
+    ' Draw a progress bar with label and percentage
+    Public Sub RenderWithLabel(ByVal col As Long, ByVal row As Long, _
+                               ByVal width As Long, ByVal percent As Double, _
+                               ByVal label As String, _
+                               Optional ByVal filledChar As String = "█", _
+                               Optional ByVal emptyChar As String = "░", _
+                               Optional ByVal filledColor As ConsoleColor = ConsoleColor.Green, _
+                               Optional ByVal emptyColor As ConsoleColor = ConsoleColor.DarkGray, _
+                               Optional ByVal labelColor As ConsoleColor = ConsoleColor.Gray)
+        If percent < 0 Then percent = 0
+        If percent > 100 Then percent = 100
+
+        Dim percentText As String = Format$(percent, "0") & "%"
+
+        ' Calculate widths
+        Dim labelWidth As Long = Len(label) + 1  ' label + space
+        Dim percentWidth As Long = Len(percentText) + 1  ' space + percent
+        Dim barWidth As Long = width - labelWidth - percentWidth
+
+        If barWidth < 3 Then
+            ' Not enough space, just show percentage
+            m_Buffer.WriteAt col, row, label & " " & percentText, labelColor
+            Exit Sub
+        End If
+
+        Dim currentCol As Long = col
+
+        ' Draw label
+        m_Buffer.WriteAt currentCol, row, label & " ", labelColor
+        currentCol += labelWidth
+
+        ' Draw progress bar
+        Render currentCol, row, barWidth, percent, filledChar, emptyChar, filledColor, emptyColor
+        currentCol += barWidth
+
+        ' Draw percentage
+        m_Buffer.WriteAt currentCol, row, " " & percentText, labelColor
+    End Sub
+
+    ' Draw a vertical progress bar
+    Public Sub RenderVertical(ByVal col As Long, ByVal row As Long, _
+                               ByVal height As Long, ByVal percent As Double, _
+                               Optional ByVal filledChar As String = "█", _
+                               Optional ByVal emptyChar As String = "░", _
+                               Optional ByVal filledColor As ConsoleColor = ConsoleColor.Green, _
+                               Optional ByVal emptyColor As ConsoleColor = ConsoleColor.DarkGray)
+        If percent < 0 Then percent = 0
+        If percent > 100 Then percent = 100
+
+        Dim filledHeight As Long = CLng((percent / 100) * height)
+        Dim emptyHeight As Long = height - filledHeight
+
+        Dim currentRow As Long = row
+
+        ' Draw filled portion (from bottom)
+        Dim i As Long
+        For i = 1 To filledHeight
+            m_Buffer.SetChar col, row + height - i, filledChar, filledColor
+        Next i
+
+        ' Draw empty portion (from top)
+        For i = 0 To emptyHeight - 1
+            m_Buffer.SetChar col, row + i, emptyChar, emptyColor
+        Next i
+    End Sub
+
+    ' Get color based on progress (heat map style)
+    Public Function GetProgressColor(ByVal percent As Double, _
+                                      Optional ByVal lowColor As ConsoleColor = ConsoleColor.Green, _
+                                      Optional ByVal midColor As ConsoleColor = ConsoleColor.Yellow, _
+                                      Optional ByVal highColor As ConsoleColor = ConsoleColor.Red) As ConsoleColor
+        If percent < 50 Then
+            Return lowColor
+        ElseIf percent < 80 Then
+            Return midColor
+        Else
+            Return highColor
+        End If
+    End Function
+
+    ' Draw a progress bar with automatic color based on percent
+    Public Sub RenderWithAutoColor(ByVal col As Long, ByVal row As Long, _
+                                    ByVal width As Long, ByVal percent As Double, _
+                                    Optional ByVal filledChar As String = "█", _
+                                    Optional ByVal emptyChar As String = "░", _
+                                    Optional ByVal emptyColor As ConsoleColor = ConsoleColor.DarkGray, _
+                                    Optional ByVal lowColor As ConsoleColor = ConsoleColor.Green, _
+                                    Optional ByVal midColor As ConsoleColor = ConsoleColor.Yellow, _
+                                    Optional ByVal highColor As ConsoleColor = ConsoleColor.Red)
+        Dim filledColor As ConsoleColor = GetProgressColor(percent, lowColor, midColor, highColor)
+        Render col, row, width, percent, filledChar, emptyChar, filledColor, emptyColor
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cSparkline.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cSparkline.twin
new file mode 100644
index 00000000..34a47ec5
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cSparkline.twin
@@ -0,0 +1,217 @@
+' cSparkline.twin of TBMANLIB_ConsoleComponents 1.0.0.1 (woeoio, MIT licence), compiled into this project.
+' The package cannot take the cConsole of TBMANLIB_ConsoleCore (see the notes of its landing page), so the
+' cases that draw run this copy of the code, which is the code of the package below the line of dashes.
+' The package's own classes are reached as TBMANLIB_ConsoleComponents.<name>.
+' ----------------------------------------------------------------------------
+' =====================================================
+' cSparkline.twin - Sparkline (Mini Line Chart) Component
+' Modern Console Library for TwinBASIC - Components
+' =====================================================
+
+[COMCreatable(False)]
+Public Class cSparkline
+
+    ' Sparkline character set enum
+    Public Enum SparklineCharSet
+        Braille = 0    ' Braille characters (highest resolution, 2x4 pixels per char)
+        ASCII = 1      ' ASCII characters (* and │)
+        Block = 2      ' Block characters (█)
+    End Enum
+
+    Private m_Console As cConsole
+    Private m_Buffer As cConsoleBuffer
+
+    ' Constructor
+    Public Sub New(ByVal console As cConsole)
+        Set m_Console = console
+        Set m_Buffer = console.Buffer
+    End Sub
+
+    ' Draw a sparkline (mini line chart)
+    Public Sub Render(ByVal col As Long, ByVal row As Long, _
+                       ByVal width As Long, ByVal height As Long, _
+                       ByRef values() As Double, _
+                       Optional ByVal minValue As Double = 0, _
+                       Optional ByVal maxValue As Double = 100, _
+                       Optional ByVal fore As ConsoleColor = ConsoleColor.Green, _
+                       Optional ByVal back As ConsoleColor = ConsoleColor.Black, _
+                       Optional ByVal charSet As SparklineCharSet = SparklineCharSet.Braille)
+        If UBound(values) < LBound(values) Then Exit Sub
+
+        Dim valueCount As Long = UBound(values) - LBound(values) + 1
+        If valueCount < 2 Then Exit Sub
+
+        ' Normalize values to 0-1 range
+        Dim normalizedValues() As Double
+        ReDim normalizedValues(LBound(values) To UBound(values))
+
+        For i As Long = LBound(values) To UBound(values)
+            normalizedValues(i) = (values(i) - minValue) / (maxValue - minValue)
+            If normalizedValues(i) < 0 Then normalizedValues(i) = 0
+            If normalizedValues(i) > 1 Then normalizedValues(i) = 1
+        Next i
+
+        Select Case charSet
+            Case SparklineCharSet.Braille
+                RenderBraille col, row, width, height, normalizedValues, fore, back
+            Case SparklineCharSet.ASCII
+                RenderASCII col, row, width, height, normalizedValues, fore, back
+            Case SparklineCharSet.Block
+                RenderBlock col, row, width, height, normalizedValues, fore, back
+        End Select
+    End Sub
+
+    ' Draw sparkline using Braille characters (highest resolution)
+    Private Sub RenderBraille(ByVal col As Long, ByVal row As Long, _
+                              ByVal width As Long, ByVal height As Long, _
+                              ByRef values() As Double, _
+                              ByVal fore As ConsoleColor, _
+                              ByVal back As ConsoleColor)
+        ' Braille patterns: each character represents 2x4 pixels
+        ' We use the bottom half (dots 0-3) for the sparkline
+
+        Dim valueCount As Long = UBound(values) - LBound(values) + 1
+        Dim samplesPerChar As Double = valueCount / width
+        Dim rowsPerChar As Long = (height + 3) \ 4  ' 4 rows per Braille char
+
+        Dim x As Long, y As Long
+        Dim ch As Integer
+
+        For x = 0 To width - 1
+            ' Get values for this character column
+            Dim startIdx As Long = CLng(x * samplesPerChar)
+            Dim endIdx As Long = CLng((x + 1) * samplesPerChar) - 1
+            If endIdx >= valueCount Then endIdx = valueCount - 1
+
+            For y = 0 To rowsPerChar - 1
+                ' Calculate which dots to set for this Braille character
+                Dim dotMask As Integer = 0
+                Dim sampleIdx As Long
+
+                For sampleIdx = startIdx To endIdx
+                    Dim val As Double = values(sampleIdx)
+                    Dim dotY As Double = (1 - val) * height  ' Invert: 0 is at bottom
+
+                    ' Check if this value falls in current Braille row
+                    Dim brailleRow As Long = CLng(dotY) \ 4
+                    If brailleRow = y Then
+                        Dim dotPos As Long = CLng(dotY) Mod 4
+                        dotMask = dotMask Or (1 << dotPos)
+                    End If
+                Next sampleIdx
+
+                ' Convert dot mask to Braille character
+                ch = &H2800 Or dotMask
+                m_Buffer.SetChar col + x, row + (rowsPerChar - 1 - y), ChrW$(ch), fore, back
+            Next y
+        Next x
+    End Sub
+
+    ' Draw sparkline using ASCII characters
+    Private Sub RenderASCII(ByVal col As Long, ByVal row As Long, _
+                             ByVal width As Long, ByVal height As Long, _
+                             ByRef values() As Double, _
+                             ByVal fore As ConsoleColor, _
+                             ByVal back As ConsoleColor)
+        Dim valueCount As Long = UBound(values) - LBound(values) + 1
+        Dim samplesPerCol As Double = valueCount / width
+
+        Dim x As Long, y As Long
+        Dim currentY As Long
+
+        For x = 0 To width - 1
+            ' Get value for this column
+            Dim idx As Long = CLng(x * samplesPerCol)
+            If idx >= valueCount Then idx = valueCount - 1
+
+            ' Map value to row (inverted: 0 at bottom)
+            Dim val As Double = 1 - values(idx)  ' Invert
+            currentY = CLng(val * (height - 1))
+
+            ' Draw point
+            m_Buffer.SetChar col + x, row + currentY, "*", fore, back
+
+            ' Optional: draw connecting line to previous point
+            If x > 0 Then
+                Dim prevIdx As Long = CLng((x - 1) * samplesPerCol)
+                Dim prevVal As Double = 1 - values(prevIdx)
+                Dim prevY As Long = CLng(prevVal * (height - 1))
+
+                If currentY < prevY Then
+                    ' Line going up
+                    For py1 As Long = prevY - 1 To currentY + 1 Step -1
+                        m_Buffer.SetChar col + x - 1, row + py1, "│", fore, back
+                    Next py1
+                ElseIf currentY > prevY Then
+                    ' Line going down
+                    For py2 As Long = prevY + 1 To currentY - 1
+                        m_Buffer.SetChar col + x - 1, row + py2, "│", fore, back
+                    Next py2
+                End If
+            End If
+        Next x
+    End Sub
+
+    ' Draw sparkline using block characters
+    Private Sub RenderBlock(ByVal col As Long, ByVal row As Long, _
+                              ByVal width As Long, ByVal height As Long, _
+                              ByRef values() As Double, _
+                              ByVal fore As ConsoleColor, _
+                              ByVal back As ConsoleColor)
+        Dim valueCount As Long = UBound(values) - LBound(values) + 1
+        Dim samplesPerCol As Double = valueCount / width
+
+        Dim x As Long
+        For x = 0 To width - 1
+            Dim idx As Long = CLng(x * samplesPerCol)
+            If idx >= valueCount Then idx = valueCount - 1
+
+            Dim val As Double = values(idx)
+            Dim barHeight As Long = CLng(val * height)
+            If barHeight = 0 AndAlso val > 0 Then barHeight = 1
+
+            Dim y As Long
+            For y = 0 To barHeight - 1
+                m_Buffer.SetChar col + x, row + height - 1 - y, "█", fore, back
+            Next y
+
+            For y = barHeight To height - 1
+                m_Buffer.SetChar col + x, row + height - 1 - y, " ", fore, back
+            Next y
+        Next x
+    End Sub
+
+    ' Draw sparkline with min/max indicators
+    Public Sub RenderWithStats(ByVal col As Long, ByVal row As Long, _
+                                ByVal width As Long, ByVal height As Long, _
+                                ByRef values() As Double, _
+                                Optional ByVal minValue As Double = 0, _
+                                Optional ByVal maxValue As Double = 100, _
+                                Optional ByVal fore As ConsoleColor = ConsoleColor.Green, _
+                                Optional ByVal back As ConsoleColor = ConsoleColor.Black, _
+                                Optional ByVal charSet As SparklineCharSet = SparklineCharSet.Braille, _
+                                Optional ByVal statColor As ConsoleColor = ConsoleColor.Gray)
+        ' Draw sparkline
+        Render col, row, width, height, values, minValue, maxValue, fore, back, charSet
+
+        ' Calculate actual min/max/avg
+        Dim minVal As Double = values(LBound(values))
+        Dim maxVal As Double = values(LBound(values))
+        Dim sum As Double = 0
+        Dim i As Long
+
+        For i = LBound(values) To UBound(values)
+            If values(i) < minVal Then minVal = values(i)
+            If values(i) > maxVal Then maxVal = values(i)
+            sum = sum + values(i)
+        Next i
+
+        Dim avgVal As Double = sum / (UBound(values) - LBound(values) + 1)
+
+        ' Draw stats below sparkline
+        Dim statRow As Long = row + height + 1
+        Dim statText As String = "Min:" & Format$(minVal, "0.0") & " Avg:" & Format$(avgVal, "0.0") & " Max:" & Format$(maxVal, "0.0")
+        m_Buffer.WriteAt col, statRow, statText, statColor, back
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cVBar.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cVBar.twin
new file mode 100644
index 00000000..efc2267e
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ComponentSources/cVBar.twin
@@ -0,0 +1,180 @@
+' cVBar.twin of TBMANLIB_ConsoleComponents 1.0.0.1 (woeoio, MIT licence), compiled into this project.
+' The package cannot take the cConsole of TBMANLIB_ConsoleCore (see the notes of its landing page), so the
+' cases that draw run this copy of the code, which is the code of the package below the line of dashes.
+' The package's own classes are reached as TBMANLIB_ConsoleComponents.<name>.
+' ----------------------------------------------------------------------------
+' =====================================================
+' cVBar.twin - Vertical Bar Chart Component
+' Modern Console Library for TwinBASIC - Components
+' =====================================================
+
+[COMCreatable(False)]
+Public Class cVBar
+
+    ' Bar character style enum
+    Public Enum BarCharStyle
+        Block = 0      ' █ full block
+        Light = 1      ' ░ light shade
+        Medium = 2     ' ▒ medium shade
+        Dark = 3       ' ▓ dark shade
+        Custom = 4     ' custom character
+    End Enum
+
+    Private m_Console As cConsole
+    Private m_Buffer As cConsoleBuffer
+
+    ' Constructor
+    Public Sub New(ByVal console As cConsole)
+        Set m_Console = console
+        Set m_Buffer = console.Buffer
+    End Sub
+
+    ' Draw a single vertical bar
+    Public Sub Render(ByVal col As Long, ByVal row As Long, _
+                     ByVal height As Long, ByVal percent As Double, _
+                     Optional ByVal fore As ConsoleColor = ConsoleColor.Green, _
+                     Optional ByVal back As ConsoleColor = ConsoleColor.Black, _
+                     Optional ByVal charStyle As BarCharStyle = BarCharStyle.Block)
+        If percent < 0 Then percent = 0
+        If percent > 100 Then percent = 100
+
+        Dim filledHeight As Long = CLng((percent / 100) * height)
+        If filledHeight = 0 AndAlso percent > 0 Then filledHeight = 1
+
+        Dim i As Long
+        Dim ch As String
+
+        Select Case charStyle
+            Case BarCharStyle.Block
+                ch = "█"
+            Case BarCharStyle.Light
+                ch = "░"
+            Case BarCharStyle.Medium
+                ch = "▒"
+            Case BarCharStyle.Dark
+                ch = "▓"
+            Case BarCharStyle.Custom
+                ch = "█"
+        End Select
+
+        ' Draw filled portion from bottom
+        For i = 1 To filledHeight
+            m_Buffer.SetChar col, row + height - i, ch, fore, back
+        Next i
+
+        ' Draw empty portion
+        For i = 0 To height - filledHeight - 1
+            m_Buffer.SetChar col, row + i, " ", fore, back
+        Next i
+    End Sub
+
+    ' Draw multiple vertical bars side by side
+    Public Sub RenderBars(ByVal col As Long, ByVal row As Long, _
+                          ByVal height As Long, ByRef values() As Double, _
+                          Optional ByVal spacing As Long = 1, _
+                          Optional ByVal minValue As Double = 0, _
+                          Optional ByVal maxValue As Double = 100, _
+                          Optional ByVal fore As ConsoleColor = ConsoleColor.Green, _
+                          Optional ByVal back As ConsoleColor = ConsoleColor.Black, _
+                          Optional ByVal charStyle As BarCharStyle = BarCharStyle.Block)
+        Dim currentCol As Long = col
+        Dim i As Long
+
+        For i = LBound(values) To UBound(values)
+            ' Normalize value to 0-100 percent
+            Dim percent As Double = 100 * (values(i) - minValue) / (maxValue - minValue)
+            If percent < 0 Then percent = 0
+            If percent > 100 Then percent = 100
+
+            Render currentCol, row, height, percent, fore, back, charStyle
+            currentCol += 1 + spacing
+        Next i
+    End Sub
+
+    ' Draw a vertical bar with label at bottom
+    Public Sub RenderWithLabel(ByVal col As Long, ByVal row As Long, _
+                               ByVal height As Long, ByVal percent As Double, _
+                               ByVal label As String, _
+                               Optional ByVal fore As ConsoleColor = ConsoleColor.Green, _
+                               Optional ByVal back As ConsoleColor = ConsoleColor.Black, _
+                               Optional ByVal charStyle As BarCharStyle = BarCharStyle.Block, _
+                               Optional ByVal labelColor As ConsoleColor = ConsoleColor.Gray)
+        ' Draw bar
+        Render col, row, height, percent, fore, back, charStyle
+
+        ' Draw label below bar
+        Dim labelRow As Long = row + height + 1
+        Dim labelWidth As Long = Len(label)
+        Dim labelCol As Long = col - (labelWidth \ 2) + 1
+
+        ' Ensure label doesn't go negative
+        If labelCol < 0 Then labelCol = 0
+
+        m_Buffer.WriteAt labelCol, labelRow, label, labelColor, back
+    End Sub
+
+    ' Draw multiple bars with gradient colors
+    Public Sub RenderWithGradient(ByVal col As Long, ByVal row As Long, _
+                                  ByVal height As Long, ByRef values() As Double, _
+                                  Optional ByVal spacing As Long = 1, _
+                                  Optional ByVal minValue As Double = 0, _
+                                  Optional ByVal maxValue As Double = 100, _
+                                  Optional ByVal lowColor As ConsoleColor = ConsoleColor.Green, _
+                                  Optional ByVal midColor As ConsoleColor = ConsoleColor.Yellow, _
+                                  Optional ByVal highColor As ConsoleColor = ConsoleColor.Red, _
+                                  Optional ByVal back As ConsoleColor = ConsoleColor.Black, _
+                                  Optional ByVal charStyle As BarCharStyle = BarCharStyle.Block)
+        Dim currentCol As Long = col
+        Dim i As Long
+
+        For i = LBound(values) To UBound(values)
+            ' Normalize value to 0-100 percent
+            Dim percent As Double = 100 * (values(i) - minValue) / (maxValue - minValue)
+            If percent < 0 Then percent = 0
+            If percent > 100 Then percent = 100
+
+            ' Get color based on value
+            Dim barColor As ConsoleColor
+            If percent < 50 Then
+                barColor = lowColor
+            ElseIf percent < 80 Then
+                barColor = midColor
+            Else
+                barColor = highColor
+            End If
+
+            Render currentCol, row, height, percent, barColor, back, charStyle
+            currentCol += 1 + spacing
+        Next i
+    End Sub
+
+    ' Draw a history bar chart (CPU/Memory usage style)
+    Public Sub RenderHistory(ByVal col As Long, ByVal row As Long, _
+                             ByVal height As Long, ByRef history() As Double, _
+                             Optional ByVal minValue As Double = 0, _
+                             Optional ByVal maxValue As Double = 100, _
+                             Optional ByVal fore As ConsoleColor = ConsoleColor.Green, _
+                             Optional ByVal back As ConsoleColor = ConsoleColor.Black, _
+                             Optional ByVal charStyle As BarCharStyle = BarCharStyle.Block)
+        ' Draw from right to left (most recent on the right)
+        Dim maxBars As Long = UBound(history) - LBound(history) + 1
+        Dim barCount As Long
+        If maxBars <= 0 Then Exit Sub
+
+        Dim currentCol As Long = col
+        Dim i As Long
+
+        ' Draw most recent bars first (from right to left)
+        For i = maxBars - 1 To 0 Step -1
+            Dim percent As Double = 100 * (history(i) - minValue) / (maxValue - minValue)
+            If percent < 0 Then percent = 0
+            If percent > 100 Then percent = 100
+
+            Render currentCol, row, height, percent, fore, back, charStyle
+            currentCol -= 1
+
+            If currentCol < col - maxBars Then Exit For
+        Next i
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/DataGridTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/DataGridTests.twin
new file mode 100644
index 00000000..cc3e2437
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/DataGridTests.twin
@@ -0,0 +1,631 @@
+' TBMANLIB_ConsoleComponents: cDataGrid, on the compiled copy of its code (see TwoPackagesTests).
+[TestFixture]
+Module DataGridTests
+
+    Private Const LEFT As Long = 0
+    Private Const CENTER As Long = 1
+    Private Const RIGHT As Long = 2
+
+    Private Function Bar() As String
+        Bar = ChrW$(&H2502)
+    End Function
+
+    Private Function HLine() As String
+        HLine = ChrW$(&H2500)
+    End Function
+
+    Private Function Cross() As String
+        Cross = ChrW$(&H253C)
+    End Function
+
+    ' A grid with the rows of the documentation's sample, every array set but the colours of the rows.
+    Private Function SampleGrid(ByVal Con As cConsole) As cDataGrid
+        Dim grid As cDataGrid = New cDataGrid(Con)
+        Dim rows(0 To 2) As String
+        Dim widths(0 To 1) As Long
+        Dim aligns(0 To 1) As ColumnAlignment
+        Dim colors(0 To 2) As ConsoleColor
+        rows(0) = "Name" & vbTab & "Size"
+        rows(1) = "readme.txt" & vbTab & "1,204"
+        rows(2) = "setup.exe" & vbTab & "88,512"
+        widths(0) = 12: widths(1) = 8
+        aligns(0) = LEFT: aligns(1) = RIGHT
+        colors(0) = ConsoleColor.Gray: colors(1) = ConsoleColor.Green: colors(2) = ConsoleColor.Yellow
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        Set SampleGrid = grid
+    End Function
+
+    ' The first row from Row down whose cell in column 0 has this background colour, or -1.
+    Private Function RowWithBackground(ByVal Buf As cConsoleBuffer, ByVal FromRow As Long, ByVal Count As Long, ByVal Colour As Long) As Long
+        Dim y As Long
+        RowWithBackground = -1
+        For y = FromRow To FromRow + Count - 1
+            If Cells.Back(Buf, 0, y) = Colour Then
+                RowWithBackground = y
+                Exit Function
+            End If
+        Next
+    End Function
+
+    ' ---- the table
+
+    [TestCase]
+    Public Sub Render_DrawsTheHeaderTheLineUnderItAndTheDataRows()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.Render 0, 0
+        Expect.AreEqual "Name        " & Bar() & "    Size", Cells.Text(con.Buffer, 0, 0, 21), "the header row"
+        Expect.AreEqual String$(12, HLine()) & Cross() & String$(8, HLine()), Cells.Text(con.Buffer, 1, 0, 21), "the line under the header"
+        Expect.AreEqual "readme.txt  " & Bar() & "   1,204", Cells.Text(con.Buffer, 2, 0, 21), "the first data row"
+        Expect.AreEqual "setup.exe   " & Bar() & "  88,512", Cells.Text(con.Buffer, 3, 0, 21), "the second data row"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 21, 2), "the cell right of the table"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 0, 4), "the row under the table"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_ColoursOfHeaderRowsAndSelection_AreAsDocumented()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.SelectedRow = 1
+        grid.Render 0, 0
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(con.Buffer, 0, 0), "colour of the header"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 0, 0), "background of the header"
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(con.Buffer, 12, 0), "colour of the bar in the header"
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 0, 1), "colour of the line under the header"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 0, 2), "colour of the first data row"
+        Expect.AreEqual CLng(ConsoleColor.White), Cells.Fore(con.Buffer, 0, 3), "colour of the selected row"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), Cells.Back(con.Buffer, 0, 3), "background of the selected row"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), Cells.Back(con.Buffer, 20, 3), "background at the end of the selected row"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 0, 2), "background of a data row"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_GivenColoursAndProperties_AreUsed()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.HeaderColor = ConsoleColor.Magenta
+        grid.SelectionColor = ConsoleColor.DarkRed
+        grid.SelectedRow = 0
+        grid.Render 0, 0, ConsoleColor.Red, ConsoleColor.DarkGray
+        Expect.AreEqual CLng(ConsoleColor.Magenta), Cells.Fore(con.Buffer, 0, 0), "colour of the header after HeaderColor"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 0, 0), "background of the header whatever back is"
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 0, 1), "colour of the line under the header (fore)"
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), Cells.Back(con.Buffer, 0, 1), "background of the line under the header (back)"
+        Expect.AreEqual CLng(ConsoleColor.DarkRed), Cells.Back(con.Buffer, 0, 2), "background of the selected row after SelectionColor"
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), Cells.Back(con.Buffer, 0, 3), "background of a data row (back)"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_RowBeyondTheColourArray_KeepsFore()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 3) As String
+        Dim widths(0 To 0) As Long
+        Dim aligns(0 To 0) As ColumnAlignment
+        Dim colors(0 To 1) As ConsoleColor
+        rows(0) = "h": rows(1) = "a": rows(2) = "b": rows(3) = "c"
+        widths(0) = 3
+        colors(1) = ConsoleColor.Red
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        grid.Render 0, 0, ConsoleColor.Cyan
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 0, 2), "colour of the row with the index 1"
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(con.Buffer, 0, 3), "colour of the row with the index 2, beyond the colour array"
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(con.Buffer, 0, 4), "colour of the row with the index 3"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the cells
+
+    [TestCase]
+    Public Sub Render_CellsAreCutWithoutAnEllipsis_AndPadded()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 1) As String
+        Dim widths(0 To 1) As Long
+        Dim aligns(0 To 1) As ColumnAlignment
+        Dim colors(0 To 1) As ConsoleColor
+        rows(0) = "H1" & vbTab & "H2"
+        rows(1) = "abcdefgh" & vbTab & "xy"
+        widths(0) = 5: widths(1) = 4
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        grid.ShowBorders = False
+        grid.Render 0, 0
+        Expect.AreEqual "abcdexy  ", Cells.Text(con.Buffer, 1, 0, 9), "the data row with borders off: abcdefgh cut to 5 cells, xy padded to 4"
+        Expect.AreEqual "H1   H2  ", Cells.Text(con.Buffer, 0, 0, 9), "the header row with borders off"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Alignments_LeftCenterRight_AndOddPaddingOfCenterGoesRight()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 1) As String
+        Dim widths(0 To 2) As Long
+        Dim aligns(0 To 2) As ColumnAlignment
+        Dim colors(0 To 1) As ConsoleColor
+        rows(0) = "a" & vbTab & "b" & vbTab & "c"
+        rows(1) = "xy" & vbTab & "xyz" & vbTab & "xy"
+        widths(0) = 5: widths(1) = 6: widths(2) = 5
+        aligns(0) = LEFT: aligns(1) = CENTER: aligns(2) = RIGHT
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        grid.ShowBorders = False
+        grid.Render 0, 0
+        Expect.AreEqual "xy    xyz     xy", Cells.Text(con.Buffer, 1, 0, 16), "left, centre (odd padding) and right in cells of 5, 6 and 5"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_RowWithFewerCellsHasEmptyCells_AndExtraCellsAreDropped()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 2) As String
+        Dim widths(0 To 1) As Long
+        Dim aligns(0 To 1) As ColumnAlignment
+        Dim colors(0 To 2) As ConsoleColor
+        rows(0) = "H1" & vbTab & "H2"
+        rows(1) = "only"
+        rows(2) = "a" & vbTab & "b" & vbTab & "dropped"
+        widths(0) = 4: widths(1) = 3
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        grid.ShowBorders = False
+        grid.Render 0, 0
+        Expect.AreEqual "only    ", Cells.Text(con.Buffer, 1, 0, 8), "the row with one cell"
+        Expect.AreEqual "a   b  ", Cells.Text(con.Buffer, 2, 0, 7), "the row with three cells"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 7, 2), "the cell after the last column"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_AlignmentArrayShorterThanTheColumns_LeavesTheRestLeft()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 1) As String
+        Dim widths(0 To 1) As Long
+        Dim aligns(0 To 0) As ColumnAlignment
+        Dim colors(0 To 1) As ConsoleColor
+        rows(0) = "a" & vbTab & "b"
+        rows(1) = "x" & vbTab & "y"
+        widths(0) = 3: widths(1) = 3
+        aligns(0) = RIGHT
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        grid.ShowBorders = False
+        grid.Render 0, 0
+        Expect.AreEqual "  xy  ", Cells.Text(con.Buffer, 1, 0, 6), "a row with the first column right and the second column left"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- ShowBorders and ShowHeader
+
+    [TestCase]
+    Public Sub ShowBorders_False_DrawsNoSeparatorColumnAndNoLine()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.ShowBorders = False
+        grid.Render 0, 0
+        Expect.AreEqual "Name            Size", Cells.Text(con.Buffer, 0, 0, 20), "the header row without borders"
+        Expect.AreEqual "readme.txt     1,204", Cells.Text(con.Buffer, 1, 0, 20), "the first data row, directly under the header"
+        Expect.AreEqual "setup.exe     88,512", Cells.Text(con.Buffer, 2, 0, 20), "the second data row"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowHeader_False_EveryRowIsADataRow_AndNoLineIsDrawn()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.ShowHeader = False
+        grid.Render 0, 0
+        Expect.AreEqual "Name        " & Bar() & "    Size", Cells.Text(con.Buffer, 0, 0, 21), "the first row"
+        Expect.AreEqual "readme.txt  " & Bar() & "   1,204", Cells.Text(con.Buffer, 1, 0, 21), "the second row, directly under the first"
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 0, 0), "colour of the first row, which is not a header"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 0, 1), "colour of the second row"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the arrays
+
+    [TestCase]
+    Public Sub SetRows_CopiesTheArray()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 1) As String
+        Dim widths(0 To 0) As Long
+        Dim aligns(0 To 0) As ColumnAlignment
+        Dim colors(0 To 1) As ConsoleColor
+        rows(0) = "head": rows(1) = "first"
+        widths(0) = 6
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        rows(1) = "changed"
+        widths(0) = 2
+        grid.ShowBorders = False
+        grid.Render 0, 0
+        Expect.AreEqual "first ", Cells.Text(con.Buffer, 1, 0, 6), "the data row after the array was changed"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_WithoutRowColors_DrawsTheRows()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 1) As String
+        Dim widths(0 To 0) As Long
+        Dim aligns(0 To 0) As ColumnAlignment
+        rows(0) = "head": rows(1) = "first"
+        widths(0) = 6
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        On Error Resume Next
+        grid.Render 0, 0
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render when SetRowColors was never called"
+        On Error GoTo 0
+        Expect.AreEqual "first", Cells.Text(con.Buffer, 2, 0, 5), "the data row"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_WithoutColumnAlignments_DrawsTheRows()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 1) As String
+        Dim widths(0 To 0) As Long
+        Dim colors(0 To 1) As ConsoleColor
+        rows(0) = "head": rows(1) = "first"
+        widths(0) = 6
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetRowColors colors
+        On Error Resume Next
+        grid.Render 0, 0
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render when SetColumnAlignments was never called"
+        On Error GoTo 0
+        Expect.AreEqual "first", Cells.Text(con.Buffer, 2, 0, 5), "the data row"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_WithoutColumnWidths_DrawsTheRows()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 1) As String
+        Dim aligns(0 To 0) As ColumnAlignment
+        Dim colors(0 To 1) As ConsoleColor
+        rows(0) = "head": rows(1) = "first"
+        grid.SetRows rows
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        On Error Resume Next
+        grid.Render 0, 0
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render when SetColumnWidths was never called"
+        On Error GoTo 0
+        Expect.AreEqual "first", Cells.Text(con.Buffer, 2, 0, 5), "the data row"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_WithoutRows_DrawsNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim widths(0 To 0) As Long
+        Dim aligns(0 To 0) As ColumnAlignment
+        Dim colors(0 To 1) As ConsoleColor
+        widths(0) = 6
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        On Error Resume Next
+        grid.Render 0, 0
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render when SetRows was never called"
+        On Error GoTo 0
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetRowColors_FirstDataRowTakesTheFirstColour()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 2) As String
+        Dim widths(0 To 0) As Long
+        Dim aligns(0 To 0) As ColumnAlignment
+        Dim colors(0 To 1) As ConsoleColor
+        rows(0) = "head": rows(1) = "first": rows(2) = "second"
+        widths(0) = 6
+        colors(0) = ConsoleColor.Red: colors(1) = ConsoleColor.Green
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        grid.Render 0, 0
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 0, 2), "colour of the first data row, given colors(0) = Red"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 0, 3), "colour of the second data row, given colors(1) = Green"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetRowColors_HeaderRowIsCounted_SoColorsOfZeroIsNotUsed()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.Render 0, 0
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(con.Buffer, 0, 0), "colour of the header, colors(0) being Gray"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 0, 2), "colour of the first data row, colors(1) being Green"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 0, 3), "colour of the second data row, colors(2) being Yellow"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the selection
+
+    [TestCase]
+    Public Sub SelectedRow_DefaultIsNoRow()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.Render 0, 0
+        Expect.AreEqual -1, RowWithBackground(con.Buffer, 0, 4, CLng(ConsoleColor.DarkBlue)), "the row with the selection colour of a new grid"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MoveDown_FromNoSelection_SelectsTheFirstDataRow_AndStopsAtTheLast()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.MoveDown 2
+        grid.Render 0, 0
+        Expect.AreEqual 2, RowWithBackground(con.Buffer, 0, 4, CLng(ConsoleColor.DarkBlue)), "the selected row after one MoveDown"
+        grid.MoveDown 2
+        grid.Render 0, 0
+        Expect.AreEqual 3, RowWithBackground(con.Buffer, 0, 4, CLng(ConsoleColor.DarkBlue)), "the selected row after two MoveDown"
+        grid.MoveDown 2
+        grid.MoveDown 2
+        grid.Render 0, 0
+        Expect.AreEqual 3, RowWithBackground(con.Buffer, 0, 4, CLng(ConsoleColor.DarkBlue)), "the selected row after four MoveDown with maxRow 2"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MoveUp_StopsAtTheFirstDataRow_AndDoesNothingWithoutASelection()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.MoveUp
+        grid.Render 0, 0
+        Expect.AreEqual -1, RowWithBackground(con.Buffer, 0, 4, CLng(ConsoleColor.DarkBlue)), "the selected row after MoveUp with no selection"
+        grid.SelectedRow = 1
+        grid.MoveUp
+        grid.Render 0, 0
+        Expect.AreEqual 2, RowWithBackground(con.Buffer, 0, 4, CLng(ConsoleColor.DarkBlue)), "the selected row after MoveUp from the second data row"
+        grid.MoveUp
+        grid.Render 0, 0
+        Expect.AreEqual 2, RowWithBackground(con.Buffer, 0, 4, CLng(ConsoleColor.DarkBlue)), "the selected row after MoveUp from the first data row"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ScrollTo_SelectsTheRowLikeSelectedRow()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.ScrollTo 1
+        grid.Render 0, 0
+        Expect.AreEqual 3, RowWithBackground(con.Buffer, 0, 4, CLng(ConsoleColor.DarkBlue)), "the selected row after ScrollTo 1"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ScrollTo_ShowsTheRowInABufferTooSmallForTheTable()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 6)
+        Dim grid As cDataGrid = New cDataGrid(con)
+        Dim rows(0 To 10) As String
+        Dim widths(0 To 0) As Long
+        Dim aligns(0 To 0) As ColumnAlignment
+        Dim colors(0 To 10) As ConsoleColor
+        Dim i As Long
+        rows(0) = "head"
+        For i = 1 To 10
+            rows(i) = "row" & i
+        Next
+        widths(0) = 6
+        grid.SetRows rows
+        grid.SetColumnWidths widths
+        grid.SetColumnAlignments aligns
+        grid.SetRowColors colors
+        grid.ScrollTo 8
+        grid.Render 0, 0
+        Dim found As Boolean
+        For i = 0 To 5
+            If Cells.Text(con.Buffer, i, 0, 4) = "row9" Then found = True
+        Next
+        Expect.IsTrue found, "the row row9 (data row 8) is in the buffer of 6 rows after ScrollTo 8"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- GetRowCount
+
+    [TestCase]
+    Public Sub GetRowCount_IsTheNumberOfDataRows()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        Expect.AreEqual 2, grid.GetRowCount(), "GetRowCount with a header"
+        grid.ShowHeader = False
+        Expect.AreEqual 3, grid.GetRowCount(), "GetRowCount without a header"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetRowCount_RowsNeverSet_RaisesError9()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = New cDataGrid(con)
+        On Error Resume Next
+        Dim n As Long = grid.GetRowCount()
+        Expect.AreEqual 9, Err.Number, "Err.Number of GetRowCount before SetRows"
+        On Error GoTo 0
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the buffer
+
+    [TestCase]
+    Public Sub Render_RowsBelowTheBuffer_AreDropped()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 3)
+        Dim grid As cDataGrid = SampleGrid(con)
+        On Error Resume Next
+        grid.Render 0, 0
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render of a table of 4 rows in a buffer of 3 rows"
+        On Error GoTo 0
+        Expect.AreEqual "readme.txt", Cells.Text(con.Buffer, 2, 0, 10), "the last row that fits"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_GridMadeBeforeFullScreenMode_RaisesError91()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(100, 30, False)
+        Dim grid As cDataGrid = SampleGrid(con)
+        con.EnterFullScreenMode
+        On Error Resume Next
+        grid.Render 0, 0
+        Expect.AreEqual 91, Err.Number, "Err.Number of Render of a grid made before EnterFullScreenMode"
+        On Error GoTo 0
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_ThenRefresh_ShowsTheTableOnTheScreenBuffer()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim grid As cDataGrid = SampleGrid(con)
+        grid.SelectedRow = 1
+        grid.Render 2, 1
+        con.Refresh
+        Expect.AreEqual "Name        " & Bar() & "    Size", Rig.TextAt(Rig.OutHandle, 2, 1, 21), "screen text of the header"
+        Expect.AreEqual "setup.exe   " & Bar() & "  88,512", Rig.TextAt(Rig.OutHandle, 2, 4, 21), "screen text of the selected row"
+        Expect.AreEqual &H1F&, Rig.AttrAt(Rig.OutHandle, 2, 4), "screen attribute of the selected row (white on dark blue)"
+        Set grid = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/LayoutHelperTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/LayoutHelperTests.twin
new file mode 100644
index 00000000..037271d5
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/LayoutHelperTests.twin
@@ -0,0 +1,349 @@
+' TBMANLIB_ConsoleComponents: cLayoutHelper, on the compiled copy of its code (see TwoPackagesTests).
+' The cases run in a console window of 80 by 25 cells, the size the page's samples use.
+[TestFixture]
+Module LayoutHelperTests
+
+    Private Function R(ByRef Rect As ConsoleRect) As String
+        R = Rect.Left & " " & Rect.Top & " " & Rect.Right & " " & Rect.Bottom
+    End Function
+
+    Private Function Rects(ByRef Parts() As ConsoleRect) As String
+        Dim i As Long
+        For i = LBound(Parts) To UBound(Parts)
+            If i > LBound(Parts) Then Rects = Rects & " | "
+            Rects = Rects & R(Parts(i))
+        Next
+    End Function
+
+    ' ---- positions
+
+    [TestCase]
+    Public Sub Center_CenterX_CenterY_UseTheSizeOfTheWindow()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim pos As ConsolePosition = helper.Center(20, 5)
+        Expect.AreEqual "30 10", pos.Col & " " & pos.Row, "Center of an area of 20 by 5 in a window of 80 by 25"
+        Expect.AreEqual 30, helper.CenterX(20), "CenterX of 20"
+        Expect.AreEqual 10, helper.CenterY(5), "CenterY of 5"
+        pos = helper.Center(100, 31)
+        Expect.AreEqual "-10 -3", pos.Col & " " & pos.Row, "Center of an area larger than the window"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CenterRect_StartsAtCenter_AndIsTheRectangleOfTheConsoleMember()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim a As ConsoleRect = helper.CenterRect(20, 5)
+        Dim b As ConsoleRect = con.CenterRect(20, 5)
+        Expect.AreEqual "30 10 49 14", R(a), "CenterRect of 20 by 5"
+        Expect.AreEqual R(b), R(a), "the rectangle of cConsole.CenterRect"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Percent_PercentX_PercentY_AreNotLimitedTo0To100()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim pos As ConsolePosition = helper.Percent(25, 50)
+        Expect.AreEqual "20 12", pos.Col & " " & pos.Row, "Percent of 25 and 50"
+        Expect.AreEqual 20, helper.PercentX(25), "PercentX of 25"
+        Expect.AreEqual 12, helper.PercentY(50), "PercentY of 50 (12.5 rounds to 12)"
+        Expect.AreEqual 160, helper.PercentX(200), "PercentX of 200"
+        Expect.AreEqual -8, helper.PercentX(-10), "PercentX of -10"
+        pos = helper.Percent(150, 200)
+        Expect.AreEqual "120 50", pos.Col & " " & pos.Row, "Percent of 150 and 200"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PercentRect_LeftTopWidthHeightAreShares()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim a As ConsoleRect = helper.PercentRect(25, 20, 50, 40)
+        Expect.AreEqual "20 5 59 14", R(a), "PercentRect of 25, 20, 50 and 40"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SpacedPositions_DoNotUseTheWindow()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim cols As Variant = helper.SpacedPositions(3, 10, 2, 5)
+        Expect.AreEqual "5 17 29", cols(0) & " " & cols(1) & " " & cols(2), "SpacedPositions of 3 items of 10 columns, 2 apart, from column 5"
+        Expect.AreEqual 0, LBound(cols), "lower bound of the result"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- rectangles
+
+    [TestCase]
+    Public Sub WithMargins_LeavesTheMarginsFree()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim a As ConsoleRect = helper.WithMargins(2, 1, 3, 4)
+        Expect.AreEqual "2 1 76 20", R(a), "WithMargins of 2, 1, 3 and 4"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClampRect_CutsTheRectangleToTheWindow()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim a As ConsoleRect = ConsoleRect_Create(-5, -2, 100, 40)
+        Dim b As ConsoleRect = helper.ClampRect(a)
+        Expect.AreEqual "0 0 79 24", R(b), "ClampRect of a rectangle larger than the window"
+        a = ConsoleRect_Create(10, 20, 30, 24)
+        b = helper.ClampRect(a)
+        Expect.AreEqual "10 20 30 24", R(b), "ClampRect of a rectangle inside the window"
+        a = ConsoleRect_Create(90, 30, 95, 35)
+        b = helper.ClampRect(a)
+        Expect.IsFalse helper.IsValidRect(b), "IsValidRect of a rectangle that lay wholly outside the window, after ClampRect (" & R(b) & ")"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidRect_GetRectWidth_GetRectHeight()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim a As ConsoleRect = ConsoleRect_Create(2, 3, 11, 7)
+        Expect.IsTrue helper.IsValidRect(a), "IsValidRect of 2, 3, 11, 7"
+        Expect.AreEqual 10, helper.GetRectWidth(a), "GetRectWidth"
+        Expect.AreEqual 5, helper.GetRectHeight(a), "GetRectHeight"
+        Expect.AreEqual ConsoleRect_Width(a), helper.GetRectWidth(a), "ConsoleRect_Width"
+        Expect.AreEqual ConsoleRect_Height(a), helper.GetRectHeight(a), "ConsoleRect_Height"
+        a = ConsoleRect_Create(5, 5, 4, 9)
+        Expect.IsFalse helper.IsValidRect(a), "IsValidRect of a rectangle with Right below Left"
+        a = ConsoleRect_Create(5, 5, 5, 5)
+        Expect.IsTrue helper.IsValidRect(a), "IsValidRect of a rectangle of one cell"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the arrangements
+
+    [TestCase]
+    Public Sub SplitHorizontal_GivesATopAndABottomRectangle()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim parts() As ConsoleRect
+        parts = helper.SplitHorizontal(40)
+        Expect.AreEqual "0 0 79 9 | 0 10 79 24", Rects(parts), "SplitHorizontal of 40 percent"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitVertical_GivesALeftAndARightRectangle()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim parts() As ConsoleRect
+        parts = helper.SplitVertical(25)
+        Expect.AreEqual "0 0 19 24 | 20 0 79 24", Rects(parts), "SplitVertical of 25 percent"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Grid_CellsAreWidthDivColsByHeightDivRows_AndTheRemainderIsNotCovered()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim cells() As ConsoleRect
+        cells = helper.Grid(2, 2)
+        Expect.AreEqual "0 0 39 11 | 40 0 79 11 | 0 12 39 23 | 40 12 79 23", Rects(cells), "Grid of 2 by 2"
+        cells = helper.Grid(3, 1)
+        Expect.AreEqual "0 0 25 24 | 26 0 51 24 | 52 0 77 24", Rects(cells), "Grid of 3 by 1 (columns of 26, the last 2 columns of the window are not covered)"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Sidebar_GivesASidebarAndTheRestOfTheWindow()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim parts() As ConsoleRect
+        parts = helper.Sidebar(20)
+        Expect.AreEqual "0 0 19 24 | 20 0 79 24", Rects(parts), "Sidebar of 20 columns"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HeaderFooter_GivesAHeaderABodyAndAFooter()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim parts() As ConsoleRect
+        parts = helper.HeaderFooter(3, 2)
+        Expect.AreEqual "0 0 79 2 | 0 3 79 22 | 0 23 79 24", Rects(parts), "HeaderFooter of 3 and 2 rows"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EvenColumns_LastColumnTakesTheRemainder()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim parts() As ConsoleRect
+        parts = helper.EvenColumns(3, 2)
+        Expect.AreEqual "2 2 26 22 | 27 2 51 22 | 52 2 77 22", Rects(parts), "EvenColumns of 3 with a margin of 2 (76 columns, 25 each)"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EvenRows_LastRowTakesTheRemainder()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim parts() As ConsoleRect
+        parts = helper.EvenRows(3, 1)
+        Expect.AreEqual "1 1 78 7 | 1 8 78 14 | 1 15 78 23", Rects(parts), "EvenRows of 3 with a margin of 1 (23 rows, 7 each)"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ArrangementsWithACountOfZero_RaiseError11()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        On Error Resume Next
+        helper.Grid 0, 2
+        Expect.AreEqual 11, Err.Number, "Err.Number of Grid with 0 columns"
+        Err.Clear
+        helper.Grid 2, 0
+        Expect.AreEqual 11, Err.Number, "Err.Number of Grid with 0 rows"
+        Err.Clear
+        helper.EvenColumns 0, 0
+        Expect.AreEqual 11, Err.Number, "Err.Number of EvenColumns of 0"
+        Err.Clear
+        helper.EvenRows 0, 0
+        Expect.AreEqual 11, Err.Number, "Err.Number of EvenRows of 0"
+        On Error GoTo 0
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the window
+
+    [TestCase]
+    Public Sub Members_FollowTheWindowWhenItIsResized()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Expect.AreEqual 30, helper.CenterX(20), "CenterX before the window changed"
+        Rig.ResizeWindow 100, 30
+        Expect.AreEqual 40, helper.CenterX(20), "CenterX after the window became 100 columns wide"
+        Expect.AreEqual 12, helper.CenterY(5), "CenterY after the window became 30 rows high"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Members_ProgramWithoutAConsole_ComputeFor80By25Cells()
+        Expect.Begin
+        Rig.Acquire 100, 30
+        Rig.NoHandles
+        Dim con As cConsole = New cConsole
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Expect.AreEqual 30, helper.CenterX(20), "CenterX without a console"
+        Expect.AreEqual 10, helper.CenterY(5), "CenterY without a console"
+        Expect.AreEqual 20, helper.PercentX(25), "PercentX without a console"
+        Expect.AreEqual 12, helper.PercentY(50), "PercentY without a console"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- Variants
+
+    [TestCase]
+    Public Sub Grid_ElementOfTheVariant_CannotBeReadMemberByMember()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim parts As Variant = helper.Grid(2, 2)
+        Dim n As Long
+        On Error Resume Next
+        n = parts(0).Left
+        Expect.AreEqual -2147467259, Err.Number, "Err.Number of parts(0).Left on the Variant"
+        On Error GoTo 0
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Grid_Variant_IsAssignedToAnArrayOfRectangles()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25, False)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        Dim rects() As ConsoleRect
+        rects = helper.Grid(2, 2)
+        Expect.AreEqual 0, LBound(rects), "lower bound of rects"
+        Expect.AreEqual 3, UBound(rects), "upper bound of rects"
+        Expect.AreEqual "40 12 79 23", R(rects(3)), "rects(3)"
+        Set helper = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/LayoutTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/LayoutTests.twin
new file mode 100644
index 00000000..d5721166
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/LayoutTests.twin
@@ -0,0 +1,662 @@
+' TBMANLIB_ConsoleComponents: cConsoleLayout, on the compiled copy of its code (see TwoPackagesTests).
+[TestFixture]
+Module LayoutTests
+
+    ' A panel's rectangle as "Left Top Right Bottom".
+    Private Function RectOf(ByVal P As cConsolePanel) As String
+        RectOf = P.Rect.Left & " " & P.Rect.Top & " " & P.Rect.Right & " " & P.Rect.Bottom
+    End Function
+
+    ' The names of the panels a member returned in a Variant, in order.
+    Private Function Names(ByVal Panels As Variant) As String
+        Dim i As Long
+        Dim p As cConsolePanel
+        For i = LBound(Panels) To UBound(Panels)
+            Set p = Panels(i)
+            If i > LBound(Panels) Then Names = Names & " "
+            Names = Names & p.Name
+        Next
+    End Function
+
+    ' The content size of a panel as "width height".
+    Private Function ContentOf(ByVal P As cConsolePanel) As String
+        ContentOf = P.ContentWidth() & " " & P.ContentHeight()
+    End Function
+
+    ' ---- panels, names and the root panel
+
+    [TestCase]
+    Public Sub AddPanel_ReturnsAPanelWithTheDefaultStyleAndTheTitle()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim p As cConsolePanel = layout.AddPanel("root", 1, 2, 30, 8, "Monitor")
+        Expect.AreEqual "1 2 30 9", RectOf(p), "Rect of the panel"
+        Expect.AreEqual "root", p.Name, "Name"
+        Expect.AreEqual "Monitor", p.Title, "Title"
+        Expect.AreEqual 1, CLng(p.BorderStyle), "BorderStyle (Single)"
+        Expect.AreEqual 1, p.Padding, "Padding"
+        Expect.AreEqual 1, layout.PanelCount, "PanelCount"
+        Expect.IsTrue layout.GetPanel("root") Is p, "GetPanel returns the object AddPanel returned"
+        Set p = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPanel_NameIsCaseSensitive_AndAnUnknownNameGivesNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 10, 5
+        Expect.IsTrue layout.GetPanel("Root") Is Nothing, "GetPanel of Root"
+        Expect.IsTrue layout.GetPanel("other") Is Nothing, "GetPanel of other"
+        Expect.IsTrue layout.HasPanel("root"), "HasPanel of root"
+        Expect.IsFalse layout.HasPanel("Root"), "HasPanel of Root"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddPanel_NameInUse_RaisesError457()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 10, 5
+        On Error Resume Next
+        layout.AddPanel "root", 0, 0, 10, 5
+        Expect.AreEqual 457, Err.Number, "Err.Number of AddPanel with a name in use"
+        On Error GoTo 0
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddPanel_NameInUse_AddsNoPanelToTheList()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 10, 5
+        On Error Resume Next
+        layout.AddPanel "root", 0, 0, 10, 5
+        On Error GoTo 0
+        Expect.AreEqual 1, layout.PanelCount, "PanelCount after AddPanel with a name in use"
+        Dim all As Variant = layout.GetAllPanels()
+        Expect.AreEqual 1, UBound(all) + 1, "panels returned by GetAllPanels"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPanelNames_AndGetAllPanels_FollowTheOrderOfCreation()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim a As cConsolePanel = layout.AddPanel("b", 0, 0, 5, 5)
+        Dim b As cConsolePanel = layout.AddPanel("a", 0, 0, 5, 5)
+        Dim c As cConsolePanel = layout.AddPanel("c", 0, 0, 5, 5)
+        Dim nameList As Variant = layout.GetPanelNames()
+        Dim all As Variant = layout.GetAllPanels()
+        Expect.AreEqual "b a c", nameList(0) & " " & nameList(1) & " " & nameList(2), "GetPanelNames"
+        Expect.AreEqual 0, LBound(nameList), "lower bound of the names"
+        Expect.AreEqual "b a c", Names(all), "GetAllPanels returns the panels in the order of creation"
+        Expect.AreEqual 0, LBound(all), "lower bound of the panels"
+        Set a = Nothing: Set b = Nothing: Set c = Nothing
+        all = Empty
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPanel_RenamingAPanel_DoesNotChangeTheNameItIsFoundBy()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim p As cConsolePanel = layout.AddPanel("a", 0, 0, 5, 5)
+        p.Name = "z"
+        Expect.IsTrue layout.HasPanel("a"), "HasPanel of the name the panel was added under"
+        Expect.IsFalse layout.HasPanel("z"), "HasPanel of the new value of Name"
+        Set p = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddPanelByRect_UsesTheInclusiveEdgesOfTheRectangle()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim r As ConsoleRect = ConsoleRect_Create(2, 3, 11, 7)
+        Dim p As cConsolePanel = layout.AddPanelByRect("box", r, "Title")
+        Expect.AreEqual "2 3 11 7", RectOf(p), "Rect of the panel"
+        Expect.AreEqual "Title", p.Title, "Title"
+        Set p = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemovePanel_RemovesFromTheNamesAndTheList_AndAnUnknownNameDoesNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "a", 0, 0, 5, 5
+        layout.AddPanel "b", 0, 0, 5, 5
+        layout.RemovePanel "a"
+        layout.RemovePanel "nothing"
+        Expect.AreEqual 1, layout.PanelCount, "PanelCount"
+        Expect.IsFalse layout.HasPanel("a"), "HasPanel of the removed panel"
+        Expect.IsTrue layout.HasPanel("b"), "HasPanel of the other panel"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_RemovesEveryPanel()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "a", 0, 0, 5, 5
+        layout.AddPanel "b", 0, 0, 5, 5
+        layout.Clear
+        Expect.AreEqual 0, layout.PanelCount, "PanelCount"
+        Expect.IsFalse layout.HasPanel("a"), "HasPanel"
+        layout.AddPanel "a", 0, 0, 5, 5
+        Expect.AreEqual 1, layout.PanelCount, "PanelCount after the name was added again"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RootPanel_IsTheFirstPanel_AndTheFirstRemainingOneAfterItIsRemoved()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(60, 20)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "first", 0, 0, 20, 10
+        layout.AddPanel "second", 30, 5, 30, 15
+        Dim parts As Variant = layout.CreateSidebar(4, "side", "main")
+        Expect.AreEqual "2 2 5 7", RectOf(parts(0)), "the sidebar, in the content area of the first panel (columns 2 to 17, rows 2 to 7)"
+        layout.RemovePanel "first"
+        layout.RemovePanel "side"
+        layout.RemovePanel "main"
+        Dim parts2 As Variant = layout.CreateSidebar(4, "side2", "main2")
+        Expect.AreEqual "32 7 35 17", RectOf(parts2(0)), "the sidebar after the first panel was removed, in the content area of the second panel (columns 32 to 57, rows 7 to 17)"
+        Set parts = Nothing
+        Set parts2 = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- SplitHorizontal and SplitVertical
+
+    [TestCase]
+    Public Sub SplitHorizontal_DividesTheWidthOfTheContentAreaIntoALeftAndARightPanel()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(60, 20)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 40, 12, "Monitor"
+        Dim parts As Variant = layout.SplitHorizontal("root", 0.25, "list", "detail")
+        Expect.AreEqual "2 2 10 9", RectOf(layout.GetPanel("list")), "the left panel"
+        Expect.AreEqual "12 2 37 9", RectOf(layout.GetPanel("detail")), "the right panel"
+        Expect.AreEqual "5 4", ContentOf(layout.GetPanel("list")), "content size of the left panel"
+        Expect.AreEqual "22 4", ContentOf(layout.GetPanel("detail")), "content size of the right panel"
+        Expect.AreEqual 3, layout.PanelCount, "PanelCount"
+        Expect.AreEqual "list detail", Names(parts), "the Variant holds the left panel and then the right panel"
+        Expect.AreEqual "0 0 39 11", RectOf(layout.GetPanel("root")), "the panel that was split stays where it is"
+        Set parts = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitVertical_DividesTheHeightOfTheContentAreaIntoATopAndABottomPanel()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(60, 20)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 40, 12
+        Dim parts As Variant = layout.SplitVertical("root", 0.5, "top", "bottom")
+        Expect.AreEqual "2 2 37 5", RectOf(layout.GetPanel("top")), "the top panel (content rows 2 to 9, 8 rows, half is 4)"
+        Expect.AreEqual "2 7 37 9", RectOf(layout.GetPanel("bottom")), "the bottom panel, one row after the top panel"
+        Expect.AreEqual "top bottom", Names(parts), "the Variant holds the top panel and then the bottom panel"
+        Set parts = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Split_ParentNotInTheLayout_CreatesNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(60, 20)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 40, 12
+        Dim a As Variant
+        Dim b As Variant
+        a = layout.SplitHorizontal("none", 0.5, "l", "r")
+        b = layout.SplitVertical("none", 0.5, "t", "b")
+        Expect.IsTrue IsObject(a) And a Is Nothing, "SplitHorizontal of a parent that is not in the layout returns Nothing"
+        Expect.IsTrue IsObject(b) And b Is Nothing, "SplitVertical of a parent that is not in the layout returns Nothing"
+        Expect.AreEqual 1, layout.PanelCount, "PanelCount"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SplitHorizontal_AndLayoutHelperSplitHorizontal_DivideInTheSameDirection()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(60, 20)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim helper As cLayoutHelper = New cLayoutHelper(con)
+        layout.AddPanel "root", 0, 0, 60, 20
+        layout.SplitHorizontal "root", 0.5, "a", "b"
+        Dim rects() As ConsoleRect
+        rects = helper.SplitHorizontal(50)
+        Dim layoutSideBySide As Boolean = layout.GetPanel("a").Rect.Top = layout.GetPanel("b").Rect.Top
+        Dim helperSideBySide As Boolean = rects(0).Top = rects(1).Top
+        Expect.AreEqual layoutSideBySide, helperSideBySide, "the two parts of cConsoleLayout.SplitHorizontal side by side (" & layoutSideBySide & "), the two of cLayoutHelper.SplitHorizontal side by side (" & helperSideBySide & ")"
+        Set helper = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the arrangements
+
+    [TestCase]
+    Public Sub CreateGrid_DividesTheContentAreaOfTheRootPanel_AndTheLastColumnAndRowTakeTheRemainder()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 60, 20
+        Dim cells As Variant = layout.CreateGrid(2, 2, "cell")
+        Expect.AreEqual "2 2 28 8", RectOf(layout.GetPanel("cell_0")), "cell_0"
+        Expect.AreEqual "30 2 57 8", RectOf(layout.GetPanel("cell_1")), "cell_1"
+        Expect.AreEqual "2 10 28 17", RectOf(layout.GetPanel("cell_2")), "cell_2"
+        Expect.AreEqual "30 10 57 17", RectOf(layout.GetPanel("cell_3")), "cell_3"
+        Expect.AreEqual "23 3", ContentOf(layout.GetPanel("cell_0")), "content size of cell_0"
+        Expect.AreEqual "24 4", ContentOf(layout.GetPanel("cell_3")), "content size of cell_3"
+        Expect.AreEqual 0, LBound(cells), "lower bound of the Variant"
+        Expect.AreEqual "cell_0 cell_1 cell_2 cell_3", Names(cells), "the Variant holds the cells row by row"
+        Expect.AreEqual 5, layout.PanelCount, "PanelCount"
+        Set cells = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateGrid_WithoutAPanel_DividesTheWholeConsole()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim cells As Variant = layout.CreateGrid(2, 1, "c")
+        Expect.AreEqual "0 0 38 24", RectOf(layout.GetPanel("c_0")), "c_0 in a console of 80 by 25"
+        Expect.AreEqual "40 0 79 24", RectOf(layout.GetPanel("c_1")), "c_1, which takes the remainder"
+        Set cells = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateGrid_ZeroColumnsOrRows_RaisesError()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        On Error Resume Next
+        layout.CreateGrid 0, 2, "c"
+        Expect.AreEqual -2147467259, Err.Number, "Err.Number of CreateGrid with 0 columns"
+        Err.Clear
+        layout.CreateGrid 2, 0, "c"
+        Expect.AreEqual -2147467259, Err.Number, "Err.Number of CreateGrid with 0 rows"
+        On Error GoTo 0
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateSidebar_TakesTheLeftColumnsOfTheContentArea_WithNoColumnBetween()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 40, 12
+        Dim parts As Variant = layout.CreateSidebar(10, "side", "main")
+        Expect.AreEqual "2 2 11 9", RectOf(layout.GetPanel("side")), "the sidebar"
+        Expect.AreEqual "12 2 37 9", RectOf(layout.GetPanel("main")), "the content panel"
+        Expect.AreEqual "side main", Names(parts), "the Variant holds the sidebar and then the content panel"
+        Set parts = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateHeaderFooter_DividesTheContentAreaIntoThreeWithNoRowBetween()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(80, 25)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 40, 12
+        Dim parts As Variant = layout.CreateHeaderFooter(2, 1, "head", "body", "foot")
+        Expect.AreEqual "2 2 37 3", RectOf(layout.GetPanel("head")), "the header"
+        Expect.AreEqual "2 4 37 8", RectOf(layout.GetPanel("body")), "the body"
+        Expect.AreEqual "2 9 37 9", RectOf(layout.GetPanel("foot")), "the footer"
+        Expect.AreEqual "head body foot", Names(parts), "the Variant holds the header, the body and the footer"
+        Set parts = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateSidebar_AfterAnArrangementOnAnEmptyLayout_StillUsesTheWholeConsole()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.CreateHeaderFooter 1, 1, "head", "body", "foot"
+        Dim parts As Variant = layout.CreateSidebar(10, "side", "main")
+        Expect.AreEqual "0 0 9 11", RectOf(layout.GetPanel("side")), "the sidebar of a layout whose only panels came from CreateHeaderFooter, in a console of 40 by 12"
+        Set parts = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateHeaderFooter_OnAnEmptyLayout_UsesTheWholeConsole_AndTheHeaderIsTheRoot()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.CreateHeaderFooter 1, 1, "head", "body", "foot"
+        Expect.AreEqual "0 0 39 0", RectOf(layout.GetPanel("head")), "the header"
+        Expect.AreEqual "0 1 39 10", RectOf(layout.GetPanel("body")), "the body"
+        Expect.AreEqual "0 11 39 11", RectOf(layout.GetPanel("foot")), "the footer"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- Render, RenderPanel, ClearAllContent, ClearPanelContent
+
+    [TestCase]
+    Public Sub Render_DrawsTheBordersAndTitlesOfEveryPanelInTheColoursOfTheTheme()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim theme As cConsoleTheme = mConsoleThemeFactory.CreateHTOP()
+        layout.AddPanel "root", 0, 0, 40, 12, "Monitor"
+        layout.CreateHeaderFooter 2, 2, "head", "body", "foot"
+        layout.Render theme
+        Expect.AreEqual &H250C&, Cells.Code(con.Buffer, 0, 0), "the upper left corner of the root panel"
+        Expect.AreEqual &H2518&, Cells.Code(con.Buffer, 39, 11), "the lower right corner of the root panel"
+        Expect.AreEqual " Monitor ", Cells.Text(con.Buffer, 0, 1, 9), "the title of the root panel"
+        Expect.AreEqual CLng(theme.Border), Cells.Fore(con.Buffer, 0, 0), "colour of the border (Border of the theme)"
+        Expect.AreEqual CLng(theme.Background), Cells.Back(con.Buffer, 0, 0), "background of the border (Background of the theme)"
+        Expect.AreEqual &H250C&, Cells.Code(con.Buffer, 2, 2), "the upper left corner of the header, drawn after the root panel"
+        Set theme = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_WithoutATheme_UsesGrayOnBlack_AndLeavesTheInsideAlone()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 20, 8
+        con.Buffer.WriteAt 5, 4, "inside"
+        layout.Render
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 0, 0), "colour of the border"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 0, 0), "background of the border"
+        Expect.AreEqual "inside", Cells.Text(con.Buffer, 4, 5, 6), "the text inside the panel"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_LaterPanelIsDrawnOverAnEarlierOne()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim a As cConsolePanel = layout.AddPanel("a", 0, 0, 10, 5)
+        Dim b As cConsolePanel = layout.AddPanel("b", 0, 0, 10, 5)
+        a.BorderStyle = 2
+        b.BorderStyle = 4
+        layout.Render
+        Expect.AreEqual &H250F&, Cells.Code(con.Buffer, 0, 0), "the corner of the two panels at the same place"
+        Set a = Nothing: Set b = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderPanel_DrawsOnePanel_AndAnUnknownNameDoesNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "a", 0, 0, 10, 5
+        layout.AddPanel "b", 20, 0, 10, 5
+        layout.RenderPanel "b"
+        layout.RenderPanel "none"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 0, 0), "the corner of the panel a, which was not drawn"
+        Expect.AreEqual &H250C&, Cells.Code(con.Buffer, 20, 0), "the corner of the panel b"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearAllContent_FillsTheContentAreasWithTheForegroundAndBackgroundOfTheTheme()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim theme As cConsoleTheme = mConsoleThemeFactory.CreateLight()
+        layout.AddPanel "a", 0, 0, 10, 6
+        layout.AddPanel "b", 20, 0, 10, 6
+        con.Buffer.WriteAt 2, 2, "xx"
+        con.Buffer.WriteAt 22, 2, "xx"
+        layout.ClearAllContent theme
+        Expect.AreEqual "  ", Cells.Text(con.Buffer, 2, 2, 2), "the content area of the panel a"
+        Expect.AreEqual "  ", Cells.Text(con.Buffer, 2, 22, 2), "the content area of the panel b"
+        Expect.AreEqual CLng(theme.Foreground), Cells.Fore(con.Buffer, 2, 2), "colour of a cleared cell"
+        Expect.AreEqual CLng(theme.Background), Cells.Back(con.Buffer, 2, 2), "background of a cleared cell"
+        layout.ClearAllContent
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 2, 2), "colour without a theme"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 2, 2), "background without a theme"
+        Set theme = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearPanelContent_FillsOnePanel_AndAnUnknownNameDoesNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "a", 0, 0, 10, 6
+        layout.AddPanel "b", 20, 0, 10, 6
+        con.Buffer.WriteAt 2, 2, "xx"
+        con.Buffer.WriteAt 22, 2, "xx"
+        layout.ClearPanelContent "b"
+        layout.ClearPanelContent "none"
+        Expect.AreEqual "xx", Cells.Text(con.Buffer, 2, 2, 2), "the content area of the panel a"
+        Expect.AreEqual "  ", Cells.Text(con.Buffer, 2, 22, 2), "the content area of the panel b"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_WhenTheConsoleIsNotInFullScreenMode_RaisesError91()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12, False)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "a", 0, 0, 10, 6
+        On Error Resume Next
+        layout.Render
+        Expect.AreEqual 91, Err.Number, "Err.Number of Render without a buffer"
+        Err.Clear
+        layout.ClearAllContent
+        Expect.AreEqual 91, Err.Number, "Err.Number of ClearAllContent without a buffer"
+        On Error GoTo 0
+        con.EnterFullScreenMode
+        On Error Resume Next
+        layout.Render
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render after the console entered full-screen mode"
+        On Error GoTo 0
+        Expect.AreEqual &H250C&, Cells.Code(con.Buffer, 0, 0), "the corner, drawn into the buffer the console has now"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- Resize and AutoResize
+
+    [TestCase]
+    Public Sub Resize_ScalesThePanelsToTheNewSize()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Dim p As cConsolePanel = layout.AddPanel("root", 0, 0, 40, 12)
+        layout.Resize 80, 24
+        Expect.AreEqual "0 0 79 23", RectOf(p), "Rect of a panel that covered a console of 40 by 12, after Resize 80, 24"
+        Set p = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Resize_StoresTheNewSize_ForTheArrangementsOfALayoutWithNoPanel()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.Resize 20, 10
+        Dim parts As Variant = layout.CreateSidebar(5, "side", "main")
+        Expect.AreEqual "0 0 4 9", RectOf(layout.GetPanel("side")), "the sidebar after Resize 20, 10"
+        Expect.AreEqual "5 0 19 9", RectOf(layout.GetPanel("main")), "the content panel"
+        Set parts = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Resize_ZeroWidthOrHeight_RaisesError6()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 40, 12
+        On Error Resume Next
+        layout.Resize 0, 12
+        Expect.AreEqual 6, Err.Number, "Err.Number of Resize with a width of 0"
+        Err.Clear
+        layout.Resize 40, 0
+        Expect.AreEqual 6, Err.Number, "Err.Number of Resize with a height of 0"
+        On Error GoTo 0
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AutoResize_TakesTheSizeOfTheConsole()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        Rig.ResizeWindow 60, 20
+        layout.AutoResize
+        Dim parts As Variant = layout.CreateSidebar(5, "side", "main")
+        Expect.AreEqual "0 0 4 19", RectOf(layout.GetPanel("side")), "the sidebar after the window grew to 60 by 20 and AutoResize was called"
+        Expect.AreEqual "5 0 59 19", RectOf(layout.GetPanel("main")), "the content panel"
+        Set parts = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the constructor
+
+    [TestCase]
+    Public Sub New_ConsoleNotInFullScreenMode_IsAccepted_AndTheSizeIsReadWhenTheLayoutIsMade()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12, False)
+        Dim layout As cConsoleLayout
+        On Error Resume Next
+        Set layout = New cConsoleLayout(con)
+        Expect.AreEqual 0, Err.Number, "Err.Number of New cConsoleLayout for a console that is not in full-screen mode"
+        On Error GoTo 0
+        Dim cells As Variant = layout.CreateGrid(1, 1, "c")
+        Expect.AreEqual "0 0 39 11", RectOf(layout.GetPanel("c_0")), "the one cell of a grid in a console of 40 by 12"
+        Set cells = Nothing
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_ThenRefresh_ShowsTheBordersOnTheScreenBuffer()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 12)
+        Dim layout As cConsoleLayout = New cConsoleLayout(con)
+        layout.AddPanel "root", 0, 0, 10, 4, "T"
+        layout.Render
+        con.Refresh
+        Expect.AreEqual ChrW$(&H250C) & " T " & String$(5, ChrW$(&H2500)) & ChrW$(&H2510), Rig.TextAt(Rig.OutHandle, 0, 0, 10), "screen text of the top border"
+        Expect.AreEqual ChrW$(&H2514) & String$(8, ChrW$(&H2500)) & ChrW$(&H2518), Rig.TextAt(Rig.OutHandle, 0, 3, 10), "screen text of the bottom border"
+        Set layout = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/PanelTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/PanelTests.twin
new file mode 100644
index 00000000..3957913a
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/PanelTests.twin
@@ -0,0 +1,314 @@
+' TBMANLIB_ConsoleComponents: cConsolePanel, on the compiled copy of its code (see TwoPackagesTests).
+' A panel draws into a cConsoleBuffer it is given, so these cases need no console.
+[TestFixture]
+Module PanelTests
+
+    Private Const NONE As Long = 0
+    Private Const SINGLE As Long = 1
+    Private Const DOUBLE_ As Long = 2
+    Private Const ROUNDED As Long = 3
+    Private Const BOLD As Long = 4
+
+    ' The corners, then the horizontal and vertical line of a border, as hexadecimal numbers.
+    Private Function BorderCodes(ByVal Buf As cConsoleBuffer, ByVal L As Long, ByVal T As Long, ByVal R As Long, ByVal B As Long) As String
+        BorderCodes = Hex$(Cells.Code(Buf, L, T)) & " " & Hex$(Cells.Code(Buf, R, T)) & " " & Hex$(Cells.Code(Buf, L, B)) & " " & Hex$(Cells.Code(Buf, R, B)) & " " & _
+                      Hex$(Cells.Code(Buf, L + 1, T)) & " " & Hex$(Cells.Code(Buf, L, T + 1))
+    End Function
+
+    ' ---- the rectangle
+
+    [TestCase]
+    Public Sub New_RectHasInclusiveEdges()
+        Expect.Begin
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 20, 6)
+        Expect.AreEqual "2 1 21 6", panel.Rect.Left & " " & panel.Rect.Top & " " & panel.Rect.Right & " " & panel.Rect.Bottom, "Left, Top, Right and Bottom of a panel at 2, 1 of 20 by 6 cells"
+        Expect.AreEqual "main", panel.Name, "Name"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_WithoutArguments_IsAPanelOf10By5CellsAtTheOrigin()
+        Expect.Begin
+        Dim panel As cConsolePanel = New cConsolePanel
+        Expect.AreEqual "0 0 9 4", panel.Rect.Left & " " & panel.Rect.Top & " " & panel.Rect.Right & " " & panel.Rect.Bottom, "Left, Top, Right and Bottom of a default panel"
+        Expect.AreEqual "", panel.Name, "Name"
+        Expect.AreEqual SINGLE, CLng(panel.BorderStyle), "BorderStyle"
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(panel.BorderColor), "BorderColor"
+        Expect.AreEqual CLng(ConsoleColor.White), CLng(panel.TitleColor), "TitleColor"
+        Expect.AreEqual 1, panel.Padding, "Padding"
+        Expect.AreEqual "", panel.Title, "Title"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ContentRect_TakesOneCellForTheBorderAndThePadding()
+        Expect.Begin
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 20, 6)
+        Dim cr As ConsoleRect = panel.ContentRect()
+        Expect.AreEqual "4 3 19 4", cr.Left & " " & cr.Top & " " & cr.Right & " " & cr.Bottom, "content area of a panel at 2, 1 of 20 by 6 cells"
+        Expect.AreEqual 16, panel.ContentWidth(), "ContentWidth"
+        Expect.AreEqual 2, panel.ContentHeight(), "ContentHeight"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ContentRect_BorderStyleNone_TakesOnlyThePadding()
+        Expect.Begin
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 20, 6)
+        panel.BorderStyle = NONE
+        Dim cr As ConsoleRect = panel.ContentRect()
+        Expect.AreEqual "3 2 20 5", cr.Left & " " & cr.Top & " " & cr.Right & " " & cr.Bottom, "content area with no border and a padding of 1"
+        panel.Padding = 0
+        cr = panel.ContentRect()
+        Expect.AreEqual "2 1 21 6", cr.Left & " " & cr.Top & " " & cr.Right & " " & cr.Bottom, "content area with no border and no padding"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ContentRect_SmallPanel_IsEmptyOrNegative()
+        Expect.Begin
+        Dim panel As cConsolePanel = New cConsolePanel("tiny", 0, 0, 3, 3)
+        Expect.AreEqual -1, panel.ContentWidth(), "ContentWidth of a panel of 3 by 3 cells"
+        Expect.AreEqual -1, panel.ContentHeight(), "ContentHeight of a panel of 3 by 3 cells"
+        panel.Resize 5, 5
+        Expect.AreEqual 1, panel.ContentWidth(), "ContentWidth of a panel of 5 by 5 cells"
+        Expect.AreEqual 1, panel.ContentHeight(), "ContentHeight of a panel of 5 by 5 cells"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Move_KeepsTheSize()
+        Expect.Begin
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 20, 6)
+        panel.Move 10, 7
+        Expect.AreEqual "10 7 29 12", panel.Rect.Left & " " & panel.Rect.Top & " " & panel.Rect.Right & " " & panel.Rect.Bottom, "Rect after Move 10, 7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Resize_KeepsThePosition()
+        Expect.Begin
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 20, 6)
+        panel.Resize 8, 4
+        Expect.AreEqual "2 1 9 4", panel.Rect.Left & " " & panel.Rect.Top & " " & panel.Rect.Right & " " & panel.Rect.Bottom, "Rect after Resize 8, 4"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Move_AndResize_DrawNothing()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 20, 6)
+        panel.Render buf
+        panel.Move 0, 0
+        panel.Resize 5, 5
+        Expect.AreEqual &H250C&, Cells.Code(buf, 2, 1), "the old upper left corner"
+        Expect.AreEqual 32, Cells.Code(buf, 0, 0), "the new upper left corner"
+        Expect.Done
+    End Sub
+
+    ' ---- Render
+
+    [TestCase]
+    Public Sub Render_Single_DrawsThe250CBorder()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 5)
+        panel.Render buf
+        Expect.AreEqual "250C 2510 2514 2518 2500 2502", BorderCodes(buf, 2, 1, 11, 5), "corners, horizontal and vertical line"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Double_DrawsThe2554Border()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 5)
+        panel.BorderStyle = DOUBLE_
+        panel.Render buf
+        Expect.AreEqual "2554 2557 255A 255D 2550 2551", BorderCodes(buf, 2, 1, 11, 5), "corners, horizontal and vertical line"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Rounded_DrawsTheRoundedCornersAndSingleLines()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 5)
+        panel.BorderStyle = ROUNDED
+        panel.Render buf
+        Expect.AreEqual "256D 256E 2570 256F 2500 2502", BorderCodes(buf, 2, 1, 11, 5), "corners, horizontal and vertical line"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Bold_DrawsTheHeavyBorder()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 5)
+        panel.BorderStyle = BOLD
+        panel.Render buf
+        Expect.AreEqual "250F 2513 2517 251B 2501 2503", BorderCodes(buf, 2, 1, 11, 5), "corners, horizontal and vertical line"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_BorderUsesTheColoursOfTheCall_NotBorderColor()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 5)
+        panel.BorderColor = ConsoleColor.Red
+        panel.Render buf, ConsoleColor.Cyan, ConsoleColor.DarkBlue
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(buf, 2, 1), "colour of the upper left corner"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), Cells.Back(buf, 2, 1), "background of the upper left corner"
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(buf, 5, 5), "colour of the bottom line"
+        panel.Render buf
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(buf, 2, 1), "colour of the corner with the default colours"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(buf, 2, 1), "background of the corner with the default colours"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_DoesNotChangeTheInsideOfThePanel()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 5)
+        buf.WriteAt 3, 2, "inside"
+        panel.Render buf
+        Expect.AreEqual "inside", Cells.Text(buf, 2, 3, 6), "the text inside the border"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_StyleNone_DrawsNothingNotEvenTheTitle()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 5)
+        panel.BorderStyle = NONE
+        panel.Title = "Log"
+        panel.Render buf
+        Expect.AreEqual String$(30, " "), Cells.Text(buf, 1), "row 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_CellsOutsideTheBuffer_AreDropped()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 4)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 6, 1, 10, 6)
+        panel.Title = "Log"
+        On Error Resume Next
+        panel.Render buf
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render of a panel that reaches beyond the buffer"
+        panel.BorderStyle = ROUNDED
+        panel.Render buf
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render of a rounded panel that reaches beyond the buffer"
+        On Error GoTo 0
+        Expect.AreEqual &H256D&, Cells.Code(buf, 6, 1), "the upper left corner, which lies in the buffer, as the second Render drew it"
+        Expect.Done
+    End Sub
+
+    ' ---- the title
+
+    [TestCase]
+    Public Sub Render_Title_IsWrittenBetweenTwoSpacesOnTheTopBorder()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 20, 6)
+        panel.Title = "Log"
+        panel.BorderStyle = DOUBLE_
+        panel.BorderColor = ConsoleColor.Red
+        panel.TitleColor = ConsoleColor.Yellow
+        panel.Render buf, ConsoleColor.Cyan, ConsoleColor.DarkBlue
+        Expect.AreEqual " Log ", Cells.Text(buf, 1, 3, 5), "cells 3 to 7 of the top border"
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(buf, 3, 1), "colour of the space before the title (BorderColor)"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(buf, 4, 1), "colour of the title (TitleColor)"
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(buf, 7, 1), "colour of the space after the title"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(buf, 4, 1), "background of the title"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(buf, 3, 1), "background of the space before the title"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Title_SampleOfThePage()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 20, 6)
+        panel.Title = "Log"
+        panel.BorderStyle = DOUBLE_
+        panel.Render buf, ConsoleColor.Cyan, ConsoleColor.Black
+        Expect.AreEqual "2554 11", Hex$(Cells.Code(buf, 2, 1)) & " " & Cells.Fore(buf, 2, 1), "the upper left corner and its colour"
+        Expect.AreEqual "L 15", Cells.Text(buf, 1, 4, 1) & " " & Cells.Fore(buf, 4, 1), "the first character of the title and its colour"
+        Expect.AreEqual "16 2", panel.ContentWidth() & " " & panel.ContentHeight(), "content size"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_LongTitle_IsCutWithoutAnEllipsis()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 5)
+        panel.Title = "ABCDEFGHIJ"
+        panel.Render buf
+        Expect.AreEqual " ABCDEF " & ChrW$(&H2510), Cells.Text(buf, 1, 3, 9), "cells 3 to 11 of the top border of a panel 10 cells wide"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_PanelTooNarrowForOneCharacterOfTheTitle_DrawsNoTitle()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 4, 5)
+        panel.Title = "Log"
+        panel.Render buf
+        Expect.AreEqual ChrW$(&H250C) & ChrW$(&H2500) & ChrW$(&H2500) & ChrW$(&H2510), Cells.Text(buf, 1, 2, 4), "the top border of a panel 4 cells wide"
+        Expect.Done
+    End Sub
+
+    ' ---- ClearContent
+
+    [TestCase]
+    Public Sub ClearContent_FillsTheContentAreaWithSpaces_AndLeavesTheBorderAndThePadding()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 6)
+        Dim y As Long
+        For y = 0 To 8
+            buf.WriteAt 0, y, String$(30, "x")
+        Next
+        panel.Render buf
+        panel.ClearContent buf
+        ' the content area is columns 4 to 9, rows 3 to 4
+        Expect.AreEqual "xx" & ChrW$(&H2502) & "xxxxxxxx", Cells.Text(buf, 2, 0, 11), "row 2, the padding row"
+        Expect.AreEqual "xx" & ChrW$(&H2502) & "x      x" & ChrW$(&H2502) & "xx", Cells.Text(buf, 3, 0, 14), "row 3: border, padding, content, padding, border"
+        Expect.AreEqual "xx" & ChrW$(&H2502) & "x      x" & ChrW$(&H2502) & "xx", Cells.Text(buf, 4, 0, 14), "row 4"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearContent_UsesTheColoursGiven()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 2, 1, 10, 6)
+        panel.ClearContent buf, ConsoleColor.Red, ConsoleColor.DarkBlue
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(buf, 4, 3), "colour of a cleared cell"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), Cells.Back(buf, 4, 3), "background of a cleared cell"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearContent_ContentAreaOfLessThanTwoCells_DoesNothing()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(30, 10)
+        Dim panel As cConsolePanel = New cConsolePanel("main", 0, 0, 5, 5)
+        buf.WriteAt 2, 2, "x"
+        panel.ClearContent buf
+        Expect.AreEqual "x", Cells.Text(buf, 2, 2, 1), "the one cell of the content area of a panel of 5 by 5 cells"
+        Set panel = New cConsolePanel("wide", 0, 0, 8, 5)
+        buf.WriteAt 2, 2, "xxxx"
+        panel.ClearContent buf
+        Expect.AreEqual "xxxx", Cells.Text(buf, 2, 2, 4), "a content area of 4 by 1 cells"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ProgressBarTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ProgressBarTests.twin
new file mode 100644
index 00000000..c3ac8492
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ProgressBarTests.twin
@@ -0,0 +1,406 @@
+' TBMANLIB_ConsoleComponents: cProgressBar, on the compiled copy of its code (see TwoPackagesTests).
+[TestFixture]
+Module ProgressBarTests
+
+    Private Const FULL As Long = &H2588&
+    Private Const LIGHT As Long = &H2591&
+
+    ' The number of cells of a row, from a column, that hold a character.
+    Private Function CountOf(ByVal Buf As cConsoleBuffer, ByVal Row As Long, ByVal FromCol As Long, ByVal Count As Long, ByVal CodePoint As Long) As Long
+        Dim n As Long
+        Dim x As Long
+        For x = FromCol To FromCol + Count - 1
+            If Cells.Code(Buf, x, Row) = CodePoint Then n = n + 1
+        Next
+        CountOf = n
+    End Function
+
+    ' ---- Render
+
+    [TestCase]
+    Public Sub Render_DrawsTheFilledPartInGreenAndTheEmptyPartInDarkGray()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.Render 0, 0, 10, 50
+        Expect.AreEqual "2588 2588 2588 2588 2588 2591 2591 2591 2591 2591", Cells.Codes(con.Buffer, 0, 0, 10), "characters of a bar of 10 cells at 50 percent"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 4, 0), "colour of the last filled cell"
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), Cells.Fore(con.Buffer, 5, 0), "colour of the first empty cell"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 4, 0), "background of a filled cell"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 5, 0), "background of an empty cell"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 10, 0), "the cell after the bar"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_FilledCellsAreRoundedHalfToEven()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.Render 0, 0, 4, 12.5
+        bar.Render 0, 1, 4, 37.5
+        bar.Render 0, 2, 4, 62.5
+        bar.Render 0, 3, 4, 87.5
+        Expect.AreEqual 0, CountOf(con.Buffer, 0, 0, 4, FULL), "filled cells of 12.5 percent of 4 (0.5)"
+        Expect.AreEqual 2, CountOf(con.Buffer, 1, 0, 4, FULL), "filled cells of 37.5 percent of 4 (1.5)"
+        Expect.AreEqual 2, CountOf(con.Buffer, 2, 0, 4, FULL), "filled cells of 62.5 percent of 4 (2.5)"
+        Expect.AreEqual 4, CountOf(con.Buffer, 3, 0, 4, FULL), "filled cells of 87.5 percent of 4 (3.5)"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_FilledAndEmptyPartsTogetherAreExactlyTheWidth()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        Dim p As Variant
+        Dim row As Long
+        For Each p In Array(0, 1, 33, 66.6, 99, 100)
+            bar.Render 0, row, 17, CDbl(p)
+            Expect.AreEqual 17, CountOf(con.Buffer, row, 0, 17, FULL) + CountOf(con.Buffer, row, 0, 17, LIGHT), "cells of the bar at " & p & " percent"
+            Expect.AreEqual 32, Cells.Code(con.Buffer, 17, row), "the cell after the bar at " & p & " percent"
+            row = row + 1
+        Next
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_PercentOutsideTheRange_IsTakenAsTheNearestEnd()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.Render 0, 0, 10, -20
+        bar.Render 0, 1, 10, 300
+        Expect.AreEqual 0, CountOf(con.Buffer, 0, 0, 10, FULL), "filled cells at -20 percent"
+        Expect.AreEqual 10, CountOf(con.Buffer, 1, 0, 10, FULL), "filled cells at 300 percent"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_WidthOfZeroOrLess_DrawsNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        On Error Resume Next
+        bar.Render 0, 0, 0, 50
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render with a width of 0"
+        bar.Render 0, 1, -3, 50
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render with a width of -3"
+        On Error GoTo 0
+        Expect.AreEqual "....................", Cells.Picture(con.Buffer, 0, 0, 20, 1), "row 0"
+        Expect.AreEqual "....................", Cells.Picture(con.Buffer, 0, 1, 20, 1), "row 1"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_UsesTheFirstCharacterOfTheStrings_AndTheColoursGiven()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.Render 2, 0, 6, 50, "AB", "CD", ConsoleColor.Red, ConsoleColor.Blue
+        Expect.AreEqual "..AAACCC", Cells.Picture(con.Buffer, 0, 0, 8, 1), "cells of a bar of 6 cells at 50 percent with the strings AB and CD"
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 2, 0), "colour of a filled cell"
+        Expect.AreEqual CLng(ConsoleColor.Blue), Cells.Fore(con.Buffer, 5, 0), "colour of an empty cell"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_EmptyString_RaisesError5()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        On Error Resume Next
+        bar.Render 0, 0, 10, 50, ""
+        Expect.AreEqual 5, Err.Number, "Err.Number of Render with an empty filledChar"
+        Err.Clear
+        bar.Render 0, 0, 10, 50, "#", ""
+        Expect.AreEqual 5, Err.Number, "Err.Number of Render with an empty emptyChar"
+        On Error GoTo 0
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_CellsOutsideTheBuffer_AreDropped()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(40, 10)
+        Dim bar As cProgressBar = New cProgressBar(con)
+        On Error Resume Next
+        bar.Render 35, 0, 10, 100
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render across the right edge"
+        bar.Render 0, 12, 10, 100
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render below the bottom edge"
+        On Error GoTo 0
+        Expect.AreEqual 5, CountOf(con.Buffer, 0, 35, 5, FULL), "filled cells that lie in the buffer"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_DoesNotClearTheCellsAroundTheBar()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        con.Buffer.WriteAt 0, 0, "abcdefghijklmnopqrstuvwxyz"
+        bar.Render 5, 0, 4, 100
+        Expect.AreEqual "abcde" & ChrW$(FULL) & ChrW$(FULL) & ChrW$(FULL) & ChrW$(FULL) & "jklmn", Cells.Text(con.Buffer, 0, 0, 14), "row 0 after a bar over the text"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_ThenRefresh_ShowsTheBarOnTheScreenBuffer()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.Render 3, 2, 6, 50
+        Expect.AreEqual String$(6, " "), Rig.TextAt(Rig.OutHandle, 3, 2, 6), "screen text before Refresh"
+        con.Refresh
+        Expect.AreEqual String$(3, ChrW$(FULL)) & String$(3, ChrW$(LIGHT)), Rig.TextAt(Rig.OutHandle, 3, 2, 6), "screen text after Refresh"
+        Expect.AreEqual &HA&, Rig.AttrAt(Rig.OutHandle, 3, 2), "screen attribute of a filled cell (green on black)"
+        Expect.AreEqual &H8&, Rig.AttrAt(Rig.OutHandle, 6, 2), "screen attribute of an empty cell (dark grey on black)"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the buffer a bar keeps
+
+    [TestCase]
+    Public Sub Render_BarMadeBeforeFullScreenMode_RaisesError91()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(100, 30, False)
+        Dim bar As cProgressBar = New cProgressBar(con)
+        con.EnterFullScreenMode
+        On Error Resume Next
+        bar.Render 0, 0, 10, 50
+        Expect.AreEqual 91, Err.Number, "Err.Number of Render of a bar made before EnterFullScreenMode"
+        On Error GoTo 0
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_AfterFullScreenModeWasLeftAndEnteredAgain_DrawsIntoTheOldBuffer()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        con.ExitFullScreenMode
+        con.EnterFullScreenMode
+        bar.Render 0, 0, 10, 100
+        Expect.AreEqual 0, CountOf(con.Buffer, 0, 0, 10, FULL), "filled cells in the new buffer of the console"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- RenderVertical
+
+    [TestCase]
+    Public Sub RenderVertical_FilledPartGrowsFromTheBottom()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.RenderVertical 4, 1, 6, 50
+        Expect.AreEqual "-|-|-|#|#|#", Cells.Picture(con.Buffer, 4, 1, 1, 6), "cells of a vertical bar of 6 cells at 50 percent, from row 1 down"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 4, 6), "colour of the bottom cell"
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), Cells.Fore(con.Buffer, 4, 1), "colour of the top cell"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 4, 7), "the cell under the bar"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 4, 0), "the cell above the bar"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderVertical_FilledCellsAreRoundedHalfToEven_AndPercentIsLimited()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.RenderVertical 0, 0, 4, 12.5
+        bar.RenderVertical 1, 0, 4, 37.5
+        bar.RenderVertical 2, 0, 4, -10
+        bar.RenderVertical 3, 0, 4, 400
+        Dim x As Long
+        Dim n(0 To 3) As Long
+        Dim y As Long
+        For x = 0 To 3
+            For y = 0 To 3
+                If Cells.Code(con.Buffer, x, y) = FULL Then n(x) = n(x) + 1
+            Next
+        Next
+        Expect.AreEqual "0 2 0 4", n(0) & " " & n(1) & " " & n(2) & " " & n(3), "filled cells of 12.5, 37.5, -10 and 400 percent of 4 cells"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the colours
+
+    [TestCase]
+    Public Sub GetProgressColor_ThresholdsAre50And80_AndTheValueIsNotLimited()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(100, 30, False)
+        Dim bar As cProgressBar = New cProgressBar(con)
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(bar.GetProgressColor(49.9)), "GetProgressColor of 49.9"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(bar.GetProgressColor(50)), "GetProgressColor of 50"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(bar.GetProgressColor(79.9)), "GetProgressColor of 79.9"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(bar.GetProgressColor(80)), "GetProgressColor of 80"
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(bar.GetProgressColor(-40)), "GetProgressColor of -40"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(bar.GetProgressColor(900)), "GetProgressColor of 900"
+        Expect.AreEqual CLng(ConsoleColor.Blue), CLng(bar.GetProgressColor(10, ConsoleColor.Blue, ConsoleColor.Cyan, ConsoleColor.White)), "low colour given"
+        Expect.AreEqual CLng(ConsoleColor.Cyan), CLng(bar.GetProgressColor(60, ConsoleColor.Blue, ConsoleColor.Cyan, ConsoleColor.White)), "mid colour given"
+        Expect.AreEqual CLng(ConsoleColor.White), CLng(bar.GetProgressColor(90, ConsoleColor.Blue, ConsoleColor.Cyan, ConsoleColor.White)), "high colour given"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithAutoColor_FilledColourFollowsThePercent_AndTheParametersAreInTheDocumentedOrder()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.RenderWithAutoColor 0, 0, 10, 30
+        bar.RenderWithAutoColor 0, 1, 10, 60
+        bar.RenderWithAutoColor 0, 2, 10, 90
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 0, 0), "filled colour at 30 percent"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 0, 1), "filled colour at 60 percent"
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 0, 2), "filled colour at 90 percent"
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), Cells.Fore(con.Buffer, 9, 0), "empty colour by default"
+        bar.RenderWithAutoColor 0, 3, 10, 60, "#", "-", ConsoleColor.Magenta, ConsoleColor.Blue, ConsoleColor.Cyan, ConsoleColor.White
+        Expect.AreEqual "######----", Cells.Picture(con.Buffer, 0, 3, 10, 1), "cells with the characters given"
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(con.Buffer, 0, 3), "filled colour at 60 percent with midColor Cyan"
+        Expect.AreEqual CLng(ConsoleColor.Magenta), Cells.Fore(con.Buffer, 9, 3), "empty colour given as the 7th argument"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- RenderWithBrackets
+
+    [TestCase]
+    Public Sub RenderWithBrackets_DrawsTheBarBetweenSquareBrackets()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.RenderWithBrackets 2, 0, 12, 50
+        Expect.AreEqual "[#####-----]", Cells.Picture(con.Buffer, 2, 0, 12, 1), "cells of a bracketed bar of width 12 at 50 percent"
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 2, 0), "colour of the opening bracket"
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 13, 0), "colour of the closing bracket"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 3, 0), "colour of the filled part"
+        bar.RenderWithBrackets 2, 1, 12, 50, "#", "-", ConsoleColor.Red, ConsoleColor.Blue, ConsoleColor.Yellow
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 2, 1), "bracket colour given"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithBrackets_DrawsThePercentage()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.RenderWithBrackets 0, 0, 12, 50
+        Expect.IsTrue InStr(Cells.Text(con.Buffer, 0), "50%") > 0, "row 0 after RenderWithBrackets at 50 percent holds the text 50%"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- RenderWithLabel
+
+    [TestCase]
+    Public Sub RenderWithLabel_DrawsTheLabel_TheBar_AndThePercentage()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.RenderWithLabel 0, 0, 30, 50, "Copy"
+        Expect.AreEqual "Copy ", Cells.Text(con.Buffer, 0, 0, 5), "the label and the space after it"
+        Expect.AreEqual 10, CountOf(con.Buffer, 0, 5, 21, FULL), "filled cells of the bar of 21 cells at 50 percent"
+        Expect.AreEqual 11, CountOf(con.Buffer, 0, 5, 21, LIGHT), "empty cells of the bar"
+        Expect.AreEqual " 50%", Cells.Text(con.Buffer, 0, 26, 4), "the space and the percentage"
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 0, 0), "colour of the label"
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 27, 0), "colour of the percentage"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 5, 0), "colour of the bar"
+        bar.RenderWithLabel 0, 1, 30, 50, "Copy", "#", "-", ConsoleColor.Red, ConsoleColor.Blue, ConsoleColor.Yellow
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 0, 1), "label colour given"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 27, 1), "label colour of the percentage"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithLabel_BarIsOneCellNarrowerAtTenAndHundredPercent()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        Dim row As Long
+        Dim p As Variant
+        Dim widths As String
+        For Each p In Array(9, 10, 99, 100)
+            bar.RenderWithLabel 0, row, 20, CDbl(p), "ab"
+            widths = widths & (CountOf(con.Buffer, row, 0, 20, FULL) + CountOf(con.Buffer, row, 0, 20, LIGHT)) & " "
+            row = row + 1
+        Next
+        Expect.AreEqual "14 13 13 12 ", widths, "cells of the bar at 9, 10, 99 and 100 percent in a row of 20 cells with the label ab"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithLabel_BarNarrowerThanThreeCells_DrawsOnlyTheLabelAndThePercentage()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim bar As cProgressBar = New cProgressBar(con)
+        bar.RenderWithLabel 0, 0, 11, 50, "Disk", "#", "-", ConsoleColor.Red, ConsoleColor.Blue, ConsoleColor.Yellow
+        Expect.AreEqual "Disk 50%", Cells.Text(con.Buffer, 0, 0, 8), "row 0 for a bar of 2 cells"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 8, 0), "the cell after the percentage"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 5, 0), "colour of the percentage"
+        bar.RenderWithLabel 0, 1, 12, 50, "Disk"
+        Expect.AreEqual 3, CountOf(con.Buffer, 1, 0, 12, FULL) + CountOf(con.Buffer, 1, 0, 12, LIGHT), "cells of a bar of 3 cells"
+        Set bar = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Rig.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Rig.twin
new file mode 100644
index 00000000..1c11f7ae
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Rig.twin
@@ -0,0 +1,381 @@
+' TBMANLIB_ConsoleComponents: the console the cases work on.
+'
+' A case that needs a console calls Rig.Acquire. It gives the process a screen buffer of its own as
+' the standard output and error handles, and the console's input buffer as the standard input
+' handle, which is what a cConsole made afterwards works on. The screen buffer is not the one the
+' console shows, unless a case calls Rig.MakeActive. Rig.Release puts the handles, the input mode,
+' the code pages and the shown screen buffer back. A case sets its cConsole to Nothing before it
+' calls Rig.Release.
+Module Rig
+
+    Private Declare PtrSafe Function K_CreateFileW Lib "kernel32" Alias "CreateFileW" (ByVal lpFileName As LongPtr, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As LongPtr, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As LongPtr) As LongPtr
+    Private Declare PtrSafe Function K_CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As LongPtr) As Long
+    Private Declare PtrSafe Function K_WriteConsoleInputW Lib "kernel32" Alias "WriteConsoleInputW" (ByVal hConsoleInput As LongPtr, ByVal lpBuffer As LongPtr, ByVal nLength As Long, ByRef lpNumberOfEventsWritten As Long) As Long
+    Private Declare PtrSafe Function K_ReadConsoleOutputCharacterW Lib "kernel32" Alias "ReadConsoleOutputCharacterW" (ByVal hConsoleOutput As LongPtr, ByVal lpCharacter As LongPtr, ByVal nLength As Long, ByVal dwReadCoord As Long, ByRef lpNumberOfCharsRead As Long) As Long
+    Private Declare PtrSafe Function K_ReadConsoleOutputAttribute Lib "kernel32" Alias "ReadConsoleOutputAttribute" (ByVal hConsoleOutput As LongPtr, ByVal lpAttribute As LongPtr, ByVal nLength As Long, ByVal dwReadCoord As Long, ByRef lpNumberOfAttrsRead As Long) As Long
+    Private Declare PtrSafe Function K_WriteConsoleOutputCharacterW Lib "kernel32" Alias "WriteConsoleOutputCharacterW" (ByVal hConsoleOutput As LongPtr, ByVal lpCharacter As LongPtr, ByVal nLength As Long, ByVal dwWriteCoord As Long, ByRef lpNumberOfCharsWritten As Long) As Long
+    Private Declare PtrSafe Sub K_Copy Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+
+    Private mOldIn As LongPtr
+    Private mOldOut As LongPtr
+    Private mOldErr As LongPtr
+    Private mOutH As LongPtr
+    Private mInH As LongPtr
+    Private mErrH As LongPtr
+    Private mInMode As Long
+    Private mInCP As Long
+    Private mOutCP As Long
+    Private mOpen As Boolean
+    Private mShown As LongPtr
+    Private mFile As LongPtr
+
+    ' Gives the process a console to work on. Returns False when it cannot.
+    Public Function Acquire(Optional ByVal Cols As Long = 100, Optional ByVal Rows As Long = 30) As Boolean
+        If mOpen Then Release
+        mOldIn = mConsoleAPI.GetStdHandle(-10)
+        mOldOut = mConsoleAPI.GetStdHandle(-11)
+        mOldErr = mConsoleAPI.GetStdHandle(-12)
+        mOutH = mConsoleAPI.CreateConsoleScreenBuffer(&HC0000000, 3, 0, 1, 0)
+        ' GENERIC_READ Or GENERIC_WRITE, shared, a text-mode buffer
+        mErrH = mConsoleAPI.CreateConsoleScreenBuffer(&HC0000000, 3, 0, 1, 0)
+        Dim name As String
+        name = "CONIN$"
+        mInH = K_CreateFileW(StrPtr(name), &HC0000000, 3, 0, 3, 0, 0)
+        If mOutH = 0 Or mOutH = -1 Or mInH = 0 Or mInH = -1 Or mErrH = 0 Or mErrH = -1 Then
+            CloseAll
+            Exit Function
+        End If
+        ' A window of Cols columns by Rows rows (100 by 30 unless a case asks for another), whatever the console had.
+        Dim wr As mConsoleAPI.SMALL_RECT
+        wr.Left = 0
+        wr.Top = 0
+        wr.Right = CInt(Cols - 1)
+        wr.Bottom = CInt(Rows - 1)
+        mConsoleAPI.SetConsoleWindowInfo mOutH, 1, wr
+        mConsoleAPI.SetConsoleScreenBufferSize mOutH, mConsoleAPI.MakeCOORD(CInt(Cols), CInt(Rows))
+        mConsoleAPI.GetConsoleMode mInH, mInMode
+        mInCP = mConsoleAPI.GetConsoleCP()
+        mOutCP = mConsoleAPI.GetConsoleOutputCP()
+        mConsoleAPI.SetConsoleMode mInH, &H1F7
+        ' processed, line and echo input, with the flags a console starts with
+        mConsoleAPI.SetStdHandle -10, mInH
+        mConsoleAPI.SetStdHandle -11, mOutH
+        mConsoleAPI.SetStdHandle -12, mErrH
+        mConsoleAPI.FlushConsoleInputBuffer mInH
+        mOpen = True
+        Acquire = True
+    End Function
+
+    ' Makes the screen buffer of Acquire the one the console shows. Release puts the other back.
+    Public Sub MakeActive()
+        If Not mOpen Then Exit Sub
+        If mShown <> 0 Then Exit Sub
+        Dim name As String
+        name = "CONOUT$"
+        mShown = K_CreateFileW(StrPtr(name), &HC0000000, 3, 0, 3, 0, 0)
+        mConsoleAPI.SetConsoleActiveScreenBuffer mOutH
+    End Sub
+
+    ' Gives the window of the screen buffer of Acquire another size.
+    Public Sub ResizeWindow(ByVal Cols As Long, ByVal Rows As Long)
+        Dim wr As mConsoleAPI.SMALL_RECT
+        Dim w As Long = WindowWidth()
+        Dim h As Long = WindowHeight()
+        If Cols < w Then w = Cols
+        If Rows < h Then h = Rows
+        wr.Left = 0
+        wr.Top = 0
+        wr.Right = CInt(w - 1)
+        wr.Bottom = CInt(h - 1)
+        mConsoleAPI.SetConsoleWindowInfo mOutH, 1, wr
+        mConsoleAPI.SetConsoleScreenBufferSize mOutH, mConsoleAPI.MakeCOORD(CInt(Cols), CInt(Rows))
+        wr.Right = CInt(Cols - 1)
+        wr.Bottom = CInt(Rows - 1)
+        mConsoleAPI.SetConsoleWindowInfo mOutH, 1, wr
+    End Sub
+
+    ' Takes the standard input handle away, as in a program that has no console input.
+    Public Sub NoInput()
+        mConsoleAPI.SetStdHandle -10, 0
+    End Sub
+
+    ' Takes all three standard handles away, as in a program that has no console.
+    Public Sub NoHandles()
+        mConsoleAPI.SetStdHandle -10, 0
+        mConsoleAPI.SetStdHandle -11, 0
+        mConsoleAPI.SetStdHandle -12, 0
+    End Sub
+
+    ' Sends the standard output and error handles to a file, as in a program whose output is
+    ' redirected. The file is created empty.
+    Public Sub Redirect(ByVal Path As String)
+        If mFile <> 0 Then K_CloseHandle mFile
+        mFile = K_CreateFileW(StrPtr(Path), &H40000000, 3, 0, 2, 0, 0)
+        mConsoleAPI.SetStdHandle -11, mFile
+        mConsoleAPI.SetStdHandle -12, mFile
+    End Sub
+
+    ' Closes the file of Redirect, so that it can be read and removed.
+    Public Sub EndRedirect()
+        If mFile <> 0 Then K_CloseHandle mFile
+        mFile = 0
+    End Sub
+
+    Public Function InMode() As Long
+        Dim m As Long
+        mConsoleAPI.GetConsoleMode mInH, m
+        InMode = m
+    End Function
+
+    Public Sub SetInMode(ByVal Mode As Long)
+        mConsoleAPI.SetConsoleMode mInH, Mode
+    End Sub
+
+    Public Function OutMode() As Long
+        Dim m As Long
+        mConsoleAPI.GetConsoleMode mOutH, m
+        OutMode = m
+    End Function
+
+    Public Sub SetOutMode(ByVal Mode As Long)
+        mConsoleAPI.SetConsoleMode mOutH, Mode
+    End Sub
+
+    ' The width and height of the window of the screen buffer of Acquire.
+    Public Function WindowWidth() As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo mOutH, csbi
+        WindowWidth = csbi.srWindow.Right - csbi.srWindow.Left + 1
+    End Function
+
+    Public Function WindowHeight() As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo mOutH, csbi
+        WindowHeight = csbi.srWindow.Bottom - csbi.srWindow.Top + 1
+    End Function
+
+    Public Function BufferWidth() As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo mOutH, csbi
+        BufferWidth = csbi.dwSize.X
+    End Function
+
+    Public Function BufferHeight() As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo mOutH, csbi
+        BufferHeight = csbi.dwSize.Y
+    End Function
+
+    ' Moves the window of the screen buffer of Acquire so that its top row is Row.
+    Public Sub ScrollWindowTo(ByVal Row As Long)
+        Dim r As mConsoleAPI.SMALL_RECT
+        r.Left = 0
+        r.Top = CInt(Row)
+        r.Right = CInt(WindowWidth() - 1)
+        r.Bottom = CInt(Row + WindowHeight() - 1)
+        mConsoleAPI.SetConsoleWindowInfo mOutH, 1, r
+    End Sub
+
+    ' The text of a whole row of the screen buffer of Acquire, without the blanks at its end.
+    Public Function RowText(ByVal Row As Long) As String
+        RowText = RTrim$(TextAt(mOutH, 0, Row, BufferWidth()))
+    End Function
+
+    ' Puts back what Acquire changed.
+    Public Sub Release()
+        If Not mOpen Then Exit Sub
+        EndRedirect
+        If mShown <> 0 Then
+            mConsoleAPI.SetConsoleActiveScreenBuffer mShown
+            K_CloseHandle mShown
+            mShown = 0
+        End If
+        mConsoleAPI.SetStdHandle -10, mOldIn
+        mConsoleAPI.SetStdHandle -11, mOldOut
+        mConsoleAPI.SetStdHandle -12, mOldErr
+        mConsoleAPI.SetConsoleMode mInH, mInMode
+        mConsoleAPI.SetConsoleCP mInCP
+        mConsoleAPI.SetConsoleOutputCP mOutCP
+        mConsoleAPI.FlushConsoleInputBuffer mInH
+        CloseAll
+        mOpen = False
+    End Sub
+
+    Private Sub CloseAll()
+        If mOutH <> 0 And mOutH <> -1 Then K_CloseHandle mOutH
+        If mErrH <> 0 And mErrH <> -1 Then K_CloseHandle mErrH
+        If mInH <> 0 And mInH <> -1 Then K_CloseHandle mInH
+        mOutH = 0
+        mErrH = 0
+        mInH = 0
+    End Sub
+
+    Public Property Get OutHandle() As LongPtr
+        OutHandle = mOutH
+    End Property
+
+    Public Property Get ErrHandle() As LongPtr
+        ErrHandle = mErrH
+    End Property
+
+    Public Property Get InHandle() As LongPtr
+        InHandle = mInH
+    End Property
+
+    ' The path of a file in the folder the cases may use, which is created when it is missing.
+    Public Function TempPath(ByVal Name As String) As String
+        Dim d As String
+        d = Environ$("TEMP") & "\tbdocs-package-tests"
+        If Len(Dir$(d, vbDirectory)) = 0 Then MkDir d
+        d = d & "\TBMANLIB_ConsoleComponents"
+        If Len(Dir$(d, vbDirectory)) = 0 Then MkDir d
+        TempPath = d & "\" & Name
+    End Function
+
+    ' Removes the files of the folder the cases use, and the folder.
+    Public Sub RemoveTemp()
+        Dim d As String
+        Dim f As String
+        d = Environ$("TEMP") & "\tbdocs-package-tests\TBMANLIB_ConsoleComponents"
+        On Error Resume Next
+        f = Dir$(d & "\*.*")
+        Do While Len(f) > 0
+            Kill d & "\" & f
+            f = Dir$()
+        Loop
+        RmDir d
+    End Sub
+
+    ' Copies Count bytes from one address to another.
+    Public Sub ReadMemory(ByVal Source As LongPtr, ByVal Dest As LongPtr, ByVal Count As Long)
+        K_Copy Dest, Source, Count
+    End Sub
+
+    ' ---- the screen buffer
+
+    ' The text of n cells from a position of a screen buffer.
+    Public Function TextAt(ByVal h As LongPtr, ByVal Col As Long, ByVal Row As Long, ByVal n As Long) As String
+        Dim s As String
+        Dim got As Long
+        s = String$(n, " ")
+        K_ReadConsoleOutputCharacterW h, StrPtr(s), n, mConsoleAPI.MakeCOORD(CInt(Col), CInt(Row)), got
+        TextAt = Left$(s, got)
+    End Function
+
+    ' The attribute of one cell.
+    Public Function AttrAt(ByVal h As LongPtr, ByVal Col As Long, ByVal Row As Long) As Long
+        Dim a As Integer
+        Dim got As Long
+        K_ReadConsoleOutputAttribute h, VarPtr(a), 1, mConsoleAPI.MakeCOORD(CInt(Col), CInt(Row)), got
+        AttrAt = a And &HFFFF&
+    End Function
+
+    ' Writes text into the cells of a screen buffer, without moving the cursor.
+    Public Sub PutText(ByVal h As LongPtr, ByVal Col As Long, ByVal Row As Long, ByVal Text As String)
+        Dim got As Long
+        K_WriteConsoleOutputCharacterW h, StrPtr(Text), Len(Text), mConsoleAPI.MakeCOORD(CInt(Col), CInt(Row)), got
+    End Sub
+
+    Public Function CursorCol(ByVal h As LongPtr) As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo h, csbi
+        CursorCol = csbi.dwCursorPosition.X
+    End Function
+
+    Public Function CursorRow(ByVal h As LongPtr) As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo h, csbi
+        CursorRow = csbi.dwCursorPosition.Y
+    End Function
+
+    ' The current text attribute of a screen buffer.
+    Public Function CurrentAttr(ByVal h As LongPtr) As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo h, csbi
+        CurrentAttr = csbi.wAttributes And &HFFFF&
+    End Function
+
+    ' Sets the text attribute that the next write uses.
+    Public Sub SetAttr(ByVal h As LongPtr, ByVal Attr As Long)
+        mConsoleAPI.SetConsoleTextAttribute h, CInt(Attr)
+    End Sub
+
+    ' ---- the input buffer
+
+    Public Function PendingEvents() As Long
+        Dim n As Long
+        mConsoleAPI.GetNumberOfConsoleInputEvents mInH, n
+        PendingEvents = n
+    End Function
+
+    Public Sub Flush()
+        mConsoleAPI.FlushConsoleInputBuffer mInH
+    End Sub
+
+    ' Puts a key event in the input buffer.
+    Public Sub PushKey(ByVal VirtualKey As Long, ByVal Ch As Long, ByVal KeyDown As Boolean, Optional ByVal ControlState As Long = 0, Optional ByVal RepeatCount As Long = 1)
+        Dim ir As mConsoleAPI.INPUT_RECORD
+        Dim k As mConsoleAPI.KEY_EVENT_RECORD
+        Dim n As Long
+        k.bKeyDown = IIf(KeyDown, 1, 0)
+        k.wRepeatCount = CInt(RepeatCount)
+        k.wVirtualKeyCode = CInt(VirtualKey)
+        k.wVirtualScanCode = 0
+        k.UnicodeChar = CInt(Ch)
+        k.dwControlKeyState = ControlState
+        ir.EventType = 1
+        K_Copy VarPtr(ir.Event(0)), VarPtr(k), 16
+        K_WriteConsoleInputW mInH, VarPtr(ir), 1, n
+    End Sub
+
+    ' A key press: the key down, and then the key up.
+    Public Sub PushPress(ByVal VirtualKey As Long, ByVal Ch As Long, Optional ByVal ControlState As Long = 0)
+        PushKey VirtualKey, Ch, True, ControlState
+        PushKey VirtualKey, Ch, False, ControlState
+    End Sub
+
+    ' Types text: a press of each character.
+    Public Sub PushText(ByVal Text As String)
+        Dim i As Long
+        For i = 1 To Len(Text)
+            PushPress Asc(UCase$(Mid$(Text, i, 1))), AscW(Mid$(Text, i, 1))
+        Next
+    End Sub
+
+    ' Puts a mouse event in the input buffer.
+    Public Sub PushMouse(ByVal Col As Long, ByVal Row As Long, ByVal Buttons As Long, ByVal Flags As Long)
+        Dim ir As mConsoleAPI.INPUT_RECORD
+        Dim m As mConsoleAPI.MOUSE_EVENT_RECORD
+        Dim n As Long
+        m.dwMousePosition.X = CInt(Col)
+        m.dwMousePosition.Y = CInt(Row)
+        m.dwButtonState = Buttons
+        m.dwControlKeyState = 0
+        m.dwEventFlags = Flags
+        ir.EventType = 2
+        K_Copy VarPtr(ir.Event(0)), VarPtr(m), 16
+        K_WriteConsoleInputW mInH, VarPtr(ir), 1, n
+    End Sub
+
+    ' Puts a window-size event in the input buffer.
+    Public Sub PushSize(ByVal Cols As Long, ByVal Rows As Long)
+        Dim ir As mConsoleAPI.INPUT_RECORD
+        Dim w As mConsoleAPI.WINDOW_BUFFER_SIZE_RECORD
+        Dim n As Long
+        w.dwSize.X = CInt(Cols)
+        w.dwSize.Y = CInt(Rows)
+        ir.EventType = 4
+        K_Copy VarPtr(ir.Event(0)), VarPtr(w), 4
+        K_WriteConsoleInputW mInH, VarPtr(ir), 1, n
+    End Sub
+
+    ' Puts a focus event in the input buffer.
+    Public Sub PushFocus()
+        Dim ir As mConsoleAPI.INPUT_RECORD
+        Dim n As Long
+        ir.EventType = &H10
+        ir.Event(0) = 1
+        K_WriteConsoleInputW mInH, VarPtr(ir), 1, n
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/RunAll.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/RunAll.twin
new file mode 100644
index 00000000..33449025
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/RunAll.twin
@@ -0,0 +1,870 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB_ConsoleComponents, version 1.0.0.1. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB_ConsoleComponents 1.0.0.1: 214 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.HeatmapColor_ThresholdsAreAtHalfAndEightTenths
+        Expect.EndCase "ColorHelperTests.HeatmapColor_ThresholdsAreAtHalfAndEightTenths", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.HeatmapColor_ValueOutsideTheRange_IsLimitedToIt
+        Expect.EndCase "ColorHelperTests.HeatmapColor_ValueOutsideTheRange_IsLimitedToIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.HeatmapColor_MaxNotAboveMin_IsTheMiddleColour
+        Expect.EndCase "ColorHelperTests.HeatmapColor_MaxNotAboveMin_IsTheMiddleColour", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.HeatmapColor_GivenColours_AreUsedInPlaceOfTheDefaults
+        Expect.EndCase "ColorHelperTests.HeatmapColor_GivenColours_AreUsedInPlaceOfTheDefaults", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.GradientColor_ChoosesAmongTheThreeColoursAtAQuarterAndThreeQuarters
+        Expect.EndCase "ColorHelperTests.GradientColor_ChoosesAmongTheThreeColoursAtAQuarterAndThreeQuarters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.IntensityColor_EightLevelsInTheOrderOfTheColourNumbers
+        Expect.EndCase "ColorHelperTests.IntensityColor_EightLevelsInTheOrderOfTheColourNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.IntensityColor_LevelIsRoundedHalfToEven
+        Expect.EndCase "ColorHelperTests.IntensityColor_LevelIsRoundedHalfToEven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.IntensityColor_UsesItsBaseColour
+        Expect.EndCase "ColorHelperTests.IntensityColor_UsesItsBaseColour", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.CPUUsageColor_ThresholdsAre50And80
+        Expect.EndCase "ColorHelperTests.CPUUsageColor_ThresholdsAre50And80", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.MemoryUsageColor_ThresholdsAre70And90
+        Expect.EndCase "ColorHelperTests.MemoryUsageColor_ThresholdsAre70And90", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.DiskUsageColor_ThresholdsAre80And95
+        Expect.EndCase "ColorHelperTests.DiskUsageColor_ThresholdsAre80And95", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.GetContrastColor_WhiteUpToDarkGray_BlackAbove
+        Expect.EndCase "ColorHelperTests.GetContrastColor_WhiteUpToDarkGray_BlackAbove", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.IsDarkColor_TrueUpToDarkGray_FalseAbove
+        Expect.EndCase "ColorHelperTests.IsDarkColor_TrueUpToDarkGray_FalseAbove", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.DimColor_BrightColour_IsTheDarkColourOfTheSameHue
+        Expect.EndCase "ColorHelperTests.DimColor_BrightColour_IsTheDarkColourOfTheSameHue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.DimColor_DarkColour_IsNotBrighter
+        Expect.EndCase "ColorHelperTests.DimColor_DarkColour_IsNotBrighter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.BrightenColor_DarkColour_IsTheBrightColourOfTheSameHue
+        Expect.EndCase "ColorHelperTests.BrightenColor_DarkColour_IsTheBrightColourOfTheSameHue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.BrightenColor_BrightColour_IsWhite
+        Expect.EndCase "ColorHelperTests.BrightenColor_BrightColour_IsWhite", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.BrightenColor_DarkGray_IsAConsoleColour
+        Expect.EndCase "ColorHelperTests.BrightenColor_DarkGray_IsAConsoleColour", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.CycleColor_GoesRoundTheList_AlsoBackwards
+        Expect.EndCase "ColorHelperTests.CycleColor_GoesRoundTheList_AlsoBackwards", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.CycleColor_EmptyList_IsGray
+        Expect.EndCase "ColorHelperTests.CycleColor_EmptyList_IsGray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColorHelperTests.CycleColor_ListStartingAtOne_GivesTheFirstElementForIndexZero
+        Expect.EndCase "ColorHelperTests.CycleColor_ListStartingAtOne_GivesTheFirstElementForIndexZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_DrawsTheHeaderTheLineUnderItAndTheDataRows
+        Expect.EndCase "DataGridTests.Render_DrawsTheHeaderTheLineUnderItAndTheDataRows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_ColoursOfHeaderRowsAndSelection_AreAsDocumented
+        Expect.EndCase "DataGridTests.Render_ColoursOfHeaderRowsAndSelection_AreAsDocumented", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_GivenColoursAndProperties_AreUsed
+        Expect.EndCase "DataGridTests.Render_GivenColoursAndProperties_AreUsed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_RowBeyondTheColourArray_KeepsFore
+        Expect.EndCase "DataGridTests.Render_RowBeyondTheColourArray_KeepsFore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_CellsAreCutWithoutAnEllipsis_AndPadded
+        Expect.EndCase "DataGridTests.Render_CellsAreCutWithoutAnEllipsis_AndPadded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_Alignments_LeftCenterRight_AndOddPaddingOfCenterGoesRight
+        Expect.EndCase "DataGridTests.Render_Alignments_LeftCenterRight_AndOddPaddingOfCenterGoesRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_RowWithFewerCellsHasEmptyCells_AndExtraCellsAreDropped
+        Expect.EndCase "DataGridTests.Render_RowWithFewerCellsHasEmptyCells_AndExtraCellsAreDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_AlignmentArrayShorterThanTheColumns_LeavesTheRestLeft
+        Expect.EndCase "DataGridTests.Render_AlignmentArrayShorterThanTheColumns_LeavesTheRestLeft", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.ShowBorders_False_DrawsNoSeparatorColumnAndNoLine
+        Expect.EndCase "DataGridTests.ShowBorders_False_DrawsNoSeparatorColumnAndNoLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.ShowHeader_False_EveryRowIsADataRow_AndNoLineIsDrawn
+        Expect.EndCase "DataGridTests.ShowHeader_False_EveryRowIsADataRow_AndNoLineIsDrawn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.SetRows_CopiesTheArray
+        Expect.EndCase "DataGridTests.SetRows_CopiesTheArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_WithoutRowColors_DrawsTheRows
+        Expect.EndCase "DataGridTests.Render_WithoutRowColors_DrawsTheRows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_WithoutColumnAlignments_DrawsTheRows
+        Expect.EndCase "DataGridTests.Render_WithoutColumnAlignments_DrawsTheRows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_WithoutColumnWidths_DrawsTheRows
+        Expect.EndCase "DataGridTests.Render_WithoutColumnWidths_DrawsTheRows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_WithoutRows_DrawsNothing
+        Expect.EndCase "DataGridTests.Render_WithoutRows_DrawsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.SetRowColors_FirstDataRowTakesTheFirstColour
+        Expect.EndCase "DataGridTests.SetRowColors_FirstDataRowTakesTheFirstColour", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.SetRowColors_HeaderRowIsCounted_SoColorsOfZeroIsNotUsed
+        Expect.EndCase "DataGridTests.SetRowColors_HeaderRowIsCounted_SoColorsOfZeroIsNotUsed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.SelectedRow_DefaultIsNoRow
+        Expect.EndCase "DataGridTests.SelectedRow_DefaultIsNoRow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.MoveDown_FromNoSelection_SelectsTheFirstDataRow_AndStopsAtTheLast
+        Expect.EndCase "DataGridTests.MoveDown_FromNoSelection_SelectsTheFirstDataRow_AndStopsAtTheLast", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.MoveUp_StopsAtTheFirstDataRow_AndDoesNothingWithoutASelection
+        Expect.EndCase "DataGridTests.MoveUp_StopsAtTheFirstDataRow_AndDoesNothingWithoutASelection", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.ScrollTo_SelectsTheRowLikeSelectedRow
+        Expect.EndCase "DataGridTests.ScrollTo_SelectsTheRowLikeSelectedRow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.ScrollTo_ShowsTheRowInABufferTooSmallForTheTable
+        Expect.EndCase "DataGridTests.ScrollTo_ShowsTheRowInABufferTooSmallForTheTable", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.GetRowCount_IsTheNumberOfDataRows
+        Expect.EndCase "DataGridTests.GetRowCount_IsTheNumberOfDataRows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.GetRowCount_RowsNeverSet_RaisesError9
+        Expect.EndCase "DataGridTests.GetRowCount_RowsNeverSet_RaisesError9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_RowsBelowTheBuffer_AreDropped
+        Expect.EndCase "DataGridTests.Render_RowsBelowTheBuffer_AreDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_GridMadeBeforeFullScreenMode_RaisesError91
+        Expect.EndCase "DataGridTests.Render_GridMadeBeforeFullScreenMode_RaisesError91", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DataGridTests.Render_ThenRefresh_ShowsTheTableOnTheScreenBuffer
+        Expect.EndCase "DataGridTests.Render_ThenRefresh_ShowsTheTableOnTheScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.Center_CenterX_CenterY_UseTheSizeOfTheWindow
+        Expect.EndCase "LayoutHelperTests.Center_CenterX_CenterY_UseTheSizeOfTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.CenterRect_StartsAtCenter_AndIsTheRectangleOfTheConsoleMember
+        Expect.EndCase "LayoutHelperTests.CenterRect_StartsAtCenter_AndIsTheRectangleOfTheConsoleMember", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.Percent_PercentX_PercentY_AreNotLimitedTo0To100
+        Expect.EndCase "LayoutHelperTests.Percent_PercentX_PercentY_AreNotLimitedTo0To100", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.PercentRect_LeftTopWidthHeightAreShares
+        Expect.EndCase "LayoutHelperTests.PercentRect_LeftTopWidthHeightAreShares", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.SpacedPositions_DoNotUseTheWindow
+        Expect.EndCase "LayoutHelperTests.SpacedPositions_DoNotUseTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.WithMargins_LeavesTheMarginsFree
+        Expect.EndCase "LayoutHelperTests.WithMargins_LeavesTheMarginsFree", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.ClampRect_CutsTheRectangleToTheWindow
+        Expect.EndCase "LayoutHelperTests.ClampRect_CutsTheRectangleToTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.IsValidRect_GetRectWidth_GetRectHeight
+        Expect.EndCase "LayoutHelperTests.IsValidRect_GetRectWidth_GetRectHeight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.SplitHorizontal_GivesATopAndABottomRectangle
+        Expect.EndCase "LayoutHelperTests.SplitHorizontal_GivesATopAndABottomRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.SplitVertical_GivesALeftAndARightRectangle
+        Expect.EndCase "LayoutHelperTests.SplitVertical_GivesALeftAndARightRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.Grid_CellsAreWidthDivColsByHeightDivRows_AndTheRemainderIsNotCovered
+        Expect.EndCase "LayoutHelperTests.Grid_CellsAreWidthDivColsByHeightDivRows_AndTheRemainderIsNotCovered", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.Sidebar_GivesASidebarAndTheRestOfTheWindow
+        Expect.EndCase "LayoutHelperTests.Sidebar_GivesASidebarAndTheRestOfTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.HeaderFooter_GivesAHeaderABodyAndAFooter
+        Expect.EndCase "LayoutHelperTests.HeaderFooter_GivesAHeaderABodyAndAFooter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.EvenColumns_LastColumnTakesTheRemainder
+        Expect.EndCase "LayoutHelperTests.EvenColumns_LastColumnTakesTheRemainder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.EvenRows_LastRowTakesTheRemainder
+        Expect.EndCase "LayoutHelperTests.EvenRows_LastRowTakesTheRemainder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.ArrangementsWithACountOfZero_RaiseError11
+        Expect.EndCase "LayoutHelperTests.ArrangementsWithACountOfZero_RaiseError11", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.Members_FollowTheWindowWhenItIsResized
+        Expect.EndCase "LayoutHelperTests.Members_FollowTheWindowWhenItIsResized", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.Members_ProgramWithoutAConsole_ComputeFor80By25Cells
+        Expect.EndCase "LayoutHelperTests.Members_ProgramWithoutAConsole_ComputeFor80By25Cells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.Grid_ElementOfTheVariant_CannotBeReadMemberByMember
+        Expect.EndCase "LayoutHelperTests.Grid_ElementOfTheVariant_CannotBeReadMemberByMember", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutHelperTests.Grid_Variant_IsAssignedToAnArrayOfRectangles
+        Expect.EndCase "LayoutHelperTests.Grid_Variant_IsAssignedToAnArrayOfRectangles", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.AddPanel_ReturnsAPanelWithTheDefaultStyleAndTheTitle
+        Expect.EndCase "LayoutTests.AddPanel_ReturnsAPanelWithTheDefaultStyleAndTheTitle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.GetPanel_NameIsCaseSensitive_AndAnUnknownNameGivesNothing
+        Expect.EndCase "LayoutTests.GetPanel_NameIsCaseSensitive_AndAnUnknownNameGivesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.AddPanel_NameInUse_RaisesError457
+        Expect.EndCase "LayoutTests.AddPanel_NameInUse_RaisesError457", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.AddPanel_NameInUse_AddsNoPanelToTheList
+        Expect.EndCase "LayoutTests.AddPanel_NameInUse_AddsNoPanelToTheList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.GetPanelNames_AndGetAllPanels_FollowTheOrderOfCreation
+        Expect.EndCase "LayoutTests.GetPanelNames_AndGetAllPanels_FollowTheOrderOfCreation", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.GetPanel_RenamingAPanel_DoesNotChangeTheNameItIsFoundBy
+        Expect.EndCase "LayoutTests.GetPanel_RenamingAPanel_DoesNotChangeTheNameItIsFoundBy", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.AddPanelByRect_UsesTheInclusiveEdgesOfTheRectangle
+        Expect.EndCase "LayoutTests.AddPanelByRect_UsesTheInclusiveEdgesOfTheRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.RemovePanel_RemovesFromTheNamesAndTheList_AndAnUnknownNameDoesNothing
+        Expect.EndCase "LayoutTests.RemovePanel_RemovesFromTheNamesAndTheList_AndAnUnknownNameDoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Clear_RemovesEveryPanel
+        Expect.EndCase "LayoutTests.Clear_RemovesEveryPanel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.RootPanel_IsTheFirstPanel_AndTheFirstRemainingOneAfterItIsRemoved
+        Expect.EndCase "LayoutTests.RootPanel_IsTheFirstPanel_AndTheFirstRemainingOneAfterItIsRemoved", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.SplitHorizontal_DividesTheWidthOfTheContentAreaIntoALeftAndARightPanel
+        Expect.EndCase "LayoutTests.SplitHorizontal_DividesTheWidthOfTheContentAreaIntoALeftAndARightPanel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.SplitVertical_DividesTheHeightOfTheContentAreaIntoATopAndABottomPanel
+        Expect.EndCase "LayoutTests.SplitVertical_DividesTheHeightOfTheContentAreaIntoATopAndABottomPanel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Split_ParentNotInTheLayout_CreatesNothing
+        Expect.EndCase "LayoutTests.Split_ParentNotInTheLayout_CreatesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.SplitHorizontal_AndLayoutHelperSplitHorizontal_DivideInTheSameDirection
+        Expect.EndCase "LayoutTests.SplitHorizontal_AndLayoutHelperSplitHorizontal_DivideInTheSameDirection", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.CreateGrid_DividesTheContentAreaOfTheRootPanel_AndTheLastColumnAndRowTakeTheRemainder
+        Expect.EndCase "LayoutTests.CreateGrid_DividesTheContentAreaOfTheRootPanel_AndTheLastColumnAndRowTakeTheRemainder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.CreateGrid_WithoutAPanel_DividesTheWholeConsole
+        Expect.EndCase "LayoutTests.CreateGrid_WithoutAPanel_DividesTheWholeConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.CreateGrid_ZeroColumnsOrRows_RaisesError
+        Expect.EndCase "LayoutTests.CreateGrid_ZeroColumnsOrRows_RaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.CreateSidebar_TakesTheLeftColumnsOfTheContentArea_WithNoColumnBetween
+        Expect.EndCase "LayoutTests.CreateSidebar_TakesTheLeftColumnsOfTheContentArea_WithNoColumnBetween", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.CreateHeaderFooter_DividesTheContentAreaIntoThreeWithNoRowBetween
+        Expect.EndCase "LayoutTests.CreateHeaderFooter_DividesTheContentAreaIntoThreeWithNoRowBetween", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.CreateSidebar_AfterAnArrangementOnAnEmptyLayout_StillUsesTheWholeConsole
+        Expect.EndCase "LayoutTests.CreateSidebar_AfterAnArrangementOnAnEmptyLayout_StillUsesTheWholeConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.CreateHeaderFooter_OnAnEmptyLayout_UsesTheWholeConsole_AndTheHeaderIsTheRoot
+        Expect.EndCase "LayoutTests.CreateHeaderFooter_OnAnEmptyLayout_UsesTheWholeConsole_AndTheHeaderIsTheRoot", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Render_DrawsTheBordersAndTitlesOfEveryPanelInTheColoursOfTheTheme
+        Expect.EndCase "LayoutTests.Render_DrawsTheBordersAndTitlesOfEveryPanelInTheColoursOfTheTheme", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Render_WithoutATheme_UsesGrayOnBlack_AndLeavesTheInsideAlone
+        Expect.EndCase "LayoutTests.Render_WithoutATheme_UsesGrayOnBlack_AndLeavesTheInsideAlone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Render_LaterPanelIsDrawnOverAnEarlierOne
+        Expect.EndCase "LayoutTests.Render_LaterPanelIsDrawnOverAnEarlierOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.RenderPanel_DrawsOnePanel_AndAnUnknownNameDoesNothing
+        Expect.EndCase "LayoutTests.RenderPanel_DrawsOnePanel_AndAnUnknownNameDoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.ClearAllContent_FillsTheContentAreasWithTheForegroundAndBackgroundOfTheTheme
+        Expect.EndCase "LayoutTests.ClearAllContent_FillsTheContentAreasWithTheForegroundAndBackgroundOfTheTheme", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.ClearPanelContent_FillsOnePanel_AndAnUnknownNameDoesNothing
+        Expect.EndCase "LayoutTests.ClearPanelContent_FillsOnePanel_AndAnUnknownNameDoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Render_WhenTheConsoleIsNotInFullScreenMode_RaisesError91
+        Expect.EndCase "LayoutTests.Render_WhenTheConsoleIsNotInFullScreenMode_RaisesError91", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Resize_ScalesThePanelsToTheNewSize
+        Expect.EndCase "LayoutTests.Resize_ScalesThePanelsToTheNewSize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Resize_StoresTheNewSize_ForTheArrangementsOfALayoutWithNoPanel
+        Expect.EndCase "LayoutTests.Resize_StoresTheNewSize_ForTheArrangementsOfALayoutWithNoPanel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Resize_ZeroWidthOrHeight_RaisesError6
+        Expect.EndCase "LayoutTests.Resize_ZeroWidthOrHeight_RaisesError6", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.AutoResize_TakesTheSizeOfTheConsole
+        Expect.EndCase "LayoutTests.AutoResize_TakesTheSizeOfTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.New_ConsoleNotInFullScreenMode_IsAccepted_AndTheSizeIsReadWhenTheLayoutIsMade
+        Expect.EndCase "LayoutTests.New_ConsoleNotInFullScreenMode_IsAccepted_AndTheSizeIsReadWhenTheLayoutIsMade", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Render_ThenRefresh_ShowsTheBordersOnTheScreenBuffer
+        Expect.EndCase "LayoutTests.Render_ThenRefresh_ShowsTheBordersOnTheScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.New_RectHasInclusiveEdges
+        Expect.EndCase "PanelTests.New_RectHasInclusiveEdges", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.New_WithoutArguments_IsAPanelOf10By5CellsAtTheOrigin
+        Expect.EndCase "PanelTests.New_WithoutArguments_IsAPanelOf10By5CellsAtTheOrigin", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.ContentRect_TakesOneCellForTheBorderAndThePadding
+        Expect.EndCase "PanelTests.ContentRect_TakesOneCellForTheBorderAndThePadding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.ContentRect_BorderStyleNone_TakesOnlyThePadding
+        Expect.EndCase "PanelTests.ContentRect_BorderStyleNone_TakesOnlyThePadding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.ContentRect_SmallPanel_IsEmptyOrNegative
+        Expect.EndCase "PanelTests.ContentRect_SmallPanel_IsEmptyOrNegative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Move_KeepsTheSize
+        Expect.EndCase "PanelTests.Move_KeepsTheSize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Resize_KeepsThePosition
+        Expect.EndCase "PanelTests.Resize_KeepsThePosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Move_AndResize_DrawNothing
+        Expect.EndCase "PanelTests.Move_AndResize_DrawNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_Single_DrawsThe250CBorder
+        Expect.EndCase "PanelTests.Render_Single_DrawsThe250CBorder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_Double_DrawsThe2554Border
+        Expect.EndCase "PanelTests.Render_Double_DrawsThe2554Border", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_Rounded_DrawsTheRoundedCornersAndSingleLines
+        Expect.EndCase "PanelTests.Render_Rounded_DrawsTheRoundedCornersAndSingleLines", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_Bold_DrawsTheHeavyBorder
+        Expect.EndCase "PanelTests.Render_Bold_DrawsTheHeavyBorder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_BorderUsesTheColoursOfTheCall_NotBorderColor
+        Expect.EndCase "PanelTests.Render_BorderUsesTheColoursOfTheCall_NotBorderColor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_DoesNotChangeTheInsideOfThePanel
+        Expect.EndCase "PanelTests.Render_DoesNotChangeTheInsideOfThePanel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_StyleNone_DrawsNothingNotEvenTheTitle
+        Expect.EndCase "PanelTests.Render_StyleNone_DrawsNothingNotEvenTheTitle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_CellsOutsideTheBuffer_AreDropped
+        Expect.EndCase "PanelTests.Render_CellsOutsideTheBuffer_AreDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_Title_IsWrittenBetweenTwoSpacesOnTheTopBorder
+        Expect.EndCase "PanelTests.Render_Title_IsWrittenBetweenTwoSpacesOnTheTopBorder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_Title_SampleOfThePage
+        Expect.EndCase "PanelTests.Render_Title_SampleOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_LongTitle_IsCutWithoutAnEllipsis
+        Expect.EndCase "PanelTests.Render_LongTitle_IsCutWithoutAnEllipsis", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.Render_PanelTooNarrowForOneCharacterOfTheTitle_DrawsNoTitle
+        Expect.EndCase "PanelTests.Render_PanelTooNarrowForOneCharacterOfTheTitle_DrawsNoTitle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.ClearContent_FillsTheContentAreaWithSpaces_AndLeavesTheBorderAndThePadding
+        Expect.EndCase "PanelTests.ClearContent_FillsTheContentAreaWithSpaces_AndLeavesTheBorderAndThePadding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.ClearContent_UsesTheColoursGiven
+        Expect.EndCase "PanelTests.ClearContent_UsesTheColoursGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PanelTests.ClearContent_ContentAreaOfLessThanTwoCells_DoesNothing
+        Expect.EndCase "PanelTests.ClearContent_ContentAreaOfLessThanTwoCells_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_DrawsTheFilledPartInGreenAndTheEmptyPartInDarkGray
+        Expect.EndCase "ProgressBarTests.Render_DrawsTheFilledPartInGreenAndTheEmptyPartInDarkGray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_FilledCellsAreRoundedHalfToEven
+        Expect.EndCase "ProgressBarTests.Render_FilledCellsAreRoundedHalfToEven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_FilledAndEmptyPartsTogetherAreExactlyTheWidth
+        Expect.EndCase "ProgressBarTests.Render_FilledAndEmptyPartsTogetherAreExactlyTheWidth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_PercentOutsideTheRange_IsTakenAsTheNearestEnd
+        Expect.EndCase "ProgressBarTests.Render_PercentOutsideTheRange_IsTakenAsTheNearestEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_WidthOfZeroOrLess_DrawsNothing
+        Expect.EndCase "ProgressBarTests.Render_WidthOfZeroOrLess_DrawsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_UsesTheFirstCharacterOfTheStrings_AndTheColoursGiven
+        Expect.EndCase "ProgressBarTests.Render_UsesTheFirstCharacterOfTheStrings_AndTheColoursGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_EmptyString_RaisesError5
+        Expect.EndCase "ProgressBarTests.Render_EmptyString_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_CellsOutsideTheBuffer_AreDropped
+        Expect.EndCase "ProgressBarTests.Render_CellsOutsideTheBuffer_AreDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_DoesNotClearTheCellsAroundTheBar
+        Expect.EndCase "ProgressBarTests.Render_DoesNotClearTheCellsAroundTheBar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_ThenRefresh_ShowsTheBarOnTheScreenBuffer
+        Expect.EndCase "ProgressBarTests.Render_ThenRefresh_ShowsTheBarOnTheScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91
+        Expect.EndCase "ProgressBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.Render_AfterFullScreenModeWasLeftAndEnteredAgain_DrawsIntoTheOldBuffer
+        Expect.EndCase "ProgressBarTests.Render_AfterFullScreenModeWasLeftAndEnteredAgain_DrawsIntoTheOldBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.RenderVertical_FilledPartGrowsFromTheBottom
+        Expect.EndCase "ProgressBarTests.RenderVertical_FilledPartGrowsFromTheBottom", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.RenderVertical_FilledCellsAreRoundedHalfToEven_AndPercentIsLimited
+        Expect.EndCase "ProgressBarTests.RenderVertical_FilledCellsAreRoundedHalfToEven_AndPercentIsLimited", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.GetProgressColor_ThresholdsAre50And80_AndTheValueIsNotLimited
+        Expect.EndCase "ProgressBarTests.GetProgressColor_ThresholdsAre50And80_AndTheValueIsNotLimited", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.RenderWithAutoColor_FilledColourFollowsThePercent_AndTheParametersAreInTheDocumentedOrder
+        Expect.EndCase "ProgressBarTests.RenderWithAutoColor_FilledColourFollowsThePercent_AndTheParametersAreInTheDocumentedOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.RenderWithBrackets_DrawsTheBarBetweenSquareBrackets
+        Expect.EndCase "ProgressBarTests.RenderWithBrackets_DrawsTheBarBetweenSquareBrackets", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.RenderWithBrackets_DrawsThePercentage
+        Expect.EndCase "ProgressBarTests.RenderWithBrackets_DrawsThePercentage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.RenderWithLabel_DrawsTheLabel_TheBar_AndThePercentage
+        Expect.EndCase "ProgressBarTests.RenderWithLabel_DrawsTheLabel_TheBar_AndThePercentage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.RenderWithLabel_BarIsOneCellNarrowerAtTenAndHundredPercent
+        Expect.EndCase "ProgressBarTests.RenderWithLabel_BarIsOneCellNarrowerAtTenAndHundredPercent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProgressBarTests.RenderWithLabel_BarNarrowerThanThreeCells_DrawsOnlyTheLabelAndThePercentage
+        Expect.EndCase "ProgressBarTests.RenderWithLabel_BarNarrowerThanThreeCells_DrawsOnlyTheLabelAndThePercentage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_SeriesStartingAtOne_DrawsTheChart
+        Expect.EndCase "SparklineTests.Render_SeriesStartingAtOne_DrawsTheChart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_SeriesOfFewerThanTwoValues_DrawsNothing
+        Expect.EndCase "SparklineTests.Render_SeriesOfFewerThanTwoValues_DrawsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_SeriesNeverAllocated_RaisesError9
+        Expect.EndCase "SparklineTests.Render_SeriesNeverAllocated_RaisesError9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_MinValueEqualToMaxValue_RaisesError11
+        Expect.EndCase "SparklineTests.Render_MinValueEqualToMaxValue_RaisesError11", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_WidthOfZero_RaisesError11
+        Expect.EndCase "SparklineTests.Render_WidthOfZero_RaisesError11", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_PositionsOneToThreeSetTheDotsOneToThree
+        Expect.EndCase "SparklineTests.Render_Braille_PositionsOneToThreeSetTheDotsOneToThree", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_LowestPositionOfACell_SetsTheBottomLeftDot
+        Expect.EndCase "SparklineTests.Render_Braille_LowestPositionOfACell_SetsTheBottomLeftDot", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_ValueEqualToTheMinimum_SetsADot
+        Expect.EndCase "SparklineTests.Render_Braille_ValueEqualToTheMinimum_SetsADot", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_TallChart_HoldsTheUpperHalfOfTheRangeInTheUpperRow
+        Expect.EndCase "SparklineTests.Render_Braille_TallChart_HoldsTheUpperHalfOfTheRangeInTheUpperRow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_ChartIsWidthByHeightPlusThreeQuotientFourCells_AndWritesEveryCellOfItsArea
+        Expect.EndCase "SparklineTests.Render_Braille_ChartIsWidthByHeightPlusThreeQuotientFourCells_AndWritesEveryCellOfItsArea", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_MoreValuesThanColumns_EachColumnTakesAllTheValuesUpToTheNextColumn
+        Expect.EndCase "SparklineTests.Render_Braille_MoreValuesThanColumns_EachColumnTakesAllTheValuesUpToTheNextColumn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_FewerValuesThanColumns_LeavesSomeColumnsEmpty
+        Expect.EndCase "SparklineTests.Render_Braille_FewerValuesThanColumns_LeavesSomeColumnsEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_ValuesOutsideMinAndMax_AreLimited
+        Expect.EndCase "SparklineTests.Render_Braille_ValuesOutsideMinAndMax_AreLimited", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Braille_UsesTheColoursGiven
+        Expect.EndCase "SparklineTests.Render_Braille_UsesTheColoursGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_ASCII_DrawsAnAsteriskPerColumnAndBarsBetweenFarPoints
+        Expect.EndCase "SparklineTests.Render_ASCII_DrawsAnAsteriskPerColumnAndBarsBetweenFarPoints", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_ASCII_DoesNotClearTheOtherCellsOfItsArea
+        Expect.EndCase "SparklineTests.Render_ASCII_DoesNotClearTheOtherCellsOfItsArea", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_ASCIIAndBlock_MoreValuesThanColumns_TakeTheValueAtTheColumnPosition
+        Expect.EndCase "SparklineTests.Render_ASCIIAndBlock_MoreValuesThanColumns_TakeTheValueAtTheColumnPosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_ASCIIAndBlock_FewerValuesThanColumns_RepeatValues
+        Expect.EndCase "SparklineTests.Render_ASCIIAndBlock_FewerValuesThanColumns_RepeatValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Block_ColumnsAreBarsFromTheBottom
+        Expect.EndCase "SparklineTests.Render_Block_ColumnsAreBarsFromTheBottom", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Block_ValueAboveTheMinimumHasAtLeastOneCell_AndTheAreaIsCleared
+        Expect.EndCase "SparklineTests.Render_Block_ValueAboveTheMinimumHasAtLeastOneCell_AndTheAreaIsCleared", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_Block_UsesTheColoursGiven
+        Expect.EndCase "SparklineTests.Render_Block_UsesTheColoursGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.RenderWithStats_WritesMinAvgAndMaxOfAllTheValuesBelowTheChart
+        Expect.EndCase "SparklineTests.RenderWithStats_WritesMinAvgAndMaxOfAllTheValuesBelowTheChart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.RenderWithStats_TextLineIsInTheSameRowForTheThreeCharacterSets
+        Expect.EndCase "SparklineTests.RenderWithStats_TextLineIsInTheSameRowForTheThreeCharacterSets", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.RenderWithStats_ArrayWithNoElement_RaisesError9
+        Expect.EndCase "SparklineTests.RenderWithStats_ArrayWithNoElement_RaisesError9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_SparklineMadeBeforeFullScreenMode_RaisesError91
+        Expect.EndCase "SparklineTests.Render_SparklineMadeBeforeFullScreenMode_RaisesError91", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SparklineTests.Render_ThenRefresh_ShowsTheChartOnTheScreenBuffer
+        Expect.EndCase "SparklineTests.Render_ThenRefresh_ShowsTheChartOnTheScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ThemeTests.CreateDefault_FieldsAreAsDocumented
+        Expect.EndCase "ThemeTests.CreateDefault_FieldsAreAsDocumented", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ThemeTests.CreateHTOP_FieldsAreAsDocumented
+        Expect.EndCase "ThemeTests.CreateHTOP_FieldsAreAsDocumented", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ThemeTests.CreateLight_FieldsAreAsDocumented
+        Expect.EndCase "ThemeTests.CreateLight_FieldsAreAsDocumented", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ThemeTests.Factory_EachCallReturnsANewTheme
+        Expect.EndCase "ThemeTests.Factory_EachCallReturnsANewTheme", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ThemeTests.New_EveryFieldIsBlack
+        Expect.EndCase "ThemeTests.New_EveryFieldIsBlack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ThemeTests.Clone_ReturnsACopyThatChangesOnItsOwn
+        Expect.EndCase "ThemeTests.Clone_ReturnsACopyThatChangesOnItsOwn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ThemeTests.GetColor_ReturnsTheFieldOfTheSameName
+        Expect.EndCase "ThemeTests.GetColor_ReturnsTheFieldOfTheSameName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ThemeTests.GetColor_ValueOfNoMember_ReturnsForeground
+        Expect.EndCase "ThemeTests.GetColor_ValueOfNoMember_ReturnsForeground", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.ProgressBar_New_AcceptsTheConsoleOfConsoleCore
+        Expect.EndCase "TwoPackagesTests.ProgressBar_New_AcceptsTheConsoleOfConsoleCore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.Sparkline_New_AcceptsTheConsoleOfConsoleCore
+        Expect.EndCase "TwoPackagesTests.Sparkline_New_AcceptsTheConsoleOfConsoleCore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.VBar_New_AcceptsTheConsoleOfConsoleCore
+        Expect.EndCase "TwoPackagesTests.VBar_New_AcceptsTheConsoleOfConsoleCore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.DataGrid_New_AcceptsTheConsoleOfConsoleCore
+        Expect.EndCase "TwoPackagesTests.DataGrid_New_AcceptsTheConsoleOfConsoleCore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.ConsoleLayout_New_AcceptsTheConsoleOfConsoleCore
+        Expect.EndCase "TwoPackagesTests.ConsoleLayout_New_AcceptsTheConsoleOfConsoleCore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.LayoutHelper_New_AcceptsTheConsoleOfConsoleCore
+        Expect.EndCase "TwoPackagesTests.LayoutHelper_New_AcceptsTheConsoleOfConsoleCore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.ConsolePanel_Render_AcceptsTheBufferOfConsoleCore
+        Expect.EndCase "TwoPackagesTests.ConsolePanel_Render_AcceptsTheBufferOfConsoleCore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.ConsolePanel_ClearContent_AcceptsTheBufferOfConsoleCore
+        Expect.EndCase "TwoPackagesTests.ConsolePanel_ClearContent_AcceptsTheBufferOfConsoleCore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.ConsolePanel_ContentSize_WorksWithThePackage
+        Expect.EndCase "TwoPackagesTests.ConsolePanel_ContentSize_WorksWithThePackage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.ConsolePanel_ContentRect_CanBeReadThroughItsMemory
+        Expect.EndCase "TwoPackagesTests.ConsolePanel_ContentRect_CanBeReadThroughItsMemory", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TwoPackagesTests.ConsolePanel_Constructor_SetsTheStyleFields
+        Expect.EndCase "TwoPackagesTests.ConsolePanel_Constructor_SetsTheStyleFields", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_BarGrowsFromTheBottom_AndTheRowsAboveAreSpaces
+        Expect.EndCase "VBarTests.Render_BarGrowsFromTheBottom_AndTheRowsAboveAreSpaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_FilledRowsAreRoundedHalfToEven_AndAnyPercentAboveZeroFillsOneRow
+        Expect.EndCase "VBarTests.Render_FilledRowsAreRoundedHalfToEven_AndAnyPercentAboveZeroFillsOneRow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_PercentOutsideTheRange_IsLimited
+        Expect.EndCase "VBarTests.Render_PercentOutsideTheRange_IsLimited", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_DrawnAgainOverATallerBar_ClearsIt
+        Expect.EndCase "VBarTests.Render_DrawnAgainOverATallerBar_ClearsIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_GivenColours_AreUsed
+        Expect.EndCase "VBarTests.Render_GivenColours_AreUsed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_CharStyles_UseTheirCharacters
+        Expect.EndCase "VBarTests.Render_CharStyles_UseTheirCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_CustomStyle_DrawsACharacterOfItsOwn
+        Expect.EndCase "VBarTests.Render_CustomStyle_DrawsACharacterOfItsOwn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_StyleOutsideTheEnumeration_RaisesError5WhenARowIsFilled
+        Expect.EndCase "VBarTests.Render_StyleOutsideTheEnumeration_RaisesError5WhenARowIsFilled", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderBars_DrawsABarForEachValue_ApartBySpacingPlusOne
+        Expect.EndCase "VBarTests.RenderBars_DrawsABarForEachValue_ApartBySpacingPlusOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderBars_ArrayStartingAtOne_DrawsEveryBar
+        Expect.EndCase "VBarTests.RenderBars_ArrayStartingAtOne_DrawsEveryBar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderBars_DoesNotWriteTheBlankColumns_AndUsesOneSpacingByDefault
+        Expect.EndCase "VBarTests.RenderBars_DoesNotWriteTheBlankColumns_AndUsesOneSpacingByDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderBars_MinAndMax_GiveTheEmptyAndTheFullBar
+        Expect.EndCase "VBarTests.RenderBars_MinAndMax_GiveTheEmptyAndTheFullBar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderBars_MaxEqualToMin_RaisesError11
+        Expect.EndCase "VBarTests.RenderBars_MaxEqualToMin_RaisesError11", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderWithGradient_ColourOfABarIsOneOfThree
+        Expect.EndCase "VBarTests.RenderWithGradient_ColourOfABarIsOneOfThree", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderWithGradient_GivenColoursAndBackground_AreInTheDocumentedOrder
+        Expect.EndCase "VBarTests.RenderWithGradient_GivenColoursAndBackground_AreInTheDocumentedOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderHistory_LastValueIsAtTheGivenColumn_TheOthersGoToItsLeft
+        Expect.EndCase "VBarTests.RenderHistory_LastValueIsAtTheGivenColumn_TheOthersGoToItsLeft", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderHistory_ColumnsLeftOfTheBuffer_AreDropped
+        Expect.EndCase "VBarTests.RenderHistory_ColumnsLeftOfTheBuffer_AreDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderHistory_ArrayWithNoElement_DrawsNothing
+        Expect.EndCase "VBarTests.RenderHistory_ArrayWithNoElement_DrawsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderHistory_ArrayStartingAtOne_DrawsTheChart
+        Expect.EndCase "VBarTests.RenderHistory_ArrayStartingAtOne_DrawsTheChart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderWithLabel_LabelIsWrittenOneRowBelowTheBlankRowUnderTheBar
+        Expect.EndCase "VBarTests.RenderWithLabel_LabelIsWrittenOneRowBelowTheBlankRowUnderTheBar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderWithLabel_LabelIsCentredUnderTheBar
+        Expect.EndCase "VBarTests.RenderWithLabel_LabelIsCentredUnderTheBar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.RenderWithLabel_LabelWouldStartLeftOfTheBuffer_StartsInColumn0
+        Expect.EndCase "VBarTests.RenderWithLabel_LabelWouldStartLeftOfTheBuffer_StartsInColumn0", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        VBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91
+        Expect.EndCase "VBarTests.Render_BarMadeBeforeFullScreenMode_RaisesError91", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Screen.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Screen.twin
new file mode 100644
index 00000000..6f192eeb
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/Screen.twin
@@ -0,0 +1,19 @@
+' TBMANLIB_ConsoleComponents: the console a drawing case works on. Open gives the process a screen
+' buffer of its own (Rig), makes a cConsole of TBMANLIB_ConsoleCore on it and, unless asked not to,
+' enters its full-screen mode. A case sets every component and the console to Nothing and then calls
+' Close, which puts the process's console handles and modes back (a cConsole put back
+' what it changed when it is destroyed, so it must be destroyed first).
+Module Screen
+
+    Public Function Open(Optional ByVal Cols As Long = 100, Optional ByVal Rows As Long = 30, Optional ByVal FullScreen As Boolean = True) As cConsole
+        Rig.Acquire Cols, Rows
+        Dim c As New cConsole
+        If FullScreen Then c.EnterFullScreenMode
+        Set Open = c
+    End Function
+
+    Public Sub Close()
+        Rig.Release
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/SparklineTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/SparklineTests.twin
new file mode 100644
index 00000000..6d159e91
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/SparklineTests.twin
@@ -0,0 +1,496 @@
+' TBMANLIB_ConsoleComponents: cSparkline, on the compiled copy of its code (see TwoPackagesTests).
+[TestFixture]
+Module SparklineTests
+
+    Private Const BRAILLE As Long = 0
+    Private Const ASCII As Long = 1
+    Private Const BLOCK As Long = 2
+
+    ' The numbers of a series, as an array that starts at 0.
+    Private Function Series(ParamArray Values() As Variant) As Variant
+        Dim a() As Double
+        Dim i As Long
+        ReDim a(0 To UBound(Values))
+        For i = 0 To UBound(Values)
+            a(i) = CDbl(Values(i))
+        Next
+        Series = a
+    End Function
+
+    ' ---- the series
+
+    [TestCase]
+    Public Sub Render_SeriesStartingAtOne_DrawsTheChart()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim v(1 To 4) As Double
+        v(1) = 10: v(2) = 20: v(3) = 30: v(4) = 40
+        On Error Resume Next
+        chart.Render 0, 0, 4, 4, v, 0, 100, , , BRAILLE
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render of a Braille chart of an array with the lower bound 1"
+        Err.Clear
+        chart.Render 0, 0, 4, 4, v, 0, 100, , , ASCII
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render of a ASCII chart of an array with the lower bound 1"
+        Err.Clear
+        chart.Render 0, 0, 4, 4, v, 0, 100, , , BLOCK
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render of a Block chart of an array with the lower bound 1"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_SeriesOfFewerThanTwoValues_DrawsNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim one(0 To 0) As Double
+        one(0) = 50
+        Dim none() As Double
+        none = Cells.EmptyArray(5)
+        con.Buffer.WriteAt 0, 0, "xxxxxxxx"
+        On Error Resume Next
+        chart.Render 0, 0, 8, 4, one, 0, 100, , , BRAILLE
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render of one value"
+        chart.Render 0, 0, 8, 4, none, 0, 100, , , BLOCK
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render of an array with no element"
+        On Error GoTo 0
+        Expect.AreEqual "xxxxxxxx", Cells.Text(con.Buffer, 0, 0, 8), "row 0 after the two calls"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_SeriesNeverAllocated_RaisesError9()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim v() As Double
+        On Error Resume Next
+        chart.Render 0, 0, 4, 4, v
+        Expect.AreEqual 9, Err.Number, "Err.Number of Render of an array that was never allocated"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_MinValueEqualToMaxValue_RaisesError11()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(1, 2, 3)
+        On Error Resume Next
+        chart.Render 0, 0, 4, 4, d, 5, 5
+        Expect.AreEqual 11, Err.Number, "Err.Number of Render with minValue equal to maxValue"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_WidthOfZero_RaisesError11()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(1, 2, 3)
+        On Error Resume Next
+        chart.Render 0, 0, 0, 4, d, 0, 100, , , BRAILLE
+        Expect.AreEqual 11, Err.Number, "Err.Number of Render of a Braille chart with a width of 0"
+        Err.Clear
+        chart.Render 0, 0, 0, 4, d, 0, 100, , , ASCII
+        Expect.AreEqual 11, Err.Number, "Err.Number of Render of an ASCII chart with a width of 0"
+        Err.Clear
+        chart.Render 0, 0, 0, 4, d, 0, 100, , , BLOCK
+        Expect.AreEqual 11, Err.Number, "Err.Number of Render of a Block chart with a width of 0"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- Braille
+
+    [TestCase]
+    Public Sub Render_Braille_PositionsOneToThreeSetTheDotsOneToThree()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(100, 75, 50)
+        chart.Render 0, 0, 3, 4, d, 0, 100
+        Expect.AreEqual "2801 2802 2804", Cells.Codes(con.Buffer, 0, 0, 3), "cells for 100, 75 and 50 percent at a height of 4"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Braille_LowestPositionOfACell_SetsTheBottomLeftDot()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(25, 25)
+        chart.Render 0, 0, 2, 4, d, 0, 100
+        Expect.AreEqual "2840 2840", Cells.Codes(con.Buffer, 0, 0, 2), "cells for 25 percent at a height of 4 (the lowest of the four positions: dot 7)"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Braille_ValueEqualToTheMinimum_SetsADot()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(0, 0, 100)
+        chart.Render 0, 0, 3, 4, d, 0, 100
+        Expect.IsTrue Cells.Code(con.Buffer, 0, 0) <> &H2800&, "the cell of a value equal to the minimum at a height of 4 (" & Hex$(Cells.Code(con.Buffer, 0, 0)) & ") has a dot"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Braille_TallChart_HoldsTheUpperHalfOfTheRangeInTheUpperRow()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(0, 25, 50, 75, 100)
+        chart.Render 0, 0, 5, 8, d, 0, 100
+        Expect.AreEqual "2800 2800 2800 2804 2801", Cells.Codes(con.Buffer, 0, 0, 5), "the upper row of a chart 8 dots high of a rising series (75 and 100 percent)"
+        Expect.AreEqual "2800 2804 2801 2800 2800", Cells.Codes(con.Buffer, 1, 0, 5), "the lower row (25 and 50 percent)"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Braille_ChartIsWidthByHeightPlusThreeQuotientFourCells_AndWritesEveryCellOfItsArea()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(50, 50)
+        Dim y As Long
+        For y = 0 To 3
+            con.Buffer.WriteAt 0, y, "xxxxxxxxxx"
+        Next
+        chart.Render 1, 1, 4, 5, d, 0, 100
+        ' a chart 5 dots high is 2 cells high: rows 1 and 2, columns 1 to 4
+        Expect.AreEqual "xxxxxxxxxx", Cells.Text(con.Buffer, 0, 0, 10), "row 0, above the chart"
+        Expect.AreEqual "2800 2800 2800 2800", Cells.Codes(con.Buffer, 1, 1, 4), "columns 1 to 4 of row 1 (every cell of the chart is written)"
+        Expect.AreEqual "2800 2804 2804 2800", Cells.Codes(con.Buffer, 2, 1, 4), "columns 1 to 4 of row 2"
+        Expect.AreEqual "xxxxxxxxxx", Cells.Text(con.Buffer, 3, 0, 10), "row 3, under the chart"
+        Expect.AreEqual "x", Cells.Text(con.Buffer, 1, 0, 1) & "", "column 0 of row 1"
+        Expect.AreEqual "xxxxx", Cells.Text(con.Buffer, 2, 5, 5), "columns 5 to 9 of row 2"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Braille_MoreValuesThanColumns_EachColumnTakesAllTheValuesUpToTheNextColumn()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(100, 75, 50, 100)
+        chart.Render 0, 0, 2, 4, d, 0, 100
+        Expect.AreEqual "2803 2805", Cells.Codes(con.Buffer, 0, 0, 2), "two columns for the values 100, 75, 50 and 100 (dots 1 and 2, then dots 3 and 1)"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Braille_FewerValuesThanColumns_LeavesSomeColumnsEmpty()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(100, 100)
+        chart.Render 0, 0, 4, 4, d, 0, 100
+        Expect.AreEqual "2800 2801 2801 2800", Cells.Codes(con.Buffer, 0, 0, 4), "four columns for two values"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Braille_ValuesOutsideMinAndMax_AreLimited()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(500, -500)
+        chart.Render 0, 0, 2, 4, d, 0, 100
+        Expect.AreEqual "2801", Cells.Codes(con.Buffer, 0, 0, 1), "the cell of a value far above the maximum"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Braille_UsesTheColoursGiven()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(100, 100)
+        chart.Render 0, 0, 2, 4, d, 0, 100, ConsoleColor.Red, ConsoleColor.Blue
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 1, 0), "colour of a cell"
+        Expect.AreEqual CLng(ConsoleColor.Blue), Cells.Back(con.Buffer, 1, 0), "background of a cell"
+        chart.Render 0, 1, 2, 4, d, 0, 100
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 1, 1), "default colour"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 1, 1), "default background"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- ASCII
+
+    [TestCase]
+    Public Sub Render_ASCII_DrawsAnAsteriskPerColumnAndBarsBetweenFarPoints()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(0, 50, 100)
+        chart.Render 0, 0, 3, 5, d, 0, 100, , , ASCII
+        Expect.AreEqual "..*|.{2502}.|.*.|{2502}..|*..", Cells.Picture(con.Buffer, 0, 0, 3, 5), "cells of an ASCII chart of 0, 50 and 100 percent, 3 columns by 5 rows"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_ASCII_DoesNotClearTheOtherCellsOfItsArea()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(100, 100, 100)
+        Dim y As Long
+        For y = 0 To 2
+            con.Buffer.WriteAt 0, y, "xxx"
+        Next
+        chart.Render 0, 0, 3, 3, d, 0, 100, , , ASCII
+        Expect.AreEqual "***|xxx|xxx", Cells.Picture(con.Buffer, 0, 0, 3, 3), "cells of a chart of 100 percent over x"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_ASCIIAndBlock_MoreValuesThanColumns_TakeTheValueAtTheColumnPosition()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(10, 90, 20, 80, 30, 70)
+        chart.Render 0, 0, 3, 10, d, 0, 100, , , BLOCK
+        Dim n(0 To 2) As Long
+        Dim x As Long
+        Dim y As Long
+        For x = 0 To 2
+            For y = 0 To 9
+                If Cells.Code(con.Buffer, x, y) = &H2588& Then n(x) = n(x) + 1
+            Next
+        Next
+        Expect.AreEqual "1 2 3", n(0) & " " & n(1) & " " & n(2), "block cells of the columns for the values at positions 0, 2 and 4 (10, 20 and 30 percent)"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_ASCIIAndBlock_FewerValuesThanColumns_RepeatValues()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(0, 100)
+        chart.Render 0, 0, 4, 2, d, 0, 100, , , BLOCK
+        Expect.AreEqual "..##|..##", Cells.Picture(con.Buffer, 0, 0, 4, 2), "cells of a Block chart of 0 and 100 in 4 columns"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- Block
+
+    [TestCase]
+    Public Sub Render_Block_ColumnsAreBarsFromTheBottom()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(0, 25, 50, 75, 100)
+        chart.Render 0, 0, 5, 4, d, 0, 100, , , BLOCK
+        Expect.AreEqual "....#|...##|..###|.####", Cells.Picture(con.Buffer, 0, 0, 5, 4), "cells of a Block chart of a rising series, 5 columns by 4 rows"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Block_ValueAboveTheMinimumHasAtLeastOneCell_AndTheAreaIsCleared()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(1, 0)
+        Dim y As Long
+        For y = 0 To 3
+            con.Buffer.WriteAt 0, y, "xx"
+        Next
+        chart.Render 0, 0, 2, 4, d, 0, 100, , , BLOCK
+        Expect.AreEqual "..|..|..|#.", Cells.Picture(con.Buffer, 0, 0, 2, 4), "cells of a Block chart of 1 and 0 percent over x"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_Block_UsesTheColoursGiven()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(100, 100)
+        chart.Render 0, 0, 2, 2, d, 0, 100, ConsoleColor.Red, ConsoleColor.Blue, BLOCK
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 0, 1), "colour of a block"
+        Expect.AreEqual CLng(ConsoleColor.Blue), Cells.Back(con.Buffer, 0, 1), "background of a block"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- RenderWithStats
+
+    [TestCase]
+    Public Sub RenderWithStats_WritesMinAvgAndMaxOfAllTheValuesBelowTheChart()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(10, 18, 26, 34, 42, 50, 58, 66, 74, 82)
+        Dim sep As String = Mid$(Format$(1.5, "0.0"), 2, 1)
+        chart.RenderWithStats 2, 1, 10, 4, d, 0, 100, ConsoleColor.Green, ConsoleColor.Black, BRAILLE, ConsoleColor.Yellow
+        Dim want As String = "Min:10" & sep & "0 Avg:46" & sep & "0 Max:82" & sep & "0"
+        Expect.AreEqual want, Cells.Text(con.Buffer, 6, 2, Len(want)), "the text line at row 1 + 4 + 1"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 2, 6), "colour of the text line"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 2, 5), "the row between the Braille chart (1 row) and the text line"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithStats_TextLineIsInTheSameRowForTheThreeCharacterSets()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(0, 100)
+        chart.RenderWithStats 0, 0, 4, 3, d, 0, 100, , , ASCII
+        chart.RenderWithStats 10, 0, 4, 3, d, 0, 100, , , BLOCK
+        chart.RenderWithStats 20, 0, 4, 3, d, 0, 100, , , BRAILLE
+        Expect.AreEqual "Min:", Cells.Text(con.Buffer, 4, 0, 4), "text line of the ASCII chart at row 0 + 3 + 1"
+        Expect.AreEqual "Min:", Cells.Text(con.Buffer, 4, 10, 4), "text line of the Block chart"
+        Expect.AreEqual "Min:", Cells.Text(con.Buffer, 4, 20, 4), "text line of the Braille chart"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithStats_ArrayWithNoElement_RaisesError9()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Cells.EmptyArray(5)
+        On Error Resume Next
+        chart.RenderWithStats 0, 0, 4, 3, d
+        Expect.AreEqual 9, Err.Number, "Err.Number of RenderWithStats of an array with no element"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the buffer
+
+    [TestCase]
+    Public Sub Render_SparklineMadeBeforeFullScreenMode_RaisesError91()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(100, 30, False)
+        Dim chart As cSparkline = New cSparkline(con)
+        con.EnterFullScreenMode
+        Dim d() As Double
+        d = Series(1, 2)
+        On Error Resume Next
+        chart.Render 0, 0, 2, 4, d
+        Expect.AreEqual 91, Err.Number, "Err.Number of Render of a chart made before EnterFullScreenMode"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_ThenRefresh_ShowsTheChartOnTheScreenBuffer()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cSparkline = New cSparkline(con)
+        Dim d() As Double
+        d = Series(0, 50, 100)
+        chart.Render 0, 0, 3, 2, d, 0, 100, , , BLOCK
+        con.Refresh
+        Expect.AreEqual " " & ChrW$(&H2588) & ChrW$(&H2588), Rig.TextAt(Rig.OutHandle, 0, 1, 3), "screen text of the lower row after Refresh"
+        Expect.AreEqual "  " & ChrW$(&H2588), Rig.TextAt(Rig.OutHandle, 0, 0, 3), "screen text of the upper row after Refresh"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ThemeTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ThemeTests.twin
new file mode 100644
index 00000000..04fb1191
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/ThemeTests.twin
@@ -0,0 +1,125 @@
+' TBMANLIB_ConsoleComponents: cConsoleTheme and mConsoleThemeFactory. They need no console and no
+' buffer, so they work with the package as it is.
+[TestFixture]
+Module ThemeTests
+
+    Private Function ColourName(ByVal c As Long) As String
+        Select Case c
+            Case 0: ColourName = "Black"
+            Case 1: ColourName = "DarkBlue"
+            Case 2: ColourName = "DarkGreen"
+            Case 3: ColourName = "DarkCyan"
+            Case 4: ColourName = "DarkRed"
+            Case 5: ColourName = "DarkMagenta"
+            Case 6: ColourName = "DarkYellow"
+            Case 7: ColourName = "Gray"
+            Case 8: ColourName = "DarkGray"
+            Case 9: ColourName = "Blue"
+            Case 10: ColourName = "Green"
+            Case 11: ColourName = "Cyan"
+            Case 12: ColourName = "Red"
+            Case 13: ColourName = "Magenta"
+            Case 14: ColourName = "Yellow"
+            Case 15: ColourName = "White"
+            Case Else: ColourName = CStr(c)
+        End Select
+    End Function
+
+    ' The 14 fields in the order of the documentation's table.
+    Private Function Fields(ByVal t As cConsoleTheme) As String
+        Fields = ColourName(t.Background) & " " & ColourName(t.Foreground) & " " & ColourName(t.Primary) & " " & _
+                 ColourName(t.Secondary) & " " & ColourName(t.Success) & " " & ColourName(t.Warning) & " " & _
+                 ColourName(t.Error) & " " & ColourName(t.Info) & " " & ColourName(t.Muted) & " " & _
+                 ColourName(t.Border) & " " & ColourName(t.HeaderBackground) & " " & _
+                 ColourName(t.HeaderForeground) & " " & ColourName(t.SelectedBackground) & " " & _
+                 ColourName(t.SelectedForeground)
+    End Function
+
+    [TestCase]
+    Public Sub CreateDefault_FieldsAreAsDocumented()
+        Expect.Begin
+        Dim t As cConsoleTheme = mConsoleThemeFactory.CreateDefault()
+        Expect.AreEqual "Black Gray Blue DarkGray Green Yellow Red Cyan DarkGray DarkGray DarkBlue White DarkBlue White", Fields(t), "fields of CreateDefault"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateHTOP_FieldsAreAsDocumented()
+        Expect.Begin
+        Dim t As cConsoleTheme = mConsoleThemeFactory.CreateHTOP()
+        Expect.AreEqual "Black Gray Cyan DarkBlue Green Yellow Red Cyan DarkGray Gray DarkBlue White Blue White", Fields(t), "fields of CreateHTOP"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateLight_FieldsAreAsDocumented()
+        Expect.Begin
+        Dim t As cConsoleTheme = mConsoleThemeFactory.CreateLight()
+        Expect.AreEqual "White Black Blue Gray DarkGreen DarkYellow DarkRed DarkCyan Gray Gray DarkGray White Gray Black", Fields(t), "fields of CreateLight"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Factory_EachCallReturnsANewTheme()
+        Expect.Begin
+        Dim a As cConsoleTheme = mConsoleThemeFactory.CreateDefault()
+        Dim b As cConsoleTheme = mConsoleThemeFactory.CreateDefault()
+        a.Border = ConsoleColor.Red
+        Expect.AreEqual CLng(ConsoleColor.DarkGray), CLng(b.Border), "Border of a second theme after the first one was changed"
+        Expect.IsFalse a Is b, "two calls return the same object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_EveryFieldIsBlack()
+        Expect.Begin
+        Dim t As New cConsoleTheme
+        Expect.AreEqual "Black Black Black Black Black Black Black Black Black Black Black Black Black Black", Fields(t), "fields of New cConsoleTheme"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_ReturnsACopyThatChangesOnItsOwn()
+        Expect.Begin
+        Dim t As cConsoleTheme = mConsoleThemeFactory.CreateHTOP()
+        Dim c As cConsoleTheme = t.Clone()
+        Expect.AreEqual Fields(t), Fields(c), "fields of the clone"
+        c.Border = ConsoleColor.Red
+        c.SelectedForeground = ConsoleColor.Magenta
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(t.Border), "Border of the original after the clone was changed"
+        Expect.AreEqual CLng(ConsoleColor.White), CLng(t.SelectedForeground), "SelectedForeground of the original after the clone was changed"
+        Expect.IsFalse t Is c, "the clone is the same object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetColor_ReturnsTheFieldOfTheSameName()
+        Expect.Begin
+        Dim t As cConsoleTheme = mConsoleThemeFactory.CreateLight()
+        Expect.AreEqual CLng(t.Primary), CLng(t.GetColor(ThemeColorType.tcPrimary)), "GetColor tcPrimary"
+        Expect.AreEqual CLng(t.Secondary), CLng(t.GetColor(ThemeColorType.tcSecondary)), "GetColor tcSecondary"
+        Expect.AreEqual CLng(t.Success), CLng(t.GetColor(ThemeColorType.tcSuccess)), "GetColor tcSuccess"
+        Expect.AreEqual CLng(t.Warning), CLng(t.GetColor(ThemeColorType.tcWarning)), "GetColor tcWarning"
+        Expect.AreEqual CLng(t.Error), CLng(t.GetColor(ThemeColorType.tcError)), "GetColor tcError"
+        Expect.AreEqual CLng(t.Info), CLng(t.GetColor(ThemeColorType.tcInfo)), "GetColor tcInfo"
+        Expect.AreEqual CLng(t.Muted), CLng(t.GetColor(ThemeColorType.tcMuted)), "GetColor tcMuted"
+        Expect.AreEqual CLng(t.Background), CLng(t.GetColor(ThemeColorType.tcBackground)), "GetColor tcBackground"
+        Expect.AreEqual CLng(t.Foreground), CLng(t.GetColor(ThemeColorType.tcForeground)), "GetColor tcForeground"
+        Expect.AreEqual CLng(t.Border), CLng(t.GetColor(ThemeColorType.tcBorder)), "GetColor tcBorder"
+        Expect.AreEqual CLng(t.HeaderBackground), CLng(t.GetColor(ThemeColorType.tcHeaderBackground)), "GetColor tcHeaderBackground"
+        Expect.AreEqual CLng(t.HeaderForeground), CLng(t.GetColor(ThemeColorType.tcHeaderForeground)), "GetColor tcHeaderForeground"
+        Expect.AreEqual CLng(t.SelectedBackground), CLng(t.GetColor(ThemeColorType.tcSelectedBackground)), "GetColor tcSelectedBackground"
+        Expect.AreEqual CLng(t.SelectedForeground), CLng(t.GetColor(ThemeColorType.tcSelectedForeground)), "GetColor tcSelectedForeground"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetColor_ValueOfNoMember_ReturnsForeground()
+        Expect.Begin
+        Dim t As cConsoleTheme = mConsoleThemeFactory.CreateLight()
+        Expect.AreEqual CLng(t.Foreground), CLng(t.GetColor(99)), "GetColor of 99"
+        Expect.AreEqual CLng(t.Foreground), CLng(t.GetColor(-1)), "GetColor of -1"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/TwoPackagesTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/TwoPackagesTests.twin
new file mode 100644
index 00000000..4a20d114
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/TwoPackagesTests.twin
@@ -0,0 +1,180 @@
+' TBMANLIB_ConsoleComponents: the package used with the published TBMANLIB_ConsoleCore.
+'
+' The package carries a copy of ConsoleCore of its own, whose types the compiler treats as different
+' from those of the published package. A component of the package is reached here by its library name
+' (TBMANLIB_ConsoleComponents.cProgressBar), because the project compiles a copy of the code of seven
+' components under their own names for the cases that draw (see ComponentSources). The cases that
+' make a component with a cConsole are correct when they raise no error.
+[TestFixture]
+Module TwoPackagesTests
+
+    [TestCase]
+    Public Sub ProgressBar_New_AcceptsTheConsoleOfConsoleCore()
+        Expect.Begin
+        Rig.Acquire
+        Dim con As New cConsole
+        con.EnterFullScreenMode
+        Dim obj As TBMANLIB_ConsoleComponents.cProgressBar
+        On Error Resume Next
+        Set obj = New TBMANLIB_ConsoleComponents.cProgressBar(con)
+        Expect.AreEqual 0, Err.Number, "Err.Number of New cProgressBar given the cConsole of TBMANLIB_ConsoleCore"
+        On Error GoTo 0
+        Set obj = Nothing
+        Set con = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Sparkline_New_AcceptsTheConsoleOfConsoleCore()
+        Expect.Begin
+        Rig.Acquire
+        Dim con As New cConsole
+        con.EnterFullScreenMode
+        Dim obj As TBMANLIB_ConsoleComponents.cSparkline
+        On Error Resume Next
+        Set obj = New TBMANLIB_ConsoleComponents.cSparkline(con)
+        Expect.AreEqual 0, Err.Number, "Err.Number of New cSparkline given the cConsole of TBMANLIB_ConsoleCore"
+        On Error GoTo 0
+        Set obj = Nothing
+        Set con = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub VBar_New_AcceptsTheConsoleOfConsoleCore()
+        Expect.Begin
+        Rig.Acquire
+        Dim con As New cConsole
+        con.EnterFullScreenMode
+        Dim obj As TBMANLIB_ConsoleComponents.cVBar
+        On Error Resume Next
+        Set obj = New TBMANLIB_ConsoleComponents.cVBar(con)
+        Expect.AreEqual 0, Err.Number, "Err.Number of New cVBar given the cConsole of TBMANLIB_ConsoleCore"
+        On Error GoTo 0
+        Set obj = Nothing
+        Set con = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DataGrid_New_AcceptsTheConsoleOfConsoleCore()
+        Expect.Begin
+        Rig.Acquire
+        Dim con As New cConsole
+        con.EnterFullScreenMode
+        Dim obj As TBMANLIB_ConsoleComponents.cDataGrid
+        On Error Resume Next
+        Set obj = New TBMANLIB_ConsoleComponents.cDataGrid(con)
+        Expect.AreEqual 0, Err.Number, "Err.Number of New cDataGrid given the cConsole of TBMANLIB_ConsoleCore"
+        On Error GoTo 0
+        Set obj = Nothing
+        Set con = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleLayout_New_AcceptsTheConsoleOfConsoleCore()
+        Expect.Begin
+        Rig.Acquire
+        Dim con As New cConsole
+        Dim obj As TBMANLIB_ConsoleComponents.cConsoleLayout
+        On Error Resume Next
+        Set obj = New TBMANLIB_ConsoleComponents.cConsoleLayout(con)
+        Expect.AreEqual 0, Err.Number, "Err.Number of New cConsoleLayout given the cConsole of TBMANLIB_ConsoleCore"
+        On Error GoTo 0
+        Set obj = Nothing
+        Set con = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LayoutHelper_New_AcceptsTheConsoleOfConsoleCore()
+        Expect.Begin
+        Rig.Acquire
+        Dim con As New cConsole
+        Dim obj As TBMANLIB_ConsoleComponents.cLayoutHelper
+        On Error Resume Next
+        Set obj = New TBMANLIB_ConsoleComponents.cLayoutHelper(con)
+        Expect.AreEqual 0, Err.Number, "Err.Number of New cLayoutHelper given the cConsole of TBMANLIB_ConsoleCore"
+        On Error GoTo 0
+        Set obj = Nothing
+        Set con = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsolePanel_Render_AcceptsTheBufferOfConsoleCore()
+        Expect.Begin
+        Dim panel As TBMANLIB_ConsoleComponents.cConsolePanel = New TBMANLIB_ConsoleComponents.cConsolePanel("p", 0, 0, 10, 5)
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(20, 10)
+        On Error Resume Next
+        panel.Render buf
+        Expect.AreEqual 0, Err.Number, "Err.Number of cConsolePanel.Render given the cConsoleBuffer of TBMANLIB_ConsoleCore"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsolePanel_ClearContent_AcceptsTheBufferOfConsoleCore()
+        Expect.Begin
+        Dim panel As TBMANLIB_ConsoleComponents.cConsolePanel = New TBMANLIB_ConsoleComponents.cConsolePanel("p", 0, 0, 10, 5)
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(20, 10)
+        On Error Resume Next
+        panel.ClearContent buf
+        Expect.AreEqual 0, Err.Number, "Err.Number of cConsolePanel.ClearContent given the cConsoleBuffer of TBMANLIB_ConsoleCore"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    ' ---- what works with the package as it is
+
+    [TestCase]
+    Public Sub ConsolePanel_ContentSize_WorksWithThePackage()
+        Expect.Begin
+        Dim panel As TBMANLIB_ConsoleComponents.cConsolePanel = New TBMANLIB_ConsoleComponents.cConsolePanel("p", 1, 2, 10, 5)
+        Expect.AreEqual 6, panel.ContentWidth(), "ContentWidth of a panel of 10 by 5 cells with a single border and a padding of 1"
+        Expect.AreEqual 1, panel.ContentHeight(), "ContentHeight of that panel"
+        panel.BorderStyle = 0
+        Expect.AreEqual 8, panel.ContentWidth(), "ContentWidth with no border"
+        Expect.AreEqual 3, panel.ContentHeight(), "ContentHeight with no border"
+        panel.Padding = 0
+        Expect.AreEqual 10, panel.ContentWidth(), "ContentWidth with no border and no padding"
+        Expect.AreEqual 5, panel.ContentHeight(), "ContentHeight with no border and no padding"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsolePanel_ContentRect_CanBeReadThroughItsMemory()
+        Expect.Begin
+        Dim panel As TBMANLIB_ConsoleComponents.cConsolePanel = New TBMANLIB_ConsoleComponents.cConsolePanel("p", 1, 2, 10, 5)
+        Dim cr = panel.ContentRect()
+        Dim v(0 To 3) As Long
+        Rig.ReadMemory VarPtr(cr), VarPtr(v(0)), 16
+        Expect.AreEqual "3 4 8 4", v(0) & " " & v(1) & " " & v(2) & " " & v(3), "Left, Top, Right and Bottom of the content area of a panel at 1, 2 of 10 by 5 cells"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsolePanel_Constructor_SetsTheStyleFields()
+        Expect.Begin
+        Dim panel As TBMANLIB_ConsoleComponents.cConsolePanel = New TBMANLIB_ConsoleComponents.cConsolePanel("main", 3, 4, 20, 8)
+        Expect.AreEqual "main", panel.Name, "Name"
+        Expect.AreEqual 1, CLng(panel.BorderStyle), "BorderStyle"
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(panel.BorderColor), "BorderColor"
+        Expect.AreEqual CLng(ConsoleColor.White), CLng(panel.TitleColor), "TitleColor"
+        Expect.AreEqual 1, panel.Padding, "Padding"
+        Expect.AreEqual "", panel.Title, "Title"
+        Dim r = panel.Rect
+        Dim v(0 To 3) As Long
+        Rig.ReadMemory VarPtr(r), VarPtr(v(0)), 16
+        Expect.AreEqual "3 4 22 11", v(0) & " " & v(1) & " " & v(2) & " " & v(3), "Left, Top, Right and Bottom of Rect"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/Sources/VBarTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/VBarTests.twin
new file mode 100644
index 00000000..71bd12e6
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/Sources/VBarTests.twin
@@ -0,0 +1,408 @@
+' TBMANLIB_ConsoleComponents: cVBar, on the compiled copy of its code (see TwoPackagesTests).
+[TestFixture]
+Module VBarTests
+
+    ' The cells of one column, from a row, as a picture: "#" for U+2588, "-" for U+2591, "." for a space.
+    Private Function Column(ByVal Buf As cConsoleBuffer, ByVal Col As Long, ByVal Row As Long, ByVal Height As Long) As String
+        Column = Cells.Picture(Buf, Col, Row, 1, Height)
+    End Function
+
+    ' ---- Render
+
+    [TestCase]
+    Public Sub Render_BarGrowsFromTheBottom_AndTheRowsAboveAreSpaces()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.Render 3, 0, 4, 50
+        Expect.AreEqual ".|.|#|#", Column(con.Buffer, 3, 0, 4), "cells of a bar 4 rows high at 50 percent"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 3, 3), "colour of a filled cell"
+        Expect.AreEqual CLng(ConsoleColor.Black), Cells.Back(con.Buffer, 3, 3), "background of a filled cell"
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 3, 0), "colour of a space of the bar"
+        Expect.AreEqual 32, Cells.Code(con.Buffer, 3, 4), "the cell under the bar"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_FilledRowsAreRoundedHalfToEven_AndAnyPercentAboveZeroFillsOneRow()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.Render 0, 0, 4, 12.5
+        chart.Render 1, 0, 4, 37.5
+        chart.Render 2, 0, 4, 62.5
+        chart.Render 3, 0, 4, 0.1
+        chart.Render 4, 0, 4, 0
+        Expect.AreEqual ".|.|.|#", Column(con.Buffer, 0, 0, 4), "12.5 percent of 4 rows (0.5, but a percent above 0 fills one)"
+        Expect.AreEqual ".|.|#|#", Column(con.Buffer, 1, 0, 4), "37.5 percent of 4 rows (1.5)"
+        Expect.AreEqual ".|.|#|#", Column(con.Buffer, 2, 0, 4), "62.5 percent of 4 rows (2.5)"
+        Expect.AreEqual ".|.|.|#", Column(con.Buffer, 3, 0, 4), "0.1 percent"
+        Expect.AreEqual ".|.|.|.", Column(con.Buffer, 4, 0, 4), "0 percent"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_PercentOutsideTheRange_IsLimited()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.Render 0, 0, 4, -50
+        chart.Render 1, 0, 4, 250
+        Expect.AreEqual ".|.|.|.", Column(con.Buffer, 0, 0, 4), "-50 percent"
+        Expect.AreEqual "#|#|#|#", Column(con.Buffer, 1, 0, 4), "250 percent"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_DrawnAgainOverATallerBar_ClearsIt()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.Render 0, 0, 4, 100
+        chart.Render 0, 0, 4, 25
+        Expect.AreEqual ".|.|.|#", Column(con.Buffer, 0, 0, 4), "cells after a bar of 100 percent was drawn again at 25"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_GivenColours_AreUsed()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.Render 0, 0, 4, 50, ConsoleColor.Red, ConsoleColor.Blue
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 0, 3), "colour of a filled cell"
+        Expect.AreEqual CLng(ConsoleColor.Blue), Cells.Back(con.Buffer, 0, 3), "background of a filled cell"
+        Expect.AreEqual CLng(ConsoleColor.Blue), Cells.Back(con.Buffer, 0, 0), "background of a space"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- BarCharStyle
+
+    [TestCase]
+    Public Sub Render_CharStyles_UseTheirCharacters()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.Render 0, 0, 1, 100, , , 0
+        chart.Render 1, 0, 1, 100, , , 1
+        chart.Render 2, 0, 1, 100, , , 2
+        chart.Render 3, 0, 1, 100, , , 3
+        Expect.AreEqual "2588 2591 2592 2593", Cells.Codes(con.Buffer, 0, 0, 4), "characters of the styles Block, Light, Medium and Dark"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_CustomStyle_DrawsACharacterOfItsOwn()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.Render 0, 0, 1, 100, , , 0
+        chart.Render 1, 0, 1, 100, , , 4
+        Expect.IsTrue Cells.Code(con.Buffer, 0, 0) <> Cells.Code(con.Buffer, 1, 0), "the character of Custom (" & Hex$(Cells.Code(con.Buffer, 1, 0)) & ") differs from that of Block (" & Hex$(Cells.Code(con.Buffer, 0, 0)) & ")"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Render_StyleOutsideTheEnumeration_RaisesError5WhenARowIsFilled()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        On Error Resume Next
+        chart.Render 0, 0, 4, 50, , , 9
+        Expect.AreEqual 5, Err.Number, "Err.Number of Render with the style 9 and a filled row"
+        Err.Clear
+        chart.Render 1, 0, 4, 0, , , 9
+        Expect.AreEqual 0, Err.Number, "Err.Number of Render with the style 9 and no filled row"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- RenderBars
+
+    [TestCase]
+    Public Sub RenderBars_DrawsABarForEachValue_ApartBySpacingPlusOne()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim v(0 To 2) As Double
+        v(0) = 100: v(1) = 50: v(2) = 0
+        con.Buffer.WriteAt 0, 0, "xxxxxxxxxx"
+        con.Buffer.WriteAt 0, 1, "xxxxxxxxxx"
+        chart.RenderBars 1, 0, 2, v, 2
+        Expect.AreEqual "x" & ChrW$(&H2588) & "xx xx xx", Cells.Text(con.Buffer, 0, 0, 10), "row 0: bars of 100, 50 and 0 percent at columns 1, 4 and 7 with spacing 2 (the upper row of the last two is a space)"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderBars_ArrayStartingAtOne_DrawsEveryBar()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim v(1 To 3) As Double
+        v(1) = 100: v(2) = 100: v(3) = 100
+        On Error Resume Next
+        chart.RenderBars 0, 0, 1, v
+        Expect.AreEqual 0, Err.Number, "Err.Number of RenderBars of an array with the lower bound 1"
+        On Error GoTo 0
+        Expect.AreEqual "#.#.#", Cells.Picture(con.Buffer, 0, 0, 5, 1), "row 0"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderBars_DoesNotWriteTheBlankColumns_AndUsesOneSpacingByDefault()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim v(0 To 2) As Double
+        v(0) = 100: v(1) = 100: v(2) = 100
+        con.Buffer.WriteAt 0, 0, "xxxxxxxxxx"
+        chart.RenderBars 0, 0, 1, v
+        Expect.AreEqual ChrW$(&H2588) & "x" & ChrW$(&H2588) & "x" & ChrW$(&H2588) & "xxxxx", Cells.Text(con.Buffer, 0, 0, 10), "row 0: bars at columns 0, 2 and 4 with the default spacing"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderBars_MinAndMax_GiveTheEmptyAndTheFullBar()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim v(0 To 2) As Double
+        v(0) = 10: v(1) = 20: v(2) = 30
+        chart.RenderBars 0, 0, 4, v, 0, 10, 30
+        Expect.AreEqual ".|.|.|.", Column(con.Buffer, 0, 0, 4), "the bar of the minimum"
+        Expect.AreEqual ".|.|#|#", Column(con.Buffer, 1, 0, 4), "the bar of the middle value"
+        Expect.AreEqual "#|#|#|#", Column(con.Buffer, 2, 0, 4), "the bar of the maximum"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderBars_MaxEqualToMin_RaisesError11()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim v(0 To 1) As Double
+        v(0) = 10: v(1) = 20
+        On Error Resume Next
+        chart.RenderBars 0, 0, 4, v, 1, 5, 5
+        Expect.AreEqual 11, Err.Number, "Err.Number of RenderBars with minValue equal to maxValue"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- RenderWithGradient
+
+    [TestCase]
+    Public Sub RenderWithGradient_ColourOfABarIsOneOfThree()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim v(0 To 3) As Double
+        v(0) = 49: v(1) = 50: v(2) = 79: v(3) = 80
+        chart.RenderWithGradient 0, 0, 4, v, 0
+        Expect.AreEqual CLng(ConsoleColor.Green), Cells.Fore(con.Buffer, 0, 3), "colour of the bar of 49 percent"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 1, 3), "colour of the bar of 50 percent"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 2, 3), "colour of the bar of 79 percent"
+        Expect.AreEqual CLng(ConsoleColor.Red), Cells.Fore(con.Buffer, 3, 3), "colour of the bar of 80 percent"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithGradient_GivenColoursAndBackground_AreInTheDocumentedOrder()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim v(0 To 2) As Double
+        v(0) = 10: v(1) = 60: v(2) = 90
+        chart.RenderWithGradient 0, 0, 4, v, 0, 0, 100, ConsoleColor.Cyan, ConsoleColor.Magenta, ConsoleColor.White, ConsoleColor.DarkBlue
+        Expect.AreEqual CLng(ConsoleColor.Cyan), Cells.Fore(con.Buffer, 0, 3), "low colour"
+        Expect.AreEqual CLng(ConsoleColor.Magenta), Cells.Fore(con.Buffer, 1, 3), "mid colour"
+        Expect.AreEqual CLng(ConsoleColor.White), Cells.Fore(con.Buffer, 2, 3), "high colour"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), Cells.Back(con.Buffer, 1, 3), "background given as the 11th argument"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- RenderHistory
+
+    [TestCase]
+    Public Sub RenderHistory_LastValueIsAtTheGivenColumn_TheOthersGoToItsLeft()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim h(0 To 2) As Double
+        h(0) = 100: h(1) = 50: h(2) = 0
+        chart.RenderHistory 10, 0, 2, h
+        Expect.AreEqual "#|#", Column(con.Buffer, 8, 0, 2), "the oldest value, at column 8"
+        Expect.AreEqual ".|#", Column(con.Buffer, 9, 0, 2), "the middle value, at column 9"
+        Expect.AreEqual ".|.", Column(con.Buffer, 10, 0, 2), "the newest value, at column 10"
+        Expect.AreEqual ".|.", Column(con.Buffer, 11, 0, 2), "the column right of the chart"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderHistory_ColumnsLeftOfTheBuffer_AreDropped()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim h(0 To 3) As Double
+        h(0) = 100: h(1) = 100: h(2) = 100: h(3) = 100
+        On Error Resume Next
+        chart.RenderHistory 1, 0, 1, h
+        Expect.AreEqual 0, Err.Number, "Err.Number of RenderHistory with columns left of the buffer"
+        On Error GoTo 0
+        Expect.AreEqual "##", Cells.Picture(con.Buffer, 0, 0, 2, 1), "cells of columns 0 and 1"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderHistory_ArrayWithNoElement_DrawsNothing()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim h() As Double
+        h = Cells.EmptyArray(5)
+        On Error Resume Next
+        chart.RenderHistory 10, 0, 2, h
+        Expect.AreEqual 0, Err.Number, "Err.Number of RenderHistory of an array with no element"
+        On Error GoTo 0
+        Expect.AreEqual "....................", Cells.Picture(con.Buffer, 0, 0, 20, 1), "row 0"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderHistory_ArrayStartingAtOne_DrawsTheChart()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        Dim h(1 To 3) As Double
+        h(1) = 100: h(2) = 50: h(3) = 0
+        On Error Resume Next
+        chart.RenderHistory 10, 0, 2, h
+        Expect.AreEqual 0, Err.Number, "Err.Number of RenderHistory of an array with the lower bound 1"
+        On Error GoTo 0
+        Expect.AreEqual "#|#", Column(con.Buffer, 8, 0, 2), "the oldest value, at column 8"
+        Expect.AreEqual ".|#", Column(con.Buffer, 9, 0, 2), "the middle value, at column 9"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- RenderWithLabel
+
+    [TestCase]
+    Public Sub RenderWithLabel_LabelIsWrittenOneRowBelowTheBlankRowUnderTheBar()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.RenderWithLabel 10, 0, 3, 100, "CPU"
+        Expect.AreEqual "#|#|#|.|C", Cells.Picture(con.Buffer, 10, 0, 1, 5), "bar of 3 rows, a blank row and the first label character in column 10"
+        Expect.AreEqual "CPU", Cells.Text(con.Buffer, 4, 10, 3), "the label in row 4"
+        Expect.AreEqual CLng(ConsoleColor.Gray), Cells.Fore(con.Buffer, 10, 4), "colour of the label"
+        chart.RenderWithLabel 20, 0, 3, 100, "CPU", ConsoleColor.Red, ConsoleColor.Blue, 0, ConsoleColor.Yellow
+        Expect.AreEqual CLng(ConsoleColor.Yellow), Cells.Fore(con.Buffer, 20, 4), "label colour given"
+        Expect.AreEqual CLng(ConsoleColor.Blue), Cells.Back(con.Buffer, 20, 4), "label background"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithLabel_LabelIsCentredUnderTheBar()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.RenderWithLabel 10, 0, 3, 100, "CPU"
+        Expect.AreEqual "CPU", Cells.Text(con.Buffer, 4, 9, 3), "the cells 9 to 11 of the label row, centred under the bar in column 10"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RenderWithLabel_LabelWouldStartLeftOfTheBuffer_StartsInColumn0()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open()
+        Dim chart As cVBar = New cVBar(con)
+        chart.RenderWithLabel 0, 0, 3, 100, "LONGLABEL"
+        Expect.AreEqual "LONGLABEL", Cells.Text(con.Buffer, 4, 0, 9), "the label of a bar in column 0"
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+    ' ---- the buffer
+
+    [TestCase]
+    Public Sub Render_BarMadeBeforeFullScreenMode_RaisesError91()
+        Expect.Begin
+        Dim con As cConsole = Screen.Open(100, 30, False)
+        Dim chart As cVBar = New cVBar(con)
+        con.EnterFullScreenMode
+        On Error Resume Next
+        chart.Render 0, 0, 4, 50
+        Expect.AreEqual 91, Err.Number, "Err.Number of Render of a chart made before EnterFullScreenMode"
+        On Error GoTo 0
+        Set chart = Nothing
+        Set con = Nothing
+        Screen.Close
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/compile/CompileTests.twin b/test/package-tests/TBMANLIB_ConsoleComponents/compile/CompileTests.twin
new file mode 100644
index 00000000..188705e9
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/compile/CompileTests.twin
@@ -0,0 +1,139 @@
+' TBMANLIB_ConsoleComponents: what the compiler does with the package used beside the published
+' TBMANLIB_ConsoleCore. Each line ends in a comment ' CASE <Name>: <code>, and none means the line
+' compiles. The package carries a copy of ConsoleCore of its own, whose types the compiler treats
+' as different from those of the published package, so the values that a component returns (a
+' ConsoleRect, a ConsolePosition) are of the other type. This project holds no copy of the
+' components' code.
+Module CompileTests
+
+    ' ---- objects of the published package are accepted by the compiler
+
+    Public Sub Pass_ConsoleToTheConstructors(ByVal con As cConsole)
+        Dim bar As cProgressBar = New cProgressBar(con) ' CASE ConsoleToProgressBar: none
+        Dim layout As cConsoleLayout = New cConsoleLayout(con) ' CASE ConsoleToLayout: none
+        Dim helper As cLayoutHelper = New cLayoutHelper(con) ' CASE ConsoleToLayoutHelper: none
+    End Sub
+
+    Public Sub Pass_BufferToThePanel(ByVal buf As cConsoleBuffer)
+        Dim panel As cConsolePanel = New cConsolePanel("p")
+        panel.Render buf ' CASE BufferToPanelRender: none
+        panel.ClearContent buf ' CASE BufferToPanelClearContent: none
+    End Sub
+
+    ' ---- the values that the components return
+
+    Public Sub Read_PanelContentRect(ByVal panel As cConsolePanel)
+        Dim n As Long
+        n = panel.ContentRect().Left ' CASE ContentRectMember: none
+    End Sub
+
+    Public Sub Assign_PanelContentRect(ByVal panel As cConsolePanel)
+        Dim r As ConsoleRect
+        r = panel.ContentRect() ' CASE ContentRectAssign: none
+    End Sub
+
+    Public Sub Pass_PanelContentRect(ByVal panel As cConsolePanel)
+        Dim inside As Boolean
+        inside = ConsoleRect_Contains(panel.ContentRect(), 1, 1) ' CASE ContentRectToContains: none
+    End Sub
+
+    Public Sub Read_PanelRect(ByVal panel As cConsolePanel)
+        Dim n As Long
+        n = panel.Rect.Left ' CASE PanelRectMember: none
+    End Sub
+
+    Public Sub Read_HelperPosition(ByVal helper As cLayoutHelper)
+        Dim n As Long
+        n = helper.Center(10, 5).Col ' CASE CenterMember: none
+    End Sub
+
+    Public Sub Assign_HelperPosition(ByVal helper As cLayoutHelper)
+        Dim pos As ConsolePosition
+        pos = helper.Center(10, 5) ' CASE CenterAssign: none
+    End Sub
+
+    Public Sub Assign_HelperRect(ByVal helper As cLayoutHelper)
+        Dim r As ConsoleRect
+        r = helper.CenterRect(10, 5) ' CASE CenterRectAssign: none
+    End Sub
+
+    Public Sub Assign_HelperPercentRect(ByVal helper As cLayoutHelper)
+        Dim r As ConsoleRect
+        r = helper.PercentRect(10, 10, 50, 50) ' CASE PercentRectAssign: none
+    End Sub
+
+    Public Sub Assign_HelperPercent(ByVal helper As cLayoutHelper)
+        Dim pos As ConsolePosition
+        pos = helper.Percent(50, 50) ' CASE PercentAssign: none
+    End Sub
+
+    Public Sub Assign_HelperWithMargins(ByVal helper As cLayoutHelper)
+        Dim r As ConsoleRect
+        r = helper.WithMargins(1, 1, 1, 1) ' CASE WithMarginsAssign: none
+    End Sub
+
+    Public Sub Assign_HelperClampRect(ByVal helper As cLayoutHelper, ByVal r As ConsoleRect)
+        Dim c As ConsoleRect
+        c = helper.ClampRect(r) ' CASE ClampRectAssign: none
+    End Sub
+
+    Public Sub Assign_HelperGrid(ByVal helper As cLayoutHelper)
+        Dim rects() As ConsoleRect
+        rects = helper.Grid(2, 2) ' CASE GridToRectArray: none
+    End Sub
+
+    Public Sub Read_HelperSpacedPositions(ByVal helper As cLayoutHelper)
+        Dim v As Variant
+        v = helper.SpacedPositions(3, 10, 2, 5) ' CASE SpacedPositionsToVariant: none
+    End Sub
+
+    Public Sub Read_HelperCenterX(ByVal helper As cLayoutHelper)
+        Dim n As Long
+        n = helper.CenterX(10) ' CASE CenterXToLong: none
+    End Sub
+
+    ' ---- the Variant of an array of rectangles
+
+    Public Sub Take_ElementOfVariant(ByVal parts As Variant)
+        Dim r As ConsoleRect
+        r = parts(0) ' CASE VariantElementToRect: TB5028
+    End Sub
+
+    ' ---- the enumerations of the components
+
+    Public Sub Use_NestedEnumeration(ByVal panel As cConsolePanel)
+        panel.BorderStyle = PanelBorderStyle.Double ' CASE NestedEnumerationWithoutClass: none
+    End Sub
+
+    Public Sub Use_NestedEnumerationWithClass(ByVal panel As cConsolePanel)
+        panel.BorderStyle = cConsolePanel.PanelBorderStyle.Double ' CASE NestedEnumerationWithClass: none
+    End Sub
+
+    ' ---- cDataGrid: properties that can be set and not read
+
+    Public Sub Read_GridHeaderColor(ByVal grid As cDataGrid)
+        Dim c As ConsoleColor
+        c = grid.HeaderColor ' CASE GridHeaderColorRead: none
+    End Sub
+
+    Public Sub Read_GridSelectionColor(ByVal grid As cDataGrid)
+        Dim c As ConsoleColor
+        c = grid.SelectionColor ' CASE GridSelectionColorRead: none
+    End Sub
+
+    Public Sub Read_GridSelectedRow(ByVal grid As cDataGrid)
+        Dim n As Long
+        n = grid.SelectedRow ' CASE GridSelectedRowRead: none
+    End Sub
+
+    Public Sub Read_GridShowHeader(ByVal grid As cDataGrid)
+        Dim b As Boolean
+        b = grid.ShowHeader ' CASE GridShowHeaderRead: none
+    End Sub
+
+    Public Sub Read_GridShowBorders(ByVal grid As cDataGrid)
+        Dim b As Boolean
+        b = grid.ShowBorders ' CASE GridShowBordersRead: none
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleComponents/expect.json b/test/package-tests/TBMANLIB_ConsoleComponents/expect.json
new file mode 100644
index 00000000..6252f9e2
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleComponents/expect.json
@@ -0,0 +1,146 @@
+{
+  "version": "1.0.0.1",
+  "cases": {
+    "ContentRectMember": {
+      "fails": "expected none on CompileTests.twin line 27, got TB5027"
+    },
+    "ContentRectAssign": {
+      "fails": "expected none on CompileTests.twin line 32, got TB5028"
+    },
+    "ContentRectToContains": {
+      "fails": "expected none on CompileTests.twin line 37, got TB5001"
+    },
+    "PanelRectMember": {
+      "fails": "expected none on CompileTests.twin line 42, got TB5027"
+    },
+    "CenterMember": {
+      "fails": "expected none on CompileTests.twin line 47, got TB5027"
+    },
+    "CenterAssign": {
+      "fails": "expected none on CompileTests.twin line 52, got TB5028"
+    },
+    "CenterRectAssign": {
+      "fails": "expected none on CompileTests.twin line 57, got TB5028"
+    },
+    "PercentRectAssign": {
+      "fails": "expected none on CompileTests.twin line 62, got TB5028"
+    },
+    "PercentAssign": {
+      "fails": "expected none on CompileTests.twin line 67, got TB5028"
+    },
+    "WithMarginsAssign": {
+      "fails": "expected none on CompileTests.twin line 72, got TB5028"
+    },
+    "ClampRectAssign": {
+      "fails": "expected none on CompileTests.twin line 77, got TB5001, TB5028"
+    },
+    "NestedEnumerationWithClass": {
+      "fails": "expected none on CompileTests.twin line 109, got TB5079"
+    },
+    "GridHeaderColorRead": {
+      "fails": "expected none on CompileTests.twin line 116, got TB5045"
+    },
+    "GridSelectionColorRead": {
+      "fails": "expected none on CompileTests.twin line 121, got TB5045"
+    },
+    "GridSelectedRowRead": {
+      "fails": "expected none on CompileTests.twin line 126, got TB5045"
+    },
+    "GridShowHeaderRead": {
+      "fails": "expected none on CompileTests.twin line 131, got TB5045"
+    },
+    "GridShowBordersRead": {
+      "fails": "expected none on CompileTests.twin line 136, got TB5045"
+    },
+    "ColorHelperTests.IntensityColor_UsesItsBaseColour": {
+      "fails": "1 of 1 checks failed: IntensityColor of 50 with the base colour Red (4) and with Blue (4) differ: expected True, got False"
+    },
+    "ColorHelperTests.DimColor_DarkColour_IsNotBrighter": {
+      "fails": "3 of 3 checks failed: DimColor of Black (8) is not brighter than Black: expected True, got False; DimColor of DarkGreen (8) is not brighter than DarkGreen: expected True, got False; DimColor of Gray (8) is not brighter than Gray: expected True, got False"
+    },
+    "ColorHelperTests.BrightenColor_DarkGray_IsAConsoleColour": {
+      "fails": "1 of 1 checks failed: BrightenColor of DarkGray (16) is a ConsoleColor, 0 to 15: expected True, got False"
+    },
+    "ColorHelperTests.CycleColor_ListStartingAtOne_GivesTheFirstElementForIndexZero": {
+      "fails": "2 of 2 checks failed: Err.Number of CycleColor on an array with the lower bound 1: expected 0, got 9; CycleColor of 0 on an array with the lower bound 1: expected 12, got 0"
+    },
+    "DataGridTests.Render_WithoutRowColors_DrawsTheRows": {
+      "fails": "2 of 2 checks failed: Err.Number of Render when SetRowColors was never called: expected 0, got 9; the data row: expected \"first\", got \" \""
+    },
+    "DataGridTests.Render_WithoutColumnAlignments_DrawsTheRows": {
+      "fails": "2 of 2 checks failed: Err.Number of Render when SetColumnAlignments was never called: expected 0, got 9; the data row: expected \"first\", got \" \""
+    },
+    "DataGridTests.Render_WithoutColumnWidths_DrawsTheRows": {
+      "fails": "2 of 2 checks failed: Err.Number of Render when SetColumnWidths was never called: expected 0, got 9; the data row: expected \"first\", got \" \""
+    },
+    "DataGridTests.Render_WithoutRows_DrawsNothing": {
+      "fails": "1 of 1 checks failed: Err.Number of Render when SetRows was never called: expected 0, got 9"
+    },
+    "DataGridTests.SetRowColors_FirstDataRowTakesTheFirstColour": {
+      "fails": "2 of 2 checks failed: colour of the first data row, given colors(0) = Red: expected 12, got 10; colour of the second data row, given colors(1) = Green: expected 10, got 7"
+    },
+    "DataGridTests.ScrollTo_ShowsTheRowInABufferTooSmallForTheTable": {
+      "fails": "1 of 1 checks failed: the row row9 (data row 8) is in the buffer of 6 rows after ScrollTo 8: expected True, got False"
+    },
+    "LayoutTests.AddPanel_NameInUse_AddsNoPanelToTheList": {
+      "fails": "2 of 2 checks failed: PanelCount after AddPanel with a name in use: expected 1, got 2; panels returned by GetAllPanels: expected 1, got 2"
+    },
+    "LayoutTests.SplitHorizontal_AndLayoutHelperSplitHorizontal_DivideInTheSameDirection": {
+      "fails": "1 of 1 checks failed: the two parts of cConsoleLayout.SplitHorizontal side by side (True), the two of cLayoutHelper.SplitHorizontal side by side (False): expected True, got False"
+    },
+    "LayoutTests.CreateSidebar_AfterAnArrangementOnAnEmptyLayout_StillUsesTheWholeConsole": {
+      "fails": "1 of 1 checks failed: the sidebar of a layout whose only panels came from CreateHeaderFooter, in a console of 40 by 12: expected \"0 0 9 11\", got \"2 2 11 -2\""
+    },
+    "LayoutTests.Resize_ScalesThePanelsToTheNewSize": {
+      "fails": "1 of 1 checks failed: Rect of a panel that covered a console of 40 by 12, after Resize 80, 24: expected \"0 0 79 23\", got \"0 0 39 11\""
+    },
+    "ProgressBarTests.RenderWithBrackets_DrawsThePercentage": {
+      "fails": "1 of 1 checks failed: row 0 after RenderWithBrackets at 50 percent holds the text 50%: expected True, got False"
+    },
+    "SparklineTests.Render_SeriesStartingAtOne_DrawsTheChart": {
+      "fails": "3 of 3 checks failed: Err.Number of Render of a Braille chart of an array with the lower bound 1: expected 0, got 9; Err.Number of Render of a ASCII chart of an array with the lower bound 1: expected 0, got 9; Err.Number of Render of a Block chart of an array with the lower bound 1: expected 0, got 9"
+    },
+    "SparklineTests.Render_Braille_LowestPositionOfACell_SetsTheBottomLeftDot": {
+      "fails": "1 of 1 checks failed: cells for 25 percent at a height of 4 (the lowest of the four positions: dot 7): expected \"2840 2840\", got \"2808 2808\""
+    },
+    "SparklineTests.Render_Braille_ValueEqualToTheMinimum_SetsADot": {
+      "fails": "1 of 1 checks failed: the cell of a value equal to the minimum at a height of 4 (2800) has a dot: expected True, got False"
+    },
+    "SparklineTests.Render_Braille_TallChart_HoldsTheUpperHalfOfTheRangeInTheUpperRow": {
+      "fails": "2 of 2 checks failed: the upper row of a chart 8 dots high of a rising series (75 and 100 percent): expected \"2800 2800 2800 2804 2801\", got \"2800 2804 2801 2800 2800\"; the lower row (25 and 50 percent): expected \"2800 2804 2801 2800 2800\", got \"2800 2800 2800 2804 2801\""
+    },
+    "TwoPackagesTests.ProgressBar_New_AcceptsTheConsoleOfConsoleCore": {
+      "fails": "1 of 1 checks failed: Err.Number of New cProgressBar given the cConsole of TBMANLIB_ConsoleCore: expected 0, got -2147467262"
+    },
+    "TwoPackagesTests.Sparkline_New_AcceptsTheConsoleOfConsoleCore": {
+      "fails": "1 of 1 checks failed: Err.Number of New cSparkline given the cConsole of TBMANLIB_ConsoleCore: expected 0, got -2147467262"
+    },
+    "TwoPackagesTests.VBar_New_AcceptsTheConsoleOfConsoleCore": {
+      "fails": "1 of 1 checks failed: Err.Number of New cVBar given the cConsole of TBMANLIB_ConsoleCore: expected 0, got -2147467262"
+    },
+    "TwoPackagesTests.DataGrid_New_AcceptsTheConsoleOfConsoleCore": {
+      "fails": "1 of 1 checks failed: Err.Number of New cDataGrid given the cConsole of TBMANLIB_ConsoleCore: expected 0, got -2147467262"
+    },
+    "TwoPackagesTests.ConsoleLayout_New_AcceptsTheConsoleOfConsoleCore": {
+      "fails": "1 of 1 checks failed: Err.Number of New cConsoleLayout given the cConsole of TBMANLIB_ConsoleCore: expected 0, got -2147467262"
+    },
+    "TwoPackagesTests.LayoutHelper_New_AcceptsTheConsoleOfConsoleCore": {
+      "fails": "1 of 1 checks failed: Err.Number of New cLayoutHelper given the cConsole of TBMANLIB_ConsoleCore: expected 0, got -2147467262"
+    },
+    "TwoPackagesTests.ConsolePanel_Render_AcceptsTheBufferOfConsoleCore": {
+      "fails": "1 of 1 checks failed: Err.Number of cConsolePanel.Render given the cConsoleBuffer of TBMANLIB_ConsoleCore: expected 0, got -2147467262"
+    },
+    "TwoPackagesTests.ConsolePanel_ClearContent_AcceptsTheBufferOfConsoleCore": {
+      "fails": "1 of 1 checks failed: Err.Number of cConsolePanel.ClearContent given the cConsoleBuffer of TBMANLIB_ConsoleCore: expected 0, got -2147467262"
+    },
+    "VBarTests.Render_CustomStyle_DrawsACharacterOfItsOwn": {
+      "fails": "1 of 1 checks failed: the character of Custom (2588) differs from that of Block (2588): expected True, got False"
+    },
+    "VBarTests.RenderHistory_ArrayStartingAtOne_DrawsTheChart": {
+      "fails": "3 of 3 checks failed: Err.Number of RenderHistory of an array with the lower bound 1: expected 0, got 9; the oldest value, at column 8: expected \"#|#\", got \".|.\"; the middle value, at column 9: expected \".|#\", got \"#|#\""
+    },
+    "VBarTests.RenderWithLabel_LabelIsCentredUnderTheBar": {
+      "fails": "1 of 1 checks failed: the cells 9 to 11 of the label row, centred under the bar in column 10: expected \"CPU\", got \" CP\""
+    }
+  }
+}
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/BufferTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/BufferTests.twin
new file mode 100644
index 00000000..40249b43
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/BufferTests.twin
@@ -0,0 +1,729 @@
+' TBMANLIB_ConsoleCore: cConsoleBuffer, the grid in memory (nothing here needs a console).
+[TestFixture]
+Module BufferTests
+
+    ' The characters of one row, from a column, as a string.
+    Private Function RowOf(ByVal Buf As cConsoleBuffer, ByVal Row As Long, Optional ByVal FromCol As Long = 0, Optional ByVal Count As Long = -1) As String
+        Dim ci As ConsoleCharInfo
+        Dim s As String
+        Dim x As Long
+        If Count < 0 Then Count = Buf.Width - FromCol
+        For x = FromCol To FromCol + Count - 1
+            ci = Buf.GetChar(x, Row)
+            s = s & ci.Char
+        Next
+        RowOf = s
+    End Function
+
+    Private Function Ch(ByVal CodePoint As Long) As String
+        Ch = ChrW$(CodePoint)
+    End Function
+
+    Private Function DirtyText(ByVal Buf As cConsoleBuffer) As String
+        Dim r As ConsoleRect
+        r = Buf.GetDirtyRect()
+        DirtyText = r.Left & " " & r.Top & " " & r.Right & " " & r.Bottom
+    End Function
+
+    ' ---- the cells
+
+    [TestCase]
+    Public Sub New_HoldsSpacesInGrayOnBlack_AndIsAllDirty()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        Dim ci As ConsoleCharInfo
+        Expect.AreEqual 10, buf.Width, "Width of a 10 by 3 buffer"
+        Expect.AreEqual 3, buf.Height, "Height of a 10 by 3 buffer"
+        ci = buf.GetChar(9, 2)
+        Expect.AreEqual " ", ci.Char, "Char of the last cell of a new buffer"
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(ci.ForeColor), "ForeColor of a cell of a new buffer"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(ci.BackColor), "BackColor of a cell of a new buffer"
+        Expect.IsTrue buf.IsDirty, "IsDirty of a new buffer"
+        Expect.AreEqual "0 0 9 2", DirtyText(buf), "dirty rectangle of a new buffer"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetChar_StoresTheFirstCharacterAndTheColours()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        Dim ci As ConsoleCharInfo
+        buf.SetChar 3, 1, "xyz", ConsoleColor.Red, ConsoleColor.DarkBlue
+        ci = buf.GetChar(3, 1)
+        Expect.AreEqual "x", ci.Char, "Char of the cell after SetChar with ""xyz"""
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(ci.ForeColor), "ForeColor of the cell"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), CLng(ci.BackColor), "BackColor of the cell"
+        Expect.AreEqual " ", buf.GetChar(4, 1).Char, "the next cell is not changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetChar_DefaultColoursAreGrayOnBlack_NotTheColoursOfTheConsole()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        Dim ci As ConsoleCharInfo
+        buf.SetChar 0, 0, "a"
+        ci = buf.GetChar(0, 0)
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(ci.ForeColor), "ForeColor of a cell set without colours"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(ci.BackColor), "BackColor of a cell set without colours"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetChar_OutsideTheGridIsIgnoredAndNothingIsMarked()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.SetChar -1, 0, "a"
+        buf.SetChar 10, 0, "a"
+        buf.SetChar 0, -1, "a"
+        buf.SetChar 0, 3, "a"
+        Expect.IsFalse buf.IsDirty, "IsDirty after SetChar outside the grid"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetChar_EmptyString_Raises5()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        On Error Resume Next
+        buf.SetChar 0, 0, ""
+        Expect.AreEqual 5, Err.Number, "Err.Number of SetChar with an empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetChar_OutsideTheGridReturnsTheEmptyStructure()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        Dim ci As ConsoleCharInfo
+        ci = buf.GetChar(10, 0)
+        Expect.AreEqual "", ci.Char, "Char outside the grid"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(ci.ForeColor), "ForeColor outside the grid"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(ci.BackColor), "BackColor outside the grid"
+        ci = buf.GetChar(0, -1)
+        Expect.AreEqual "", ci.Char, "Char above the grid"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetChar_StyleIsAlwaysNone()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.SetChar 1, 1, "a", ConsoleColor.White, ConsoleColor.Red
+        Expect.AreEqual 0, CLng(buf.GetChar(1, 1).Style), "Style of a cell"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BufferPtr_IsTheAddressOfTheFirstCellAndCellsAreFourBytes()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.SetChar 0, 0, "A", ConsoleColor.Red, ConsoleColor.Blue
+        buf.SetChar 2, 1, "B", ConsoleColor.Green, ConsoleColor.Black
+        Dim ch As Integer
+        Dim attr As Integer
+        Rig.ReadMemory buf.BufferPtr, VarPtr(ch), 2
+        Rig.ReadMemory buf.BufferPtr + 2, VarPtr(attr), 2
+        Expect.AreEqual 65, CLng(ch), "character of the first cell, read through BufferPtr"
+        Expect.AreEqual &H9C&, CLng(attr), "attribute of the first cell (Red on Blue)"
+        Rig.ReadMemory buf.BufferPtr + 4 * (1 * 10 + 2), VarPtr(ch), 2
+        Rig.ReadMemory buf.BufferPtr + 4 * (1 * 10 + 2) + 2, VarPtr(attr), 2
+        Expect.AreEqual 66, CLng(ch), "character of the cell at column 2, row 1 (number row * Width + col), read through BufferPtr"
+        Expect.AreEqual 10, CLng(attr), "attribute of that cell (Green on Black)"
+        Expect.Done
+    End Sub
+
+    ' ---- WriteAt
+
+    [TestCase]
+    Public Sub WriteAt_WritesTextAndColoursIntoARow()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        Dim ci As ConsoleCharInfo
+        buf.WriteAt 2, 1, "Hi", ConsoleColor.Yellow, ConsoleColor.DarkBlue
+        Expect.AreEqual "  Hi      ", RowOf(buf, 1), "row 1 after WriteAt 2, 1, ""Hi"""
+        ci = buf.GetChar(3, 1)
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(ci.ForeColor), "ForeColor of a written cell"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), CLng(ci.BackColor), "BackColor of a written cell"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAt_CharactersBeyondTheLastColumnAreDropped_TheTextDoesNotWrap()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 7, 0, "abcdef"
+        Expect.AreEqual "       abc", RowOf(buf, 0), "row 0 after WriteAt 7, 0, ""abcdef"""
+        Expect.AreEqual "          ", RowOf(buf, 1), "row 1, where the text does not wrap"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAt_CharactersLeftOfColumnZeroAreSkipped()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt -2, 0, "abcd"
+        Expect.AreEqual "cd        ", RowOf(buf, 0), "row 0 after WriteAt -2, 0, ""abcd"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAt_RowOutsideTheGridWritesNothing()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 0, 3, "abc"
+        buf.WriteAt 0, -1, "abc"
+        Expect.AreEqual "          ", RowOf(buf, 0), "row 0"
+        Expect.AreEqual "          ", RowOf(buf, 2), "row 2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAt_ControlCharactersAreStoredAsOrdinaryCharacters()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 0, 0, "a" & vbCr & vbLf & vbTab & "b"
+        Expect.AreEqual 13, AscW(buf.GetChar(1, 0).Char), "cell 1 holds the carriage return"
+        Expect.AreEqual 10, AscW(buf.GetChar(2, 0).Char), "cell 2 holds the line feed"
+        Expect.AreEqual 9, AscW(buf.GetChar(3, 0).Char), "cell 3 holds the tab"
+        Expect.AreEqual "b", buf.GetChar(4, 0).Char, "cell 4 holds the next character"
+        Expect.AreEqual " ", buf.GetChar(0, 1).Char, "no line break moved the text to row 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAt_CharacterOutsideTheBasicMultilingualPlane_TakesTwoCells()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 0, 0, ChrW$(&HD83D) & ChrW$(&HDE00) & "x"
+        Expect.AreEqual &HD83D&, AscW(buf.GetChar(0, 0).Char) And &HFFFF&, "cell 0 holds the high surrogate"
+        Expect.AreEqual &HDE00&, AscW(buf.GetChar(1, 0).Char) And &HFFFF&, "cell 1 holds the low surrogate"
+        Expect.AreEqual "x", buf.GetChar(2, 0).Char, "cell 2 holds the next character"
+        Expect.Done
+    End Sub
+
+    ' ---- FillRect, lines and boxes
+
+    [TestCase]
+    Public Sub FillRect_FillsTheRectangleOnly()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 4)
+        Dim ci As ConsoleCharInfo
+        buf.FillRect 2, 1, 4, 2, "#", ConsoleColor.Green, ConsoleColor.Red
+        Expect.AreEqual "  ###     ", RowOf(buf, 1), "row 1 after FillRect 2, 1, 4, 2"
+        Expect.AreEqual "  ###     ", RowOf(buf, 2), "row 2"
+        Expect.AreEqual "          ", RowOf(buf, 0), "row 0, outside the rectangle"
+        Expect.AreEqual "          ", RowOf(buf, 3), "row 3, outside the rectangle"
+        ci = buf.GetChar(4, 2)
+        Expect.AreEqual CLng(ConsoleColor.Green), CLng(ci.ForeColor), "ForeColor of a filled cell"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(ci.BackColor), "BackColor of a filled cell"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FillRect_IsCutToTheGrid()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.FillRect -5, -5, 2, 0, "#"
+        buf.FillRect 8, 2, 40, 40, "$"
+        Expect.AreEqual "###       ", RowOf(buf, 0), "row 0 after a rectangle that starts left of and above the grid"
+        Expect.AreEqual "        $$", RowOf(buf, 2), "row 2 after a rectangle that reaches beyond the grid"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FillRect_LeftGreaterThanRight_ChangesNoCell()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.FillRect 6, 0, 3, 2, "#"
+        Expect.AreEqual "          ", RowOf(buf, 0), "row 0"
+        Expect.AreEqual "          ", RowOf(buf, 1), "row 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FillRect_DefaultIsASpaceInGrayOnBlack()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        Dim ci As ConsoleCharInfo
+        buf.FillRect 0, 0, 9, 0, "#", ConsoleColor.Red, ConsoleColor.Blue
+        buf.FillRect 0, 0, 4, 0
+        ci = buf.GetChar(2, 0)
+        Expect.AreEqual " ", ci.Char, "Char after FillRect with the defaults"
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(ci.ForeColor), "ForeColor after FillRect with the defaults"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(ci.BackColor), "BackColor after FillRect with the defaults"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FillRect_EmptyCharacter_Raises5()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        On Error Resume Next
+        buf.FillRect 0, 0, 2, 2, ""
+        Expect.AreEqual 5, Err.Number, "Err.Number of FillRect with an empty character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawBox_SingleLine_DrawsTheOutlineOnly()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 5)
+        buf.FillRect 0, 0, 9, 4, "."
+        buf.DrawBox 1, 1, 6, 3
+        Expect.AreEqual "." & Ch(&H250C) & String$(4, Ch(&H2500)) & Ch(&H2510) & "...", RowOf(buf, 1), "top row of the box"
+        Expect.AreEqual "." & Ch(&H2502) & "...." & Ch(&H2502) & "...", RowOf(buf, 2), "middle row of the box, whose inside is unchanged"
+        Expect.AreEqual "." & Ch(&H2514) & String$(4, Ch(&H2500)) & Ch(&H2518) & "...", RowOf(buf, 3), "bottom row of the box"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawBox_DoubleLine_UsesTheDoubleLineCharacters()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 5)
+        buf.DrawBox 0, 0, 4, 2, ConsoleColor.Cyan, ConsoleColor.Black, True
+        Expect.AreEqual Ch(&H2554) & String$(3, Ch(&H2550)) & Ch(&H2557), RowOf(buf, 0, 0, 5), "top row of the double-line box"
+        Expect.AreEqual Ch(&H2551) & "   " & Ch(&H2551), RowOf(buf, 1, 0, 5), "middle row of the double-line box"
+        Expect.AreEqual Ch(&H255A) & String$(3, Ch(&H2550)) & Ch(&H255D), RowOf(buf, 2, 0, 5), "bottom row of the double-line box"
+        Expect.AreEqual CLng(ConsoleColor.Cyan), CLng(buf.GetChar(0, 0).ForeColor), "ForeColor of the corner"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawBox_PartsOutsideTheGridAreLeftOut()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(6, 3)
+        buf.DrawBox 3, 1, 9, 5
+        Expect.AreEqual "   " & Ch(&H250C) & String$(2, Ch(&H2500)), RowOf(buf, 1), "row 1 of a box that reaches beyond the grid"
+        Expect.AreEqual "   " & Ch(&H2502) & "  ", RowOf(buf, 2), "row 2, where only the left edge is inside"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawBox_OneCellWideBox_RaisesNoError()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 5)
+        On Error Resume Next
+        buf.DrawBox 2, 1, 2, 3
+        Expect.AreEqual 0, Err.Number, "Err.Number of DrawBox for a box one column wide"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawHLine_DrawsHorizontalLineCharacters()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.DrawHLine 2, 1, 4
+        buf.DrawHLine 2, 2, 3, ConsoleColor.Gray, ConsoleColor.Black, True
+        Expect.AreEqual "  " & String$(4, Ch(&H2500)) & "    ", RowOf(buf, 1), "row 1 after DrawHLine 2, 1, 4"
+        Expect.AreEqual "  " & String$(3, Ch(&H2550)) & "     ", RowOf(buf, 2), "row 2 after a double DrawHLine"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawVLine_DrawsVerticalLineCharactersGoingDown()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 4)
+        buf.DrawVLine 1, 1, 2
+        buf.DrawVLine 3, 0, 4, ConsoleColor.Gray, ConsoleColor.Black, True
+        Expect.AreEqual Ch(&H2502), buf.GetChar(1, 1).Char, "cell at column 1, row 1"
+        Expect.AreEqual Ch(&H2502), buf.GetChar(1, 2).Char, "cell at column 1, row 2"
+        Expect.AreEqual " ", buf.GetChar(1, 3).Char, "cell at column 1, row 3, beyond the line"
+        Expect.AreEqual Ch(&H2551), buf.GetChar(3, 0).Char, "double line, row 0"
+        Expect.AreEqual Ch(&H2551), buf.GetChar(3, 3).Char, "double line, row 3"
+        Expect.Done
+    End Sub
+
+    ' ---- Clear and Resize
+
+    [TestCase]
+    Public Sub Clear_FillsEveryCellWithTheGivenCharacterAndColours()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        Dim ci As ConsoleCharInfo
+        buf.Clear ConsoleColor.Red, ConsoleColor.Blue, "*"
+        ci = buf.GetChar(9, 2)
+        Expect.AreEqual "*", ci.Char, "Char of the last cell after Clear"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(ci.ForeColor), "ForeColor of the last cell"
+        Expect.AreEqual CLng(ConsoleColor.Blue), CLng(ci.BackColor), "BackColor of the last cell"
+        Expect.AreEqual "**********", RowOf(buf, 0), "row 0"
+        buf.Clear
+        ci = buf.GetChar(0, 0)
+        Expect.AreEqual " ", ci.Char, "Char after Clear with the defaults"
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(ci.ForeColor), "ForeColor after Clear with the defaults"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(ci.BackColor), "BackColor after Clear with the defaults"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_EmptyFillCharacter_Raises5()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        On Error Resume Next
+        buf.Clear ConsoleColor.Gray, ConsoleColor.Black, ""
+        Expect.AreEqual 5, Err.Number, "Err.Number of Clear with an empty fill character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_MarksTheWholeGridDirty_AlsoDuringABatch()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.BeginBatchUpdate
+        buf.Clear
+        Expect.IsTrue buf.IsDirty, "IsDirty after Clear inside a batch"
+        Expect.AreEqual "0 0 9 2", DirtyText(buf), "dirty rectangle after Clear inside a batch"
+        buf.EndBatchUpdate
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Resize_GivesANewSizeAndLosesTheContents()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 0, 0, "text", ConsoleColor.Red, ConsoleColor.Blue
+        buf.ClearDirty
+        buf.Resize 6, 2
+        Expect.AreEqual 6, buf.Width, "Width after Resize 6, 2"
+        Expect.AreEqual 2, buf.Height, "Height after Resize 6, 2"
+        Expect.AreEqual "      ", RowOf(buf, 0), "row 0 after Resize"
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(buf.GetChar(0, 0).ForeColor), "ForeColor after Resize"
+        Expect.IsTrue buf.IsDirty, "IsDirty after Resize"
+        Expect.AreEqual "0 0 5 1", DirtyText(buf), "dirty rectangle after Resize"
+        Expect.Done
+    End Sub
+
+    ' ---- the dirty rectangle
+
+    [TestCase]
+    Public Sub ClearDirty_EmptiesTheRectangleToItsEmptyForm()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        Expect.IsFalse buf.IsDirty, "IsDirty after ClearDirty"
+        Expect.AreEqual "10 3 0 0", DirtyText(buf), "dirty rectangle after ClearDirty (Left is Width, Top is Height)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DirtyRect_GrowsToHoldEveryCellChanged()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.SetChar 4, 1, "x"
+        buf.SetChar 6, 2, "y"
+        Expect.IsTrue buf.IsDirty, "IsDirty after SetChar"
+        Expect.AreEqual "4 1 6 2", DirtyText(buf), "dirty rectangle after two SetChar calls"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DirtyRect_WriteAt_HoldsTheFirstAndLastColumnOfTheText()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.WriteAt 2, 1, "abc"
+        Expect.AreEqual "2 1 4 1", DirtyText(buf), "dirty rectangle after WriteAt 2, 1, ""abc"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DirtyRect_FillRect_HoldsTheCutRectangle()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.FillRect 1, 0, 3, 1, "#"
+        Expect.AreEqual "1 0 3 1", DirtyText(buf), "dirty rectangle after FillRect 1, 0, 3, 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DirtyRect_DrawBoxAndLines_GrowThroughSetChar()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 5)
+        buf.ClearDirty
+        buf.DrawBox 2, 1, 5, 3
+        Expect.AreEqual "2 1 5 3", DirtyText(buf), "dirty rectangle after DrawBox 2, 1, 5, 3"
+        buf.ClearDirty
+        buf.DrawHLine 1, 4, 3
+        Expect.AreEqual "1 4 3 4", DirtyText(buf), "dirty rectangle after DrawHLine 1, 4, 3"
+        buf.ClearDirty
+        buf.DrawVLine 8, 0, 3
+        Expect.AreEqual "8 0 8 2", DirtyText(buf), "dirty rectangle after DrawVLine 8, 0, 3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DirtyRect_WriteAtWithEmptyText_StillGrowsTheRectangle()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.WriteAt 4, 1, ""
+        Expect.IsTrue buf.IsDirty, "IsDirty after WriteAt with empty text"
+        Expect.Done
+    End Sub
+
+    ' ---- batch updates
+
+    [TestCase]
+    Public Sub Batch_DoesNotGrowTheDirtyRectangle_AndEndMarksTheWholeGrid()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.BeginBatchUpdate
+        buf.SetChar 4, 1, "x"
+        Expect.IsTrue buf.IsInBatchMode, "IsInBatchMode inside a batch"
+        Expect.IsFalse buf.IsDirty, "IsDirty after SetChar inside a batch"
+        buf.EndBatchUpdate
+        Expect.IsFalse buf.IsInBatchMode, "IsInBatchMode after the batch"
+        Expect.IsTrue buf.IsDirty, "IsDirty after the batch"
+        Expect.AreEqual "0 0 9 2", DirtyText(buf), "dirty rectangle after the batch"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Batch_Nested_MarksTheGridWhenTheOutermostEnds()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.BeginBatchUpdate
+        buf.BeginBatchUpdate
+        buf.EndBatchUpdate
+        Expect.IsTrue buf.IsInBatchMode, "IsInBatchMode after the inner batch ended"
+        Expect.IsFalse buf.IsDirty, "IsDirty after the inner batch ended"
+        buf.EndBatchUpdate
+        Expect.IsFalse buf.IsInBatchMode, "IsInBatchMode after the outer batch ended"
+        Expect.IsTrue buf.IsDirty, "IsDirty after the outer batch ended"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EndBatchUpdate_WithoutABegin_DoesNothing()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.EndBatchUpdate
+        Expect.IsFalse buf.IsInBatchMode, "IsInBatchMode after a lone EndBatchUpdate"
+        Expect.IsFalse buf.IsDirty, "IsDirty after a lone EndBatchUpdate"
+        Expect.Done
+    End Sub
+
+    ' ---- CopyRegion
+
+    [TestCase]
+    Public Sub CopyRegion_CopiesACharacterAndItsColours()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 4)
+        buf.WriteAt 0, 0, "ab", ConsoleColor.Red, ConsoleColor.Blue
+        buf.WriteAt 0, 1, "cd", ConsoleColor.Green, ConsoleColor.Black
+        buf.CopyRegion 0, 0, 1, 1, 5, 2
+        Expect.AreEqual "ab", RowOf(buf, 2, 5, 2), "row 2, columns 5 and 6 after the copy"
+        Expect.AreEqual "cd", RowOf(buf, 3, 5, 2), "row 3, columns 5 and 6 after the copy"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(buf.GetChar(5, 2).ForeColor), "ForeColor of a copied cell"
+        Expect.AreEqual CLng(ConsoleColor.Blue), CLng(buf.GetChar(5, 2).BackColor), "BackColor of a copied cell"
+        Expect.AreEqual "ab", RowOf(buf, 0, 0, 2), "the source is left as it was"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CopyRegion_OverlappingToTheRight_ReadsCellsBeforeOverwritingThem()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 2)
+        buf.WriteAt 0, 0, "abcd"
+        buf.CopyRegion 0, 0, 3, 0, 2, 0
+        Expect.AreEqual "ababcd", RowOf(buf, 0, 0, 6), "row 0 after copying columns 0 to 3 two columns to the right"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CopyRegion_OverlappingDownward_ReadsCellsBeforeOverwritingThem()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(4, 5)
+        buf.WriteAt 0, 0, "A"
+        buf.WriteAt 0, 1, "B"
+        buf.WriteAt 0, 2, "C"
+        buf.CopyRegion 0, 0, 0, 2, 0, 1
+        Expect.AreEqual "A", buf.GetChar(0, 1).Char, "row 1 after copying rows 0 to 2 one row down"
+        Expect.AreEqual "B", buf.GetChar(0, 2).Char, "row 2"
+        Expect.AreEqual "C", buf.GetChar(0, 3).Char, "row 3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CopyRegion_DestinationCellsOutsideTheGridAreSkipped()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(6, 2)
+        buf.WriteAt 0, 0, "abcd"
+        buf.CopyRegion 0, 0, 3, 0, 4, 0
+        Expect.AreEqual "abcdab", RowOf(buf, 0), "row 0 after a copy whose right half lies beyond the last column"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CopyRegion_SourceOutsideTheGridIsCutAndTheDestinationIsNotMoved()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 2)
+        buf.WriteAt 0, 0, "abc"
+        buf.CopyRegion -2, 0, 2, 0, 5, 0
+        Expect.AreEqual "abc", RowOf(buf, 0, 5, 3), "row 0, columns 5 to 7: the cut source (columns 0 to 2) is copied to the unchanged destination"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CopyRegion_DirtyRectangleHoldsTheDestinationAndTheSource()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 4)
+        buf.ClearDirty
+        buf.CopyRegion 0, 0, 1, 1, 5, 2
+        Expect.AreEqual "0 0 6 3", DirtyText(buf), "dirty rectangle after CopyRegion 0, 0, 1, 1, 5, 2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CopyRegion_InABatch_DirtyRectangleHoldsOnlyTheDestination()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 4)
+        buf.ClearDirty
+        buf.BeginBatchUpdate
+        buf.CopyRegion 0, 0, 1, 1, 5, 2
+        Expect.IsFalse buf.IsDirty, "IsDirty after CopyRegion inside a batch"
+        buf.EndBatchUpdate
+        Expect.Done
+    End Sub
+
+    ' ---- ScrollRegion
+
+    [TestCase]
+    Public Sub ScrollRegion_Up_MovesTheRowsUpAndClearsTheBottomRow()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = Rows4()
+        buf.ScrollRegion 0, 0, 4, 3, -1, 0
+        Expect.AreEqual "B", buf.GetChar(0, 0).Char, "row 0 after scrolling up by one row"
+        Expect.AreEqual "C", buf.GetChar(0, 1).Char, "row 1"
+        Expect.AreEqual "D", buf.GetChar(0, 2).Char, "row 2"
+        Expect.AreEqual " ", buf.GetChar(0, 3).Char, "row 3, the row the move uncovered"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ScrollRegion_Left_MovesTheColumnsLeftAndClearsTheRightColumn()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(5, 1)
+        buf.WriteAt 0, 0, "ABCDE"
+        buf.ScrollRegion 0, 0, 4, 0, 0, -1
+        Expect.AreEqual "BCDE ", RowOf(buf, 0), "row 0 after scrolling left by one column"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ScrollRegion_Down_InARegionAwayFromTheTop_MovesTheRowsDown()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = Rows4()
+        buf.ScrollRegion 0, 1, 4, 3, 1, 0
+        Expect.AreEqual "A", buf.GetChar(0, 0).Char, "row 0, outside the region"
+        Expect.AreEqual " ", buf.GetChar(0, 1).Char, "row 1, the row the move uncovered"
+        Expect.AreEqual "B", buf.GetChar(0, 2).Char, "row 2 after scrolling rows 1 to 3 down by one"
+        Expect.AreEqual "C", buf.GetChar(0, 3).Char, "row 3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ScrollRegion_Down_AtTheTopEdge_MovesTheRowsByTheDistanceAsked()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = Rows4()
+        buf.ScrollRegion 0, 0, 4, 3, 1, 0
+        Expect.AreEqual " ", buf.GetChar(0, 0).Char, "row 0 after scrolling the whole grid down by one row"
+        Expect.AreEqual "A", buf.GetChar(0, 1).Char, "row 1"
+        Expect.AreEqual "B", buf.GetChar(0, 2).Char, "row 2"
+        Expect.AreEqual "C", buf.GetChar(0, 3).Char, "row 3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ScrollRegion_Right_AtTheLeftEdge_MovesTheColumnsByTheDistanceAsked()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(5, 1)
+        buf.WriteAt 0, 0, "ABCDE"
+        buf.ScrollRegion 0, 0, 4, 0, 0, 1
+        Expect.AreEqual " ABCD", RowOf(buf, 0), "row 0 after scrolling right by one column"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ScrollRegion_BothDeltasZero_DoesNothing()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = Rows4()
+        buf.ClearDirty
+        buf.ScrollRegion 0, 0, 4, 3, 0, 0
+        Expect.IsFalse buf.IsDirty, "IsDirty after a scroll by 0 and 0"
+        Expect.AreEqual "A", buf.GetChar(0, 0).Char, "row 0"
+        Expect.Done
+    End Sub
+
+    Private Function Rows4() As cConsoleBuffer
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(5, 4)
+        Dim y As Long
+        For y = 0 To 3
+            buf.WriteAt 0, y, String$(5, Chr$(65 + y))
+        Next
+        Set Rows4 = buf
+    End Function
+
+    ' ---- WriteTextEx
+
+    [TestCase]
+    Public Sub WriteTextEx_LongText_EndsInTheEllipsis()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(20, 2)
+        buf.WriteTextEx "Filename.extension", 0, 0, ConsoleColor.Gray, ConsoleColor.Black, 10, "..."
+        Expect.AreEqual "Filenam...", RowOf(buf, 0, 0, 10), "row 0 after WriteTextEx with a width of 10"
+        Expect.AreEqual " ", buf.GetChar(10, 0).Char, "the cell after the width"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteTextEx_DefaultEllipsisIsTheHorizontalEllipsisCharacter()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(20, 2)
+        buf.WriteTextEx "Filename.extension", 0, 0, ConsoleColor.Gray, ConsoleColor.Black, 8
+        Expect.AreEqual "Filenam" & ChrW$(&H2026), RowOf(buf, 0, 0, 8), "row 0 after WriteTextEx with the default ellipsis"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteTextEx_ShortTextIsWrittenWhole()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(20, 2)
+        buf.WriteTextEx "abc", 2, 0, ConsoleColor.Red, ConsoleColor.Blue, 10
+        Expect.AreEqual "  abc", RowOf(buf, 0, 0, 5), "row 0 after WriteTextEx of a text shorter than the width"
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(buf.GetChar(2, 0).ForeColor), "ForeColor of the written cell"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteTextEx_EllipsisAsLongAsTheWidth_WritesOnlyTheEllipsis()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(20, 2)
+        buf.WriteTextEx "abcdefgh", 0, 0, ConsoleColor.Gray, ConsoleColor.Black, 3, "..."
+        Expect.AreEqual "...", RowOf(buf, 0, 0, 3), "row 0 when the ellipsis is as long as the width"
+        buf.Clear
+        buf.WriteTextEx "abcdefgh", 0, 0, ConsoleColor.Gray, ConsoleColor.Black, 2, "..."
+        Expect.AreEqual ".. ", RowOf(buf, 0, 0, 3), "row 0 when the ellipsis is longer than the width"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteTextEx_WidthZeroOrLess_WritesNothing()
+        Expect.Begin
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(20, 2)
+        buf.ClearDirty
+        buf.WriteTextEx "abc", 0, 0, ConsoleColor.Gray, ConsoleColor.Black, 0
+        buf.WriteTextEx "abc", 0, 0, ConsoleColor.Gray, ConsoleColor.Black, -3
+        Expect.AreEqual "   ", RowOf(buf, 0, 0, 3), "row 0 after WriteTextEx with a width of 0 and of -3"
+        Expect.IsFalse buf.IsDirty, "IsDirty after those calls"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/EventTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/EventTests.twin
new file mode 100644
index 00000000..37bc9683
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/EventTests.twin
@@ -0,0 +1,292 @@
+' TBMANLIB_ConsoleCore: ProcessEvents and the four handler properties of cConsole.
+[TestFixture]
+Module EventTests
+
+    ' Takes a registration of a control handler away until Windows says there is none.
+    Private Sub RemoveCtrl(ByVal Which As Long)
+        Dim n As Long
+        Do
+            If Which = 1 Then
+                If mConsoleAPI.SetConsoleCtrlHandler(AddressOf Sink.OnCtrlOne, 0) = 0 Then Exit Do
+            Else
+                If mConsoleAPI.SetConsoleCtrlHandler(AddressOf Sink.OnCtrlTwo, 0) = 0 Then Exit Do
+            End If
+            n = n + 1
+        Loop While n < 10
+    End Sub
+
+    ' ---- OnKeyPress
+
+    [TestCase]
+    Public Sub OnKeyPress_ProcessEvents_CallsTheHandlerForEachKeyDownAndNotForKeyUp()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnKeyPress = AddressOf Sink.OnKey
+        Rig.PushPress 65, 97
+        Rig.PushKey 16, 0, True, &H10&
+        c.ProcessEvents
+        Expect.AreEqual 2, Sink.KeyCalls, "calls of the key handler for a press of A and a press of Shift"
+        Expect.AreEqual "65;16;", Sink.KeyLog, "key codes the handler was given"
+        Expect.AreEqual 0, Rig.PendingEvents(), "events left in the queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnKeyPress_HandlerGetsVirtualKeyCodes()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnKeyPress = AddressOf Sink.OnKey
+        Rig.PushPress 38, 0
+        c.ProcessEvents
+        Expect.AreEqual "38;", Sink.KeyLog, "key code the handler was given for the Up Arrow key"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ProcessEvents_NoKeyHandler_LeavesKeyEventsInTheQueue()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 65, 97
+        c.ProcessEvents
+        Expect.AreEqual 2, Rig.PendingEvents(), "events in the queue after ProcessEvents with no key handler"
+        Expect.AreEqual 65, c.ReadKey(True).KeyCode, "ReadKey after ProcessEvents"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ProcessEvents_KeyEventWithNoHandler_StopsBeforeTheEventsBehindIt()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnMouseClick = AddressOf Sink.OnMouse
+        Rig.PushPress 65, 97
+        Rig.PushMouse 3, 2, 1, 0
+        c.ProcessEvents
+        Expect.AreEqual 3, Rig.PendingEvents(), "events in the queue after ProcessEvents"
+        Expect.AreEqual 0, Sink.MouseCalls, "calls of the mouse handler for the mouse event behind the key"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- OnMouseClick
+
+    [TestCase]
+    Public Sub OnMouseClick_HandlerIsCalledForEveryMouseEvent()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnMouseClick = AddressOf Sink.OnMouse
+        Rig.PushMouse 3, 2, 0, 1
+        Rig.PushMouse 3, 2, 1, 0
+        Rig.PushMouse 3, 2, 0, 0
+        Rig.PushMouse 4, 2, 2, 2
+        Rig.PushMouse 5, 6, &H780000, 4
+        c.ProcessEvents
+        Expect.AreEqual 5, Sink.MouseCalls, "calls of the mouse handler"
+        Expect.AreEqual "3,2,0,False;3,2,1,False;3,2,0,False;4,2,2,True;5,6,7864320,False;", Sink.MouseLog, "what the handler was given for a move, a left press, a release, a double click of the right button and a wheel turn"
+        Expect.AreEqual 0, Rig.PendingEvents(), "events left in the queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnMouseClick_Set_TurnsOnMouseInputAndExtendedFlagsAndTurnsOffQuickEdit()
+        Expect.Begin
+        Rig.Acquire
+        Rig.SetInMode &H7& Or &H40&
+        Dim before As Long = Rig.InMode()
+        Dim c As New cConsole
+        c.OnMouseClick = AddressOf Sink.OnMouse
+        Expect.AreEqual &H10& Or &H80&, Rig.InMode() And (&H10& Or &H40& Or &H80&), "mouse, quick-edit and extended flags of the input mode"
+        c.Restore
+        Expect.AreEqual before, Rig.InMode(), "input mode after Restore"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ProcessEvents_MouseEventWithNoHandler_IsTakenAndDropped()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushMouse 3, 2, 1, 0
+        c.ProcessEvents
+        Expect.AreEqual 0, Rig.PendingEvents(), "events in the queue after ProcessEvents with no mouse handler"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ProcessEvents_OtherEvents_AreTakenAndDropped()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushFocus
+        Rig.PushFocus
+        c.ProcessEvents
+        Expect.AreEqual 0, Rig.PendingEvents(), "events in the queue after ProcessEvents of two focus events"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- OnResize
+
+    [TestCase]
+    Public Sub OnResize_SizeEventWithTheSizeLastSeen_DoesNotCallTheHandler()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnResize = AddressOf Sink.OnSize
+        Rig.PushSize Rig.BufferWidth(), Rig.WindowHeight()
+        c.ProcessEvents
+        Expect.AreEqual 0, Sink.SizeCalls, "calls of the resize handler for an event with the size the object saw first"
+        Expect.AreEqual 0, Rig.PendingEvents(), "events left in the queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnResize_NewSize_CallsTheHandlerAndGivesTheBufferANewSize()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnResize = AddressOf Sink.OnSize
+        c.EnterFullScreenMode
+        c.Buffer.WriteAt 0, 0, "x"
+        Rig.PushSize 90, 20
+        c.ProcessEvents
+        Expect.AreEqual "90x20;", Sink.SizeLog, "sizes the resize handler was given"
+        Expect.AreEqual 90, c.Buffer.Width, "Width of the buffer after the size event"
+        Expect.AreEqual 20, c.Buffer.Height, "Height of the buffer after the size event"
+        Expect.AreEqual " ", c.Buffer.GetChar(0, 0).Char, "first cell of the buffer: its contents are discarded"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnResize_OutsideFullScreenMode_ASizeEventInTheQueueCallsTheHandler()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnResize = AddressOf Sink.OnSize
+        Rig.MakeActive
+        Rig.Flush
+        Expect.AreEqual 0, Rig.InMode() And 8, "ENABLE_WINDOW_INPUT in the input mode outside full-screen mode"
+        c.SetBufferSize Rig.BufferWidth(), 300
+        c.ProcessEvents
+        Expect.AreEqual 1, Sink.SizeCalls, "calls of the resize handler for the event that SetBufferSize caused outside full-screen mode"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnResize_InFullScreenMode_WindowsReportsAChangeOfSize()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnResize = AddressOf Sink.OnSize
+        c.EnterFullScreenMode
+        Rig.MakeActive
+        Rig.Flush
+        c.SetBufferSize Rig.BufferWidth(), 300
+        c.ProcessEvents
+        Expect.AreEqual 1, Sink.SizeCalls, "calls of the resize handler after the screen buffer was resized in full-screen mode"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnResize_IsGivenTheSizeOfTheWindow()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Sink.Reset
+        c.OnResize = AddressOf Sink.OnSize
+        c.EnterFullScreenMode
+        Rig.MakeActive
+        Rig.Flush
+        c.SetBufferSize Rig.BufferWidth(), 300
+        c.ProcessEvents
+        Expect.AreEqual Rig.WindowWidth() & "x" & Rig.WindowHeight() & ";", Sink.SizeLog, "sizes the handler was given after the screen buffer was made 300 rows tall (the window is not)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- OnCtrlEvent
+
+    [TestCase]
+    Public Sub OnCtrlEvent_RegistersTheProcedureWithWindows()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.OnCtrlEvent = AddressOf Sink.OnCtrlOne
+        Dim removed As Long
+        removed = mConsoleAPI.SetConsoleCtrlHandler(AddressOf Sink.OnCtrlOne, 0)
+        Expect.IsTrue removed <> 0, "removing the procedure from Windows' list afterwards works, so it was registered"
+        RemoveCtrl 1
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnCtrlEvent_Restore_RemovesTheRegistration()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.OnCtrlEvent = AddressOf Sink.OnCtrlOne
+        c.Restore
+        Dim removed As Long
+        removed = mConsoleAPI.SetConsoleCtrlHandler(AddressOf Sink.OnCtrlOne, 0)
+        Expect.AreEqual 0, removed, "removing the procedure from Windows' list after Restore (0 means it was no longer registered)"
+        RemoveCtrl 1
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OnCtrlEvent_AnotherProcedure_ReplacesTheFirst()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.OnCtrlEvent = AddressOf Sink.OnCtrlOne
+        c.OnCtrlEvent = AddressOf Sink.OnCtrlTwo
+        Dim removed As Long
+        removed = mConsoleAPI.SetConsoleCtrlHandler(AddressOf Sink.OnCtrlOne, 0)
+        Expect.AreEqual 0, removed, "removing the first procedure from Windows' list after a second was set (0 means it was no longer registered)"
+        RemoveCtrl 1
+        RemoveCtrl 2
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/FlushTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/FlushTests.twin
new file mode 100644
index 00000000..48ba3010
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/FlushTests.twin
@@ -0,0 +1,227 @@
+' TBMANLIB_ConsoleCore: cConsoleBuffer written to a console screen buffer by Flush and FlushRegion.
+[TestFixture]
+Module FlushTests
+
+    Private Function Dirty(ByVal Buf As cConsoleBuffer) As String
+        Dim r As ConsoleRect
+        r = Buf.GetDirtyRect()
+        Dirty = r.Left & " " & r.Top & " " & r.Right & " " & r.Bottom
+    End Function
+
+    [TestCase]
+    Public Sub Flush_WritesEachCellToTheSamePositionWithItsColours()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 2, 1, "Hi", ConsoleColor.Yellow, ConsoleColor.DarkBlue
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual "Hi", Rig.TextAt(Rig.OutHandle, 2, 1, 2), "screen text at column 2, row 1 after Flush"
+        Expect.AreEqual &H1E&, Rig.AttrAt(Rig.OutHandle, 2, 1), "screen attribute of the cell (Yellow on DarkBlue)"
+        Expect.AreEqual &H1E&, Rig.AttrAt(Rig.OutHandle, 3, 1), "screen attribute of the next cell"
+        Expect.AreEqual &H7&, Rig.AttrAt(Rig.OutHandle, 0, 0), "screen attribute of an untouched cell (Gray on Black)"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Flush_WritesOnlyTheDirtyRectangle()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        Rig.PutText Rig.OutHandle, 7, 2, "Z"
+        buf.WriteAt 0, 0, "a"
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual "a", Rig.TextAt(Rig.OutHandle, 0, 0, 1), "screen text at the changed cell"
+        Expect.AreEqual "Z", Rig.TextAt(Rig.OutHandle, 7, 2, 1), "screen text at a cell outside the dirty rectangle"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Flush_NothingDirty_WritesNothing()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        Rig.PutText Rig.OutHandle, 5, 1, "Z"
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual "Z", Rig.TextAt(Rig.OutHandle, 5, 1, 1), "screen text after a Flush with nothing dirty"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Flush_ForceAll_WritesEveryCell()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        Rig.PutText Rig.OutHandle, 5, 1, "Z"
+        buf.Flush Rig.OutHandle, True
+        Expect.AreEqual " ", Rig.TextAt(Rig.OutHandle, 5, 1, 1), "screen text after Flush with forceAll"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Flush_EmptiesTheDirtyRectangle()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        Expect.IsFalse buf.IsDirty, "IsDirty after Flush"
+        Expect.AreEqual "10 3 0 0", Dirty(buf), "dirty rectangle after Flush"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Flush_ToAHandleThatIsNotAConsole_EmptiesTheDirtyRectangleAllTheSame()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 0, 0, "a"
+        On Error Resume Next
+        buf.Flush 0
+        Expect.AreEqual 0, Err.Number, "Err.Number of Flush to an invalid handle"
+        Expect.IsFalse buf.IsDirty, "IsDirty after Flush to an invalid handle"
+        Expect.AreEqual " ", Rig.TextAt(Rig.OutHandle, 0, 0, 1), "nothing is shown on the real screen buffer"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FlushRegion_WritesTheRectangleWhetherOrNotItIsDirty()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 0, 0, "abcdef"
+        buf.ClearDirty
+        buf.FlushRegion Rig.OutHandle, 1, 0, 3, 0
+        Expect.AreEqual "bcd", Rig.TextAt(Rig.OutHandle, 1, 0, 3), "screen text of the region"
+        Expect.AreEqual " ", Rig.TextAt(Rig.OutHandle, 0, 0, 1), "screen text left of the region"
+        Expect.AreEqual " ", Rig.TextAt(Rig.OutHandle, 4, 0, 1), "screen text right of the region"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FlushRegion_LeavesTheDirtyRectangleAsItIs()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.ClearDirty
+        buf.SetChar 6, 2, "x"
+        buf.FlushRegion Rig.OutHandle, 0, 0, 9, 2
+        Expect.IsTrue buf.IsDirty, "IsDirty after FlushRegion"
+        Expect.AreEqual "6 2 6 2", Dirty(buf), "dirty rectangle after FlushRegion"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FlushRegion_IsCutToTheGrid()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 0, 0, "start"
+        buf.WriteAt 9, 2, "e"
+        buf.FlushRegion Rig.OutHandle, -5, -5, 100, 100
+        Expect.AreEqual "start", Rig.TextAt(Rig.OutHandle, 0, 0, 5), "screen text at the top left after a region larger than the grid"
+        Expect.AreEqual "e", Rig.TextAt(Rig.OutHandle, 9, 2, 1), "screen text at the bottom right"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- a negative position in the dirty rectangle
+
+    [TestCase]
+    Public Sub WriteAt_BeyondTheGrid_NextFlushStillDrawsTheChangedCells()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        buf.SetChar 5, 2, "x"
+        buf.WriteAt 8, 5, "zz"
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual "x", Rig.TextAt(Rig.OutHandle, 5, 2, 1), "screen text of the cell changed before the WriteAt below the grid"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAt_NegativeColumn_NextFlushStillDrawsTheChangedCells()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        buf.SetChar 5, 2, "x"
+        buf.WriteAt -2, 0, "abcd"
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual "cd", Rig.TextAt(Rig.OutHandle, 0, 0, 2), "screen text at column 0, row 0 after Flush"
+        Expect.AreEqual "x", Rig.TextAt(Rig.OutHandle, 5, 2, 1), "screen text of the cell changed before the WriteAt"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAt_NegativeRow_NextFlushStillDrawsTheChangedCells()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        buf.SetChar 5, 2, "x"
+        buf.WriteAt 0, -1, "abc"
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual "x", Rig.TextAt(Rig.OutHandle, 5, 2, 1), "screen text of the cell changed before the WriteAt"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FillRect_RectangleAboveAndLeftOfTheGrid_NextFlushStillDrawsTheChangedCells()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        buf.SetChar 5, 2, "x"
+        buf.FillRect -5, -5, -1, -1, "#"
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual "x", Rig.TextAt(Rig.OutHandle, 5, 2, 1), "screen text of the cell changed before the FillRect"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CopyRegion_NegativeDestination_NextFlushStillDrawsTheCopiedCells()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.WriteAt 0, 0, "abc"
+        buf.Flush Rig.OutHandle
+        buf.CopyRegion 0, 0, 2, 0, -1, 0
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual "bcc", Rig.TextAt(Rig.OutHandle, 0, 0, 3), "screen text of row 0 after the copy and Flush"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Flush_AfterANegativePosition_EmptiesTheRectangleAndForceAllDrawsTheCells()
+        Expect.Begin
+        Rig.Acquire
+        Dim buf As cConsoleBuffer = New cConsoleBuffer(10, 3)
+        buf.Flush Rig.OutHandle
+        buf.WriteAt -2, 0, "abcd"
+        buf.Flush Rig.OutHandle
+        Expect.IsFalse buf.IsDirty, "IsDirty after the Flush"
+        buf.Flush Rig.OutHandle
+        Expect.AreEqual " ", Rig.TextAt(Rig.OutHandle, 0, 0, 1), "screen text after a second Flush: the cells are off the screen until they change again"
+        buf.Flush Rig.OutHandle, True
+        Expect.AreEqual "cd", Rig.TextAt(Rig.OutHandle, 0, 0, 2), "screen text after Flush with forceAll"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/FullScreenTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/FullScreenTests.twin
new file mode 100644
index 00000000..a6a11836
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/FullScreenTests.twin
@@ -0,0 +1,272 @@
+' TBMANLIB_ConsoleCore: the full-screen mode of cConsole: the buffer it makes, Refresh and RefreshAll.
+[TestFixture]
+Module FullScreenTests
+
+    [TestCase]
+    Public Sub EnterFullScreenMode_MakesABufferOfTheWindowSize_HidesTheCursor_AndTurnsOnWindowInput()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Expect.IsTrue c.Buffer Is Nothing, "Buffer before EnterFullScreenMode"
+        c.EnterFullScreenMode
+        Expect.IsTrue c.FullScreenMode, "FullScreenMode after EnterFullScreenMode"
+        Expect.AreEqual Rig.WindowWidth(), c.Buffer.Width, "Width of the buffer"
+        Expect.AreEqual Rig.WindowHeight(), c.Buffer.Height, "Height of the buffer"
+        Expect.IsFalse c.CursorVisible, "CursorVisible"
+        Expect.AreEqual 8, Rig.InMode() And 8, "ENABLE_WINDOW_INPUT in the input mode"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnterFullScreenMode_AlreadyOn_DoesNothing()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Buffer.WriteAt 0, 0, "keep"
+        c.EnterFullScreenMode
+        Expect.AreEqual "k", c.Buffer.GetChar(0, 0).Char, "first cell of the buffer after a second EnterFullScreenMode"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnterFullScreenMode_DoesNotClearTheScreenOrChangeTheWindow()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PutText Rig.OutHandle, 0, 0, "on screen"
+        Dim w As Long = Rig.WindowWidth()
+        Dim h As Long = Rig.WindowHeight()
+        c.EnterFullScreenMode
+        Expect.AreEqual "on screen", Rig.RowText(0), "row 0 after EnterFullScreenMode"
+        Expect.AreEqual w, Rig.WindowWidth(), "window width after EnterFullScreenMode"
+        Expect.AreEqual h, Rig.WindowHeight(), "window height after EnterFullScreenMode"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ExitFullScreenMode_ReleasesTheBuffer_ShowsTheCursor_AndPutsBackTheInputMode()
+        Expect.Begin
+        Rig.Acquire
+        Dim inMode As Long = Rig.InMode()
+        Dim c As New cConsole
+        c.CursorVisible = False
+        c.EnterFullScreenMode
+        c.OnMouseClick = AddressOf Sink.OnMouse
+        c.ExitFullScreenMode
+        Expect.IsFalse c.FullScreenMode, "FullScreenMode after ExitFullScreenMode"
+        Expect.IsTrue c.Buffer Is Nothing, "Buffer after ExitFullScreenMode"
+        Expect.IsTrue c.CursorVisible, "CursorVisible after ExitFullScreenMode, whatever it was before"
+        Expect.AreEqual inMode, Rig.InMode(), "input mode after ExitFullScreenMode"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ExitFullScreenMode_LeavesTheLastPictureOnTheScreen()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Buffer.WriteAt 2, 1, "picture"
+        c.Refresh
+        c.ExitFullScreenMode
+        Expect.AreEqual "picture", Rig.TextAt(Rig.OutHandle, 2, 1, 7), "screen text after ExitFullScreenMode"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ExitFullScreenMode_WhenOff_DoesNothing()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.CursorVisible = False
+        c.ExitFullScreenMode
+        Expect.IsFalse c.CursorVisible, "CursorVisible after ExitFullScreenMode when the mode was off"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetBufferSize_DoesNotResizeTheFullScreenBuffer()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.SetBufferSize Rig.BufferWidth(), 300
+        Expect.AreEqual Rig.WindowHeight(), c.Buffer.Height, "Height of the buffer after SetBufferSize"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- Refresh and RefreshAll
+
+    [TestCase]
+    Public Sub Refresh_WritesTheBufferAtTheTopLeftOfTheScreenBuffer()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Buffer.WriteAt 2, 1, "Hi", ConsoleColor.Yellow, ConsoleColor.DarkBlue
+        c.Refresh
+        Expect.AreEqual "Hi", Rig.TextAt(Rig.OutHandle, 2, 1, 2), "screen text at column 2, row 1 after Refresh"
+        Expect.AreEqual &H1E&, Rig.AttrAt(Rig.OutHandle, 2, 1), "screen attribute of that cell"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Refresh_WritesOnlyTheChangedRectangle()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Refresh
+        Rig.PutText Rig.OutHandle, 5, 5, "ZZ"
+        c.Buffer.WriteAt 0, 0, "a"
+        c.Refresh
+        Expect.AreEqual "a", Rig.TextAt(Rig.OutHandle, 0, 0, 1), "screen text at the changed cell"
+        Expect.AreEqual "ZZ", Rig.TextAt(Rig.OutHandle, 5, 5, 2), "screen text outside the changed rectangle"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RefreshAll_WritesTheWholeBuffer()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Refresh
+        Rig.PutText Rig.OutHandle, 5, 5, "ZZ"
+        c.RefreshAll
+        Expect.AreEqual "  ", Rig.TextAt(Rig.OutHandle, 5, 5, 2), "screen text after RefreshAll"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Refresh_And_RefreshAll_OutsideFullScreenMode_DoNothing()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PutText Rig.OutHandle, 5, 5, "ZZ"
+        c.Refresh
+        c.RefreshAll
+        Expect.AreEqual "ZZ", Rig.TextAt(Rig.OutHandle, 5, 5, 2), "screen text after Refresh and RefreshAll outside full-screen mode"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsInTheWindow()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.SetBufferSize Rig.BufferWidth(), 300
+        Rig.ScrollWindowTo 100
+        c.EnterFullScreenMode
+        c.Buffer.WriteAt 0, 0, "A"
+        c.Refresh
+        Expect.AreEqual "A", Rig.TextAt(Rig.OutHandle, 0, 100, 1), "screen text at the top row of the window (row 100 of the screen buffer)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Refresh_AfterAWriteAtWithANegativeColumn_DrawsTheChangedCells()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Refresh
+        c.Buffer.SetChar 5, 2, "x"
+        c.Buffer.WriteAt -2, 0, "abcd"
+        c.Refresh
+        Expect.AreEqual "x", Rig.TextAt(Rig.OutHandle, 5, 2, 1), "screen text of the cell changed before the WriteAt with a negative column"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsAtRowZero()
+        ' What Refresh does today, kept as a case of its own: the cells are written to the rows
+        ' 0 to Height - 1 of the screen buffer.
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.SetBufferSize Rig.BufferWidth(), 300
+        Rig.ScrollWindowTo 100
+        c.EnterFullScreenMode
+        c.Buffer.WriteAt 0, 0, "A"
+        c.Refresh
+        Expect.AreEqual "A", Rig.TextAt(Rig.OutHandle, 0, 0, 1), "screen text at row 0 of the screen buffer"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- FPS and LastRenderTime
+
+    [TestCase]
+    Public Sub FPS_And_LastRenderTime_AreZeroBeforeTheFirstDraw()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        Expect.AreEqual 0#, c.FPS, "FPS before the first draw"
+        Expect.AreEqual 0, c.LastRenderTime, "LastRenderTime before the first draw"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FPS_AfterDrawing_IsPositiveAndFallsWhileNothingIsDrawn()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Refresh
+        mConsoleAPI.Sleep 60
+        c.Refresh
+        Dim first As Double = c.FPS
+        Expect.IsTrue first > 0, "FPS after two Refresh calls 60 ms apart (got " & first & ")"
+        mConsoleAPI.Sleep 200
+        Expect.IsTrue c.FPS < first, "FPS falls while the program draws nothing (was " & first & ", now " & c.FPS & ")"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LastRenderTime_IsTheTimeOfTheLastDrawInMilliseconds()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Refresh
+        Expect.IsTrue c.LastRenderTime >= 0 And c.LastRenderTime < 1000, "LastRenderTime after Refresh of a small buffer (got " & c.LastRenderTime & ")"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/NoConsoleTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/NoConsoleTests.twin
new file mode 100644
index 00000000..fb537031
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/NoConsoleTests.twin
@@ -0,0 +1,212 @@
+' TBMANLIB_ConsoleCore: a cConsole made when the standard handles are not console handles: a program
+' without a console (the handles are 0), or one whose output is redirected to a file.
+[TestFixture]
+Module NoConsoleTests
+
+    [TestCase]
+    Public Sub New_WithoutHandles_Succeeds_AndSizeIs80By25()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As cConsole
+        On Error Resume Next
+        Set c = New cConsole
+        Expect.AreEqual 0, Err.Number, "Err.Number of New cConsole without handles"
+        On Error GoTo 0
+        Expect.AreEqual 80, c.Width, "Width without a console"
+        Expect.AreEqual 25, c.Height, "Height without a console"
+        Expect.AreEqual 80, c.GetSize().Width, "Width of GetSize"
+        Expect.AreEqual 25, c.GetSize().Height, "Height of GetSize"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetBufferSize_WithoutHandles_Is80By300()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        Expect.AreEqual 80, c.GetBufferSize().Width, "Width of GetBufferSize without a console"
+        Expect.AreEqual 300, c.GetBufferSize().Height, "Height of GetBufferSize without a console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetCursorPosition_CursorProperties_WithoutHandles_AreZeroOrFalse()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        Expect.AreEqual 0, c.GetCursorPosition().Col, "Col without a console"
+        Expect.AreEqual 0, c.GetCursorPosition().Row, "Row without a console"
+        Expect.IsFalse c.CursorVisible, "CursorVisible without a console"
+        Expect.AreEqual 0, c.CursorSize, "CursorSize without a console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteMembers_WithoutHandles_WriteNothingAndRaiseNoError()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        On Error Resume Next
+        c.WriteTo "abc"
+        c.WriteLine "abc"
+        c.WriteF "{0}", "abc"
+        c.WriteColored "abc", ConsoleColor.Red
+        c.WriteAt 2, 2, "abc"
+        c.WriteError "abc"
+        c.Clear
+        c.ClearLine
+        c.DrawBox 0, 0, 5, 3
+        Expect.AreEqual 0, Err.Number, "Err.Number after the write members without a console"
+        On Error GoTo 0
+        Expect.AreEqual "", Rig.RowText(0), "row 0 of the real screen buffer"
+        Expect.AreEqual "", Rig.RowText(2), "row 2 of the real screen buffer"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnableVirtualTerminal_WithoutHandles_ReturnsFalse()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        Expect.IsFalse c.EnableVirtualTerminal(), "EnableVirtualTerminal without a console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadLine_WithoutHandles_ReturnsAnEmptyStringAtOnce()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        Dim s As String
+        s = c.ReadLine()
+        Expect.AreEqual "", s, "ReadLine without a console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub KeyAvailable_PeekEvent_WithoutHandles_AreFalseAndEmpty()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Expect.IsFalse c.KeyAvailable(), "KeyAvailable without a console"
+        k = c.PeekEvent()
+        Expect.AreEqual 0, k.KeyCode, "KeyCode of PeekEvent without a console"
+        Expect.AreEqual "", k.KeyChar, "KeyChar of PeekEvent without a console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKeyTimeout_WithoutHandles_ReturnsTheEmptyStructureWhenTheTimeIsOver()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Dim t As Single = Timer
+        k = c.ReadKeyTimeout(200)
+        Expect.AreEqual 0, k.KeyCode, "KeyCode of ReadKeyTimeout(200) without a console"
+        Expect.AreEqual "", k.KeyChar, "KeyChar of ReadKeyTimeout(200) without a console"
+        Expect.IsTrue Timer - t >= 0.15, "ReadKeyTimeout(200) waited about 200 ms (waited " & Format$((Timer - t) * 1000, "0") & " ms)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnterFullScreenMode_WithoutHandles_MakesAnInMemoryBufferOf80By25()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        Expect.IsTrue c.FullScreenMode, "FullScreenMode"
+        Expect.AreEqual 80, c.Buffer.Width, "Width of the buffer"
+        Expect.AreEqual 25, c.Buffer.Height, "Height of the buffer"
+        c.Buffer.WriteAt 0, 0, "ok"
+        c.Refresh
+        Expect.AreEqual "o", c.Buffer.GetChar(0, 0).Char, "a cell of the buffer after Refresh without a console"
+        Expect.AreEqual "", Rig.RowText(0), "row 0 of the real screen buffer: Refresh shows nothing"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsKeyPressed_WorksWithoutAConsole()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        Dim r As Boolean
+        On Error Resume Next
+        r = c.IsKeyPressed(7)
+        Expect.AreEqual 0, Err.Number, "Err.Number of IsKeyPressed without a console"
+        Expect.IsFalse r, "IsKeyPressed for a virtual-key code that no key has"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- output redirected to a file
+
+    [TestCase]
+    Public Sub RedirectedOutput_WriteMembersWriteNothingToTheFile()
+        Expect.Begin
+        Rig.Acquire
+        Dim path As String = Rig.TempPath("out.txt")
+        Rig.Redirect path
+        Dim c As New cConsole
+        On Error Resume Next
+        c.WriteLine "to the file"
+        c.WriteErrorLine "to the error file"
+        c.WriteTo "more"
+        Expect.AreEqual 0, Err.Number, "Err.Number of the write members with the output redirected"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.EndRedirect
+        Expect.AreEqual 0, FileLen(path), "length of the file the output was redirected to"
+        Rig.RemoveTemp
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RedirectedOutput_SizeIs80By25_AndVirtualTerminalIsRefused()
+        Expect.Begin
+        Rig.Acquire
+        Rig.Redirect Rig.TempPath("out2.txt")
+        Dim c As New cConsole
+        Expect.AreEqual 80, c.GetSize().Width, "Width of GetSize with the output redirected"
+        Expect.AreEqual 25, c.GetSize().Height, "Height of GetSize with the output redirected"
+        Expect.IsFalse c.EnableVirtualTerminal(), "EnableVirtualTerminal with the output redirected"
+        Set c = Nothing
+        Rig.EndRedirect
+        Rig.RemoveTemp
+        Rig.Release
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/OutputTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/OutputTests.twin
new file mode 100644
index 00000000..665af983
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/OutputTests.twin
@@ -0,0 +1,525 @@
+' TBMANLIB_ConsoleCore: what cConsole writes: text, colours, the standard error handle, boxes and bars,
+' and the layout helpers. The window of the console the cases use is 100 columns by 30 rows (see Rig).
+[TestFixture]
+Module OutputTests
+
+    ' ---- WriteTo and WriteLine
+
+    [TestCase]
+    Public Sub WriteTo_WritesTheTextAtTheCursorInTheCurrentColours()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.SetColors ConsoleColor.Yellow, ConsoleColor.DarkBlue
+        c.WriteTo "ab"
+        Expect.AreEqual "ab", Rig.RowText(0), "row 0 after WriteTo ""ab"""
+        Expect.AreEqual &H1E&, Rig.AttrAt(Rig.OutHandle, 0, 0), "attribute of the first cell"
+        Expect.AreEqual 2, Rig.CursorCol(Rig.OutHandle), "column of the cursor after the text"
+        c.WriteTo "cd"
+        Expect.AreEqual "abcd", Rig.RowText(0), "row 0 after a second WriteTo"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteTo_ControlCharactersTakeEffect()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteTo "abc" & vbCr & "X"
+        Expect.AreEqual "Xbc", Rig.RowText(0), "row 0 after ""abc"", a carriage return and ""X"""
+        c.WriteTo vbCr & vbLf & "ab" & vbBack & "Z"
+        Expect.AreEqual "aZ", Rig.RowText(1), "row 1 after a line feed, ""ab"", a backspace and ""Z"""
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLine_MovesToTheStartOfTheNextLine()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteLine "first"
+        c.WriteTo "second"
+        Expect.AreEqual "first", Rig.RowText(0), "row 0"
+        Expect.AreEqual "second", Rig.RowText(1), "row 1"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLine_WithoutText_WritesOnlyTheLineFeed()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteTo "ab"
+        c.WriteLine
+        Expect.AreEqual 0, Rig.CursorCol(Rig.OutHandle), "column of the cursor after WriteLine with no text"
+        Expect.AreEqual 1, Rig.CursorRow(Rig.OutHandle), "row of the cursor after WriteLine with no text"
+        Expect.AreEqual "ab", Rig.RowText(0), "row 0"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- WriteF and WriteLineF
+
+    [TestCase]
+    Public Sub WriteF_ReplacesNumberedPlaceholders()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteF "{0} + {1} = {2}", 2, 3, 2 + 3
+        Expect.AreEqual "2 + 3 = 5", Rig.RowText(0), "row 0 after WriteF with three values"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteF_PlaceholderCanBeUsedMoreThanOnceAndInAnyOrder()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteF "{1}{0}{1}", "a", "b"
+        Expect.AreEqual "bab", Rig.RowText(0), "row 0 after WriteF ""{1}{0}{1}"""
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteF_FormatSpecifierIsNotUnderstood()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteF "{0:N2}", 3.14159
+        Expect.AreEqual "{0:N2}", Rig.RowText(0), "row 0 after WriteF ""{0:N2}"""
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteF_PlaceholderWithoutAValueStaysInTheText()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteF "{0} {1}", "a"
+        Expect.AreEqual "a {1}", Rig.RowText(0), "row 0 after WriteF ""{0} {1}"" with one value"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteF_ValueThatContainsAPlaceholderIsReplacedAgain()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteF "{0}|{1}", "{1}", "B"
+        Expect.AreEqual "B|B", Rig.RowText(0), "row 0 after WriteF with a first value of ""{1}"""
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLineF_ReplacesThePlaceholdersAndEndsTheLine()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteLineF "Hello, {0}.", "Ann"
+        c.WriteTo "next"
+        Expect.AreEqual "Hello, Ann.", Rig.RowText(0), "row 0 after WriteLineF"
+        Expect.AreEqual "next", Rig.RowText(1), "row 1 after the line feed"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- the coloured write members
+
+    [TestCase]
+    Public Sub WriteColored_WritesTheTextInTheGivenColours()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteColored "ab", ConsoleColor.Red, ConsoleColor.Green
+        Expect.AreEqual "ab", Rig.RowText(0), "row 0"
+        Expect.AreEqual 12 + 10 * 16, Rig.AttrAt(Rig.OutHandle, 0, 0), "attribute of the first cell (Red on Green)"
+        Expect.AreEqual 12 + 10 * 16, Rig.AttrAt(Rig.OutHandle, 1, 0), "attribute of the second cell"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteColored_PutsBackTheColoursTheObjectTracks()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.SetColors ConsoleColor.Cyan, ConsoleColor.DarkRed
+        c.WriteColored "x", ConsoleColor.Red, ConsoleColor.Green
+        Expect.AreEqual CLng(ConsoleColor.Cyan), CLng(c.ForeColor), "ForeColor after WriteColored"
+        Expect.AreEqual CLng(ConsoleColor.DarkRed), CLng(c.BackColor), "BackColor after WriteColored"
+        Expect.AreEqual 11 + 4 * 16, Rig.CurrentAttr(Rig.OutHandle), "attribute of the console after WriteColored"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteColored_NoBackground_KeepsTheCurrentBackground()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.BackColor = ConsoleColor.DarkBlue
+        c.WriteColored "x", ConsoleColor.Red
+        Expect.AreEqual 12 + 1 * 16, Rig.AttrAt(Rig.OutHandle, 0, 0), "attribute of the cell written with Red and no background, on a DarkBlue console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLineColored_NoBackground_KeepsTheCurrentBackground()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.BackColor = ConsoleColor.DarkBlue
+        c.WriteLineColored "x", ConsoleColor.Red
+        Expect.AreEqual 12 + 1 * 16, Rig.AttrAt(Rig.OutHandle, 0, 0), "attribute of the cell written with Red and no background, on a DarkBlue console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAtColored_NoBackground_KeepsTheCurrentBackground()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.BackColor = ConsoleColor.DarkBlue
+        c.WriteAtColored 3, 2, "x", ConsoleColor.Red
+        Expect.AreEqual 12 + 1 * 16, Rig.AttrAt(Rig.OutHandle, 3, 2), "attribute of the cell written with Red and no background, on a DarkBlue console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteColored_LeavesTheConsoleInTheColoursItHad()
+        Expect.Begin
+        Rig.Acquire
+        Rig.SetAttr Rig.OutHandle, &H1E
+        Dim c As New cConsole
+        c.WriteColored "x", ConsoleColor.Red, ConsoleColor.Green
+        Expect.AreEqual &H1E&, Rig.CurrentAttr(Rig.OutHandle), "attribute of the console after WriteColored, which began as Yellow on DarkBlue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLineColored_LeavesTheConsoleInTheColoursItHad()
+        Expect.Begin
+        Rig.Acquire
+        Rig.SetAttr Rig.OutHandle, &H1E
+        Dim c As New cConsole
+        c.WriteLineColored "x", ConsoleColor.Red, ConsoleColor.Green
+        Expect.AreEqual &H1E&, Rig.CurrentAttr(Rig.OutHandle), "attribute of the console after WriteLineColored, which began as Yellow on DarkBlue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAtColored_LeavesTheConsoleInTheColoursItHad()
+        Expect.Begin
+        Rig.Acquire
+        Rig.SetAttr Rig.OutHandle, &H1E
+        Dim c As New cConsole
+        c.WriteAtColored 3, 2, "x", ConsoleColor.Red, ConsoleColor.Green
+        Expect.AreEqual &H1E&, Rig.CurrentAttr(Rig.OutHandle), "attribute of the console after WriteAtColored, which began as Yellow on DarkBlue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLineColored_WritesTheTextAndMovesToTheNextLine()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteLineColored "done", ConsoleColor.Green
+        Expect.AreEqual "done", Rig.RowText(0), "row 0"
+        Expect.AreEqual 10, Rig.AttrAt(Rig.OutHandle, 0, 0), "attribute of the first cell (Green on Black)"
+        Expect.AreEqual 1, Rig.CursorRow(Rig.OutHandle), "row of the cursor"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- WriteAt
+
+    [TestCase]
+    Public Sub WriteAt_WritesAtThePositionAndLeavesTheCursorAfterTheText()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteAt 4, 2, "xyz"
+        Expect.AreEqual "xyz", Rig.TextAt(Rig.OutHandle, 4, 2, 3), "text at column 4, row 2"
+        Expect.AreEqual 7, Rig.CursorCol(Rig.OutHandle), "column of the cursor"
+        Expect.AreEqual 2, Rig.CursorRow(Rig.OutHandle), "row of the cursor"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteAtColored_WritesAtThePositionInTheGivenColours()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteAtColored 4, 2, "xyz", ConsoleColor.Red, ConsoleColor.Blue
+        Expect.AreEqual "xyz", Rig.TextAt(Rig.OutHandle, 4, 2, 3), "text at column 4, row 2"
+        Expect.AreEqual 12 + 9 * 16, Rig.AttrAt(Rig.OutHandle, 4, 2), "attribute of the first cell (Red on Blue)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- the standard error handle
+
+    [TestCase]
+    Public Sub WriteError_WritesToTheErrorHandleOnly()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteError "bad"
+        Expect.AreEqual "bad", Rig.TextAt(Rig.ErrHandle, 0, 0, 3), "text on the error screen buffer"
+        Expect.AreEqual "", Rig.RowText(0), "row 0 of the output screen buffer"
+        Expect.AreEqual 3, Rig.CursorCol(Rig.ErrHandle), "column of the cursor on the error screen buffer (no line break added)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteErrorLine_AddsALineFeed()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteErrorLine "bad"
+        Expect.AreEqual "bad", Rig.TextAt(Rig.ErrHandle, 0, 0, 3), "text on the error screen buffer"
+        Expect.AreEqual 0, Rig.CursorCol(Rig.ErrHandle), "column of the cursor on the error screen buffer"
+        Expect.AreEqual 1, Rig.CursorRow(Rig.ErrHandle), "row of the cursor on the error screen buffer"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- DrawBox and DrawProgressBar
+
+    [TestCase]
+    Public Sub DrawBox_SingleLine_DrawsTheOutlineOnTheConsole()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PutText Rig.OutHandle, 4, 2, "."
+        c.DrawBox 2, 1, 6, 3
+        Expect.AreEqual ChrW$(&H250C) & String$(3, ChrW$(&H2500)) & ChrW$(&H2510), Rig.TextAt(Rig.OutHandle, 2, 1, 5), "top row of the box"
+        Expect.AreEqual ChrW$(&H2502), Rig.TextAt(Rig.OutHandle, 2, 2, 1), "left edge, row 2"
+        Expect.AreEqual ChrW$(&H2502), Rig.TextAt(Rig.OutHandle, 6, 2, 1), "right edge, row 2"
+        Expect.AreEqual ".", Rig.TextAt(Rig.OutHandle, 4, 2, 1), "the inside of the box is left as it is"
+        Expect.AreEqual ChrW$(&H2514) & String$(3, ChrW$(&H2500)) & ChrW$(&H2518), Rig.TextAt(Rig.OutHandle, 2, 3, 5), "bottom row of the box"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawBox_DoubleLine_UsesTheDoubleLineCharacters()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.DrawBox 0, 0, 4, 2, True
+        Expect.AreEqual ChrW$(&H2554) & String$(3, ChrW$(&H2550)) & ChrW$(&H2557), Rig.TextAt(Rig.OutHandle, 0, 0, 5), "top row of the box"
+        Expect.AreEqual ChrW$(&H2551), Rig.TextAt(Rig.OutHandle, 0, 1, 1), "left edge"
+        Expect.AreEqual ChrW$(&H255A) & String$(3, ChrW$(&H2550)) & ChrW$(&H255D), Rig.TextAt(Rig.OutHandle, 0, 2, 5), "bottom row of the box"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawBox_RightNotGreaterThanLeft_Raises5AfterWritingTheCorners()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        On Error Resume Next
+        c.DrawBox 4, 1, 4, 3
+        Expect.AreEqual 5, Err.Number, "Err.Number of DrawBox with right equal to left"
+        On Error GoTo 0
+        Expect.AreEqual ChrW$(&H2510), Rig.TextAt(Rig.OutHandle, 4, 1, 1), "the top corner written before the error"
+        Expect.AreEqual ChrW$(&H2518), Rig.TextAt(Rig.OutHandle, 4, 3, 1), "the bottom corner written before the error"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawProgressBar_DrawsTheBarAndThePercentage()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.DrawProgressBar 2, 1, 10, 25
+        Expect.AreEqual "[", Rig.TextAt(Rig.OutHandle, 2, 1, 1), "the left bracket"
+        Expect.AreEqual String$(2, ChrW$(&H2588)), Rig.TextAt(Rig.OutHandle, 3, 1, 2), "the filled blocks (25 percent of 10 cells, rounded half to even, is 2)"
+        Expect.AreEqual String$(8, ChrW$(&H2591)), Rig.TextAt(Rig.OutHandle, 5, 1, 8), "the empty blocks"
+        Expect.AreEqual "] 25%", Rig.TextAt(Rig.OutHandle, 13, 1, 5), "the closing bracket and the percentage"
+        Expect.AreEqual 10, Rig.AttrAt(Rig.OutHandle, 3, 1), "attribute of a filled block (Green on Black)"
+        Expect.AreEqual 8, Rig.AttrAt(Rig.OutHandle, 5, 1), "attribute of an empty block (DarkGray on Black)"
+        Expect.AreEqual 18, Rig.CursorCol(Rig.OutHandle), "column of the cursor after the text"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawProgressBar_UsesTheColoursGiven()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.DrawProgressBar 0, 0, 10, 50, ConsoleColor.Red, ConsoleColor.Blue
+        Expect.AreEqual 12, Rig.AttrAt(Rig.OutHandle, 1, 0), "attribute of a filled block"
+        Expect.AreEqual 9, Rig.AttrAt(Rig.OutHandle, 6, 0), "attribute of an empty block"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawProgressBar_PercentIsKeptBetween0And100()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.DrawProgressBar 0, 0, 4, 250
+        c.DrawProgressBar 0, 1, 4, -40
+        Expect.AreEqual "[" & String$(4, ChrW$(&H2588)) & "] 100%", Rig.TextAt(Rig.OutHandle, 0, 0, 11), "row 0 after a percent of 250"
+        Expect.AreEqual "[" & String$(4, ChrW$(&H2591)) & "] 0%", Rig.TextAt(Rig.OutHandle, 0, 1, 9), "row 1 after a percent of -40"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DrawProgressBar_NegativeWidth_Raises5()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        On Error Resume Next
+        c.DrawProgressBar 0, 0, -3, 50
+        Expect.AreEqual 5, Err.Number, "Err.Number of DrawProgressBar with a width of -3"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- layout helpers
+
+    [TestCase]
+    Public Sub CenterX_And_CenterY_CentreInTheWindow()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim expectedX As Long = (Rig.WindowWidth() - 10) \ 2
+        Dim expectedY As Long = (Rig.WindowHeight() - 4) \ 2
+        Expect.AreEqual expectedX, c.CenterX(10), "CenterX(10)"
+        Expect.AreEqual expectedY, c.CenterY(4), "CenterY(4)"
+        Expect.AreEqual 45, c.CenterX(10), "CenterX(10) in a window of 100 columns"
+        Expect.AreEqual 13, c.CenterY(4), "CenterY(4) in a window of 30 rows"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CenterX_WiderThanTheWindow_IsNegative()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Expect.AreEqual -5, c.CenterX(110), "CenterX(110) in a window of 100 columns"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PercentX_And_PercentY_ClampTheirArgumentTo0To100()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Expect.AreEqual 50, c.PercentX(50), "PercentX(50) in a window of 100 columns"
+        Expect.AreEqual 100, c.PercentX(150), "PercentX(150)"
+        Expect.AreEqual 0, c.PercentX(-20), "PercentX(-20)"
+        Expect.AreEqual 15, c.PercentY(50), "PercentY(50) in a window of 30 rows"
+        Expect.AreEqual 30, c.PercentY(150), "PercentY(150)"
+        Expect.AreEqual 0, c.PercentY(-20), "PercentY(-20)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PercentX_And_PercentY_RoundHalfToEven()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Expect.AreEqual 2, c.PercentX(2.5), "PercentX(2.5): 2.5 columns"
+        Expect.AreEqual 4, c.PercentX(3.5), "PercentX(3.5): 3.5 columns"
+        Expect.AreEqual 4, c.PercentY(15), "PercentY(15): 4.5 rows"
+        Expect.AreEqual 2, c.PercentY(5), "PercentY(5): 1.5 rows"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CenterRect_ReturnsARectangleOfTheSizeGivenInTheMiddleOfTheWindow()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim r As ConsoleRect
+        r = c.CenterRect(10, 4)
+        Expect.AreEqual 45, r.Left, "Left of CenterRect(10, 4)"
+        Expect.AreEqual 13, r.Top, "Top"
+        Expect.AreEqual 54, r.Right, "Right"
+        Expect.AreEqual 16, r.Bottom, "Bottom"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CenterRect_LargerThanTheWindow_HasNegativeLeftAndTop()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim r As ConsoleRect
+        r = c.CenterRect(110, 40)
+        Expect.AreEqual -5, r.Left, "Left of CenterRect(110, 40)"
+        Expect.AreEqual -5, r.Top, "Top of CenterRect(110, 40)"
+        Expect.AreEqual 104, r.Right, "Right"
+        Expect.AreEqual 34, r.Bottom, "Bottom"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/ReadTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/ReadTests.twin
new file mode 100644
index 00000000..67822f62
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/ReadTests.twin
@@ -0,0 +1,656 @@
+' TBMANLIB_ConsoleCore: what cConsole reads: keys, lines and passwords. The cases put the events in the
+' console's input buffer themselves (see Rig), so that no case waits for a person.
+[TestFixture]
+Module ReadTests
+
+    ' ---- ReadKey
+
+    [TestCase]
+    Public Sub ReadKey_ReturnsTheVirtualKeyCodeAndTheCharacter()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Rig.PushPress 65, 97
+        k = c.ReadKey(True)
+        Expect.AreEqual 65, k.KeyCode, "KeyCode of the A key"
+        Expect.AreEqual "a", k.KeyChar, "KeyChar of the A key"
+        Expect.IsFalse k.IsAltPressed, "IsAltPressed"
+        Expect.IsFalse k.IsCtrlPressed, "IsCtrlPressed"
+        Expect.IsFalse k.IsShiftPressed, "IsShiftPressed"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_ReportsTheLeftModifierKeys()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Rig.PushPress 65, 1, 2 + 8 + &H10&
+        k = c.ReadKey(True)
+        Expect.IsTrue k.IsAltPressed, "IsAltPressed with the left Alt flag"
+        Expect.IsTrue k.IsCtrlPressed, "IsCtrlPressed with the left Ctrl flag"
+        Expect.IsTrue k.IsShiftPressed, "IsShiftPressed with the Shift flag"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_ReportsTheRightModifierKeys()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Rig.PushPress 65, 1, 1 + 4
+        k = c.ReadKey(True)
+        Expect.IsTrue k.IsAltPressed, "IsAltPressed with the right Alt flag"
+        Expect.IsTrue k.IsCtrlPressed, "IsCtrlPressed with the right Ctrl flag"
+        Expect.IsFalse k.IsShiftPressed, "IsShiftPressed without the Shift flag"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_KeyWithoutACharacter_GivesTheCharacterWithCodeZero()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Rig.PushPress 38, 0
+        k = c.ReadKey(True)
+        Expect.AreEqual 38, k.KeyCode, "KeyCode of the Up Arrow key"
+        Expect.AreEqual 1, Len(k.KeyChar), "length of KeyChar of the Up Arrow key"
+        Expect.AreEqual 0, AscW(k.KeyChar), "code of KeyChar of the Up Arrow key"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_ShiftAlone_IsReturnedAsKeyCode16()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Rig.PushKey 16, 0, True, &H10&
+        k = c.ReadKey(True)
+        Expect.AreEqual 16, k.KeyCode, "KeyCode of a press of Shift"
+        Expect.IsTrue k.IsShiftPressed, "IsShiftPressed"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_IgnoresKeyReleasesAndOtherEvents()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Rig.PushMouse 1, 1, 0, 1
+        Rig.PushFocus
+        Rig.PushKey 65, 97, False
+        Rig.PushKey 66, 98, True
+        k = c.ReadKey(True)
+        Expect.AreEqual 66, k.KeyCode, "KeyCode returned after a mouse event, a focus event and a key release"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_RepeatCount_IsNotRead_OneResultForEachKeyDownEvent()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushKey 65, 97, True, 0, 3
+        Expect.AreEqual 65, c.ReadKey(True).KeyCode, "ReadKey for a key-down event with a repeat count of 3"
+        Expect.AreEqual 0, Rig.PendingEvents(), "events left in the queue: the event is used up by one ReadKey"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_InterceptFalse_WritesTheCharacterToTheConsole()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 65, 97
+        c.ReadKey
+        Expect.AreEqual "a", Rig.RowText(0), "row 0 after ReadKey with the default"
+        Expect.AreEqual 1, Rig.CursorCol(Rig.OutHandle), "column of the cursor"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_InterceptTrue_WritesNothing()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 65, 97
+        c.ReadKey True
+        Expect.AreEqual "", Rig.RowText(0), "row 0 after ReadKey(True)"
+        Expect.AreEqual 0, Rig.CursorCol(Rig.OutHandle), "column of the cursor"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_InterceptFalse_KeyWithoutACharacter_WritesTheCharacterWithCodeZero()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 38, 0
+        c.ReadKey
+        Expect.AreEqual 1, Rig.CursorCol(Rig.OutHandle), "column of the cursor after ReadKey of the Up Arrow key"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_PutsBackTheInputMode_AndLeavesTheReleaseInTheQueue()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim before As Long = Rig.InMode()
+        Rig.PushPress 65, 97
+        c.ReadKey True
+        Expect.AreEqual before, Rig.InMode(), "input mode after ReadKey"
+        Expect.AreEqual 1, Rig.PendingEvents(), "events left in the queue after ReadKey (the key release)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- KeyAvailable, PeekEvent, FlushInput
+
+    [TestCase]
+    Public Sub KeyAvailable_EmptyQueue_IsFalse()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Expect.IsFalse c.KeyAvailable(), "KeyAvailable with an empty queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub KeyAvailable_KeyPress_IsTrue()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushKey 65, 97, True
+        Expect.IsTrue c.KeyAvailable(), "KeyAvailable with a key press in the queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub KeyAvailable_KeyReleaseOnly_IsFalse()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushKey 65, 97, False
+        Expect.IsFalse c.KeyAvailable(), "KeyAvailable with only a key release in the queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub KeyAvailable_AfterReadKey_IsFalse()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 65, 97
+        c.ReadKey True
+        Expect.IsFalse c.KeyAvailable(), "KeyAvailable after ReadKey, with the key release still in the queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub KeyAvailable_MouseEventOnly_IsFalse()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushMouse 3, 2, 0, 1
+        Expect.IsFalse c.KeyAvailable(), "KeyAvailable with only a mouse event in the queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub KeyAvailable_FocusEventOnly_IsFalse()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushFocus
+        Expect.IsFalse c.KeyAvailable(), "KeyAvailable with only a focus event in the queue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PeekEvent_KeyPress_ReturnsTheKeyWithoutRemovingIt()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Rig.PushKey 65, 97, True, &H10&
+        k = c.PeekEvent()
+        Expect.AreEqual 65, k.KeyCode, "KeyCode of PeekEvent"
+        Expect.AreEqual "a", k.KeyChar, "KeyChar of PeekEvent"
+        Expect.IsTrue k.IsShiftPressed, "IsShiftPressed of PeekEvent"
+        Expect.AreEqual 1, Rig.PendingEvents(), "events in the queue after PeekEvent"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PeekEvent_FirstEventIsNotAKeyPress_ReturnsTheEmptyStructure()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Expect.AreEqual 0, c.PeekEvent().KeyCode, "KeyCode of PeekEvent with an empty queue"
+        Rig.PushKey 65, 97, False
+        Rig.PushKey 66, 98, True
+        k = c.PeekEvent()
+        Expect.AreEqual 0, k.KeyCode, "KeyCode of PeekEvent when a key release comes first"
+        Expect.AreEqual "", k.KeyChar, "KeyChar of PeekEvent when a key release comes first"
+        Rig.Flush
+        Rig.PushMouse 1, 1, 0, 1
+        Rig.PushKey 66, 98, True
+        Expect.AreEqual 0, c.PeekEvent().KeyCode, "KeyCode of PeekEvent when a mouse event comes first"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FlushInput_DiscardsEveryEvent()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 65, 97
+        Rig.PushMouse 1, 1, 0, 1
+        Rig.PushSize 100, 30
+        Rig.PushFocus
+        Expect.IsTrue Rig.PendingEvents() >= 5, "events in the queue before FlushInput"
+        c.FlushInput
+        Expect.AreEqual 0, Rig.PendingEvents(), "events in the queue after FlushInput"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKeyTimeout_NothingPressed_ReturnsTheEmptyStructureWhenTheTimeIsOver()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Dim t As Single = Timer
+        k = c.ReadKeyTimeout(200)
+        Expect.AreEqual 0, k.KeyCode, "KeyCode of ReadKeyTimeout(200) with nothing pressed"
+        Expect.AreEqual "", k.KeyChar, "KeyChar of ReadKeyTimeout(200) with nothing pressed"
+        Expect.IsTrue Timer - t >= 0.15, "ReadKeyTimeout(200) waited about 200 ms (waited " & Format$((Timer - t) * 1000, "0") & " ms)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKeyTimeout_KeyPressed_ReturnsItAtOnce()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Dim t As Single = Timer
+        Rig.PushPress 66, 98
+        k = c.ReadKeyTimeout(5000, True)
+        Expect.AreEqual 66, k.KeyCode, "KeyCode of ReadKeyTimeout with a key in the queue"
+        Expect.IsTrue Timer - t < 2, "ReadKeyTimeout(5000) with a key in the queue returned at once"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsKeyPressed_KeyNotDown_IsFalse()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Expect.IsFalse c.IsKeyPressed(7), "IsKeyPressed for a virtual-key code that no key has"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- ReadLine
+
+    [TestCase]
+    Public Sub ReadLine_ReturnsTheLineWithoutTheLineBreak()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushText "abc"
+        Rig.PushPress 13, 13
+        Expect.AreEqual "abc", c.ReadLine(), "ReadLine after ""abc"" and Enter"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadLine_Prompt_IsWrittenBeforeTheConsoleReads()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushText "abc"
+        Rig.PushPress 13, 13
+        c.ReadLine "Name: "
+        Expect.AreEqual "Name: ", Left$(Rig.RowText(0) & "      ", 6), "start of row 0 after ReadLine(""Name: "")"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadLine_OnlyEnter_ReturnsAnEmptyString()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 13, 13
+        Expect.AreEqual "", c.ReadLine(), "ReadLine after Enter alone"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadLine_ReadsAtMostTheCharactersOfTheReadBuffer()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As cConsole = New cConsole(3)
+        Rig.PushText "abcdef"
+        Rig.PushPress 13, 13
+        Expect.AreEqual "abc", c.ReadLine(), "first ReadLine with a read buffer of 3 characters"
+        Expect.AreEqual "def", c.ReadLine(), "second ReadLine"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- ReadPassword
+
+    [TestCase]
+    Public Sub ReadPassword_ReturnsTheTextAndShowsOneMaskCharacterForEachKey()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim s As String
+        Rig.PushText "abc"
+        Rig.PushPress 13, 13
+        s = c.ReadPassword("Password: ")
+        Expect.AreEqual "abc", s, "ReadPassword after ""abc"" and Enter"
+        Expect.AreEqual "Password: ***", Rig.RowText(0), "row 0 after ReadPassword"
+        Expect.AreEqual 1, Rig.CursorRow(Rig.OutHandle), "row of the cursor: Enter writes a line break"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadPassword_MaskCharacterIsTheOneGiven_AndEmptyShowsNothing()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushText "ab"
+        Rig.PushPress 13, 13
+        c.ReadPassword "", "#"
+        Expect.AreEqual "##", Rig.RowText(0), "row 0 with a mask character of ""#"""
+        Rig.PushText "ab"
+        Rig.PushPress 13, 13
+        c.ReadPassword "> ", ""
+        Expect.AreEqual ">", Rig.RowText(1), "row 1 with an empty mask character"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadPassword_Backspace_RemovesTheLastCharacterAndErasesOneCell()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim s As String
+        Rig.PushText "ab"
+        Rig.PushPress 8, 8
+        Rig.PushText "c"
+        Rig.PushPress 13, 13
+        s = c.ReadPassword()
+        Expect.AreEqual "ac", s, "ReadPassword after ""ab"", Backspace, ""c"" and Enter"
+        Expect.AreEqual "**", Rig.RowText(0), "row 0: the erased cell shows the mask of the next key"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadPassword_BackspaceWithNothingTyped_DoesNothing()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim s As String
+        Rig.PushPress 8, 8
+        Rig.PushText "a"
+        Rig.PushPress 13, 13
+        s = c.ReadPassword()
+        Expect.AreEqual "a", s, "ReadPassword after Backspace, ""a"" and Enter"
+        Expect.AreEqual "*", Rig.RowText(0), "row 0"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadPassword_BackspaceWithALongMask_ErasesOnlyOneCell()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim s As String
+        Rig.PushText "ab"
+        Rig.PushPress 8, 8
+        Rig.PushPress 13, 13
+        s = c.ReadPassword("", "##")
+        Expect.AreEqual "a", s, "ReadPassword after ""ab"", Backspace and Enter"
+        Expect.AreEqual "###", Rig.RowText(0), "row 0: two cells of the second mask are left"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadPassword_Escape_ReturnsAnEmptyString()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim s As String
+        Rig.PushText "abc"
+        Rig.PushPress 27, 27
+        s = c.ReadPassword()
+        Expect.AreEqual "", s, "ReadPassword after ""abc"" and Escape"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadPassword_TabAndKeysWithoutACharacter_AreIgnored()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim s As String
+        Rig.PushText "a"
+        Rig.PushPress 9, 9
+        Rig.PushPress 38, 0
+        Rig.PushText "b"
+        Rig.PushPress 13, 13
+        s = c.ReadPassword()
+        Expect.AreEqual "ab", s, "ReadPassword after ""a"", Tab, Up Arrow, ""b"" and Enter"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- the key codes that ReadKey returns
+
+    [TestCase]
+    Public Sub ReadKey_EnterEscapeSpaceBackspaceTab_EqualTheConsoleKeyMembers()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 13, 13
+        Expect.AreEqual CLng(ConsoleKey.KeyEnter), c.ReadKey(True).KeyCode, "KeyCode of Enter against ConsoleKey.KeyEnter"
+        Rig.PushPress 27, 27
+        Expect.AreEqual CLng(ConsoleKey.KeyEscape), c.ReadKey(True).KeyCode, "KeyCode of Escape against ConsoleKey.KeyEscape"
+        Rig.PushPress 32, 32
+        Expect.AreEqual CLng(ConsoleKey.KeySpace), c.ReadKey(True).KeyCode, "KeyCode of Space against ConsoleKey.KeySpace"
+        Rig.PushPress 8, 8
+        Expect.AreEqual CLng(ConsoleKey.KeyBackspace), c.ReadKey(True).KeyCode, "KeyCode of Backspace against ConsoleKey.KeyBackspace"
+        Rig.PushPress 9, 9
+        Expect.AreEqual CLng(ConsoleKey.KeyTab), c.ReadKey(True).KeyCode, "KeyCode of Tab against ConsoleKey.KeyTab"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_ArrowKeys_EqualTheConsoleKeyMembers()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 38, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyUp), c.ReadKey(True).KeyCode, "KeyCode of the Up Arrow key against ConsoleKey.KeyUp"
+        Rig.PushPress 40, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyDown), c.ReadKey(True).KeyCode, "KeyCode of the Down Arrow key against ConsoleKey.KeyDown"
+        Rig.PushPress 37, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyLeft), c.ReadKey(True).KeyCode, "KeyCode of the Left Arrow key against ConsoleKey.KeyLeft"
+        Rig.PushPress 39, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyRight), c.ReadKey(True).KeyCode, "KeyCode of the Right Arrow key against ConsoleKey.KeyRight"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_NavigationKeys_EqualTheConsoleKeyMembers()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 36, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyHome), c.ReadKey(True).KeyCode, "KeyCode of the Home key against ConsoleKey.KeyHome"
+        Rig.PushPress 35, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyEnd), c.ReadKey(True).KeyCode, "KeyCode of the End key against ConsoleKey.KeyEnd"
+        Rig.PushPress 33, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyPageUp), c.ReadKey(True).KeyCode, "KeyCode of the Page Up key against ConsoleKey.KeyPageUp"
+        Rig.PushPress 34, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyPageDown), c.ReadKey(True).KeyCode, "KeyCode of the Page Down key against ConsoleKey.KeyPageDown"
+        Rig.PushPress 45, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyInsert), c.ReadKey(True).KeyCode, "KeyCode of the Insert key against ConsoleKey.KeyInsert"
+        Rig.PushPress 46, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyDelete), c.ReadKey(True).KeyCode, "KeyCode of the Delete key against ConsoleKey.KeyDelete"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_FunctionKeys_EqualTheConsoleKeyMembers()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushPress 112, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyF1), c.ReadKey(True).KeyCode, "KeyCode of F1 against ConsoleKey.KeyF1"
+        Rig.PushPress 121, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyF10), c.ReadKey(True).KeyCode, "KeyCode of F10 against ConsoleKey.KeyF10"
+        Rig.PushPress 122, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyF11), c.ReadKey(True).KeyCode, "KeyCode of F11 against ConsoleKey.KeyF11"
+        Rig.PushPress 123, 0
+        Expect.AreEqual CLng(ConsoleKey.KeyF12), c.ReadKey(True).KeyCode, "KeyCode of F12 against ConsoleKey.KeyF12"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKey_LetterH_IsNotTheKeyCodeOfConsoleKeyKeyUp()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim k As ConsoleKeyInfo
+        Rig.PushPress 72, 104
+        k = c.ReadKey(True)
+        Expect.IsFalse k.KeyCode = ConsoleKey.KeyUp, "KeyCode of the H key (" & k.KeyCode & ") equals ConsoleKey.KeyUp"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- ReadKey, ReadPassword and ReadKeyTimeout that never return
+
+    [TestCase]
+    Public Sub ReadKey_WithoutConsoleInput_Returns()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoInput
+        Dim c As New cConsole
+        c.ReadKey True
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadPassword_WithoutConsoleInput_Returns()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoInput
+        Dim c As New cConsole
+        c.ReadPassword
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadKeyTimeout_OnlyAKeyReleaseInTheQueue_ReturnsWhenTheTimeIsOver()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PushKey 65, 97, False
+        c.ReadKeyTimeout 200, True
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/Rig.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/Rig.twin
new file mode 100644
index 00000000..4fd41aa1
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/Rig.twin
@@ -0,0 +1,363 @@
+' TBMANLIB_ConsoleCore: the console the cases work on.
+'
+' A case that needs a console calls Rig.Acquire. It gives the process a screen buffer of its own as
+' the standard output and error handles, and the console's input buffer as the standard input
+' handle, which is what a cConsole made afterwards works on. The screen buffer is not the one the
+' console shows, unless a case calls Rig.MakeActive. Rig.Release puts the handles, the input mode,
+' the code pages and the shown screen buffer back. A case sets its cConsole to Nothing before it
+' calls Rig.Release.
+Module Rig
+
+    Private Declare PtrSafe Function K_CreateFileW Lib "kernel32" Alias "CreateFileW" (ByVal lpFileName As LongPtr, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As LongPtr, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As LongPtr) As LongPtr
+    Private Declare PtrSafe Function K_CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As LongPtr) As Long
+    Private Declare PtrSafe Function K_WriteConsoleInputW Lib "kernel32" Alias "WriteConsoleInputW" (ByVal hConsoleInput As LongPtr, ByVal lpBuffer As LongPtr, ByVal nLength As Long, ByRef lpNumberOfEventsWritten As Long) As Long
+    Private Declare PtrSafe Function K_ReadConsoleOutputCharacterW Lib "kernel32" Alias "ReadConsoleOutputCharacterW" (ByVal hConsoleOutput As LongPtr, ByVal lpCharacter As LongPtr, ByVal nLength As Long, ByVal dwReadCoord As Long, ByRef lpNumberOfCharsRead As Long) As Long
+    Private Declare PtrSafe Function K_ReadConsoleOutputAttribute Lib "kernel32" Alias "ReadConsoleOutputAttribute" (ByVal hConsoleOutput As LongPtr, ByVal lpAttribute As LongPtr, ByVal nLength As Long, ByVal dwReadCoord As Long, ByRef lpNumberOfAttrsRead As Long) As Long
+    Private Declare PtrSafe Function K_WriteConsoleOutputCharacterW Lib "kernel32" Alias "WriteConsoleOutputCharacterW" (ByVal hConsoleOutput As LongPtr, ByVal lpCharacter As LongPtr, ByVal nLength As Long, ByVal dwWriteCoord As Long, ByRef lpNumberOfCharsWritten As Long) As Long
+    Private Declare PtrSafe Sub K_Copy Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+
+    Private mOldIn As LongPtr
+    Private mOldOut As LongPtr
+    Private mOldErr As LongPtr
+    Private mOutH As LongPtr
+    Private mInH As LongPtr
+    Private mErrH As LongPtr
+    Private mInMode As Long
+    Private mInCP As Long
+    Private mOutCP As Long
+    Private mOpen As Boolean
+    Private mShown As LongPtr
+    Private mFile As LongPtr
+
+    ' Gives the process a console to work on. Returns False when it cannot.
+    Public Function Acquire() As Boolean
+        If mOpen Then Release
+        mOldIn = mConsoleAPI.GetStdHandle(-10)
+        mOldOut = mConsoleAPI.GetStdHandle(-11)
+        mOldErr = mConsoleAPI.GetStdHandle(-12)
+        mOutH = mConsoleAPI.CreateConsoleScreenBuffer(&HC0000000, 3, 0, 1, 0)
+        ' GENERIC_READ Or GENERIC_WRITE, shared, a text-mode buffer
+        mErrH = mConsoleAPI.CreateConsoleScreenBuffer(&HC0000000, 3, 0, 1, 0)
+        Dim name As String
+        name = "CONIN$"
+        mInH = K_CreateFileW(StrPtr(name), &HC0000000, 3, 0, 3, 0, 0)
+        If mOutH = 0 Or mOutH = -1 Or mInH = 0 Or mInH = -1 Or mErrH = 0 Or mErrH = -1 Then
+            CloseAll
+            Exit Function
+        End If
+        ' A window of 100 columns by 30 rows, whatever the console had.
+        Dim wr As mConsoleAPI.SMALL_RECT
+        wr.Left = 0
+        wr.Top = 0
+        wr.Right = 99
+        wr.Bottom = 29
+        mConsoleAPI.SetConsoleWindowInfo mOutH, 1, wr
+        mConsoleAPI.SetConsoleScreenBufferSize mOutH, mConsoleAPI.MakeCOORD(100, 30)
+        mConsoleAPI.GetConsoleMode mInH, mInMode
+        mInCP = mConsoleAPI.GetConsoleCP()
+        mOutCP = mConsoleAPI.GetConsoleOutputCP()
+        mConsoleAPI.SetConsoleMode mInH, &H1F7
+        ' processed, line and echo input, with the flags a console starts with
+        mConsoleAPI.SetStdHandle -10, mInH
+        mConsoleAPI.SetStdHandle -11, mOutH
+        mConsoleAPI.SetStdHandle -12, mErrH
+        mConsoleAPI.FlushConsoleInputBuffer mInH
+        mOpen = True
+        Acquire = True
+    End Function
+
+    ' Makes the screen buffer of Acquire the one the console shows. Release puts the other back.
+    Public Sub MakeActive()
+        If Not mOpen Then Exit Sub
+        If mShown <> 0 Then Exit Sub
+        Dim name As String
+        name = "CONOUT$"
+        mShown = K_CreateFileW(StrPtr(name), &HC0000000, 3, 0, 3, 0, 0)
+        mConsoleAPI.SetConsoleActiveScreenBuffer mOutH
+    End Sub
+
+    ' Takes the standard input handle away, as in a program that has no console input.
+    Public Sub NoInput()
+        mConsoleAPI.SetStdHandle -10, 0
+    End Sub
+
+    ' Takes all three standard handles away, as in a program that has no console.
+    Public Sub NoHandles()
+        mConsoleAPI.SetStdHandle -10, 0
+        mConsoleAPI.SetStdHandle -11, 0
+        mConsoleAPI.SetStdHandle -12, 0
+    End Sub
+
+    ' Sends the standard output and error handles to a file, as in a program whose output is
+    ' redirected. The file is created empty.
+    Public Sub Redirect(ByVal Path As String)
+        If mFile <> 0 Then K_CloseHandle mFile
+        mFile = K_CreateFileW(StrPtr(Path), &H40000000, 3, 0, 2, 0, 0)
+        mConsoleAPI.SetStdHandle -11, mFile
+        mConsoleAPI.SetStdHandle -12, mFile
+    End Sub
+
+    ' Closes the file of Redirect, so that it can be read and removed.
+    Public Sub EndRedirect()
+        If mFile <> 0 Then K_CloseHandle mFile
+        mFile = 0
+    End Sub
+
+    Public Function InMode() As Long
+        Dim m As Long
+        mConsoleAPI.GetConsoleMode mInH, m
+        InMode = m
+    End Function
+
+    Public Sub SetInMode(ByVal Mode As Long)
+        mConsoleAPI.SetConsoleMode mInH, Mode
+    End Sub
+
+    Public Function OutMode() As Long
+        Dim m As Long
+        mConsoleAPI.GetConsoleMode mOutH, m
+        OutMode = m
+    End Function
+
+    Public Sub SetOutMode(ByVal Mode As Long)
+        mConsoleAPI.SetConsoleMode mOutH, Mode
+    End Sub
+
+    ' The width and height of the window of the screen buffer of Acquire.
+    Public Function WindowWidth() As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo mOutH, csbi
+        WindowWidth = csbi.srWindow.Right - csbi.srWindow.Left + 1
+    End Function
+
+    Public Function WindowHeight() As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo mOutH, csbi
+        WindowHeight = csbi.srWindow.Bottom - csbi.srWindow.Top + 1
+    End Function
+
+    Public Function BufferWidth() As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo mOutH, csbi
+        BufferWidth = csbi.dwSize.X
+    End Function
+
+    Public Function BufferHeight() As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo mOutH, csbi
+        BufferHeight = csbi.dwSize.Y
+    End Function
+
+    ' Moves the window of the screen buffer of Acquire so that its top row is Row.
+    Public Sub ScrollWindowTo(ByVal Row As Long)
+        Dim r As mConsoleAPI.SMALL_RECT
+        r.Left = 0
+        r.Top = CInt(Row)
+        r.Right = CInt(WindowWidth() - 1)
+        r.Bottom = CInt(Row + WindowHeight() - 1)
+        mConsoleAPI.SetConsoleWindowInfo mOutH, 1, r
+    End Sub
+
+    ' The text of a whole row of the screen buffer of Acquire, without the blanks at its end.
+    Public Function RowText(ByVal Row As Long) As String
+        RowText = RTrim$(TextAt(mOutH, 0, Row, BufferWidth()))
+    End Function
+
+    ' Puts back what Acquire changed.
+    Public Sub Release()
+        If Not mOpen Then Exit Sub
+        EndRedirect
+        If mShown <> 0 Then
+            mConsoleAPI.SetConsoleActiveScreenBuffer mShown
+            K_CloseHandle mShown
+            mShown = 0
+        End If
+        mConsoleAPI.SetStdHandle -10, mOldIn
+        mConsoleAPI.SetStdHandle -11, mOldOut
+        mConsoleAPI.SetStdHandle -12, mOldErr
+        mConsoleAPI.SetConsoleMode mInH, mInMode
+        mConsoleAPI.SetConsoleCP mInCP
+        mConsoleAPI.SetConsoleOutputCP mOutCP
+        mConsoleAPI.FlushConsoleInputBuffer mInH
+        CloseAll
+        mOpen = False
+    End Sub
+
+    Private Sub CloseAll()
+        If mOutH <> 0 And mOutH <> -1 Then K_CloseHandle mOutH
+        If mErrH <> 0 And mErrH <> -1 Then K_CloseHandle mErrH
+        If mInH <> 0 And mInH <> -1 Then K_CloseHandle mInH
+        mOutH = 0
+        mErrH = 0
+        mInH = 0
+    End Sub
+
+    Public Property Get OutHandle() As LongPtr
+        OutHandle = mOutH
+    End Property
+
+    Public Property Get ErrHandle() As LongPtr
+        ErrHandle = mErrH
+    End Property
+
+    Public Property Get InHandle() As LongPtr
+        InHandle = mInH
+    End Property
+
+    ' The path of a file in the folder the cases may use, which is created when it is missing.
+    Public Function TempPath(ByVal Name As String) As String
+        Dim d As String
+        d = Environ$("TEMP") & "\tbdocs-package-tests"
+        If Len(Dir$(d, vbDirectory)) = 0 Then MkDir d
+        d = d & "\TBMANLIB_ConsoleCore"
+        If Len(Dir$(d, vbDirectory)) = 0 Then MkDir d
+        TempPath = d & "\" & Name
+    End Function
+
+    ' Removes the files of the folder the cases use, and the folder.
+    Public Sub RemoveTemp()
+        Dim d As String
+        Dim f As String
+        d = Environ$("TEMP") & "\tbdocs-package-tests\TBMANLIB_ConsoleCore"
+        On Error Resume Next
+        f = Dir$(d & "\*.*")
+        Do While Len(f) > 0
+            Kill d & "\" & f
+            f = Dir$()
+        Loop
+        RmDir d
+    End Sub
+
+    ' Copies Count bytes from one address to another.
+    Public Sub ReadMemory(ByVal Source As LongPtr, ByVal Dest As LongPtr, ByVal Count As Long)
+        K_Copy Dest, Source, Count
+    End Sub
+
+    ' ---- the screen buffer
+
+    ' The text of n cells from a position of a screen buffer.
+    Public Function TextAt(ByVal h As LongPtr, ByVal Col As Long, ByVal Row As Long, ByVal n As Long) As String
+        Dim s As String
+        Dim got As Long
+        s = String$(n, " ")
+        K_ReadConsoleOutputCharacterW h, StrPtr(s), n, mConsoleAPI.MakeCOORD(CInt(Col), CInt(Row)), got
+        TextAt = Left$(s, got)
+    End Function
+
+    ' The attribute of one cell.
+    Public Function AttrAt(ByVal h As LongPtr, ByVal Col As Long, ByVal Row As Long) As Long
+        Dim a As Integer
+        Dim got As Long
+        K_ReadConsoleOutputAttribute h, VarPtr(a), 1, mConsoleAPI.MakeCOORD(CInt(Col), CInt(Row)), got
+        AttrAt = a And &HFFFF&
+    End Function
+
+    ' Writes text into the cells of a screen buffer, without moving the cursor.
+    Public Sub PutText(ByVal h As LongPtr, ByVal Col As Long, ByVal Row As Long, ByVal Text As String)
+        Dim got As Long
+        K_WriteConsoleOutputCharacterW h, StrPtr(Text), Len(Text), mConsoleAPI.MakeCOORD(CInt(Col), CInt(Row)), got
+    End Sub
+
+    Public Function CursorCol(ByVal h As LongPtr) As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo h, csbi
+        CursorCol = csbi.dwCursorPosition.X
+    End Function
+
+    Public Function CursorRow(ByVal h As LongPtr) As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo h, csbi
+        CursorRow = csbi.dwCursorPosition.Y
+    End Function
+
+    ' The current text attribute of a screen buffer.
+    Public Function CurrentAttr(ByVal h As LongPtr) As Long
+        Dim csbi As mConsoleAPI.CONSOLE_SCREEN_BUFFER_INFO
+        mConsoleAPI.GetConsoleScreenBufferInfo h, csbi
+        CurrentAttr = csbi.wAttributes And &HFFFF&
+    End Function
+
+    ' Sets the text attribute that the next write uses.
+    Public Sub SetAttr(ByVal h As LongPtr, ByVal Attr As Long)
+        mConsoleAPI.SetConsoleTextAttribute h, CInt(Attr)
+    End Sub
+
+    ' ---- the input buffer
+
+    Public Function PendingEvents() As Long
+        Dim n As Long
+        mConsoleAPI.GetNumberOfConsoleInputEvents mInH, n
+        PendingEvents = n
+    End Function
+
+    Public Sub Flush()
+        mConsoleAPI.FlushConsoleInputBuffer mInH
+    End Sub
+
+    ' Puts a key event in the input buffer.
+    Public Sub PushKey(ByVal VirtualKey As Long, ByVal Ch As Long, ByVal KeyDown As Boolean, Optional ByVal ControlState As Long = 0, Optional ByVal RepeatCount As Long = 1)
+        Dim ir As mConsoleAPI.INPUT_RECORD
+        Dim k As mConsoleAPI.KEY_EVENT_RECORD
+        Dim n As Long
+        k.bKeyDown = IIf(KeyDown, 1, 0)
+        k.wRepeatCount = CInt(RepeatCount)
+        k.wVirtualKeyCode = CInt(VirtualKey)
+        k.wVirtualScanCode = 0
+        k.UnicodeChar = CInt(Ch)
+        k.dwControlKeyState = ControlState
+        ir.EventType = 1
+        K_Copy VarPtr(ir.Event(0)), VarPtr(k), 16
+        K_WriteConsoleInputW mInH, VarPtr(ir), 1, n
+    End Sub
+
+    ' A key press: the key down, and then the key up.
+    Public Sub PushPress(ByVal VirtualKey As Long, ByVal Ch As Long, Optional ByVal ControlState As Long = 0)
+        PushKey VirtualKey, Ch, True, ControlState
+        PushKey VirtualKey, Ch, False, ControlState
+    End Sub
+
+    ' Types text: a press of each character.
+    Public Sub PushText(ByVal Text As String)
+        Dim i As Long
+        For i = 1 To Len(Text)
+            PushPress Asc(UCase$(Mid$(Text, i, 1))), AscW(Mid$(Text, i, 1))
+        Next
+    End Sub
+
+    ' Puts a mouse event in the input buffer.
+    Public Sub PushMouse(ByVal Col As Long, ByVal Row As Long, ByVal Buttons As Long, ByVal Flags As Long)
+        Dim ir As mConsoleAPI.INPUT_RECORD
+        Dim m As mConsoleAPI.MOUSE_EVENT_RECORD
+        Dim n As Long
+        m.dwMousePosition.X = CInt(Col)
+        m.dwMousePosition.Y = CInt(Row)
+        m.dwButtonState = Buttons
+        m.dwControlKeyState = 0
+        m.dwEventFlags = Flags
+        ir.EventType = 2
+        K_Copy VarPtr(ir.Event(0)), VarPtr(m), 16
+        K_WriteConsoleInputW mInH, VarPtr(ir), 1, n
+    End Sub
+
+    ' Puts a window-size event in the input buffer.
+    Public Sub PushSize(ByVal Cols As Long, ByVal Rows As Long)
+        Dim ir As mConsoleAPI.INPUT_RECORD
+        Dim w As mConsoleAPI.WINDOW_BUFFER_SIZE_RECORD
+        Dim n As Long
+        w.dwSize.X = CInt(Cols)
+        w.dwSize.Y = CInt(Rows)
+        ir.EventType = 4
+        K_Copy VarPtr(ir.Event(0)), VarPtr(w), 4
+        K_WriteConsoleInputW mInH, VarPtr(ir), 1, n
+    End Sub
+
+    ' Puts a focus event in the input buffer.
+    Public Sub PushFocus()
+        Dim ir As mConsoleAPI.INPUT_RECORD
+        Dim n As Long
+        ir.EventType = &H10
+        ir.Event(0) = 1
+        K_WriteConsoleInputW mInH, VarPtr(ir), 1, n
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/RunAll.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/RunAll.twin
new file mode 100644
index 00000000..5835222b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/RunAll.twin
@@ -0,0 +1,1169 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB_ConsoleCore, version 1.0.0.1. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB_ConsoleCore 1.0.0.1: 291 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        BufferTests.New_HoldsSpacesInGrayOnBlack_AndIsAllDirty
+        Expect.EndCase "BufferTests.New_HoldsSpacesInGrayOnBlack_AndIsAllDirty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.SetChar_StoresTheFirstCharacterAndTheColours
+        Expect.EndCase "BufferTests.SetChar_StoresTheFirstCharacterAndTheColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.SetChar_DefaultColoursAreGrayOnBlack_NotTheColoursOfTheConsole
+        Expect.EndCase "BufferTests.SetChar_DefaultColoursAreGrayOnBlack_NotTheColoursOfTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.SetChar_OutsideTheGridIsIgnoredAndNothingIsMarked
+        Expect.EndCase "BufferTests.SetChar_OutsideTheGridIsIgnoredAndNothingIsMarked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.SetChar_EmptyString_Raises5
+        Expect.EndCase "BufferTests.SetChar_EmptyString_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.GetChar_OutsideTheGridReturnsTheEmptyStructure
+        Expect.EndCase "BufferTests.GetChar_OutsideTheGridReturnsTheEmptyStructure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.GetChar_StyleIsAlwaysNone
+        Expect.EndCase "BufferTests.GetChar_StyleIsAlwaysNone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.BufferPtr_IsTheAddressOfTheFirstCellAndCellsAreFourBytes
+        Expect.EndCase "BufferTests.BufferPtr_IsTheAddressOfTheFirstCellAndCellsAreFourBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteAt_WritesTextAndColoursIntoARow
+        Expect.EndCase "BufferTests.WriteAt_WritesTextAndColoursIntoARow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteAt_CharactersBeyondTheLastColumnAreDropped_TheTextDoesNotWrap
+        Expect.EndCase "BufferTests.WriteAt_CharactersBeyondTheLastColumnAreDropped_TheTextDoesNotWrap", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteAt_CharactersLeftOfColumnZeroAreSkipped
+        Expect.EndCase "BufferTests.WriteAt_CharactersLeftOfColumnZeroAreSkipped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteAt_RowOutsideTheGridWritesNothing
+        Expect.EndCase "BufferTests.WriteAt_RowOutsideTheGridWritesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteAt_ControlCharactersAreStoredAsOrdinaryCharacters
+        Expect.EndCase "BufferTests.WriteAt_ControlCharactersAreStoredAsOrdinaryCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteAt_CharacterOutsideTheBasicMultilingualPlane_TakesTwoCells
+        Expect.EndCase "BufferTests.WriteAt_CharacterOutsideTheBasicMultilingualPlane_TakesTwoCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.FillRect_FillsTheRectangleOnly
+        Expect.EndCase "BufferTests.FillRect_FillsTheRectangleOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.FillRect_IsCutToTheGrid
+        Expect.EndCase "BufferTests.FillRect_IsCutToTheGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.FillRect_LeftGreaterThanRight_ChangesNoCell
+        Expect.EndCase "BufferTests.FillRect_LeftGreaterThanRight_ChangesNoCell", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.FillRect_DefaultIsASpaceInGrayOnBlack
+        Expect.EndCase "BufferTests.FillRect_DefaultIsASpaceInGrayOnBlack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.FillRect_EmptyCharacter_Raises5
+        Expect.EndCase "BufferTests.FillRect_EmptyCharacter_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DrawBox_SingleLine_DrawsTheOutlineOnly
+        Expect.EndCase "BufferTests.DrawBox_SingleLine_DrawsTheOutlineOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DrawBox_DoubleLine_UsesTheDoubleLineCharacters
+        Expect.EndCase "BufferTests.DrawBox_DoubleLine_UsesTheDoubleLineCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DrawBox_PartsOutsideTheGridAreLeftOut
+        Expect.EndCase "BufferTests.DrawBox_PartsOutsideTheGridAreLeftOut", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DrawBox_OneCellWideBox_RaisesNoError
+        Expect.EndCase "BufferTests.DrawBox_OneCellWideBox_RaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DrawHLine_DrawsHorizontalLineCharacters
+        Expect.EndCase "BufferTests.DrawHLine_DrawsHorizontalLineCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DrawVLine_DrawsVerticalLineCharactersGoingDown
+        Expect.EndCase "BufferTests.DrawVLine_DrawsVerticalLineCharactersGoingDown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.Clear_FillsEveryCellWithTheGivenCharacterAndColours
+        Expect.EndCase "BufferTests.Clear_FillsEveryCellWithTheGivenCharacterAndColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.Clear_EmptyFillCharacter_Raises5
+        Expect.EndCase "BufferTests.Clear_EmptyFillCharacter_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.Clear_MarksTheWholeGridDirty_AlsoDuringABatch
+        Expect.EndCase "BufferTests.Clear_MarksTheWholeGridDirty_AlsoDuringABatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.Resize_GivesANewSizeAndLosesTheContents
+        Expect.EndCase "BufferTests.Resize_GivesANewSizeAndLosesTheContents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.ClearDirty_EmptiesTheRectangleToItsEmptyForm
+        Expect.EndCase "BufferTests.ClearDirty_EmptiesTheRectangleToItsEmptyForm", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DirtyRect_GrowsToHoldEveryCellChanged
+        Expect.EndCase "BufferTests.DirtyRect_GrowsToHoldEveryCellChanged", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DirtyRect_WriteAt_HoldsTheFirstAndLastColumnOfTheText
+        Expect.EndCase "BufferTests.DirtyRect_WriteAt_HoldsTheFirstAndLastColumnOfTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DirtyRect_FillRect_HoldsTheCutRectangle
+        Expect.EndCase "BufferTests.DirtyRect_FillRect_HoldsTheCutRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DirtyRect_DrawBoxAndLines_GrowThroughSetChar
+        Expect.EndCase "BufferTests.DirtyRect_DrawBoxAndLines_GrowThroughSetChar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.DirtyRect_WriteAtWithEmptyText_StillGrowsTheRectangle
+        Expect.EndCase "BufferTests.DirtyRect_WriteAtWithEmptyText_StillGrowsTheRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.Batch_DoesNotGrowTheDirtyRectangle_AndEndMarksTheWholeGrid
+        Expect.EndCase "BufferTests.Batch_DoesNotGrowTheDirtyRectangle_AndEndMarksTheWholeGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.Batch_Nested_MarksTheGridWhenTheOutermostEnds
+        Expect.EndCase "BufferTests.Batch_Nested_MarksTheGridWhenTheOutermostEnds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.EndBatchUpdate_WithoutABegin_DoesNothing
+        Expect.EndCase "BufferTests.EndBatchUpdate_WithoutABegin_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.CopyRegion_CopiesACharacterAndItsColours
+        Expect.EndCase "BufferTests.CopyRegion_CopiesACharacterAndItsColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.CopyRegion_OverlappingToTheRight_ReadsCellsBeforeOverwritingThem
+        Expect.EndCase "BufferTests.CopyRegion_OverlappingToTheRight_ReadsCellsBeforeOverwritingThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.CopyRegion_OverlappingDownward_ReadsCellsBeforeOverwritingThem
+        Expect.EndCase "BufferTests.CopyRegion_OverlappingDownward_ReadsCellsBeforeOverwritingThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.CopyRegion_DestinationCellsOutsideTheGridAreSkipped
+        Expect.EndCase "BufferTests.CopyRegion_DestinationCellsOutsideTheGridAreSkipped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.CopyRegion_SourceOutsideTheGridIsCutAndTheDestinationIsNotMoved
+        Expect.EndCase "BufferTests.CopyRegion_SourceOutsideTheGridIsCutAndTheDestinationIsNotMoved", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.CopyRegion_DirtyRectangleHoldsTheDestinationAndTheSource
+        Expect.EndCase "BufferTests.CopyRegion_DirtyRectangleHoldsTheDestinationAndTheSource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.CopyRegion_InABatch_DirtyRectangleHoldsOnlyTheDestination
+        Expect.EndCase "BufferTests.CopyRegion_InABatch_DirtyRectangleHoldsOnlyTheDestination", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.ScrollRegion_Up_MovesTheRowsUpAndClearsTheBottomRow
+        Expect.EndCase "BufferTests.ScrollRegion_Up_MovesTheRowsUpAndClearsTheBottomRow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.ScrollRegion_Left_MovesTheColumnsLeftAndClearsTheRightColumn
+        Expect.EndCase "BufferTests.ScrollRegion_Left_MovesTheColumnsLeftAndClearsTheRightColumn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.ScrollRegion_Down_InARegionAwayFromTheTop_MovesTheRowsDown
+        Expect.EndCase "BufferTests.ScrollRegion_Down_InARegionAwayFromTheTop_MovesTheRowsDown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.ScrollRegion_Down_AtTheTopEdge_MovesTheRowsByTheDistanceAsked
+        Expect.EndCase "BufferTests.ScrollRegion_Down_AtTheTopEdge_MovesTheRowsByTheDistanceAsked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.ScrollRegion_Right_AtTheLeftEdge_MovesTheColumnsByTheDistanceAsked
+        Expect.EndCase "BufferTests.ScrollRegion_Right_AtTheLeftEdge_MovesTheColumnsByTheDistanceAsked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.ScrollRegion_BothDeltasZero_DoesNothing
+        Expect.EndCase "BufferTests.ScrollRegion_BothDeltasZero_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteTextEx_LongText_EndsInTheEllipsis
+        Expect.EndCase "BufferTests.WriteTextEx_LongText_EndsInTheEllipsis", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteTextEx_DefaultEllipsisIsTheHorizontalEllipsisCharacter
+        Expect.EndCase "BufferTests.WriteTextEx_DefaultEllipsisIsTheHorizontalEllipsisCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteTextEx_ShortTextIsWrittenWhole
+        Expect.EndCase "BufferTests.WriteTextEx_ShortTextIsWrittenWhole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteTextEx_EllipsisAsLongAsTheWidth_WritesOnlyTheEllipsis
+        Expect.EndCase "BufferTests.WriteTextEx_EllipsisAsLongAsTheWidth_WritesOnlyTheEllipsis", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        BufferTests.WriteTextEx_WidthZeroOrLess_WritesNothing
+        Expect.EndCase "BufferTests.WriteTextEx_WidthZeroOrLess_WritesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnKeyPress_ProcessEvents_CallsTheHandlerForEachKeyDownAndNotForKeyUp
+        Expect.EndCase "EventTests.OnKeyPress_ProcessEvents_CallsTheHandlerForEachKeyDownAndNotForKeyUp", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnKeyPress_HandlerGetsVirtualKeyCodes
+        Expect.EndCase "EventTests.OnKeyPress_HandlerGetsVirtualKeyCodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.ProcessEvents_NoKeyHandler_LeavesKeyEventsInTheQueue
+        Expect.EndCase "EventTests.ProcessEvents_NoKeyHandler_LeavesKeyEventsInTheQueue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.ProcessEvents_KeyEventWithNoHandler_StopsBeforeTheEventsBehindIt
+        Expect.EndCase "EventTests.ProcessEvents_KeyEventWithNoHandler_StopsBeforeTheEventsBehindIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnMouseClick_HandlerIsCalledForEveryMouseEvent
+        Expect.EndCase "EventTests.OnMouseClick_HandlerIsCalledForEveryMouseEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnMouseClick_Set_TurnsOnMouseInputAndExtendedFlagsAndTurnsOffQuickEdit
+        Expect.EndCase "EventTests.OnMouseClick_Set_TurnsOnMouseInputAndExtendedFlagsAndTurnsOffQuickEdit", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.ProcessEvents_MouseEventWithNoHandler_IsTakenAndDropped
+        Expect.EndCase "EventTests.ProcessEvents_MouseEventWithNoHandler_IsTakenAndDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.ProcessEvents_OtherEvents_AreTakenAndDropped
+        Expect.EndCase "EventTests.ProcessEvents_OtherEvents_AreTakenAndDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnResize_SizeEventWithTheSizeLastSeen_DoesNotCallTheHandler
+        Expect.EndCase "EventTests.OnResize_SizeEventWithTheSizeLastSeen_DoesNotCallTheHandler", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnResize_NewSize_CallsTheHandlerAndGivesTheBufferANewSize
+        Expect.EndCase "EventTests.OnResize_NewSize_CallsTheHandlerAndGivesTheBufferANewSize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnResize_OutsideFullScreenMode_ASizeEventInTheQueueCallsTheHandler
+        Expect.EndCase "EventTests.OnResize_OutsideFullScreenMode_ASizeEventInTheQueueCallsTheHandler", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnResize_InFullScreenMode_WindowsReportsAChangeOfSize
+        Expect.EndCase "EventTests.OnResize_InFullScreenMode_WindowsReportsAChangeOfSize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnResize_IsGivenTheSizeOfTheWindow
+        Expect.EndCase "EventTests.OnResize_IsGivenTheSizeOfTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnCtrlEvent_RegistersTheProcedureWithWindows
+        Expect.EndCase "EventTests.OnCtrlEvent_RegistersTheProcedureWithWindows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnCtrlEvent_Restore_RemovesTheRegistration
+        Expect.EndCase "EventTests.OnCtrlEvent_Restore_RemovesTheRegistration", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EventTests.OnCtrlEvent_AnotherProcedure_ReplacesTheFirst
+        Expect.EndCase "EventTests.OnCtrlEvent_AnotherProcedure_ReplacesTheFirst", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.Flush_WritesEachCellToTheSamePositionWithItsColours
+        Expect.EndCase "FlushTests.Flush_WritesEachCellToTheSamePositionWithItsColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.Flush_WritesOnlyTheDirtyRectangle
+        Expect.EndCase "FlushTests.Flush_WritesOnlyTheDirtyRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.Flush_NothingDirty_WritesNothing
+        Expect.EndCase "FlushTests.Flush_NothingDirty_WritesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.Flush_ForceAll_WritesEveryCell
+        Expect.EndCase "FlushTests.Flush_ForceAll_WritesEveryCell", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.Flush_EmptiesTheDirtyRectangle
+        Expect.EndCase "FlushTests.Flush_EmptiesTheDirtyRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.Flush_ToAHandleThatIsNotAConsole_EmptiesTheDirtyRectangleAllTheSame
+        Expect.EndCase "FlushTests.Flush_ToAHandleThatIsNotAConsole_EmptiesTheDirtyRectangleAllTheSame", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.FlushRegion_WritesTheRectangleWhetherOrNotItIsDirty
+        Expect.EndCase "FlushTests.FlushRegion_WritesTheRectangleWhetherOrNotItIsDirty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.FlushRegion_LeavesTheDirtyRectangleAsItIs
+        Expect.EndCase "FlushTests.FlushRegion_LeavesTheDirtyRectangleAsItIs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.FlushRegion_IsCutToTheGrid
+        Expect.EndCase "FlushTests.FlushRegion_IsCutToTheGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.WriteAt_BeyondTheGrid_NextFlushStillDrawsTheChangedCells
+        Expect.EndCase "FlushTests.WriteAt_BeyondTheGrid_NextFlushStillDrawsTheChangedCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.WriteAt_NegativeColumn_NextFlushStillDrawsTheChangedCells
+        Expect.EndCase "FlushTests.WriteAt_NegativeColumn_NextFlushStillDrawsTheChangedCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.WriteAt_NegativeRow_NextFlushStillDrawsTheChangedCells
+        Expect.EndCase "FlushTests.WriteAt_NegativeRow_NextFlushStillDrawsTheChangedCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.FillRect_RectangleAboveAndLeftOfTheGrid_NextFlushStillDrawsTheChangedCells
+        Expect.EndCase "FlushTests.FillRect_RectangleAboveAndLeftOfTheGrid_NextFlushStillDrawsTheChangedCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.CopyRegion_NegativeDestination_NextFlushStillDrawsTheCopiedCells
+        Expect.EndCase "FlushTests.CopyRegion_NegativeDestination_NextFlushStillDrawsTheCopiedCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FlushTests.Flush_AfterANegativePosition_EmptiesTheRectangleAndForceAllDrawsTheCells
+        Expect.EndCase "FlushTests.Flush_AfterANegativePosition_EmptiesTheRectangleAndForceAllDrawsTheCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.EnterFullScreenMode_MakesABufferOfTheWindowSize_HidesTheCursor_AndTurnsOnWindowInput
+        Expect.EndCase "FullScreenTests.EnterFullScreenMode_MakesABufferOfTheWindowSize_HidesTheCursor_AndTurnsOnWindowInput", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.EnterFullScreenMode_AlreadyOn_DoesNothing
+        Expect.EndCase "FullScreenTests.EnterFullScreenMode_AlreadyOn_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.EnterFullScreenMode_DoesNotClearTheScreenOrChangeTheWindow
+        Expect.EndCase "FullScreenTests.EnterFullScreenMode_DoesNotClearTheScreenOrChangeTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.ExitFullScreenMode_ReleasesTheBuffer_ShowsTheCursor_AndPutsBackTheInputMode
+        Expect.EndCase "FullScreenTests.ExitFullScreenMode_ReleasesTheBuffer_ShowsTheCursor_AndPutsBackTheInputMode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.ExitFullScreenMode_LeavesTheLastPictureOnTheScreen
+        Expect.EndCase "FullScreenTests.ExitFullScreenMode_LeavesTheLastPictureOnTheScreen", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.ExitFullScreenMode_WhenOff_DoesNothing
+        Expect.EndCase "FullScreenTests.ExitFullScreenMode_WhenOff_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.SetBufferSize_DoesNotResizeTheFullScreenBuffer
+        Expect.EndCase "FullScreenTests.SetBufferSize_DoesNotResizeTheFullScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.Refresh_WritesTheBufferAtTheTopLeftOfTheScreenBuffer
+        Expect.EndCase "FullScreenTests.Refresh_WritesTheBufferAtTheTopLeftOfTheScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.Refresh_WritesOnlyTheChangedRectangle
+        Expect.EndCase "FullScreenTests.Refresh_WritesOnlyTheChangedRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.RefreshAll_WritesTheWholeBuffer
+        Expect.EndCase "FullScreenTests.RefreshAll_WritesTheWholeBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.Refresh_And_RefreshAll_OutsideFullScreenMode_DoNothing
+        Expect.EndCase "FullScreenTests.Refresh_And_RefreshAll_OutsideFullScreenMode_DoNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsInTheWindow
+        Expect.EndCase "FullScreenTests.Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsInTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.Refresh_AfterAWriteAtWithANegativeColumn_DrawsTheChangedCells
+        Expect.EndCase "FullScreenTests.Refresh_AfterAWriteAtWithANegativeColumn_DrawsTheChangedCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsAtRowZero
+        Expect.EndCase "FullScreenTests.Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsAtRowZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.FPS_And_LastRenderTime_AreZeroBeforeTheFirstDraw
+        Expect.EndCase "FullScreenTests.FPS_And_LastRenderTime_AreZeroBeforeTheFirstDraw", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.FPS_AfterDrawing_IsPositiveAndFallsWhileNothingIsDrawn
+        Expect.EndCase "FullScreenTests.FPS_AfterDrawing_IsPositiveAndFallsWhileNothingIsDrawn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FullScreenTests.LastRenderTime_IsTheTimeOfTheLastDrawInMilliseconds
+        Expect.EndCase "FullScreenTests.LastRenderTime_IsTheTimeOfTheLastDrawInMilliseconds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.New_WithoutHandles_Succeeds_AndSizeIs80By25
+        Expect.EndCase "NoConsoleTests.New_WithoutHandles_Succeeds_AndSizeIs80By25", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.GetBufferSize_WithoutHandles_Is80By300
+        Expect.EndCase "NoConsoleTests.GetBufferSize_WithoutHandles_Is80By300", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.GetCursorPosition_CursorProperties_WithoutHandles_AreZeroOrFalse
+        Expect.EndCase "NoConsoleTests.GetCursorPosition_CursorProperties_WithoutHandles_AreZeroOrFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.WriteMembers_WithoutHandles_WriteNothingAndRaiseNoError
+        Expect.EndCase "NoConsoleTests.WriteMembers_WithoutHandles_WriteNothingAndRaiseNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.EnableVirtualTerminal_WithoutHandles_ReturnsFalse
+        Expect.EndCase "NoConsoleTests.EnableVirtualTerminal_WithoutHandles_ReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.ReadLine_WithoutHandles_ReturnsAnEmptyStringAtOnce
+        Expect.EndCase "NoConsoleTests.ReadLine_WithoutHandles_ReturnsAnEmptyStringAtOnce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.KeyAvailable_PeekEvent_WithoutHandles_AreFalseAndEmpty
+        Expect.EndCase "NoConsoleTests.KeyAvailable_PeekEvent_WithoutHandles_AreFalseAndEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.ReadKeyTimeout_WithoutHandles_ReturnsTheEmptyStructureWhenTheTimeIsOver
+        Expect.EndCase "NoConsoleTests.ReadKeyTimeout_WithoutHandles_ReturnsTheEmptyStructureWhenTheTimeIsOver", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.EnterFullScreenMode_WithoutHandles_MakesAnInMemoryBufferOf80By25
+        Expect.EndCase "NoConsoleTests.EnterFullScreenMode_WithoutHandles_MakesAnInMemoryBufferOf80By25", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.IsKeyPressed_WorksWithoutAConsole
+        Expect.EndCase "NoConsoleTests.IsKeyPressed_WorksWithoutAConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.RedirectedOutput_WriteMembersWriteNothingToTheFile
+        Expect.EndCase "NoConsoleTests.RedirectedOutput_WriteMembersWriteNothingToTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NoConsoleTests.RedirectedOutput_SizeIs80By25_AndVirtualTerminalIsRefused
+        Expect.EndCase "NoConsoleTests.RedirectedOutput_SizeIs80By25_AndVirtualTerminalIsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteTo_WritesTheTextAtTheCursorInTheCurrentColours
+        Expect.EndCase "OutputTests.WriteTo_WritesTheTextAtTheCursorInTheCurrentColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteTo_ControlCharactersTakeEffect
+        Expect.EndCase "OutputTests.WriteTo_ControlCharactersTakeEffect", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteLine_MovesToTheStartOfTheNextLine
+        Expect.EndCase "OutputTests.WriteLine_MovesToTheStartOfTheNextLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteLine_WithoutText_WritesOnlyTheLineFeed
+        Expect.EndCase "OutputTests.WriteLine_WithoutText_WritesOnlyTheLineFeed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteF_ReplacesNumberedPlaceholders
+        Expect.EndCase "OutputTests.WriteF_ReplacesNumberedPlaceholders", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteF_PlaceholderCanBeUsedMoreThanOnceAndInAnyOrder
+        Expect.EndCase "OutputTests.WriteF_PlaceholderCanBeUsedMoreThanOnceAndInAnyOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteF_FormatSpecifierIsNotUnderstood
+        Expect.EndCase "OutputTests.WriteF_FormatSpecifierIsNotUnderstood", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteF_PlaceholderWithoutAValueStaysInTheText
+        Expect.EndCase "OutputTests.WriteF_PlaceholderWithoutAValueStaysInTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteF_ValueThatContainsAPlaceholderIsReplacedAgain
+        Expect.EndCase "OutputTests.WriteF_ValueThatContainsAPlaceholderIsReplacedAgain", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteLineF_ReplacesThePlaceholdersAndEndsTheLine
+        Expect.EndCase "OutputTests.WriteLineF_ReplacesThePlaceholdersAndEndsTheLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteColored_WritesTheTextInTheGivenColours
+        Expect.EndCase "OutputTests.WriteColored_WritesTheTextInTheGivenColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteColored_PutsBackTheColoursTheObjectTracks
+        Expect.EndCase "OutputTests.WriteColored_PutsBackTheColoursTheObjectTracks", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteColored_NoBackground_KeepsTheCurrentBackground
+        Expect.EndCase "OutputTests.WriteColored_NoBackground_KeepsTheCurrentBackground", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteLineColored_NoBackground_KeepsTheCurrentBackground
+        Expect.EndCase "OutputTests.WriteLineColored_NoBackground_KeepsTheCurrentBackground", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteAtColored_NoBackground_KeepsTheCurrentBackground
+        Expect.EndCase "OutputTests.WriteAtColored_NoBackground_KeepsTheCurrentBackground", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteColored_LeavesTheConsoleInTheColoursItHad
+        Expect.EndCase "OutputTests.WriteColored_LeavesTheConsoleInTheColoursItHad", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteLineColored_LeavesTheConsoleInTheColoursItHad
+        Expect.EndCase "OutputTests.WriteLineColored_LeavesTheConsoleInTheColoursItHad", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteAtColored_LeavesTheConsoleInTheColoursItHad
+        Expect.EndCase "OutputTests.WriteAtColored_LeavesTheConsoleInTheColoursItHad", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteLineColored_WritesTheTextAndMovesToTheNextLine
+        Expect.EndCase "OutputTests.WriteLineColored_WritesTheTextAndMovesToTheNextLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteAt_WritesAtThePositionAndLeavesTheCursorAfterTheText
+        Expect.EndCase "OutputTests.WriteAt_WritesAtThePositionAndLeavesTheCursorAfterTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteAtColored_WritesAtThePositionInTheGivenColours
+        Expect.EndCase "OutputTests.WriteAtColored_WritesAtThePositionInTheGivenColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteError_WritesToTheErrorHandleOnly
+        Expect.EndCase "OutputTests.WriteError_WritesToTheErrorHandleOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.WriteErrorLine_AddsALineFeed
+        Expect.EndCase "OutputTests.WriteErrorLine_AddsALineFeed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.DrawBox_SingleLine_DrawsTheOutlineOnTheConsole
+        Expect.EndCase "OutputTests.DrawBox_SingleLine_DrawsTheOutlineOnTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.DrawBox_DoubleLine_UsesTheDoubleLineCharacters
+        Expect.EndCase "OutputTests.DrawBox_DoubleLine_UsesTheDoubleLineCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.DrawBox_RightNotGreaterThanLeft_Raises5AfterWritingTheCorners
+        Expect.EndCase "OutputTests.DrawBox_RightNotGreaterThanLeft_Raises5AfterWritingTheCorners", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.DrawProgressBar_DrawsTheBarAndThePercentage
+        Expect.EndCase "OutputTests.DrawProgressBar_DrawsTheBarAndThePercentage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.DrawProgressBar_UsesTheColoursGiven
+        Expect.EndCase "OutputTests.DrawProgressBar_UsesTheColoursGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.DrawProgressBar_PercentIsKeptBetween0And100
+        Expect.EndCase "OutputTests.DrawProgressBar_PercentIsKeptBetween0And100", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.DrawProgressBar_NegativeWidth_Raises5
+        Expect.EndCase "OutputTests.DrawProgressBar_NegativeWidth_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.CenterX_And_CenterY_CentreInTheWindow
+        Expect.EndCase "OutputTests.CenterX_And_CenterY_CentreInTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.CenterX_WiderThanTheWindow_IsNegative
+        Expect.EndCase "OutputTests.CenterX_WiderThanTheWindow_IsNegative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.PercentX_And_PercentY_ClampTheirArgumentTo0To100
+        Expect.EndCase "OutputTests.PercentX_And_PercentY_ClampTheirArgumentTo0To100", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.PercentX_And_PercentY_RoundHalfToEven
+        Expect.EndCase "OutputTests.PercentX_And_PercentY_RoundHalfToEven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.CenterRect_ReturnsARectangleOfTheSizeGivenInTheMiddleOfTheWindow
+        Expect.EndCase "OutputTests.CenterRect_ReturnsARectangleOfTheSizeGivenInTheMiddleOfTheWindow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OutputTests.CenterRect_LargerThanTheWindow_HasNegativeLeftAndTop
+        Expect.EndCase "OutputTests.CenterRect_LargerThanTheWindow_HasNegativeLeftAndTop", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_ReturnsTheVirtualKeyCodeAndTheCharacter
+        Expect.EndCase "ReadTests.ReadKey_ReturnsTheVirtualKeyCodeAndTheCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_ReportsTheLeftModifierKeys
+        Expect.EndCase "ReadTests.ReadKey_ReportsTheLeftModifierKeys", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_ReportsTheRightModifierKeys
+        Expect.EndCase "ReadTests.ReadKey_ReportsTheRightModifierKeys", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_KeyWithoutACharacter_GivesTheCharacterWithCodeZero
+        Expect.EndCase "ReadTests.ReadKey_KeyWithoutACharacter_GivesTheCharacterWithCodeZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_ShiftAlone_IsReturnedAsKeyCode16
+        Expect.EndCase "ReadTests.ReadKey_ShiftAlone_IsReturnedAsKeyCode16", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_IgnoresKeyReleasesAndOtherEvents
+        Expect.EndCase "ReadTests.ReadKey_IgnoresKeyReleasesAndOtherEvents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_RepeatCount_IsNotRead_OneResultForEachKeyDownEvent
+        Expect.EndCase "ReadTests.ReadKey_RepeatCount_IsNotRead_OneResultForEachKeyDownEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_InterceptFalse_WritesTheCharacterToTheConsole
+        Expect.EndCase "ReadTests.ReadKey_InterceptFalse_WritesTheCharacterToTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_InterceptTrue_WritesNothing
+        Expect.EndCase "ReadTests.ReadKey_InterceptTrue_WritesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_InterceptFalse_KeyWithoutACharacter_WritesTheCharacterWithCodeZero
+        Expect.EndCase "ReadTests.ReadKey_InterceptFalse_KeyWithoutACharacter_WritesTheCharacterWithCodeZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_PutsBackTheInputMode_AndLeavesTheReleaseInTheQueue
+        Expect.EndCase "ReadTests.ReadKey_PutsBackTheInputMode_AndLeavesTheReleaseInTheQueue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.KeyAvailable_EmptyQueue_IsFalse
+        Expect.EndCase "ReadTests.KeyAvailable_EmptyQueue_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.KeyAvailable_KeyPress_IsTrue
+        Expect.EndCase "ReadTests.KeyAvailable_KeyPress_IsTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.KeyAvailable_KeyReleaseOnly_IsFalse
+        Expect.EndCase "ReadTests.KeyAvailable_KeyReleaseOnly_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.KeyAvailable_AfterReadKey_IsFalse
+        Expect.EndCase "ReadTests.KeyAvailable_AfterReadKey_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.KeyAvailable_MouseEventOnly_IsFalse
+        Expect.EndCase "ReadTests.KeyAvailable_MouseEventOnly_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.KeyAvailable_FocusEventOnly_IsFalse
+        Expect.EndCase "ReadTests.KeyAvailable_FocusEventOnly_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.PeekEvent_KeyPress_ReturnsTheKeyWithoutRemovingIt
+        Expect.EndCase "ReadTests.PeekEvent_KeyPress_ReturnsTheKeyWithoutRemovingIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.PeekEvent_FirstEventIsNotAKeyPress_ReturnsTheEmptyStructure
+        Expect.EndCase "ReadTests.PeekEvent_FirstEventIsNotAKeyPress_ReturnsTheEmptyStructure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.FlushInput_DiscardsEveryEvent
+        Expect.EndCase "ReadTests.FlushInput_DiscardsEveryEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKeyTimeout_NothingPressed_ReturnsTheEmptyStructureWhenTheTimeIsOver
+        Expect.EndCase "ReadTests.ReadKeyTimeout_NothingPressed_ReturnsTheEmptyStructureWhenTheTimeIsOver", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKeyTimeout_KeyPressed_ReturnsItAtOnce
+        Expect.EndCase "ReadTests.ReadKeyTimeout_KeyPressed_ReturnsItAtOnce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.IsKeyPressed_KeyNotDown_IsFalse
+        Expect.EndCase "ReadTests.IsKeyPressed_KeyNotDown_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadLine_ReturnsTheLineWithoutTheLineBreak
+        Expect.EndCase "ReadTests.ReadLine_ReturnsTheLineWithoutTheLineBreak", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadLine_Prompt_IsWrittenBeforeTheConsoleReads
+        Expect.EndCase "ReadTests.ReadLine_Prompt_IsWrittenBeforeTheConsoleReads", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadLine_OnlyEnter_ReturnsAnEmptyString
+        Expect.EndCase "ReadTests.ReadLine_OnlyEnter_ReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadLine_ReadsAtMostTheCharactersOfTheReadBuffer
+        Expect.EndCase "ReadTests.ReadLine_ReadsAtMostTheCharactersOfTheReadBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadPassword_ReturnsTheTextAndShowsOneMaskCharacterForEachKey
+        Expect.EndCase "ReadTests.ReadPassword_ReturnsTheTextAndShowsOneMaskCharacterForEachKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadPassword_MaskCharacterIsTheOneGiven_AndEmptyShowsNothing
+        Expect.EndCase "ReadTests.ReadPassword_MaskCharacterIsTheOneGiven_AndEmptyShowsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadPassword_Backspace_RemovesTheLastCharacterAndErasesOneCell
+        Expect.EndCase "ReadTests.ReadPassword_Backspace_RemovesTheLastCharacterAndErasesOneCell", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadPassword_BackspaceWithNothingTyped_DoesNothing
+        Expect.EndCase "ReadTests.ReadPassword_BackspaceWithNothingTyped_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadPassword_BackspaceWithALongMask_ErasesOnlyOneCell
+        Expect.EndCase "ReadTests.ReadPassword_BackspaceWithALongMask_ErasesOnlyOneCell", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadPassword_Escape_ReturnsAnEmptyString
+        Expect.EndCase "ReadTests.ReadPassword_Escape_ReturnsAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadPassword_TabAndKeysWithoutACharacter_AreIgnored
+        Expect.EndCase "ReadTests.ReadPassword_TabAndKeysWithoutACharacter_AreIgnored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_EnterEscapeSpaceBackspaceTab_EqualTheConsoleKeyMembers
+        Expect.EndCase "ReadTests.ReadKey_EnterEscapeSpaceBackspaceTab_EqualTheConsoleKeyMembers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_ArrowKeys_EqualTheConsoleKeyMembers
+        Expect.EndCase "ReadTests.ReadKey_ArrowKeys_EqualTheConsoleKeyMembers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_NavigationKeys_EqualTheConsoleKeyMembers
+        Expect.EndCase "ReadTests.ReadKey_NavigationKeys_EqualTheConsoleKeyMembers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_FunctionKeys_EqualTheConsoleKeyMembers
+        Expect.EndCase "ReadTests.ReadKey_FunctionKeys_EqualTheConsoleKeyMembers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.ReadKey_LetterH_IsNotTheKeyCodeOfConsoleKeyKeyUp
+        Expect.EndCase "ReadTests.ReadKey_LetterH_IsNotTheKeyCodeOfConsoleKeyKeyUp", Err.Number, Err.Description
+        Expect.Skip "ReadTests.ReadKey_WithoutConsoleInput_Returns", "it does not return in version 1.0.0.1"
+        Expect.Skip "ReadTests.ReadPassword_WithoutConsoleInput_Returns", "it does not return in version 1.0.0.1"
+        Expect.Skip "ReadTests.ReadKeyTimeout_OnlyAKeyReleaseInTheQueue_ReturnsWhenTheTimeIsOver", "it does not return in version 1.0.0.1"
+        Expect.StartCase
+        Err.Clear
+        StateTests.New_NegativeInputBufferSize_Raises5
+        Expect.EndCase "StateTests.New_NegativeInputBufferSize_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.New_TracksGrayOnBlack_WhateverColoursTheConsoleHas
+        Expect.EndCase "StateTests.New_TracksGrayOnBlack_WhateverColoursTheConsoleHas", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Predeclared_TheClassNameIsAnObject
+        Expect.EndCase "StateTests.Predeclared_TheClassNameIsAnObject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Restore_PutsBackTheInputAndOutputModes
+        Expect.EndCase "StateTests.Restore_PutsBackTheInputAndOutputModes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Restore_PutsBackTheColourAttributes
+        Expect.EndCase "StateTests.Restore_PutsBackTheColourAttributes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Restore_PutsBackTheCodePages
+        Expect.EndCase "StateTests.Restore_PutsBackTheCodePages", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Restore_LeavesTheFullScreenMode
+        Expect.EndCase "StateTests.Restore_LeavesTheFullScreenMode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Restore_DoesNotClearTheScreenOrPutBackTheCursorSize
+        Expect.EndCase "StateTests.Restore_DoesNotClearTheScreenOrPutBackTheCursorSize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Restore_ObjectStaysUsable_AndRestoreCanBeCalledAgain
+        Expect.EndCase "StateTests.Restore_ObjectStaysUsable_AndRestoreCanBeCalledAgain", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Terminate_RestoresTheConsole
+        Expect.EndCase "StateTests.Terminate_RestoresTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.SecondObject_RecordsTheChangedModesAsTheOriginalOnes
+        Expect.EndCase "StateTests.SecondObject_RecordsTheChangedModesAsTheOriginalOnes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.ForeColor_Let_AppliesTheColoursToTheConsole
+        Expect.EndCase "StateTests.ForeColor_Let_AppliesTheColoursToTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.BackColor_Let_AppliesTheColoursToTheConsole
+        Expect.EndCase "StateTests.BackColor_Let_AppliesTheColoursToTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.ForeColor_Get_ReturnsTheStoredValue_NotTheConsolesColour
+        Expect.EndCase "StateTests.ForeColor_Get_ReturnsTheStoredValue_NotTheConsolesColour", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.SetColors_BackgroundDefaultsToBlackNotTheCurrentBackground
+        Expect.EndCase "StateTests.SetColors_BackgroundDefaultsToBlackNotTheCurrentBackground", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.ResetColors_PutsBackTheColoursTheConsoleHad
+        Expect.EndCase "StateTests.ResetColors_PutsBackTheColoursTheConsoleHad", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.CodePages_Get_ReturnTheCodePagesOfTheConsole
+        Expect.EndCase "StateTests.CodePages_Get_ReturnTheCodePagesOfTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.CodePages_Let_SetTheCodePagesOfTheConsole
+        Expect.EndCase "StateTests.CodePages_Let_SetTheCodePagesOfTheConsole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.CodePages_Let_ValueWindowsRefusesIsIgnoredWithoutError
+        Expect.EndCase "StateTests.CodePages_Let_ValueWindowsRefusesIsIgnoredWithoutError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.EnableUTF8_SetsBothCodePagesToUTF8
+        Expect.EndCase "StateTests.EnableUTF8_SetsBothCodePagesToUTF8", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.DisableUTF8_PutsBackTheCodePagesTheConsoleHad
+        Expect.EndCase "StateTests.DisableUTF8_PutsBackTheCodePagesTheConsoleHad", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.DisableUTF8_SetsTheSavedCodePagesWhateverTheyAreNow
+        Expect.EndCase "StateTests.DisableUTF8_SetsTheSavedCodePagesWhateverTheyAreNow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.WriteTo_Euro_IsStoredAsU20ACWhateverTheOutputCodePage
+        Expect.EndCase "StateTests.WriteTo_Euro_IsStoredAsU20ACWhateverTheOutputCodePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.EnableVirtualTerminal_ReturnsTrueAndAddsTheModeFlags
+        Expect.EndCase "StateTests.EnableVirtualTerminal_ReturnsTrueAndAddsTheModeFlags", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.EnableVirtualTerminal_SequencesOfMConsoleStyleChangeColours
+        Expect.EndCase "StateTests.EnableVirtualTerminal_SequencesOfMConsoleStyleChangeColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.WriteTo_EscapeSequenceWithoutTheMode_AppearsAsText
+        Expect.EndCase "StateTests.WriteTo_EscapeSequenceWithoutTheMode_AppearsAsText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.EnableVirtualTerminal_Refused_ReturnsFalseAndChangesNothing
+        Expect.EndCase "StateTests.EnableVirtualTerminal_Refused_ReturnsFalseAndChangesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.DisableVirtualTerminal_PutsBackBothModesAndClearsTheFlag
+        Expect.EndCase "StateTests.DisableVirtualTerminal_PutsBackBothModesAndClearsTheFlag", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.DisableVirtualTerminal_AlsoUndoesOtherChangesOfTheInputMode
+        Expect.EndCase "StateTests.DisableVirtualTerminal_AlsoUndoesOtherChangesOfTheInputMode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.VirtualTerminalEnabled_IsFalseWhenTheConsoleHadTheModeOnAlready
+        Expect.EndCase "StateTests.VirtualTerminalEnabled_IsFalseWhenTheConsoleHadTheModeOnAlready", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.SetCursorPosition_MovesTheCursorCountedFromTheTopLeftOfTheScreenBuffer
+        Expect.EndCase "StateTests.SetCursorPosition_MovesTheCursorCountedFromTheTopLeftOfTheScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.SetCursorPosition_ValueOutsideAnInteger_Raises6
+        Expect.EndCase "StateTests.SetCursorPosition_ValueOutsideAnInteger_Raises6", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.SetCursorPosition_OutsideTheScreenBuffer_IsRefusedWithoutAnError
+        Expect.EndCase "StateTests.SetCursorPosition_OutsideTheScreenBuffer_IsRefusedWithoutAnError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.CursorVisible_ReadsTheConsoleEachTime
+        Expect.EndCase "StateTests.CursorVisible_ReadsTheConsoleEachTime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.CursorSize_IsKeptBetween1And100
+        Expect.EndCase "StateTests.CursorSize_IsKeptBetween1And100", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.GetSize_Width_Height_AreTheWindowNotTheScreenBuffer
+        Expect.EndCase "StateTests.GetSize_Width_Height_AreTheWindowNotTheScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.GetBufferSize_IsTheWholeScreenBuffer
+        Expect.EndCase "StateTests.GetBufferSize_IsTheWholeScreenBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.SetBufferSize_ValueOutsideAnInteger_Raises6
+        Expect.EndCase "StateTests.SetBufferSize_ValueOutsideAnInteger_Raises6", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.SetBufferSize_SmallerThanTheWindow_IsRefusedWithoutAnError
+        Expect.EndCase "StateTests.SetBufferSize_SmallerThanTheWindow_IsRefusedWithoutAnError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Clear_FillsTheWholeScreenBufferInTheTrackedColoursAndHomesTheCursor
+        Expect.EndCase "StateTests.Clear_FillsTheWholeScreenBufferInTheTrackedColoursAndHomesTheCursor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Clear_InFullScreenMode_DoesNotClearTheBuffer
+        Expect.EndCase "StateTests.Clear_InFullScreenMode_DoesNotClearTheBuffer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.ClearLine_FillsFromTheCursorToTheEndOfTheLine_AndDoesNotMoveTheCursor
+        Expect.EndCase "StateTests.ClearLine_FillsFromTheCursorToTheEndOfTheLine_AndDoesNotMoveTheCursor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Title_RoundTrip
+        Expect.EndCase "StateTests.Title_RoundTrip", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.Title_LongTitle_IsReturnedWithAtMost259Characters
+        Expect.EndCase "StateTests.Title_LongTitle_IsReturnedWithAtMost259Characters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StateTests.WindowHandle_IsTheConsoleWindowAtCreation
+        Expect.EndCase "StateTests.WindowHandle_IsTheConsoleWindowAtCreation", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Cursor_MovementSequences
+        Expect.EndCase "StyleTests.Cursor_MovementSequences", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Cursor_CountDefaultsToOne
+        Expect.EndCase "StyleTests.Cursor_CountDefaultsToOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Cursor_NumbersAreNotChecked
+        Expect.EndCase "StyleTests.Cursor_NumbersAreNotChecked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Cursor_PositionTakesTheRowFirst
+        Expect.EndCase "StyleTests.Cursor_PositionTakesTheRowFirst", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Cursor_SaveRestoreHideShowSequences
+        Expect.EndCase "StyleTests.Cursor_SaveRestoreHideShowSequences", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Clear_SequencesAndDefaultMode
+        Expect.EndCase "StyleTests.Clear_SequencesAndDefaultMode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.TextStyle_Sequences
+        Expect.EndCase "StyleTests.TextStyle_Sequences", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Foreground_ColourCodes
+        Expect.EndCase "StyleTests.Foreground_ColourCodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Background_ColourCodes
+        Expect.EndCase "StyleTests.Background_ColourCodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Palette_And_TrueColourSequences
+        Expect.EndCase "StyleTests.Palette_And_TrueColourSequences", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Palette_NumbersAreNotChecked
+        Expect.EndCase "StyleTests.Palette_NumbersAreNotChecked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Scroll_Sequences
+        Expect.EndCase "StyleTests.Scroll_Sequences", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.SetTitle_Sequence
+        Expect.EndCase "StyleTests.SetTitle_Sequence", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.AltScreen_Sequences
+        Expect.EndCase "StyleTests.AltScreen_Sequences", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Hyperlink_Sequence
+        Expect.EndCase "StyleTests.Hyperlink_Sequence", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Styled_WrapsTextInStyleAndReset
+        Expect.EndCase "StyleTests.Styled_WrapsTextInStyleAndReset", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Colored_ForegroundOnly
+        Expect.EndCase "StyleTests.Colored_ForegroundOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Colored_WithBackground
+        Expect.EndCase "StyleTests.Colored_WithBackground", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Colored_DoesNotCheckThatTheStringsAreColours
+        Expect.EndCase "StyleTests.Colored_DoesNotCheckThatTheStringsAreColours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.ColoredRGB_ForegroundOnly
+        Expect.EndCase "StyleTests.ColoredRGB_ForegroundOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.ColoredRGB_WithBackground
+        Expect.EndCase "StyleTests.ColoredRGB_WithBackground", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.ColoredRGB_BackgroundNeedsAllThreeValues
+        Expect.EndCase "StyleTests.ColoredRGB_BackgroundNeedsAllThreeValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Characters_BoxDrawing
+        Expect.EndCase "StyleTests.Characters_BoxDrawing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Characters_BlocksProgressAndArrows
+        Expect.EndCase "StyleTests.Characters_BlocksProgressAndArrows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Characters_Symbols
+        Expect.EndCase "StyleTests.Characters_Symbols", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.CenterText_OddPaddingGivesTheExtraCharacterToTheRight
+        Expect.EndCase "StyleTests.CenterText_OddPaddingGivesTheExtraCharacterToTheRight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.CenterText_FillCharacterPads
+        Expect.EndCase "StyleTests.CenterText_FillCharacterPads", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.CenterText_LongTextIsCutToTheWidth
+        Expect.EndCase "StyleTests.CenterText_LongTextIsCutToTheWidth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.LeftAlign_PadsOnTheRightAndCutsLongText
+        Expect.EndCase "StyleTests.LeftAlign_PadsOnTheRightAndCutsLongText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.RightAlign_PadsOnTheLeftAndCutsToTheFirstCharacters
+        Expect.EndCase "StyleTests.RightAlign_PadsOnTheLeftAndCutsToTheFirstCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Truncate_ShortTextIsReturnedWhole
+        Expect.EndCase "StyleTests.Truncate_ShortTextIsReturnedWhole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Truncate_LongTextGetsTheEllipsis
+        Expect.EndCase "StyleTests.Truncate_LongTextGetsTheEllipsis", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.Truncate_WidthNotLargerThanTheEllipsis_ReturnsTheStartOfTheEllipsis
+        Expect.EndCase "StyleTests.Truncate_WidthNotLargerThanTheEllipsis_ReturnsTheStartOfTheEllipsis", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.WordWrap_BreaksAtSpaces
+        Expect.EndCase "StyleTests.WordWrap_BreaksAtSpaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.WordWrap_LongWordIsNotBroken
+        Expect.EndCase "StyleTests.WordWrap_LongWordIsNotBroken", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.WordWrap_LineBreaksInsideTheTextBelongToTheWord
+        Expect.EndCase "StyleTests.WordWrap_LineBreaksInsideTheTextBelongToTheWord", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.StripAnsi_RemovesColourAndStyleSequences
+        Expect.EndCase "StyleTests.StripAnsi_RemovesColourAndStyleSequences", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.StripAnsi_SequenceEndingInAnotherLetter_KeepsTheTextAfterIt
+        Expect.EndCase "StyleTests.StripAnsi_SequenceEndingInAnotherLetter_KeepsTheTextAfterIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.RepeatStr_OneCharacterIsRepeated
+        Expect.EndCase "StyleTests.RepeatStr_OneCharacterIsRepeated", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        StyleTests.RepeatStr_LongerStringIsRepeatedWhole
+        Expect.EndCase "StyleTests.RepeatStr_LongerStringIsRepeatedWhole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleColor_Values
+        Expect.EndCase "TypesTests.ConsoleColor_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleColorAttribute_ForegroundInTheLowFourBitsBackgroundInTheNext
+        Expect.EndCase "TypesTests.ConsoleColorAttribute_ForegroundInTheLowFourBitsBackgroundInTheNext", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleKey_Values
+        Expect.EndCase "TypesTests.ConsoleKey_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleKey_FirstFiveMembersAreVirtualKeyCodes
+        Expect.EndCase "TypesTests.ConsoleKey_FirstFiveMembersAreVirtualKeyCodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleKey_NavigationAndFunctionMembersAreVirtualKeyCodes
+        Expect.EndCase "TypesTests.ConsoleKey_NavigationAndFunctionMembersAreVirtualKeyCodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleEventType_Values
+        Expect.EndCase "TypesTests.ConsoleEventType_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleMode_And_ConsoleTextStyle_Values
+        Expect.EndCase "TypesTests.ConsoleMode_And_ConsoleTextStyle_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ThemeColorType_Values
+        Expect.EndCase "TypesTests.ThemeColorType_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleRect_Create_ReturnsTheFourEdgesAsGiven
+        Expect.EndCase "TypesTests.ConsoleRect_Create_ReturnsTheFourEdgesAsGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleRect_Width_And_Height_CountBothEdges
+        Expect.EndCase "TypesTests.ConsoleRect_Width_And_Height_CountBothEdges", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleRect_Contains_EdgesBelongToTheRectangle
+        Expect.EndCase "TypesTests.ConsoleRect_Contains_EdgesBelongToTheRectangle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TypesTests.ConsoleKeyInfo_EmptyStructure_HasNoKeyAndNoCharacter
+        Expect.EndCase "TypesTests.ConsoleKeyInfo_EmptyStructure_HasNoKeyAndNoCharacter", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/Sink.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/Sink.twin
new file mode 100644
index 00000000..b03a8ffe
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/Sink.twin
@@ -0,0 +1,44 @@
+' TBMANLIB_ConsoleCore: the handler procedures the cases register, and what they were called with.
+Module Sink
+
+    Public KeyCalls As Long
+    Public KeyLog As String
+    Public MouseCalls As Long
+    Public MouseLog As String
+    Public SizeCalls As Long
+    Public SizeLog As String
+
+    Public Sub Reset()
+        KeyCalls = 0
+        KeyLog = ""
+        MouseCalls = 0
+        MouseLog = ""
+        SizeCalls = 0
+        SizeLog = ""
+    End Sub
+
+    Public Sub OnKey(ByRef keyInfo As ConsoleKeyInfo, ByRef handled As Boolean)
+        KeyCalls = KeyCalls + 1
+        KeyLog = KeyLog & keyInfo.KeyCode & ";"
+        handled = True
+    End Sub
+
+    Public Sub OnMouse(ByRef mouseInfo As ConsoleMouseInfo, ByRef handled As Boolean)
+        MouseCalls = MouseCalls + 1
+        MouseLog = MouseLog & mouseInfo.Col & "," & mouseInfo.Row & "," & mouseInfo.Button & "," & mouseInfo.IsDoubleClick & ";"
+    End Sub
+
+    Public Sub OnSize(ByVal newWidth As Long, ByVal newHeight As Long)
+        SizeCalls = SizeCalls + 1
+        SizeLog = SizeLog & newWidth & "x" & newHeight & ";"
+    End Sub
+
+    Public Function OnCtrlOne(ByVal ctrlType As Long) As Long
+        OnCtrlOne = 1
+    End Function
+
+    Public Function OnCtrlTwo(ByVal ctrlType As Long) As Long
+        OnCtrlTwo = 1
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/StateTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/StateTests.twin
new file mode 100644
index 00000000..8572d5bd
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/StateTests.twin
@@ -0,0 +1,715 @@
+' TBMANLIB_ConsoleCore: creating a cConsole and the state of the console: modes, colours, code pages,
+' cursor, size and title. Each case works on a screen buffer of its own (see Rig).
+[TestFixture]
+Module StateTests
+
+    ' ---- creating a cConsole and Restore
+
+    [TestCase]
+    Public Sub New_NegativeInputBufferSize_Raises5()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As cConsole
+        On Error Resume Next
+        Set c = New cConsole(-1)
+        Expect.AreEqual 5, Err.Number, "Err.Number of New cConsole(-1)"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_TracksGrayOnBlack_WhateverColoursTheConsoleHas()
+        Expect.Begin
+        Rig.Acquire
+        Rig.SetAttr Rig.OutHandle, &H1E
+        Dim c As New cConsole
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(c.ForeColor), "ForeColor of a new cConsole whose console is Yellow on DarkBlue"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(c.BackColor), "BackColor of a new cConsole whose console is Yellow on DarkBlue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Predeclared_TheClassNameIsAnObject()
+        Expect.Begin
+        Rig.Acquire
+        cConsole.WriteLine "Predeclared"
+        Expect.AreEqual "Predeclared", Rig.RowText(0), "row 0 after cConsole.WriteLine ""Predeclared"""
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Restore_PutsBackTheInputAndOutputModes()
+        Expect.Begin
+        Rig.Acquire
+        Dim inMode As Long = Rig.InMode()
+        Dim outMode As Long = Rig.OutMode()
+        Dim c As New cConsole
+        c.EnableVirtualTerminal
+        Rig.SetInMode &H80
+        c.Restore
+        Expect.AreEqual inMode, Rig.InMode(), "input mode after Restore"
+        Expect.AreEqual outMode, Rig.OutMode(), "output mode after Restore"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Restore_PutsBackTheColourAttributes()
+        Expect.Begin
+        Rig.Acquire
+        Rig.SetAttr Rig.OutHandle, &H1E
+        Dim c As New cConsole
+        c.SetColors ConsoleColor.Red, ConsoleColor.Green
+        c.Restore
+        Expect.AreEqual &H1E&, Rig.CurrentAttr(Rig.OutHandle), "colour attribute of the console after Restore"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Restore_PutsBackTheCodePages()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleCP 437
+        mConsoleAPI.SetConsoleOutputCP 850
+        Dim c As New cConsole
+        c.EnableUTF8
+        c.Restore
+        Expect.AreEqual 437, mConsoleAPI.GetConsoleCP(), "input code page after Restore"
+        Expect.AreEqual 850, mConsoleAPI.GetConsoleOutputCP(), "output code page after Restore"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Restore_LeavesTheFullScreenMode()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Restore
+        Expect.IsFalse c.FullScreenMode, "FullScreenMode after Restore"
+        Expect.IsTrue c.Buffer Is Nothing, "Buffer after Restore"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Restore_DoesNotClearTheScreenOrPutBackTheCursorSize()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteTo "kept"
+        c.CursorSize = 80
+        c.Restore
+        Expect.AreEqual "kept", Rig.RowText(0), "row 0 after Restore"
+        Expect.AreEqual 80, c.CursorSize, "CursorSize after Restore"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Restore_ObjectStaysUsable_AndRestoreCanBeCalledAgain()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.Restore
+        c.Restore
+        c.WriteTo "still"
+        Expect.AreEqual "still", Rig.RowText(0), "row 0 after Restore, Restore and WriteTo"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Terminate_RestoresTheConsole()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleCP 437
+        mConsoleAPI.SetConsoleOutputCP 850
+        Dim inMode As Long = Rig.InMode()
+        Dim c As New cConsole
+        c.EnableUTF8
+        c.EnableVirtualTerminal
+        Set c = Nothing
+        Expect.AreEqual 437, mConsoleAPI.GetConsoleCP(), "input code page after the object is destroyed"
+        Expect.AreEqual 850, mConsoleAPI.GetConsoleOutputCP(), "output code page after the object is destroyed"
+        Expect.AreEqual inMode, Rig.InMode(), "input mode after the object is destroyed"
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SecondObject_RecordsTheChangedModesAsTheOriginalOnes()
+        Expect.Begin
+        Rig.Acquire
+        Dim outMode As Long = Rig.OutMode()
+        Dim first As New cConsole
+        first.EnableVirtualTerminal
+        Dim second As New cConsole
+        second.Restore
+        Expect.AreEqual outMode Or &H4&, Rig.OutMode(), "output mode after Restore of an object created after EnableVirtualTerminal"
+        first.Restore
+        Expect.AreEqual outMode, Rig.OutMode(), "output mode after Restore of the first object"
+        Set second = Nothing
+        Set first = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- colours
+
+    [TestCase]
+    Public Sub ForeColor_Let_AppliesTheColoursToTheConsole()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.ForeColor = ConsoleColor.Red
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(c.ForeColor), "ForeColor after it is set"
+        Expect.AreEqual 12, Rig.CurrentAttr(Rig.OutHandle), "attribute of the console after ForeColor = Red"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BackColor_Let_AppliesTheColoursToTheConsole()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.ForeColor = ConsoleColor.Red
+        c.BackColor = ConsoleColor.Blue
+        Expect.AreEqual CLng(ConsoleColor.Blue), CLng(c.BackColor), "BackColor after it is set"
+        Expect.AreEqual 12 + 9 * 16, Rig.CurrentAttr(Rig.OutHandle), "attribute of the console after BackColor = Blue"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ForeColor_Get_ReturnsTheStoredValue_NotTheConsolesColour()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.SetAttr Rig.OutHandle, &H4F
+        Expect.AreEqual CLng(ConsoleColor.Gray), CLng(c.ForeColor), "ForeColor after the console's attribute was changed behind the object"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(c.BackColor), "BackColor after the console's attribute was changed behind the object"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetColors_BackgroundDefaultsToBlackNotTheCurrentBackground()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.BackColor = ConsoleColor.Blue
+        c.SetColors ConsoleColor.Red
+        Expect.AreEqual CLng(ConsoleColor.Red), CLng(c.ForeColor), "ForeColor after SetColors Red"
+        Expect.AreEqual CLng(ConsoleColor.Black), CLng(c.BackColor), "BackColor after SetColors Red"
+        Expect.AreEqual 12, Rig.CurrentAttr(Rig.OutHandle), "attribute of the console after SetColors Red"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ResetColors_PutsBackTheColoursTheConsoleHad()
+        Expect.Begin
+        Rig.Acquire
+        Rig.SetAttr Rig.OutHandle, &H1E
+        Dim c As New cConsole
+        c.SetColors ConsoleColor.Red, ConsoleColor.Green
+        c.ResetColors
+        Expect.AreEqual &H1E&, Rig.CurrentAttr(Rig.OutHandle), "attribute of the console after ResetColors"
+        Expect.AreEqual CLng(ConsoleColor.Yellow), CLng(c.ForeColor), "ForeColor after ResetColors"
+        Expect.AreEqual CLng(ConsoleColor.DarkBlue), CLng(c.BackColor), "BackColor after ResetColors"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- code pages
+
+    [TestCase]
+    Public Sub CodePages_Get_ReturnTheCodePagesOfTheConsole()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleCP 437
+        mConsoleAPI.SetConsoleOutputCP 850
+        Dim c As New cConsole
+        Expect.AreEqual 437, c.InputCodePage, "InputCodePage"
+        Expect.AreEqual 850, c.OutputCodePage, "OutputCodePage"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CodePages_Let_SetTheCodePagesOfTheConsole()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleCP 437
+        mConsoleAPI.SetConsoleOutputCP 437
+        Dim c As New cConsole
+        c.InputCodePage = 1252
+        c.OutputCodePage = 850
+        Expect.AreEqual 1252, mConsoleAPI.GetConsoleCP(), "input code page after InputCodePage = 1252"
+        Expect.AreEqual 850, mConsoleAPI.GetConsoleOutputCP(), "output code page after OutputCodePage = 850"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CodePages_Let_ValueWindowsRefusesIsIgnoredWithoutError()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleOutputCP 850
+        Dim c As New cConsole
+        On Error Resume Next
+        c.OutputCodePage = 99999
+        Expect.AreEqual 0, Err.Number, "Err.Number of OutputCodePage = 99999"
+        Expect.AreEqual 850, c.OutputCodePage, "OutputCodePage after OutputCodePage = 99999"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnableUTF8_SetsBothCodePagesToUTF8()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleCP 437
+        mConsoleAPI.SetConsoleOutputCP 850
+        Dim c As New cConsole
+        c.EnableUTF8
+        Expect.AreEqual 65001, mConsoleAPI.GetConsoleCP(), "input code page after EnableUTF8"
+        Expect.AreEqual 65001, mConsoleAPI.GetConsoleOutputCP(), "output code page after EnableUTF8"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DisableUTF8_PutsBackTheCodePagesTheConsoleHad()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleCP 437
+        mConsoleAPI.SetConsoleOutputCP 850
+        Dim c As New cConsole
+        c.EnableUTF8
+        c.DisableUTF8
+        Expect.AreEqual 437, mConsoleAPI.GetConsoleCP(), "input code page after DisableUTF8"
+        Expect.AreEqual 850, mConsoleAPI.GetConsoleOutputCP(), "output code page after DisableUTF8"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DisableUTF8_SetsTheSavedCodePagesWhateverTheyAreNow()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleCP 437
+        mConsoleAPI.SetConsoleOutputCP 850
+        Dim c As New cConsole
+        c.OutputCodePage = 1252
+        c.DisableUTF8
+        Expect.AreEqual 850, mConsoleAPI.GetConsoleOutputCP(), "output code page after DisableUTF8 when UTF-8 was never enabled"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteTo_Euro_IsStoredAsU20ACWhateverTheOutputCodePage()
+        Expect.Begin
+        Rig.Acquire
+        mConsoleAPI.SetConsoleOutputCP 437
+        Dim c As New cConsole
+        c.WriteTo ChrW$(&H20AC)
+        Expect.AreEqual &H20AC&, AscW(Rig.TextAt(Rig.OutHandle, 0, 0, 1)) And &HFFFF&, "cell 0 after writing a euro sign with the output code page 437"
+        c.EnableUTF8
+        c.WriteTo ChrW$(&H20AC)
+        Expect.AreEqual &H20AC&, AscW(Rig.TextAt(Rig.OutHandle, 1, 0, 1)) And &HFFFF&, "cell 1 after writing a euro sign with the output code page 65001"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- virtual terminal mode
+
+    [TestCase]
+    Public Sub EnableVirtualTerminal_ReturnsTrueAndAddsTheModeFlags()
+        Expect.Begin
+        Rig.Acquire
+        Dim inMode As Long = Rig.InMode()
+        Dim outMode As Long = Rig.OutMode()
+        Dim c As New cConsole
+        Expect.IsTrue c.EnableVirtualTerminal(), "EnableVirtualTerminal"
+        Expect.AreEqual outMode Or &H4&, Rig.OutMode(), "output mode (ENABLE_VIRTUAL_TERMINAL_PROCESSING added)"
+        Expect.AreEqual inMode Or &H200&, Rig.InMode(), "input mode (ENABLE_VIRTUAL_TERMINAL_INPUT added)"
+        Expect.IsTrue c.VirtualTerminalEnabled, "VirtualTerminalEnabled after EnableVirtualTerminal"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnableVirtualTerminal_SequencesOfMConsoleStyleChangeColours()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnableVirtualTerminal
+        c.WriteTo mConsoleStyle.FgRed & "x"
+        Expect.AreEqual "x", Rig.TextAt(Rig.OutHandle, 0, 0, 1), "cell 0 after FgRed and ""x"" with the mode on"
+        Expect.AreEqual 4, Rig.AttrAt(Rig.OutHandle, 0, 0), "attribute of cell 0 (ANSI red is the Windows red bit, 4)"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteTo_EscapeSequenceWithoutTheMode_AppearsAsText()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.WriteTo mConsoleStyle.FgRed & "x"
+        Expect.AreEqual 27, AscW(Rig.TextAt(Rig.OutHandle, 0, 0, 1)), "cell 0 holds the escape character when the mode is off"
+        Expect.AreEqual "[31mx", Rig.TextAt(Rig.OutHandle, 1, 0, 5), "the rest of the sequence is shown as text"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnableVirtualTerminal_Refused_ReturnsFalseAndChangesNothing()
+        Expect.Begin
+        Rig.Acquire
+        Rig.NoHandles
+        Dim c As New cConsole
+        Expect.IsFalse c.EnableVirtualTerminal(), "EnableVirtualTerminal on a handle that is not a console"
+        Expect.IsFalse c.VirtualTerminalEnabled, "VirtualTerminalEnabled"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DisableVirtualTerminal_PutsBackBothModesAndClearsTheFlag()
+        Expect.Begin
+        Rig.Acquire
+        Dim inMode As Long = Rig.InMode()
+        Dim outMode As Long = Rig.OutMode()
+        Dim c As New cConsole
+        c.EnableVirtualTerminal
+        c.DisableVirtualTerminal
+        Expect.AreEqual outMode, Rig.OutMode(), "output mode after DisableVirtualTerminal"
+        Expect.AreEqual inMode, Rig.InMode(), "input mode after DisableVirtualTerminal"
+        Expect.IsFalse c.VirtualTerminalEnabled, "VirtualTerminalEnabled after DisableVirtualTerminal"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DisableVirtualTerminal_AlsoUndoesOtherChangesOfTheInputMode()
+        Expect.Begin
+        Rig.Acquire
+        Dim inMode As Long = Rig.InMode()
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.OnMouseClick = AddressOf Sink.OnMouse
+        Expect.IsTrue Rig.InMode() <> inMode, "input mode after EnterFullScreenMode and OnMouseClick differs from the original"
+        c.DisableVirtualTerminal
+        Expect.AreEqual inMode, Rig.InMode(), "input mode after DisableVirtualTerminal"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub VirtualTerminalEnabled_IsFalseWhenTheConsoleHadTheModeOnAlready()
+        Expect.Begin
+        Rig.Acquire
+        Rig.SetOutMode Rig.OutMode() Or &H4&
+        Dim c As New cConsole
+        Expect.IsFalse c.VirtualTerminalEnabled, "VirtualTerminalEnabled before EnableVirtualTerminal"
+        c.EnableVirtualTerminal
+        Expect.IsTrue c.VirtualTerminalEnabled, "VirtualTerminalEnabled after EnableVirtualTerminal"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- the cursor
+
+    [TestCase]
+    Public Sub SetCursorPosition_MovesTheCursorCountedFromTheTopLeftOfTheScreenBuffer()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim p As ConsolePosition
+        c.SetCursorPosition 5, 3
+        p = c.GetCursorPosition()
+        Expect.AreEqual 5, p.Col, "Col of GetCursorPosition after SetCursorPosition 5, 3"
+        Expect.AreEqual 3, p.Row, "Row of GetCursorPosition after SetCursorPosition 5, 3"
+        Expect.AreEqual 5, Rig.CursorCol(Rig.OutHandle), "column of the console's cursor"
+        Expect.AreEqual 3, Rig.CursorRow(Rig.OutHandle), "row of the console's cursor"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetCursorPosition_ValueOutsideAnInteger_Raises6()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        On Error Resume Next
+        c.SetCursorPosition 70000, 0
+        Expect.AreEqual 6, Err.Number, "Err.Number of SetCursorPosition 70000, 0"
+        Err.Clear
+        c.SetCursorPosition 0, -70000
+        Expect.AreEqual 6, Err.Number, "Err.Number of SetCursorPosition 0, -70000"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetCursorPosition_OutsideTheScreenBuffer_IsRefusedWithoutAnError()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.SetCursorPosition 4, 2
+        On Error Resume Next
+        c.SetCursorPosition 5000, 5000
+        Expect.AreEqual 0, Err.Number, "Err.Number of SetCursorPosition 5000, 5000"
+        Expect.AreEqual 4, c.GetCursorPosition().Col, "Col after the refused call"
+        Expect.AreEqual 2, c.GetCursorPosition().Row, "Row after the refused call"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CursorVisible_ReadsTheConsoleEachTime()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim cci As mConsoleAPI.CONSOLE_CURSOR_INFO
+        Expect.IsTrue c.CursorVisible, "CursorVisible of a new screen buffer"
+        c.CursorVisible = False
+        Expect.IsFalse c.CursorVisible, "CursorVisible after it is set to False"
+        mConsoleAPI.GetConsoleCursorInfo Rig.OutHandle, cci
+        Expect.AreEqual 0, cci.bVisible, "bVisible of the console after CursorVisible = False"
+        cci.bVisible = 1
+        mConsoleAPI.SetConsoleCursorInfo Rig.OutHandle, cci
+        Expect.IsTrue c.CursorVisible, "CursorVisible after the console was changed behind the object"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CursorSize_IsKeptBetween1And100()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.CursorSize = 50
+        Expect.AreEqual 50, c.CursorSize, "CursorSize after it is set to 50"
+        c.CursorSize = 0
+        Expect.AreEqual 1, c.CursorSize, "CursorSize after it is set to 0"
+        c.CursorSize = -7
+        Expect.AreEqual 1, c.CursorSize, "CursorSize after it is set to -7"
+        c.CursorSize = 150
+        Expect.AreEqual 100, c.CursorSize, "CursorSize after it is set to 150"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- the size, Clear and ClearLine
+
+    [TestCase]
+    Public Sub GetSize_Width_Height_AreTheWindowNotTheScreenBuffer()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.SetBufferSize Rig.BufferWidth(), 300
+        Dim s As ConsoleSize
+        s = c.GetSize()
+        Expect.AreEqual Rig.WindowWidth(), s.Width, "Width of GetSize"
+        Expect.AreEqual Rig.WindowHeight(), s.Height, "Height of GetSize"
+        Expect.AreEqual s.Width, c.Width, "Width"
+        Expect.AreEqual s.Height, c.Height, "Height"
+        Expect.IsTrue c.Height <> 300, "Height is not the height of the screen buffer"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetBufferSize_IsTheWholeScreenBuffer()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.SetBufferSize Rig.BufferWidth(), 300
+        Dim s As ConsoleSize
+        s = c.GetBufferSize()
+        Expect.AreEqual Rig.BufferWidth(), s.Width, "Width of GetBufferSize"
+        Expect.AreEqual 300, s.Height, "Height of GetBufferSize after SetBufferSize"
+        Expect.AreEqual 300, Rig.BufferHeight(), "height of the console's screen buffer"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetBufferSize_ValueOutsideAnInteger_Raises6()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        On Error Resume Next
+        c.SetBufferSize 70000, 30
+        Expect.AreEqual 6, Err.Number, "Err.Number of SetBufferSize 70000, 30"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetBufferSize_SmallerThanTheWindow_IsRefusedWithoutAnError()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim w As Long = Rig.BufferWidth()
+        Dim h As Long = Rig.BufferHeight()
+        On Error Resume Next
+        c.SetBufferSize 10, 5
+        Expect.AreEqual 0, Err.Number, "Err.Number of SetBufferSize 10, 5"
+        Expect.AreEqual w, Rig.BufferWidth(), "width of the screen buffer after the refused call"
+        Expect.AreEqual h, Rig.BufferHeight(), "height of the screen buffer after the refused call"
+        On Error GoTo 0
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_FillsTheWholeScreenBufferInTheTrackedColoursAndHomesTheCursor()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PutText Rig.OutHandle, 3, 0, "text"
+        Rig.PutText Rig.OutHandle, 0, Rig.BufferHeight() - 1, "last row"
+        c.SetColors ConsoleColor.Yellow, ConsoleColor.DarkBlue
+        c.SetCursorPosition 9, 9
+        c.Clear
+        Expect.AreEqual "", Rig.RowText(0), "row 0 after Clear"
+        Expect.AreEqual "", Rig.RowText(Rig.BufferHeight() - 1), "last row of the screen buffer after Clear"
+        Expect.AreEqual &H1E&, Rig.AttrAt(Rig.OutHandle, 3, 0), "attribute of a cell in row 0 after Clear"
+        Expect.AreEqual &H1E&, Rig.AttrAt(Rig.OutHandle, Rig.BufferWidth() - 1, Rig.BufferHeight() - 1), "attribute of the last cell after Clear"
+        Expect.AreEqual 0, Rig.CursorCol(Rig.OutHandle), "column of the cursor after Clear"
+        Expect.AreEqual 0, Rig.CursorRow(Rig.OutHandle), "row of the cursor after Clear"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_InFullScreenMode_DoesNotClearTheBuffer()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        c.EnterFullScreenMode
+        c.Buffer.WriteAt 0, 0, "keep"
+        c.Clear
+        Expect.AreEqual "keep", c.Buffer.GetChar(0, 0).Char & c.Buffer.GetChar(1, 0).Char & c.Buffer.GetChar(2, 0).Char & c.Buffer.GetChar(3, 0).Char, "cells of the buffer after Clear of the console"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearLine_FillsFromTheCursorToTheEndOfTheLine_AndDoesNotMoveTheCursor()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Rig.PutText Rig.OutHandle, 0, 2, "abcdefgh"
+        c.SetColors ConsoleColor.Yellow, ConsoleColor.DarkBlue
+        c.SetCursorPosition 3, 2
+        c.ClearLine
+        Expect.AreEqual "abc", Rig.RowText(2), "row 2 after ClearLine from column 3"
+        Expect.AreEqual &H1E&, Rig.AttrAt(Rig.OutHandle, 5, 2), "attribute of a cleared cell"
+        Expect.AreEqual &H7&, Rig.AttrAt(Rig.OutHandle, 1, 2), "attribute of a cell left of the cursor"
+        Expect.AreEqual 3, Rig.CursorCol(Rig.OutHandle), "column of the cursor"
+        Expect.AreEqual 2, Rig.CursorRow(Rig.OutHandle), "row of the cursor"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    ' ---- the title and the window handle
+
+    [TestCase]
+    Public Sub Title_RoundTrip()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim old As String = c.Title
+        c.Title = "tbdocs package test"
+        Expect.AreEqual "tbdocs package test", c.Title, "Title after it is set"
+        c.Title = old
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Title_LongTitle_IsReturnedWithAtMost259Characters()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Dim old As String = c.Title
+        Dim t As String
+        c.Title = String$(300, "t")
+        t = c.Title
+        Expect.IsTrue Len(t) <= 259, "length of Title after a title of 300 characters is set (got " & Len(t) & ")"
+        Expect.AreEqual 0, InStr(t, vbNullChar), "position of a character with code 0 in that Title"
+        c.Title = old
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WindowHandle_IsTheConsoleWindowAtCreation()
+        Expect.Begin
+        Rig.Acquire
+        Dim c As New cConsole
+        Expect.AreEqual mConsoleAPI.GetConsoleWindow(), c.WindowHandle, "WindowHandle"
+        Set c = Nothing
+        Rig.Release
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/StyleTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/StyleTests.twin
new file mode 100644
index 00000000..8ce9a050
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/StyleTests.twin
@@ -0,0 +1,438 @@
+' TBMANLIB_ConsoleCore: the escape sequences of mConsoleStyle, and its character constants.
+[TestFixture]
+Module StyleTests
+
+    Private Function Csi(ByVal Tail As String) As String
+        Csi = Chr$(27) & "[" & Tail
+    End Function
+
+    Private Function Code(ByVal S As String) As String
+        ' The code point of a one-character constant, as hex, or "len N" when it is not one character.
+        If Len(S) <> 1 Then
+            Code = "len " & Len(S)
+        Else
+            Code = Hex$(AscW(S) And &HFFFF&)
+        End If
+    End Function
+
+    [TestCase]
+    Public Sub Cursor_MovementSequences()
+        Expect.Begin
+        Expect.AreEqual Csi("3A"), mConsoleStyle.CursorUp(3), "CursorUp(3)"
+        Expect.AreEqual Csi("3B"), mConsoleStyle.CursorDown(3), "CursorDown(3)"
+        Expect.AreEqual Csi("3C"), mConsoleStyle.CursorForward(3), "CursorForward(3)"
+        Expect.AreEqual Csi("3D"), mConsoleStyle.CursorBack(3), "CursorBack(3)"
+        Expect.AreEqual Csi("3E"), mConsoleStyle.CursorNextLine(3), "CursorNextLine(3)"
+        Expect.AreEqual Csi("3F"), mConsoleStyle.CursorPrevLine(3), "CursorPrevLine(3)"
+        Expect.AreEqual Csi("7G"), mConsoleStyle.CursorColumn(7), "CursorColumn(7)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Cursor_CountDefaultsToOne()
+        Expect.Begin
+        Expect.AreEqual Csi("1A"), mConsoleStyle.CursorUp(), "CursorUp()"
+        Expect.AreEqual Csi("1B"), mConsoleStyle.CursorDown(), "CursorDown()"
+        Expect.AreEqual Csi("1C"), mConsoleStyle.CursorForward(), "CursorForward()"
+        Expect.AreEqual Csi("1D"), mConsoleStyle.CursorBack(), "CursorBack()"
+        Expect.AreEqual Csi("1E"), mConsoleStyle.CursorNextLine(), "CursorNextLine()"
+        Expect.AreEqual Csi("1F"), mConsoleStyle.CursorPrevLine(), "CursorPrevLine()"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Cursor_NumbersAreNotChecked()
+        Expect.Begin
+        Expect.AreEqual Csi("-2A"), mConsoleStyle.CursorUp(-2), "CursorUp(-2)"
+        Expect.AreEqual Csi("0B"), mConsoleStyle.CursorDown(0), "CursorDown(0)"
+        Expect.AreEqual Csi("0;-1H"), mConsoleStyle.CursorPosition(0, -1), "CursorPosition(0, -1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Cursor_PositionTakesTheRowFirst()
+        Expect.Begin
+        Expect.AreEqual Csi("5;10H"), mConsoleStyle.CursorPosition(5, 10), "CursorPosition(5, 10)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Cursor_SaveRestoreHideShowSequences()
+        Expect.Begin
+        Expect.AreEqual Csi("s"), mConsoleStyle.CursorSave(), "CursorSave"
+        Expect.AreEqual Csi("u"), mConsoleStyle.CursorRestore(), "CursorRestore"
+        Expect.AreEqual Csi("?25l"), mConsoleStyle.CursorHide(), "CursorHide"
+        Expect.AreEqual Csi("?25h"), mConsoleStyle.CursorShow(), "CursorShow"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_SequencesAndDefaultMode()
+        Expect.Begin
+        Expect.AreEqual Csi("2J"), mConsoleStyle.ClearScreen(), "ClearScreen()"
+        Expect.AreEqual Csi("0J"), mConsoleStyle.ClearScreen(0), "ClearScreen(0)"
+        Expect.AreEqual Csi("1J"), mConsoleStyle.ClearScreen(1), "ClearScreen(1)"
+        Expect.AreEqual Csi("3J"), mConsoleStyle.ClearScreen(3), "ClearScreen(3)"
+        Expect.AreEqual Csi("2K"), mConsoleStyle.ClearLine(), "ClearLine()"
+        Expect.AreEqual Csi("0K"), mConsoleStyle.ClearLine(0), "ClearLine(0)"
+        Expect.AreEqual Csi("1K"), mConsoleStyle.ClearLine(1), "ClearLine(1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TextStyle_Sequences()
+        Expect.Begin
+        Expect.AreEqual Csi("0m"), mConsoleStyle.Reset(), "Reset"
+        Expect.AreEqual Csi("1m"), mConsoleStyle.Bold(), "Bold"
+        Expect.AreEqual Csi("2m"), mConsoleStyle.Dim_(), "Dim_"
+        Expect.AreEqual Csi("3m"), mConsoleStyle.Italic(), "Italic"
+        Expect.AreEqual Csi("4m"), mConsoleStyle.Underline(), "Underline"
+        Expect.AreEqual Csi("5m"), mConsoleStyle.Blink(), "Blink"
+        Expect.AreEqual Csi("7m"), mConsoleStyle.Reverse(), "Reverse"
+        Expect.AreEqual Csi("8m"), mConsoleStyle.Hidden(), "Hidden"
+        Expect.AreEqual Csi("9m"), mConsoleStyle.Strikethrough(), "Strikethrough"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Foreground_ColourCodes()
+        Expect.Begin
+        Expect.AreEqual Csi("30m"), mConsoleStyle.FgBlack(), "FgBlack"
+        Expect.AreEqual Csi("31m"), mConsoleStyle.FgRed(), "FgRed"
+        Expect.AreEqual Csi("32m"), mConsoleStyle.FgGreen(), "FgGreen"
+        Expect.AreEqual Csi("33m"), mConsoleStyle.FgYellow(), "FgYellow"
+        Expect.AreEqual Csi("34m"), mConsoleStyle.FgBlue(), "FgBlue"
+        Expect.AreEqual Csi("35m"), mConsoleStyle.FgMagenta(), "FgMagenta"
+        Expect.AreEqual Csi("36m"), mConsoleStyle.FgCyan(), "FgCyan"
+        Expect.AreEqual Csi("37m"), mConsoleStyle.FgWhite(), "FgWhite"
+        Expect.AreEqual Csi("39m"), mConsoleStyle.FgDefault(), "FgDefault"
+        Expect.AreEqual Csi("90m"), mConsoleStyle.FgBrightBlack(), "FgBrightBlack"
+        Expect.AreEqual Csi("91m"), mConsoleStyle.FgBrightRed(), "FgBrightRed"
+        Expect.AreEqual Csi("92m"), mConsoleStyle.FgBrightGreen(), "FgBrightGreen"
+        Expect.AreEqual Csi("93m"), mConsoleStyle.FgBrightYellow(), "FgBrightYellow"
+        Expect.AreEqual Csi("94m"), mConsoleStyle.FgBrightBlue(), "FgBrightBlue"
+        Expect.AreEqual Csi("95m"), mConsoleStyle.FgBrightMagenta(), "FgBrightMagenta"
+        Expect.AreEqual Csi("96m"), mConsoleStyle.FgBrightCyan(), "FgBrightCyan"
+        Expect.AreEqual Csi("97m"), mConsoleStyle.FgBrightWhite(), "FgBrightWhite"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Background_ColourCodes()
+        Expect.Begin
+        Expect.AreEqual Csi("40m"), mConsoleStyle.BgBlack(), "BgBlack"
+        Expect.AreEqual Csi("41m"), mConsoleStyle.BgRed(), "BgRed"
+        Expect.AreEqual Csi("42m"), mConsoleStyle.BgGreen(), "BgGreen"
+        Expect.AreEqual Csi("43m"), mConsoleStyle.BgYellow(), "BgYellow"
+        Expect.AreEqual Csi("44m"), mConsoleStyle.BgBlue(), "BgBlue"
+        Expect.AreEqual Csi("45m"), mConsoleStyle.BgMagenta(), "BgMagenta"
+        Expect.AreEqual Csi("46m"), mConsoleStyle.BgCyan(), "BgCyan"
+        Expect.AreEqual Csi("47m"), mConsoleStyle.BgWhite(), "BgWhite"
+        Expect.AreEqual Csi("49m"), mConsoleStyle.BgDefault(), "BgDefault"
+        Expect.AreEqual Csi("100m"), mConsoleStyle.BgBrightBlack(), "BgBrightBlack"
+        Expect.AreEqual Csi("101m"), mConsoleStyle.BgBrightRed(), "BgBrightRed"
+        Expect.AreEqual Csi("102m"), mConsoleStyle.BgBrightGreen(), "BgBrightGreen"
+        Expect.AreEqual Csi("103m"), mConsoleStyle.BgBrightYellow(), "BgBrightYellow"
+        Expect.AreEqual Csi("104m"), mConsoleStyle.BgBrightBlue(), "BgBrightBlue"
+        Expect.AreEqual Csi("105m"), mConsoleStyle.BgBrightMagenta(), "BgBrightMagenta"
+        Expect.AreEqual Csi("106m"), mConsoleStyle.BgBrightCyan(), "BgBrightCyan"
+        Expect.AreEqual Csi("107m"), mConsoleStyle.BgBrightWhite(), "BgBrightWhite"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Palette_And_TrueColourSequences()
+        Expect.Begin
+        Expect.AreEqual Csi("38;5;200m"), mConsoleStyle.Fg256(200), "Fg256(200)"
+        Expect.AreEqual Csi("48;5;17m"), mConsoleStyle.Bg256(17), "Bg256(17)"
+        Expect.AreEqual Csi("38;2;255;128;0m"), mConsoleStyle.FgRGB(255, 128, 0), "FgRGB(255, 128, 0)"
+        Expect.AreEqual Csi("48;2;0;0;64m"), mConsoleStyle.BgRGB(0, 0, 64), "BgRGB(0, 0, 64)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Palette_NumbersAreNotChecked()
+        Expect.Begin
+        Expect.AreEqual Csi("38;5;999m"), mConsoleStyle.Fg256(999), "Fg256(999)"
+        Expect.AreEqual Csi("48;2;300;-1;0m"), mConsoleStyle.BgRGB(300, -1, 0), "BgRGB(300, -1, 0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Scroll_Sequences()
+        Expect.Begin
+        Expect.AreEqual Csi("1S"), mConsoleStyle.ScrollUp(), "ScrollUp()"
+        Expect.AreEqual Csi("4S"), mConsoleStyle.ScrollUp(4), "ScrollUp(4)"
+        Expect.AreEqual Csi("1T"), mConsoleStyle.ScrollDown(), "ScrollDown()"
+        Expect.AreEqual Csi("4T"), mConsoleStyle.ScrollDown(4), "ScrollDown(4)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetTitle_Sequence()
+        Expect.Begin
+        Expect.AreEqual Chr$(27) & "]0;My title" & Chr$(7), mConsoleStyle.SetTitle("My title"), "SetTitle(""My title"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AltScreen_Sequences()
+        Expect.Begin
+        Expect.AreEqual Csi("?1049h"), mConsoleStyle.AltScreenOn(), "AltScreenOn"
+        Expect.AreEqual Csi("?1049l"), mConsoleStyle.AltScreenOff(), "AltScreenOff"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Hyperlink_Sequence()
+        Expect.Begin
+        Expect.AreEqual Chr$(27) & "]8;;http://x.test/" & Chr$(7) & "label" & Chr$(27) & "]8;;" & Chr$(7), mConsoleStyle.Hyperlink("http://x.test/", "label"), "Hyperlink(""http://x.test/"", ""label"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Styled_WrapsTextInStyleAndReset()
+        Expect.Begin
+        Expect.AreEqual Csi("1m") & Csi("36m") & "text" & Csi("0m"), mConsoleStyle.Styled("text", mConsoleStyle.Bold & mConsoleStyle.FgCyan), "Styled(""text"", Bold & FgCyan)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Colored_ForegroundOnly()
+        Expect.Begin
+        Expect.AreEqual Csi("31m") & "Hi" & Csi("0m"), mConsoleStyle.Colored("Hi", mConsoleStyle.FgRed), "Colored(""Hi"", FgRed)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Colored_WithBackground()
+        Expect.Begin
+        Expect.AreEqual Csi("31m") & Csi("44m") & "Hi" & Csi("0m"), mConsoleStyle.Colored("Hi", mConsoleStyle.FgRed, mConsoleStyle.BgBlue), "Colored(""Hi"", FgRed, BgBlue)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Colored_DoesNotCheckThatTheStringsAreColours()
+        Expect.Begin
+        Expect.AreEqual "ab" & "cd" & Csi("0m"), mConsoleStyle.Colored("cd", "a", "b"), "Colored(""cd"", ""a"", ""b"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ColoredRGB_ForegroundOnly()
+        Expect.Begin
+        Expect.AreEqual Csi("38;2;255;128;0m") & "Hi" & Csi("0m"), mConsoleStyle.ColoredRGB("Hi", 255, 128, 0), "ColoredRGB(""Hi"", 255, 128, 0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ColoredRGB_WithBackground()
+        Expect.Begin
+        Expect.AreEqual Csi("38;2;255;128;0m") & Csi("48;2;0;0;64m") & "Hi" & Csi("0m"), mConsoleStyle.ColoredRGB("Hi", 255, 128, 0, 0, 0, 64), "ColoredRGB(""Hi"", 255, 128, 0, 0, 0, 64)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ColoredRGB_BackgroundNeedsAllThreeValues()
+        Expect.Begin
+        Expect.AreEqual Csi("38;2;1;2;3m") & "Hi" & Csi("0m"), mConsoleStyle.ColoredRGB("Hi", 1, 2, 3, 10, 20), "ColoredRGB(""Hi"", 1, 2, 3, 10, 20)"
+        Expect.AreEqual Csi("38;2;1;2;3m") & Csi("48;2;0;0;0m") & "Hi" & Csi("0m"), mConsoleStyle.ColoredRGB("Hi", 1, 2, 3, 0, 0, 0), "ColoredRGB(""Hi"", 1, 2, 3, 0, 0, 0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Characters_BoxDrawing()
+        Expect.Begin
+        Expect.AreEqual "2500", Code(mConsoleStyle.BOX_HORIZONTAL), "BOX_HORIZONTAL"
+        Expect.AreEqual "2502", Code(mConsoleStyle.BOX_VERTICAL), "BOX_VERTICAL"
+        Expect.AreEqual "250C", Code(mConsoleStyle.BOX_TOP_LEFT), "BOX_TOP_LEFT"
+        Expect.AreEqual "2510", Code(mConsoleStyle.BOX_TOP_RIGHT), "BOX_TOP_RIGHT"
+        Expect.AreEqual "2514", Code(mConsoleStyle.BOX_BOTTOM_LEFT), "BOX_BOTTOM_LEFT"
+        Expect.AreEqual "2518", Code(mConsoleStyle.BOX_BOTTOM_RIGHT), "BOX_BOTTOM_RIGHT"
+        Expect.AreEqual "251C", Code(mConsoleStyle.BOX_T_LEFT), "BOX_T_LEFT"
+        Expect.AreEqual "2524", Code(mConsoleStyle.BOX_T_RIGHT), "BOX_T_RIGHT"
+        Expect.AreEqual "252C", Code(mConsoleStyle.BOX_T_TOP), "BOX_T_TOP"
+        Expect.AreEqual "2534", Code(mConsoleStyle.BOX_T_BOTTOM), "BOX_T_BOTTOM"
+        Expect.AreEqual "253C", Code(mConsoleStyle.BOX_CROSS), "BOX_CROSS"
+        Expect.AreEqual "2550", Code(mConsoleStyle.BOX_D_HORIZONTAL), "BOX_D_HORIZONTAL"
+        Expect.AreEqual "2551", Code(mConsoleStyle.BOX_D_VERTICAL), "BOX_D_VERTICAL"
+        Expect.AreEqual "2554", Code(mConsoleStyle.BOX_D_TOP_LEFT), "BOX_D_TOP_LEFT"
+        Expect.AreEqual "2557", Code(mConsoleStyle.BOX_D_TOP_RIGHT), "BOX_D_TOP_RIGHT"
+        Expect.AreEqual "255A", Code(mConsoleStyle.BOX_D_BOTTOM_LEFT), "BOX_D_BOTTOM_LEFT"
+        Expect.AreEqual "255D", Code(mConsoleStyle.BOX_D_BOTTOM_RIGHT), "BOX_D_BOTTOM_RIGHT"
+        Expect.AreEqual "2560", Code(mConsoleStyle.BOX_D_T_LEFT), "BOX_D_T_LEFT"
+        Expect.AreEqual "2563", Code(mConsoleStyle.BOX_D_T_RIGHT), "BOX_D_T_RIGHT"
+        Expect.AreEqual "2566", Code(mConsoleStyle.BOX_D_T_TOP), "BOX_D_T_TOP"
+        Expect.AreEqual "2569", Code(mConsoleStyle.BOX_D_T_BOTTOM), "BOX_D_T_BOTTOM"
+        Expect.AreEqual "256C", Code(mConsoleStyle.BOX_D_CROSS), "BOX_D_CROSS"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Characters_BlocksProgressAndArrows()
+        Expect.Begin
+        Expect.AreEqual "2588", Code(mConsoleStyle.BLOCK_FULL), "BLOCK_FULL"
+        Expect.AreEqual "2580", Code(mConsoleStyle.BLOCK_UPPER_HALF), "BLOCK_UPPER_HALF"
+        Expect.AreEqual "2584", Code(mConsoleStyle.BLOCK_LOWER_HALF), "BLOCK_LOWER_HALF"
+        Expect.AreEqual "258C", Code(mConsoleStyle.BLOCK_LEFT_HALF), "BLOCK_LEFT_HALF"
+        Expect.AreEqual "2590", Code(mConsoleStyle.BLOCK_RIGHT_HALF), "BLOCK_RIGHT_HALF"
+        Expect.AreEqual "2591", Code(mConsoleStyle.BLOCK_LIGHT), "BLOCK_LIGHT"
+        Expect.AreEqual "2592", Code(mConsoleStyle.BLOCK_MEDIUM), "BLOCK_MEDIUM"
+        Expect.AreEqual "2593", Code(mConsoleStyle.BLOCK_DARK), "BLOCK_DARK"
+        Expect.AreEqual "2588", Code(mConsoleStyle.PROGRESS_FILLED), "PROGRESS_FILLED"
+        Expect.AreEqual "2591", Code(mConsoleStyle.PROGRESS_EMPTY), "PROGRESS_EMPTY"
+        Expect.AreEqual "2191", Code(mConsoleStyle.ARROW_UP), "ARROW_UP"
+        Expect.AreEqual "2193", Code(mConsoleStyle.ARROW_DOWN), "ARROW_DOWN"
+        Expect.AreEqual "2190", Code(mConsoleStyle.ARROW_LEFT), "ARROW_LEFT"
+        Expect.AreEqual "2192", Code(mConsoleStyle.ARROW_RIGHT), "ARROW_RIGHT"
+        Expect.AreEqual "2195", Code(mConsoleStyle.ARROW_UP_DOWN), "ARROW_UP_DOWN"
+        Expect.AreEqual "2194", Code(mConsoleStyle.ARROW_LEFT_RIGHT), "ARROW_LEFT_RIGHT"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Characters_Symbols()
+        Expect.Begin
+        Expect.AreEqual "2713", Code(mConsoleStyle.CHECK_MARK), "CHECK_MARK"
+        Expect.AreEqual "2717", Code(mConsoleStyle.CROSS_MARK), "CROSS_MARK"
+        Expect.AreEqual "2022", Code(mConsoleStyle.BULLET), "BULLET"
+        Expect.AreEqual "25C6", Code(mConsoleStyle.DIAMOND), "DIAMOND"
+        Expect.AreEqual "25CF", Code(mConsoleStyle.CIRCLE), "CIRCLE"
+        Expect.AreEqual "25CB", Code(mConsoleStyle.CIRCLE_EMPTY), "CIRCLE_EMPTY"
+        Expect.AreEqual "25A0", Code(mConsoleStyle.SQUARE), "SQUARE"
+        Expect.AreEqual "25A1", Code(mConsoleStyle.SQUARE_EMPTY), "SQUARE_EMPTY"
+        Expect.AreEqual "2605", Code(mConsoleStyle.STAR), "STAR"
+        Expect.AreEqual "2606", Code(mConsoleStyle.STAR_EMPTY), "STAR_EMPTY"
+        Expect.Done
+    End Sub
+
+    ' ---- the text helpers
+
+    [TestCase]
+    Public Sub CenterText_OddPaddingGivesTheExtraCharacterToTheRight()
+        Expect.Begin
+        Expect.AreEqual " ab  ", mConsoleStyle.CenterText("ab", 5), "CenterText(""ab"", 5)"
+        Expect.AreEqual "  ab  ", mConsoleStyle.CenterText("ab", 6), "CenterText(""ab"", 6)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CenterText_FillCharacterPads()
+        Expect.Begin
+        Expect.AreEqual "-ab--", mConsoleStyle.CenterText("ab", 5, "-"), "CenterText(""ab"", 5, ""-"")"
+        Expect.AreEqual "-ab--", mConsoleStyle.CenterText("ab", 5, "-+"), "CenterText(""ab"", 5, ""-+"") uses the first character of the fill"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CenterText_LongTextIsCutToTheWidth()
+        Expect.Begin
+        Expect.AreEqual "abc", mConsoleStyle.CenterText("abcdef", 3), "CenterText(""abcdef"", 3)"
+        Expect.AreEqual "abc", mConsoleStyle.CenterText("abc", 3), "CenterText(""abc"", 3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LeftAlign_PadsOnTheRightAndCutsLongText()
+        Expect.Begin
+        Expect.AreEqual "ab...", mConsoleStyle.LeftAlign("ab", 5, "."), "LeftAlign(""ab"", 5, ""."")"
+        Expect.AreEqual "ab   ", mConsoleStyle.LeftAlign("ab", 5), "LeftAlign(""ab"", 5)"
+        Expect.AreEqual "abc", mConsoleStyle.LeftAlign("abcdef", 3), "LeftAlign(""abcdef"", 3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RightAlign_PadsOnTheLeftAndCutsToTheFirstCharacters()
+        Expect.Begin
+        Expect.AreEqual "...ab", mConsoleStyle.RightAlign("ab", 5, "."), "RightAlign(""ab"", 5, ""."")"
+        Expect.AreEqual "   ab", mConsoleStyle.RightAlign("ab", 5), "RightAlign(""ab"", 5)"
+        Expect.AreEqual "abc", mConsoleStyle.RightAlign("abcdef", 3), "RightAlign(""abcdef"", 3) keeps the first characters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Truncate_ShortTextIsReturnedWhole()
+        Expect.Begin
+        Expect.AreEqual "abc", mConsoleStyle.Truncate("abc", 3), "Truncate(""abc"", 3)"
+        Expect.AreEqual "abc", mConsoleStyle.Truncate("abc", 10), "Truncate(""abc"", 10)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Truncate_LongTextGetsTheEllipsis()
+        Expect.Begin
+        Expect.AreEqual "abcd...", mConsoleStyle.Truncate("abcdefghij", 7), "Truncate(""abcdefghij"", 7)"
+        Expect.AreEqual "abcdef>", mConsoleStyle.Truncate("abcdefghij", 7, ">"), "Truncate(""abcdefghij"", 7, "">"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Truncate_WidthNotLargerThanTheEllipsis_ReturnsTheStartOfTheEllipsis()
+        Expect.Begin
+        Expect.AreEqual "..", mConsoleStyle.Truncate("abcdefghij", 2), "Truncate(""abcdefghij"", 2)"
+        Expect.AreEqual "...", mConsoleStyle.Truncate("abcdefghij", 3), "Truncate(""abcdefghij"", 3)"
+        Expect.AreEqual "", mConsoleStyle.Truncate("abcdefghij", 0), "Truncate(""abcdefghij"", 0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WordWrap_BreaksAtSpaces()
+        Expect.Begin
+        Expect.AreEqual "one two" & vbLf & "three" & vbLf & "four", mConsoleStyle.WordWrap("one two three four", 9), "WordWrap(""one two three four"", 9)"
+        Expect.AreEqual "one two three four", mConsoleStyle.WordWrap("one two three four", 40), "WordWrap(""one two three four"", 40)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WordWrap_LongWordIsNotBroken()
+        Expect.Begin
+        Expect.AreEqual "abcdefghijkl" & vbLf & "x", mConsoleStyle.WordWrap("abcdefghijkl x", 5), "WordWrap(""abcdefghijkl x"", 5)"
+        Expect.AreEqual "a" & vbLf & "abcdefghijkl" & vbLf & "b", mConsoleStyle.WordWrap("a abcdefghijkl b", 5), "WordWrap(""a abcdefghijkl b"", 5)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WordWrap_LineBreaksInsideTheTextBelongToTheWord()
+        Expect.Begin
+        Expect.AreEqual "a" & vbLf & "b" & vbLf & "c", mConsoleStyle.WordWrap("a" & vbLf & "b c", 3), "WordWrap(""a"" & vbLf & ""b c"", 3)"
+        Expect.AreEqual "a" & vbLf & "b c", mConsoleStyle.WordWrap("a" & vbLf & "b c", 10), "WordWrap(""a"" & vbLf & ""b c"", 10) keeps the line feed inside the word"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StripAnsi_RemovesColourAndStyleSequences()
+        Expect.Begin
+        Expect.AreEqual "Hello", mConsoleStyle.StripAnsi(mConsoleStyle.Colored("Hello", mConsoleStyle.FgRed)), "StripAnsi of Colored(""Hello"", FgRed)"
+        Expect.AreEqual "Hi there", mConsoleStyle.StripAnsi(mConsoleStyle.Bold & "Hi" & mConsoleStyle.Reset & " there"), "StripAnsi of Bold text"
+        Expect.AreEqual "ab", mConsoleStyle.StripAnsi(mConsoleStyle.CursorUp(2) & "a" & mConsoleStyle.ClearLine() & "b"), "StripAnsi of cursor and clear sequences that end in A and K"
+        Expect.AreEqual "plain", mConsoleStyle.StripAnsi("plain"), "StripAnsi of text with no sequence"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StripAnsi_SequenceEndingInAnotherLetter_KeepsTheTextAfterIt()
+        Expect.Begin
+        Expect.AreEqual "Hello", mConsoleStyle.StripAnsi(mConsoleStyle.CursorHide & "Hello"), "StripAnsi of CursorHide & ""Hello"""
+        Expect.AreEqual "xyz", mConsoleStyle.StripAnsi(mConsoleStyle.CursorSave & "xyz"), "StripAnsi of CursorSave & ""xyz"""
+        Expect.AreEqual "ok text", mConsoleStyle.StripAnsi(mConsoleStyle.SetTitle("t") & "ok text"), "StripAnsi of SetTitle(""t"") & ""ok text"""
+        Expect.AreEqual "line two", mConsoleStyle.StripAnsi(mConsoleStyle.CursorNextLine & "line two"), "StripAnsi of CursorNextLine & ""line two"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RepeatStr_OneCharacterIsRepeated()
+        Expect.Begin
+        Expect.AreEqual "xxx", mConsoleStyle.RepeatStr("x", 3), "RepeatStr(""x"", 3)"
+        Expect.AreEqual "", mConsoleStyle.RepeatStr("x", 0), "RepeatStr(""x"", 0)"
+        Expect.AreEqual "", mConsoleStyle.RepeatStr("x", -4), "RepeatStr(""x"", -4)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RepeatStr_LongerStringIsRepeatedWhole()
+        Expect.Begin
+        Expect.AreEqual "ababab", mConsoleStyle.RepeatStr("ab", 3), "RepeatStr(""ab"", 3)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/Sources/TypesTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/Sources/TypesTests.twin
new file mode 100644
index 00000000..7e6802bc
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/Sources/TypesTests.twin
@@ -0,0 +1,205 @@
+' TBMANLIB_ConsoleCore: the enumerations, structures and helper functions of the Types page.
+[TestFixture]
+Module TypesTests
+
+    [TestCase]
+    Public Sub ConsoleColor_Values()
+        Expect.Begin
+        Expect.AreEqual 0, CLng(ConsoleColor.Black), "ConsoleColor.Black"
+        Expect.AreEqual 1, CLng(ConsoleColor.DarkBlue), "ConsoleColor.DarkBlue"
+        Expect.AreEqual 2, CLng(ConsoleColor.DarkGreen), "ConsoleColor.DarkGreen"
+        Expect.AreEqual 3, CLng(ConsoleColor.DarkCyan), "ConsoleColor.DarkCyan"
+        Expect.AreEqual 4, CLng(ConsoleColor.DarkRed), "ConsoleColor.DarkRed"
+        Expect.AreEqual 5, CLng(ConsoleColor.DarkMagenta), "ConsoleColor.DarkMagenta"
+        Expect.AreEqual 6, CLng(ConsoleColor.DarkYellow), "ConsoleColor.DarkYellow"
+        Expect.AreEqual 7, CLng(ConsoleColor.Gray), "ConsoleColor.Gray"
+        Expect.AreEqual 8, CLng(ConsoleColor.DarkGray), "ConsoleColor.DarkGray"
+        Expect.AreEqual 9, CLng(ConsoleColor.Blue), "ConsoleColor.Blue"
+        Expect.AreEqual 10, CLng(ConsoleColor.Green), "ConsoleColor.Green"
+        Expect.AreEqual 11, CLng(ConsoleColor.Cyan), "ConsoleColor.Cyan"
+        Expect.AreEqual 12, CLng(ConsoleColor.Red), "ConsoleColor.Red"
+        Expect.AreEqual 13, CLng(ConsoleColor.Magenta), "ConsoleColor.Magenta"
+        Expect.AreEqual 14, CLng(ConsoleColor.Yellow), "ConsoleColor.Yellow"
+        Expect.AreEqual 15, CLng(ConsoleColor.White), "ConsoleColor.White"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleColorAttribute_ForegroundInTheLowFourBitsBackgroundInTheNext()
+        Expect.Begin
+        Expect.AreEqual &H1E&, CLng(mConsoleAPI.ColorAttribute(ConsoleColor.Yellow, ConsoleColor.DarkBlue)), "ColorAttribute(Yellow, DarkBlue)"
+        Expect.AreEqual &H7&, CLng(mConsoleAPI.ColorAttribute(ConsoleColor.Gray, ConsoleColor.Black)), "ColorAttribute(Gray, Black)"
+        Expect.AreEqual &HF0&, CLng(mConsoleAPI.ColorAttribute(ConsoleColor.Black, ConsoleColor.White)), "ColorAttribute(Black, White)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleKey_Values()
+        Expect.Begin
+        Expect.AreEqual 13, CLng(ConsoleKey.KeyEnter), "ConsoleKey.KeyEnter"
+        Expect.AreEqual 27, CLng(ConsoleKey.KeyEscape), "ConsoleKey.KeyEscape"
+        Expect.AreEqual 32, CLng(ConsoleKey.KeySpace), "ConsoleKey.KeySpace"
+        Expect.AreEqual 8, CLng(ConsoleKey.KeyBackspace), "ConsoleKey.KeyBackspace"
+        Expect.AreEqual 9, CLng(ConsoleKey.KeyTab), "ConsoleKey.KeyTab"
+        Expect.AreEqual 72, CLng(ConsoleKey.KeyUp), "ConsoleKey.KeyUp"
+        Expect.AreEqual 80, CLng(ConsoleKey.KeyDown), "ConsoleKey.KeyDown"
+        Expect.AreEqual 75, CLng(ConsoleKey.KeyLeft), "ConsoleKey.KeyLeft"
+        Expect.AreEqual 77, CLng(ConsoleKey.KeyRight), "ConsoleKey.KeyRight"
+        Expect.AreEqual 71, CLng(ConsoleKey.KeyHome), "ConsoleKey.KeyHome"
+        Expect.AreEqual 79, CLng(ConsoleKey.KeyEnd), "ConsoleKey.KeyEnd"
+        Expect.AreEqual 73, CLng(ConsoleKey.KeyPageUp), "ConsoleKey.KeyPageUp"
+        Expect.AreEqual 81, CLng(ConsoleKey.KeyPageDown), "ConsoleKey.KeyPageDown"
+        Expect.AreEqual 82, CLng(ConsoleKey.KeyInsert), "ConsoleKey.KeyInsert"
+        Expect.AreEqual 83, CLng(ConsoleKey.KeyDelete), "ConsoleKey.KeyDelete"
+        Expect.AreEqual 59, CLng(ConsoleKey.KeyF1), "ConsoleKey.KeyF1"
+        Expect.AreEqual 60, CLng(ConsoleKey.KeyF2), "ConsoleKey.KeyF2"
+        Expect.AreEqual 61, CLng(ConsoleKey.KeyF3), "ConsoleKey.KeyF3"
+        Expect.AreEqual 62, CLng(ConsoleKey.KeyF4), "ConsoleKey.KeyF4"
+        Expect.AreEqual 63, CLng(ConsoleKey.KeyF5), "ConsoleKey.KeyF5"
+        Expect.AreEqual 64, CLng(ConsoleKey.KeyF6), "ConsoleKey.KeyF6"
+        Expect.AreEqual 65, CLng(ConsoleKey.KeyF7), "ConsoleKey.KeyF7"
+        Expect.AreEqual 66, CLng(ConsoleKey.KeyF8), "ConsoleKey.KeyF8"
+        Expect.AreEqual 67, CLng(ConsoleKey.KeyF9), "ConsoleKey.KeyF9"
+        Expect.AreEqual 68, CLng(ConsoleKey.KeyF10), "ConsoleKey.KeyF10"
+        Expect.AreEqual 133, CLng(ConsoleKey.KeyF11), "ConsoleKey.KeyF11"
+        Expect.AreEqual 134, CLng(ConsoleKey.KeyF12), "ConsoleKey.KeyF12"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleKey_FirstFiveMembersAreVirtualKeyCodes()
+        Expect.Begin
+        Expect.AreEqual CLng(vbKeyReturn), CLng(ConsoleKey.KeyEnter), "ConsoleKey.KeyEnter against vbKeyReturn"
+        Expect.AreEqual CLng(vbKeyEscape), CLng(ConsoleKey.KeyEscape), "ConsoleKey.KeyEscape against vbKeyEscape"
+        Expect.AreEqual CLng(vbKeySpace), CLng(ConsoleKey.KeySpace), "ConsoleKey.KeySpace against vbKeySpace"
+        Expect.AreEqual CLng(vbKeyBack), CLng(ConsoleKey.KeyBackspace), "ConsoleKey.KeyBackspace against vbKeyBack"
+        Expect.AreEqual CLng(vbKeyTab), CLng(ConsoleKey.KeyTab), "ConsoleKey.KeyTab against vbKeyTab"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleKey_NavigationAndFunctionMembersAreVirtualKeyCodes()
+        ' The members of the other keys should be the codes ReadKey returns for them.
+        Expect.Begin
+        Expect.AreEqual CLng(vbKeyUp), CLng(ConsoleKey.KeyUp), "ConsoleKey.KeyUp against vbKeyUp"
+        Expect.AreEqual CLng(vbKeyDown), CLng(ConsoleKey.KeyDown), "ConsoleKey.KeyDown against vbKeyDown"
+        Expect.AreEqual CLng(vbKeyLeft), CLng(ConsoleKey.KeyLeft), "ConsoleKey.KeyLeft against vbKeyLeft"
+        Expect.AreEqual CLng(vbKeyRight), CLng(ConsoleKey.KeyRight), "ConsoleKey.KeyRight against vbKeyRight"
+        Expect.AreEqual CLng(vbKeyHome), CLng(ConsoleKey.KeyHome), "ConsoleKey.KeyHome against vbKeyHome"
+        Expect.AreEqual CLng(vbKeyEnd), CLng(ConsoleKey.KeyEnd), "ConsoleKey.KeyEnd against vbKeyEnd"
+        Expect.AreEqual CLng(vbKeyPageUp), CLng(ConsoleKey.KeyPageUp), "ConsoleKey.KeyPageUp against vbKeyPageUp"
+        Expect.AreEqual CLng(vbKeyPageDown), CLng(ConsoleKey.KeyPageDown), "ConsoleKey.KeyPageDown against vbKeyPageDown"
+        Expect.AreEqual CLng(vbKeyInsert), CLng(ConsoleKey.KeyInsert), "ConsoleKey.KeyInsert against vbKeyInsert"
+        Expect.AreEqual CLng(vbKeyDelete), CLng(ConsoleKey.KeyDelete), "ConsoleKey.KeyDelete against vbKeyDelete"
+        Expect.AreEqual CLng(vbKeyF1), CLng(ConsoleKey.KeyF1), "ConsoleKey.KeyF1 against vbKeyF1"
+        Expect.AreEqual CLng(vbKeyF5), CLng(ConsoleKey.KeyF5), "ConsoleKey.KeyF5 against vbKeyF5"
+        Expect.AreEqual CLng(vbKeyF10), CLng(ConsoleKey.KeyF10), "ConsoleKey.KeyF10 against vbKeyF10"
+        Expect.AreEqual CLng(vbKeyF11), CLng(ConsoleKey.KeyF11), "ConsoleKey.KeyF11 against vbKeyF11"
+        Expect.AreEqual CLng(vbKeyF12), CLng(ConsoleKey.KeyF12), "ConsoleKey.KeyF12 against vbKeyF12"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleEventType_Values()
+        Expect.Begin
+        Expect.AreEqual 0, CLng(ConsoleEventType.EventNone), "ConsoleEventType.EventNone"
+        Expect.AreEqual 1, CLng(ConsoleEventType.EventResize), "ConsoleEventType.EventResize"
+        Expect.AreEqual 2, CLng(ConsoleEventType.EventKeyPress), "ConsoleEventType.EventKeyPress"
+        Expect.AreEqual 3, CLng(ConsoleEventType.EventMouseClick), "ConsoleEventType.EventMouseClick"
+        Expect.AreEqual 4, CLng(ConsoleEventType.EventFocus), "ConsoleEventType.EventFocus"
+        Expect.AreEqual 5, CLng(ConsoleEventType.EventCtrlC), "ConsoleEventType.EventCtrlC"
+        Expect.AreEqual 6, CLng(ConsoleEventType.EventCtrlBreak), "ConsoleEventType.EventCtrlBreak"
+        Expect.AreEqual 7, CLng(ConsoleEventType.EventClose), "ConsoleEventType.EventClose"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleMode_And_ConsoleTextStyle_Values()
+        Expect.Begin
+        Expect.AreEqual 0, CLng(ConsoleMode.ModeNormal), "ConsoleMode.ModeNormal"
+        Expect.AreEqual 1, CLng(ConsoleMode.ModeVirtualTerminal), "ConsoleMode.ModeVirtualTerminal"
+        Expect.AreEqual 2, CLng(ConsoleMode.ModeFullScreen), "ConsoleMode.ModeFullScreen"
+        Expect.AreEqual 4, CLng(ConsoleMode.ModeRaw), "ConsoleMode.ModeRaw"
+        Expect.AreEqual 0, CLng(ConsoleTextStyle.StyleNone), "ConsoleTextStyle.StyleNone"
+        Expect.AreEqual 1, CLng(ConsoleTextStyle.StyleBold), "ConsoleTextStyle.StyleBold"
+        Expect.AreEqual 2, CLng(ConsoleTextStyle.StyleUnderline), "ConsoleTextStyle.StyleUnderline"
+        Expect.AreEqual 4, CLng(ConsoleTextStyle.StyleReverse), "ConsoleTextStyle.StyleReverse"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ThemeColorType_Values()
+        Expect.Begin
+        Expect.AreEqual 1, CLng(ThemeColorType.tcPrimary), "ThemeColorType.tcPrimary"
+        Expect.AreEqual 2, CLng(ThemeColorType.tcSecondary), "ThemeColorType.tcSecondary"
+        Expect.AreEqual 3, CLng(ThemeColorType.tcSuccess), "ThemeColorType.tcSuccess"
+        Expect.AreEqual 4, CLng(ThemeColorType.tcWarning), "ThemeColorType.tcWarning"
+        Expect.AreEqual 5, CLng(ThemeColorType.tcError), "ThemeColorType.tcError"
+        Expect.AreEqual 6, CLng(ThemeColorType.tcInfo), "ThemeColorType.tcInfo"
+        Expect.AreEqual 7, CLng(ThemeColorType.tcMuted), "ThemeColorType.tcMuted"
+        Expect.AreEqual 8, CLng(ThemeColorType.tcBackground), "ThemeColorType.tcBackground"
+        Expect.AreEqual 9, CLng(ThemeColorType.tcForeground), "ThemeColorType.tcForeground"
+        Expect.AreEqual 10, CLng(ThemeColorType.tcBorder), "ThemeColorType.tcBorder"
+        Expect.AreEqual 11, CLng(ThemeColorType.tcHeaderBackground), "ThemeColorType.tcHeaderBackground"
+        Expect.AreEqual 12, CLng(ThemeColorType.tcHeaderForeground), "ThemeColorType.tcHeaderForeground"
+        Expect.AreEqual 13, CLng(ThemeColorType.tcSelectedBackground), "ThemeColorType.tcSelectedBackground"
+        Expect.AreEqual 14, CLng(ThemeColorType.tcSelectedForeground), "ThemeColorType.tcSelectedForeground"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleRect_Create_ReturnsTheFourEdgesAsGiven()
+        Expect.Begin
+        Dim r As ConsoleRect
+        r = ConsoleRect_Create(2, 1, 11, 4)
+        Expect.AreEqual 2, r.Left, "Left of ConsoleRect_Create(2, 1, 11, 4)"
+        Expect.AreEqual 1, r.Top, "Top"
+        Expect.AreEqual 11, r.Right, "Right"
+        Expect.AreEqual 4, r.Bottom, "Bottom"
+        r = ConsoleRect_Create(9, 9, 3, 3)
+        Expect.AreEqual 9, r.Left, "Left of ConsoleRect_Create(9, 9, 3, 3), whose right is less than its left"
+        Expect.AreEqual 3, r.Right, "Right of ConsoleRect_Create(9, 9, 3, 3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleRect_Width_And_Height_CountBothEdges()
+        Expect.Begin
+        Dim r As ConsoleRect
+        r = ConsoleRect_Create(2, 1, 11, 4)
+        Expect.AreEqual 10, ConsoleRect_Width(r), "ConsoleRect_Width of columns 2 to 11"
+        Expect.AreEqual 4, ConsoleRect_Height(r), "ConsoleRect_Height of rows 1 to 4"
+        r = ConsoleRect_Create(5, 5, 5, 5)
+        Expect.AreEqual 1, ConsoleRect_Width(r), "ConsoleRect_Width of one column"
+        Expect.AreEqual 1, ConsoleRect_Height(r), "ConsoleRect_Height of one row"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleRect_Contains_EdgesBelongToTheRectangle()
+        Expect.Begin
+        Dim r As ConsoleRect
+        r = ConsoleRect_Create(2, 1, 11, 4)
+        Expect.IsTrue ConsoleRect_Contains(r, 2, 1), "the upper left corner is in the rectangle"
+        Expect.IsTrue ConsoleRect_Contains(r, 11, 4), "the lower right corner is in the rectangle"
+        Expect.IsTrue ConsoleRect_Contains(r, 5, 2), "a point inside is in the rectangle"
+        Expect.IsFalse ConsoleRect_Contains(r, 1, 1), "a point left of the rectangle is not in it"
+        Expect.IsFalse ConsoleRect_Contains(r, 12, 4), "a point right of the rectangle is not in it"
+        Expect.IsFalse ConsoleRect_Contains(r, 5, 0), "a point above the rectangle is not in it"
+        Expect.IsFalse ConsoleRect_Contains(r, 5, 5), "a point below the rectangle is not in it"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConsoleKeyInfo_EmptyStructure_HasNoKeyAndNoCharacter()
+        Expect.Begin
+        Dim k As ConsoleKeyInfo
+        Expect.AreEqual 0, k.KeyCode, "KeyCode of an empty ConsoleKeyInfo"
+        Expect.AreEqual "", k.KeyChar, "KeyChar of an empty ConsoleKeyInfo"
+        Expect.IsFalse k.IsAltPressed, "IsAltPressed of an empty ConsoleKeyInfo"
+        Expect.IsFalse k.IsCtrlPressed, "IsCtrlPressed of an empty ConsoleKeyInfo"
+        Expect.IsFalse k.IsShiftPressed, "IsShiftPressed of an empty ConsoleKeyInfo"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/compile/CompileTests.twin b/test/package-tests/TBMANLIB_ConsoleCore/compile/CompileTests.twin
new file mode 100644
index 00000000..0b328212
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/compile/CompileTests.twin
@@ -0,0 +1,38 @@
+' TBMANLIB_ConsoleCore: what the compiler does with the handler properties of cConsole.
+' A handler should be removable by assigning 0 or Nothing. Each line ends in a comment
+' ' CASE <Name>: <code>, and none means the line compiles.
+Module CompileTests
+
+    Public Sub Clear_KeyHandlerWithZero(ByVal con As cConsole)
+        con.OnKeyPress = 0 ' CASE KeyHandlerZero: none
+    End Sub
+
+    Public Sub Clear_KeyHandlerWithNothing(ByVal con As cConsole)
+        con.OnKeyPress = Nothing ' CASE KeyHandlerNothing: none
+    End Sub
+
+    Public Sub Clear_MouseHandlerWithZero(ByVal con As cConsole)
+        con.OnMouseClick = 0 ' CASE MouseHandlerZero: none
+    End Sub
+
+    Public Sub Clear_MouseHandlerWithNothing(ByVal con As cConsole)
+        con.OnMouseClick = Nothing ' CASE MouseHandlerNothing: none
+    End Sub
+
+    Public Sub Clear_ResizeHandlerWithZero(ByVal con As cConsole)
+        con.OnResize = 0 ' CASE ResizeHandlerZero: none
+    End Sub
+
+    Public Sub Clear_ResizeHandlerWithNothing(ByVal con As cConsole)
+        con.OnResize = Nothing ' CASE ResizeHandlerNothing: none
+    End Sub
+
+    Public Sub Clear_CtrlHandlerWithZero(ByVal con As cConsole)
+        con.OnCtrlEvent = 0 ' CASE CtrlHandlerZero: none
+    End Sub
+
+    Public Sub Clear_CtrlHandlerWithNothing(ByVal con As cConsole)
+        con.OnCtrlEvent = Nothing ' CASE CtrlHandlerNothing: none
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ConsoleCore/expect.json b/test/package-tests/TBMANLIB_ConsoleCore/expect.json
new file mode 100644
index 00000000..50dde12d
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ConsoleCore/expect.json
@@ -0,0 +1,125 @@
+{
+  "version": "1.0.0.1",
+  "cases": {
+    "KeyHandlerZero": {
+      "fails": "expected none on CompileTests.twin line 7, got TB5001"
+    },
+    "KeyHandlerNothing": {
+      "fails": "expected none on CompileTests.twin line 11, got TB5001"
+    },
+    "MouseHandlerZero": {
+      "fails": "expected none on CompileTests.twin line 15, got TB5001"
+    },
+    "MouseHandlerNothing": {
+      "fails": "expected none on CompileTests.twin line 19, got TB5001"
+    },
+    "ResizeHandlerZero": {
+      "fails": "expected none on CompileTests.twin line 23, got TB5001"
+    },
+    "ResizeHandlerNothing": {
+      "fails": "expected none on CompileTests.twin line 27, got TB5001"
+    },
+    "CtrlHandlerZero": {
+      "fails": "expected none on CompileTests.twin line 31, got TB5001"
+    },
+    "CtrlHandlerNothing": {
+      "fails": "expected none on CompileTests.twin line 35, got TB5001"
+    },
+    "BufferTests.ScrollRegion_Down_AtTheTopEdge_MovesTheRowsByTheDistanceAsked": {
+      "fails": "3 of 4 checks failed: row 1: expected \"A\", got \"B\"; row 2: expected \"B\", got \"C\"; row 3: expected \"C\", got \"D\""
+    },
+    "BufferTests.ScrollRegion_Right_AtTheLeftEdge_MovesTheColumnsByTheDistanceAsked": {
+      "fails": "1 of 1 checks failed: row 0 after scrolling right by one column: expected \" ABCD\", got \" BCDE\""
+    },
+    "EventTests.OnResize_IsGivenTheSizeOfTheWindow": {
+      "fails": "1 of 1 checks failed: sizes the handler was given after the screen buffer was made 300 rows tall (the window is not): expected \"100x30;\", got \"100x300;\""
+    },
+    "EventTests.OnCtrlEvent_Restore_RemovesTheRegistration": {
+      "fails": "1 of 1 checks failed: removing the procedure from Windows' list after Restore (0 means it was no longer registered): expected 0, got 1"
+    },
+    "EventTests.OnCtrlEvent_AnotherProcedure_ReplacesTheFirst": {
+      "fails": "1 of 1 checks failed: removing the first procedure from Windows' list after a second was set (0 means it was no longer registered): expected 0, got 1"
+    },
+    "FlushTests.WriteAt_NegativeColumn_NextFlushStillDrawsTheChangedCells": {
+      "fails": "2 of 2 checks failed: screen text at column 0, row 0 after Flush: expected \"cd\", got \" \"; screen text of the cell changed before the WriteAt: expected \"x\", got \" \""
+    },
+    "FlushTests.WriteAt_NegativeRow_NextFlushStillDrawsTheChangedCells": {
+      "fails": "1 of 1 checks failed: screen text of the cell changed before the WriteAt: expected \"x\", got \" \""
+    },
+    "FlushTests.FillRect_RectangleAboveAndLeftOfTheGrid_NextFlushStillDrawsTheChangedCells": {
+      "fails": "1 of 1 checks failed: screen text of the cell changed before the FillRect: expected \"x\", got \" \""
+    },
+    "FlushTests.CopyRegion_NegativeDestination_NextFlushStillDrawsTheCopiedCells": {
+      "fails": "1 of 1 checks failed: screen text of row 0 after the copy and Flush: expected \"bcc\", got \"abc\""
+    },
+    "FullScreenTests.Refresh_WindowShowsAnotherPartOfTheScreenBuffer_DrawsInTheWindow": {
+      "fails": "1 of 1 checks failed: screen text at the top row of the window (row 100 of the screen buffer): expected \"A\", got \" \""
+    },
+    "FullScreenTests.Refresh_AfterAWriteAtWithANegativeColumn_DrawsTheChangedCells": {
+      "fails": "1 of 1 checks failed: screen text of the cell changed before the WriteAt with a negative column: expected \"x\", got \" \""
+    },
+    "OutputTests.WriteColored_NoBackground_KeepsTheCurrentBackground": {
+      "fails": "1 of 1 checks failed: attribute of the cell written with Red and no background, on a DarkBlue console: expected 28, got 12"
+    },
+    "OutputTests.WriteLineColored_NoBackground_KeepsTheCurrentBackground": {
+      "fails": "1 of 1 checks failed: attribute of the cell written with Red and no background, on a DarkBlue console: expected 28, got 12"
+    },
+    "OutputTests.WriteAtColored_NoBackground_KeepsTheCurrentBackground": {
+      "fails": "1 of 1 checks failed: attribute of the cell written with Red and no background, on a DarkBlue console: expected 28, got 12"
+    },
+    "OutputTests.WriteColored_LeavesTheConsoleInTheColoursItHad": {
+      "fails": "1 of 1 checks failed: attribute of the console after WriteColored, which began as Yellow on DarkBlue: expected 30, got 7"
+    },
+    "OutputTests.WriteLineColored_LeavesTheConsoleInTheColoursItHad": {
+      "fails": "1 of 1 checks failed: attribute of the console after WriteLineColored, which began as Yellow on DarkBlue: expected 30, got 7"
+    },
+    "OutputTests.WriteAtColored_LeavesTheConsoleInTheColoursItHad": {
+      "fails": "1 of 1 checks failed: attribute of the console after WriteAtColored, which began as Yellow on DarkBlue: expected 30, got 7"
+    },
+    "ReadTests.KeyAvailable_KeyReleaseOnly_IsFalse": {
+      "fails": "1 of 1 checks failed: KeyAvailable with only a key release in the queue: expected False, got True"
+    },
+    "ReadTests.KeyAvailable_AfterReadKey_IsFalse": {
+      "fails": "1 of 1 checks failed: KeyAvailable after ReadKey, with the key release still in the queue: expected False, got True"
+    },
+    "ReadTests.KeyAvailable_MouseEventOnly_IsFalse": {
+      "fails": "1 of 1 checks failed: KeyAvailable with only a mouse event in the queue: expected False, got True"
+    },
+    "ReadTests.KeyAvailable_FocusEventOnly_IsFalse": {
+      "fails": "1 of 1 checks failed: KeyAvailable with only a focus event in the queue: expected False, got True"
+    },
+    "ReadTests.ReadKey_ArrowKeys_EqualTheConsoleKeyMembers": {
+      "fails": "4 of 4 checks failed: KeyCode of the Up Arrow key against ConsoleKey.KeyUp: expected 72, got 38; KeyCode of the Down Arrow key against ConsoleKey.KeyDown: expected 80, got 40; KeyCode of the Left Arrow key against ConsoleKey.KeyLeft: expected 75, got 37; KeyCode of the Right Arrow key against ConsoleKey.KeyRight: expected 77, got 39"
+    },
+    "ReadTests.ReadKey_NavigationKeys_EqualTheConsoleKeyMembers": {
+      "fails": "6 of 6 checks failed: KeyCode of the Home key against ConsoleKey.KeyHome: expected 71, got 36; KeyCode of the End key against ConsoleKey.KeyEnd: expected 79, got 35; KeyCode of the Page Up key against ConsoleKey.KeyPageUp: expected 73, got 33; KeyCode of the Page Down key against ConsoleKey.KeyPageDown: expected 81, got 34; KeyCode of the Insert key against ConsoleKey.KeyInsert: expected 82, got 45; KeyCode of the Delete key against ConsoleKey.KeyDelete: expected 83, got 46"
+    },
+    "ReadTests.ReadKey_FunctionKeys_EqualTheConsoleKeyMembers": {
+      "fails": "4 of 4 checks failed: KeyCode of F1 against ConsoleKey.KeyF1: expected 59, got 112; KeyCode of F10 against ConsoleKey.KeyF10: expected 68, got 121; KeyCode of F11 against ConsoleKey.KeyF11: expected 133, got 122; KeyCode of F12 against ConsoleKey.KeyF12: expected 134, got 123"
+    },
+    "ReadTests.ReadKey_LetterH_IsNotTheKeyCodeOfConsoleKeyKeyUp": {
+      "fails": "1 of 1 checks failed: KeyCode of the H key (72) equals ConsoleKey.KeyUp: expected False, got True"
+    },
+    "ReadTests.ReadKey_WithoutConsoleInput_Returns": {
+      "hangs": true
+    },
+    "ReadTests.ReadPassword_WithoutConsoleInput_Returns": {
+      "hangs": true
+    },
+    "ReadTests.ReadKeyTimeout_OnlyAKeyReleaseInTheQueue_ReturnsWhenTheTimeIsOver": {
+      "hangs": true
+    },
+    "StateTests.Title_LongTitle_IsReturnedWithAtMost259Characters": {
+      "fails": "2 of 2 checks failed: length of Title after a title of 300 characters is set (got 260): expected True, got False; position of a character with code 0 in that Title: expected 0, got 260"
+    },
+    "StyleTests.StripAnsi_SequenceEndingInAnotherLetter_KeepsTheTextAfterIt": {
+      "fails": "4 of 4 checks failed: StripAnsi of CursorHide & \"Hello\": expected \"Hello\", got \"ello\"; StripAnsi of CursorSave & \"xyz\": expected \"xyz\", got \"\"; StripAnsi of SetTitle(\"t\") & \"ok text\": expected \"ok text\", got \"\"; StripAnsi of CursorNextLine & \"line two\": expected \"line two\", got \"\""
+    },
+    "StyleTests.RepeatStr_LongerStringIsRepeatedWhole": {
+      "fails": "1 of 1 checks failed: RepeatStr(\"ab\", 3): expected \"ababab\", got \"aaa\""
+    },
+    "TypesTests.ConsoleKey_NavigationAndFunctionMembersAreVirtualKeyCodes": {
+      "fails": "15 of 15 checks failed: ConsoleKey.KeyUp against vbKeyUp: expected 38, got 72; ConsoleKey.KeyDown against vbKeyDown: expected 40, got 80; ConsoleKey.KeyLeft against vbKeyLeft: expected 37, got 75; ConsoleKey.KeyRight against vbKeyRight: expected 39, got 77; ConsoleKey.KeyHome against vbKeyHome: expected 36, got 71; ConsoleKey.KeyEnd against vbKeyEnd: expected 35, got 79; ConsoleKey.KeyPageUp against vbKeyPageUp: expected 33, got 73; ConsoleKey.KeyPageDown against vbKeyPageDown: expected 34, got 81; ConsoleKey.KeyInsert against vbKeyInsert: expected 45, got 82; ConsoleKey.KeyDelete against vbKeyDelete: expected 46, got 83; ConsoleKey.KeyF1 against vbKeyF1: expected 112, got 59; ConsoleKey.KeyF5 against vbKeyF5: expected 116, got 63; ConsoleKey.KeyF10 against vbKeyF10: expected 121, got 68; ConsoleKey.KeyF11 against vbKeyF11: expected 122, got 133; ConsoleKey.KeyF12 against vbKeyF12: expected 123, got 134"
+    }
+  }
+}
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/Adapters.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/Adapters.twin
new file mode 100644
index 00000000..9e4df516
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/Adapters.twin
@@ -0,0 +1,71 @@
+' Adapters: the network adapters that Windows reports, read with GetAdaptersInfo and followed
+' through the pointer that links the records, for the cases that check NetworkInfoCollector.
+'
+' Count is the number of records, Description(i) the text of the record and Address(i) its first
+' IPv4 address ("0.0.0.0" when it has none). In an IP_ADAPTER_INFO record, for a pointer of P bytes,
+' Next is at 0, the description (132 bytes of ANSI) at P+264 and the first IP address (16 bytes) at
+' 432 in a 32-bit program and 448 in a 64-bit one.
+Module Adapters
+
+    Private Declare PtrSafe Function GetAdaptersInfo Lib "iphlpapi" (ByVal pAdapterInfo As LongPtr, ByRef pOutBufLen As Long) As Long
+    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+
+    Private mCount As Long
+    Private mDescription(0 To 63) As String
+    Private mAddress(0 To 63) As String
+
+    Public Property Get Count() As Long
+        Count = mCount
+    End Property
+
+    Public Function Description(ByVal Index As Long) As String
+        Description = mDescription(Index)
+    End Function
+
+    Public Function Address(ByVal Index As Long) As String
+        Address = mAddress(Index)
+    End Function
+
+    ' Reads the adapters again. False when GetAdaptersInfo fails.
+    Public Function Load() As Boolean
+        Dim size As Long, buf() As Byte, node As LongPtr, ptrSize As Long, descOff As Long, ipOff As Long
+#If Win64 Then
+        ptrSize = 8
+        ipOff = 448
+#Else
+        ptrSize = 4
+        ipOff = 432
+#End If
+        descOff = ptrSize + 264
+        mCount = 0
+        GetAdaptersInfo 0, size
+        If size <= 0 Then Exit Function
+        ReDim buf(0 To size - 1)
+        If GetAdaptersInfo(VarPtr(buf(0)), size) <> 0 Then Exit Function
+        node = VarPtr(buf(0))
+        Do While node <> 0 And mCount <= 63
+            mDescription(mCount) = AnsiAt(node + descOff, 132)
+            mAddress(mCount) = AnsiAt(node + ipOff, 16)
+            mCount = mCount + 1
+            Dim nextNode As LongPtr
+            nextNode = 0
+            CopyMemory VarPtr(nextNode), node, ptrSize
+            node = nextNode
+        Loop
+        Load = True
+    End Function
+
+    ' The ANSI text that starts at an address, to its zero or to MaxLen bytes.
+    Private Function AnsiAt(ByVal Address As LongPtr, ByVal MaxLen As Long) As String
+        Dim b() As Byte, n As Long
+        ReDim b(0 To MaxLen - 1)
+        CopyMemory VarPtr(b(0)), Address, MaxLen
+        For n = 0 To MaxLen - 1
+            If b(n) = 0 Then Exit For
+        Next n
+        If n = 0 Then Exit Function
+        ReDim Preserve b(0 To n - 1)
+        AnsiAt = Trim$(StrConv(b, vbUnicode))
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/CollectorTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/CollectorTests.twin
new file mode 100644
index 00000000..499ca8a7
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/CollectorTests.twin
@@ -0,0 +1,191 @@
+' The collectors: the defects of LocaleCollector, CPUInfoCollector and NetworkInfoCollector, the
+' load of CPULoadCollector, and the properties of all eleven.
+[TestFixture]
+Module CollectorTests
+
+    ' ---- LocaleCollector
+
+    [TestCase]
+    Public Sub LocaleCollector_Items_ArePresent()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New LocaleCollector)
+        Expect.AreEqual "Locale", r.Category, "Category"
+        Expect.IsTrue Reports.HasKey(r, "LCID"), "item LCID"
+        Expect.IsTrue Reports.HasKey(r, "ANSI Code Page"), "item ANSI Code Page"
+        Expect.IsTrue Reports.HasKey(r, "OEM Code Page"), "item OEM Code Page"
+        Expect.IsTrue Reports.ValueOf(r, "ANSI Code Page") Like "CP#*", "ANSI Code Page has the form CP and a number"
+        Expect.IsTrue Reports.ValueOf(r, "Timezone") Like "UTC[+-]#*", "Timezone has the form UTC, a sign and the hours"
+        Expect.Done
+    End Sub
+
+    ' ---- CPUInfoCollector
+
+    [TestCase]
+    Public Sub CPUInfoCollector_PageSize_HasNoDecimalSeparator()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New CPUInfoCollector)
+        Expect.AreEqual "4 KB", Reports.ValueOf(r, "Page Size"), "Page Size item"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CPUInfoCollector_Items_ArePresent()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New CPUInfoCollector)
+        Expect.AreEqual "CPU Info", r.Category, "Category"
+        Expect.IsTrue Reports.HasKey(r, "Architecture"), "item Architecture"
+        Expect.IsTrue Reports.HasKey(r, "Processor Count"), "item Processor Count"
+        Expect.IsTrue Val(Reports.ValueOf(r, "Processor Count")) >= 1, "Processor Count is a number of at least 1"
+        Expect.IsTrue Left$(Reports.ValueOf(r, "Processor Revision"), 2) = "0x", "Processor Revision starts with 0x"
+        Expect.Done
+    End Sub
+
+    ' ---- NetworkInfoCollector
+
+    [TestCase]
+    Public Sub NetworkInfoCollector_FullReport_ListsEveryAdapter()
+        Expect.Begin
+        Dim real As Long, i As Long
+        Expect.IsTrue Adapters.Load(), "GetAdaptersInfo succeeds"
+        For i = 0 To Adapters.Count - 1
+            If Len(Adapters.Description(i)) > 0 Then real = real + 1
+        Next i
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New NetworkInfoCollector)
+        Expect.AreEqual real, Reports.CountKeysLike(r, "Adapter #*"), "number of Adapter items in the full report, for " & real & " adapters that GetAdaptersInfo returns"
+        Expect.Done
+    End Sub
+
+    ' ---- CPULoadCollector
+
+    [TestCase]
+    Public Sub CPULoadCollector_FirstReading_IsZero()
+        Expect.Begin
+        Dim cpu As New CPULoadCollector
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = cpu.IDiagnosticCollector_Collect()
+        Expect.AreEqual "0" & Reports.Sep() & "0%", Reports.ValueOf(r, "Usage"), "Usage of the first reading"
+        Expect.AreEqual "0" & Reports.Sep() & "0", Reports.ValueOf(r, "Usage Value"), "Usage Value of the first reading"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CPULoadCollector_LaterReading_IsAPercentage()
+        Expect.Begin
+        Dim cpu As New CPULoadCollector
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = cpu.IDiagnosticCollector_Collect()
+        Dim t As Single
+        t = Timer
+        Do While Timer < t + 0.3
+        Loop
+        Set r = cpu.IDiagnosticCollector_Collect()
+        Dim pct As Double
+        pct = CDbl(Reports.ValueOf(r, "Usage Value"))
+        Expect.IsTrue pct >= 0 And pct <= 100, "Usage Value of a later reading is from 0 to 100"
+        Expect.AreEqual Reports.ValueOf(r, "Usage Value") & "%", Reports.ValueOf(r, "Usage"), "Usage is Usage Value and a percent sign"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CPULoadCollector_Reset_MakesTheNextReadingZero()
+        Expect.Begin
+        Dim cpu As New CPULoadCollector
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = cpu.IDiagnosticCollector_Collect()
+        Dim t As Single
+        t = Timer
+        Do While Timer < t + 0.2
+        Loop
+        cpu.Reset
+        Set r = cpu.IDiagnosticCollector_Collect()
+        Expect.AreEqual "0" & Reports.Sep() & "0%", Reports.ValueOf(r, "Usage"), "Usage of the reading after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- the other collectors
+
+    [TestCase]
+    Public Sub MemoryInfoCollector_Items_AreTheEightKeysInOrder()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New MemoryInfoCollector)
+        Dim keys As String, i As Long
+        For i = 0 To r.ItemCount - 1
+            keys = keys & IIf(i > 0, ", ", "") & r.Items.Item(i).Key
+        Next i
+        Expect.AreEqual "Memory Load, Total Physical, Available Physical, Used Physical, Total Page File, Available Page File, Total Virtual, Available Virtual", keys, "keys of MemoryInfoCollector"
+        Expect.IsTrue r.Success, "Success"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UptimeCollector_Items_AreTheFiveKeysInOrder()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New UptimeCollector)
+        Dim keys As String, i As Long
+        For i = 0 To r.ItemCount - 1
+            keys = keys & IIf(i > 0, ", ", "") & r.Items.Item(i).Key
+        Next i
+        Expect.AreEqual "Uptime, Total Days, Total Hours, Total Seconds, Boot Time", keys, "keys of UptimeCollector"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnvironmentCollector_Summary_CountsThePathEntries()
+        Expect.Begin
+        Dim c As IDiagnosticCollector
+        Set c = New EnvironmentCollector
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = c.CollectSummary()
+        Expect.IsTrue r.IsSummary, "IsSummary"
+        Expect.AreEqual "(" & (UBound(Split(Environ$("PATH"), ";")) + 1) & " entries)", Reports.ValueOf(r, "PATH"), "PATH item of the summary"
+        Expect.AreEqual Environ$("TEMP"), Reports.ValueOf(r, "TEMP"), "TEMP item of the summary"
+        Expect.AreEqual Environ$("USERPROFILE"), Reports.ValueOf(r, "USERPROFILE"), "USERPROFILE item of the summary"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ProcessInfoCollector_Summary_HasTheThreeCounts()
+        Expect.Begin
+        Dim c As IDiagnosticCollector
+        Set c = New ProcessInfoCollector
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = c.CollectSummary()
+        Expect.IsTrue r.IsSummary, "IsSummary"
+        Expect.AreEqual 3, r.ItemCount, "ItemCount of the summary"
+        Expect.IsTrue Val(Reports.ValueOf(r, "Total Processes")) > 0, "Total Processes"
+        Expect.IsTrue Val(Reports.ValueOf(r, "Total Threads")) >= Val(Reports.ValueOf(r, "Total Processes")), "Total Threads is at least Total Processes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Collectors_Properties_AreThoseOfTheTable()
+        Expect.Begin
+        Dim table(0 To 10) As IDiagnosticCollector
+        Set table(0) = New OSInfoCollector
+        Set table(1) = New CPUInfoCollector
+        Set table(2) = New LocaleCollector
+        Set table(3) = New EnvironmentCollector
+        Set table(4) = New RuntimesCollector
+        Set table(5) = New CPULoadCollector
+        Set table(6) = New MemoryInfoCollector
+        Set table(7) = New UptimeCollector
+        Set table(8) = New ProcessInfoCollector
+        Set table(9) = New DiskInfoCollector
+        Set table(10) = New NetworkInfoCollector
+        Dim names As String, i As Long, text As String
+        For i = 0 To 10
+            text = text & IIf(i > 0, "; ", "") & table(i).CategoryName & ": " & table(i).RefreshMode & " " & table(i).SupportsSummary
+            If table(i).RequiresElevation Then names = names & table(i).CategoryName & " "
+        Next i
+        Expect.AreEqual "Operating System: 0 False; CPU Info: 0 False; Locale: 0 False; Environment: 0 True; Runtimes: 0 True; CPU Load: 1 False; Memory: 1 False; Uptime: 1 False; Processes: 1 True; Disk: 2 False; Network: 2 True", text, "category, mode and summary flag of the eleven collectors"
+        Expect.AreEqual "", names, "collectors whose RequiresElevation is True"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/DictionaryTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/DictionaryTests.twin
new file mode 100644
index 00000000..4b4175e7
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/DictionaryTests.twin
@@ -0,0 +1,187 @@
+' Dictionary(Of TKey, TValue): creating one, and what its members do once it exists.
+[TestFixture]
+Module DictionaryTests
+
+    ' Creates a dictionary of text keys and Long values. Records a failed check, and returns False,
+    ' when New raises an error or leaves Nothing, so that a case ends at once with that one defect.
+    Private Function Make(ByRef D As Dictionary(Of String, Long)) As Boolean
+        On Error Resume Next
+        Set D = New Dictionary(Of String, Long)
+        If Err.Number <> 0 Then
+            Expect.Fail "New Dictionary(Of String, Long) raised run-time error " & Err.Number & ": " & Err.Description
+            Err.Clear
+        End If
+        On Error GoTo 0
+        Make = Not (D Is Nothing)
+    End Function
+
+    [TestCase]
+    Public Sub New_CreatesAnEmptyDictionary()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            Expect.AreEqual 0, d.Count, "Count of a new dictionary"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Add_ThenItem_ReturnsTheValue()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.Add "Ann", 31
+            d.Add "Bob", 42
+            Expect.AreEqual 2, d.Count, "Count after two Add calls"
+            Expect.AreEqual 31, d.Item("Ann"), "Item(""Ann"")"
+            Expect.AreEqual 42, d.Item("Bob"), "Item(""Bob"")"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Add_ExistingKey_Raises457()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.Add "Ann", 31
+            On Error Resume Next
+            d.Add "Ann", 32
+            Expect.AreEqual 457, Err.Number, "run-time error raised by Add of a key that is there"
+            Err.Clear
+            On Error GoTo 0
+            Expect.AreEqual 31, d.Item("Ann"), "Item(""Ann"") after that error"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_MissingKey_Raises5()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            Dim v As Long
+            On Error Resume Next
+            v = d.Item("Zed")
+            Expect.AreEqual 5, Err.Number, "run-time error raised by Item of a key that is not there"
+            Err.Clear
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetItem_NewKey_AddsItAtTheEnd()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.SetItem "Ann", 1
+            d.SetItem "Bob", 2
+            Expect.AreEqual 2, d.Count, "Count after SetItem of two new keys"
+            Expect.AreEqual "Bob", d.Keys.Item(1), "the second key"
+            Expect.AreEqual 2, d.Values.Item(1), "the second value"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetItem_ExistingKey_ReplacesTheValueInPlace()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.Add "Ann", 1
+            d.Add "Bob", 2
+            d.SetItem "Ann", 10
+            Expect.AreEqual 2, d.Count, "Count after SetItem of a key that is there"
+            Expect.AreEqual 10, d.Item("Ann"), "Item(""Ann"") after SetItem ""Ann"", 10"
+            Expect.AreEqual "Ann", d.Keys.Item(0), "the first key after SetItem ""Ann"", 10"
+            Expect.AreEqual 2, d.Item("Bob"), "Item(""Bob"") after SetItem ""Ann"", 10"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ContainsKey_TellsPresentFromMissing()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.Add "Ann", 1
+            Expect.IsTrue d.ContainsKey("Ann"), "ContainsKey(""Ann"")"
+            Expect.IsFalse d.ContainsKey("Zed"), "ContainsKey(""Zed"")"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TryGetValue_Present_ReturnsTrueAndTheValue()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.Add "Ann", 31
+            Dim v As Long
+            v = -1
+            Expect.IsTrue d.TryGetValue("Ann", v), "TryGetValue of a key that is there"
+            Expect.AreEqual 31, v, "the value TryGetValue returned"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TryGetValue_Missing_ReturnsFalseAndKeepsTheVariable()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            Dim v As Long
+            v = -1
+            Expect.IsFalse d.TryGetValue("Zed", v), "TryGetValue of a key that is not there"
+            Expect.AreEqual -1, v, "the variable after TryGetValue of a key that is not there"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Remove_ExistingKey_RemovesKeyAndValue()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.Add "Ann", 1
+            d.Add "Bob", 2
+            d.Add "Cy", 3
+            Expect.IsTrue d.Remove("Bob"), "Remove of a key that is there"
+            Expect.AreEqual 2, d.Count, "Count after Remove"
+            Expect.AreEqual "Cy", d.Keys.Item(1), "the second key after Remove(""Bob"")"
+            Expect.AreEqual 3, d.Values.Item(1), "the second value after Remove(""Bob"")"
+            Expect.IsFalse d.Remove("Bob"), "Remove of a key that is not there"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_RemovesEveryKey()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.Add "Ann", 1
+            d.Clear
+            Expect.AreEqual 0, d.Count, "Count after Clear"
+            Expect.AreEqual 0, d.Keys.Count, "Keys.Count after Clear"
+            Expect.AreEqual 0, d.Values.Count, "Values.Count after Clear"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub KeysAndValues_ReturnTheListsInOrderOfAdding()
+        Expect.Begin
+        Dim d As Dictionary(Of String, Long)
+        If Make(d) Then
+            d.Add "Ann", 1
+            d.Add "Bob", 2
+            Expect.AreEqual "Ann", d.Keys.Item(0), "Keys.Item(0)"
+            Expect.AreEqual "Bob", d.Keys.Item(1), "Keys.Item(1)"
+            Expect.AreEqual 1, d.Values.Item(0), "Values.Item(0)"
+            Expect.AreEqual 2, d.Values.Item(1), "Values.Item(1)"
+        End If
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/EngineTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/EngineTests.twin
new file mode 100644
index 00000000..0dfa8025
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/EngineTests.twin
@@ -0,0 +1,195 @@
+' DiagnosticEngine: registering collectors, running them, and a collector that raises an error.
+[TestFixture]
+Module EngineTests
+
+    Private Function Stub(ByVal Category As String, Optional ByVal Fail As Boolean = False) As StubCollector
+        Dim c As New StubCollector
+        c.Category = Category
+        c.Fail = Fail
+        Set Stub = c
+    End Function
+
+    [TestCase]
+    Public Sub RegisterCollector_SameCategory_Raises5()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector Stub("Alpha")
+        On Error Resume Next
+        engine.RegisterCollector Stub("Alpha")
+        Expect.AreEqual 5, Err.Number, "run-time error raised by RegisterCollector of a second collector with the category Alpha"
+        Expect.AreEqual "DiagnosticEngine.RegisterCollector", Err.Source, "source of that error"
+        Expect.AreEqual "Collector already exists: Alpha", Err.Description, "description of that error"
+        Err.Clear
+        Expect.AreEqual 1, engine.CollectorCount, "CollectorCount after that error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RegisterCollector_Nothing_Raises5()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        On Error Resume Next
+        engine.RegisterCollector Nothing
+        Expect.AreEqual 5, Err.Number, "run-time error raised by RegisterCollector Nothing"
+        Expect.AreEqual "Collector cannot be Nothing", Err.Description, "description of that error"
+        Err.Clear
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RegisterCollector_CategoryNames_AreCaseSensitive()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector Stub("Alpha")
+        On Error Resume Next
+        engine.RegisterCollector Stub("ALPHA")
+        Expect.AreEqual 0, Err.Number, "run-time error raised by RegisterCollector of ALPHA after Alpha"
+        Err.Clear
+        Expect.AreEqual 2, engine.CollectorCount, "CollectorCount after Alpha and ALPHA"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RunAll_ResultsAreInOrderOfRegistration()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector Stub("Alpha")
+        engine.RegisterCollector Stub("Beta")
+        engine.RegisterCollector Stub("Gamma")
+        Dim results As List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))
+        Set results = engine.RunAll()
+        Expect.AreEqual 3, results.Count, "Count of the results of RunAll"
+        Expect.AreEqual "Alpha", results.Item(0).Category, "category of the first result"
+        Expect.AreEqual "Gamma", results.Item(2).Category, "category of the third result"
+        Expect.AreEqual "42", results.Item(1).Items.Item(0).Value, "value of the item of the second result"
+        Expect.IsTrue results Is engine.Results, "RunAll returns the list that Results returns"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RunAll_CollectorRaisesError_RunGoesOnWithTheMessage()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector Stub("Alpha")
+        engine.RegisterCollector Stub("Beta", True)
+        engine.RegisterCollector Stub("Gamma")
+        Dim results As List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))
+        On Error Resume Next
+        Set results = engine.RunAll()
+        Expect.AreEqual 0, Err.Number, "run-time error raised by RunAll with a collector that raises an error"
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual 3, results.Count, "Count of the results of RunAll"
+        Expect.IsFalse results.Item(1).Success, "Success of the result of the collector that raised an error"
+        Expect.AreEqual "stub failure", results.Item(1).ErrorMessage, "ErrorMessage of that result"
+        Expect.AreEqual "Beta", results.Item(1).Category, "Category of that result"
+        Expect.AreEqual 0, results.Item(1).ItemCount, "ItemCount of that result"
+        Expect.IsTrue results.Item(2).Success, "Success of the result after it"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RunAll_Summary_AsksSummaryCollectorsForTheirSummary()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector New CPUInfoCollector
+        engine.RegisterCollector New EnvironmentCollector
+        Dim results As List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))
+        Set results = engine.RunAll(True)
+        Expect.IsFalse results.Item(0).IsSummary, "IsSummary of the result of CPUInfoCollector in a summary run"
+        Expect.IsTrue results.Item(1).IsSummary, "IsSummary of the result of EnvironmentCollector in a summary run"
+        Set results = engine.RunAll()
+        Expect.IsFalse results.Item(1).IsSummary, "IsSummary of the result of EnvironmentCollector in a full run"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RunAll_NextRun_EmptiesTheEarlierList()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector New UptimeCollector
+        Dim first As List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))
+        Set first = engine.RunAll()
+        Expect.AreEqual 1, first.Count, "Count of the first list"
+        engine.UnregisterCollector "Uptime"
+        engine.RunAll
+        Expect.AreEqual 0, first.Count, "Count of the first list after a run with no collector"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RunCategory_Unknown_ReturnsAFailedResult()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector Stub("Alpha")
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        On Error Resume Next
+        Set r = engine.RunCategory("Nothing here")
+        Expect.AreEqual 0, Err.Number, "run-time error raised by RunCategory of a name no collector has"
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual "Nothing here", r.Category, "Category of that result"
+        Expect.IsFalse r.Success, "Success of that result"
+        Expect.AreEqual "Collector not found: Nothing here", r.ErrorMessage, "ErrorMessage of that result"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RunCategory_Known_RunsThatCollectorOnly()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector Stub("Alpha")
+        engine.RegisterCollector Stub("Beta")
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = engine.RunCategory("Beta")
+        Expect.AreEqual "Beta", r.Category, "Category of the result of RunCategory(""Beta"")"
+        Expect.AreEqual 1, r.ItemCount, "ItemCount of that result"
+        Expect.AreEqual 0, engine.Results.Count, "Count of Results after RunCategory"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RunByRefreshMode_RunsOnlyTheCollectorsOfThatMode()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector New OSInfoCollector
+        engine.RegisterCollector New MemoryInfoCollector
+        engine.RegisterCollector New LocaleCollector
+        engine.RegisterCollector New UptimeCollector
+        Dim changing As List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))
+        Set changing = engine.RunByRefreshMode(RefreshMode.Dynamic)
+        Expect.AreEqual 2, changing.Count, "Count of the results for the mode Dynamic"
+        Expect.AreEqual "Memory", changing.Item(0).Category, "the first of them"
+        Expect.AreEqual "Uptime", changing.Item(1).Category, "the second of them"
+        Expect.AreEqual 0, engine.Results.Count, "Count of Results after RunByRefreshMode"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnregisterCollector_RemovesTheFirstWithThatName()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector Stub("Alpha")
+        engine.RegisterCollector Stub("Beta")
+        engine.UnregisterCollector "Alpha"
+        Expect.AreEqual 1, engine.CollectorCount, "CollectorCount after UnregisterCollector ""Alpha"""
+        On Error Resume Next
+        engine.UnregisterCollector "Nothing here"
+        Expect.AreEqual 0, Err.Number, "run-time error raised by UnregisterCollector of a name no collector has"
+        Err.Clear
+        Expect.AreEqual 1, engine.CollectorCount, "CollectorCount after that call"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsRunning_BeforeAndAfterARun_IsFalse()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector Stub("Alpha")
+        Expect.IsFalse engine.IsRunning, "IsRunning of a new engine"
+        engine.RunAll
+        Expect.IsFalse engine.IsRunning, "IsRunning after RunAll"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/FileHelperTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/FileHelperTests.twin
new file mode 100644
index 00000000..9ec55bef
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/FileHelperTests.twin
@@ -0,0 +1,375 @@
+' FileHelper: WriteFile, AppendFile, ReadFile, GetFileSize and DeleteFile on files in the sandbox.
+[TestFixture]
+Module FileHelperTests
+
+    ' What WriteFile or AppendFile returned: "True", or the error text without the path it names.
+    Private Function Outcome(ByVal R As Variant) As String
+        If VarType(R) = vbBoolean Then
+            Outcome = CStr(R)
+        Else
+            Dim at As Long
+            at = InStr(R, " (File: ")
+            If at > 0 Then Outcome = Left$(R, at - 1) Else Outcome = CStr(R)
+        End If
+    End Function
+
+    ' ---- WriteFile
+
+    [TestCase]
+    Public Sub WriteFile_OverExistingLongerFile_ShortensIt()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("WriteFile_OverExistingLongerFile_ShortensIt")
+        p = w & "\a.txt"
+        FileHelper.WriteFile "0123456789", p
+        Expect.AreEqual 13, FileLen(p), "size of a file written with ""0123456789"""
+        FileHelper.WriteFile "ab", p
+        Expect.AreEqual 5, FileLen(p), "size of that file after WriteFile ""ab"" over it (3 bytes of byte-order mark and 2 of text)"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteFile_Text_WritesByteOrderMarkAndUtf8()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("WriteFile_Text_WritesByteOrderMarkAndUtf8")
+        p = w & "\a.txt"
+        Dim r As Variant
+        r = FileHelper.WriteFile("caf" & ChrW$(233), p)
+        Expect.AreEqual True, r, "what WriteFile returns"
+        Expect.AreEqual "EF BB BF 63 61 66 C3 A9", Sandbox.HexOf(p), "bytes written for ""caf"" and e acute"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteFile_EmptyString_WritesByteOrderMarkOnly()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("WriteFile_EmptyString_WritesByteOrderMarkOnly")
+        p = w & "\a.txt"
+        Dim r As Variant
+        r = FileHelper.WriteFile("", p)
+        Expect.AreEqual True, r, "what WriteFile of an empty string returns"
+        Expect.AreEqual "EF BB BF", Sandbox.HexOf(p), "bytes written for an empty string"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteFile_MissingLastFolder_CreatesIt()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("WriteFile_MissingLastFolder_CreatesIt")
+        p = w & "\sub\a.txt"
+        Dim r As Variant
+        r = FileHelper.WriteFile("x", p)
+        Expect.AreEqual True, r, "what WriteFile into a folder whose parent exists returns"
+        Expect.IsTrue FileHelper.FileExists(p), "the file exists"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteFile_MissingParentFolders_CreatesThem()
+        Expect.Begin
+        Dim w As String, p As String, r As Variant
+        w = Sandbox.Fresh("WriteFile_MissingParentFolders_CreatesThem")
+        p = w & "\one\two\a.txt"
+        r = FileHelper.WriteFile("x", p)
+        Expect.AreEqual "True", Outcome(r), "what WriteFile into a path whose two top folders are missing returns"
+        Expect.IsTrue FileHelper.FileExists(p), "the file exists"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteFile_Failure_ReturnsTextAndRaisesNoError()
+        Expect.Begin
+        Dim w As String, r As Variant
+        w = Sandbox.Fresh("WriteFile_Failure_ReturnsTextAndRaisesNoError")
+        ' a folder named like the file cannot be opened as a file
+        MkDir w & "\isfolder.txt"
+        On Error GoTo Raised
+        r = FileHelper.WriteFile("x", w & "\isfolder.txt")
+        On Error GoTo 0
+        Expect.AreEqual vbString, VarType(r), "VarType of what WriteFile returns on a path that is a folder"
+        Expect.AreEqual "Error ", Left$(r, 6), "the start of that text"
+        Expect.IsTrue InStr(r, "(File: " & w & "\isfolder.txt)") > 0, "that text names the path"
+        GoTo Finish
+Raised:
+        Expect.Fail "WriteFile on a path that is a folder raised run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    ' ---- AppendFile
+
+    [TestCase]
+    Public Sub AppendFile_NewFile_WritesByteOrderMarkOnce()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("AppendFile_NewFile_WritesByteOrderMarkOnce")
+        p = w & "\a.txt"
+        Dim r As Variant
+        r = FileHelper.AppendFile("ab", p)
+        Expect.AreEqual True, r, "what AppendFile to a new file returns"
+        r = FileHelper.AppendFile("cd", p)
+        Expect.AreEqual True, r, "what AppendFile to that file returns"
+        Expect.AreEqual "EF BB BF 61 62 63 64", Sandbox.HexOf(p), "bytes after AppendFile ""ab"" and AppendFile ""cd"""
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AppendFile_AfterWriteFile_AddsAfterTheContent()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("AppendFile_AfterWriteFile_AddsAfterTheContent")
+        p = w & "\a.txt"
+        FileHelper.WriteFile "Hello", p
+        FileHelper.AppendFile " world", p
+        Expect.AreEqual 14, FileLen(p), "size after WriteFile ""Hello"" and AppendFile "" world"""
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AppendFile_MissingParentFolders_CreatesThem()
+        Expect.Begin
+        Dim w As String, p As String, r As Variant
+        w = Sandbox.Fresh("AppendFile_MissingParentFolders_CreatesThem")
+        p = w & "\one\two\a.txt"
+        r = FileHelper.AppendFile("x", p)
+        Expect.AreEqual "True", Outcome(r), "what AppendFile into a path whose two top folders are missing returns"
+        Expect.IsTrue FileHelper.FileExists(p), "the file exists"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    ' ---- ReadFile
+
+    [TestCase]
+    Public Sub ReadFile_WrittenText_IsReadBackAsWritten()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("ReadFile_WrittenText_IsReadBackAsWritten")
+        p = w & "\a.txt"
+        FileHelper.WriteFile "caf" & ChrW$(233), p
+        Dim text As Variant
+        text = FileHelper.ReadFile(p)
+        Expect.AreEqual "caf" & ChrW$(233), text, "ReadFile of a file written with WriteFile ""caf"" and e acute"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadFile_WrittenText_HasNoByteOrderMark()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("ReadFile_WrittenText_HasNoByteOrderMark")
+        p = w & "\a.txt"
+        FileHelper.WriteFile "abc", p
+        Dim text As Variant
+        text = FileHelper.ReadFile(p)
+        Expect.AreEqual "abc", text, "ReadFile of a file written with WriteFile ""abc"""
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadFile_EmptyFile_ReturnsEmptyString()
+        Expect.Begin
+        Dim w As String, p As String, f As Long
+        w = Sandbox.Fresh("ReadFile_EmptyFile_ReturnsEmptyString")
+        p = w & "\empty.txt"
+        f = FreeFile
+        Open p For Output As #f
+        Close #f
+        Dim text As Variant
+        text = FileHelper.ReadFile(p)
+        Expect.AreEqual vbString, VarType(text), "VarType of ReadFile of an empty file"
+        Expect.AreEqual 0, Len(text), "Len of ReadFile of an empty file"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadFile_MissingFile_DoesNotCreateIt()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("ReadFile_MissingFile_DoesNotCreateIt")
+        p = w & "\missing.txt"
+        Dim text As Variant
+        text = FileHelper.ReadFile(p)
+        Expect.IsFalse FileHelper.FileExists(p), "the file exists after ReadFile of a file that was not there"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadFile_MissingFile_ReturnsErrorText()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("ReadFile_MissingFile_ReturnsErrorText")
+        p = w & "\missing.txt"
+        Dim text As Variant
+        text = FileHelper.ReadFile(p)
+        Expect.AreEqual "Error ", Left$(text, 6), "the start of what ReadFile returns for a file that is not there"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReadFile_MissingFolder_ReturnsErrorText()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("ReadFile_MissingFolder_ReturnsErrorText")
+        p = w & "\no-folder\a.txt"
+        Dim text As Variant
+        text = FileHelper.ReadFile(p)
+        Expect.AreEqual vbString, VarType(text), "VarType of ReadFile in a folder that is not there"
+        Expect.AreEqual "Error ", Left$(text, 6), "the start of that text"
+        Expect.IsTrue InStr(text, "(File: " & p & ")") > 0, "that text names the path"
+        Expect.IsFalse FileHelper.DirectoryExists(w & "\no-folder"), "the folder exists after ReadFile in it"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    ' ---- GetFileSize
+
+    [TestCase]
+    Public Sub GetFileSize_ExistingFile_ReturnsItsSize()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("GetFileSize_ExistingFile_ReturnsItsSize")
+        p = w & "\a.txt"
+        FileHelper.WriteFile "Hello", p
+        Expect.AreEqual 8, FileHelper.GetFileSize(p), "GetFileSize of a file written with WriteFile ""Hello"""
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFileSize_MissingFile_ReturnsMinusOne()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("GetFileSize_MissingFile_ReturnsMinusOne")
+        p = w & "\missing.bin"
+        Expect.AreEqual -1, FileHelper.GetFileSize(p), "GetFileSize of a file that is not there"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFileSize_MissingFile_DoesNotCreateIt()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("GetFileSize_MissingFile_DoesNotCreateIt")
+        p = w & "\missing.bin"
+        Dim size As LongLong
+        size = FileHelper.GetFileSize(p)
+        Expect.IsFalse FileHelper.FileExists(p), "the file exists after GetFileSize of a file that was not there"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFileSize_MissingFolder_ReturnsMinusOne()
+        Expect.Begin
+        Dim w As String
+        w = Sandbox.Fresh("GetFileSize_MissingFolder_ReturnsMinusOne")
+        Expect.AreEqual -1, FileHelper.GetFileSize(w & "\no-folder\x.bin"), "GetFileSize of a file in a folder that is not there"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    ' ---- DeleteFile, FileExists, DirectoryExists
+
+    [TestCase]
+    Public Sub DeleteFile_ExistingFile_RemovesIt()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("DeleteFile_ExistingFile_RemovesIt")
+        p = w & "\a.txt"
+        FileHelper.WriteFile "x", p
+        Expect.IsTrue FileHelper.DeleteFile(p), "DeleteFile of a file that is there"
+        Expect.IsFalse FileHelper.FileExists(p), "FileExists after DeleteFile"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DeleteFile_MissingFile_ReturnsFalse()
+        Expect.Begin
+        Dim w As String
+        w = Sandbox.Fresh("DeleteFile_MissingFile_ReturnsFalse")
+        Expect.IsFalse FileHelper.DeleteFile(w & "\missing.txt"), "DeleteFile of a file that is not there"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DeleteFile_Wildcard_DeletesEveryMatch()
+        Expect.Begin
+        Dim w As String
+        w = Sandbox.Fresh("DeleteFile_Wildcard_DeletesEveryMatch")
+        FileHelper.WriteFile "a", w & "\a.tmpd"
+        FileHelper.WriteFile "b", w & "\b.tmpd"
+        FileHelper.WriteFile "c", w & "\c.keep"
+        Expect.IsTrue FileHelper.DeleteFile(w & "\*.tmpd"), "DeleteFile of a pattern that matches two files"
+        Expect.IsFalse FileHelper.FileExists(w & "\a.tmpd"), "FileExists of the first match after DeleteFile"
+        Expect.IsFalse FileHelper.FileExists(w & "\b.tmpd"), "FileExists of the second match after DeleteFile"
+        Expect.IsTrue FileHelper.FileExists(w & "\c.keep"), "FileExists of the file the pattern does not match"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileExists_Folder_ReturnsFalse()
+        Expect.Begin
+        Dim w As String
+        w = Sandbox.Fresh("FileExists_Folder_ReturnsFalse")
+        Expect.IsFalse FileHelper.FileExists(w), "FileExists of a folder"
+        Expect.IsTrue FileHelper.DirectoryExists(w), "DirectoryExists of a folder"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DirectoryExists_File_ReturnsFalse()
+        Expect.Begin
+        Dim w As String, p As String
+        w = Sandbox.Fresh("DirectoryExists_File_ReturnsFalse")
+        p = w & "\a.txt"
+        FileHelper.WriteFile "x", p
+        Expect.IsFalse FileHelper.DirectoryExists(p), "DirectoryExists of a file"
+        Expect.IsTrue FileHelper.FileExists(p), "FileExists of a file"
+        Expect.IsFalse FileHelper.FileExists(w & "\missing.txt"), "FileExists of a path that is not there"
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EnsureDirectoryExists_ExistingFolder_RaisesNoError()
+        Expect.Begin
+        Dim w As String
+        w = Sandbox.Fresh("EnsureDirectoryExists_ExistingFolder_RaisesNoError")
+        On Error GoTo Raised
+        FileHelper.EnsureDirectoryExists w & "\"
+        FileHelper.EnsureDirectoryExists w & "\new"
+        On Error GoTo 0
+        Expect.IsTrue FileHelper.DirectoryExists(w & "\new"), "DirectoryExists after EnsureDirectoryExists of a new last folder"
+        GoTo Finish
+Raised:
+        Expect.Fail "EnsureDirectoryExists raised run-time error " & Err.Number & ": " & Err.Description
+        Resume Finish
+Finish:
+        Sandbox.Remove w
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/FilePathTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/FilePathTests.twin
new file mode 100644
index 00000000..c8e7f80e
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/FilePathTests.twin
@@ -0,0 +1,66 @@
+' FileHelper: the functions that take a path apart or put one together. They touch no file.
+[TestFixture]
+Module FilePathTests
+
+    [TestCase]
+    Public Sub NormalizePath_UncPath_KeepsItsTwoBackslashes()
+        Expect.Begin
+        Expect.AreEqual "\\server\share\f.txt", FileHelper.NormalizePath("\\server\share\f.txt"), "NormalizePath of a UNC path"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFullPath_UncPath_StaysAUncPath()
+        Expect.Begin
+        Expect.AreEqual "\\server\share\f.txt", FileHelper.GetFullPath("\\server\share\f.txt"), "GetFullPath of a UNC path"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NormalizePath_MixedSeparatorsAndDots_IsCleaned()
+        Expect.Begin
+        Expect.AreEqual "C:\a\b\d.txt", FileHelper.NormalizePath("C:/a//b/./c/../d.txt"), "NormalizePath of C:/a//b/./c/../d.txt"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFullPath_RelativePath_StartsAtAppPath()
+        Expect.Begin
+        Expect.AreEqual App.Path & "\x.txt", FileHelper.GetFullPath("x.txt"), "GetFullPath of x.txt"
+        Expect.AreEqual App.Path & "\x.txt", FileHelper.GetFullPath("sub\..\x.txt"), "GetFullPath of sub\..\x.txt"
+        Expect.AreEqual "C:\b\x.txt", FileHelper.GetFullPath("C:\a\..\b\x.txt"), "GetFullPath of C:\a\..\b\x.txt"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetDirectoryName_ReturnsTheFolderPart()
+        Expect.Begin
+        Expect.AreEqual "C:\a", FileHelper.GetDirectoryName("C:\a\b.txt"), "GetDirectoryName of C:\a\b.txt"
+        Expect.AreEqual "C:", FileHelper.GetDirectoryName("C:\a\"), "GetDirectoryName of C:\a\"
+        Expect.AreEqual "", FileHelper.GetDirectoryName("b.txt"), "GetDirectoryName of b.txt"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileNameFunctions_TakeTheNameApart()
+        Expect.Begin
+        Expect.AreEqual "b.tar.gz", FileHelper.GetFileName("C:\a\b.tar.gz"), "GetFileName of C:\a\b.tar.gz"
+        Expect.AreEqual "b.tar", FileHelper.GetFileNameWithoutExtension("C:\a\b.tar.gz"), "GetFileNameWithoutExtension of C:\a\b.tar.gz"
+        Expect.AreEqual ".gz", FileHelper.GetExtension("C:\a\b.tar.gz"), "GetExtension of C:\a\b.tar.gz"
+        Expect.AreEqual "", FileHelper.GetExtension("C:\a\b"), "GetExtension of C:\a\b"
+        Expect.AreEqual ".gitignore", FileHelper.GetExtension(".gitignore"), "GetExtension of .gitignore"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsAbsolutePath_TellsDriveAndUncPathsFromTheRest()
+        Expect.Begin
+        Expect.IsTrue FileHelper.IsAbsolutePath("C:\a"), "IsAbsolutePath of C:\a"
+        Expect.IsTrue FileHelper.IsAbsolutePath("\\server\share"), "IsAbsolutePath of \\server\share"
+        Expect.IsFalse FileHelper.IsAbsolutePath("a\b"), "IsAbsolutePath of a\b"
+        Expect.IsFalse FileHelper.IsAbsolutePath("\a"), "IsAbsolutePath of \a"
+        Expect.IsFalse FileHelper.IsAbsolutePath("//server/share"), "IsAbsolutePath of //server/share"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/FormatHelperTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/FormatHelperTests.twin
new file mode 100644
index 00000000..abe6835f
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/FormatHelperTests.twin
@@ -0,0 +1,123 @@
+' FormatHelper: the formatting functions and the two escaping functions.
+[TestFixture]
+Module FormatHelperTests
+
+    ' The decimal separator of the user's regional settings, as Format writes it.
+    Private Function Sep() As String
+        Sep = Mid$(Format$(1.5, "0.0"), 2, 1)
+    End Function
+
+    ' ---- FormatBytes
+
+    [TestCase]
+    Public Sub FormatBytes_NoDecimals_LeavesNoDecimalSeparator()
+        Expect.Begin
+        Expect.AreEqual "4 KB", FormatHelper.FormatBytes(4096, 0), "FormatBytes(4096, 0)"
+        Expect.AreEqual "1 MB", FormatHelper.FormatBytes(1048576, 0), "FormatBytes(1048576, 0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatBytes_Decimals_WritesThatManyDigits()
+        Expect.Begin
+        Expect.AreEqual "1" & Sep() & "5 KB", FormatHelper.FormatBytes(1536), "FormatBytes(1536)"
+        Expect.AreEqual "1" & Sep() & "500 KB", FormatHelper.FormatBytes(1536, 3), "FormatBytes(1536, 3)"
+        Expect.AreEqual "1" & Sep() & "00 GB", FormatHelper.FormatBytes(1073741824, 2), "FormatBytes(1073741824, 2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatBytes_BelowOneKilobyte_IsWholeBytes()
+        Expect.Begin
+        Expect.AreEqual "512 B", FormatHelper.FormatBytes(512), "FormatBytes(512)"
+        Expect.AreEqual "512 B", FormatHelper.FormatBytes(512, 3), "FormatBytes(512, 3)"
+        Expect.AreEqual "0 B", FormatHelper.FormatBytes(0), "FormatBytes(0)"
+        Expect.AreEqual "-2048 B", FormatHelper.FormatBytes(-2048), "FormatBytes(-2048)"
+        Expect.Done
+    End Sub
+
+    ' ---- the other formats
+
+    [TestCase]
+    Public Sub FormatUptime_LeavesOutLeadingZeroParts()
+        Expect.Begin
+        Expect.AreEqual "0s", FormatHelper.FormatUptime(0), "FormatUptime(0)"
+        Expect.AreEqual "59s", FormatHelper.FormatUptime(59999), "FormatUptime(59999)"
+        Expect.AreEqual "1h 0m 0s", FormatHelper.FormatUptime(3600000), "FormatUptime(3600000)"
+        Expect.AreEqual "3d 12h 5m 32s", FormatHelper.FormatUptime(302732000), "FormatUptime(302732000)"
+        Expect.AreEqual "1d 1h 1m 1s", FormatHelper.FormatUptime(90061000), "FormatUptime(90061000)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatPercent_WritesTheShare()
+        Expect.Begin
+        Expect.AreEqual "33" & Sep() & "3%", FormatHelper.FormatPercent(1, 3, 1), "FormatPercent(1, 3, 1)"
+        Expect.AreEqual "50%", FormatHelper.FormatPercent(1, 2), "FormatPercent(1, 2)"
+        Expect.AreEqual "0%", FormatHelper.FormatPercent(1, 0, 1), "FormatPercent(1, 0, 1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatPercentValue_RoundsLikeCLng()
+        Expect.Begin
+        Expect.AreEqual "55%", FormatHelper.FormatPercentValue(54.6), "FormatPercentValue(54.6)"
+        Expect.AreEqual "2%", FormatHelper.FormatPercentValue(2.5), "FormatPercentValue(2.5)"
+        Expect.AreEqual "12" & Sep() & "3%", FormatHelper.FormatPercentValue(12.34, 1), "FormatPercentValue(12.34, 1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DateFormats_WriteTheDocumentedForms()
+        Expect.Begin
+        Dim d As Date
+        d = DateSerial(2026, 1, 4) + TimeSerial(15, 30, 45)
+        Expect.AreEqual "2026-01-04 15:30:45", FormatHelper.FormatDateTime(d), "FormatHelper.FormatDateTime"
+        Expect.AreEqual "2026-01-04T15:30:45", FormatHelper.FormatDateTimeISO(d), "FormatDateTimeISO"
+        Expect.AreEqual "15:30:45", FormatHelper.FormatTime(d), "FormatTime"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PadAndTruncate_FollowTheirDescriptions()
+        Expect.Begin
+        Expect.AreEqual "   42", FormatHelper.PadLeft("42", 5), "PadLeft(""42"", 5)"
+        Expect.AreEqual "42...", FormatHelper.PadRight("42", 5, "."), "PadRight(""42"", 5, ""."")"
+        Expect.AreEqual "A long ...", FormatHelper.Truncate("A long sentence", 10), "Truncate(""A long sentence"", 10)"
+        Expect.AreEqual "...", FormatHelper.Truncate("abcdef", 3), "Truncate(""abcdef"", 3)"
+        Expect.AreEqual "abcd~", FormatHelper.Truncate("abcdef", 5, "~"), "Truncate(""abcdef"", 5, ""~"")"
+        Expect.AreEqual "abc", FormatHelper.Truncate("abc", 5), "Truncate(""abc"", 5)"
+        Expect.Done
+    End Sub
+
+    ' ---- escaping
+
+    [TestCase]
+    Public Sub EscapeHtml_ReplacesTheFiveCharacters()
+        Expect.Begin
+        Expect.AreEqual "&lt;a href=&#39;x&#39;&gt;&amp;&lt;/a&gt;", FormatHelper.EscapeHtml("<a href='x'>&</a>"), "EscapeHtml of <a href='x'>&</a>"
+        Expect.AreEqual "&quot;q&quot;", FormatHelper.EscapeHtml("""q"""), "EscapeHtml of a quoted word"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EscapeJson_NamedCharacters_AreEscaped()
+        Expect.Begin
+        Expect.AreEqual "a\\b\t\""q\""", FormatHelper.EscapeJson("a\b" & vbTab & """q"""), "EscapeJson of a backslash, a tab and quotes"
+        Expect.AreEqual "x\r\ny", FormatHelper.EscapeJson("x" & vbCrLf & "y"), "EscapeJson of a carriage return and a line feed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EscapeJson_ControlCharacters_AreEscaped()
+        Expect.Begin
+        Dim code As Long, raw As String, escaped As String
+        For code = 1 To 31
+            escaped = FormatHelper.EscapeJson(Chr$(code))
+            If InStr(escaped, Chr$(code)) > 0 Then raw = raw & IIf(Len(raw) > 0, ",", "") & code
+        Next code
+        Expect.AreEqual "", raw,"codes from 1 to 31 that EscapeJson returns as the raw character, which JSON does not allow in a string"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/FormatterTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/FormatterTests.twin
new file mode 100644
index 00000000..375a62b8
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/FormatterTests.twin
@@ -0,0 +1,217 @@
+' The three formatters, FormatterFactory, and what JsonFormatter does with control characters.
+[TestFixture]
+Module FormatterTests
+
+    ' ---- JsonFormatter
+
+    [TestCase]
+    Public Sub JsonFormatter_ControlCharacterInValue_IsEscaped()
+        Expect.Begin
+        Dim f As IOutputFormatter
+        Set f = New JsonFormatter
+        f.BeginFormat
+        f.FormatCategory "Test"
+        f.FormatItem "Key", "a" & Chr$(1) & "b"
+        f.EndCategory
+        Dim json As String
+        json = f.EndFormat()
+        Expect.IsFalse InStr(json, Chr$(1)) > 0, "the JSON for a value that holds Chr$(1) holds the raw character, which JSON does not allow in a string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub JsonFormatter_ControlCharacterInKey_IsEscaped()
+        Expect.Begin
+        Dim f As IOutputFormatter
+        Set f = New JsonFormatter
+        f.BeginFormat
+        f.FormatCategory "Test"
+        f.FormatItem "K" & Chr$(2) & "y", "v"
+        f.EndCategory
+        Dim json As String
+        json = f.EndFormat()
+        Expect.IsFalse InStr(json, Chr$(2)) > 0, "the JSON for a key that holds Chr$(2) holds the raw character, which JSON does not allow in a string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub JsonFormatter_Layout_NamesGroupsAndItemsInCamelCase()
+        Expect.Begin
+        Dim f As IOutputFormatter
+        Set f = New JsonFormatter
+        f.BeginFormat
+        f.FormatCategory "CPU Info"
+        f.FormatItem "Processor Count", "8"
+        f.FormatItem "Path", "C:\Tools ""x"""
+        f.EndCategory
+        Dim lines() As String
+        lines = Split(f.EndFormat(), vbCrLf)
+        Expect.AreEqual "{", lines(0), "the first line of the JSON"
+        Expect.AreEqual "    ""toolVersion"": ""1.0"",", lines(3), "the fourth line of the JSON"
+        Expect.AreEqual "      ""cPUInfo"": {", lines(5), "the line of the group CPU Info"
+        Expect.AreEqual "        ""processorCount"": ""8"",", lines(6), "the line of the item Processor Count"
+        Expect.AreEqual "        ""path"": ""C:\\Tools \""x\""""", lines(7), "the line of the item Path"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub JsonFormatter_EveryValue_IsAString()
+        Expect.Begin
+        Dim f As IOutputFormatter
+        Set f = New JsonFormatter
+        f.BeginFormat
+        f.FormatCategory "Memory"
+        f.FormatItem "Total Days", "3"
+        f.EndCategory
+        Dim json As String
+        json = f.EndFormat()
+        Expect.IsTrue InStr(json, """totalDays"": ""3""") > 0, "the JSON writes the number 3 as the string ""3"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub JsonFormatter_NamesInCapitals_KeepTheirCapitals()
+        Expect.Begin
+        Dim f As IOutputFormatter
+        Set f = New JsonFormatter
+        f.BeginFormat
+        f.FormatCategory "Environment"
+        f.FormatItem "PATH", "x"
+        f.FormatItem "PROGRAMFILES(X86)", "y"
+        f.FormatItem "PID 4120", "z"
+        f.EndCategory
+        Dim json As String
+        json = f.EndFormat()
+        Expect.IsTrue InStr(json, """pATH"": ""x""") > 0, "the item PATH is named pATH"
+        Expect.IsTrue InStr(json, """pROGRAMFILES(X86)"": ""y""") > 0, "the item PROGRAMFILES(X86) is named pROGRAMFILES(X86)"
+        Expect.IsTrue InStr(json, """pID4120"": ""z""") > 0, "the item PID 4120 is named pID4120"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub JsonFormatter_FailedResult_HasOneErrorMember()
+        Expect.Begin
+        Dim results As New List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = New DiagnosticResult(Of KeyValuePair(Of String, String))("Memory")
+        r.SetError "Failed to get memory status"
+        results.Add r
+        Dim json As String
+        json = FormatterFactory.FormatResults(results, New JsonFormatter)
+        Expect.IsTrue InStr(json, """memory"": {" & vbCrLf & "        ""error"": ""Failed to get memory status""") > 0, "the JSON for a failed result"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub JsonFormatter_BeginFormat_StartsANewReport()
+        Expect.Begin
+        Dim f As IOutputFormatter
+        Set f = New JsonFormatter
+        f.BeginFormat
+        f.FormatCategory "First"
+        f.EndCategory
+        f.EndFormat
+        f.BeginFormat
+        f.FormatCategory "Second"
+        f.EndCategory
+        Dim json As String
+        json = f.EndFormat()
+        Expect.IsFalse InStr(json, "first") > 0, "the second report holds the group of the first"
+        Expect.IsTrue InStr(json, """second"": {") > 0, "the second report holds its own group"
+        Expect.Done
+    End Sub
+
+    ' ---- TextFormatter
+
+    [TestCase]
+    Public Sub TextFormatter_Layout_IsAnIniFile()
+        Expect.Begin
+        Dim f As IOutputFormatter
+        Set f = New TextFormatter
+        f.BeginFormat
+        f.FormatCategory "CPU Info"
+        f.FormatItem "Processor Count", "8"
+        f.FormatItem "Path", "C:\Tools ""x"""
+        f.EndCategory
+        f.FormatCategory "Empty"
+        f.EndCategory
+        f.FormatCategory "Memory"
+        f.FormatItem "Memory Load", "54%"
+        f.EndCategory
+        Expect.AreEqual "# Twinbasic Diagnostic Tool v1.0|" & "|[CPU Info]|Processor Count = 8|Path = C:\Tools ""x""|" & "|[Empty]|[Memory]|Memory Load = 54%||", Replace(f.EndFormat(), vbCrLf, "|"), "the text report"
+        Expect.AreEqual "Text", f.FormatterName, "FormatterName"
+        Expect.AreEqual ".txt", f.FileExtension, "FileExtension"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatResults_FailedResult_IsOneErrorItem()
+        Expect.Begin
+        Dim results As New List(Of DiagnosticResult(Of KeyValuePair(Of String, String)))
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = New DiagnosticResult(Of KeyValuePair(Of String, String))("Uptime")
+        r.AddItem New KeyValuePair(Of String, String)("Total Days", "3")
+        results.Add r
+        Set r = New DiagnosticResult(Of KeyValuePair(Of String, String))("Memory")
+        r.AddItem New KeyValuePair(Of String, String)("Answer", "42")
+        r.SetError "Failed to get memory status"
+        results.Add r
+        Dim text As String
+        text = FormatterFactory.FormatResults(results, FormatterFactory.CreateFormatter("text"))
+        Expect.AreEqual "# Twinbasic Diagnostic Tool v1.0||[Uptime]|Total Days = 3||[Memory]|Error = Failed to get memory status||", Replace(text, vbCrLf, "|"), "the text report of a result and a failed result"
+        Expect.Done
+    End Sub
+
+    ' ---- HtmlFormatter
+
+    [TestCase]
+    Public Sub HtmlFormatter_Document_IsEscapedAndComplete()
+        Expect.Begin
+        Dim f As IOutputFormatter
+        Set f = New HtmlFormatter
+        f.BeginFormat
+        f.FormatCategory "Environment"
+        f.FormatItem "PATH", "C:\Tools & <x>"
+        f.EndCategory
+        Dim html As String
+        html = f.EndFormat()
+        Expect.AreEqual "<!DOCTYPE html>", Left$(html, 15), "the start of the HTML"
+        Expect.IsTrue InStr(html, "<h2>Environment</h2>") > 0, "the heading of the group"
+        Expect.IsTrue InStr(html, "<td class=""value"">C:\Tools &amp; &lt;x&gt;</td>") > 0, "the escaped value"
+        Expect.AreEqual "HTML", f.FormatterName, "FormatterName"
+        Expect.AreEqual ".html", f.FileExtension, "FileExtension"
+        Expect.Done
+    End Sub
+
+    ' ---- FormatterFactory
+
+    [TestCase]
+    Public Sub CreateFormatter_KnownAndUnknownNames_GiveTheDocumentedFormatter()
+        Expect.Begin
+        Expect.AreEqual "Text", FormatterFactory.CreateFormatter("text").FormatterName, "CreateFormatter(""text"")"
+        Expect.AreEqual "Text", FormatterFactory.CreateFormatter("txt").FormatterName, "CreateFormatter(""txt"")"
+        Expect.AreEqual "JSON", FormatterFactory.CreateFormatter("JSON").FormatterName, "CreateFormatter(""JSON"")"
+        Expect.AreEqual "HTML", FormatterFactory.CreateFormatter("html").FormatterName, "CreateFormatter(""html"")"
+        Expect.AreEqual "HTML", FormatterFactory.CreateFormatter("htm").FormatterName, "CreateFormatter(""htm"")"
+        Expect.AreEqual "Text", FormatterFactory.CreateFormatter("xml").FormatterName, "CreateFormatter(""xml"")"
+        Expect.AreEqual "Text", FormatterFactory.CreateFormatter("").FormatterName, "CreateFormatter("""")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CreateFormatterFromArg_RemovesOneLeadingSlashOrHyphen()
+        Expect.Begin
+        Expect.AreEqual "JSON", FormatterFactory.CreateFormatterFromArg("/JSON").FormatterName, "CreateFormatterFromArg(""/JSON"")"
+        Expect.AreEqual "HTML", FormatterFactory.CreateFormatterFromArg("-html").FormatterName, "CreateFormatterFromArg(""-html"")"
+        Expect.AreEqual "Text", FormatterFactory.CreateFormatterFromArg("--json").FormatterName, "CreateFormatterFromArg(""--json"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetSupportedFormats_ReturnsTheFixedText()
+        Expect.Begin
+        Expect.AreEqual "text, json, html", FormatterFactory.GetSupportedFormats(), "GetSupportedFormats"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/ListPerson.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/ListPerson.twin
new file mode 100644
index 00000000..6ea1a95f
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/ListPerson.twin
@@ -0,0 +1,6 @@
+' ListPerson: a class with no default member, for the cases that put objects in a List.
+Class ListPerson
+
+    Public Name As String
+
+End Class
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/ListTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/ListTests.twin
new file mode 100644
index 00000000..a050d8dd
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/ListTests.twin
@@ -0,0 +1,336 @@
+' List(Of T): Insert, SetItem, the search members on objects, the index errors and Count.
+[TestFixture]
+Module ListTests
+
+    ' The items of a list of text, joined.
+    Private Function Joined(ByVal L As List(Of String)) As String
+        Dim i As Long, s As String
+        For i = 0 To L.Count - 1
+            s = s & L.Item(i)
+        Next i
+        Joined = s
+    End Function
+
+    ' A list that holds "a", "b" and "c".
+    Private Function Abc() As List(Of String)
+        Dim l As New List(Of String)
+        l.Add "a"
+        l.Add "b"
+        l.Add "c"
+        Set Abc = l
+    End Function
+
+    ' ---- Insert and SetItem put the item in the wrong place
+
+    [TestCase]
+    Public Sub Insert_InMiddle_PutsItemAtIndex()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.Insert 1, "X"
+        Expect.AreEqual "aXbc", Joined(l), "items of a, b, c after Insert 1, ""X"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Insert_AtZero_PutsItemFirst()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.Insert 0, "Y"
+        Expect.AreEqual "Yabc", Joined(l), "items of a, b, c after Insert 0, ""Y"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Insert_AtCount_PutsItemLast()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.Insert 3, "Z"
+        Expect.AreEqual "abcZ", Joined(l), "items of a, b, c after Insert 3, ""Z"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Insert_AtZeroOnEmptyList_AddsItem()
+        Expect.Begin
+        Dim l As New List(Of String)
+        On Error Resume Next
+        l.Insert 0, "Y"
+        Expect.AreEqual 0, Err.Number, "run-time error raised by Insert 0, ""Y"" on an empty list"
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual 1, l.Count, "Count of an empty list after Insert 0, ""Y"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetItem_AtZero_ReplacesFirstItem()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.SetItem 0, "Z"
+        Expect.AreEqual "Zbc", Joined(l), "items of a, b, c after SetItem 0, ""Z"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetItem_AtZeroOnOneItemList_ReplacesTheItem()
+        Expect.Begin
+        Dim l As New List(Of String)
+        l.Add "a"
+        On Error Resume Next
+        l.SetItem 0, "Z"
+        Expect.AreEqual 0, Err.Number, "run-time error raised by SetItem 0, ""Z"" on a list of one item"
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual 1, l.Count, "Count of a list of one item after SetItem 0, ""Z"""
+        Expect.AreEqual "Z", Joined(l), "items of a list of one item after SetItem 0, ""Z"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetItem_InMiddle_ReplacesItem()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.SetItem 1, "Z"
+        Expect.AreEqual "aZc", Joined(l), "items of a, b, c after SetItem 1, ""Z"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetItem_AtLastIndex_ReplacesLastItem()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.SetItem 2, "Z"
+        Expect.AreEqual "abZ", Joined(l), "items of a, b, c after SetItem 2, ""Z"""
+        Expect.Done
+    End Sub
+
+    ' ---- the search members on a list of objects
+
+    [TestCase]
+    Public Sub Contains_Object_FindsIt()
+        Expect.Begin
+        Dim people As New List(Of ListPerson)
+        Dim ann As New ListPerson
+        ann.Name = "Ann"
+        people.Add ann
+        Dim found As Boolean
+        On Error Resume Next
+        found = people.Contains(ann)
+        Expect.AreEqual 0, Err.Number, "run-time error raised by Contains of an object that is in the list"
+        Err.Clear
+        On Error GoTo 0
+        Expect.IsTrue found, "Contains of an object that is in the list"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IndexOf_Object_ReturnsItsPosition()
+        Expect.Begin
+        Dim people As New List(Of ListPerson)
+        Dim ann As New ListPerson
+        Dim bob As New ListPerson
+        people.Add ann
+        people.Add bob
+        Dim at As Long
+        at = -2
+        On Error Resume Next
+        at = people.IndexOf(bob)
+        Expect.AreEqual 0, Err.Number, "run-time error raised by IndexOf of an object that is in the list"
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual 1, at, "IndexOf of the second of two objects"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Remove_Object_RemovesIt()
+        Expect.Begin
+        Dim people As New List(Of ListPerson)
+        Dim ann As New ListPerson
+        people.Add ann
+        Dim removed As Boolean
+        On Error Resume Next
+        removed = people.Remove(ann)
+        Expect.AreEqual 0, Err.Number, "run-time error raised by Remove of an object that is in the list"
+        Err.Clear
+        On Error GoTo 0
+        Expect.IsTrue removed, "Remove of an object that is in the list"
+        Expect.AreEqual 0, people.Count, "Count after Remove of the only object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Add_Object_ItemReturnsIt()
+        Expect.Begin
+        Dim people As New List(Of ListPerson)
+        Dim ann As New ListPerson
+        ann.Name = "Ann"
+        people.Add ann
+        Expect.AreEqual 1, people.Count, "Count after Add of an object"
+        Expect.AreEqual "Ann", people.Item(0).Name, "Name of Item(0) after Add of an object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemoveAt_Object_RemovesIt()
+        Expect.Begin
+        Dim people As New List(Of ListPerson)
+        Dim ann As New ListPerson
+        people.Add ann
+        people.RemoveAt 0
+        Expect.AreEqual 0, people.Count, "Count after RemoveAt 0 of the only object"
+        Expect.Done
+    End Sub
+
+    ' ---- the other members
+
+    [TestCase]
+    Public Sub Contains_Text_ComparesByValue()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        Expect.IsTrue l.Contains("b"), "Contains(""b"") on a, b, c"
+        Expect.IsFalse l.Contains("x"), "Contains(""x"") on a, b, c"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IndexOf_Text_ReturnsZeroBasedIndex()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        Expect.AreEqual 1, l.IndexOf("b"), "IndexOf(""b"") on a, b, c"
+        Expect.AreEqual -1, l.IndexOf("x"), "IndexOf(""x"") on a, b, c"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Remove_Text_RemovesFirstMatch()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.Add "b"
+        Expect.IsTrue l.Remove("b"), "Remove(""b"") on a, b, c, b"
+        Expect.AreEqual "acb", Joined(l), "items after Remove(""b"") on a, b, c, b"
+        Expect.IsFalse l.Remove("x"), "Remove(""x"") on a, c, b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemoveAt_Text_MovesLaterItemsDown()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.RemoveAt 1
+        Expect.AreEqual "ac", Joined(l), "items of a, b, c after RemoveAt 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_RemovesEveryItem()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        l.Clear
+        Expect.AreEqual 0, l.Count, "Count after Clear"
+        Expect.AreEqual 0, l.Capacity, "Capacity after Clear"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_OutOfRange_Raises9()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        Dim v As String
+        On Error Resume Next
+        v = l.Item(3)
+        Expect.AreEqual 9, Err.Number, "run-time error raised by Item(3) on a list of three"
+        Expect.AreEqual "List(Of T).Item", Err.Source, "source of that error"
+        Expect.AreEqual "Index out of range: 3", Err.Description, "description of that error"
+        Err.Clear
+        v = l.Item(-1)
+        Expect.AreEqual 9, Err.Number, "run-time error raised by Item(-1)"
+        Err.Clear
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemoveAt_OutOfRange_Raises9()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        On Error Resume Next
+        l.RemoveAt 3
+        Expect.AreEqual 9, Err.Number, "run-time error raised by RemoveAt 3 on a list of three"
+        Expect.AreEqual "List(Of T).RemoveAt", Err.Source, "source of that error"
+        Err.Clear
+        Expect.AreEqual 3, l.Count, "Count after that error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetItem_OutOfRange_Raises9()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        On Error Resume Next
+        l.SetItem 3, "Z"
+        Expect.AreEqual 9, Err.Number, "run-time error raised by SetItem 3, ""Z"" on a list of three"
+        Expect.AreEqual "List(Of T).SetItem", Err.Source, "source of that error"
+        Err.Clear
+        Expect.AreEqual "abc", Joined(l), "items after that error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Insert_OutOfRange_Raises9()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        On Error Resume Next
+        l.Insert 4, "Z"
+        Expect.AreEqual 9, Err.Number, "run-time error raised by Insert 4, ""Z"" on a list of three"
+        Expect.AreEqual "List(Of T).Insert", Err.Source, "source of that error"
+        Err.Clear
+        l.Insert -1, "Z"
+        Expect.AreEqual 9, Err.Number, "run-time error raised by Insert -1, ""Z"""
+        Err.Clear
+        Expect.AreEqual "abc", Joined(l), "items after those errors"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToArray_ReturnsZeroBasedVariantArray()
+        Expect.Begin
+        Dim l As List(Of String)
+        Set l = Abc()
+        Dim items() As Variant
+        items = l.ToArray()
+        Expect.AreEqual 0, LBound(items), "LBound of ToArray"
+        Expect.AreEqual 2, UBound(items), "UBound of ToArray on a list of three"
+        Expect.AreEqual "c", items(2), "the last element of ToArray"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToArray_EmptyList_HasNoBounds()
+        Expect.Begin
+        Dim l As New List(Of String)
+        Dim items() As Variant
+        items = l.ToArray()
+        On Error Resume Next
+        Dim u As Long
+        u = UBound(items)
+        Expect.AreEqual 9, Err.Number, "run-time error raised by UBound of ToArray on an empty list"
+        Err.Clear
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/ReportContentTests.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/ReportContentTests.twin
new file mode 100644
index 00000000..ed32fcde
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/ReportContentTests.twin
@@ -0,0 +1,94 @@
+' What a full report names: the user and the computer, the folders of the environment, every
+' running program, the drives and the network adapters.
+[TestFixture]
+Module ReportContentTests
+
+    Private Declare PtrSafe Function GetCurrentProcessId Lib "kernel32" () As Long
+
+    [TestCase]
+    Public Sub FullReport_OperatingSystem_NamesTheUserAndTheComputer()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New OSInfoCollector)
+        Expect.AreEqual 0, StrComp(Environ$("COMPUTERNAME"), Reports.ValueOf(r, "Computer Name"), vbTextCompare), "Computer Name item against the COMPUTERNAME variable"
+        Expect.AreEqual 0, StrComp(Environ$("USERNAME"), Reports.ValueOf(r, "User Name"), vbTextCompare), "User Name item against the USERNAME variable"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FullReport_Environment_NamesTheProfileFolderAndThePath()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New EnvironmentCollector)
+        Expect.AreEqual Environ$("USERPROFILE"), Reports.ValueOf(r, "USERPROFILE"), "USERPROFILE item"
+        Expect.AreEqual Environ$("APPDATA"), Reports.ValueOf(r, "APPDATA"), "APPDATA item"
+        Dim p As String
+        p = Environ$("PATH")
+        If Len(p) > 200 Then p = Left$(p, 200) & "..."
+        Expect.AreEqual p, Reports.ValueOf(r, "PATH"), "PATH item"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FullReport_Processes_ListsEveryRunningProgram()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New ProcessInfoCollector)
+        Dim pid As Long
+        pid = GetCurrentProcessId()
+        Expect.AreEqual CStr(pid), Reports.ValueOf(r, "Current PID"), "Current PID item"
+        Expect.IsTrue Reports.ValueOf(r, "PID " & pid) Like "*(Threads: #*)", "the item of the program that runs the collector, PID " & pid
+        Expect.AreEqual CLng(Reports.ValueOf(r, "Total Processes")), Reports.CountKeysLike(r, "PID #*"), "number of PID items against Total Processes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FullReport_Disks_ListsTheSystemDrive()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New DiskInfoCollector)
+        Dim letter As String
+        letter = UCase$(Left$(Environ$("SystemDrive"), 1))
+        Expect.AreEqual "Fixed", Reports.ValueOf(r, "Drive " & letter), "Drive " & letter & " item, the system drive"
+        Expect.IsTrue Len(Reports.ValueOf(r, letter & ": Total")) > 0, letter & ": Total item"
+        Expect.IsTrue Len(Reports.ValueOf(r, letter & ": Free")) > 0, letter & ": Free item"
+        Expect.IsTrue Reports.ValueOf(r, letter & ": Used") Like "*(*%)", letter & ": Used item has a share in parentheses"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FullReport_Network_NamesTheHostAndTheFirstAdapterWithItsAddress()
+        Expect.Begin
+        Dim r As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set r = Reports.CollectFrom(New NetworkInfoCollector)
+        Expect.IsTrue Len(Reports.ValueOf(r, "Host Name")) > 0, "Host Name item"
+        Expect.IsTrue Adapters.Load() And Adapters.Count > 0, "GetAdaptersInfo returns at least one adapter"
+        If Adapters.Count > 0 Then
+            Expect.AreEqual Adapters.Description(0), Reports.ValueOf(r, "Adapter 0"), "Adapter 0 item"
+            Dim ip As String
+            ip = Adapters.Address(0)
+            If Len(ip) > 0 And ip <> "0.0.0.0" Then
+                Expect.AreEqual ip, Reports.ValueOf(r, "IPAddress0"), "IPAddress0 item, the IPv4 address of the first adapter"
+            End If
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FullReport_RunAll_HasOneResultForEachCollector()
+        Expect.Begin
+        Dim engine As New DiagnosticEngine
+        engine.RegisterCollector New OSInfoCollector
+        engine.RegisterCollector New EnvironmentCollector
+        engine.RegisterCollector New ProcessInfoCollector
+        engine.RegisterCollector New DiskInfoCollector
+        engine.RegisterCollector New NetworkInfoCollector
+        Dim report As String
+        report = FormatterFactory.FormatResults(engine.RunAll(), FormatterFactory.CreateFormatter("text"))
+        Expect.IsTrue InStr(report, "[Operating System]") > 0, "the report has the group Operating System"
+        Expect.IsTrue InStr(report, "[Processes]") > 0, "the report has the group Processes"
+        Expect.IsTrue InStr(report, "User Name = " & Environ$("USERNAME")) > 0 Or InStr(1, report, "User Name = " & Environ$("USERNAME"), vbTextCompare) > 0, "the report names the user"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/Reports.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/Reports.twin
new file mode 100644
index 00000000..d3d8aa54
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/Reports.twin
@@ -0,0 +1,46 @@
+' Reports: small helpers that read the items of a DiagnosticResult, shared by the cases that run
+' the collectors.
+Module Reports
+
+    ' The decimal separator of the user's regional settings, as Format writes it.
+    Public Function Sep() As String
+        Sep = Mid$(Format$(1.5, "0.0"), 2, 1)
+    End Function
+
+    ' The result of one collector run directly, through the interface.
+    Public Function CollectFrom(ByVal C As IDiagnosticCollector) As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set CollectFrom = C.Collect()
+    End Function
+
+    ' The position of the first item with a key, or -1.
+    Public Function IndexOfKey(ByVal R As DiagnosticResult(Of KeyValuePair(Of String, String)), ByVal Key As String) As Long
+        Dim i As Long
+        For i = 0 To R.ItemCount - 1
+            If R.Items.Item(i).Key = Key Then
+                IndexOfKey = i
+                Exit Function
+            End If
+        Next i
+        IndexOfKey = -1
+    End Function
+
+    Public Function HasKey(ByVal R As DiagnosticResult(Of KeyValuePair(Of String, String)), ByVal Key As String) As Boolean
+        HasKey = IndexOfKey(R, Key) >= 0
+    End Function
+
+    ' The value of the first item with a key, or "" when there is none.
+    Public Function ValueOf(ByVal R As DiagnosticResult(Of KeyValuePair(Of String, String)), ByVal Key As String) As String
+        Dim i As Long
+        i = IndexOfKey(R, Key)
+        If i >= 0 Then ValueOf = R.Items.Item(i).Value
+    End Function
+
+    ' The number of items whose key matches a Like pattern.
+    Public Function CountKeysLike(ByVal R As DiagnosticResult(Of KeyValuePair(Of String, String)), ByVal Pattern As String) As Long
+        Dim i As Long
+        For i = 0 To R.ItemCount - 1
+            If R.Items.Item(i).Key Like Pattern Then CountKeysLike = CountKeysLike + 1
+        Next i
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/RunAll.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/RunAll.twin
new file mode 100644
index 00000000..01151c06
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/RunAll.twin
@@ -0,0 +1,502 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB_Diagnostic, version 1.0.0.1. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB_Diagnostic 1.0.0.1: 122 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.LocaleCollector_Items_ArePresent
+        Expect.EndCase "CollectorTests.LocaleCollector_Items_ArePresent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.CPUInfoCollector_PageSize_HasNoDecimalSeparator
+        Expect.EndCase "CollectorTests.CPUInfoCollector_PageSize_HasNoDecimalSeparator", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.CPUInfoCollector_Items_ArePresent
+        Expect.EndCase "CollectorTests.CPUInfoCollector_Items_ArePresent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.NetworkInfoCollector_FullReport_ListsEveryAdapter
+        Expect.EndCase "CollectorTests.NetworkInfoCollector_FullReport_ListsEveryAdapter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.CPULoadCollector_FirstReading_IsZero
+        Expect.EndCase "CollectorTests.CPULoadCollector_FirstReading_IsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.CPULoadCollector_LaterReading_IsAPercentage
+        Expect.EndCase "CollectorTests.CPULoadCollector_LaterReading_IsAPercentage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.CPULoadCollector_Reset_MakesTheNextReadingZero
+        Expect.EndCase "CollectorTests.CPULoadCollector_Reset_MakesTheNextReadingZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.MemoryInfoCollector_Items_AreTheEightKeysInOrder
+        Expect.EndCase "CollectorTests.MemoryInfoCollector_Items_AreTheEightKeysInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.UptimeCollector_Items_AreTheFiveKeysInOrder
+        Expect.EndCase "CollectorTests.UptimeCollector_Items_AreTheFiveKeysInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.EnvironmentCollector_Summary_CountsThePathEntries
+        Expect.EndCase "CollectorTests.EnvironmentCollector_Summary_CountsThePathEntries", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.ProcessInfoCollector_Summary_HasTheThreeCounts
+        Expect.EndCase "CollectorTests.ProcessInfoCollector_Summary_HasTheThreeCounts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CollectorTests.Collectors_Properties_AreThoseOfTheTable
+        Expect.EndCase "CollectorTests.Collectors_Properties_AreThoseOfTheTable", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.New_CreatesAnEmptyDictionary
+        Expect.EndCase "DictionaryTests.New_CreatesAnEmptyDictionary", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Add_ThenItem_ReturnsTheValue
+        Expect.EndCase "DictionaryTests.Add_ThenItem_ReturnsTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Add_ExistingKey_Raises457
+        Expect.EndCase "DictionaryTests.Add_ExistingKey_Raises457", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_MissingKey_Raises5
+        Expect.EndCase "DictionaryTests.Item_MissingKey_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.SetItem_NewKey_AddsItAtTheEnd
+        Expect.EndCase "DictionaryTests.SetItem_NewKey_AddsItAtTheEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.SetItem_ExistingKey_ReplacesTheValueInPlace
+        Expect.EndCase "DictionaryTests.SetItem_ExistingKey_ReplacesTheValueInPlace", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.ContainsKey_TellsPresentFromMissing
+        Expect.EndCase "DictionaryTests.ContainsKey_TellsPresentFromMissing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.TryGetValue_Present_ReturnsTrueAndTheValue
+        Expect.EndCase "DictionaryTests.TryGetValue_Present_ReturnsTrueAndTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.TryGetValue_Missing_ReturnsFalseAndKeepsTheVariable
+        Expect.EndCase "DictionaryTests.TryGetValue_Missing_ReturnsFalseAndKeepsTheVariable", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Remove_ExistingKey_RemovesKeyAndValue
+        Expect.EndCase "DictionaryTests.Remove_ExistingKey_RemovesKeyAndValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Clear_RemovesEveryKey
+        Expect.EndCase "DictionaryTests.Clear_RemovesEveryKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.KeysAndValues_ReturnTheListsInOrderOfAdding
+        Expect.EndCase "DictionaryTests.KeysAndValues_ReturnTheListsInOrderOfAdding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RegisterCollector_SameCategory_Raises5
+        Expect.EndCase "EngineTests.RegisterCollector_SameCategory_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RegisterCollector_Nothing_Raises5
+        Expect.EndCase "EngineTests.RegisterCollector_Nothing_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RegisterCollector_CategoryNames_AreCaseSensitive
+        Expect.EndCase "EngineTests.RegisterCollector_CategoryNames_AreCaseSensitive", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RunAll_ResultsAreInOrderOfRegistration
+        Expect.EndCase "EngineTests.RunAll_ResultsAreInOrderOfRegistration", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RunAll_CollectorRaisesError_RunGoesOnWithTheMessage
+        Expect.EndCase "EngineTests.RunAll_CollectorRaisesError_RunGoesOnWithTheMessage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RunAll_Summary_AsksSummaryCollectorsForTheirSummary
+        Expect.EndCase "EngineTests.RunAll_Summary_AsksSummaryCollectorsForTheirSummary", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RunAll_NextRun_EmptiesTheEarlierList
+        Expect.EndCase "EngineTests.RunAll_NextRun_EmptiesTheEarlierList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RunCategory_Unknown_ReturnsAFailedResult
+        Expect.EndCase "EngineTests.RunCategory_Unknown_ReturnsAFailedResult", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RunCategory_Known_RunsThatCollectorOnly
+        Expect.EndCase "EngineTests.RunCategory_Known_RunsThatCollectorOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.RunByRefreshMode_RunsOnlyTheCollectorsOfThatMode
+        Expect.EndCase "EngineTests.RunByRefreshMode_RunsOnlyTheCollectorsOfThatMode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.UnregisterCollector_RemovesTheFirstWithThatName
+        Expect.EndCase "EngineTests.UnregisterCollector_RemovesTheFirstWithThatName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EngineTests.IsRunning_BeforeAndAfterARun_IsFalse
+        Expect.EndCase "EngineTests.IsRunning_BeforeAndAfterARun_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.WriteFile_OverExistingLongerFile_ShortensIt
+        Expect.EndCase "FileHelperTests.WriteFile_OverExistingLongerFile_ShortensIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.WriteFile_Text_WritesByteOrderMarkAndUtf8
+        Expect.EndCase "FileHelperTests.WriteFile_Text_WritesByteOrderMarkAndUtf8", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.WriteFile_EmptyString_WritesByteOrderMarkOnly
+        Expect.EndCase "FileHelperTests.WriteFile_EmptyString_WritesByteOrderMarkOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.WriteFile_MissingLastFolder_CreatesIt
+        Expect.EndCase "FileHelperTests.WriteFile_MissingLastFolder_CreatesIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.WriteFile_MissingParentFolders_CreatesThem
+        Expect.EndCase "FileHelperTests.WriteFile_MissingParentFolders_CreatesThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.WriteFile_Failure_ReturnsTextAndRaisesNoError
+        Expect.EndCase "FileHelperTests.WriteFile_Failure_ReturnsTextAndRaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.AppendFile_NewFile_WritesByteOrderMarkOnce
+        Expect.EndCase "FileHelperTests.AppendFile_NewFile_WritesByteOrderMarkOnce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.AppendFile_AfterWriteFile_AddsAfterTheContent
+        Expect.EndCase "FileHelperTests.AppendFile_AfterWriteFile_AddsAfterTheContent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.AppendFile_MissingParentFolders_CreatesThem
+        Expect.EndCase "FileHelperTests.AppendFile_MissingParentFolders_CreatesThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.ReadFile_WrittenText_IsReadBackAsWritten
+        Expect.EndCase "FileHelperTests.ReadFile_WrittenText_IsReadBackAsWritten", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.ReadFile_WrittenText_HasNoByteOrderMark
+        Expect.EndCase "FileHelperTests.ReadFile_WrittenText_HasNoByteOrderMark", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.ReadFile_EmptyFile_ReturnsEmptyString
+        Expect.EndCase "FileHelperTests.ReadFile_EmptyFile_ReturnsEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.ReadFile_MissingFile_DoesNotCreateIt
+        Expect.EndCase "FileHelperTests.ReadFile_MissingFile_DoesNotCreateIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.ReadFile_MissingFile_ReturnsErrorText
+        Expect.EndCase "FileHelperTests.ReadFile_MissingFile_ReturnsErrorText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.ReadFile_MissingFolder_ReturnsErrorText
+        Expect.EndCase "FileHelperTests.ReadFile_MissingFolder_ReturnsErrorText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.GetFileSize_ExistingFile_ReturnsItsSize
+        Expect.EndCase "FileHelperTests.GetFileSize_ExistingFile_ReturnsItsSize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.GetFileSize_MissingFile_ReturnsMinusOne
+        Expect.EndCase "FileHelperTests.GetFileSize_MissingFile_ReturnsMinusOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.GetFileSize_MissingFile_DoesNotCreateIt
+        Expect.EndCase "FileHelperTests.GetFileSize_MissingFile_DoesNotCreateIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.GetFileSize_MissingFolder_ReturnsMinusOne
+        Expect.EndCase "FileHelperTests.GetFileSize_MissingFolder_ReturnsMinusOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.DeleteFile_ExistingFile_RemovesIt
+        Expect.EndCase "FileHelperTests.DeleteFile_ExistingFile_RemovesIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.DeleteFile_MissingFile_ReturnsFalse
+        Expect.EndCase "FileHelperTests.DeleteFile_MissingFile_ReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.DeleteFile_Wildcard_DeletesEveryMatch
+        Expect.EndCase "FileHelperTests.DeleteFile_Wildcard_DeletesEveryMatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.FileExists_Folder_ReturnsFalse
+        Expect.EndCase "FileHelperTests.FileExists_Folder_ReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.DirectoryExists_File_ReturnsFalse
+        Expect.EndCase "FileHelperTests.DirectoryExists_File_ReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileHelperTests.EnsureDirectoryExists_ExistingFolder_RaisesNoError
+        Expect.EndCase "FileHelperTests.EnsureDirectoryExists_ExistingFolder_RaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FilePathTests.NormalizePath_UncPath_KeepsItsTwoBackslashes
+        Expect.EndCase "FilePathTests.NormalizePath_UncPath_KeepsItsTwoBackslashes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FilePathTests.GetFullPath_UncPath_StaysAUncPath
+        Expect.EndCase "FilePathTests.GetFullPath_UncPath_StaysAUncPath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FilePathTests.NormalizePath_MixedSeparatorsAndDots_IsCleaned
+        Expect.EndCase "FilePathTests.NormalizePath_MixedSeparatorsAndDots_IsCleaned", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FilePathTests.GetFullPath_RelativePath_StartsAtAppPath
+        Expect.EndCase "FilePathTests.GetFullPath_RelativePath_StartsAtAppPath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FilePathTests.GetDirectoryName_ReturnsTheFolderPart
+        Expect.EndCase "FilePathTests.GetDirectoryName_ReturnsTheFolderPart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FilePathTests.FileNameFunctions_TakeTheNameApart
+        Expect.EndCase "FilePathTests.FileNameFunctions_TakeTheNameApart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FilePathTests.IsAbsolutePath_TellsDriveAndUncPathsFromTheRest
+        Expect.EndCase "FilePathTests.IsAbsolutePath_TellsDriveAndUncPathsFromTheRest", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.FormatBytes_NoDecimals_LeavesNoDecimalSeparator
+        Expect.EndCase "FormatHelperTests.FormatBytes_NoDecimals_LeavesNoDecimalSeparator", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.FormatBytes_Decimals_WritesThatManyDigits
+        Expect.EndCase "FormatHelperTests.FormatBytes_Decimals_WritesThatManyDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.FormatBytes_BelowOneKilobyte_IsWholeBytes
+        Expect.EndCase "FormatHelperTests.FormatBytes_BelowOneKilobyte_IsWholeBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.FormatUptime_LeavesOutLeadingZeroParts
+        Expect.EndCase "FormatHelperTests.FormatUptime_LeavesOutLeadingZeroParts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.FormatPercent_WritesTheShare
+        Expect.EndCase "FormatHelperTests.FormatPercent_WritesTheShare", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.FormatPercentValue_RoundsLikeCLng
+        Expect.EndCase "FormatHelperTests.FormatPercentValue_RoundsLikeCLng", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.DateFormats_WriteTheDocumentedForms
+        Expect.EndCase "FormatHelperTests.DateFormats_WriteTheDocumentedForms", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.PadAndTruncate_FollowTheirDescriptions
+        Expect.EndCase "FormatHelperTests.PadAndTruncate_FollowTheirDescriptions", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.EscapeHtml_ReplacesTheFiveCharacters
+        Expect.EndCase "FormatHelperTests.EscapeHtml_ReplacesTheFiveCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.EscapeJson_NamedCharacters_AreEscaped
+        Expect.EndCase "FormatHelperTests.EscapeJson_NamedCharacters_AreEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatHelperTests.EscapeJson_ControlCharacters_AreEscaped
+        Expect.EndCase "FormatHelperTests.EscapeJson_ControlCharacters_AreEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.JsonFormatter_ControlCharacterInValue_IsEscaped
+        Expect.EndCase "FormatterTests.JsonFormatter_ControlCharacterInValue_IsEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.JsonFormatter_ControlCharacterInKey_IsEscaped
+        Expect.EndCase "FormatterTests.JsonFormatter_ControlCharacterInKey_IsEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.JsonFormatter_Layout_NamesGroupsAndItemsInCamelCase
+        Expect.EndCase "FormatterTests.JsonFormatter_Layout_NamesGroupsAndItemsInCamelCase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.JsonFormatter_EveryValue_IsAString
+        Expect.EndCase "FormatterTests.JsonFormatter_EveryValue_IsAString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.JsonFormatter_NamesInCapitals_KeepTheirCapitals
+        Expect.EndCase "FormatterTests.JsonFormatter_NamesInCapitals_KeepTheirCapitals", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.JsonFormatter_FailedResult_HasOneErrorMember
+        Expect.EndCase "FormatterTests.JsonFormatter_FailedResult_HasOneErrorMember", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.JsonFormatter_BeginFormat_StartsANewReport
+        Expect.EndCase "FormatterTests.JsonFormatter_BeginFormat_StartsANewReport", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.TextFormatter_Layout_IsAnIniFile
+        Expect.EndCase "FormatterTests.TextFormatter_Layout_IsAnIniFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.FormatResults_FailedResult_IsOneErrorItem
+        Expect.EndCase "FormatterTests.FormatResults_FailedResult_IsOneErrorItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.HtmlFormatter_Document_IsEscapedAndComplete
+        Expect.EndCase "FormatterTests.HtmlFormatter_Document_IsEscapedAndComplete", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.CreateFormatter_KnownAndUnknownNames_GiveTheDocumentedFormatter
+        Expect.EndCase "FormatterTests.CreateFormatter_KnownAndUnknownNames_GiveTheDocumentedFormatter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.CreateFormatterFromArg_RemovesOneLeadingSlashOrHyphen
+        Expect.EndCase "FormatterTests.CreateFormatterFromArg_RemovesOneLeadingSlashOrHyphen", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FormatterTests.GetSupportedFormats_ReturnsTheFixedText
+        Expect.EndCase "FormatterTests.GetSupportedFormats_ReturnsTheFixedText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Insert_InMiddle_PutsItemAtIndex
+        Expect.EndCase "ListTests.Insert_InMiddle_PutsItemAtIndex", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Insert_AtZero_PutsItemFirst
+        Expect.EndCase "ListTests.Insert_AtZero_PutsItemFirst", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Insert_AtCount_PutsItemLast
+        Expect.EndCase "ListTests.Insert_AtCount_PutsItemLast", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Insert_AtZeroOnEmptyList_AddsItem
+        Expect.EndCase "ListTests.Insert_AtZeroOnEmptyList_AddsItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.SetItem_AtZero_ReplacesFirstItem
+        Expect.EndCase "ListTests.SetItem_AtZero_ReplacesFirstItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.SetItem_AtZeroOnOneItemList_ReplacesTheItem
+        Expect.EndCase "ListTests.SetItem_AtZeroOnOneItemList_ReplacesTheItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.SetItem_InMiddle_ReplacesItem
+        Expect.EndCase "ListTests.SetItem_InMiddle_ReplacesItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.SetItem_AtLastIndex_ReplacesLastItem
+        Expect.EndCase "ListTests.SetItem_AtLastIndex_ReplacesLastItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Contains_Object_FindsIt
+        Expect.EndCase "ListTests.Contains_Object_FindsIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.IndexOf_Object_ReturnsItsPosition
+        Expect.EndCase "ListTests.IndexOf_Object_ReturnsItsPosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Remove_Object_RemovesIt
+        Expect.EndCase "ListTests.Remove_Object_RemovesIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Add_Object_ItemReturnsIt
+        Expect.EndCase "ListTests.Add_Object_ItemReturnsIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.RemoveAt_Object_RemovesIt
+        Expect.EndCase "ListTests.RemoveAt_Object_RemovesIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Contains_Text_ComparesByValue
+        Expect.EndCase "ListTests.Contains_Text_ComparesByValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.IndexOf_Text_ReturnsZeroBasedIndex
+        Expect.EndCase "ListTests.IndexOf_Text_ReturnsZeroBasedIndex", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Remove_Text_RemovesFirstMatch
+        Expect.EndCase "ListTests.Remove_Text_RemovesFirstMatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.RemoveAt_Text_MovesLaterItemsDown
+        Expect.EndCase "ListTests.RemoveAt_Text_MovesLaterItemsDown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Clear_RemovesEveryItem
+        Expect.EndCase "ListTests.Clear_RemovesEveryItem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Item_OutOfRange_Raises9
+        Expect.EndCase "ListTests.Item_OutOfRange_Raises9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.RemoveAt_OutOfRange_Raises9
+        Expect.EndCase "ListTests.RemoveAt_OutOfRange_Raises9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.SetItem_OutOfRange_Raises9
+        Expect.EndCase "ListTests.SetItem_OutOfRange_Raises9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.Insert_OutOfRange_Raises9
+        Expect.EndCase "ListTests.Insert_OutOfRange_Raises9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.ToArray_ReturnsZeroBasedVariantArray
+        Expect.EndCase "ListTests.ToArray_ReturnsZeroBasedVariantArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ListTests.ToArray_EmptyList_HasNoBounds
+        Expect.EndCase "ListTests.ToArray_EmptyList_HasNoBounds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReportContentTests.FullReport_OperatingSystem_NamesTheUserAndTheComputer
+        Expect.EndCase "ReportContentTests.FullReport_OperatingSystem_NamesTheUserAndTheComputer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReportContentTests.FullReport_Environment_NamesTheProfileFolderAndThePath
+        Expect.EndCase "ReportContentTests.FullReport_Environment_NamesTheProfileFolderAndThePath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReportContentTests.FullReport_Processes_ListsEveryRunningProgram
+        Expect.EndCase "ReportContentTests.FullReport_Processes_ListsEveryRunningProgram", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReportContentTests.FullReport_Disks_ListsTheSystemDrive
+        Expect.EndCase "ReportContentTests.FullReport_Disks_ListsTheSystemDrive", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReportContentTests.FullReport_Network_NamesTheHostAndTheFirstAdapterWithItsAddress
+        Expect.EndCase "ReportContentTests.FullReport_Network_NamesTheHostAndTheFirstAdapterWithItsAddress", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReportContentTests.FullReport_RunAll_HasOneResultForEachCollector
+        Expect.EndCase "ReportContentTests.FullReport_RunAll_HasOneResultForEachCollector", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/Sandbox.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/Sandbox.twin
new file mode 100644
index 00000000..fe91bcee
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/Sandbox.twin
@@ -0,0 +1,66 @@
+' Sandbox: the folder the test cases of TBMANLIB_Diagnostic write files in.
+'
+' Every file and folder a case makes is under %TEMP%\tbdocs-package-tests\TBMANLIB_Diagnostic\.
+' A case asks for a fresh folder of its own (Fresh), which empties it first in case an earlier run
+' left something, and removes it at its end (Remove).
+Module Sandbox
+
+    Public Function Root() As String
+        Root = Environ$("TEMP") & "\tbdocs-package-tests\TBMANLIB_Diagnostic"
+    End Function
+
+    ' A new, empty folder for one case.
+    Public Function Fresh(ByVal Tag As String) As String
+        Dim p As String
+        p = Root() & "\" & Tag
+        Remove p
+        On Error Resume Next
+        MkDir Environ$("TEMP") & "\tbdocs-package-tests"
+        MkDir Root()
+        MkDir p
+        Err.Clear
+        Fresh = p
+    End Function
+
+    ' Removes a folder with everything in it, and then the sandbox itself when nothing else is in
+    ' it. Raises no error.
+    Public Sub Remove(ByVal Path As String)
+        On Error Resume Next
+        CreateObject("Scripting.FileSystemObject").DeleteFolder Path, True
+        RmDir Root()
+        RmDir Environ$("TEMP") & "\tbdocs-package-tests"
+        Err.Clear
+    End Sub
+
+    ' The bytes of a file, or an empty array when it cannot be read.
+    Public Function BytesOf(ByVal Path As String) As Byte()
+        Dim b() As Byte, n As Long
+        On Error Resume Next
+        n = FileLen(Path)
+        If Err.Number = 0 And n > 0 Then
+            ReDim b(0 To n - 1)
+            Dim f As Long
+            f = FreeFile
+            Open Path For Binary Access Read As #f
+            Get #f, , b
+            Close #f
+        End If
+        Err.Clear
+        BytesOf = b
+    End Function
+
+    ' The bytes of a file as hexadecimal pairs separated by spaces, "" for an empty file.
+    Public Function HexOf(ByVal Path As String) As String
+        Dim b() As Byte, i As Long, s As String
+        b = BytesOf(Path)
+        On Error Resume Next
+        For i = 0 To UBound(b)
+            If Err.Number <> 0 Then Exit For
+            If Len(s) > 0 Then s = s & " "
+            s = s & Right$("0" & Hex$(b(i)), 2)
+        Next i
+        Err.Clear
+        HexOf = s
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Diagnostic/Sources/StubCollector.twin b/test/package-tests/TBMANLIB_Diagnostic/Sources/StubCollector.twin
new file mode 100644
index 00000000..7edce814
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/Sources/StubCollector.twin
@@ -0,0 +1,42 @@
+' StubCollector: a collector of the program, for the cases that run the DiagnosticEngine.
+'
+' It returns one item (Answer = 42) in the category named by Category, or, when Fail is True,
+' raises run-time error 5 with the text "stub failure".
+Class StubCollector
+    Implements IDiagnosticCollector
+
+    Public Category As String
+    Public Fail As Boolean
+
+    Private Property Get IDiagnosticCollector_CategoryName() As String
+        Return Category
+    End Property
+
+    Private Property Get IDiagnosticCollector_Description() As String
+        Return "A collector for the test cases"
+    End Property
+
+    Private Property Get IDiagnosticCollector_RefreshMode() As RefreshMode
+        Return RefreshMode.Static
+    End Property
+
+    Private Property Get IDiagnosticCollector_RequiresElevation() As Boolean
+        Return False
+    End Property
+
+    Private Property Get IDiagnosticCollector_SupportsSummary() As Boolean
+        Return False
+    End Property
+
+    Private Function IDiagnosticCollector_Collect() As DiagnosticResult(Of KeyValuePair(Of String, String))
+        If Fail Then Err.Raise 5, "StubCollector", "stub failure"
+        Dim result As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Set result = New DiagnosticResult(Of KeyValuePair(Of String, String))(Category)
+        result.AddItem New KeyValuePair(Of String, String)("Answer", "42")
+        Return result
+    End Function
+
+    Private Function IDiagnosticCollector_CollectSummary() As DiagnosticResult(Of KeyValuePair(Of String, String))
+        Return IDiagnosticCollector_Collect()
+    End Function
+End Class
diff --git a/test/package-tests/TBMANLIB_Diagnostic/expect.json b/test/package-tests/TBMANLIB_Diagnostic/expect.json
new file mode 100644
index 00000000..30ef8d22
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Diagnostic/expect.json
@@ -0,0 +1,119 @@
+{
+  "version": "1.0.0.1",
+  "cases": {
+    "CollectorTests.CPUInfoCollector_PageSize_HasNoDecimalSeparator": {
+      "fails": "1 of 1 checks failed: Page Size item: expected \"4 KB\", got \"4. KB\""
+    },
+    "CollectorTests.NetworkInfoCollector_FullReport_ListsEveryAdapter": {
+      "win32": "pass",
+      "win64": {
+        "fails": "1 of 2 checks failed: number of Adapter items in the full report, for 8 adapters that GetAdaptersInfo returns: expected 8, got 1"
+      }
+    },
+    "DictionaryTests.New_CreatesAnEmptyDictionary": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.Add_ThenItem_ReturnsTheValue": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.Add_ExistingKey_Raises457": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.Item_MissingKey_Raises5": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.SetItem_NewKey_AddsItAtTheEnd": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.SetItem_ExistingKey_ReplacesTheValueInPlace": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.ContainsKey_TellsPresentFromMissing": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.TryGetValue_Present_ReturnsTrueAndTheValue": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.TryGetValue_Missing_ReturnsFalseAndKeepsTheVariable": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.Remove_ExistingKey_RemovesKeyAndValue": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.Clear_RemovesEveryKey": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "DictionaryTests.KeysAndValues_ReturnTheListsInOrderOfAdding": {
+      "fails": "1 of 1 checks failed: New Dictionary(Of String, Long) raised run-time error 91: Object variable or With block variable not set"
+    },
+    "FileHelperTests.WriteFile_OverExistingLongerFile_ShortensIt": {
+      "fails": "1 of 2 checks failed: size of that file after WriteFile \"ab\" over it (3 bytes of byte-order mark and 2 of text): expected 5, got 13"
+    },
+    "FileHelperTests.WriteFile_MissingParentFolders_CreatesThem": {
+      "fails": "2 of 2 checks failed: what WriteFile into a path whose two top folders are missing returns: expected \"True\", got \"Error -2147467259: Unspecified error\"; the file exists: expected True, got False"
+    },
+    "FileHelperTests.AppendFile_MissingParentFolders_CreatesThem": {
+      "fails": "2 of 2 checks failed: what AppendFile into a path whose two top folders are missing returns: expected \"True\", got \"Error -2147467259: Unspecified error\"; the file exists: expected True, got False"
+    },
+    "FileHelperTests.ReadFile_WrittenText_IsReadBackAsWritten": {
+      "fails": "1 of 1 checks failed: ReadFile of a file written with WriteFile \"caf\" and e acute: expected \"café\", got \"café\""
+    },
+    "FileHelperTests.ReadFile_WrittenText_HasNoByteOrderMark": {
+      "fails": "1 of 1 checks failed: ReadFile of a file written with WriteFile \"abc\": expected \"abc\", got \"abc\""
+    },
+    "FileHelperTests.ReadFile_MissingFile_DoesNotCreateIt": {
+      "fails": "1 of 1 checks failed: the file exists after ReadFile of a file that was not there: expected False, got True"
+    },
+    "FileHelperTests.ReadFile_MissingFile_ReturnsErrorText": {
+      "fails": "1 of 1 checks failed: the start of what ReadFile returns for a file that is not there: expected \"Error \", got \"\""
+    },
+    "FileHelperTests.GetFileSize_MissingFile_ReturnsMinusOne": {
+      "fails": "1 of 1 checks failed: GetFileSize of a file that is not there: expected -1, got 0"
+    },
+    "FileHelperTests.GetFileSize_MissingFile_DoesNotCreateIt": {
+      "fails": "1 of 1 checks failed: the file exists after GetFileSize of a file that was not there: expected False, got True"
+    },
+    "FilePathTests.NormalizePath_UncPath_KeepsItsTwoBackslashes": {
+      "fails": "1 of 1 checks failed: NormalizePath of a UNC path: expected \"\\\\server\\share\\f.txt\", got \"server\\share\\f.txt\""
+    },
+    "FilePathTests.GetFullPath_UncPath_StaysAUncPath": {
+      "fails": "1 of 1 checks failed: GetFullPath of a UNC path: expected \"\\\\server\\share\\f.txt\", got \"server\\share\\f.txt\""
+    },
+    "FormatHelperTests.FormatBytes_NoDecimals_LeavesNoDecimalSeparator": {
+      "fails": "2 of 2 checks failed: FormatBytes(4096, 0): expected \"4 KB\", got \"4. KB\"; FormatBytes(1048576, 0): expected \"1 MB\", got \"1. MB\""
+    },
+    "FormatHelperTests.EscapeJson_ControlCharacters_AreEscaped": {
+      "fails": "1 of 1 checks failed: codes from 1 to 31 that EscapeJson returns as the raw character, which JSON does not allow in a string: expected \"\", got \"1,2,3,4,5,6,7,8,11,12,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31\""
+    },
+    "FormatterTests.JsonFormatter_ControlCharacterInValue_IsEscaped": {
+      "fails": "1 of 1 checks failed: the JSON for a value that holds Chr$(1) holds the raw character, which JSON does not allow in a string: expected False, got True"
+    },
+    "FormatterTests.JsonFormatter_ControlCharacterInKey_IsEscaped": {
+      "fails": "1 of 1 checks failed: the JSON for a key that holds Chr$(2) holds the raw character, which JSON does not allow in a string: expected False, got True"
+    },
+    "ListTests.Insert_InMiddle_PutsItemAtIndex": {
+      "fails": "1 of 1 checks failed: items of a, b, c after Insert 1, \"X\": expected \"aXbc\", got \"abXc\""
+    },
+    "ListTests.Insert_AtZero_PutsItemFirst": {
+      "fails": "1 of 1 checks failed: items of a, b, c after Insert 0, \"Y\": expected \"Yabc\", got \"aYbc\""
+    },
+    "ListTests.Insert_AtZeroOnEmptyList_AddsItem": {
+      "fails": "2 of 2 checks failed: run-time error raised by Insert 0, \"Y\" on an empty list: expected 0, got 5; Count of an empty list after Insert 0, \"Y\": expected 1, got 0"
+    },
+    "ListTests.SetItem_AtZero_ReplacesFirstItem": {
+      "fails": "1 of 1 checks failed: items of a, b, c after SetItem 0, \"Z\": expected \"Zbc\", got \"bZc\""
+    },
+    "ListTests.SetItem_AtZeroOnOneItemList_ReplacesTheItem": {
+      "fails": "3 of 3 checks failed: run-time error raised by SetItem 0, \"Z\" on a list of one item: expected 0, got 5; Count of a list of one item after SetItem 0, \"Z\": expected 1, got 0; items of a list of one item after SetItem 0, \"Z\": expected \"Z\", got \"\""
+    },
+    "ListTests.Contains_Object_FindsIt": {
+      "fails": "2 of 2 checks failed: run-time error raised by Contains of an object that is in the list: expected 0, got 438; Contains of an object that is in the list: expected True, got False"
+    },
+    "ListTests.IndexOf_Object_ReturnsItsPosition": {
+      "fails": "2 of 2 checks failed: run-time error raised by IndexOf of an object that is in the list: expected 0, got 438; IndexOf of the second of two objects: expected 1, got -2"
+    },
+    "ListTests.Remove_Object_RemovesIt": {
+      "fails": "3 of 3 checks failed: run-time error raised by Remove of an object that is in the list: expected 0, got 438; Remove of an object that is in the list: expected True, got False; Count after Remove of the only object: expected 0, got 1"
+    }
+  }
+}
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogColorTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogColorTests.twin
new file mode 100644
index 00000000..81635093
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogColorTests.twin
@@ -0,0 +1,209 @@
+' cDialogColor: the color as a number and as text, the custom colors, and the Color dialog.
+[TestFixture]
+Module CDialogColorTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        Expect.AreEqual vbWhite, dlg.Color, "Color of a new cDialogColor"
+        Expect.IsFalse dlg.FullOpen, "FullOpen of a new cDialogColor"
+        Expect.IsFalse dlg.PreventFullOpen, "PreventFullOpen of a new cDialogColor"
+        Expect.IsFalse dlg.SolidColor, "SolidColor of a new cDialogColor"
+        Expect.IsTrue dlg.AnyColor, "AnyColor of a new cDialogColor"
+        Expect.AreEqual 0, dlg.OwnerHwnd, "OwnerHwnd of a new cDialogColor"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetCustomColor_StartsWithTheQBColors()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        Dim i As Long
+        For i = 0 To 15
+            Expect.AreEqual QBColor(i), dlg.GetCustomColor(i), "custom color " & i & " of a new cDialogColor"
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Red_Green_Blue_ReadTheBytesOfColor()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Color = RGB(10, 20, 30)
+        Expect.AreEqual &H1E140A, dlg.Color, "Color after RGB(10, 20, 30)"
+        Expect.AreEqual 10, dlg.Red, "Red"
+        Expect.AreEqual 20, dlg.Green, "Green"
+        Expect.AreEqual 30, dlg.Blue, "Blue"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Red_Green_Blue_SetOnePartAndKeepTheOthers()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Red = 200
+        dlg.Green = 100
+        dlg.Blue = 50
+        Expect.AreEqual &H3264C8, dlg.Color, "Color after Red 200, Green 100, Blue 50"
+        dlg.Green = 7
+        Expect.AreEqual &H3207C8, dlg.Color, "Color after Green 7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Red_Green_Blue_ClampToZeroAndAHundredAndFiftyFive()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Color = RGB(10, 20, 30)
+        dlg.Blue = 300
+        Expect.AreEqual 255, dlg.Blue, "Blue after 300"
+        Expect.AreEqual "RGB(10, 20, 255)", dlg.ToRgbString(), "ToRgbString after Blue 300"
+        dlg.Green = -4
+        Expect.AreEqual 0, dlg.Green, "Green after -4"
+        Expect.AreEqual "#0A00FF", dlg.ToHtmlColor(), "ToHtmlColor after Green -4"
+        dlg.Red = 256
+        Expect.AreEqual 255, dlg.Red, "Red after 256"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Color_NegativeValueReadsOtherBytes()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Color = -1
+        Expect.AreEqual -1, dlg.Color, "Color after -1"
+        Expect.AreEqual 255, dlg.Red, "Red of -1"
+        Expect.AreEqual 0, dlg.Green, "Green of -1"
+        Expect.AreEqual 0, dlg.Blue, "Blue of -1"
+        dlg.Color = &H80000005
+        Expect.AreEqual 5, dlg.Red, "Red of &H80000005"
+        Expect.AreEqual 1, dlg.Green, "Green of &H80000005"
+        Expect.AreEqual 1, dlg.Blue, "Blue of &H80000005"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetRgb_SetsThePartsAndClamps()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.SetRgb 255, 128, 0
+        Expect.AreEqual "#FF8000", dlg.ToHtmlColor(), "ToHtmlColor after SetRgb 255, 128, 0"
+        dlg.SetRgb 300, -5, 7
+        Expect.AreEqual "RGB(255, 0, 7)", dlg.ToRgbString(), "ToRgbString after SetRgb 300, -5, 7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToHtmlColor_AndToRgbString_FormatTheColor()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Color = RGB(160, 176, 192)
+        Expect.AreEqual "#A0B0C0", dlg.ToHtmlColor(), "ToHtmlColor of RGB(160, 176, 192)"
+        Expect.AreEqual "RGB(160, 176, 192)", dlg.ToRgbString(), "ToRgbString of RGB(160, 176, 192)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FromHtmlColor_ReadsSixDigitsWithOrWithoutAHash()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.FromHtmlColor "#00FF7F"
+        Expect.AreEqual "RGB(0, 255, 127)", dlg.ToRgbString(), "ToRgbString after FromHtmlColor #00FF7F"
+        dlg.FromHtmlColor "  ff8000 "
+        Expect.AreEqual "#FF8000", dlg.ToHtmlColor(), "ToHtmlColor after FromHtmlColor '  ff8000 '"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FromHtmlColor_IgnoresTextOfAnotherLength()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.FromHtmlColor "#FF8000"
+        dlg.FromHtmlColor "#abc"
+        Expect.AreEqual "#FF8000", dlg.ToHtmlColor(), "color after FromHtmlColor #abc"
+        dlg.FromHtmlColor ""
+        Expect.AreEqual "#FF8000", dlg.ToHtmlColor(), "color after FromHtmlColor of an empty string"
+        dlg.FromHtmlColor "#1234567"
+        Expect.AreEqual "#FF8000", dlg.ToHtmlColor(), "color after FromHtmlColor of seven digits"
+        dlg.FromHtmlColor "&HFF0000"
+        Expect.AreEqual "#FF8000", dlg.ToHtmlColor(), "color after FromHtmlColor &HFF0000"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FromHtmlColor_StopsAtAPairThatIsNotHexadecimal()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Color = RGB(1, 2, 3)
+        dlg.FromHtmlColor "#12345G"
+        Expect.AreEqual &H12, dlg.Red, "Red after FromHtmlColor #12345G"
+        Expect.AreEqual &H34, dlg.Green, "Green after FromHtmlColor #12345G"
+        Expect.AreEqual 3, dlg.Blue, "Blue after FromHtmlColor #12345G"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetCustomColor_StoresAndIgnoresAnIndexOutOfRange()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.SetCustomColor 3, RGB(17, 34, 51)
+        dlg.SetCustomColor 99, vbRed
+        dlg.SetCustomColor -1, vbRed
+        Expect.AreEqual &H332211, dlg.GetCustomColor(3), "custom color 3 after SetCustomColor"
+        Expect.AreEqual 0, dlg.GetCustomColor(16), "GetCustomColor(16)"
+        Expect.AreEqual 0, dlg.GetCustomColor(-1), "GetCustomColor(-1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheColorTheFlagsAndTheCustomColors()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Color = vbRed
+        dlg.SetCustomColor 0, vbRed
+        dlg.FullOpen = True
+        dlg.PreventFullOpen = True
+        dlg.SolidColor = True
+        dlg.AnyColor = False
+        dlg.OwnerHwnd = 99
+        dlg.Reset
+        Expect.AreEqual vbWhite, dlg.Color, "Color after Reset"
+        Expect.AreEqual QBColor(0), dlg.GetCustomColor(0), "custom color 0 after Reset"
+        Expect.IsFalse dlg.FullOpen Or dlg.PreventFullOpen Or dlg.SolidColor, "FullOpen, PreventFullOpen and SolidColor after Reset"
+        Expect.IsTrue dlg.AnyColor, "AnyColor after Reset"
+        Expect.AreEqual 0, dlg.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- the dialog
+
+    [TestCase]
+    Public Sub ShowDialog_OKReturnsTrueAndKeepsTheColorItWasGiven()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Color = RGB(255, 128, 0)
+        Pilot.Arm "id=1"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowDialog opened"
+        Expect.AreEqual "Color", Pilot.Title(0), "caption of the Color dialog"
+        Expect.IsTrue r, "ShowDialog after OK"
+        Expect.AreEqual RGB(255, 128, 0), dlg.Color, "Color after OK on the color the dialog opened with"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_CancelReturnsFalseAndKeepsTheColor()
+        Expect.Begin
+        Dim dlg As New cDialogColor
+        dlg.Color = RGB(255, 128, 0)
+        Pilot.Arm "id=2"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.IsFalse r, "ShowDialog after Cancel"
+        Expect.AreEqual RGB(255, 128, 0), dlg.Color, "Color after Cancel"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogCountdownMsgBoxTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogCountdownMsgBoxTests.twin
new file mode 100644
index 00000000..8a37572b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogCountdownMsgBoxTests.twin
@@ -0,0 +1,406 @@
+' cDialogCountdownMsgBox: the properties, and the message box of MessageBoxTimeoutW. A box that is
+' left alone closes after one second; a box that is answered is answered with Pilot.
+[TestFixture]
+Module CDialogCountdownMsgBoxTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Expect.AreEqual "Message", box.Title, "Title of a new cDialogCountdownMsgBox"
+        Expect.AreEqual "", box.Message, "Message of a new cDialogCountdownMsgBox"
+        Expect.AreEqual 10, box.CountdownSeconds, "CountdownSeconds of a new cDialogCountdownMsgBox"
+        Expect.AreEqual 10, box.RemainingSeconds, "RemainingSeconds of a new cDialogCountdownMsgBox"
+        Expect.AreEqual MB_OK, box.Buttons, "Buttons of a new cDialogCountdownMsgBox"
+        Expect.AreEqual MB_ICONINFORMATION, box.Icon, "Icon of a new cDialogCountdownMsgBox"
+        Expect.AreEqual MB_DEFBUTTON1, box.DefaultButton, "DefaultButton of a new cDialogCountdownMsgBox"
+        Expect.IsTrue box.ShowProgress And box.AutoClose, "ShowProgress and AutoClose of a new cDialogCountdownMsgBox"
+        Expect.AreEqual 0, box.OwnerHwnd, "OwnerHwnd of a new cDialogCountdownMsgBox"
+        Expect.AreEqual DialogResult.drTimeout, box.Result, "Result of a new cDialogCountdownMsgBox"
+        Expect.AreEqual "Timeout (Auto-close)", box.GetResultDescription(), "GetResultDescription of a new cDialogCountdownMsgBox"
+        Expect.IsTrue box.IsTimedOut(), "IsTimedOut of a new cDialogCountdownMsgBox"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumerations_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 1, DialogResult.drOK, "drOK"
+        Expect.AreEqual 2, DialogResult.drCancel, "drCancel"
+        Expect.AreEqual 3, DialogResult.drAbort, "drAbort"
+        Expect.AreEqual 4, DialogResult.drRetry, "drRetry"
+        Expect.AreEqual 5, DialogResult.drIgnore, "drIgnore"
+        Expect.AreEqual 6, DialogResult.drYes, "drYes"
+        Expect.AreEqual 7, DialogResult.drNo, "drNo"
+        Expect.AreEqual 32000, DialogResult.drTimeout, "drTimeout"
+        Expect.AreEqual 0, MB_OK, "MB_OK"
+        Expect.AreEqual 1, MB_OKCANCEL, "MB_OKCANCEL"
+        Expect.AreEqual 2, MB_ABORTRETRYIGNORE, "MB_ABORTRETRYIGNORE"
+        Expect.AreEqual 3, MB_YESNOCANCEL, "MB_YESNOCANCEL"
+        Expect.AreEqual 4, MB_YESNO, "MB_YESNO"
+        Expect.AreEqual 5, MB_RETRYCANCEL, "MB_RETRYCANCEL"
+        Expect.AreEqual 16, MB_ICONSTOP, "MB_ICONSTOP"
+        Expect.AreEqual 32, MB_ICONQUESTION, "MB_ICONQUESTION"
+        Expect.AreEqual 48, MB_ICONEXCLAMATION, "MB_ICONEXCLAMATION"
+        Expect.AreEqual 64, MB_ICONINFORMATION, "MB_ICONINFORMATION"
+        Expect.AreEqual 0, MB_DEFBUTTON1, "MB_DEFBUTTON1"
+        Expect.AreEqual 256, MB_DEFBUTTON2, "MB_DEFBUTTON2"
+        Expect.AreEqual 512, MB_DEFBUTTON3, "MB_DEFBUTTON3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Properties_StoreWhatIsSet()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Title = "Backup"
+        box.Message = "Do you want to continue?"
+        box.Buttons = MB_YESNOCANCEL
+        box.Icon = MB_ICONSTOP
+        box.DefaultButton = MB_DEFBUTTON2
+        box.ShowProgress = False
+        box.AutoClose = False
+        box.OwnerHwnd = 4321
+        Expect.AreEqual "Backup", box.Title, "Title"
+        Expect.AreEqual "Do you want to continue?", box.Message, "Message"
+        Expect.AreEqual 3, box.Buttons, "Buttons"
+        Expect.AreEqual 16, box.Icon, "Icon"
+        Expect.AreEqual 256, box.DefaultButton, "DefaultButton"
+        Expect.IsFalse box.ShowProgress Or box.AutoClose, "ShowProgress and AutoClose"
+        Expect.AreEqual 4321, box.OwnerHwnd, "OwnerHwnd"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CountdownSeconds_AlsoSetsRemainingSeconds()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.CountdownSeconds = 45
+        Expect.AreEqual 45, box.CountdownSeconds, "CountdownSeconds"
+        Expect.AreEqual 45, box.RemainingSeconds, "RemainingSeconds after CountdownSeconds 45"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValues()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Title = "Backup"
+        box.Message = "x"
+        box.CountdownSeconds = 3
+        box.Buttons = MB_YESNO
+        box.Icon = MB_ICONSTOP
+        box.DefaultButton = MB_DEFBUTTON2
+        box.ShowProgress = False
+        box.AutoClose = False
+        box.OwnerHwnd = 4321
+        box.Reset
+        Expect.AreEqual "Message", box.Title, "Title after Reset"
+        Expect.AreEqual "", box.Message, "Message after Reset"
+        Expect.AreEqual 10, box.CountdownSeconds, "CountdownSeconds after Reset"
+        Expect.AreEqual 10, box.RemainingSeconds, "RemainingSeconds after Reset"
+        Expect.AreEqual MB_OK, box.Buttons, "Buttons after Reset"
+        Expect.AreEqual MB_ICONINFORMATION, box.Icon, "Icon after Reset"
+        Expect.AreEqual MB_DEFBUTTON1, box.DefaultButton, "DefaultButton after Reset"
+        Expect.IsTrue box.ShowProgress And box.AutoClose, "ShowProgress and AutoClose after Reset"
+        Expect.AreEqual 0, box.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.AreEqual DialogResult.drTimeout, box.Result, "Result after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- the box after it closes by itself
+
+    [TestCase]
+    Public Sub ShowQuestion_TimeoutReportsTimeout()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Dim r As DialogResult = box.ShowQuestion("Restart now?", "Update", 1)
+        Expect.AreEqual DialogResult.drTimeout, r, "ShowQuestion that ran out of time"
+        Expect.IsTrue box.IsTimedOut(), "IsTimedOut after that ShowQuestion"
+        Expect.AreEqual DialogResult.drTimeout, box.Result, "Result after that ShowQuestion"
+        Expect.AreEqual 1, box.CountdownSeconds, "CountdownSeconds after ShowQuestion with 1 second"
+        Expect.AreEqual 10, box.RemainingSeconds, "RemainingSeconds after ShowQuestion (it is not touched)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowConfirm_TimeoutReportsTimeout()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Expect.AreEqual DialogResult.drTimeout, box.ShowConfirm("Overwrite the file?", "Save", 1), "ShowConfirm that ran out of time"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowCustom_TimeoutOfABoxWithTwoButtonsReportsTimeout()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Expect.AreEqual DialogResult.drTimeout, box.ShowCustom("Try again?", "Upload", MB_RETRYCANCEL, MB_ICONEXCLAMATION, 1), "ShowCustom with Retry and Cancel that ran out of time"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowInfo_TimeoutReportsTimeout()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Dim r As DialogResult = box.ShowInfo("Backup finished.", "Backup", 1)
+        Expect.AreEqual DialogResult.drTimeout, r, "ShowInfo that ran out of time"
+        Expect.IsTrue box.IsTimedOut(), "IsTimedOut after that ShowInfo"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowWarning_TimeoutReportsTimeout()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Expect.AreEqual DialogResult.drTimeout, box.ShowWarning("The disk is almost full.", "Disk", 1), "ShowWarning that ran out of time"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowError_TimeoutReportsTimeout()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Expect.AreEqual DialogResult.drTimeout, box.ShowError("The file could not be saved.", "Save", 1), "ShowError that ran out of time"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_TimeoutOfTheDefaultBoxReportsTimeout()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Message = "Done"
+        box.CountdownSeconds = 1
+        Expect.AreEqual DialogResult.drTimeout, box.ShowDialog(), "ShowDialog of the default box that ran out of time"
+        Expect.Done
+    End Sub
+
+    ' ---- what the box shows
+
+    [TestCase]
+    Public Sub ShowDialog_ShowsTheTitleTheMessageAndTheCountdownText()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Title = "Backup"
+        box.Message = "Backup finished."
+        box.CountdownSeconds = 2
+        Pilot.Arm "wait=2|id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "boxes ShowDialog opened"
+        Expect.AreEqual "Backup", Pilot.Title(0), "title of the box"
+        Expect.AreEqual "Backup finished." & vbCrLf & vbCrLf & "This message will close automatically in 2 seconds...", Pilot.Statics(0), "text of the box"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_CountdownTextNamesOneSecondInThePlural()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Message = "x"
+        box.CountdownSeconds = 1
+        Pilot.Arm "wait=1|id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue InStr(Pilot.Statics(0), "in 1 seconds...") > 0, "text of a box with CountdownSeconds 1: " & Pilot.Statics(0)
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ShowProgressFalseShowsOnlyTheMessage()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Message = "Only this."
+        box.CountdownSeconds = 2
+        box.ShowProgress = False
+        Pilot.Arm "wait=1|id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual "Only this.", Pilot.Statics(0), "text of a box with ShowProgress False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_AutoCloseFalseKeepsTheBoxOpenWithoutCountdownText()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Message = "Stay."
+        box.CountdownSeconds = 1
+        box.AutoClose = False
+        Pilot.Arm "wait=25|id=1"
+        Dim r As DialogResult = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual "Stay.", Pilot.Statics(0), "text of a box with AutoClose False"
+        Expect.AreEqual DialogResult.drOK, r, "ShowDialog of a box with AutoClose False that was answered after 2.5 seconds, longer than CountdownSeconds"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_CountdownSecondsOfZeroDoesNotCloseTheBox()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Message = "Stay."
+        box.CountdownSeconds = 0
+        Pilot.Arm "wait=15|id=1"
+        Dim r As DialogResult = box.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue InStr(Pilot.Statics(0), "in 0 seconds...") > 0, "text of a box with CountdownSeconds 0: " & Pilot.Statics(0)
+        Expect.AreEqual DialogResult.drOK, r, "ShowDialog of a box with CountdownSeconds 0 that was answered after 1.5 seconds"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_TheButtonPressedIsTheResult()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Pilot.Arm "id=6"
+        Expect.AreEqual DialogResult.drYes, box.ShowQuestion("Yes?", "Q", 20), "ShowQuestion answered with Yes"
+        Pilot.Disarm
+        Expect.AreEqual "Yes", box.GetResultDescription(), "GetResultDescription after Yes"
+        Pilot.Arm "id=7"
+        Expect.AreEqual DialogResult.drNo, box.ShowQuestion("No?", "Q", 20), "ShowQuestion answered with No"
+        Pilot.Disarm
+        Expect.AreEqual "No", box.GetResultDescription(), "GetResultDescription after No"
+        Pilot.Arm "id=2"
+        Expect.AreEqual DialogResult.drCancel, box.ShowConfirm("Cancel?", "Q", 20), "ShowConfirm answered with Cancel"
+        Pilot.Disarm
+        Expect.AreEqual "Cancel", box.GetResultDescription(), "GetResultDescription after Cancel"
+        Pilot.Arm "id=1"
+        Expect.AreEqual DialogResult.drOK, box.ShowInfo("OK?", "Q", 20), "ShowInfo answered with OK"
+        Pilot.Disarm
+        Expect.AreEqual "OK", box.GetResultDescription(), "GetResultDescription after OK"
+        Expect.IsFalse box.IsTimedOut(), "IsTimedOut after OK"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowCustom_AbortRetryIgnoreReportsEachButton()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Pilot.Arm "id=3"
+        Expect.AreEqual DialogResult.drAbort, box.ShowCustom("m", "t", MB_ABORTRETRYIGNORE, MB_ICONSTOP, 20), "Abort"
+        Pilot.Disarm
+        Pilot.Arm "id=4"
+        Expect.AreEqual DialogResult.drRetry, box.ShowCustom("m", "t", MB_ABORTRETRYIGNORE, MB_ICONSTOP, 20), "Retry"
+        Pilot.Disarm
+        Pilot.Arm "id=5"
+        Expect.AreEqual DialogResult.drIgnore, box.ShowCustom("m", "t", MB_ABORTRETRYIGNORE, MB_ICONSTOP, 20), "Ignore"
+        Pilot.Disarm
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DefaultButton_EnterPressesTheSecondButton()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Buttons = MB_YESNO
+        box.DefaultButton = MB_DEFBUTTON2
+        box.Message = "m"
+        Pilot.Arm "wait=2|key=13"
+        Dim r As DialogResult = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual DialogResult.drNo, r, "ShowDialog with Yes and No and MB_DEFBUTTON2 after Enter"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ShortFormsDoNotChangeDefaultButton()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.DefaultButton = MB_DEFBUTTON2
+        box.ShowQuestion "m", "t", 1
+        Expect.AreEqual MB_DEFBUTTON2, box.DefaultButton, "DefaultButton after ShowQuestion"
+        Expect.Done
+    End Sub
+
+    ' ---- closing a box
+
+    [TestCase]
+    Public Sub ShowDialog_CloseButtonEndsABoxWithOnlyOKAsOK()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Message = "m"
+        Pilot.Arm "close"
+        Expect.AreEqual DialogResult.drOK, box.ShowDialog(), "ShowDialog of a box with only OK, closed with the close button"
+        Pilot.Disarm
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowConfirm_CloseButtonEndsTheBoxAsCancel()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Pilot.Arm "close"
+        Expect.AreEqual DialogResult.drCancel, box.ShowConfirm("m", "t", 20), "ShowConfirm closed with the close button"
+        Pilot.Disarm
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowQuestion_CloseButtonIsIgnored()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        Pilot.Arm "close|wait=8|id=7"
+        Dim r As DialogResult = box.ShowQuestion("m", "t", 20)
+        Pilot.Disarm
+        Expect.AreEqual DialogResult.drNo, r, "ShowQuestion closed with the close button and then answered No"
+        Expect.Done
+    End Sub
+
+    ' ---- the buttons the enumeration has no member for
+
+    [TestCase]
+    Public Sub Buttons_ACancelTryAgainContinueBoxIsNotMapped()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Buttons = 6
+        box.Message = "m"
+        Pilot.Arm "id=11"
+        Dim r As DialogResult = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual DialogResult.drTimeout, r, "ShowDialog of a Cancel, Try Again, Continue box answered with Continue"
+        Expect.Done
+    End Sub
+
+    ' ---- a time that is too long
+
+    [TestCase]
+    Public Sub CountdownSeconds_AboveTwoMillionOverflowsAndShowsAPlainBox()
+        Expect.Begin
+        Dim box As New cDialogCountdownMsgBox
+        box.Buttons = MB_YESNO
+        box.Icon = MB_ICONSTOP
+        box.Title = "Long"
+        box.Message = "Too long."
+        box.CountdownSeconds = 2147484
+        Pilot.Arm "id=1"
+        Err.Clear
+        Dim r As DialogResult = box.ShowDialog()
+        Dim n As Long = Err.Number
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "boxes ShowDialog opened"
+        Expect.AreEqual "OK", Pilot.Buttons(0), "buttons of the box that CountdownSeconds 2147484 shows"
+        Expect.AreEqual "Too long.", Pilot.Statics(0), "text of that box"
+        Expect.AreEqual DialogResult.drOK, r, "ShowDialog with CountdownSeconds 2147484"
+        Expect.AreEqual 6, n, "Err.Number after that ShowDialog"
+        Expect.Done
+    End Sub
+
+    ' ---- the owner
+
+    [TestCase]
+    Public Sub OwnerHwnd_OwnsTheBox()
+        Expect.Begin
+        Dim owner As LongPtr = Fx.MakeOwner()
+        Dim box As New cDialogCountdownMsgBox
+        box.OwnerHwnd = owner
+        box.Message = "m"
+        Pilot.Arm "id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual owner, Pilot.OwnerOf(0), "owner of the box"
+        Fx.DestroyOwner owner
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogDateTimeTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogDateTimeTests.twin
new file mode 100644
index 00000000..fc86a3bc
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogDateTimeTests.twin
@@ -0,0 +1,672 @@
+' cDialogDateTime: the date and the time as parts, the text forms, the calculations, and the box
+' that asks for a new value (the InputBox of the run-time library), operated with Pilot.
+[TestFixture]
+Module CDialogDateTimeTests
+
+    Private Function Ymd(ByVal d As Date) As String
+        Ymd = Format$(d, "yyyy-mm-dd")
+    End Function
+
+    Private Function Stamp(ByVal d As Date) As String
+        Stamp = Format$(d, "yyyy-mm-dd hh:nn:ss")
+    End Function
+
+    Private Function Sample() As cDialogDateTime
+        Dim p As New cDialogDateTime
+        p.DateTimeValue = DateSerial(2026, 3, 15) + TimeSerial(14, 5, 9)
+        Set Sample = p
+    End Function
+
+    ' ---- the starting values
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        Expect.AreEqual "Select Date and Time", p.Title, "Title of a new cDialogDateTime"
+        Expect.AreEqual "Please select a date and time:", p.Prompt, "Prompt of a new cDialogDateTime"
+        Expect.AreEqual PickerMode.DateTime, p.Mode, "Mode of a new cDialogDateTime"
+        Expect.AreEqual 1900, p.MinYear, "MinYear of a new cDialogDateTime"
+        Expect.AreEqual 2100, p.MaxYear, "MaxYear of a new cDialogDateTime"
+        Expect.IsTrue p.Is24HourFormat, "Is24HourFormat of a new cDialogDateTime"
+        Expect.IsFalse p.ShowSeconds, "ShowSeconds of a new cDialogDateTime"
+        Expect.AreEqual "", p.CustomFormat, "CustomFormat of a new cDialogDateTime"
+        Expect.IsFalse p.Cancelled, "Cancelled of a new cDialogDateTime"
+        Expect.AreEqual 0, p.OwnerHwnd, "OwnerHwnd of a new cDialogDateTime"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewObject_HoldsTheClockOfTheComputer()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        Dim d As Date = p.DateTimeValue
+        Expect.IsTrue Abs(d - Now) < 2 / 1440, "DateTimeValue of a new cDialogDateTime is within two minutes of Now: " & Stamp(d)
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumerations_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 0, PickerMode.DateTime, "DateTime"
+        Expect.AreEqual 1, PickerMode.DateOnly, "DateOnly"
+        Expect.AreEqual 2, PickerMode.TimeOnly, "TimeOnly"
+        Expect.AreEqual 0, DateFormat.ShortDate, "ShortDate"
+        Expect.AreEqual 1, DateFormat.LongDate, "LongDate"
+        Expect.AreEqual 2, DateFormat.Custom, "Custom"
+        Expect.Done
+    End Sub
+
+    ' ---- the parts
+
+    [TestCase]
+    Public Sub DateTimeValue_SetsAllSixParts()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Expect.AreEqual "2026-03-15 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue"
+        Expect.AreEqual 2026, p.Year, "Year"
+        Expect.AreEqual 3, p.Month, "Month"
+        Expect.AreEqual 15, p.Day, "Day"
+        Expect.AreEqual 14, p.Hour, "Hour"
+        Expect.AreEqual 5, p.Minute, "Minute"
+        Expect.AreEqual 9, p.Second, "Second"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DateValue_And_TimeValue_SetTheirParts()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.DateValue = DateSerial(2027, 7, 4)
+        p.TimeValue = TimeSerial(8, 30, 15)
+        Expect.AreEqual 7, p.Month, "Month after DateValue"
+        Expect.AreEqual "2027-07-04", Ymd(p.DateValue), "DateValue"
+        Expect.AreEqual 8, p.Hour, "Hour after TimeValue"
+        Expect.AreEqual "08:30:15", Format$(p.TimeValue, "hh:nn:ss"), "TimeValue"
+        Expect.AreEqual 0, Int(p.DateValue) - p.DateValue, "DateValue is at midnight"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DateTimeValue_IsNotCheckedAgainstTheYearRange()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.MinYear = 1990
+        p.MaxYear = 2000
+        p.DateTimeValue = DateSerial(2050, 1, 1)
+        Expect.AreEqual 2050, p.Year, "Year after DateTimeValue 2050 with MaxYear 2000"
+        p.DateValue = DateSerial(1800, 1, 1)
+        Expect.AreEqual 1800, p.Year, "Year after DateValue 1800 with MinYear 1990"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Day_IgnoresADayThatDoesNotExistInTheMonth()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.DateValue = DateSerial(2026, 2, 10)
+        p.Day = 30
+        Expect.AreEqual 10, p.Day, "Day after 30 in February 2026"
+        p.Day = 28
+        Expect.AreEqual 28, p.Day, "Day after 28"
+        p.Day = 0
+        Expect.AreEqual 28, p.Day, "Day after 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Hour_Minute_Second_IgnoreValuesOutOfRange()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.Hour = 18
+        p.Hour = 24
+        Expect.AreEqual 18, p.Hour, "Hour after 18 and 24"
+        p.Hour = -1
+        Expect.AreEqual 18, p.Hour, "Hour after -1"
+        p.Minute = 45
+        p.Minute = 60
+        Expect.AreEqual 45, p.Minute, "Minute after 45 and 60"
+        p.Second = 30
+        p.Second = 75
+        Expect.AreEqual 30, p.Second, "Second after 30 and 75"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Month_LowersTheDayToTheLastDayOfTheNewMonth()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.DateValue = DateSerial(2026, 1, 31)
+        p.Month = 2
+        Expect.AreEqual 28, p.Day, "Day after Month 2 from 31 January 2026"
+        p.Month = 13
+        Expect.AreEqual 2, p.Month, "Month after 13"
+        p.Month = 0
+        Expect.AreEqual 2, p.Month, "Month after 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Year_IsLimitedToMinYearAndMaxYear()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.Year = 2030
+        p.Year = 2200
+        Expect.AreEqual 2030, p.Year, "Year after 2030 and 2200"
+        p.Year = 1850
+        Expect.AreEqual 2030, p.Year, "Year after 1850"
+        p.MaxYear = 2050
+        p.Year = 2060
+        Expect.AreEqual 2030, p.Year, "Year after 2060 with MaxYear 2050"
+        p.MinYear = 2000
+        p.Year = 1999
+        Expect.AreEqual 2030, p.Year, "Year after 1999 with MinYear 2000"
+        p.Year = 2000
+        Expect.AreEqual 2000, p.Year, "Year after 2000 with MinYear 2000"
+        Expect.Done
+    End Sub
+
+    ' ---- the text forms
+
+    [TestCase]
+    Public Sub FormatDate_ShortAndLong()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Expect.AreEqual "03/15/2026", p.FormatDate(), "FormatDate"
+        Expect.AreEqual "03/15/2026", p.FormatDate(DateFormat.ShortDate), "FormatDate(ShortDate)"
+        Expect.AreEqual "Sunday, March 15, 2026", p.FormatDate(DateFormat.LongDate), "FormatDate(LongDate)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatDate_CustomReplacesThePatterns()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.CustomFormat = "YYYY-MM-DD"
+        Expect.AreEqual "2026-03-15", p.FormatDate(DateFormat.Custom), "FormatDate(Custom) of YYYY-MM-DD"
+        p.CustomFormat = "D.M.YY"
+        Expect.AreEqual "15.3.26", p.FormatDate(DateFormat.Custom), "FormatDate(Custom) of D.M.YY"
+        p.CustomFormat = ""
+        Expect.AreEqual "03/15/2026", p.FormatDate(DateFormat.Custom), "FormatDate(Custom) of an empty CustomFormat"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatDate_CustomWithAMonthNameOfMarchKeepsTheName()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.CustomFormat = "MMMM D, YYYY"
+        Expect.AreEqual "March 15, 2026", p.FormatDate(DateFormat.Custom), "FormatDate(Custom) of MMMM D, YYYY for March"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatDate_CustomWithAMonthNameOfMayKeepsTheName()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.DateValue = DateSerial(2026, 5, 15)
+        p.CustomFormat = "MMMM D, YYYY"
+        Expect.AreEqual "May 15, 2026", p.FormatDate(DateFormat.Custom), "FormatDate(Custom) of MMMM D, YYYY for May"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatDate_CustomWithAMonthNameOfDecemberKeepsTheName()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.DateValue = DateSerial(2026, 12, 15)
+        p.CustomFormat = "MMMM D, YYYY"
+        Expect.AreEqual "December 15, 2026", p.FormatDate(DateFormat.Custom), "FormatDate(Custom) of MMMM D, YYYY for December"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatDate_CustomWithAShortMonthNameOfMarchKeepsTheName()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.CustomFormat = "MMM D"
+        Expect.AreEqual "Mar 15", p.FormatDate(DateFormat.Custom), "FormatDate(Custom) of MMM D for March"
+        Dim q As New cDialogDateTime
+        q.DateValue = DateSerial(2026, 2, 9)
+        q.CustomFormat = "MMMM"
+        Expect.AreEqual "February", q.FormatDate(DateFormat.Custom), "FormatDate(Custom) of MMMM for February"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatTime_24HourAndAmPm()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Expect.AreEqual "14:05", p.FormatTime(), "FormatTime in the 24-hour clock"
+        p.ShowSeconds = True
+        Expect.AreEqual "14:05:09", p.FormatTime(), "FormatTime with seconds"
+        p.Is24HourFormat = False
+        Expect.AreEqual "02:05:09 PM", p.FormatTime(), "FormatTime with seconds in the 12-hour clock"
+        p.TimeValue = TimeSerial(0, 30, 0)
+        Expect.AreEqual "12:30:00 AM", p.FormatTime(), "FormatTime of half past midnight"
+        p.ShowSeconds = False
+        p.TimeValue = TimeSerial(12, 0, 0)
+        Expect.AreEqual "12:00 PM", p.FormatTime(), "FormatTime of noon"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatDateTime_FollowsMode()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Expect.AreEqual "03/15/2026 14:05", p.FormatDateTime(), "FormatDateTime in DateTime mode"
+        p.Mode = PickerMode.DateOnly
+        Expect.AreEqual "03/15/2026", p.FormatDateTime(), "FormatDateTime in DateOnly mode"
+        p.Mode = PickerMode.TimeOnly
+        Expect.AreEqual "14:05", p.FormatDateTime(), "FormatDateTime in TimeOnly mode"
+        Expect.Done
+    End Sub
+
+    ' ---- the calculations
+
+    [TestCase]
+    Public Sub AddDays_MovesTheDateAndKeepsTheTime()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.AddDays 20
+        Expect.AreEqual "2026-04-04 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after AddDays 20"
+        p.AddDays -35
+        Expect.AreEqual "2026-02-28 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after AddDays -35"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddDays_PastTheEndOfYear9999RaisesTypeMismatch()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.DateValue = DateSerial(9999, 12, 30)
+        On Error Resume Next
+        p.AddDays 5
+        Dim n As Long = Err.Number
+        On Error GoTo 0
+        Expect.AreEqual 13, n, "error AddDays raised past 31 December 9999"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddHours_CarriesIntoTheDate()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.AddHours 10
+        Expect.AreEqual "2026-03-16 00:05:09", Stamp(p.DateTimeValue), "DateTimeValue after AddHours 10"
+        p.AddHours -15
+        Expect.AreEqual "2026-03-15 09:05:09", Stamp(p.DateTimeValue), "DateTimeValue after AddHours -15"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddHours_OfAboutSixHundredThousandRaisesOverflowAndKeepsTheValue()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        On Error Resume Next
+        p.AddHours 600000
+        Dim n As Long = Err.Number
+        Err.Clear
+        p.AddHours -600000
+        Dim m As Long = Err.Number
+        On Error GoTo 0
+        Expect.AreEqual 6, n, "error AddHours raised for 600000 hours"
+        Expect.AreEqual 6, m, "error AddHours raised for -600000 hours"
+        Expect.AreEqual "2026-03-15 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after the failed AddHours calls"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetNow_And_SetToday_UseTheClock()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        p.Year = 2000
+        p.SetNow
+        Expect.AreEqual Year(Date), p.Year, "Year after SetNow"
+        p.SetToday
+        Expect.AreEqual 0, p.Hour + p.Minute + p.Second, "Hour, Minute and Second after SetToday"
+        Expect.AreEqual Day(Date), p.Day, "Day after SetToday"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetDayOfWeek_And_Name_AreEnglishFromSunday()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Expect.AreEqual 0, p.GetDayOfWeek(), "GetDayOfWeek of Sunday 15 March 2026"
+        Expect.AreEqual "Sunday", p.GetDayOfWeekName(), "GetDayOfWeekName of that date"
+        p.DateValue = DateSerial(2026, 3, 16)
+        Expect.AreEqual 1, p.GetDayOfWeek(), "GetDayOfWeek of Monday"
+        Expect.AreEqual "Monday", p.GetDayOfWeekName(), "GetDayOfWeekName of Monday"
+        p.DateValue = DateSerial(2026, 3, 21)
+        Expect.AreEqual 6, p.GetDayOfWeek(), "GetDayOfWeek of Saturday"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetDaysInMonth_KnowsLeapYears()
+        Expect.Begin
+        Dim p As New cDialogDateTime
+        Expect.AreEqual 29, p.GetDaysInMonth(2024, 2), "days in February 2024"
+        Expect.AreEqual 28, p.GetDaysInMonth(1900, 2), "days in February 1900"
+        Expect.AreEqual 29, p.GetDaysInMonth(2000, 2), "days in February 2000"
+        Expect.AreEqual 30, p.GetDaysInMonth(2026, 4), "days in April 2026"
+        Expect.AreEqual 31, p.GetDaysInMonth(2026, 12), "days in December 2026"
+        Expect.AreEqual 0, p.GetDaysInMonth(2026, 13), "days in month 13"
+        Expect.AreEqual 0, p.GetDaysInMonth(2026, 0), "days in month 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetMonthName_IsEnglish()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Expect.AreEqual "March", p.GetMonthName(), "GetMonthName of the month of the object"
+        Expect.AreEqual "December", p.GetMonthName(12), "GetMonthName(12)"
+        Expect.AreEqual "March", p.GetMonthName(0), "GetMonthName(0)"
+        Expect.AreEqual "", p.GetMonthName(13), "GetMonthName(13)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValuesButNotTheOwner()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.Title = "Meeting"
+        p.Prompt = "x"
+        p.Mode = PickerMode.DateOnly
+        p.MinYear = 1990
+        p.MaxYear = 2000
+        p.ShowSeconds = True
+        p.Is24HourFormat = False
+        p.CustomFormat = "YY"
+        p.OwnerHwnd = 66
+        p.Reset
+        Expect.AreEqual "Select Date and Time", p.Title, "Title after Reset"
+        Expect.AreEqual "Please select a date and time:", p.Prompt, "Prompt after Reset"
+        Expect.AreEqual PickerMode.DateTime, p.Mode, "Mode after Reset"
+        Expect.AreEqual 1900, p.MinYear, "MinYear after Reset"
+        Expect.AreEqual 2100, p.MaxYear, "MaxYear after Reset"
+        Expect.IsFalse p.ShowSeconds, "ShowSeconds after Reset"
+        Expect.IsTrue p.Is24HourFormat, "Is24HourFormat after Reset"
+        Expect.AreEqual "", p.CustomFormat, "CustomFormat after Reset"
+        Expect.AreEqual 66, p.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.AreEqual Year(Date), p.Year, "Year after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- the box
+
+    [TestCase]
+    Public Sub ShowDialog_ShowsThePromptTheFormatLineAndTheYearRange()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.Title = "Appointment"
+        p.Prompt = "When should the meeting start?"
+        Pilot.Arm "id=2"
+        Dim r As Boolean = p.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "boxes ShowDialog opened"
+        Expect.AreEqual "Appointment", Pilot.Title(0), "title of the box"
+        Expect.AreEqual "When should the meeting start?" & vbCrLf & vbCrLf & "Enter date and time:" & vbCrLf & vbCrLf & "Year range: 1900 - 2100", Pilot.Statics(0), "text of the box"
+        Expect.AreEqual "03/15/2026 14:05", Pilot.EditText(0), "text in the edit box"
+        Expect.IsFalse r, "ShowDialog after Cancel"
+        Expect.IsTrue p.Cancelled, "Cancelled after Cancel"
+        Expect.AreEqual "2026-03-15 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after Cancel"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_NamesTheFormatOfTheModes()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.Mode = PickerMode.DateOnly
+        Pilot.Arm "id=2"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue InStr(Pilot.Statics(0), "Enter date (MM/DD/YYYY):") > 0, "text of the date box: " & Pilot.Statics(0)
+        Expect.AreEqual "03/15/2026", Pilot.EditText(0), "text in the edit box of the date box"
+        p.Mode = PickerMode.TimeOnly
+        Pilot.Arm "id=2"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue InStr(Pilot.Statics(0), "Enter time (HH:MM):") > 0, "text of the time box: " & Pilot.Statics(0)
+        p.Is24HourFormat = False
+        Pilot.Arm "id=2"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue InStr(Pilot.Statics(0), "Enter time (HH:MM AM/PM):") > 0, "text of the 12-hour time box: " & Pilot.Statics(0)
+        Expect.AreEqual "02:05 PM", Pilot.EditText(0), "text in the edit box of the 12-hour time box"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_OKOnTheOfferedTextKeepsTheValue()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "id=1"
+        Dim r As Boolean = p.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after OK on the offered text"
+        Expect.IsFalse p.Cancelled, "Cancelled after OK"
+        Expect.AreEqual "2026-03-15 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after OK on the offered text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ADateChangesOnlyTheDate()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=11/12/2028|id=1"
+        Dim r As Boolean = p.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after a date"
+        Expect.AreEqual "2028-11-12 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after the date 11/12/2028"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ATimeChangesOnlyTheHourAndMinute()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=23:59|id=1"
+        Dim r As Boolean = p.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after a time"
+        Expect.AreEqual "2026-03-15 23:59:09", Stamp(p.DateTimeValue), "DateTimeValue after the time 23:59"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ADateWithDashesAndATimeWithSeconds()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=01-02-2030 03:04:05|id=1"
+        Dim r As Boolean = p.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after a date with dashes and a time with seconds"
+        Expect.AreEqual "2030-01-02 03:04:05", Stamp(p.DateTimeValue), "DateTimeValue after 01-02-2030 03:04:05"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_AnEmptyEntryAndTextWithoutAPartChangeNothing()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=|id=1"
+        Expect.IsTrue p.ShowDialog(), "ShowDialog after an empty entry"
+        Pilot.Disarm
+        Pilot.Arm "t=hello|id=1"
+        Expect.IsTrue p.ShowDialog(), "ShowDialog after the text hello"
+        Pilot.Disarm
+        Expect.AreEqual "2026-03-15 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after those entries"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ARefusedEntryShowsASecondBoxAndReturnsFalse()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=13/45/2026|id=1;close"
+        Dim r As Boolean = p.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "boxes ShowDialog opened for a refused entry"
+        Expect.AreEqual "Select Date and Time", Pilot.Title(1), "title of the second box"
+        Expect.IsTrue InStr(Pilot.Statics(1), "Invalid date/time format. Please use: 03/15/2026 14:05") > 0, "text of the second box: " & Pilot.Statics(1)
+        Expect.IsFalse r, "ShowDialog after a refused entry"
+        Expect.IsTrue p.Cancelled, "Cancelled after a refused entry"
+        Expect.Done
+    End Sub
+
+    ' ---- the parts of a refused entry
+
+    [TestCase]
+    Public Sub ShowDialog_ARefusedMonthAndDayLeaveTheObjectAsItWas()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=13/45/2026|id=1;close"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual "2026-03-15 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after the refused entry 13/45/2026 (Month is " & p.Month & ", Day is " & p.Day & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_AFebruary30LeavesTheObjectAsItWas()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=02/30/2026|id=1;close"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual 15, p.Day, "Day after the refused entry 02/30/2026 (the month is " & p.Month & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ARefusedTimeLeavesTheObjectAsItWas()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=25:61|id=1;close"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual "14:05", Format$(p.TimeValue, "hh:nn"), "time after the refused entry 25:61 (Hour is " & p.Hour & ", Minute is " & p.Minute & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ARefusedTimeAfterAGoodDateLeavesTheObjectAsItWas()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=04/05/2027 25:00|id=1;close"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual "2026-03-15 14:05:09", Stamp(p.DateTimeValue), "DateTimeValue after the refused entry 04/05/2027 25:00 (Hour is " & p.Hour & ")"
+        Expect.Done
+    End Sub
+
+    ' ---- AM and PM
+
+    [TestCase]
+    Public Sub ShowTimePicker_ATimeWithPmAndNoDateIsRead()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=9:30 PM|id=1;close"
+        Dim r As Boolean = p.ShowTimePicker()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowTimePicker after the entry 9:30 PM"
+        Expect.AreEqual "21:30", Format$(p.TimeValue, "hh:nn"), "time after the entry 9:30 PM"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowTimePicker_TheOfferedTextOfThe12HourClockIsAccepted()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        p.Is24HourFormat = False
+        Pilot.Arm "id=1"
+        Dim r As Boolean = p.ShowTimePicker()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowTimePicker after OK on the offered text 02:05 PM"
+        Expect.AreEqual 14, p.Hour, "Hour after OK on the offered text 02:05 PM"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowTimePicker_ATimeWithPmAndNoSpaceIsReadAsTheMinutesTyped()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=9:30pm|id=1;close"
+        p.ShowTimePicker
+        Pilot.Disarm
+        Expect.AreEqual "21:30", Format$(p.TimeValue, "hh:nn"), "time after the entry 9:30pm"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ADateAndATimeWithPmIsRead()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=03/15/2026 9:30 PM|id=1"
+        Dim r As Boolean = p.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after the entry 03/15/2026 9:30 PM"
+        Expect.AreEqual "2026-03-15 21:30:09", Stamp(p.DateTimeValue), "DateTimeValue after the entry 03/15/2026 9:30 PM"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_12AmIsHourZeroAnd1To11PmAre13To23()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "t=03/15/2026 12:10 AM|id=1"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual 0, p.Hour, "Hour after 12:10 AM"
+        Pilot.Arm "t=03/15/2026 1:10 PM|id=1"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual 13, p.Hour, "Hour after 1:10 PM"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDatePicker_And_ShowTimePicker_SetTitleAndMode()
+        Expect.Begin
+        Dim p As cDialogDateTime = Sample()
+        Pilot.Arm "id=2"
+        p.ShowDatePicker "Birthday"
+        Pilot.Disarm
+        Expect.AreEqual "Birthday", p.Title, "Title after ShowDatePicker"
+        Expect.AreEqual PickerMode.DateOnly, p.Mode, "Mode after ShowDatePicker"
+        Expect.AreEqual "Birthday", Pilot.Title(0), "title of the box of ShowDatePicker"
+        Pilot.Arm "id=2"
+        p.ShowTimePicker "Alarm"
+        Pilot.Disarm
+        Expect.AreEqual "Alarm", p.Title, "Title after ShowTimePicker"
+        Expect.AreEqual PickerMode.TimeOnly, p.Mode, "Mode after ShowTimePicker"
+        Pilot.Arm "id=2"
+        p.ShowDatePicker
+        Pilot.Disarm
+        Expect.AreEqual "Select Date", p.Title, "Title after ShowDatePicker with no title"
+        Pilot.Arm "id=2"
+        p.ShowTimePicker
+        Pilot.Disarm
+        Expect.AreEqual "Select Time", p.Title, "Title after ShowTimePicker with no title"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OwnerHwnd_HasNoEffect()
+        Expect.Begin
+        Dim owner As LongPtr = Fx.MakeOwner()
+        Dim p As cDialogDateTime = Sample()
+        p.OwnerHwnd = owner
+        Pilot.Arm "id=2"
+        p.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual 0, Pilot.OwnerOf(0), "owner of the box of a cDialogDateTime whose OwnerHwnd is a window"
+        Fx.DestroyOwner owner
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogDialogTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogDialogTests.twin
new file mode 100644
index 00000000..2f3e0f33
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogDialogTests.twin
@@ -0,0 +1,504 @@
+' cDialog: the Open, Save As and Browse For Folder dialogs, operated from the case with Pilot.
+' Every case works in the folder Fx.Work() and empties it before it ends.
+[TestFixture]
+Module CDialogDialogTests
+
+    ' ---- ShowOpen
+
+    [TestCase]
+    Public Sub ShowOpen_ReturnsTheFullPathAndStoresItInFileName()
+        Expect.Begin
+        Fx.Clean
+        Dim p As String = Fx.MakeFile("a.txt", "x")
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "t=" & p & "|id=1"
+        Dim r As Variant = dlg.ShowOpen()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowOpen opened"
+        Expect.AreEqual p, r, "ShowOpen after a full path was typed"
+        Expect.AreEqual p, dlg.FileName, "FileName after a confirmed ShowOpen"
+        Expect.AreEqual Fx.Work(), dlg.InitialDir, "InitialDir after a confirmed ShowOpen"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_CancelReturnsAnEmptyStringAndKeepsFileName()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.FileName = "keep.txt"
+        Pilot.Arm "id=2"
+        Dim r As Variant = dlg.ShowOpen()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowOpen opened"
+        Expect.AreEqual "", r, "ShowOpen after Cancel"
+        Expect.AreEqual "keep.txt", dlg.FileName, "FileName after a cancelled ShowOpen"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_DialogTitleIsTheCaption()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "id=2"
+        dlg.ShowOpen
+        Pilot.Disarm
+        Expect.AreEqual "Open", Pilot.Title(0), "caption of the Open dialog with an empty DialogTitle"
+        dlg.DialogTitle = "Choose the log"
+        Pilot.Arm "id=2"
+        dlg.ShowOpen
+        Pilot.Disarm
+        Expect.AreEqual "Choose the log", Pilot.Title(0), "caption of the Open dialog with a DialogTitle"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_FileNameIsPassedAsTheNextInitialName()
+        Expect.Begin
+        Fx.Clean
+        Dim p As String = Fx.MakeFile("a.txt", "x")
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "t=" & p & "|id=1"
+        dlg.ShowOpen
+        Pilot.Disarm
+        dlg.InitialDir = ""
+        Pilot.Arm "id=1"
+        dlg.ShowOpen
+        Pilot.Disarm
+        Expect.AreEqual "a.txt", Pilot.EditText(0), "text in the File name box of the second ShowOpen"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_MultiSelectOfTwoFilesReturnsAnArray()
+        Expect.Begin
+        Fx.Clean
+        Fx.MakeFile "a.txt", "x"
+        Fx.MakeFile "b.txt", "x"
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.MultiSelect = True
+        Pilot.Arm "t=""a.txt"" ""b.txt""|id=1"
+        Dim r As Variant = dlg.ShowOpen()
+        Pilot.Disarm
+        Expect.IsTrue IsArray(r), "ShowOpen with MultiSelect and two files returns an array"
+        If IsArray(r) Then
+            Expect.AreEqual 0, LBound(r), "lower bound of the array"
+            Expect.AreEqual 1, UBound(r), "upper bound of the array"
+            Expect.AreEqual Fx.Work() & "\a.txt", r(0), "first path of the array"
+            Expect.AreEqual Fx.Work() & "\b.txt", r(1), "second path of the array"
+        End If
+        Expect.AreEqual "", dlg.FileName, "FileName after a MultiSelect of two files"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_MultiSelectOfOneFileReturnsAString()
+        Expect.Begin
+        Fx.Clean
+        Fx.MakeFile "a.txt", "x"
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.MultiSelect = True
+        Pilot.Arm "t=a.txt|id=1"
+        Dim r As Variant = dlg.ShowOpen()
+        Pilot.Disarm
+        Expect.IsFalse IsArray(r), "ShowOpen with MultiSelect and one file returns an array"
+        Expect.AreEqual Fx.Work() & "\a.txt", r, "ShowOpen with MultiSelect and one file"
+        Expect.AreEqual Fx.Work() & "\a.txt", dlg.FileName, "FileName after a MultiSelect of one file"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectFiles_ReturnsACollectionInBothCases()
+        Expect.Begin
+        Fx.Clean
+        Fx.MakeFile "a.txt", "x"
+        Fx.MakeFile "b.txt", "x"
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.MultiSelect = True
+        Pilot.Arm "t=""a.txt"" ""b.txt""|id=1"
+        Dim c As Collection = dlg.SelectFiles()
+        Pilot.Disarm
+        Expect.AreEqual 2, c.Count, "files SelectFiles returned for two files"
+        If c.Count = 2 Then Expect.AreEqual Fx.Work() & "\b.txt", c(2), "second path of SelectFiles"
+        Pilot.Arm "id=2"
+        Set c = dlg.SelectFiles()
+        Pilot.Disarm
+        Expect.IsFalse c Is Nothing, "SelectFiles after Cancel is Nothing"
+        Expect.AreEqual 0, c.Count, "files SelectFiles returned after Cancel"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_FilterFillsTheFileTypeList()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.SetImageFilters
+        Pilot.Arm "id=2"
+        dlg.ShowOpen
+        Pilot.Disarm
+        Expect.IsTrue InStr(Pilot.ComboItems(0), "|Bitmap Files (*.bmp)|JPEG Files (*.jpg;*.jpeg)|PNG Files (*.png)|GIF Files (*.gif)|All Image Files (*.bmp;*.jpg;*.jpeg;*.png;*.gif)|All Files (*.*)|") > 0, "file types in the Open dialog after SetImageFilters: " & Pilot.ComboItems(0)
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_FileMustExistRefusesAMissingName()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "t=nosuch.txt|id=1|wait=10|id=2;id=1"
+        Dim r As Variant = dlg.ShowOpen()
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "windows opened (the dialog and a message box)"
+        Expect.AreEqual "", r, "ShowOpen with FileMustExist and a name that does not exist"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_WithoutFileMustExistReturnsAMissingName()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.FileMustExist = False
+        Pilot.Arm "t=nosuch.txt|id=1"
+        Dim r As Variant = dlg.ShowOpen()
+        Pilot.Disarm
+        Expect.AreEqual Fx.Work() & "\nosuch.txt", r, "ShowOpen with FileMustExist False and a name that does not exist"
+        Expect.IsFalse Fx.Exists(Fx.Work() & "\nosuch.txt"), "the file ShowOpen returned was created"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_CreatePromptAsksBeforeAcceptingAMissingName()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.CreatePrompt = True
+        Pilot.Arm "t=nosuch.txt|id=1;td=6"
+        Dim r As Variant = dlg.ShowOpen()
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "windows opened (the dialog and a question)"
+        Expect.AreEqual Fx.Work() & "\nosuch.txt", r, "ShowOpen after Yes to the question"
+        Expect.IsFalse Fx.Exists(Fx.Work() & "\nosuch.txt"), "the file the question was about was created"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_PathMustExistRefusesAMissingFolder()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.FileMustExist = False
+        Pilot.Arm "t=" & Fx.Work() & "\nofolder\x.txt|id=1|wait=10|id=2;id=1"
+        Dim r As Variant = dlg.ShowOpen()
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "windows opened (the dialog and a message box)"
+        Expect.AreEqual "", r, "ShowOpen with PathMustExist and a folder that does not exist"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowOpen_NoChangeDirKeepsTheCurrentFolder()
+        Expect.Begin
+        Fx.Clean
+        Fx.MakeSub "sub"
+        Dim p As String = Fx.MakeFile("sub\c.txt", "x")
+        Dim old As String = Fx.CurDirApi()
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work() & "\sub"
+        Fx.SetCurDirApi Fx.Work()
+        dlg.NoChangeDir = True
+        Pilot.Arm "t=" & p & "|id=1"
+        dlg.ShowOpen
+        Pilot.Disarm
+        Dim kept As String = Fx.CurDirApi()
+        dlg.NoChangeDir = False
+        Pilot.Arm "t=" & p & "|id=1"
+        dlg.ShowOpen
+        Pilot.Disarm
+        Dim moved As String = Fx.CurDirApi()
+        Fx.SetCurDirApi old
+        Expect.AreEqual Fx.Work(), kept, "current folder after ShowOpen with NoChangeDir True"
+        Expect.AreEqual Fx.Work() & "\sub", moved, "current folder after ShowOpen with NoChangeDir False"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    ' ---- SelectAndOpenFile, on files that do not exist so that no program starts
+
+    [TestCase]
+    Public Sub SelectAndOpenFile_CancelReturnsZero()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "id=2"
+        Dim r As Variant = dlg.SelectAndOpenFile()
+        Pilot.Disarm
+        Expect.AreEqual 0, CLng(r), "SelectAndOpenFile after Cancel"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectAndOpenFile_OneMissingFileReturnsWhatOpenFileReturned()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.FileMustExist = False
+        Pilot.Arm "t=nosuch.txt|id=1"
+        Dim r As Variant = dlg.SelectAndOpenFile()
+        Pilot.Disarm
+        Expect.AreEqual 2, CLng(r), "SelectAndOpenFile of a file that does not exist"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectAndOpenFile_SeveralMissingFilesReturnOne()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.FileMustExist = False
+        dlg.MultiSelect = True
+        Pilot.Arm "t=""no1.txt"" ""no2.txt""|id=1"
+        Dim r As Variant = dlg.SelectAndOpenFile()
+        Pilot.Disarm
+        Expect.AreEqual 1, CLng(r), "SelectAndOpenFile of two files that do not exist"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    ' ---- ShowSave
+
+    [TestCase]
+    Public Sub ShowSave_DialogTitleAndDefaultCaption()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "id=2"
+        dlg.ShowSave
+        Pilot.Disarm
+        Expect.AreEqual "Save As", Pilot.Title(0), "caption of the Save As dialog with an empty DialogTitle"
+        dlg.DialogTitle = "Save the report"
+        Pilot.Arm "id=2"
+        dlg.ShowSave
+        Pilot.Disarm
+        Expect.AreEqual "Save the report", Pilot.Title(0), "caption of the Save As dialog with a DialogTitle"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_FileNameIsShownInTheNameBox()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.FileName = "x.txt"
+        Pilot.Arm "id=2"
+        dlg.ShowSave
+        Pilot.Disarm
+        Expect.AreEqual "x.txt", Pilot.EditText(0), "text in the File name box of ShowSave"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_DefaultExtIsAddedToANameTypedWithoutOne()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.DefaultExt = "txt"
+        Pilot.Arm "t=out|id=1"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual Fx.Work() & "\out.txt", r, "ShowSave with DefaultExt txt and the name out"
+        Expect.AreEqual Fx.Work() & "\out.txt", dlg.FileName, "FileName after that ShowSave"
+        dlg.FileName = ""
+        Pilot.Arm "t=out.dat|id=1"
+        r = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual Fx.Work() & "\out.dat", r, "ShowSave with DefaultExt txt and the name out.dat"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_DefaultExtWithAPeriodGivesTwoPeriods()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.DefaultExt = ".txt"
+        Pilot.Arm "t=out|id=1"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual Fx.Work() & "\out..txt", r, "ShowSave with DefaultExt .txt and the name out"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_NoDefaultExtAddsNothing()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "t=out|id=1"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual Fx.Work() & "\out", r, "ShowSave with no DefaultExt and the name out"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_OverwritePromptAsksBeforeReplacing()
+        Expect.Begin
+        Fx.Clean
+        Dim p As String = Fx.MakeFile("e.txt", "x")
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "t=e.txt|id=1;td=6"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "windows opened (the dialog and a question)"
+        Expect.IsTrue InStr(Pilot.Title(1), "Confirm Save As") > 0, "title of the question: " & Pilot.Title(1)
+        Expect.AreEqual p, r, "ShowSave after Yes to the question"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_NoToTheQuestionLeavesTheDialogOpen()
+        Expect.Begin
+        Fx.Clean
+        Fx.MakeFile "e.txt", "x"
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "t=e.txt|id=1|wait=12|id=2;td=7"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "windows opened (the dialog and a question)"
+        Expect.AreEqual "", r, "ShowSave after No to the question and then Cancel"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_WithoutOverwritePromptReturnsAnExistingName()
+        Expect.Begin
+        Fx.Clean
+        Dim p As String = Fx.MakeFile("e.txt", "x")
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        dlg.OverwritePrompt = False
+        Pilot.Arm "t=e.txt|id=1"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "windows opened"
+        Expect.AreEqual p, r, "ShowSave with OverwritePrompt False and an existing name"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_DoesNotCreateTheFile()
+        Expect.Begin
+        Fx.Clean
+        Dim dlg As New cDialog
+        dlg.InitialDir = Fx.Work()
+        Pilot.Arm "t=new.txt|id=1"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual Fx.Work() & "\new.txt", r, "ShowSave after a new name was typed"
+        Expect.IsFalse Fx.Exists(r), "the file ShowSave returned was created"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    ' ---- ShowBrowseForFolder
+
+    [TestCase]
+    Public Sub ShowBrowseForFolder_ReturnsTheTypedFolderAndStoresItInInitialDir()
+        Expect.Begin
+        Fx.Clean
+        Fx.MakeSub "pick"
+        Dim dlg As New cDialog
+        dlg.DialogTitle = "Choose the backup folder"
+        dlg.InitialDir = "C:\Not\Used"
+        Pilot.Arm "t=" & Fx.Work() & "\pick|id=1"
+        Dim r As String = dlg.ShowBrowseForFolder()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowBrowseForFolder opened"
+        Expect.AreEqual Fx.Work() & "\pick", r, "ShowBrowseForFolder after a folder was typed"
+        Expect.AreEqual Fx.Work() & "\pick", dlg.InitialDir, "InitialDir after a confirmed ShowBrowseForFolder"
+        Expect.AreEqual "Browse For Folder", Pilot.Title(0), "caption of the new-style dialog"
+        Expect.IsTrue InStr(Pilot.Statics(0), "Choose the backup folder") > 0, "DialogTitle shown as a line of text: " & Pilot.Statics(0)
+        Expect.AreEqual "", dlg.FileName, "FileName after ShowBrowseForFolder"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowBrowseForFolder_CancelReturnsAnEmptyStringAndKeepsInitialDir()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.InitialDir = "C:\Keep"
+        Pilot.Arm "id=2"
+        Dim r As String = dlg.ShowBrowseForFolder()
+        Pilot.Disarm
+        Expect.AreEqual "", r, "ShowBrowseForFolder after Cancel"
+        Expect.AreEqual "C:\Keep", dlg.InitialDir, "InitialDir after a cancelled ShowBrowseForFolder"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowBrowseForFolder_OldStyleHasNoEditBox()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.NewDialogStyle = False
+        Pilot.Arm "id=2"
+        dlg.ShowBrowseForFolder
+        Pilot.Disarm
+        Expect.AreEqual "Browse for Folder", Pilot.Title(0), "caption of the old-style dialog"
+        Expect.AreEqual 0, Pilot.EditCount(0), "edit boxes of the old-style dialog"
+        Dim dlg2 As New cDialog
+        Pilot.Arm "id=2"
+        dlg2.ShowBrowseForFolder
+        Pilot.Disarm
+        Expect.IsTrue Pilot.EditCount(0) > 0, "edit boxes of the new-style dialog"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogExTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogExTests.twin
new file mode 100644
index 00000000..6cc924bc
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogExTests.twin
@@ -0,0 +1,238 @@
+' cDialogEx: the properties, the filter text and the path helpers. The dialogs of the class are
+' item dialogs of Windows (IFileOpenDialog, IFileSaveDialog), which the compiler's test mode
+' cannot create (CoCreateInstance answers CLASS_E_CLASSNOTAVAILABLE in its process), so what the
+' dialogs show and return is checked by the probe, not here.
+[TestFixture]
+Module CDialogExTests
+
+    Private Function Pipes(ByVal s As String) As Long
+        Pipes = Len(s) - Len(Replace(s, "|", ""))
+    End Function
+
+    [TestCase]
+    Public Sub Defaults_EveryBooleanIsFalse()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        Expect.IsFalse dlg.CreatePrompt, "CreatePrompt of a new cDialogEx"
+        Expect.IsFalse dlg.FileMustExist, "FileMustExist of a new cDialogEx"
+        Expect.IsFalse dlg.MultiSelect, "MultiSelect of a new cDialogEx"
+        Expect.IsFalse dlg.NoChangeDir, "NoChangeDir of a new cDialogEx"
+        Expect.IsFalse dlg.OverwritePrompt, "OverwritePrompt of a new cDialogEx"
+        Expect.IsFalse dlg.PathMustExist, "PathMustExist of a new cDialogEx"
+        Expect.IsFalse dlg.PickFolders, "PickFolders of a new cDialogEx"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_TextsAndNumbers()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        Expect.AreEqual "", dlg.DialogTitle & dlg.InitialDir & dlg.FileName & dlg.DefaultExt & dlg.Filter, "the texts of a new cDialogEx"
+        Expect.AreEqual 0, dlg.FilterIndex, "FilterIndex of a new cDialogEx"
+        Expect.AreEqual 0, dlg.OwnerHwnd, "OwnerHwnd of a new cDialogEx"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Properties_StoreWhatIsSet()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.DialogTitle = "Choose"
+        dlg.InitialDir = "C:\Reports"
+        dlg.FileName = "x.txt"
+        dlg.DefaultExt = "txt"
+        dlg.Filter = "Text|*.txt|"
+        dlg.FilterIndex = 2
+        dlg.OwnerHwnd = 12345
+        dlg.CreatePrompt = True
+        dlg.FileMustExist = True
+        dlg.MultiSelect = True
+        dlg.NoChangeDir = True
+        dlg.OverwritePrompt = True
+        dlg.PathMustExist = True
+        dlg.PickFolders = True
+        Expect.AreEqual "Choose", dlg.DialogTitle, "DialogTitle after it is set"
+        Expect.AreEqual "C:\Reports", dlg.InitialDir, "InitialDir after it is set"
+        Expect.AreEqual "x.txt", dlg.FileName, "FileName after it is set"
+        Expect.AreEqual "txt", dlg.DefaultExt, "DefaultExt after it is set"
+        Expect.AreEqual "Text|*.txt|", dlg.Filter, "Filter after it is set"
+        Expect.AreEqual 2, dlg.FilterIndex, "FilterIndex after it is set"
+        Expect.AreEqual 12345, dlg.OwnerHwnd, "OwnerHwnd after it is set"
+        Expect.IsTrue dlg.CreatePrompt And dlg.FileMustExist And dlg.MultiSelect And dlg.NoChangeDir And dlg.OverwritePrompt And dlg.PathMustExist And dlg.PickFolders, "the seven Boolean properties after True"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValues()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.DialogTitle = "Choose"
+        dlg.InitialDir = "C:\Reports"
+        dlg.FileName = "x.txt"
+        dlg.DefaultExt = "txt"
+        dlg.Filter = "Text|*.txt|"
+        dlg.FilterIndex = 2
+        dlg.OwnerHwnd = 12345
+        dlg.CreatePrompt = True
+        dlg.FileMustExist = True
+        dlg.MultiSelect = True
+        dlg.NoChangeDir = True
+        dlg.OverwritePrompt = True
+        dlg.PathMustExist = True
+        dlg.PickFolders = True
+        dlg.Reset
+        Expect.AreEqual "", dlg.DialogTitle & dlg.InitialDir & dlg.FileName & dlg.DefaultExt & dlg.Filter, "the texts after Reset"
+        Expect.AreEqual 0, dlg.FilterIndex, "FilterIndex after Reset"
+        Expect.AreEqual 0, dlg.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.IsFalse dlg.CreatePrompt Or dlg.FileMustExist Or dlg.MultiSelect Or dlg.NoChangeDir Or dlg.OverwritePrompt Or dlg.PathMustExist Or dlg.PickFolders, "the seven Boolean properties after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- GetPresetFilter
+
+    [TestCase]
+    Public Sub GetPresetFilter_ReturnsAPairForAKnownName()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        Expect.AreEqual "All Files|*.*", dlg.GetPresetFilter("all"), "GetPresetFilter all"
+        Expect.AreEqual "Text Files|*.txt", dlg.GetPresetFilter("text"), "GetPresetFilter text"
+        Expect.AreEqual "Image Files|*.bmp;*.jpg;*.jpeg;*.png;*.gif", dlg.GetPresetFilter("images"), "GetPresetFilter images"
+        Expect.AreEqual "Image Files|*.bmp;*.jpg;*.jpeg;*.png;*.gif", dlg.GetPresetFilter("image"), "GetPresetFilter image"
+        Expect.AreEqual "Documents|*.doc;*.docx;*.pdf;*.txt;*.rtf", dlg.GetPresetFilter("documents"), "GetPresetFilter documents"
+        Expect.AreEqual "Documents|*.doc;*.docx;*.pdf;*.txt;*.rtf", dlg.GetPresetFilter("document"), "GetPresetFilter document"
+        Expect.AreEqual "Executables|*.exe;*.bat;*.cmd;*.ps1", dlg.GetPresetFilter("executables"), "GetPresetFilter executables"
+        Expect.AreEqual "Executables|*.exe;*.bat;*.cmd;*.ps1", dlg.GetPresetFilter("executable"), "GetPresetFilter executable"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPresetFilter_IgnoresCaseAndSpacesAtTheEnds()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        Expect.AreEqual "Image Files|*.bmp;*.jpg;*.jpeg;*.png;*.gif", dlg.GetPresetFilter("  Images "), "GetPresetFilter of '  Images '"
+        Expect.AreEqual "", dlg.GetPresetFilter("code"), "GetPresetFilter of an unknown name"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPresetFilter_DoesNotChangeFilter()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.Filter = "Text|*.txt|"
+        Dim s As String = dlg.GetPresetFilter("all")
+        Expect.AreEqual "Text|*.txt|", dlg.Filter, "Filter after GetPresetFilter"
+        Expect.Done
+    End Sub
+
+    ' ---- the filter text: the class needs an even number of pipes
+
+    [TestCase]
+    Public Sub AddFilter_JoinsPairsWithPipes()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.AddFilter "Text (*.txt)", "*.txt"
+        dlg.AddFilter "All (*.*)", "*.*"
+        Expect.AreEqual "Text (*.txt)|*.txt|All (*.*)|*.*", dlg.Filter, "Filter after two AddFilter calls"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddFilter_BuildsAFilterTheDialogAccepts()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.AddFilter "Text (*.txt)", "*.txt"
+        dlg.AddFilter "All (*.*)", "*.*"
+        Expect.AreEqual 0, Pipes(dlg.Filter) Mod 2, "pipes in the filter of two pairs built with AddFilter (the dialog needs an even number): " & dlg.Filter
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetFilters_BuildAFilterTheDialogAccepts()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.SetCommonFilters
+        Expect.AreEqual 0, Pipes(dlg.Filter) Mod 2, "pipes in the filter after SetCommonFilters (the dialog needs an even number): " & dlg.Filter
+        dlg.SetCodeFilters
+        Expect.AreEqual 0, Pipes(dlg.Filter) Mod 2, "pipes in the filter after SetCodeFilters"
+        dlg.SetDocumentFilters
+        Expect.AreEqual 0, Pipes(dlg.Filter) Mod 2, "pipes in the filter after SetDocumentFilters"
+        dlg.SetImageFilters
+        Expect.AreEqual 0, Pipes(dlg.Filter) Mod 2, "pipes in the filter after SetImageFilters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPresetFilter_GivesATextTheDialogAccepts()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.Filter = dlg.GetPresetFilter("text")
+        Expect.AreEqual 0, Pipes(dlg.Filter) Mod 2, "pipes in a Filter set to the text of GetPresetFilter (the dialog needs an even number): " & dlg.Filter
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetCommonFilters_ReplacesTheFilterWithTwoPairs()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.Filter = "Old|*.old|"
+        dlg.SetCommonFilters
+        Dim parts() As String = Split(dlg.Filter, "|")
+        Expect.AreEqual "Text Files (*.txt)", parts(0), "first description after SetCommonFilters"
+        Expect.AreEqual "*.txt", parts(1), "first pattern after SetCommonFilters"
+        Expect.AreEqual "All Files (*.*)", parts(2), "second description after SetCommonFilters"
+        Expect.AreEqual "*.*", parts(3), "second pattern after SetCommonFilters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearFilter_EmptiesTheFilter()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        dlg.AddFilter "Text", "*.txt"
+        dlg.ClearFilter
+        Expect.AreEqual 0, Len(dlg.Filter), "length of Filter after ClearFilter"
+        Expect.Done
+    End Sub
+
+    ' ---- the path helpers and OpenFile are those of cDialog
+
+    [TestCase]
+    Public Sub PathHelpers_WorkAsThoseOfCDialog()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        Expect.AreEqual ".txt", dlg.GetFileExtension("C:\Docs\summary.txt"), "GetFileExtension"
+        Expect.AreEqual "summary.txt", dlg.GetFileName("C:\Docs\summary.txt"), "GetFileName"
+        Expect.AreEqual "summary", dlg.GetFileNameWithoutExt("C:\Docs\summary.txt"), "GetFileNameWithoutExt"
+        Expect.AreEqual "C:\Docs", dlg.GetFilePath("C:\Docs\summary.txt"), "GetFilePath"
+        Expect.AreEqual "C:\a\b", dlg.PathCombine("C:\a\", "\b"), "PathCombine"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OpenFile_NonexistentFileReturns2()
+        Expect.Begin
+        Dim dlg As New cDialogEx
+        Dim r As Variant = dlg.OpenFile(Fx.Work() & "\no such file.xyz")
+        Expect.AreEqual 2, CLng(r), "OpenFile of a path that does not exist"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SystemIconId_HasTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual -1, SystemIconId.SIID_INVALID, "SIID_INVALID"
+        Expect.AreEqual 0, SystemIconId.SIID_DOCUMENT, "SIID_DOCUMENT"
+        Expect.AreEqual 3, SystemIconId.SIID_FOLDER, "SIID_FOLDER"
+        Expect.AreEqual 5, SystemIconId.SIID_FOLDEROPEN, "SIID_FOLDEROPEN"
+        Expect.AreEqual 6, SystemIconId.SIID_DISK, "SIID_DISK"
+        Expect.AreEqual 8, SystemIconId.SIID_DRIVEFIXED, "SIID_DRIVEFIXED"
+        Expect.AreEqual 10, SystemIconId.SIID_DRIVECD, "SIID_DRIVECD"
+        Expect.AreEqual 11, SystemIconId.SIID_DRIVEHD, "SIID_DRIVEHD"
+        Expect.AreEqual 15, SystemIconId.SIID_SERVER, "SIID_SERVER"
+        Expect.AreEqual 28, SystemIconId.SIID_SHARE, "SIID_SHARE"
+        Expect.AreEqual 30, SystemIconId.SIID_STAROFFILE, "SIID_STAROFFILE"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogFindReplaceTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogFindReplaceTests.twin
new file mode 100644
index 00000000..7a8f90e6
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogFindReplaceTests.twin
@@ -0,0 +1,204 @@
+' cDialogFindReplace: the search settings as properties and text, and the modeless Find and Replace
+' dialogs. A case that opens a dialog owns it with a window of FindHost, presses its buttons with
+' BM_CLICK (which sends the owner exactly the message a click sends), and closes it.
+[TestFixture]
+Module CDialogFindReplaceTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        Expect.AreEqual "", dlg.FindWhat & dlg.ReplaceWith, "FindWhat and ReplaceWith of a new cDialogFindReplace"
+        Expect.IsFalse dlg.MatchCase Or dlg.WholeWord, "MatchCase and WholeWord of a new cDialogFindReplace"
+        Expect.AreEqual SearchDirection.Down, dlg.Direction, "Direction of a new cDialogFindReplace"
+        Expect.AreEqual DialogMode.FindMode, dlg.Mode, "Mode of a new cDialogFindReplace"
+        Expect.IsTrue dlg.AllowMatchCase And dlg.AllowUpDown And dlg.AllowWholeWord, "the three Allow properties of a new cDialogFindReplace"
+        Expect.AreEqual 0, dlg.hWnd + dlg.OwnerHwnd + dlg.LastError, "hWnd, OwnerHwnd and LastError of a new cDialogFindReplace"
+        Expect.AreEqual FindAction.None, dlg.LastAction, "LastAction of a new cDialogFindReplace"
+        Expect.IsFalse dlg.IsVisible(), "IsVisible of a new cDialogFindReplace"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumerations_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 0, DialogMode.FindMode, "FindMode"
+        Expect.AreEqual 1, DialogMode.ReplaceMode, "ReplaceMode"
+        Expect.AreEqual 0, FindAction.None, "None"
+        Expect.AreEqual 1, FindAction.FindNext, "FindNext"
+        Expect.AreEqual 2, FindAction.Replace, "Replace"
+        Expect.AreEqual 3, FindAction.ReplaceAll, "ReplaceAll"
+        Expect.AreEqual 4, FindAction.DialogClosed, "DialogClosed"
+        Expect.AreEqual 0, SearchDirection.Up, "Up"
+        Expect.AreEqual 1, SearchDirection.Down, "Down"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MessageId_IsTheRegisteredMessageOfTheDialogs()
+        Expect.Begin
+        Dim a As New cDialogFindReplace
+        Dim b As New cDialogFindReplace
+        Dim id As Long = FindHostMessageId()
+        Expect.AreEqual id, a.MessageId, "MessageId against RegisterWindowMessage(commdlg_FindReplace)"
+        Expect.AreEqual a.MessageId, b.MessageId, "MessageId of a second object"
+        Expect.IsTrue a.MessageId >= &HC000&, "MessageId is a registered message number"
+        Expect.Done
+    End Sub
+
+    Private Declare PtrSafe Function T_RegisterWindowMessageW Lib "user32" Alias "RegisterWindowMessageW" (ByVal lpString As LongPtr) As Long
+
+    Private Function FindHostMessageId() As Long
+        FindHostMessageId = T_RegisterWindowMessageW(StrPtr("commdlg_FindReplace"))
+    End Function
+
+    [TestCase]
+    Public Sub ToDescription_NamesTheSearch()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        Expect.AreEqual "Find: """", Down", dlg.ToDescription(), "ToDescription of a new cDialogFindReplace"
+        dlg.FindWhat = "alpha"
+        dlg.MatchCase = True
+        dlg.Direction = SearchDirection.Up
+        Expect.AreEqual "Find: ""alpha"", Match Case, Up", dlg.ToDescription(), "ToDescription with MatchCase and Up"
+        dlg.Mode = DialogMode.ReplaceMode
+        dlg.ReplaceWith = "beta"
+        dlg.WholeWord = True
+        Expect.AreEqual "Find: ""alpha"", Replace: ""beta"", Match Case, Whole Word, Up", dlg.ToDescription(), "ToDescription in ReplaceMode"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheSearchSettings()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        dlg.FindWhat = "alpha"
+        dlg.ReplaceWith = "beta"
+        dlg.MatchCase = True
+        dlg.WholeWord = True
+        dlg.Direction = SearchDirection.Up
+        dlg.Mode = DialogMode.ReplaceMode
+        dlg.AllowMatchCase = False
+        dlg.AllowUpDown = False
+        dlg.AllowWholeWord = False
+        dlg.OwnerHwnd = 55
+        dlg.Reset
+        Expect.AreEqual "Find: """", Down", dlg.ToDescription(), "ToDescription after Reset"
+        Expect.IsTrue dlg.AllowMatchCase And dlg.AllowUpDown And dlg.AllowWholeWord, "the Allow properties after Reset"
+        Expect.AreEqual 55, dlg.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- UpdateFromFlags
+
+    [TestCase]
+    Public Sub UpdateFromFlags_SetsTheOptionsAndTheAction()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        dlg.UpdateFromFlags &H8 Or &H1 Or &H4
+        Expect.AreEqual FindAction.FindNext, dlg.LastAction, "LastAction after FR_FINDNEXT"
+        Expect.IsTrue dlg.MatchCase, "MatchCase after FR_MATCHCASE"
+        Expect.IsFalse dlg.WholeWord, "WholeWord with no FR_WHOLEWORD"
+        Expect.AreEqual SearchDirection.Down, dlg.Direction, "Direction after FR_DOWN"
+        dlg.UpdateFromFlags &H2 Or &H10
+        Expect.AreEqual FindAction.Replace, dlg.LastAction, "LastAction after FR_REPLACE"
+        Expect.IsTrue dlg.WholeWord, "WholeWord after FR_WHOLEWORD"
+        Expect.AreEqual SearchDirection.Up, dlg.Direction, "Direction with no FR_DOWN"
+        dlg.UpdateFromFlags &H20
+        Expect.AreEqual FindAction.ReplaceAll, dlg.LastAction, "LastAction after FR_REPLACEALL"
+        dlg.UpdateFromFlags &H40
+        Expect.AreEqual FindAction.DialogClosed, dlg.LastAction, "LastAction after FR_DIALOGTERM"
+        dlg.UpdateFromFlags 0
+        Expect.AreEqual FindAction.None, dlg.LastAction, "LastAction after no action flag"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UpdateFromFlags_DialogTermWinsOverTheOtherActions()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        dlg.UpdateFromFlags &H40 Or &H8 Or &H10 Or &H20
+        Expect.AreEqual FindAction.DialogClosed, dlg.LastAction, "LastAction after FR_DIALOGTERM with the other action flags"
+        dlg.UpdateFromFlags &H8 Or &H10 Or &H20
+        Expect.AreEqual FindAction.FindNext, dlg.LastAction, "LastAction after FR_FINDNEXT with FR_REPLACE and FR_REPLACEALL"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UpdateFromFlags_EmptiesBothTextsWhenNoDialogHasFilledTheBuffers()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        dlg.FindWhat = "alpha"
+        dlg.ReplaceWith = "beta"
+        dlg.UpdateFromFlags &H8
+        Expect.AreEqual "", dlg.FindWhat, "FindWhat after UpdateFromFlags with no dialog"
+        Expect.AreEqual "", dlg.ReplaceWith, "ReplaceWith after UpdateFromFlags with no dialog"
+        Expect.Done
+    End Sub
+
+    ' ---- ShowFind and ShowReplace that Windows refuses or that fail early
+
+    [TestCase]
+    Public Sub ShowFind_WithoutAnOwnerReturnsFalseWithLastErrorFFFF()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        Expect.IsFalse dlg.ShowFind(), "ShowFind with no OwnerHwnd"
+        Expect.AreEqual &HFFFF&, dlg.LastError, "LastError after that ShowFind"
+        Expect.AreEqual DialogMode.FindMode, dlg.Mode, "Mode after ShowFind"
+        Expect.IsFalse dlg.ShowReplace(), "ShowReplace with no OwnerHwnd"
+        Expect.AreEqual DialogMode.ReplaceMode, dlg.Mode, "Mode after ShowReplace"
+        Expect.IsFalse dlg.IsVisible(), "IsVisible after a refused ShowReplace"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowFind_FindWhatOf300CharactersRaisesError5()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        dlg.FindWhat = String$(300, "a")
+        On Error Resume Next
+        dlg.ShowFind
+        Dim n As Long = Err.Number
+        On Error GoTo 0
+        Expect.AreEqual 5, n, "error ShowFind raised with a FindWhat of 300 characters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowReplace_ReplaceWithOf300CharactersRaisesError5()
+        Expect.Begin
+        Dim dlg As New cDialogFindReplace
+        dlg.ReplaceWith = String$(300, "a")
+        On Error Resume Next
+        dlg.ShowReplace
+        Dim n As Long = Err.Number
+        On Error GoTo 0
+        Expect.AreEqual 5, n, "error ShowReplace raised with a ReplaceWith of 300 characters"
+        Expect.Done
+    End Sub
+
+    ' ---- the dialogs
+    ' The cases that open a dialog with ShowFind or ShowReplace and press a button or close it are not here:
+    ' Windows keeps the address of the structure that the class leaves in a local variable, and reads and writes
+    ' it again when a button is pressed or the dialog closes, which in the compiler's test mode ends the case with
+    ' an access violation or a run-time error, or never returns, and can disturb the cases after it. The probe
+    ' harness (scenarios c43 and c44) runs them in a built program. The control below uses the structure
+    ' in a module-level variable, and runs.
+
+    ' ---- the structure in a module-level variable (the way a program is told to call FindTextW)
+
+    [TestCase]
+    Public Sub FindTextW_WithAModuleLevelStructureDeliversTheMessages()
+        Expect.Begin
+        Dim owner As LongPtr = FindHost.Create()
+        Dim h As LongPtr = FindHost.FindWithModuleLevelStructure(owner)
+        Expect.IsTrue h <> 0, "FindTextW opened a dialog"
+        FindHost.Press h, FindHost.IDC_FIND_NEXT
+        Expect.AreEqual 1, FindHost.Messages, "messages the owner received for Find Next from a dialog made with a module-level structure"
+        FindHost.CloseDialog h
+        Expect.AreEqual 2, FindHost.Messages, "messages the owner received after the dialog was closed"
+        FindHost.Destroy owner
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogFontTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogFontTests.twin
new file mode 100644
index 00000000..737c1a23
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogFontTests.twin
@@ -0,0 +1,255 @@
+' cDialogFont: the font as properties and as text, and the Font dialog.
+[TestFixture]
+Module CDialogFontTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        Expect.AreEqual "Segoe UI", dlg.FaceName, "FaceName of a new cDialogFont"
+        Expect.AreEqual 9, dlg.Size, "Size of a new cDialogFont"
+        Expect.AreEqual 0, dlg.Style, "Style of a new cDialogFont"
+        Expect.AreEqual 0, dlg.Color, "Color of a new cDialogFont"
+        Expect.IsFalse dlg.Bold Or dlg.Italic Or dlg.Underline Or dlg.StrikeOut Or dlg.FixedPitchOnly, "Bold, Italic, Underline, StrikeOut and FixedPitchOnly of a new cDialogFont"
+        Expect.IsTrue dlg.ForceFontExist And dlg.ShowEffects And dlg.ScreenFontsOnly, "ForceFontExist, ShowEffects and ScreenFontsOnly of a new cDialogFont"
+        Expect.AreEqual 0, dlg.OwnerHwnd + dlg.MinSize + dlg.MaxSize, "OwnerHwnd, MinSize and MaxSize of a new cDialogFont"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Bold_Italic_AreBitsOfStyle()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.Bold = True
+        dlg.Italic = True
+        dlg.Bold = False
+        Expect.AreEqual 2, dlg.Style, "Style after Bold True, Italic True, Bold False"
+        Expect.IsTrue dlg.Italic, "Italic after that"
+        dlg.Style = FontStyle.StyleBoldItalic
+        Expect.IsTrue dlg.Bold And dlg.Italic, "Bold and Italic after Style StyleBoldItalic"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Italic_AloneGivesStyle2()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.Italic = True
+        Expect.AreEqual 2, dlg.Style, "Style after Italic True"
+        Expect.IsFalse dlg.Bold, "Bold after Italic True"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Style_HoldsTheNumberAssigned()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.Style = 4
+        Expect.AreEqual 4, dlg.Style, "Style after 4"
+        Expect.IsFalse dlg.Bold Or dlg.Italic, "Bold and Italic after Style 4"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Size_IgnoresZeroAndNegativeValues()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.Size = 12
+        dlg.Size = 0
+        dlg.Size = -3
+        Expect.AreEqual 12, dlg.Size, "Size after 12, 0 and -3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Color_StoresAnyLong()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.Color = RGB(0, 0, 128)
+        Expect.AreEqual &H800000, dlg.Color, "Color after RGB(0, 0, 128)"
+        dlg.Color = -5
+        Expect.AreEqual -5, dlg.Color, "Color after -5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValues()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.FaceName = "Courier New"
+        dlg.Size = 14
+        dlg.Bold = True
+        dlg.Underline = True
+        dlg.StrikeOut = True
+        dlg.Color = vbRed
+        dlg.FixedPitchOnly = True
+        dlg.ForceFontExist = False
+        dlg.ShowEffects = False
+        dlg.ScreenFontsOnly = False
+        dlg.OwnerHwnd = 5
+        dlg.MinSize = 8
+        dlg.MaxSize = 20
+        dlg.Reset
+        Expect.AreEqual "Segoe UI 9pt", dlg.ToDescription(), "ToDescription after Reset"
+        Expect.AreEqual 0, dlg.Color, "Color after Reset"
+        Expect.IsFalse dlg.FixedPitchOnly, "FixedPitchOnly after Reset"
+        Expect.IsTrue dlg.ForceFontExist And dlg.ShowEffects And dlg.ScreenFontsOnly, "ForceFontExist, ShowEffects and ScreenFontsOnly after Reset"
+        Expect.AreEqual 0, dlg.OwnerHwnd + dlg.MinSize + dlg.MaxSize, "OwnerHwnd, MinSize and MaxSize after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- the text forms
+
+    [TestCase]
+    Public Sub ToCssFont_HasTheDocumentedForm()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        Expect.AreEqual "font-family: 'Segoe UI'; font-size: 9pt; font-weight: normal; font-style: normal; text-decoration: none;", dlg.ToCssFont(), "ToCssFont of a new cDialogFont"
+        dlg.FaceName = "Courier New"
+        dlg.Size = 14
+        dlg.Bold = True
+        dlg.Italic = True
+        dlg.Underline = True
+        Expect.AreEqual "font-family: 'Courier New'; font-size: 14pt; font-weight: bold; font-style: italic; text-decoration: underline;", dlg.ToCssFont(), "ToCssFont of a bold italic underlined 14 point Courier New"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToCssFont_LeavesOutStrikeOutAndColor()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        Dim plain As String = dlg.ToCssFont()
+        dlg.StrikeOut = True
+        dlg.Color = vbRed
+        Expect.AreEqual plain, dlg.ToCssFont(), "ToCssFont after StrikeOut True and a color"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToCssFont_EscapesASingleQuoteInTheFaceName()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.FaceName = "O'Brien"
+        Expect.AreEqual "font-family: 'O\'Brien'; font-size: 9pt; font-weight: normal; font-style: normal; text-decoration: none;", dlg.ToCssFont(), "ToCssFont of a face name with a single quote"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToDescription_NamesFaceSizeAndEffects()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        Expect.AreEqual "Segoe UI 9pt", dlg.ToDescription(), "ToDescription of a new cDialogFont"
+        dlg.FaceName = "Courier New"
+        dlg.Size = 14
+        dlg.Style = FontStyle.StyleBoldItalic
+        dlg.Underline = True
+        dlg.StrikeOut = True
+        Expect.AreEqual "Courier New 14pt Bold Italic Underline Strikeout", dlg.ToDescription(), "ToDescription with every effect"
+        dlg.Color = vbRed
+        Expect.AreEqual "Courier New 14pt Bold Italic Underline Strikeout", dlg.ToDescription(), "ToDescription after a color is set"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumerations_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 700, FontWeight.FW_BOLD, "FW_BOLD"
+        Expect.AreEqual 400, FontWeight.FW_NORMAL, "FW_NORMAL"
+        Expect.AreEqual 900, FontWeight.FW_HEAVY, "FW_HEAVY"
+        Expect.AreEqual 32, FontFamily.FF_SWISS, "FF_SWISS"
+        Expect.AreEqual 80, FontFamily.FF_DECORATIVE, "FF_DECORATIVE"
+        Expect.AreEqual 1, FontPitch.FIXED_PITCH, "FIXED_PITCH"
+        Expect.AreEqual 2, FontPitch.VARIABLE_PITCH, "VARIABLE_PITCH"
+        Expect.AreEqual 3, FontStyle.StyleBoldItalic, "StyleBoldItalic"
+        Expect.AreEqual 1, FontStyle.StyleBold, "StyleBold"
+        Expect.Done
+    End Sub
+
+    ' ---- the dialog
+
+    [TestCase]
+    Public Sub ShowDialog_OKReturnsTrue()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.FaceName = "Courier New"
+        dlg.Size = 10
+        Pilot.Arm "id=1"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowDialog opened"
+        Expect.AreEqual "Font", Pilot.Title(0), "caption of the Font dialog"
+        Expect.IsTrue r, "ShowDialog after OK"
+        Expect.AreEqual "Courier New", dlg.FaceName, "FaceName after OK on the face the dialog opened with"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_CancelReturnsFalseAndKeepsTheProperties()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.FaceName = "Courier New"
+        dlg.Size = 10
+        Pilot.Arm "id=2"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.IsFalse r, "ShowDialog after Cancel"
+        Expect.AreEqual "Courier New 10pt", dlg.ToDescription(), "ToDescription after Cancel"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_MinSizeAloneOpensTheDialog()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.MinSize = 8
+        Pilot.Arm "id=2"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowDialog opened with MinSize 8 and MaxSize 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_MinSizeAboveMaxSizeOpensTheDialogOrRaisesAnError()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.MinSize = 20
+        dlg.MaxSize = 10
+        Pilot.Arm "id=2"
+        On Error Resume Next
+        Dim r As Boolean = dlg.ShowDialog()
+        Dim n As Long = Err.Number
+        On Error GoTo 0
+        Pilot.Disarm
+        Expect.IsTrue Pilot.WindowsSeen > 0 Or n <> 0, "a MinSize of 20 above a MaxSize of 10 opens the dialog or raises an error, not a silent False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_MinSizeAndMaxSizeOpenTheDialog()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.MinSize = 8
+        dlg.MaxSize = 72
+        Pilot.Arm "id=2"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowDialog opened with MinSize 8 and MaxSize 72"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_MissingFaceWithoutForceFontExistGivesAnEmptyFaceName()
+        Expect.Begin
+        Dim dlg As New cDialogFont
+        dlg.ForceFontExist = False
+        dlg.FaceName = "A Face Of My Own"
+        Pilot.Arm "id=1"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after OK with ForceFontExist False and a face that is not installed"
+        Expect.AreEqual "", dlg.FaceName, "FaceName after that OK"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogInputBoxTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogInputBoxTests.twin
new file mode 100644
index 00000000..0a01e31b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogInputBoxTests.twin
@@ -0,0 +1,478 @@
+' cDialogInputBox: the rules for an entry, and the box that asks for it (the InputBox of the run-time
+' library, with a message box for each refused entry), operated with Pilot.
+[TestFixture]
+Module CDialogInputBoxTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Expect.AreEqual "Input", box.Title, "Title of a new cDialogInputBox"
+        Expect.AreEqual "Please enter a value:", box.Prompt, "Prompt of a new cDialogInputBox"
+        Expect.AreEqual "", box.DefaultValue & box.Placeholder & box.CustomPattern & box.PasswordChar & box.Value, "the texts of a new cDialogInputBox"
+        Expect.AreEqual 0, box.MinLength + box.MaxLength + box.OwnerHwnd, "MinLength, MaxLength and OwnerHwnd of a new cDialogInputBox"
+        Expect.AreEqual InputValidation.None, box.Validation, "Validation of a new cDialogInputBox"
+        Expect.IsTrue box.AllowEmpty, "AllowEmpty of a new cDialogInputBox"
+        Expect.IsFalse box.Multiline Or box.Cancelled, "Multiline and Cancelled of a new cDialogInputBox"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumerations_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 0, InputValidation.None, "None"
+        Expect.AreEqual 1, InputValidation.Numeric, "Numeric"
+        Expect.AreEqual 2, InputValidation.Integer, "Integer"
+        Expect.AreEqual 3, InputValidation.Alpha, "Alpha"
+        Expect.AreEqual 4, InputValidation.AlphaNumeric, "AlphaNumeric"
+        Expect.AreEqual 5, InputValidation.Email, "Email"
+        Expect.AreEqual 6, InputValidation.Phone, "Phone"
+        Expect.AreEqual 7, InputValidation.URL, "URL"
+        Expect.AreEqual 99, InputValidation.Custom, "Custom"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValues()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Title = "Age"
+        box.Prompt = "x"
+        box.DefaultValue = "d"
+        box.Placeholder = "p"
+        box.CustomPattern = "c"
+        box.PasswordChar = "*"
+        box.MinLength = 2
+        box.MaxLength = 3
+        box.OwnerHwnd = 9
+        box.Validation = InputValidation.Integer
+        box.AllowEmpty = False
+        box.Multiline = True
+        box.Reset
+        Expect.AreEqual "Input", box.Title, "Title after Reset"
+        Expect.AreEqual "Please enter a value:", box.Prompt, "Prompt after Reset"
+        Expect.AreEqual "", box.DefaultValue & box.Placeholder & box.CustomPattern & box.PasswordChar & box.Value, "the texts after Reset"
+        Expect.AreEqual 0, box.MinLength + box.MaxLength + box.OwnerHwnd, "MinLength, MaxLength and OwnerHwnd after Reset"
+        Expect.AreEqual InputValidation.None, box.Validation, "Validation after Reset"
+        Expect.IsTrue box.AllowEmpty, "AllowEmpty after Reset"
+        Expect.IsFalse box.Multiline Or box.Cancelled, "Multiline and Cancelled after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- ValidateInput
+
+    [TestCase]
+    Public Sub ValidateInput_MinLengthComesFirstAndCoversTheEmptyText()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.MinLength = 3
+        Expect.AreEqual "Input must be at least 3 characters", box.ValidateInput("ab"), "ValidateInput of ab with MinLength 3"
+        Expect.AreEqual "", box.ValidateInput("abc"), "ValidateInput of abc with MinLength 3"
+        box.AllowEmpty = False
+        Expect.AreEqual "Input must be at least 3 characters", box.ValidateInput(""), "ValidateInput of an empty text with MinLength 3 and AllowEmpty False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_MaxLength()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.MaxLength = 5
+        Expect.AreEqual "Input must not exceed 5 characters", box.ValidateInput("abcdef"), "ValidateInput of abcdef with MaxLength 5"
+        Expect.AreEqual "", box.ValidateInput("abcde"), "ValidateInput of abcde with MaxLength 5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_AllowEmpty()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Expect.AreEqual "", box.ValidateInput(""), "ValidateInput of an empty text with AllowEmpty True"
+        box.AllowEmpty = False
+        Expect.AreEqual "Input cannot be empty", box.ValidateInput(""), "ValidateInput of an empty text with AllowEmpty False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_NumericAndInteger()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Validation = InputValidation.Numeric
+        Expect.AreEqual "", box.ValidateInput("3.5"), "Numeric: 3.5"
+        Expect.AreEqual "Input must be a valid number", box.ValidateInput("abc"), "Numeric: abc"
+        Expect.AreEqual "", box.ValidateInput(""), "Numeric: an empty text"
+        box.Validation = InputValidation.Integer
+        Expect.AreEqual "", box.ValidateInput("42"), "Integer: 42"
+        Expect.AreEqual "", box.ValidateInput("1e3"), "Integer: 1e3"
+        Expect.AreEqual "Input must be a valid integer", box.ValidateInput("4.2"), "Integer: 4.2"
+        Expect.AreEqual "Input must be a valid integer", box.ValidateInput("4,2"), "Integer: 4,2"
+        Expect.AreEqual "Input must be a valid integer", box.ValidateInput("abc"), "Integer: abc"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_AlphaAndAlphaNumeric()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Validation = InputValidation.Alpha
+        Expect.AreEqual "", box.ValidateInput("Hello World"), "Alpha: Hello World"
+        Expect.AreEqual "Input must contain only letters", box.ValidateInput("Hello1"), "Alpha: Hello1"
+        box.Validation = InputValidation.AlphaNumeric
+        Expect.AreEqual "", box.ValidateInput("Item_42 x"), "AlphaNumeric: Item_42 x"
+        Expect.AreEqual "Input must contain only letters and numbers", box.ValidateInput("Item-42"), "AlphaNumeric: Item-42"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_Email()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Validation = InputValidation.Email
+        Expect.AreEqual "", box.ValidateInput("ann@example.com"), "Email: ann@example.com"
+        Expect.AreEqual "Input must be a valid email address", box.ValidateInput("ann@@example.com"), "Email: ann@@example.com"
+        Expect.AreEqual "Input must be a valid email address", box.ValidateInput("ann.example"), "Email: ann.example"
+        Expect.AreEqual "Input must be a valid email address", box.ValidateInput("ann@example"), "Email: ann@example"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_PhoneAndURL()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Validation = InputValidation.Phone
+        Expect.AreEqual "", box.ValidateInput("+1 (555) 123-4567"), "Phone: +1 (555) 123-4567"
+        Expect.AreEqual "", box.ValidateInput("555.1234"), "Phone: 555.1234"
+        Expect.AreEqual "Input must be a valid phone number", box.ValidateInput("555-CALL"), "Phone: 555-CALL"
+        box.Validation = InputValidation.URL
+        Expect.AreEqual "", box.ValidateInput("https://example.com"), "URL: https://example.com"
+        Expect.AreEqual "", box.ValidateInput("https://"), "URL: https://"
+        Expect.AreEqual "Input must be a valid URL (e.g., https://example.com)", box.ValidateInput("example.com"), "URL: example.com"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_AnEmptyTextPassesTheRulesFromNumericToURL()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Dim v As Variant
+        For Each v In Array(InputValidation.Numeric, InputValidation.Integer, InputValidation.Alpha, InputValidation.AlphaNumeric, InputValidation.Email, InputValidation.Phone, InputValidation.URL)
+            box.Validation = CLng(v)
+            Expect.AreEqual "", box.ValidateInput(""), "ValidateInput of an empty text with Validation " & CLng(v)
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_ChangesNothingInTheObject()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.MinLength = 3
+        Dim s As String = box.ValidateInput("a")
+        Expect.AreEqual "", box.Value, "Value after ValidateInput"
+        Expect.IsFalse box.Cancelled, "Cancelled after ValidateInput"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValidateInput_CustomChecksTheTextAgainstThePattern()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Validation = InputValidation.Custom
+        box.CustomPattern = "[0-9]+"
+        Expect.AreEqual "Input does not match required format", box.ValidateInput("letters only"), "ValidateInput of letters only against the pattern [0-9]+"
+        Expect.AreEqual "", box.ValidateInput("12345"), "ValidateInput of 12345 against the pattern [0-9]+"
+        Expect.Done
+    End Sub
+
+    ' ---- GetValueAsInteger and GetValueAsNumber
+
+    [TestCase]
+    Public Sub GetValueAsNumber_OfAnEmptyValueIsZero()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Expect.AreEqual 0, box.GetValueAsNumber(), "GetValueAsNumber of an empty Value"
+        Expect.AreEqual 0, box.GetValueAsInteger(), "GetValueAsInteger of an empty Value"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetValueAsInteger_RoundsTheValue()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Validation = InputValidation.Numeric
+        Pilot.Arm "t=3.5|id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual 4, box.GetValueAsInteger(), "GetValueAsInteger of 3.5"
+        Expect.AreEqual 3.5, box.GetValueAsNumber(), "GetValueAsNumber of 3.5"
+        Expect.Done
+    End Sub
+
+    ' ---- the box
+
+    [TestCase]
+    Public Sub ShowDialog_ShowsTheTitleThePromptTheHintAndTheLength()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Title = "New user"
+        box.Prompt = "Name of the user?"
+        box.Placeholder = "like Ann"
+        box.MinLength = 3
+        box.MaxLength = 8
+        box.DefaultValue = "Guest"
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual "New user", Pilot.Title(0), "title of the box"
+        Expect.AreEqual "Name of the user?" & vbCrLf & vbCrLf & "(Hint: like Ann)" & vbCrLf & vbCrLf & "Length: 3 to 8 characters", Pilot.Statics(0), "text of the box"
+        Expect.AreEqual "Guest", Pilot.EditText(0), "text in the edit box"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_NamesALengthWithOnlyAMinimumOrOnlyAMaximum()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Prompt = "P"
+        box.MinLength = 3
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual "P" & vbCrLf & vbCrLf & "Length: At least 3 characters", Pilot.Statics(0), "text of the box with a minimum"
+        box.MinLength = 0
+        box.MaxLength = 8
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual "P" & vbCrLf & vbCrLf & "Length: Maximum 8 characters", Pilot.Statics(0), "text of the box with a maximum"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_OKStoresTheValue()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Pilot.Arm "t=hello|id=1"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after OK"
+        Expect.AreEqual "hello", box.Value, "Value after OK"
+        Expect.IsFalse box.Cancelled, "Cancelled after OK"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_CancelEmptiesTheValueAndSetsCancelled()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Pilot.Arm "t=hello|id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Pilot.Arm "t=again|id=2"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.IsFalse r, "ShowDialog after Cancel"
+        Expect.IsTrue box.Cancelled, "Cancelled after Cancel"
+        Expect.AreEqual "", box.Value, "Value after Cancel"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_AnEmptyEntryPassesWhenEmptyIsAllowed()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Pilot.Arm "t=|id=1"
+        Expect.IsTrue box.ShowDialog(), "ShowDialog after an empty entry"
+        Pilot.Disarm
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ARefusedEntryAsksAgainWithTheDefaultValue()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Title = "Code"
+        box.MinLength = 4
+        box.DefaultValue = "AB12"
+        Pilot.Arm "t=ab|id=1;close;t=abcd|id=1"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 3, Pilot.WindowsSeen, "windows opened (the box, the message, the box again)"
+        Expect.IsTrue InStr(Pilot.Statics(1), "Input must be at least 4 characters") > 0, "text of the message: " & Pilot.Statics(1)
+        Expect.AreEqual "Code", Pilot.Title(1), "title of the message"
+        Expect.AreEqual "AB12", Pilot.EditText(2), "text in the edit box when it is shown again"
+        Expect.IsTrue r, "ShowDialog after a good second entry"
+        Expect.AreEqual "abcd", box.Value, "Value after the good second entry"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ThreeRefusedEntriesEndWithMaximumAttemptsAndKeepTheValue()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.MinLength = 4
+        Pilot.Arm "t=abcd|id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Pilot.Arm "t=ab|id=1;close;t=ab|id=1;close;t=ab|id=1;close"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 6, Pilot.WindowsSeen, "windows opened (three boxes and three messages)"
+        Expect.IsFalse r, "ShowDialog after three refused entries"
+        Expect.IsTrue box.Cancelled, "Cancelled after three refused entries"
+        Expect.AreEqual "abcd", box.Value, "Value after three refused entries"
+        Expect.AreEqual 0, InStr(Pilot.Statics(1), "Maximum attempts reached."), "the first message carries 'Maximum attempts reached.'"
+        Expect.IsTrue InStr(Pilot.Statics(5), "Maximum attempts reached.") > 0, "text of the third message: " & Pilot.Statics(5)
+        Expect.Done
+    End Sub
+
+    ' ---- the properties that have no effect
+
+    [TestCase]
+    Public Sub PasswordChar_MasksTheEntry()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.PasswordChar = "*"
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue Pilot.PasswordChar(0) <> 0, "password character of the edit box with PasswordChar *"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Multiline_GivesAMultilineEditBox()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.Multiline = True
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue Pilot.IsMultiline(0), "edit box of a box with Multiline True is multiline"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OwnerHwnd_OwnsTheBox()
+        Expect.Begin
+        Dim owner As LongPtr = Fx.MakeOwner()
+        Dim box As New cDialogInputBox
+        box.OwnerHwnd = owner
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue Pilot.OwnerOf(0) = owner, "the box is owned by the window set in OwnerHwnd"
+        Fx.DestroyOwner owner
+        Expect.Done
+    End Sub
+
+    ' ---- the quick methods
+
+    [TestCase]
+    Public Sub ShowSimple_ReturnsTheTextAndSetsTheRules()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        box.MinLength = 5
+        box.Validation = InputValidation.Integer
+        Pilot.Arm "t=Hello|id=1"
+        Dim s As String = box.ShowSimple("Your name?", "Welcome", "Guest")
+        Pilot.Disarm
+        Expect.AreEqual "Hello", s, "ShowSimple"
+        Expect.AreEqual "Welcome", Pilot.Title(0), "title of the ShowSimple box"
+        Expect.AreEqual "Guest", Pilot.EditText(0), "text in the edit box of ShowSimple"
+        Expect.AreEqual InputValidation.None, box.Validation, "Validation after ShowSimple"
+        Expect.IsTrue box.AllowEmpty, "AllowEmpty after ShowSimple"
+        Expect.AreEqual 0, box.MinLength + box.MaxLength, "MinLength and MaxLength after ShowSimple"
+        Pilot.Arm "id=2"
+        Expect.AreEqual "", box.ShowSimple("Your name?"), "ShowSimple after Cancel"
+        Pilot.Disarm
+        Expect.IsTrue box.Cancelled, "Cancelled after that ShowSimple"
+        Expect.AreEqual "Input", Pilot.Title(0), "default title of ShowSimple"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowInteger_ReturnsALongAndAcceptsExponents()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Pilot.Arm "t=1e3|id=1"
+        Dim n As Long = box.ShowInteger("How many copies?", "Print", "1")
+        Pilot.Disarm
+        Expect.AreEqual 1000, n, "ShowInteger of 1e3"
+        Expect.AreEqual "Print", Pilot.Title(0), "title of the ShowInteger box"
+        Expect.AreEqual "1", Pilot.EditText(0), "text in the edit box of ShowInteger"
+        Expect.AreEqual InputValidation.Integer, box.Validation, "Validation after ShowInteger"
+        Expect.IsFalse box.AllowEmpty, "AllowEmpty after ShowInteger"
+        Pilot.Arm "id=2"
+        Expect.AreEqual 0, box.ShowInteger("n"), "ShowInteger after Cancel"
+        Pilot.Disarm
+        Expect.AreEqual "Enter Integer", Pilot.Title(0), "default title of ShowInteger"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowInteger_AValueThatDoesNotFitALongRaisesOverflowAndKeepsTheText()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Pilot.Arm "t=99999999999|id=1"
+        On Error Resume Next
+        Dim n As Long = box.ShowInteger("n")
+        Dim e As Long = Err.Number
+        On Error GoTo 0
+        Pilot.Disarm
+        Expect.AreEqual 6, e, "error ShowInteger raised for 99999999999"
+        Expect.AreEqual "99999999999", box.Value, "Value after that ShowInteger"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowNumeric_ReturnsADouble()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Pilot.Arm "t=3.5|id=1"
+        Dim d As Double = box.ShowNumeric("Price?", "New article", "9.99")
+        Pilot.Disarm
+        Expect.AreEqual 3.5, d, "ShowNumeric of 3.5"
+        Expect.AreEqual "9.99", Pilot.EditText(0), "text in the edit box of ShowNumeric"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowEmail_Phone_URL_SetThePlaceholderAndTheDefault()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Pilot.Arm "t=ann@example.com|id=1"
+        Expect.AreEqual "ann@example.com", box.ShowEmail("Where?"), "ShowEmail"
+        Pilot.Disarm
+        Expect.AreEqual "Enter Email", Pilot.Title(0), "default title of ShowEmail"
+        Expect.AreEqual "example@domain.com", box.Placeholder, "Placeholder after ShowEmail"
+        Expect.AreEqual "", Pilot.EditText(0), "text in the edit box of ShowEmail"
+        Pilot.Arm "t=+1 555 1234|id=1"
+        Expect.AreEqual "+1 555 1234", box.ShowPhone("Number?"), "ShowPhone"
+        Pilot.Disarm
+        Expect.AreEqual "Enter Phone", Pilot.Title(0), "default title of ShowPhone"
+        Expect.AreEqual "+1 (555) 123-4567", box.Placeholder, "Placeholder after ShowPhone"
+        Pilot.Arm "id=1"
+        Expect.AreEqual "https://", box.ShowURL("Site?"), "ShowURL accepting the offered https://"
+        Pilot.Disarm
+        Expect.AreEqual "Enter URL", Pilot.Title(0), "default title of ShowURL"
+        Expect.AreEqual "https://", Pilot.EditText(0), "text in the edit box of ShowURL"
+        Expect.AreEqual "https://example.com", box.Placeholder, "Placeholder after ShowURL"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSimple_KeepsThePlaceholderOfAnEarlierCall()
+        Expect.Begin
+        Dim box As New cDialogInputBox
+        Pilot.Arm "id=2"
+        box.ShowEmail "Where?"
+        Pilot.Disarm
+        Pilot.Arm "id=2"
+        box.ShowSimple "Name?"
+        Pilot.Disarm
+        Expect.IsTrue InStr(Pilot.Statics(0), "(Hint: example@domain.com)") > 0, "text of the ShowSimple box after ShowEmail: " & Pilot.Statics(0)
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPageSetupTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPageSetupTests.twin
new file mode 100644
index 00000000..a8296eba
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPageSetupTests.twin
@@ -0,0 +1,205 @@
+' cDialogPageSetup: the page as properties and text, and the Page Setup dialog. The dialog offers the
+' paper of the default printer; no case prints, or changes a printer or its settings.
+[TestFixture]
+Module CDialogPageSetupTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        Expect.AreEqual 8.5, dlg.PaperWidth, "PaperWidth of a new cDialogPageSetup"
+        Expect.AreEqual 11, dlg.PaperHeight, "PaperHeight of a new cDialogPageSetup"
+        Expect.AreEqual 1, dlg.MarginLeft + dlg.MarginRight + dlg.MarginTop + dlg.MarginBottom - 3, "the four margins of a new cDialogPageSetup (sum less 3)"
+        Expect.AreEqual PaperOrientation.Portrait, dlg.Orientation, "Orientation of a new cDialogPageSetup"
+        Expect.AreEqual MeasurementUnit.Inches, dlg.Unit, "Unit of a new cDialogPageSetup"
+        Expect.IsTrue dlg.AllowMargins And dlg.AllowOrientation And dlg.AllowPaper And dlg.DefaultMinMargins, "the Allow properties and DefaultMinMargins of a new cDialogPageSetup"
+        Expect.AreEqual 0, dlg.OwnerHwnd, "OwnerHwnd of a new cDialogPageSetup"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumerations_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 0, MeasurementUnit.Inches, "Inches"
+        Expect.AreEqual 1, MeasurementUnit.Millimeters, "Millimeters"
+        Expect.AreEqual 1, PaperOrientation.Portrait, "Portrait"
+        Expect.AreEqual 2, PaperOrientation.Landscape, "Landscape"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Margins_AreStoredWithoutACheck()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.MarginLeft = 1.25
+        dlg.MarginRight = 0.75
+        dlg.MarginTop = -2
+        dlg.MarginBottom = 100
+        Expect.AreEqual 1.25, dlg.MarginLeft, "MarginLeft"
+        Expect.AreEqual 0.75, dlg.MarginRight, "MarginRight"
+        Expect.AreEqual -2, dlg.MarginTop, "MarginTop"
+        Expect.AreEqual 100, dlg.MarginBottom, "MarginBottom"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unit_Millimeters_KeepsThePropertiesInInches()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.Unit = MeasurementUnit.Millimeters
+        dlg.MarginLeft = 2
+        Expect.AreEqual 2, dlg.MarginLeft, "MarginLeft with Unit Millimeters"
+        Expect.AreEqual 1, dlg.Unit, "Unit after Millimeters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetPrintableHeight_And_Width_SubtractTheMargins()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.PaperHeight = 12
+        dlg.MarginTop = 2
+        dlg.MarginBottom = 1
+        Expect.AreEqual 9, dlg.GetPrintableHeight(), "GetPrintableHeight"
+        dlg.SetNarrowMargins
+        Expect.AreEqual 7.5, dlg.GetPrintableWidth(), "GetPrintableWidth with narrow margins on Letter"
+        dlg.MarginTop = 8
+        dlg.MarginBottom = 8
+        Expect.IsTrue dlg.GetPrintableHeight() < 0, "GetPrintableHeight with margins larger than the paper"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetPaperSizes_SetWidthAndHeight()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.SetA4Size
+        Expect.AreEqual 826, Int(dlg.PaperWidth * 100), "PaperWidth of A4 (hundredths, rounded down)"
+        Expect.AreEqual 1169, Int(dlg.PaperHeight * 100), "PaperHeight of A4 (hundredths, rounded down)"
+        dlg.SetLegalSize
+        Expect.AreEqual 8.5, dlg.PaperWidth, "PaperWidth of Legal"
+        Expect.AreEqual 14, dlg.PaperHeight, "PaperHeight of Legal"
+        dlg.SetA4Size
+        dlg.SetLetterSize
+        Expect.AreEqual 8.5, dlg.PaperWidth, "PaperWidth of Letter"
+        Expect.AreEqual 11, dlg.PaperHeight, "PaperHeight of Letter"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetMargins_SetAllFour()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.SetNarrowMargins
+        Expect.AreEqual 0.5, dlg.MarginLeft, "MarginLeft after SetNarrowMargins"
+        Expect.AreEqual 0.5, dlg.MarginTop + dlg.MarginRight + dlg.MarginBottom - 1, "the other margins after SetNarrowMargins (sum less 1)"
+        dlg.SetDefaultMargins
+        Expect.AreEqual 2, dlg.MarginTop + dlg.MarginBottom, "MarginTop and MarginBottom after SetDefaultMargins"
+        Expect.AreEqual 2, dlg.MarginLeft + dlg.MarginRight, "MarginLeft and MarginRight after SetDefaultMargins"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValuesButNotTheOwner()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.SetLegalSize
+        dlg.SetNarrowMargins
+        dlg.Orientation = PaperOrientation.Landscape
+        dlg.Unit = MeasurementUnit.Millimeters
+        dlg.AllowMargins = False
+        dlg.AllowOrientation = False
+        dlg.AllowPaper = False
+        dlg.DefaultMinMargins = False
+        dlg.OwnerHwnd = 88
+        dlg.Reset
+        Expect.AreEqual 11, dlg.PaperHeight, "PaperHeight after Reset"
+        Expect.AreEqual 1, dlg.MarginLeft, "MarginLeft after Reset"
+        Expect.AreEqual PaperOrientation.Portrait, dlg.Orientation, "Orientation after Reset"
+        Expect.AreEqual MeasurementUnit.Inches, dlg.Unit, "Unit after Reset"
+        Expect.IsTrue dlg.AllowMargins And dlg.AllowOrientation And dlg.AllowPaper And dlg.DefaultMinMargins, "the Allow properties and DefaultMinMargins after Reset"
+        Expect.AreEqual 88, dlg.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToDescription_HasTheDocumentedForm()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        Expect.AreEqual Fx.Dec("Paper: 8.50 x 11.00 in, Portrait, Margins: 1.00/1.00/1.00/1.00 in"), dlg.ToDescription(), "ToDescription of a new cDialogPageSetup"
+        dlg.SetLegalSize
+        dlg.Orientation = PaperOrientation.Landscape
+        dlg.MarginLeft = 0.5
+        dlg.MarginRight = 0.75
+        dlg.MarginTop = 1.25
+        dlg.MarginBottom = 0.3
+        Expect.AreEqual Fx.Dec("Paper: 8.50 x 14.00 in, Landscape, Margins: 0.50/0.75/1.25/0.30 in"), dlg.ToDescription(), "ToDescription of a Legal page"
+        Expect.Done
+    End Sub
+
+    ' ---- the defects the page states
+
+    [TestCase]
+    Public Sub ToDescription_WithMillimetersWritesMillimeters()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.Unit = MeasurementUnit.Millimeters
+        Expect.AreEqual Fx.Dec("Paper: 215.90 x 279.40 mm, Portrait, Margins: 25.40/25.40/25.40/25.40 mm"), dlg.ToDescription(), "ToDescription of a new page with Unit Millimeters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_PaperSizeSetBeforeTheCallIsTheOneTheDialogOpensWith()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.SetLegalSize
+        Pilot.Arm "id=1"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowDialog opened"
+        Expect.AreEqual "Page Setup", Pilot.Title(0), "caption of the Page Setup dialog"
+        Expect.IsTrue r, "ShowDialog after OK"
+        Expect.AreEqual 14, dlg.PaperHeight, "PaperHeight after OK on a dialog that was opened with SetLegalSize"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_OrientationSetBeforeTheCallSelectsLandscape()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.Orientation = PaperOrientation.Landscape
+        Pilot.Arm "id=1"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after OK"
+        Expect.IsTrue dlg.PaperWidth > dlg.PaperHeight, "paper after OK on a dialog that was opened with Orientation Landscape: " & dlg.PaperWidth & " x " & dlg.PaperHeight
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_OrientationChosenInTheDialogIsReadBack()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        Pilot.Arm "id=1057|wait=2|id=1"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after Landscape and OK"
+        Expect.IsTrue dlg.PaperWidth > dlg.PaperHeight, "paper after Landscape was chosen in the dialog: " & dlg.PaperWidth & " x " & dlg.PaperHeight
+        Expect.AreEqual PaperOrientation.Landscape, dlg.Orientation, "Orientation after Landscape was chosen in the dialog"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_CancelReturnsFalseAndKeepsTheProperties()
+        Expect.Begin
+        Dim dlg As New cDialogPageSetup
+        dlg.SetNarrowMargins
+        Pilot.Arm "id=2"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.IsFalse r, "ShowDialog after Cancel"
+        Expect.AreEqual Fx.Dec("Paper: 8.50 x 11.00 in, Portrait, Margins: 0.50/0.50/0.50/0.50 in"), dlg.ToDescription(), "ToDescription after Cancel"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPasswordTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPasswordTests.twin
new file mode 100644
index 00000000..e84457c4
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPasswordTests.twin
@@ -0,0 +1,453 @@
+' cDialogPassword: the rules for a password, its rating, and the boxes that ask for it (the InputBox of
+' the run-time library, masked by a timer, and a message box for each refused entry), operated with Pilot.
+[TestFixture]
+Module CDialogPasswordTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Expect.AreEqual "Enter Password", box.Title, "Title of a new cDialogPassword"
+        Expect.AreEqual "Please enter your password:", box.Prompt, "Prompt of a new cDialogPassword"
+        Expect.AreEqual "*", box.PasswordChar, "PasswordChar of a new cDialogPassword"
+        Expect.AreEqual 8, box.MinLength, "MinLength of a new cDialogPassword"
+        Expect.AreEqual 128, box.MaxLength, "MaxLength of a new cDialogPassword"
+        Expect.AreEqual 3, box.MaxAttempts, "MaxAttempts of a new cDialogPassword"
+        Expect.IsTrue box.RequireUppercase And box.RequireLowercase And box.RequireNumber, "RequireUppercase, RequireLowercase and RequireNumber of a new cDialogPassword"
+        Expect.IsFalse box.RequireSpecial Or box.RequireConfirm Or box.Cancelled, "RequireSpecial, RequireConfirm and Cancelled of a new cDialogPassword"
+        Expect.IsTrue box.ShowStrength And box.AllowShowPassword, "ShowStrength and AllowShowPassword of a new cDialogPassword"
+        Expect.AreEqual "", box.Password, "Password of a new cDialogPassword"
+        Expect.AreEqual 0, box.OwnerHwnd, "OwnerHwnd of a new cDialogPassword"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PasswordChar_KeepsTheFirstCharacterAndAnEmptyTextGivesTheDefault()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.PasswordChar = "#"
+        Expect.AreEqual "#", box.PasswordChar, "PasswordChar after #"
+        box.PasswordChar = "abc"
+        Expect.AreEqual "a", box.PasswordChar, "PasswordChar after abc"
+        box.PasswordChar = ""
+        Expect.AreEqual "*", box.PasswordChar, "PasswordChar after an empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValuesButNotTheOwner()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.Title = "x"
+        box.Prompt = "y"
+        box.PasswordChar = "#"
+        box.MinLength = 12
+        box.MaxLength = 20
+        box.MaxAttempts = 9
+        box.RequireUppercase = False
+        box.RequireLowercase = False
+        box.RequireNumber = False
+        box.RequireSpecial = True
+        box.RequireConfirm = True
+        box.ShowStrength = False
+        box.AllowShowPassword = False
+        box.OwnerHwnd = 31
+        box.Reset
+        Expect.AreEqual "Enter Password", box.Title, "Title after Reset"
+        Expect.AreEqual "*", box.PasswordChar, "PasswordChar after Reset"
+        Expect.AreEqual 8, box.MinLength, "MinLength after Reset"
+        Expect.AreEqual 128, box.MaxLength, "MaxLength after Reset"
+        Expect.AreEqual 3, box.MaxAttempts, "MaxAttempts after Reset"
+        Expect.IsTrue box.RequireUppercase And box.RequireLowercase And box.RequireNumber And box.ShowStrength And box.AllowShowPassword, "the properties that start True, after Reset"
+        Expect.IsFalse box.RequireSpecial Or box.RequireConfirm, "RequireSpecial and RequireConfirm after Reset"
+        Expect.AreEqual 31, box.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- Validate
+
+    [TestCase]
+    Public Sub Validate_ChecksInTheDocumentedOrder()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Expect.AreEqual "Password must be at least 8 characters", box.Validate("short"), "Validate of short"
+        Expect.AreEqual "Password must contain at least one uppercase letter", box.Validate("alllowercase1"), "Validate of alllowercase1"
+        Expect.AreEqual "Password must contain at least one lowercase letter", box.Validate("ALLUPPERCASE1"), "Validate of ALLUPPERCASE1"
+        Expect.AreEqual "Password must contain at least one number", box.Validate("NoDigitsHere"), "Validate of NoDigitsHere"
+        Expect.AreEqual "", box.Validate("Zq7-demo-xx"), "Validate of Zq7-demo-xx"
+        box.MaxLength = 10
+        Expect.AreEqual "Password must not exceed 10 characters", box.Validate("Zq7-demo-xxx"), "Validate of a text longer than MaxLength"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Validate_RequireSpecialAcceptsThePunctuationOfTheList()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.RequireSpecial = True
+        Expect.AreEqual "Password must contain at least one special character", box.Validate("Zq7demoxx"), "Validate of Zq7demoxx with RequireSpecial"
+        Expect.AreEqual "Password must contain at least one special character", box.Validate("Zq7 demo x"), "Validate of a text with a space only"
+        Expect.AreEqual "", box.Validate("Zq7-demo"), "Validate of Zq7-demo with RequireSpecial"
+        Dim specials As String = "!@#$%^&*()_+-=[]{}|;:',.<>?/~`"
+        Dim i As Long
+        For i = 1 To Len(specials)
+            Expect.AreEqual "", box.Validate("Zq7demo" & Mid$(specials, i, 1)), "Validate with the special character " & Mid$(specials, i, 1)
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Validate_ARuleSwitchedOffIsNotChecked()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.RequireUppercase = False
+        box.RequireLowercase = False
+        box.RequireNumber = False
+        box.MinLength = 0
+        Expect.AreEqual "", box.Validate(""), "Validate of an empty text with MinLength 0 and no character rule"
+        Expect.AreEqual "", box.Validate("x"), "Validate of x with no character rule"
+        Expect.Done
+    End Sub
+
+    ' ---- GetStrength
+
+    [TestCase]
+    Public Sub GetStrength_AddsPointsForLengthAndKinds()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Expect.AreEqual "Very Weak", box.GetStrengthDescription(box.GetStrength("abc")), "strength of abc"
+        Expect.AreEqual "Weak", box.GetStrengthDescription(box.GetStrength("Password1")), "strength of Password1"
+        Expect.AreEqual "Fair", box.GetStrengthDescription(box.GetStrength("Zq7-demo-xx")), "strength of Zq7-demo-xx"
+        Expect.AreEqual "Strong", box.GetStrengthDescription(box.GetStrength("Zq7-demo-xxxx")), "strength of Zq7-demo-xxxx"
+        Expect.AreEqual PasswordStrength.VeryWeak, box.GetStrength(""), "strength of an empty text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetStrength_IgnoresTheRulesOfTheObject()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Dim before As PasswordStrength = box.GetStrength("Zq7-demo-xx")
+        box.MinLength = 50
+        box.RequireSpecial = True
+        Expect.AreEqual before, box.GetStrength("Zq7-demo-xx"), "strength of Zq7-demo-xx after the rules changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetStrength_TheBestPasswordIsVeryStrong()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Expect.AreEqual PasswordStrength.VeryStrong, box.GetStrength("Zq7-demo-xxxxxxxxxxxx"), "strength of a password of 21 characters with every kind of character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetStrengthDescription_NamesEachStrength()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Expect.AreEqual "Very Weak", box.GetStrengthDescription(PasswordStrength.VeryWeak), "VeryWeak"
+        Expect.AreEqual "Weak", box.GetStrengthDescription(PasswordStrength.Weak), "Weak"
+        Expect.AreEqual "Fair", box.GetStrengthDescription(PasswordStrength.Fair), "Fair"
+        Expect.AreEqual "Strong", box.GetStrengthDescription(PasswordStrength.Strong), "Strong"
+        Expect.AreEqual "Very Strong", box.GetStrengthDescription(PasswordStrength.VeryStrong), "VeryStrong"
+        Expect.AreEqual "", box.GetStrengthDescription(9), "a value that is no member"
+        Expect.AreEqual 4, PasswordStrength.VeryStrong, "value of VeryStrong"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetRequirementsDescription_ListsTheRules()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Expect.AreEqual "Password requirements:" & vbCrLf & "- 8 to 128 characters" & vbCrLf & "- At least one uppercase letter (A-Z)" & vbCrLf & "- At least one lowercase letter (a-z)" & vbCrLf & "- At least one number (0-9)", box.GetRequirementsDescription(), "GetRequirementsDescription of a new cDialogPassword"
+        Expect.Done
+    End Sub
+
+    ' ---- the first box
+
+    [TestCase]
+    Public Sub ShowDialog_TheFirstBoxIsMaskedAndNamesTheRequirements()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.Title = "Create account"
+        box.Prompt = "Choose a password:"
+        box.RequireSpecial = True
+        Pilot.Arm "wait=4|id=2"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual "Create account", Pilot.Title(0), "title of the box"
+        Expect.AreEqual "Choose a password:" & vbCrLf & vbCrLf & "Requirements:" & vbCrLf & "- Minimum 8 characters" & vbCrLf & "- At least one uppercase letter" & vbCrLf & "- At least one lowercase letter" & vbCrLf & "- At least one number" & vbCrLf & "- At least one special character", Pilot.Statics(0), "text of the box"
+        Expect.AreEqual AscW("*"), Pilot.PasswordChar(0), "password character of the first box"
+        Expect.IsFalse r, "ShowDialog after Cancel"
+        Expect.IsTrue box.Cancelled, "Cancelled after Cancel"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_PasswordCharIsUsedForTheMask()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.PasswordChar = "#"
+        Pilot.Arm "wait=4|id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual AscW("#"), Pilot.PasswordChar(0), "password character of the first box with PasswordChar #"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_AGoodPasswordIsStored()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Pilot.Arm "t=Zq7-demo-xx|id=1"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after a good password"
+        Expect.AreEqual "Zq7-demo-xx", box.Password, "Password after a good password"
+        Expect.IsFalse box.Cancelled, "Cancelled after a good password"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ARefusedPasswordShowsTheReasonAndTheAttemptsLeft()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Pilot.Arm "t=short|id=1;close;t=Zq7-demo-xx|id=1"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 3, Pilot.WindowsSeen, "windows opened (the box, the message, the box again)"
+        Expect.AreEqual "Password must be at least 8 characters" & vbCrLf & vbCrLf & "Attempts remaining: 2", Pilot.Statics(1), "text of the message"
+        Expect.AreEqual "Enter Password", Pilot.Title(1), "title of the message"
+        Expect.IsTrue r, "ShowDialog after a good second password"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ThreeRefusedPasswordsEndTheCallAndKeepThePassword()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Pilot.Arm "t=Zq7-demo-xx|id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Pilot.Arm "t=short|id=1;close;t=short|id=1;close;t=short|id=1;close"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 6, Pilot.WindowsSeen, "windows opened (three boxes and three messages)"
+        Expect.AreEqual "Password must be at least 8 characters" & vbCrLf & vbCrLf & "Maximum attempts reached.", Pilot.Statics(5), "text of the third message"
+        Expect.IsFalse r, "ShowDialog after three refused passwords"
+        Expect.IsTrue box.Cancelled, "Cancelled after three refused passwords"
+        Expect.AreEqual "Zq7-demo-xx", box.Password, "Password after three refused passwords"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_MaxAttemptsOfZeroShowsNothing()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.MaxAttempts = 0
+        Pilot.Arm "id=2"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 0, Pilot.WindowsSeen, "boxes ShowDialog opened with MaxAttempts 0"
+        Expect.IsFalse r, "ShowDialog with MaxAttempts 0"
+        Expect.IsTrue box.Cancelled, "Cancelled with MaxAttempts 0"
+        Expect.Done
+    End Sub
+
+    ' ---- the confirmation box
+
+    [TestCase]
+    Public Sub ShowDialog_RequireConfirmAsksAgainInASecondBox()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.Title = "New"
+        box.RequireConfirm = True
+        Pilot.Arm "t=Zq7-demo-xx|id=1;t=Zq7-demo-xx|id=1"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "boxes ShowDialog opened with RequireConfirm"
+        Expect.AreEqual "New - Confirm", Pilot.Title(1), "title of the confirmation box"
+        Expect.AreEqual "Please confirm your password:", Pilot.Statics(1), "text of the confirmation box"
+        Expect.IsTrue r, "ShowDialog after two equal entries"
+        Expect.AreEqual "Zq7-demo-xx", box.Password, "Password after two equal entries"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ADifferentConfirmationCountsAsAFailedAttempt()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.RequireConfirm = True
+        box.MaxAttempts = 1
+        Pilot.Arm "t=Zq7-demo-xx|id=1;t=Zq7-demo-yy|id=1;close"
+        Dim r As Boolean = box.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 3, Pilot.WindowsSeen, "windows opened (two boxes and a message)"
+        Expect.AreEqual "Passwords do not match!" & vbCrLf & vbCrLf & "Maximum attempts reached.", Pilot.Statics(2), "text of the message"
+        Expect.IsFalse r, "ShowDialog after a different confirmation with MaxAttempts 1"
+        Expect.IsTrue box.Cancelled, "Cancelled after that"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_TheConfirmationBoxIsMasked()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.RequireConfirm = True
+        Pilot.Arm "t=Zq7-demo-xx|id=1;wait=4|id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "boxes ShowDialog opened with RequireConfirm"
+        Expect.AreEqual AscW("*"), Pilot.PasswordChar(0), "password character of the first box"
+        Expect.AreEqual AscW("*"), Pilot.PasswordChar(1), "password character of the confirmation box"
+        Expect.Done
+    End Sub
+
+    ' ---- ShowChangeDialog
+
+    [TestCase]
+    Public Sub ShowChangeDialog_AsksForTheCurrentTheNewAndTheConfirmation()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Dim stored As String = "Old-demo-pw1"
+        Pilot.Arm "t=Old-demo-pw1|id=1;t=New-demo-pw2|id=1;t=New-demo-pw2|id=1"
+        Dim r As Boolean = box.ShowChangeDialog(stored)
+        Pilot.Disarm
+        Expect.AreEqual 3, Pilot.WindowsSeen, "boxes ShowChangeDialog opened"
+        Expect.AreEqual "Enter Password - Current Password", Pilot.Title(0), "title of the first box"
+        Expect.AreEqual "Enter Password - New Password", Pilot.Title(1), "title of the second box"
+        Expect.AreEqual "Enter Password - Confirm New Password", Pilot.Title(2), "title of the third box"
+        Expect.IsTrue r, "ShowChangeDialog after good entries"
+        Expect.AreEqual "New-demo-pw2", stored, "the old password variable after a good change"
+        Expect.AreEqual "New-demo-pw2", box.Password, "Password after a good change"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowChangeDialog_AWrongCurrentPasswordStopsTheCall()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Dim stored As String = "Old-demo-pw1"
+        Pilot.Arm "t=Wrong-demo-pw1|id=1;close"
+        Dim r As Boolean = box.ShowChangeDialog(stored)
+        Pilot.Disarm
+        Expect.AreEqual 2, Pilot.WindowsSeen, "windows opened (the first box and a message)"
+        Expect.IsTrue InStr(Pilot.Statics(1), "Incorrect current password.") > 0, "text of the message: " & Pilot.Statics(1)
+        Expect.IsFalse r, "ShowChangeDialog after a wrong current password"
+        Expect.IsFalse box.Cancelled, "Cancelled after a wrong current password"
+        Expect.AreEqual "Old-demo-pw1", stored, "the old password variable after a wrong current password"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowChangeDialog_ANewPasswordEqualToTheCurrentOneStopsTheCall()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Dim stored As String = "Old-demo-pw1"
+        Pilot.Arm "t=Old-demo-pw1|id=1;t=Old-demo-pw1|id=1;close"
+        Dim r As Boolean = box.ShowChangeDialog(stored)
+        Pilot.Disarm
+        Expect.AreEqual 3, Pilot.WindowsSeen, "windows opened (two boxes and a message)"
+        Expect.IsTrue InStr(Pilot.Statics(2), "New password must be different from the current password.") > 0, "text of the message: " & Pilot.Statics(2)
+        Expect.IsFalse r, "ShowChangeDialog after a new password equal to the current one"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowChangeDialog_ADifferentConfirmationStopsTheCall()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Dim stored As String = "Old-demo-pw1"
+        Pilot.Arm "t=Old-demo-pw1|id=1;t=New-demo-pw2|id=1;t=New-demo-pw3|id=1;close"
+        Dim r As Boolean = box.ShowChangeDialog(stored)
+        Pilot.Disarm
+        Expect.AreEqual 4, Pilot.WindowsSeen, "windows opened (three boxes and a message)"
+        Expect.IsTrue InStr(Pilot.Statics(3), "Passwords do not match.") > 0, "text of the message: " & Pilot.Statics(3)
+        Expect.IsFalse r, "ShowChangeDialog after a different confirmation"
+        Expect.AreEqual "Old-demo-pw1", stored, "the old password variable after a different confirmation"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowChangeDialog_CancellingABoxSetsCancelled()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Dim stored As String = "Old-demo-pw1"
+        Pilot.Arm "id=2"
+        Dim r As Boolean = box.ShowChangeDialog(stored)
+        Pilot.Disarm
+        Expect.IsFalse r, "ShowChangeDialog after Cancel"
+        Expect.IsTrue box.Cancelled, "Cancelled after Cancel"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowChangeDialog_TheThreeBoxesAreMasked()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Dim stored As String = "Old-demo-pw1"
+        Pilot.Arm "wait=4|t=Old-demo-pw1|id=1;wait=4|t=New-demo-pw2|id=1;wait=4|id=2"
+        box.ShowChangeDialog stored
+        Pilot.Disarm
+        Expect.AreEqual 3, Pilot.WindowsSeen, "boxes ShowChangeDialog opened"
+        Expect.AreEqual AscW("*"), Pilot.PasswordChar(0), "password character of the box for the current password"
+        Expect.AreEqual AscW("*"), Pilot.PasswordChar(1), "password character of the box for the new password"
+        Expect.AreEqual AscW("*"), Pilot.PasswordChar(2), "password character of the box for the confirmation"
+        Expect.Done
+    End Sub
+
+    ' ---- the properties that have no effect
+
+    [TestCase]
+    Public Sub OwnerHwnd_OwnsTheBoxes()
+        Expect.Begin
+        Dim owner As LongPtr = Fx.MakeOwner()
+        Dim box As New cDialogPassword
+        box.OwnerHwnd = owner
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue Pilot.OwnerOf(0) = owner, "the box is owned by the window set in OwnerHwnd"
+        Fx.DestroyOwner owner
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowStrength_ShowsAStrengthIndicator()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.ShowStrength = True
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue InStr(Pilot.Classes(0), "msctls_progress32") > 0 Or InStr(LCase$(Pilot.Statics(0)), "strength") > 0, "the box has a strength indicator: " & Pilot.Classes(0)
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AllowShowPassword_ShowsAControlThatRevealsThePassword()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        box.AllowShowPassword = True
+        Pilot.Arm "id=2"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.IsTrue InStr(LCase$(Pilot.Buttons(0)), "show") > 0, "the box has a control that shows the password; its buttons are: " & Replace(Pilot.Buttons(0), vbLf, "/")
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Password_StaysInTheObjectUntilReset()
+        Expect.Begin
+        Dim box As New cDialogPassword
+        Pilot.Arm "t=Zq7-demo-xx|id=1"
+        box.ShowDialog
+        Pilot.Disarm
+        Expect.AreEqual "Zq7-demo-xx", box.Password, "Password after a good entry"
+        box.Reset
+        Expect.AreEqual "", box.Password, "Password after Reset"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPrintTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPrintTests.twin
new file mode 100644
index 00000000..d4216a18
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPrintTests.twin
@@ -0,0 +1,166 @@
+' cDialogPrint: the print choices as properties and text, and the Print dialog. Nothing is printed, and
+' no case asks for a device context: ReturnDC is False wherever a dialog is confirmed.
+[TestFixture]
+Module CDialogPrintTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        Expect.AreEqual 1, dlg.FromPage, "FromPage of a new cDialogPrint"
+        Expect.AreEqual 1, dlg.ToPage, "ToPage of a new cDialogPrint"
+        Expect.AreEqual 1, dlg.MinPage, "MinPage of a new cDialogPrint"
+        Expect.AreEqual 9999, dlg.MaxPage, "MaxPage of a new cDialogPrint"
+        Expect.AreEqual 1, dlg.Copies, "Copies of a new cDialogPrint"
+        Expect.AreEqual PrintRange.AllPages, dlg.PrintRangeMode, "PrintRangeMode of a new cDialogPrint"
+        Expect.IsFalse dlg.Collate Or dlg.PrintToFile Or dlg.HidePrintToFile Or dlg.Cancelled, "Collate, PrintToFile, HidePrintToFile and Cancelled of a new cDialogPrint"
+        Expect.IsTrue dlg.AllowSelection And dlg.AllowPageRange And dlg.AllowPrintToFile And dlg.ReturnDC, "AllowSelection, AllowPageRange, AllowPrintToFile and ReturnDC of a new cDialogPrint"
+        Expect.AreEqual 0, dlg.hDC + dlg.LastError + dlg.OwnerHwnd, "hDC, LastError and OwnerHwnd of a new cDialogPrint"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Copies_IgnoresZeroAndNegativeValues()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.Copies = 3
+        dlg.Copies = 0
+        dlg.Copies = -2
+        Expect.AreEqual 3, dlg.Copies, "Copies after 3, 0 and -2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToDescription_NamesRangeCopiesAndOptions()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        Expect.AreEqual "All pages, 1 copy", dlg.ToDescription(), "ToDescription of a new cDialogPrint"
+        dlg.PrintRangeMode = PrintRange.PageRange
+        dlg.FromPage = 2
+        dlg.ToPage = 4
+        dlg.Copies = 3
+        dlg.Collate = True
+        dlg.PrintToFile = True
+        Expect.AreEqual "Pages 2 - 4, 3 copies, Collated, Print to file", dlg.ToDescription(), "ToDescription of a page range"
+        dlg.PrintRangeMode = PrintRange.Selection
+        Expect.AreEqual "Selection, 3 copies, Collated, Print to file", dlg.ToDescription(), "ToDescription of the selection"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValues()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.Copies = 4
+        dlg.MaxPage = 40
+        dlg.MinPage = 3
+        dlg.FromPage = 5
+        dlg.ToPage = 6
+        dlg.PrintRangeMode = PrintRange.Selection
+        dlg.Collate = True
+        dlg.PrintToFile = True
+        dlg.HidePrintToFile = True
+        dlg.AllowSelection = False
+        dlg.AllowPageRange = False
+        dlg.AllowPrintToFile = False
+        dlg.ReturnDC = False
+        dlg.OwnerHwnd = 77
+        dlg.Reset
+        Expect.AreEqual "All pages, 1 copy", dlg.ToDescription(), "ToDescription after Reset"
+        Expect.AreEqual 9999, dlg.MaxPage, "MaxPage after Reset"
+        Expect.AreEqual 1, dlg.MinPage + dlg.FromPage + dlg.ToPage - 2, "MinPage, FromPage and ToPage after Reset"
+        Expect.IsFalse dlg.HidePrintToFile, "HidePrintToFile after Reset"
+        Expect.IsTrue dlg.AllowSelection And dlg.AllowPageRange And dlg.AllowPrintToFile And dlg.ReturnDC, "the Allow properties and ReturnDC after Reset"
+        Expect.AreEqual 77, dlg.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- 16-bit integers
+
+    Private Function RaisedBy(ByVal dlg As cDialogPrint) As Long
+        Pilot.Arm "close"
+        On Error Resume Next
+        dlg.ShowDialog
+        RaisedBy = Err.Number
+        On Error GoTo 0
+        Pilot.Disarm
+    End Function
+
+    [TestCase]
+    Public Sub ShowDialog_FromPageAbove32767RaisesOverflowBeforeTheDialog()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.FromPage = 40000
+        Expect.AreEqual 6, RaisedBy(dlg), "error ShowDialog raised with a FromPage of 40000"
+        Expect.AreEqual 0, Pilot.WindowsSeen, "dialogs opened with a FromPage of 40000"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_ToPageAbove32767RaisesOverflow()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.ToPage = 40000
+        Expect.AreEqual 6, RaisedBy(dlg), "error ShowDialog raised with a ToPage of 40000"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_MinPageAbove32767RaisesOverflow()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.MinPage = 40000
+        Expect.AreEqual 6, RaisedBy(dlg), "error ShowDialog raised with a MinPage of 40000"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_MaxPageAbove32767RaisesOverflow()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.MaxPage = 40000
+        Expect.AreEqual 6, RaisedBy(dlg), "error ShowDialog raised with a MaxPage of 40000"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_CopiesAbove32767RaisesOverflow()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.Copies = 40000
+        Expect.AreEqual 6, RaisedBy(dlg), "error ShowDialog raised with Copies of 40000"
+        Expect.Done
+    End Sub
+
+    ' ---- the dialog
+
+    [TestCase]
+    Public Sub ShowDialog_CancelReturnsFalseAndSetsCancelled()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.ReturnDC = False
+        Pilot.Arm "id=2"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowDialog opened"
+        Expect.AreEqual "Print", Pilot.Title(0), "caption of the Print dialog"
+        Expect.IsFalse r, "ShowDialog after Cancel"
+        Expect.IsTrue dlg.Cancelled, "Cancelled after Cancel"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDialog_OKReturnsTrueAndClearsCancelled()
+        Expect.Begin
+        Dim dlg As New cDialogPrint
+        dlg.ReturnDC = False
+        Pilot.Arm "id=1"
+        Dim r As Boolean = dlg.ShowDialog()
+        Pilot.Disarm
+        Expect.IsTrue r, "ShowDialog after OK"
+        Expect.IsFalse dlg.Cancelled, "Cancelled after OK"
+        Expect.AreEqual 0, dlg.hDC, "hDC after OK with ReturnDC False"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogProgressTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogProgressTests.twin
new file mode 100644
index 00000000..a63b2db5
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogProgressTests.twin
@@ -0,0 +1,475 @@
+' cDialogProgress: the state of a task, as properties, events and text. The class shows no window.
+[TestFixture]
+Module CDialogProgressTests
+
+    [TestCase]
+    Public Sub Defaults_AreThoseOfThePage()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Expect.AreEqual "Progress", p.Title, "Title of a new cDialogProgress"
+        Expect.AreEqual "Processing...", p.Message, "Message of a new cDialogProgress"
+        Expect.AreEqual "", p.DetailMessage, "DetailMessage of a new cDialogProgress"
+        Expect.AreEqual 0, p.Min, "Min of a new cDialogProgress"
+        Expect.AreEqual 100, p.Max, "Max of a new cDialogProgress"
+        Expect.AreEqual 0, p.Progress, "Progress of a new cDialogProgress"
+        Expect.AreEqual 1, p.Step, "Step of a new cDialogProgress"
+        Expect.AreEqual ProgressStyle.ProgressBar, p.Style, "Style of a new cDialogProgress"
+        Expect.IsTrue p.ShowCancel And p.ShowElapsedTime And p.ShowRemainingTime, "the three Show properties of a new cDialogProgress"
+        Expect.IsFalse p.Cancelled, "Cancelled of a new cDialogProgress"
+        Expect.AreEqual 0, p.OwnerHwnd, "OwnerHwnd of a new cDialogProgress"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumeration_HasTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 0, ProgressStyle.ProgressBar, "ProgressBar"
+        Expect.AreEqual 1, ProgressStyle.Marquee, "Marquee"
+        Expect.AreEqual 2, ProgressStyle.Steps, "Steps"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Progress_IgnoresAValueOutsideTheRange()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Progress = 40
+        p.Progress = 150
+        Expect.AreEqual 40, p.Progress, "Progress after 150"
+        p.Progress = -1
+        Expect.AreEqual 40, p.Progress, "Progress after -1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MaxAndMin_DoNotMoveProgress()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Progress = 40
+        p.Max = 250
+        p.Min = 10
+        Expect.AreEqual 40, p.Progress, "Progress after Max and Min changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Percentage_IsTheShareOfTheRangeRoundedDown()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Progress = 40
+        Expect.AreEqual 40, p.Percentage, "Percentage of 40 in 0 to 100"
+        p.Max = 200
+        Expect.AreEqual 20, p.Percentage, "Percentage of 40 in 0 to 200"
+        p.Progress = 3
+        p.Max = 7
+        Expect.AreEqual 42, p.Percentage, "Percentage of 3 in 0 to 7 (42.8 rounded down)"
+        p.Max = 0
+        Expect.AreEqual 0, p.Percentage, "Percentage when Max is not above Min"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Start_SetsProgressToMinAndClearsCancelled()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Min = 10
+        p.Max = 110
+        p.Progress = 60
+        p.Cancel
+        p.Start
+        Expect.AreEqual 10, p.Progress, "Progress after Start"
+        Expect.AreEqual 0, p.Percentage, "Percentage after Start"
+        Expect.IsFalse p.Cancelled, "Cancelled after Start"
+        Expect.AreEqual "Processing...", p.Message, "Message after Start"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Increment_AddsStepAndIgnoresAValueAboveMax()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Step = 40
+        p.Increment
+        p.Increment
+        p.Increment
+        Expect.AreEqual 80, p.Progress, "Progress after three Increment calls with Step 40 and Max 100"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Increment_ANegativeStepCanGoBelowMin()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Step = -5
+        p.Increment
+        Expect.AreEqual -5, p.Progress, "Progress after Increment with Step -5"
+        Expect.AreEqual -5, p.Percentage, "Percentage of a position below Min"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PerformStep_IsTheSameAsIncrement()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.PerformStep
+        Expect.AreEqual 1, p.Progress, "Progress after PerformStep"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetPercentage_MovesToAPercentageOfTheRange()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Min = 10
+        p.Max = 110
+        p.SetPercentage 25
+        Expect.AreEqual 35, p.Progress, "Progress after SetPercentage 25 in 10 to 110"
+        p.SetPercentage 101
+        Expect.AreEqual 35, p.Progress, "Progress after SetPercentage 101"
+        p.SetPercentage -1
+        Expect.AreEqual 35, p.Progress, "Progress after SetPercentage -1"
+        p.SetPercentage 100
+        Expect.AreEqual 110, p.Progress, "Progress after SetPercentage 100"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Complete_MovesToMax()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Max = 80
+        p.Complete
+        Expect.AreEqual 80, p.Progress, "Progress after Complete"
+        Expect.AreEqual 100, p.Percentage, "Percentage after Complete"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Cancel_SetsCancelledAndNothingStops()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Cancel
+        Expect.IsTrue p.Cancelled, "Cancelled after Cancel"
+        p.Progress = 5
+        Expect.AreEqual 5, p.Progress, "Progress can still be set after Cancel"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValuesButNotTheOwner()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Title = "x"
+        p.Message = "y"
+        p.DetailMessage = "z"
+        p.Min = 3
+        p.Max = 500
+        p.Step = 7
+        p.Style = ProgressStyle.Marquee
+        p.ShowCancel = False
+        p.ShowElapsedTime = False
+        p.ShowRemainingTime = False
+        p.Cancel
+        p.OwnerHwnd = 1234
+        p.Reset
+        Expect.AreEqual "Progress", p.Title, "Title after Reset"
+        Expect.AreEqual "Processing...", p.Message, "Message after Reset"
+        Expect.AreEqual "", p.DetailMessage, "DetailMessage after Reset"
+        Expect.AreEqual 0, p.Min + p.Progress, "Min and Progress after Reset"
+        Expect.AreEqual 100, p.Max, "Max after Reset"
+        Expect.AreEqual 1, p.Step, "Step after Reset"
+        Expect.AreEqual ProgressStyle.ProgressBar, p.Style, "Style after Reset"
+        Expect.IsTrue p.ShowCancel And p.ShowElapsedTime And p.ShowRemainingTime, "the three Show properties after Reset"
+        Expect.IsFalse p.Cancelled, "Cancelled after Reset"
+        Expect.AreEqual 1234, p.OwnerHwnd, "OwnerHwnd after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- the text
+
+    [TestCase]
+    Public Sub GetDescription_ProgressBarAddsThePercentageAndTheTimes()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Message = "Copying"
+        p.DetailMessage = "report.txt"
+        p.Progress = 50
+        p.ShowElapsedTime = False
+        p.ShowRemainingTime = False
+        Expect.AreEqual "Copying (50%)" & vbCrLf & "report.txt", p.GetDescription(), "GetDescription without the times"
+        p.ShowRemainingTime = False
+        p.ShowElapsedTime = True
+        Expect.AreEqual "Copying (50%) - Elapsed: 0:00" & vbCrLf & "report.txt", p.GetDescription(), "GetDescription with the elapsed time"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetDescription_MarqueeAndStepsGiveTheMessageAlone()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Message = "Copying"
+        p.DetailMessage = "report.txt"
+        p.Style = ProgressStyle.Marquee
+        Expect.AreEqual "Copying" & vbCrLf & "report.txt", p.GetDescription(), "GetDescription of a Marquee"
+        p.Style = ProgressStyle.Steps
+        p.DetailMessage = ""
+        Expect.AreEqual "Copying", p.GetDescription(), "GetDescription of Steps with no detail"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TimeFunctions_BeforeStartGiveZero()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Expect.AreEqual 0, p.GetElapsedTime(), "GetElapsedTime before Start"
+        Expect.AreEqual "0:00", p.GetElapsedTimeString(), "GetElapsedTimeString before Start"
+        Expect.AreEqual 0, p.GetRemainingTime(), "GetRemainingTime before Start"
+        Expect.AreEqual "0:00", p.GetRemainingTimeString(), "GetRemainingTimeString before Start"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetElapsedTime_CountsWholeSecondsSinceStart()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Start
+        Dim t0 As Single = Timer
+        Do While Timer - t0 < 2.2
+        Loop
+        Expect.AreEqual 2, p.GetElapsedTime(), "GetElapsedTime two seconds after Start"
+        Expect.AreEqual "0:02", p.GetElapsedTimeString(), "GetElapsedTimeString two seconds after Start"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetRemainingTime_EstimatesFromTheSpeedSoFar()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Start
+        Dim t0 As Single = Timer
+        Do While Timer - t0 < 1.2
+        Loop
+        p.Progress = 50
+        Dim r As Long = p.GetRemainingTime()
+        Expect.IsTrue r >= 1 And r <= 2, "GetRemainingTime at half the range after about a second: " & r
+        Expect.Done
+    End Sub
+
+    ' ---- events
+
+    [TestCase]
+    Public Sub Events_ProgressChangedIsRaisedForEachMove()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Dim s As New ProgressSink
+        s.Attach p
+        p.Max = 3
+        p.Start
+        p.Increment
+        p.Increment
+        p.Progress = 9
+        p.Complete
+        Expect.AreEqual "1,2,3,", s.Values, "values of the ProgressChanged events (none for Start and for a value outside the range)"
+        s.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Events_ProgressChangedIsRaisedAlsoForTheSameValue()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Dim s As New ProgressSink
+        s.Attach p
+        p.Progress = 0
+        p.Progress = 0
+        p.Max = 10
+        p.Complete
+        p.Complete
+        Expect.AreEqual 4, s.Changes, "ProgressChanged events for 0, 0, Complete and Complete"
+        s.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Events_ResetAndStartRaiseNothing()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Dim s As New ProgressSink
+        s.Attach p
+        p.Start
+        p.Reset
+        Expect.AreEqual 0, s.Changes + s.Cancels, "events raised by Start and Reset"
+        s.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Events_CancelRaisesCancelClickedEachTimeWithCancelledSet()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Dim s As New ProgressSink
+        s.Attach p
+        p.Cancel
+        p.Cancel
+        Expect.AreEqual 2, s.Cancels, "CancelClicked events for two Cancel calls"
+        Expect.IsTrue s.CancelledInHandler, "Cancelled already True inside the handler"
+        s.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Events_SetPercentageRaisesAnEventForAPercentageInsideTheRange()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Dim s As New ProgressSink
+        s.Attach p
+        p.SetPercentage 50
+        p.SetPercentage 101
+        Expect.AreEqual "50,", s.Values, "values of the ProgressChanged events of SetPercentage 50 and 101"
+        s.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SimulateProgress_RunsFromMinToMaxAndCompletes()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Dim s As New ProgressSink
+        s.Attach p
+        p.Max = 3
+        p.SimulateProgress 50
+        Expect.AreEqual 100, p.Percentage, "Percentage after SimulateProgress"
+        Expect.AreEqual "0,1,2,3,3,", s.Values, "values of the ProgressChanged events of SimulateProgress (the last position twice)"
+        s.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SimulateProgress_ACancelInTheHandlerStopsTheLoop()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Dim s As New ProgressStopper
+        s.Attach p, 2
+        p.Max = 5
+        p.SimulateProgress 20
+        Expect.IsTrue p.Cancelled, "Cancelled after a Cancel in the handler"
+        Expect.IsTrue p.Progress < 5, "Progress after SimulateProgress was cancelled: " & p.Progress
+        s.Detach
+        Expect.Done
+    End Sub
+
+    ' ---- the notes of the page
+
+    [TestCase]
+    Public Sub GetRemainingTime_JustAfterStartDoesNotDivideByZero()
+        Expect.Begin
+        Dim errors As Long
+        Dim i As Long
+        Dim p As cDialogProgress
+        For i = 1 To 20
+            Set p = New cDialogProgress
+            p.Start
+            p.Progress = 50
+            On Error Resume Next
+            Dim s As Long = p.GetRemainingTime()
+            If Err.Number <> 0 Then errors = errors + 1
+            Err.Clear
+            On Error GoTo 0
+        Next
+        Expect.AreEqual 0, errors, "GetRemainingTime calls out of 20 made at once after Start that raised an error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetRemainingTime_JustAfterStartRaisesError11()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        Dim n As Long
+        Dim i As Long
+        For i = 1 To 20
+            p.Start
+            p.Progress = 50
+            On Error Resume Next
+            Dim s As Long = p.GetRemainingTime()
+            n = Err.Number
+            Err.Clear
+            On Error GoTo 0
+            If n <> 0 Then Exit For
+        Next
+        Expect.AreEqual 11, n, "error GetRemainingTime raised when called at once after Start"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetDescription_JustAfterStartDoesNotDivideByZero()
+        Expect.Begin
+        Dim errors As Long
+        Dim i As Long
+        Dim p As cDialogProgress
+        For i = 1 To 20
+            Set p = New cDialogProgress
+            p.Start
+            p.Progress = 50
+            On Error Resume Next
+            Dim s As String = p.GetDescription()
+            If Err.Number <> 0 Then errors = errors + 1
+            Err.Clear
+            On Error GoTo 0
+        Next
+        Expect.AreEqual 0, errors, "GetDescription calls out of 20 made at once after Start that raised an error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SimulateProgress_WithADelayOfZeroDoesNotDivideByZero()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Max = 5
+        On Error Resume Next
+        p.SimulateProgress 0
+        Dim n As Long = Err.Number
+        On Error GoTo 0
+        Expect.AreEqual 0, n, "error SimulateProgress raised with a delay of 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Percentage_OfAWideRangeDoesNotOverflow()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Max = 100000000
+        p.Progress = 50000000
+        On Error Resume Next
+        Dim v As Long = p.Percentage
+        Dim n As Long = Err.Number
+        On Error GoTo 0
+        Expect.AreEqual 0, n, "error Percentage raised for a position of 50,000,000 in 0 to 100,000,000"
+        Expect.AreEqual 50, v, "Percentage of a position of 50,000,000 in 0 to 100,000,000"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetPercentage_OnAWideRangeDoesNotOverflow()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Max = 100000000
+        On Error Resume Next
+        p.SetPercentage 50
+        Dim n As Long = Err.Number
+        On Error GoTo 0
+        Expect.AreEqual 0, n, "error SetPercentage 50 raised for a range of 0 to 100,000,000"
+        Expect.AreEqual 50000000, p.Progress, "Progress after SetPercentage 50 in 0 to 100,000,000"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Percentage_UpTo21MillionUnitsWorks()
+        Expect.Begin
+        Dim p As New cDialogProgress
+        p.Max = 20000000
+        p.Progress = 10000000
+        Expect.AreEqual 50, p.Percentage, "Percentage of 10,000,000 in 0 to 20,000,000"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPropertyTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPropertyTests.twin
new file mode 100644
index 00000000..19cb8d41
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/CDialogPropertyTests.twin
@@ -0,0 +1,320 @@
+' cDialog: the properties, the filter builders and the path helpers, which show no dialog.
+[TestFixture]
+Module CDialogPropertyTests
+
+    [TestCase]
+    Public Sub Defaults_Texts()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.AreEqual "", dlg.DialogTitle, "DialogTitle of a new cDialog"
+        Expect.AreEqual "", dlg.InitialDir, "InitialDir of a new cDialog"
+        Expect.AreEqual "", dlg.DefaultExt, "DefaultExt of a new cDialog"
+        Expect.AreEqual "", dlg.FileName, "FileName of a new cDialog"
+        Expect.AreEqual "", dlg.Filter, "Filter of a new cDialog"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_FalseFlags()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.IsFalse dlg.MultiSelect, "MultiSelect of a new cDialog"
+        Expect.IsFalse dlg.ReadOnly, "ReadOnly of a new cDialog"
+        Expect.IsFalse dlg.NoChangeDir, "NoChangeDir of a new cDialog"
+        Expect.IsFalse dlg.CreatePrompt, "CreatePrompt of a new cDialog"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_TrueFlags()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.IsTrue dlg.OverwritePrompt, "OverwritePrompt of a new cDialog"
+        Expect.IsTrue dlg.PathMustExist, "PathMustExist of a new cDialog"
+        Expect.IsTrue dlg.FileMustExist, "FileMustExist of a new cDialog"
+        Expect.IsTrue dlg.HideReadOnly, "HideReadOnly of a new cDialog"
+        Expect.IsTrue dlg.NewDialogStyle, "NewDialogStyle of a new cDialog"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Properties_StoreWhatIsSet()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.DialogTitle = "Choose"
+        dlg.InitialDir = "C:\Reports"
+        dlg.DefaultExt = "txt"
+        dlg.FileName = "C:\Reports\summary.txt"
+        dlg.Filter = "Text|*.txt"
+        dlg.MultiSelect = True
+        dlg.ReadOnly = True
+        dlg.NoChangeDir = True
+        dlg.CreatePrompt = True
+        dlg.OverwritePrompt = False
+        dlg.PathMustExist = False
+        dlg.FileMustExist = False
+        dlg.HideReadOnly = False
+        dlg.NewDialogStyle = False
+        Expect.AreEqual "Choose", dlg.DialogTitle, "DialogTitle after it is set"
+        Expect.AreEqual "C:\Reports", dlg.InitialDir, "InitialDir after it is set"
+        Expect.AreEqual "txt", dlg.DefaultExt, "DefaultExt after it is set"
+        Expect.AreEqual "C:\Reports\summary.txt", dlg.FileName, "FileName after it is set"
+        Expect.AreEqual "Text|*.txt", dlg.Filter, "Filter after it is set"
+        Expect.IsTrue dlg.MultiSelect, "MultiSelect after True"
+        Expect.IsTrue dlg.ReadOnly, "ReadOnly after True"
+        Expect.IsTrue dlg.NoChangeDir, "NoChangeDir after True"
+        Expect.IsTrue dlg.CreatePrompt, "CreatePrompt after True"
+        Expect.IsFalse dlg.OverwritePrompt, "OverwritePrompt after False"
+        Expect.IsFalse dlg.PathMustExist, "PathMustExist after False"
+        Expect.IsFalse dlg.FileMustExist, "FileMustExist after False"
+        Expect.IsFalse dlg.HideReadOnly, "HideReadOnly after False"
+        Expect.IsFalse dlg.NewDialogStyle, "NewDialogStyle after False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Reset_RestoresTheStartingValues()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.DialogTitle = "Choose"
+        dlg.InitialDir = "C:\Reports"
+        dlg.DefaultExt = "txt"
+        dlg.FileName = "x.txt"
+        dlg.AddFilter "Text", "*.txt"
+        dlg.MultiSelect = True
+        dlg.ReadOnly = True
+        dlg.NoChangeDir = True
+        dlg.CreatePrompt = True
+        dlg.OverwritePrompt = False
+        dlg.PathMustExist = False
+        dlg.FileMustExist = False
+        dlg.HideReadOnly = False
+        dlg.NewDialogStyle = False
+        dlg.Reset
+        Expect.AreEqual "", dlg.DialogTitle & dlg.InitialDir & dlg.DefaultExt & dlg.FileName & dlg.Filter, "the five texts after Reset"
+        Expect.IsFalse dlg.MultiSelect Or dlg.ReadOnly Or dlg.NoChangeDir Or dlg.CreatePrompt, "MultiSelect, ReadOnly, NoChangeDir and CreatePrompt after Reset"
+        Expect.IsTrue dlg.OverwritePrompt And dlg.PathMustExist And dlg.FileMustExist And dlg.HideReadOnly And dlg.NewDialogStyle, "OverwritePrompt, PathMustExist, FileMustExist, HideReadOnly and NewDialogStyle after Reset"
+        Expect.Done
+    End Sub
+
+    ' ---- the filter builders
+
+    [TestCase]
+    Public Sub AddFilter_JoinsPairsWithPipes()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.AddFilter "Text Files (*.txt)", "*.txt"
+        dlg.AddFilter "Pictures", "*.png;*.jpg"
+        Expect.AreEqual "Text Files (*.txt)|*.txt|Pictures|*.png;*.jpg", dlg.Filter, "Filter after two AddFilter calls"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AddFilter_PipeInArgumentAddsAnElement()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.AddFilter "Text|Notes", "*.txt"
+        Expect.AreEqual 3, UBound(Split(dlg.Filter, "|")) + 1, "elements in the filter after a description that holds a pipe"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ClearFilter_EmptiesTheFilter()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.AddFilter "Text", "*.txt"
+        dlg.ClearFilter
+        Expect.AreEqual 0, Len(dlg.Filter), "length of Filter after ClearFilter"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetCommonFilters_ReplacesTheFilter()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.Filter = "Old|*.old"
+        dlg.SetCommonFilters
+        Expect.AreEqual "Text Files (*.txt)|*.txt|All Files (*.*)|*.*", dlg.Filter, "Filter after SetCommonFilters"
+        dlg.AddFilter "Logs (*.log)", "*.log"
+        Expect.AreEqual "Text Files (*.txt)|*.txt|All Files (*.*)|*.*|Logs (*.log)|*.log", dlg.Filter, "Filter after AddFilter following SetCommonFilters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetCodeFilters_HasNinePairs()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.AddFilter "Old", "*.old"
+        dlg.SetCodeFilters
+        Dim parts() As String = Split(dlg.Filter, "|")
+        Expect.AreEqual 9, (UBound(parts) + 1) \ 2, "pairs in the filter after SetCodeFilters"
+        Expect.AreEqual "Basic Files (*.bas;*.vba)", parts(0), "first description after SetCodeFilters"
+        Expect.AreEqual "*.bas;*.vba", parts(1), "first pattern after SetCodeFilters"
+        Expect.AreEqual "All Files (*.*)", parts(16), "last description after SetCodeFilters"
+        dlg.AddFilter "twinBASIC Files (*.twin)", "*.twin"
+        parts = Split(dlg.Filter, "|")
+        Expect.AreEqual "twinBASIC Files (*.twin)", parts(UBound(parts) - 1), "description appended after SetCodeFilters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetDocumentFilters_HasSixPairs()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.SetDocumentFilters
+        Dim parts() As String = Split(dlg.Filter, "|")
+        Expect.AreEqual 6, (UBound(parts) + 1) \ 2, "pairs in the filter after SetDocumentFilters"
+        Expect.AreEqual "Word Documents (*.doc;*.docx)", parts(0), "first description after SetDocumentFilters"
+        Expect.AreEqual "*.doc;*.docx", parts(1), "first pattern after SetDocumentFilters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetImageFilters_HasSixPairs()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.AddFilter "Old", "*.old"
+        dlg.SetImageFilters
+        Dim parts() As String = Split(dlg.Filter, "|")
+        Expect.AreEqual 6, (UBound(parts) + 1) \ 2, "pairs in the filter after SetImageFilters"
+        Expect.AreEqual "Bitmap Files (*.bmp)", parts(0), "first description after SetImageFilters"
+        Expect.AreEqual "*.bmp", parts(1), "first pattern after SetImageFilters"
+        Expect.AreEqual "All Image Files (*.bmp;*.jpg;*.jpeg;*.png;*.gif)", parts(8), "fifth description after SetImageFilters"
+        Expect.Done
+    End Sub
+
+    ' ---- the path helpers
+
+    [TestCase]
+    Public Sub GetFileExtension_ReturnsThePartFromTheLastPeriod()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.AreEqual ".txt", dlg.GetFileExtension("C:\Docs\summary.txt"), "GetFileExtension of a path"
+        Expect.AreEqual ".gz", dlg.GetFileExtension("archive.tar.gz"), "GetFileExtension of archive.tar.gz"
+        Expect.AreEqual ".", dlg.GetFileExtension("report."), "GetFileExtension of a name that ends with a period"
+        Expect.AreEqual "", dlg.GetFileExtension("README"), "GetFileExtension of a name with no period"
+        Expect.Done
+    End Sub
+
+    ' The method looks for the last period in the whole string, not in the file name.
+    [TestCase]
+    Public Sub GetFileExtension_PeriodInAFolderNameIsTakenForAnExtension()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.AreEqual ".dir\notes", dlg.GetFileExtension("C:\my.dir\notes"), "GetFileExtension of a path whose folder has a period and whose file has none"
+        Expect.AreEqual "notes", dlg.GetFileNameWithoutExt("C:\my.dir\notes"), "GetFileNameWithoutExt of the same path"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFileName_ReturnsThePartAfterTheLastBackslash()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.AreEqual "summary.txt", dlg.GetFileName("C:\Docs\Reports\summary.txt"), "GetFileName of a path"
+        Expect.AreEqual "summary.txt", dlg.GetFileName("summary.txt"), "GetFileName of a name"
+        Expect.AreEqual "", dlg.GetFileName("C:\Docs\"), "GetFileName of a path that ends with a backslash"
+        Expect.AreEqual "C:/Docs/summary.txt", dlg.GetFileName("C:/Docs/summary.txt"), "GetFileName of a path with forward slashes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFileNameWithoutExt_RemovesTheLastExtension()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.AreEqual "summary", dlg.GetFileNameWithoutExt("C:\Docs\summary.txt"), "GetFileNameWithoutExt of a path"
+        Expect.AreEqual "archive.tar", dlg.GetFileNameWithoutExt("archive.tar.gz"), "GetFileNameWithoutExt of archive.tar.gz"
+        Expect.AreEqual "README", dlg.GetFileNameWithoutExt("README"), "GetFileNameWithoutExt of a name with no period"
+        Expect.AreEqual "report", dlg.GetFileNameWithoutExt("report."), "GetFileNameWithoutExt of a name that ends with a period"
+        Expect.AreEqual "", dlg.GetFileNameWithoutExt(".gitignore"), "GetFileNameWithoutExt of a name that starts with a period"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetFilePath_ReturnsThePartBeforeTheLastBackslash()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.AreEqual "C:\Docs\Reports", dlg.GetFilePath("C:\Docs\Reports\summary.txt"), "GetFilePath of a path"
+        Expect.AreEqual "C:", dlg.GetFilePath("C:\summary.txt"), "GetFilePath of a file in the root of a drive"
+        Expect.AreEqual "summary.txt", dlg.GetFilePath("summary.txt"), "GetFilePath of a name with no backslash"
+        Expect.AreEqual "C:\Docs", dlg.GetFilePath("C:\Docs\"), "GetFilePath of a path that ends with a backslash"
+        Expect.AreEqual "C:/Docs/summary.txt", dlg.GetFilePath("C:/Docs/summary.txt"), "GetFilePath of a path with forward slashes"
+        Expect.AreEqual "", dlg.GetFilePath("\summary.txt"), "GetFilePath of a name whose only backslash is the first character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PathCombine_JoinsWithOneBackslash()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Expect.AreEqual "C:\a\b", dlg.PathCombine("C:\a", "b"), "PathCombine of C:\a and b"
+        Expect.AreEqual "C:\a\b", dlg.PathCombine("C:\a\", "\b"), "PathCombine of C:\a\ and \b"
+        Expect.AreEqual "C:\b", dlg.PathCombine("C:", "b"), "PathCombine of C: and b"
+        Expect.AreEqual "D:\b", dlg.PathCombine("C:\a", "D:\b"), "PathCombine of C:\a and an absolute D:\b"
+        Expect.AreEqual "\\srv\x", dlg.PathCombine("C:\a", "\\srv\x"), "PathCombine of C:\a and a UNC path"
+        Expect.AreEqual "C:\a\D:b", dlg.PathCombine("C:\a", "D:b"), "PathCombine of C:\a and D:b"
+        Expect.AreEqual "C:\a\..\b", dlg.PathCombine("C:\a", "..\b"), "PathCombine of C:\a and ..\b"
+        Expect.AreEqual "C:\a\\b", dlg.PathCombine("C:\a\\", "b"), "PathCombine of C:\a\\ and b"
+        Expect.AreEqual "a/\b", dlg.PathCombine("a/", "b"), "PathCombine of a/ and b"
+        Expect.AreEqual "C:\a\http://x/y", dlg.PathCombine("C:\a", "http://x/y"), "PathCombine of C:\a and a web address"
+        Expect.AreEqual "summary.txt", dlg.PathCombine("", "summary.txt"), "PathCombine of an empty first part"
+        Expect.AreEqual "C:\Reports", dlg.PathCombine("C:\Reports", ""), "PathCombine of an empty second part"
+        Expect.AreEqual "", dlg.PathCombine("", ""), "PathCombine of two empty parts"
+        Expect.Done
+    End Sub
+
+    ' ---- OpenFile
+
+    [TestCase]
+    Public Sub OpenFile_NonexistentFileReturns2()
+        Expect.Begin
+        Dim dlg As New cDialog
+        Dim r As Variant = dlg.OpenFile(Fx.Work() & "\no such file.xyz")
+        Expect.AreEqual 2, CLng(r), "OpenFile of a path that does not exist"
+        Fx.Clean
+        Expect.Done
+    End Sub
+
+    ' ---- FileName length
+
+    [TestCase]
+    Public Sub ShowSave_FileNameOf261CharactersRaisesError5()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.FileName = String$(261, "a")
+        Pilot.Arm "close"
+        On Error Resume Next
+        Dim r As String = dlg.ShowSave()
+        Dim n As Long = Err.Number
+        On Error GoTo 0
+        Pilot.Disarm
+        Expect.AreEqual 5, n, "error raised by ShowSave with a FileName of 261 characters"
+        Expect.AreEqual 0, Pilot.WindowsSeen, "dialogs ShowSave opened with a FileName of 261 characters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_FileNameOf260CharactersShowsNoDialog()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.FileName = String$(260, "a")
+        Pilot.Arm "close"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual "", r, "ShowSave with a FileName of 260 characters"
+        Expect.AreEqual 0, Pilot.WindowsSeen, "dialogs ShowSave opened with a FileName of 260 characters"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowSave_FileNameOf259CharactersOpensTheDialog()
+        Expect.Begin
+        Dim dlg As New cDialog
+        dlg.FileName = String$(259, "a")
+        Pilot.Arm "close"
+        Dim r As String = dlg.ShowSave()
+        Pilot.Disarm
+        Expect.AreEqual 1, Pilot.WindowsSeen, "dialogs ShowSave opened with a FileName of 259 characters"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/FindHost.twin b/test/package-tests/TBMANLIB_Dialog/Sources/FindHost.twin
new file mode 100644
index 00000000..a6c55486
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/FindHost.twin
@@ -0,0 +1,170 @@
+' FindHost: a window to own the modeless Find and Replace dialogs, and to count the messages they send it.
+'
+' The dialogs of comdlg32 send their owner a registered message (commdlg_FindReplace) when a button
+' is pressed or the dialog is closed, with a pointer to the FINDREPLACE structure as lParam. The
+' window procedure of the owner here counts those messages and keeps the Flags of the last one.
+' DialogDriver-like helpers press a button with BM_CLICK, which makes the dialog send exactly the
+' message a click makes, and close the dialog with WM_CLOSE.
+Module FindHost
+
+    Private Type WNDCLASSW
+        style As Long
+        lpfnWndProc As LongPtr
+        cbClsExtra As Long
+        cbWndExtra As Long
+        hInstance As LongPtr
+        hIcon As LongPtr
+        hCursor As LongPtr
+        hbrBackground As LongPtr
+        lpszMenuName As LongPtr
+        lpszClassName As LongPtr
+    End Type
+
+    ' The structure FindTextW and ReplaceTextW take (the package declares its own).
+    Public Type FRStruct
+        lStructSize As Long
+        hWndOwner As LongPtr
+        hInstance As LongPtr
+        Flags As Long
+        lpstrFindWhat As LongPtr
+        lpstrReplaceWith As LongPtr
+        wFindWhatLen As Integer
+        wReplaceWithLen As Integer
+        lCustData As LongPtr
+        lpfnHook As LongPtr
+        lpTemplateName As LongPtr
+    End Type
+
+    Private Declare PtrSafe Function H_RegisterClassW Lib "user32" Alias "RegisterClassW" (ByRef lpWndClass As WNDCLASSW) As Long
+    Private Declare PtrSafe Function H_UnregisterClassW Lib "user32" Alias "UnregisterClassW" (ByVal lpClassName As LongPtr, ByVal hInstance As LongPtr) As Long
+    Private Declare PtrSafe Function H_CreateWindowExW Lib "user32" Alias "CreateWindowExW" (ByVal dwExStyle As Long, ByVal lpClassName As LongPtr, ByVal lpWindowName As LongPtr, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As LongPtr, ByVal hMenu As LongPtr, ByVal hInstance As LongPtr, ByVal lpParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function H_DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function H_DefWindowProcW Lib "user32" Alias "DefWindowProcW" (ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function H_RegisterWindowMessageW Lib "user32" Alias "RegisterWindowMessageW" (ByVal lpString As LongPtr) As Long
+    Private Declare PtrSafe Function H_GetModuleHandleW Lib "kernel32" Alias "GetModuleHandleW" (ByVal lpModuleName As LongPtr) As LongPtr
+    Private Declare PtrSafe Function H_GetDlgItem Lib "user32" Alias "GetDlgItem" (ByVal hDlg As LongPtr, ByVal nID As Long) As LongPtr
+    Private Declare PtrSafe Function H_IsWindow Lib "user32" Alias "IsWindow" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function H_IsWindowEnabled Lib "user32" Alias "IsWindowEnabled" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function H_SendMessageW Lib "user32" Alias "SendMessageW" (ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Sub H_CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongPtr)
+    Private Declare PtrSafe Function H_FindTextW Lib "comdlg32" Alias "FindTextW" (ByRef lpfr As FRStruct) As LongPtr
+    Private Declare PtrSafe Function H_GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
+
+    Private Const WM_CLOSE As Long = &H10
+    Private Const WM_SETTEXT As Long = &HC
+    Private Const BM_CLICK As Long = &HF5
+    Private Const WS_POPUP As Long = &H80000000
+
+    Public Const FR_DOWN As Long = &H1
+    Public Const FR_MATCHCASE As Long = &H4
+    Public Const FR_FINDNEXT As Long = &H8
+    Public Const FR_REPLACE As Long = &H10
+    Public Const FR_REPLACEALL As Long = &H20
+    Public Const FR_DIALOGTERM As Long = &H40
+
+    ' The control IDs of the dialogs of comdlg32 (dlgs.h).
+    Public Const IDC_FIND_NEXT As Long = 1
+    Public Const IDC_REPLACE As Long = &H400
+    Public Const IDC_REPLACE_ALL As Long = &H401
+
+    Private Const CLASS_NAME As String = "tbdocsFindHost"
+
+    Private mMessageId As Long
+    Private mRegistered As Boolean
+    Private mModuleLevel As FRStruct
+    Private mBuffer As String
+
+    ' What the owner windows received since Reset.
+    Public Messages As Long
+    Public LastFlags As Long
+    Public AllFlags As Long
+
+    Public Sub Reset()
+        Messages = 0
+        LastFlags = 0
+        AllFlags = 0
+    End Sub
+
+    ' A window to own a dialog, with a procedure that counts the messages of the dialog.
+    Public Function Create() As LongPtr
+        Dim wc As WNDCLASSW
+        If Not mRegistered Then
+            wc.lpfnWndProc = AddressOf HostProc
+            wc.hInstance = H_GetModuleHandleW(0)
+            wc.lpszClassName = StrPtr(CLASS_NAME)
+            H_RegisterClassW wc
+            mRegistered = True
+        End If
+        mMessageId = H_RegisterWindowMessageW(StrPtr("commdlg_FindReplace"))
+        Reset
+        Create = H_CreateWindowExW(0, StrPtr(CLASS_NAME), StrPtr("tbdocs find host"), WS_POPUP, 0, 0, 10, 10, 0, 0, H_GetModuleHandleW(0), 0)
+    End Function
+
+    Public Sub Destroy(ByVal h As LongPtr)
+        If h <> 0 Then
+            If H_IsWindow(h) <> 0 Then H_DestroyWindow h
+        End If
+    End Sub
+
+    Public Function HostProc(ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+        Dim flags As Long
+        If Msg = mMessageId And mMessageId <> 0 Then
+            Messages = Messages + 1
+            #If Win64 Then
+                H_CopyMemory VarPtr(flags), lParam + 24, 4
+            #Else
+                H_CopyMemory VarPtr(flags), lParam + 12, 4
+            #End If
+            LastFlags = flags
+            AllFlags = AllFlags Or flags
+            HostProc = 0
+        Else
+            HostProc = H_DefWindowProcW(hWnd, Msg, wParam, lParam)
+        End If
+    End Function
+
+    ' Presses the button with the given control ID of the dialog. False when there is no such enabled button.
+    Public Function Press(ByVal hDlg As LongPtr, ByVal ControlId As Long) As Boolean
+        Dim b As LongPtr = H_GetDlgItem(hDlg, ControlId)
+        If b = 0 Then Exit Function
+        If H_IsWindowEnabled(b) = 0 Then Exit Function
+        H_SendMessageW b, BM_CLICK, 0, 0
+        Press = True
+    End Function
+
+    ' Closes the dialog, as its close button does; the dialog then sends its owner FR_DIALOGTERM.
+    Public Sub CloseDialog(ByVal hDlg As LongPtr)
+        If hDlg = 0 Then Exit Sub
+        If H_IsWindow(hDlg) <> 0 Then H_SendMessageW hDlg, WM_CLOSE, 0, 0
+    End Sub
+
+    Public Function Exists(ByVal hDlg As LongPtr) As Boolean
+        If hDlg = 0 Then Exit Function
+        Exists = (H_IsWindow(hDlg) <> 0)
+    End Function
+
+    ' Calls FindTextW directly, with the structure in a module-level variable, as a program is told to.
+    Public Function FindWithModuleLevelStructure(ByVal Owner As LongPtr) As LongPtr
+        mBuffer = "twin" & String$(252, 0)
+        With mModuleLevel
+            .lStructSize = 40
+            #If Win64 Then
+                .lStructSize = 80
+            #End If
+            .hWndOwner = Owner
+            .Flags = FR_DOWN
+            .lpstrFindWhat = StrPtr(mBuffer)
+            .wFindWhatLen = 256
+        End With
+        FindWithModuleLevelStructure = H_FindTextW(mModuleLevel)
+    End Function
+
+    ' Lets the thread deliver its messages for this many milliseconds.
+    Public Sub Pump(ByVal Milliseconds As Long)
+        Dim t0 As Long = H_GetTickCount()
+        Do While H_GetTickCount() - t0 < Milliseconds
+            DoEvents
+        Loop
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/Fx.twin b/test/package-tests/TBMANLIB_Dialog/Sources/Fx.twin
new file mode 100644
index 00000000..badd14d6
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/Fx.twin
@@ -0,0 +1,104 @@
+' Fx: what the cases of TBMANLIB_Dialog share: the folder they work in, files, and windows that own dialogs.
+Module Fx
+
+    Private Declare PtrSafe Function F_CreateWindowExW Lib "user32" Alias "CreateWindowExW" (ByVal dwExStyle As Long, ByVal lpClassName As LongPtr, ByVal lpWindowName As LongPtr, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As LongPtr, ByVal hMenu As LongPtr, ByVal hInstance As LongPtr, ByVal lpParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function F_DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function F_IsWindow Lib "user32" Alias "IsWindow" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function F_GetCurrentDirectoryW Lib "kernel32" Alias "GetCurrentDirectoryW" (ByVal nBufferLength As Long, ByVal lpBuffer As LongPtr) As Long
+    Private Declare PtrSafe Function F_SetCurrentDirectoryW Lib "kernel32" Alias "SetCurrentDirectoryW" (ByVal lpPathName As LongPtr) As Long
+
+    Private Const WS_POPUP As Long = &H80000000
+
+    Private mWork As String
+
+    ' The folder the cases work in, made if it is missing.
+    Public Function Work() As String
+        If Len(mWork) = 0 Then mWork = Environ$("TEMP") & "\tbdocs-package-tests\TBMANLIB_Dialog"
+        MakeTree mWork
+        Work = mWork
+    End Function
+
+    ' Empties the work folder.
+    Public Sub Clean()
+        Dim d As String = Work()
+        On Error Resume Next
+        Dim f As String
+        f = Dir$(d & "\*.*")
+        Do While Len(f) > 0
+            SetAttr d & "\" & f, vbNormal
+            Kill d & "\" & f
+            f = Dir$(d & "\*.*")
+        Loop
+        Dim subs As New Collection
+        Dim s As String = Dir$(d & "\*", vbDirectory)
+        Do While Len(s) > 0
+            If s <> "." And s <> ".." Then
+                If (GetAttr(d & "\" & s) And vbDirectory) <> 0 Then subs.Add s
+            End If
+            s = Dir$()
+        Loop
+        Dim v As Variant
+        For Each v In subs
+            Kill d & "\" & CStr(v) & "\*.*"
+            RmDir d & "\" & CStr(v)
+        Next
+    End Sub
+
+    Private Sub MakeTree(ByVal path As String)
+        Dim parts() As String = Split(path, "\")
+        Dim i As Long
+        Dim cur As String = parts(0)
+        For i = 1 To UBound(parts)
+            cur = cur & "\" & parts(i)
+            If Len(Dir$(cur, vbDirectory)) = 0 Then MkDir cur
+        Next
+    End Sub
+
+    ' A file with this text in the work folder; returns its full path.
+    Public Function MakeFile(ByVal name As String, ByVal text As String) As String
+        Dim p As String = Work() & "\" & name
+        Dim n As Integer = FreeFile
+        Open p For Output As #n
+        Print #n, text
+        Close #n
+        MakeFile = p
+    End Function
+
+    Public Sub MakeSub(ByVal name As String)
+        MkDir Work() & "\" & name
+    End Sub
+
+    Public Function Exists(ByVal path As String) As Boolean
+        Exists = (Len(Dir$(path)) > 0)
+    End Function
+
+    ' A text written with periods as decimal separators, as the regional settings of the computer
+    ' write it (the classes format numbers with CStr and Format).
+    Public Function Dec(ByVal text As String) As String
+        Dim sep As String = Mid$(CStr(1.5), 2, 1)
+        Dec = Replace(text, ".", sep)
+    End Function
+
+    ' The current directory of the process, from the API.
+    Public Function CurDirApi() As String
+        Dim s As String = String$(520, 0)
+        Dim n As Long = F_GetCurrentDirectoryW(520, StrPtr(s))
+        CurDirApi = Left$(s, n)
+    End Function
+
+    Public Sub SetCurDirApi(ByVal path As String)
+        F_SetCurrentDirectoryW StrPtr(path)
+    End Sub
+
+    ' An invisible window to own a dialog.
+    Public Function MakeOwner() As LongPtr
+        MakeOwner = F_CreateWindowExW(0, StrPtr("Static"), StrPtr("tbdocs owner"), WS_POPUP, 0, 0, 10, 10, 0, 0, 0, 0)
+    End Function
+
+    Public Sub DestroyOwner(ByVal h As LongPtr)
+        If h <> 0 Then
+            If F_IsWindow(h) <> 0 Then F_DestroyWindow h
+        End If
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/MDialogTests.twin b/test/package-tests/TBMANLIB_Dialog/Sources/MDialogTests.twin
new file mode 100644
index 00000000..c5d9bd78
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/MDialogTests.twin
@@ -0,0 +1,144 @@
+' mDialog: the conversions, the colour text functions, the constants and the structure types.
+[TestFixture]
+Module MDialogTests
+
+    [TestCase]
+    Public Sub InchesToMM_MultipliesBy25Point4()
+        Expect.Begin
+        Expect.IsTrue Abs(InchesToMM(8.5) - 215.9) < 0.000001, "InchesToMM(8.5) is 215.9"
+        Expect.AreEqual 25.4, InchesToMM(1), "InchesToMM(1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MMToInches_DividesBy25Point4()
+        Expect.Begin
+        Expect.AreEqual 1, MMToInches(25.4), "MMToInches(25.4)"
+        Expect.IsTrue Abs(MMToInches(210) - 8.26771653543307) < 0.0000000001, "MMToInches(210) is 8.26771653543307"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub InchesToPoints_And_PointsToInches()
+        Expect.Begin
+        Expect.AreEqual 72, InchesToPoints(1), "InchesToPoints(1)"
+        Expect.AreEqual 108, InchesToPoints(1.5), "InchesToPoints(1.5)"
+        Expect.AreEqual 0.5, PointsToInches(36), "PointsToInches(36)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub InchesToTwips_RoundsToTheNearestWholeNumber()
+        Expect.Begin
+        Expect.AreEqual 2160, InchesToTwips(1.5), "InchesToTwips(1.5)"
+        Expect.AreEqual 0, InchesToTwips(0.0003), "InchesToTwips(0.0003)"
+        Expect.AreEqual 1, InchesToTwips(0.0004), "InchesToTwips(0.0004)"
+        Expect.AreEqual "Long", TypeName(InchesToTwips(1)), "type of InchesToTwips"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TwipsToInches_DividesBy1440()
+        Expect.Begin
+        Expect.AreEqual 0.5, TwipsToInches(720), "TwipsToInches(720)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Constants_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 25.4, MM_PER_INCH, "MM_PER_INCH"
+        Expect.AreEqual 72, POINTS_PER_INCH, "POINTS_PER_INCH"
+        Expect.AreEqual 1440, TWIPS_PER_INCH, "TWIPS_PER_INCH"
+        Expect.AreEqual 8.5, PAPER_LETTER_WIDTH, "PAPER_LETTER_WIDTH"
+        Expect.AreEqual 11, PAPER_LETTER_HEIGHT, "PAPER_LETTER_HEIGHT"
+        Expect.AreEqual 8.5, PAPER_LEGAL_WIDTH, "PAPER_LEGAL_WIDTH"
+        Expect.AreEqual 14, PAPER_LEGAL_HEIGHT, "PAPER_LEGAL_HEIGHT"
+        Expect.AreEqual 8.27, PAPER_A4_WIDTH, "PAPER_A4_WIDTH"
+        Expect.AreEqual 11.69, PAPER_A4_HEIGHT, "PAPER_A4_HEIGHT"
+        Expect.AreEqual 11.69, PAPER_A3_WIDTH, "PAPER_A3_WIDTH"
+        Expect.AreEqual 16.54, PAPER_A3_HEIGHT, "PAPER_A3_HEIGHT"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RGBToHtml_WritesSixUpperCaseDigits()
+        Expect.Begin
+        Expect.AreEqual "#FF8000", RGBToHtml(255, 128, 0), "RGBToHtml(255, 128, 0)"
+        Expect.AreEqual "#000000", RGBToHtml(0, 0, 0), "RGBToHtml(0, 0, 0)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RGBToHtml_WrapsAValueOutsideZeroTo255()
+        Expect.Begin
+        Expect.AreEqual "#00FF2C", RGBToHtml(256, -1, 300), "RGBToHtml(256, -1, 300)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HtmlToRGB_ReadsSixDigitsWithOrWithoutAHash()
+        Expect.Begin
+        Dim r As Long, g As Long, b As Long
+        HtmlToRGB "#00ff7f", r, g, b
+        Expect.AreEqual "0,255,127", r & "," & g & "," & b, "HtmlToRGB of #00ff7f"
+        HtmlToRGB "ff8000", r, g, b
+        Expect.AreEqual "255,128,0", r & "," & g & "," & b, "HtmlToRGB of ff8000"
+        HtmlToRGB "  #FF8000 ", r, g, b
+        Expect.AreEqual "255,128,0", r & "," & g & "," & b, "HtmlToRGB of '  #FF8000 '"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HtmlToRGB_AnyOtherTextGivesBlack()
+        Expect.Begin
+        Dim r As Long, g As Long, b As Long
+        Dim v As Variant
+        For Each v In Array("#FFF", "#FF8000FF", "red", "", "#GG0000", "#-10000", "#+12345")
+            r = 9: g = 9: b = 9
+            HtmlToRGB CStr(v), r, g, b
+            Expect.AreEqual "0,0,0", r & "," & g & "," & b, "HtmlToRGB of '" & CStr(v) & "'"
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HtmlToRGB_ASpaceInsideSixCharactersIsNotAlwaysRejected()
+        Expect.Begin
+        Dim r As Long, g As Long, b As Long
+        HtmlToRGB "#1 2345", r, g, b
+        Expect.AreEqual "1,35,69", r & "," & g & "," & b, "HtmlToRGB of '#1 2345'"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Types_HaveTheDocumentedSizes()
+        Expect.Begin
+        Dim g As mDialog.GUID
+        Dim rc As mDialog.RECT
+        Dim pt As mDialog.POINT
+        Dim fs As mDialog.COMDLG_FILTERSPEC
+        g.Data1 = 5
+        rc.Left = 2
+        rc.Right = 9
+        Expect.AreEqual 5, g.Data1, "GUID.Data1"
+        Expect.AreEqual 7, rc.Right - rc.Left, "RECT.Right - RECT.Left"
+        Expect.AreEqual 16, LenB(g), "size of GUID"
+        Expect.AreEqual 16, LenB(rc), "size of RECT"
+        Expect.AreEqual 8, LenB(pt), "size of POINT"
+        #If Win64 Then
+            Expect.AreEqual 16, LenB(fs), "size of COMDLG_FILTERSPEC"
+        #Else
+            Expect.AreEqual 8, LenB(fs), "size of COMDLG_FILTERSPEC"
+        #End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MembersAreGlobalAndCanBeQualifiedWithTheModuleName()
+        Expect.Begin
+        Expect.AreEqual InchesToMM(1), mDialog.InchesToMM(1), "InchesToMM against mDialog.InchesToMM"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/Pilot.twin b/test/package-tests/TBMANLIB_Dialog/Sources/Pilot.twin
new file mode 100644
index 00000000..95401848
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/Pilot.twin
@@ -0,0 +1,415 @@
+' Pilot: operates the dialogs a modal call opens, from inside the test, so no case waits for a person.
+'
+' Every dialog of the package that has a window (the Windows file, folder, color, font, print and
+' page setup dialogs, the message box and the run-time's input box) runs its own message loop on the
+' calling thread, and that loop delivers thread timers. A case arms a timer (Arm), calls the
+' dialog, and the timer procedure, running inside the dialog's loop, finds the dialog's window,
+' records what it shows (title, texts, buttons, the edit box) and acts on it by a script.
+' Disarm stops the timer once the call has returned. Nothing is modal for longer than the script
+' takes: a window that is still open after MaxTicks ticks is closed. The dialogs are on the
+' desktop the test runs on.
+'
+' The script has one section for each window, in the order the windows appear, separated by ";".
+' The actions of a section are separated by "|":
+'   t=TEXT   set the text of the file name box, or else of the first edit box (WM_SETTEXT)
+'   id=N     click the button with control id N (BM_CLICK); WM_COMMAND when there is none
+'   td=N     click button N of a task dialog (TDM_CLICK_BUTTON)
+'   key=VK   post a key press of virtual key VK to the first edit box, or else to the window
+'   close    post WM_CLOSE
+'   wait=N   do nothing for N more ticks
+'   none     do nothing: the window is left open until MaxTicks
+' A window with no section is closed at once. An action runs 2 ticks after the window appears,
+' and the next one tick after that.
+Module Pilot
+
+    Private Declare PtrSafe Function P_SetTimer Lib "user32" Alias "SetTimer" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
+    Private Declare PtrSafe Function P_KillTimer Lib "user32" Alias "KillTimer" (ByVal hWnd As LongPtr, ByVal uIDEvent As LongPtr) As Long
+    Private Declare PtrSafe Function P_GetCurrentThreadId Lib "kernel32" Alias "GetCurrentThreadId" () As Long
+    Private Declare PtrSafe Function P_EnumThreadWindows Lib "user32" Alias "EnumThreadWindows" (ByVal dwThreadId As Long, ByVal lpfn As LongPtr, ByVal lParam As LongPtr) As Long
+    Private Declare PtrSafe Function P_EnumChildWindows Lib "user32" Alias "EnumChildWindows" (ByVal hWndParent As LongPtr, ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long
+    Private Declare PtrSafe Function P_GetClassNameW Lib "user32" Alias "GetClassNameW" (ByVal hWnd As LongPtr, ByVal lpClassName As LongPtr, ByVal nMaxCount As Long) As Long
+    Private Declare PtrSafe Function P_IsWindowVisible Lib "user32" Alias "IsWindowVisible" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function P_IsWindowEnabled Lib "user32" Alias "IsWindowEnabled" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function P_IsWindow Lib "user32" Alias "IsWindow" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function P_GetDlgCtrlID Lib "user32" Alias "GetDlgCtrlID" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function P_GetDlgItem Lib "user32" Alias "GetDlgItem" (ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long) As LongPtr
+    Private Declare PtrSafe Function P_GetParent Lib "user32" Alias "GetParent" (ByVal hWnd As LongPtr) As LongPtr
+    Private Declare PtrSafe Function P_GetWindow Lib "user32" Alias "GetWindow" (ByVal hWnd As LongPtr, ByVal uCmd As Long) As LongPtr
+    Private Declare PtrSafe Function P_GetWindowLongW Lib "user32" Alias "GetWindowLongW" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long
+    Private Declare PtrSafe Function P_SendMessageW Lib "user32" Alias "SendMessageW" (ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function P_PostMessageW Lib "user32" Alias "PostMessageW" (ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long
+    Private Declare PtrSafe Function P_EndMenu Lib "user32" Alias "EndMenu" () As Long
+
+    Private Const WM_GETTEXT As Long = &HD
+    Private Const WM_GETTEXTLENGTH As Long = &HE
+    Private Const WM_SETTEXT As Long = &HC
+    Private Const WM_CLOSE As Long = &H10
+    Private Const WM_COMMAND As Long = &H111
+    Private Const WM_KEYDOWN As Long = &H100
+    Private Const WM_KEYUP As Long = &H101
+    Private Const BM_CLICK As Long = &HF5
+    Private Const BM_GETCHECK As Long = &HF0
+    Private Const CB_GETCOUNT As Long = &H146
+    Private Const CB_GETLBTEXT As Long = &H148
+    Private Const CB_GETLBTEXTLEN As Long = &H149
+    Private Const EM_GETLIMITTEXT As Long = &HD5
+    Private Const EM_GETPASSWORDCHAR As Long = &HD2
+    Private Const TDM_CLICK_BUTTON As Long = &H466
+    Private Const GWL_STYLE As Long = -16
+    Private Const GW_OWNER As Long = 4
+    Private Const ES_MULTILINE As Long = &H4
+
+    Private Const TICK_MS As Long = 100
+    Private Const MAXW As Long = 12
+
+    ' A window still open after this many ticks is closed.
+    Public MaxTicks As Long = 150
+
+    ' What the episode saw, for the case to check.
+    Public WindowsSeen As Long
+    Public TimedOut As Boolean
+
+    Private mSections() As String
+    Private mSectionN As Long
+    Private mTimerId As LongPtr
+    Private mTick As Long
+    Private mTop(0 To 63) As LongPtr
+    Private mTopN As Long
+    Private mCh(0 To 255) As LongPtr
+    Private mChN As Long
+
+    Private mWin(0 To MAXW - 1) As LongPtr
+    Private mActs(0 To MAXW - 1) As String
+    Private mActIdx(0 To MAXW - 1) As Long
+    Private mNext(0 To MAXW - 1) As Long
+    Private mOwner(0 To MAXW - 1) As LongPtr
+    Private mTitle(0 To MAXW - 1) As String
+    Private mStatics(0 To MAXW - 1) As String
+    Private mButtons(0 To MAXW - 1) As String
+    Private mClasses(0 To MAXW - 1) As String
+    Private mEditText(0 To MAXW - 1) As String
+    Private mPwChar(0 To MAXW - 1) As Long
+    Private mEditLimit(0 To MAXW - 1) As Long
+    Private mMultiline(0 To MAXW - 1) As Boolean
+    Private mEditCount(0 To MAXW - 1) As Long
+    Private mCombos(0 To MAXW - 1) As String
+
+    ' ---- the episode
+
+    Public Sub Arm(ByVal Script As String)
+        Dim i As Long
+        If Len(Script) = 0 Then
+            ReDim mSections(0 To 0)
+            mSectionN = 0
+        Else
+            mSections = Split(Script, ";")
+            mSectionN = UBound(mSections) + 1
+        End If
+        mTick = 0
+        WindowsSeen = 0
+        TimedOut = False
+        For i = 0 To MAXW - 1
+            mWin(i) = 0
+            mActs(i) = ""
+            mActIdx(i) = 0
+            mNext(i) = 0
+            mOwner(i) = 0
+            mTitle(i) = ""
+            mStatics(i) = ""
+            mButtons(i) = ""
+            mClasses(i) = ""
+            mEditText(i) = ""
+            mPwChar(i) = 0
+            mEditLimit(i) = 0
+            mMultiline(i) = False
+            mEditCount(i) = 0
+            mCombos(i) = ""
+        Next
+        mTimerId = P_SetTimer(0, 0, TICK_MS, AddressOf TimerProc)
+    End Sub
+
+    Public Sub Disarm()
+        If mTimerId <> 0 Then P_KillTimer 0, mTimerId
+        mTimerId = 0
+    End Sub
+
+    ' ---- what window k (0-based, in the order they appeared) showed
+
+    Public Function Title(ByVal k As Long) As String
+        If k >= 0 And k < WindowsSeen Then Title = mTitle(k)
+    End Function
+
+    ' The texts of the static controls, joined by a line feed.
+    Public Function Statics(ByVal k As Long) As String
+        If k >= 0 And k < WindowsSeen Then Statics = mStatics(k)
+    End Function
+
+    ' The texts of the buttons, joined by a line feed.
+    Public Function Buttons(ByVal k As Long) As String
+        If k >= 0 And k < WindowsSeen Then Buttons = mButtons(k)
+    End Function
+
+    ' The classes of the controls, each between bars: "|Static|Button|Edit|".
+    Public Function Classes(ByVal k As Long) As String
+        If k >= 0 And k < WindowsSeen Then Classes = mClasses(k)
+    End Function
+
+    ' The items of the combo boxes, each between bars: "|Text Files|All Files|".
+    Public Function ComboItems(ByVal k As Long) As String
+        If k >= 0 And k < WindowsSeen Then ComboItems = mCombos(k)
+    End Function
+
+    Public Function EditText(ByVal k As Long) As String
+        If k >= 0 And k < WindowsSeen Then EditText = mEditText(k)
+    End Function
+
+    ' The password character of the first edit box: 0 when the entry is not masked.
+    Public Function PasswordChar(ByVal k As Long) As Long
+        If k >= 0 And k < WindowsSeen Then PasswordChar = mPwChar(k)
+    End Function
+
+    Public Function EditLimit(ByVal k As Long) As Long
+        If k >= 0 And k < WindowsSeen Then EditLimit = mEditLimit(k)
+    End Function
+
+    Public Function IsMultiline(ByVal k As Long) As Boolean
+        If k >= 0 And k < WindowsSeen Then IsMultiline = mMultiline(k)
+    End Function
+
+    Public Function EditCount(ByVal k As Long) As Long
+        If k >= 0 And k < WindowsSeen Then EditCount = mEditCount(k)
+    End Function
+
+    ' The window that owned window k.
+    Public Function OwnerOf(ByVal k As Long) As LongPtr
+        If k >= 0 And k < WindowsSeen Then OwnerOf = mOwner(k)
+    End Function
+
+    ' ---- enumeration
+
+    Public Function EnumTopProc(ByVal hWnd As LongPtr, ByVal lParam As LongPtr) As Long
+        If mTopN <= 63 Then
+            mTop(mTopN) = hWnd
+            mTopN = mTopN + 1
+        End If
+        EnumTopProc = 1
+    End Function
+
+    Public Function EnumChildProc(ByVal hWnd As LongPtr, ByVal lParam As LongPtr) As Long
+        If mChN <= 255 Then
+            mCh(mChN) = hWnd
+            mChN = mChN + 1
+        End If
+        EnumChildProc = 1
+    End Function
+
+    Private Function ClassOf(ByVal h As LongPtr) As String
+        Dim s As String = String$(256, 0)
+        Dim n As Long = P_GetClassNameW(h, StrPtr(s), 256)
+        ClassOf = Left$(s, n)
+    End Function
+
+    Private Function TextOf(ByVal h As LongPtr) As String
+        Dim n As Long = CLng(P_SendMessageW(h, WM_GETTEXTLENGTH, 0, 0))
+        Dim s As String = String$(n + 2, 0)
+        n = CLng(P_SendMessageW(h, WM_GETTEXT, n + 1, StrPtr(s)))
+        TextOf = Left$(s, n)
+    End Function
+
+    Private Function Children(ByVal h As LongPtr, ByRef list() As LongPtr) As Long
+        Dim i As Long
+        mChN = 0
+        P_EnumChildWindows h, AddressOf EnumChildProc, 0
+        For i = 0 To mChN - 1
+            list(i) = mCh(i)
+        Next
+        Children = mChN
+    End Function
+
+    Private Function WinIndex(ByVal h As LongPtr) As Long
+        Dim i As Long
+        WinIndex = -1
+        For i = 0 To WindowsSeen - 1
+            If mWin(i) = h And h <> 0 Then WinIndex = i : Exit Function
+        Next
+    End Function
+
+    Private Function FirstEdit(ByVal h As LongPtr) As LongPtr
+        Dim list(0 To 255) As LongPtr
+        Dim i As Long
+        Dim n As Long = Children(h, list)
+        For i = 0 To n - 1
+            If ClassOf(list(i)) = "Edit" And P_IsWindowVisible(list(i)) <> 0 Then
+                If ClassOf(P_GetParent(list(i))) = "ComboBox" Then FirstEdit = list(i) : Exit Function
+            End If
+        Next
+        For i = 0 To n - 1
+            If ClassOf(list(i)) = "Edit" And P_IsWindowVisible(list(i)) <> 0 Then FirstEdit = list(i) : Exit Function
+        Next
+    End Function
+
+    ' ---- recording and acting
+
+    Private Sub Record(ByVal k As Long, ByVal h As LongPtr)
+        Dim list(0 To 255) As LongPtr
+        Dim i As Long
+        Dim n As Long = Children(h, list)
+        Dim cls As String
+        Dim ed As LongPtr
+        mTitle(k) = TextOf(h)
+        mOwner(k) = P_GetWindow(h, GW_OWNER)
+        mClasses(k) = "|"
+        For i = 0 To n - 1
+            cls = ClassOf(list(i))
+            If P_IsWindowVisible(list(i)) <> 0 Then
+                mClasses(k) = mClasses(k) & cls & "|"
+                Select Case cls
+                    Case "Static"
+                        If Len(TextOf(list(i))) > 0 Then
+                            If Len(mStatics(k)) > 0 Then mStatics(k) = mStatics(k) & vbLf
+                            mStatics(k) = mStatics(k) & TextOf(list(i))
+                        End If
+                    Case "Button"
+                        If Len(mButtons(k)) > 0 Then mButtons(k) = mButtons(k) & vbLf
+                        mButtons(k) = mButtons(k) & TextOf(list(i))
+                    Case "Edit"
+                        mEditCount(k) = mEditCount(k) + 1
+                    Case "ComboBox"
+                        Dim cnt As Long = CLng(P_SendMessageW(list(i), CB_GETCOUNT, 0, 0))
+                        Dim j As Long
+                        For j = 0 To cnt - 1
+                            Dim ln As Long = CLng(P_SendMessageW(list(i), CB_GETLBTEXTLEN, j, 0))
+                            Dim buf As String = String$(ln + 2, 0)
+                            P_SendMessageW list(i), CB_GETLBTEXT, j, StrPtr(buf)
+                            If Len(mCombos(k)) = 0 Then mCombos(k) = "|"
+                            mCombos(k) = mCombos(k) & Left$(buf, ln) & "|"
+                        Next
+                End Select
+            End If
+        Next
+        ed = FirstEdit(h)
+        If ed <> 0 Then
+            mEditText(k) = TextOf(ed)
+            mPwChar(k) = CLng(P_SendMessageW(ed, EM_GETPASSWORDCHAR, 0, 0))
+            mEditLimit(k) = CLng(P_SendMessageW(ed, EM_GETLIMITTEXT, 0, 0))
+            mMultiline(k) = ((P_GetWindowLongW(ed, GWL_STYLE) And ES_MULTILINE) <> 0)
+        End If
+    End Sub
+
+    Private Sub Act(ByVal k As Long, ByVal h As LongPtr, ByVal action As String)
+        Dim p As Long = InStr(action, "=")
+        Dim verb As String = action
+        Dim arg As String
+        Dim ed As LongPtr
+        Dim b As LongPtr
+        If p > 0 Then
+            verb = Left$(action, p - 1)
+            arg = Mid$(action, p + 1)
+        End If
+        Select Case verb
+            Case "t"
+                ed = FirstEdit(h)
+                If ed <> 0 Then P_SendMessageW ed, WM_SETTEXT, 0, StrPtr(arg)
+            Case "id"
+                b = P_GetDlgItem(h, CLng(arg))
+                If b <> 0 Then P_PostMessageW b, BM_CLICK, 0, 0 Else P_PostMessageW h, WM_COMMAND, CLng(arg), 0
+            Case "td"
+                P_PostMessageW h, TDM_CLICK_BUTTON, CLng(arg), 0
+            Case "key"
+                ed = FirstEdit(h)
+                If ed = 0 Then ed = h
+                P_PostMessageW ed, WM_KEYDOWN, CLng(arg), 0
+                P_PostMessageW ed, WM_KEYUP, CLng(arg), &HC0000001
+            Case "close"
+                P_PostMessageW h, WM_CLOSE, 0, 0
+            Case "wait"
+                mNext(k) = mTick + CLng(arg)
+        End Select
+    End Sub
+
+    Private Sub Service(ByVal k As Long, ByVal h As LongPtr)
+        Dim acts() As String
+        ' A box may be masked a moment after it appears.
+        Dim e As LongPtr = FirstEdit(h)
+        If e <> 0 Then
+            Dim pc As Long = CLng(P_SendMessageW(e, EM_GETPASSWORDCHAR, 0, 0))
+            If pc <> 0 Then mPwChar(k) = pc
+        End If
+        If Len(mActs(k)) = 0 Then Exit Sub
+        acts = Split(mActs(k), "|")
+        If mActIdx(k) > UBound(acts) Then Exit Sub
+        If mTick < mNext(k) Then Exit Sub
+        Dim a As String = acts(mActIdx(k))
+        mActIdx(k) = mActIdx(k) + 1
+        mNext(k) = mTick + 1
+        Act k, h, a
+    End Sub
+
+    Private Sub CloseWindow(ByVal h As LongPtr)
+        Dim list(0 To 255) As LongPtr
+        Dim i As Long
+        Dim n As Long
+        P_EndMenu
+        P_PostMessageW h, TDM_CLICK_BUTTON, 2, 0
+        P_PostMessageW h, WM_CLOSE, 0, 0
+        P_PostMessageW h, WM_COMMAND, 2, 0
+        n = Children(h, list)
+        For i = 0 To n - 1
+            If ClassOf(list(i)) = "Button" And P_GetDlgCtrlID(list(i)) = 2 Then P_PostMessageW list(i), BM_CLICK, 0, 0
+        Next
+    End Sub
+
+    ' The timer procedure: runs inside the modal loop of the dialog.
+    Public Sub TimerProc(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
+        Dim i As Long
+        Dim k As Long
+        Dim h As LongPtr
+        Dim list(0 To 63) As LongPtr
+        Dim n As Long
+        mTick = mTick + 1
+        ' A window that has gone is forgotten, so that a new one with the same handle is a new window.
+        For i = 0 To WindowsSeen - 1
+            If mWin(i) <> 0 Then
+                If P_IsWindow(mWin(i)) = 0 Then
+                    mWin(i) = 0
+                ElseIf P_IsWindowVisible(mWin(i)) = 0 Then
+                    mWin(i) = 0
+                End If
+            End If
+        Next
+        mTopN = 0
+        P_EnumThreadWindows P_GetCurrentThreadId(), AddressOf EnumTopProc, 0
+        n = mTopN
+        For i = 0 To n - 1
+            list(i) = mTop(i)
+        Next
+        For i = 0 To n - 1
+            h = list(i)
+            If P_IsWindow(h) <> 0 Then
+                If P_IsWindowVisible(h) <> 0 Then
+                    If ClassOf(h) = "#32770" Then
+                        k = WinIndex(h)
+                        If k < 0 And WindowsSeen < MAXW Then
+                            k = WindowsSeen
+                            WindowsSeen = WindowsSeen + 1
+                            mWin(k) = h
+                            If k < mSectionN Then mActs(k) = mSections(k) Else mActs(k) = "close"
+                            mActIdx(k) = 0
+                            mNext(k) = mTick + 2
+                            Record k, h
+                        End If
+                        If k >= 0 Then
+                            If mTick >= MaxTicks Then
+                                TimedOut = True
+                                CloseWindow h
+                            Else
+                                Service k, h
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        Next
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/ProgressSink.twin b/test/package-tests/TBMANLIB_Dialog/Sources/ProgressSink.twin
new file mode 100644
index 00000000..210fc6fd
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/ProgressSink.twin
@@ -0,0 +1,31 @@
+' ProgressSink: receives the events of a cDialogProgress and keeps what they carried.
+Class ProgressSink
+
+    Private WithEvents mProgress As cDialogProgress
+
+    Public Changes As Long
+    Public Cancels As Long
+    Public LastValue As Long
+    Public Values As String
+    Public CancelledInHandler As Boolean
+
+    Public Sub Attach(ByVal source As cDialogProgress)
+        Set mProgress = source
+    End Sub
+
+    Public Sub Detach()
+        Set mProgress = Nothing
+    End Sub
+
+    Private Sub mProgress_ProgressChanged(ByVal value As Long)
+        Changes = Changes + 1
+        LastValue = value
+        Values = Values & value & ","
+    End Sub
+
+    Private Sub mProgress_CancelClicked()
+        Cancels = Cancels + 1
+        CancelledInHandler = mProgress.Cancelled
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/ProgressStopper.twin b/test/package-tests/TBMANLIB_Dialog/Sources/ProgressStopper.twin
new file mode 100644
index 00000000..057aec6b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/ProgressStopper.twin
@@ -0,0 +1,20 @@
+' ProgressStopper: calls Cancel from the handler of ProgressChanged once the position reaches a value.
+Class ProgressStopper
+
+    Private WithEvents mProgress As cDialogProgress
+    Private mAt As Long
+
+    Public Sub Attach(ByVal source As cDialogProgress, ByVal CancelAt As Long)
+        Set mProgress = source
+        mAt = CancelAt
+    End Sub
+
+    Public Sub Detach()
+        Set mProgress = Nothing
+    End Sub
+
+    Private Sub mProgress_ProgressChanged(ByVal value As Long)
+        If value >= mAt Then mProgress.Cancel
+    End Sub
+
+End Class
diff --git a/test/package-tests/TBMANLIB_Dialog/Sources/RunAll.twin b/test/package-tests/TBMANLIB_Dialog/Sources/RunAll.twin
new file mode 100644
index 00000000..60cfad3d
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/Sources/RunAll.twin
@@ -0,0 +1,1274 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB_Dialog, version 1.1.0.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB_Dialog 1.1.0.0: 315 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogColorTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.GetCustomColor_StartsWithTheQBColors
+        Expect.EndCase "CDialogColorTests.GetCustomColor_StartsWithTheQBColors", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.Red_Green_Blue_ReadTheBytesOfColor
+        Expect.EndCase "CDialogColorTests.Red_Green_Blue_ReadTheBytesOfColor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.Red_Green_Blue_SetOnePartAndKeepTheOthers
+        Expect.EndCase "CDialogColorTests.Red_Green_Blue_SetOnePartAndKeepTheOthers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.Red_Green_Blue_ClampToZeroAndAHundredAndFiftyFive
+        Expect.EndCase "CDialogColorTests.Red_Green_Blue_ClampToZeroAndAHundredAndFiftyFive", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.Color_NegativeValueReadsOtherBytes
+        Expect.EndCase "CDialogColorTests.Color_NegativeValueReadsOtherBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.SetRgb_SetsThePartsAndClamps
+        Expect.EndCase "CDialogColorTests.SetRgb_SetsThePartsAndClamps", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.ToHtmlColor_AndToRgbString_FormatTheColor
+        Expect.EndCase "CDialogColorTests.ToHtmlColor_AndToRgbString_FormatTheColor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.FromHtmlColor_ReadsSixDigitsWithOrWithoutAHash
+        Expect.EndCase "CDialogColorTests.FromHtmlColor_ReadsSixDigitsWithOrWithoutAHash", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.FromHtmlColor_IgnoresTextOfAnotherLength
+        Expect.EndCase "CDialogColorTests.FromHtmlColor_IgnoresTextOfAnotherLength", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.FromHtmlColor_StopsAtAPairThatIsNotHexadecimal
+        Expect.EndCase "CDialogColorTests.FromHtmlColor_StopsAtAPairThatIsNotHexadecimal", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.SetCustomColor_StoresAndIgnoresAnIndexOutOfRange
+        Expect.EndCase "CDialogColorTests.SetCustomColor_StoresAndIgnoresAnIndexOutOfRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.Reset_RestoresTheColorTheFlagsAndTheCustomColors
+        Expect.EndCase "CDialogColorTests.Reset_RestoresTheColorTheFlagsAndTheCustomColors", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.ShowDialog_OKReturnsTrueAndKeepsTheColorItWasGiven
+        Expect.EndCase "CDialogColorTests.ShowDialog_OKReturnsTrueAndKeepsTheColorItWasGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogColorTests.ShowDialog_CancelReturnsFalseAndKeepsTheColor
+        Expect.EndCase "CDialogColorTests.ShowDialog_CancelReturnsFalseAndKeepsTheColor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogCountdownMsgBoxTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.Enumerations_HaveTheDocumentedValues
+        Expect.EndCase "CDialogCountdownMsgBoxTests.Enumerations_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.Properties_StoreWhatIsSet
+        Expect.EndCase "CDialogCountdownMsgBoxTests.Properties_StoreWhatIsSet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.CountdownSeconds_AlsoSetsRemainingSeconds
+        Expect.EndCase "CDialogCountdownMsgBoxTests.CountdownSeconds_AlsoSetsRemainingSeconds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.Reset_RestoresTheStartingValues
+        Expect.EndCase "CDialogCountdownMsgBoxTests.Reset_RestoresTheStartingValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowQuestion_TimeoutReportsTimeout
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowQuestion_TimeoutReportsTimeout", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowConfirm_TimeoutReportsTimeout
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowConfirm_TimeoutReportsTimeout", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowCustom_TimeoutOfABoxWithTwoButtonsReportsTimeout
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowCustom_TimeoutOfABoxWithTwoButtonsReportsTimeout", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowInfo_TimeoutReportsTimeout
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowInfo_TimeoutReportsTimeout", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowWarning_TimeoutReportsTimeout
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowWarning_TimeoutReportsTimeout", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowError_TimeoutReportsTimeout
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowError_TimeoutReportsTimeout", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_TimeoutOfTheDefaultBoxReportsTimeout
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_TimeoutOfTheDefaultBoxReportsTimeout", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_ShowsTheTitleTheMessageAndTheCountdownText
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_ShowsTheTitleTheMessageAndTheCountdownText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_CountdownTextNamesOneSecondInThePlural
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_CountdownTextNamesOneSecondInThePlural", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_ShowProgressFalseShowsOnlyTheMessage
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_ShowProgressFalseShowsOnlyTheMessage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_AutoCloseFalseKeepsTheBoxOpenWithoutCountdownText
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_AutoCloseFalseKeepsTheBoxOpenWithoutCountdownText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_CountdownSecondsOfZeroDoesNotCloseTheBox
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_CountdownSecondsOfZeroDoesNotCloseTheBox", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_TheButtonPressedIsTheResult
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_TheButtonPressedIsTheResult", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowCustom_AbortRetryIgnoreReportsEachButton
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowCustom_AbortRetryIgnoreReportsEachButton", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.DefaultButton_EnterPressesTheSecondButton
+        Expect.EndCase "CDialogCountdownMsgBoxTests.DefaultButton_EnterPressesTheSecondButton", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_ShortFormsDoNotChangeDefaultButton
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_ShortFormsDoNotChangeDefaultButton", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowDialog_CloseButtonEndsABoxWithOnlyOKAsOK
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowDialog_CloseButtonEndsABoxWithOnlyOKAsOK", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowConfirm_CloseButtonEndsTheBoxAsCancel
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowConfirm_CloseButtonEndsTheBoxAsCancel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.ShowQuestion_CloseButtonIsIgnored
+        Expect.EndCase "CDialogCountdownMsgBoxTests.ShowQuestion_CloseButtonIsIgnored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.Buttons_ACancelTryAgainContinueBoxIsNotMapped
+        Expect.EndCase "CDialogCountdownMsgBoxTests.Buttons_ACancelTryAgainContinueBoxIsNotMapped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.CountdownSeconds_AboveTwoMillionOverflowsAndShowsAPlainBox
+        Expect.EndCase "CDialogCountdownMsgBoxTests.CountdownSeconds_AboveTwoMillionOverflowsAndShowsAPlainBox", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogCountdownMsgBoxTests.OwnerHwnd_OwnsTheBox
+        Expect.EndCase "CDialogCountdownMsgBoxTests.OwnerHwnd_OwnsTheBox", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogDateTimeTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.NewObject_HoldsTheClockOfTheComputer
+        Expect.EndCase "CDialogDateTimeTests.NewObject_HoldsTheClockOfTheComputer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.Enumerations_HaveTheDocumentedValues
+        Expect.EndCase "CDialogDateTimeTests.Enumerations_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.DateTimeValue_SetsAllSixParts
+        Expect.EndCase "CDialogDateTimeTests.DateTimeValue_SetsAllSixParts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.DateValue_And_TimeValue_SetTheirParts
+        Expect.EndCase "CDialogDateTimeTests.DateValue_And_TimeValue_SetTheirParts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.DateTimeValue_IsNotCheckedAgainstTheYearRange
+        Expect.EndCase "CDialogDateTimeTests.DateTimeValue_IsNotCheckedAgainstTheYearRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.Day_IgnoresADayThatDoesNotExistInTheMonth
+        Expect.EndCase "CDialogDateTimeTests.Day_IgnoresADayThatDoesNotExistInTheMonth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.Hour_Minute_Second_IgnoreValuesOutOfRange
+        Expect.EndCase "CDialogDateTimeTests.Hour_Minute_Second_IgnoreValuesOutOfRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.Month_LowersTheDayToTheLastDayOfTheNewMonth
+        Expect.EndCase "CDialogDateTimeTests.Month_LowersTheDayToTheLastDayOfTheNewMonth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.Year_IsLimitedToMinYearAndMaxYear
+        Expect.EndCase "CDialogDateTimeTests.Year_IsLimitedToMinYearAndMaxYear", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.FormatDate_ShortAndLong
+        Expect.EndCase "CDialogDateTimeTests.FormatDate_ShortAndLong", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.FormatDate_CustomReplacesThePatterns
+        Expect.EndCase "CDialogDateTimeTests.FormatDate_CustomReplacesThePatterns", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMarchKeepsTheName
+        Expect.EndCase "CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMarchKeepsTheName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMayKeepsTheName
+        Expect.EndCase "CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMayKeepsTheName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfDecemberKeepsTheName
+        Expect.EndCase "CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfDecemberKeepsTheName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.FormatDate_CustomWithAShortMonthNameOfMarchKeepsTheName
+        Expect.EndCase "CDialogDateTimeTests.FormatDate_CustomWithAShortMonthNameOfMarchKeepsTheName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.FormatTime_24HourAndAmPm
+        Expect.EndCase "CDialogDateTimeTests.FormatTime_24HourAndAmPm", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.FormatDateTime_FollowsMode
+        Expect.EndCase "CDialogDateTimeTests.FormatDateTime_FollowsMode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.AddDays_MovesTheDateAndKeepsTheTime
+        Expect.EndCase "CDialogDateTimeTests.AddDays_MovesTheDateAndKeepsTheTime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.AddDays_PastTheEndOfYear9999RaisesTypeMismatch
+        Expect.EndCase "CDialogDateTimeTests.AddDays_PastTheEndOfYear9999RaisesTypeMismatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.AddHours_CarriesIntoTheDate
+        Expect.EndCase "CDialogDateTimeTests.AddHours_CarriesIntoTheDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.AddHours_OfAboutSixHundredThousandRaisesOverflowAndKeepsTheValue
+        Expect.EndCase "CDialogDateTimeTests.AddHours_OfAboutSixHundredThousandRaisesOverflowAndKeepsTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.SetNow_And_SetToday_UseTheClock
+        Expect.EndCase "CDialogDateTimeTests.SetNow_And_SetToday_UseTheClock", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.GetDayOfWeek_And_Name_AreEnglishFromSunday
+        Expect.EndCase "CDialogDateTimeTests.GetDayOfWeek_And_Name_AreEnglishFromSunday", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.GetDaysInMonth_KnowsLeapYears
+        Expect.EndCase "CDialogDateTimeTests.GetDaysInMonth_KnowsLeapYears", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.GetMonthName_IsEnglish
+        Expect.EndCase "CDialogDateTimeTests.GetMonthName_IsEnglish", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.Reset_RestoresTheStartingValuesButNotTheOwner
+        Expect.EndCase "CDialogDateTimeTests.Reset_RestoresTheStartingValuesButNotTheOwner", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ShowsThePromptTheFormatLineAndTheYearRange
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ShowsThePromptTheFormatLineAndTheYearRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_NamesTheFormatOfTheModes
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_NamesTheFormatOfTheModes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_OKOnTheOfferedTextKeepsTheValue
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_OKOnTheOfferedTextKeepsTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ADateChangesOnlyTheDate
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ADateChangesOnlyTheDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ATimeChangesOnlyTheHourAndMinute
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ATimeChangesOnlyTheHourAndMinute", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ADateWithDashesAndATimeWithSeconds
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ADateWithDashesAndATimeWithSeconds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_AnEmptyEntryAndTextWithoutAPartChangeNothing
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_AnEmptyEntryAndTextWithoutAPartChangeNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ARefusedEntryShowsASecondBoxAndReturnsFalse
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ARefusedEntryShowsASecondBoxAndReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ARefusedMonthAndDayLeaveTheObjectAsItWas
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ARefusedMonthAndDayLeaveTheObjectAsItWas", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_AFebruary30LeavesTheObjectAsItWas
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_AFebruary30LeavesTheObjectAsItWas", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ARefusedTimeLeavesTheObjectAsItWas
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ARefusedTimeLeavesTheObjectAsItWas", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ARefusedTimeAfterAGoodDateLeavesTheObjectAsItWas
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ARefusedTimeAfterAGoodDateLeavesTheObjectAsItWas", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoDateIsRead
+        Expect.EndCase "CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoDateIsRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowTimePicker_TheOfferedTextOfThe12HourClockIsAccepted
+        Expect.EndCase "CDialogDateTimeTests.ShowTimePicker_TheOfferedTextOfThe12HourClockIsAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoSpaceIsReadAsTheMinutesTyped
+        Expect.EndCase "CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoSpaceIsReadAsTheMinutesTyped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_ADateAndATimeWithPmIsRead
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_ADateAndATimeWithPmIsRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDialog_12AmIsHourZeroAnd1To11PmAre13To23
+        Expect.EndCase "CDialogDateTimeTests.ShowDialog_12AmIsHourZeroAnd1To11PmAre13To23", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.ShowDatePicker_And_ShowTimePicker_SetTitleAndMode
+        Expect.EndCase "CDialogDateTimeTests.ShowDatePicker_And_ShowTimePicker_SetTitleAndMode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDateTimeTests.OwnerHwnd_HasNoEffect
+        Expect.EndCase "CDialogDateTimeTests.OwnerHwnd_HasNoEffect", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_ReturnsTheFullPathAndStoresItInFileName
+        Expect.EndCase "CDialogDialogTests.ShowOpen_ReturnsTheFullPathAndStoresItInFileName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_CancelReturnsAnEmptyStringAndKeepsFileName
+        Expect.EndCase "CDialogDialogTests.ShowOpen_CancelReturnsAnEmptyStringAndKeepsFileName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_DialogTitleIsTheCaption
+        Expect.EndCase "CDialogDialogTests.ShowOpen_DialogTitleIsTheCaption", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_FileNameIsPassedAsTheNextInitialName
+        Expect.EndCase "CDialogDialogTests.ShowOpen_FileNameIsPassedAsTheNextInitialName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_MultiSelectOfTwoFilesReturnsAnArray
+        Expect.EndCase "CDialogDialogTests.ShowOpen_MultiSelectOfTwoFilesReturnsAnArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_MultiSelectOfOneFileReturnsAString
+        Expect.EndCase "CDialogDialogTests.ShowOpen_MultiSelectOfOneFileReturnsAString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.SelectFiles_ReturnsACollectionInBothCases
+        Expect.EndCase "CDialogDialogTests.SelectFiles_ReturnsACollectionInBothCases", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_FilterFillsTheFileTypeList
+        Expect.EndCase "CDialogDialogTests.ShowOpen_FilterFillsTheFileTypeList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_FileMustExistRefusesAMissingName
+        Expect.EndCase "CDialogDialogTests.ShowOpen_FileMustExistRefusesAMissingName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_WithoutFileMustExistReturnsAMissingName
+        Expect.EndCase "CDialogDialogTests.ShowOpen_WithoutFileMustExistReturnsAMissingName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_CreatePromptAsksBeforeAcceptingAMissingName
+        Expect.EndCase "CDialogDialogTests.ShowOpen_CreatePromptAsksBeforeAcceptingAMissingName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_PathMustExistRefusesAMissingFolder
+        Expect.EndCase "CDialogDialogTests.ShowOpen_PathMustExistRefusesAMissingFolder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowOpen_NoChangeDirKeepsTheCurrentFolder
+        Expect.EndCase "CDialogDialogTests.ShowOpen_NoChangeDirKeepsTheCurrentFolder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.SelectAndOpenFile_CancelReturnsZero
+        Expect.EndCase "CDialogDialogTests.SelectAndOpenFile_CancelReturnsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.SelectAndOpenFile_OneMissingFileReturnsWhatOpenFileReturned
+        Expect.EndCase "CDialogDialogTests.SelectAndOpenFile_OneMissingFileReturnsWhatOpenFileReturned", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.SelectAndOpenFile_SeveralMissingFilesReturnOne
+        Expect.EndCase "CDialogDialogTests.SelectAndOpenFile_SeveralMissingFilesReturnOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_DialogTitleAndDefaultCaption
+        Expect.EndCase "CDialogDialogTests.ShowSave_DialogTitleAndDefaultCaption", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_FileNameIsShownInTheNameBox
+        Expect.EndCase "CDialogDialogTests.ShowSave_FileNameIsShownInTheNameBox", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_DefaultExtIsAddedToANameTypedWithoutOne
+        Expect.EndCase "CDialogDialogTests.ShowSave_DefaultExtIsAddedToANameTypedWithoutOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_DefaultExtWithAPeriodGivesTwoPeriods
+        Expect.EndCase "CDialogDialogTests.ShowSave_DefaultExtWithAPeriodGivesTwoPeriods", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_NoDefaultExtAddsNothing
+        Expect.EndCase "CDialogDialogTests.ShowSave_NoDefaultExtAddsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_OverwritePromptAsksBeforeReplacing
+        Expect.EndCase "CDialogDialogTests.ShowSave_OverwritePromptAsksBeforeReplacing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_NoToTheQuestionLeavesTheDialogOpen
+        Expect.EndCase "CDialogDialogTests.ShowSave_NoToTheQuestionLeavesTheDialogOpen", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_WithoutOverwritePromptReturnsAnExistingName
+        Expect.EndCase "CDialogDialogTests.ShowSave_WithoutOverwritePromptReturnsAnExistingName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowSave_DoesNotCreateTheFile
+        Expect.EndCase "CDialogDialogTests.ShowSave_DoesNotCreateTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowBrowseForFolder_ReturnsTheTypedFolderAndStoresItInInitialDir
+        Expect.EndCase "CDialogDialogTests.ShowBrowseForFolder_ReturnsTheTypedFolderAndStoresItInInitialDir", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowBrowseForFolder_CancelReturnsAnEmptyStringAndKeepsInitialDir
+        Expect.EndCase "CDialogDialogTests.ShowBrowseForFolder_CancelReturnsAnEmptyStringAndKeepsInitialDir", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogDialogTests.ShowBrowseForFolder_OldStyleHasNoEditBox
+        Expect.EndCase "CDialogDialogTests.ShowBrowseForFolder_OldStyleHasNoEditBox", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.Defaults_EveryBooleanIsFalse
+        Expect.EndCase "CDialogExTests.Defaults_EveryBooleanIsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.Defaults_TextsAndNumbers
+        Expect.EndCase "CDialogExTests.Defaults_TextsAndNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.Properties_StoreWhatIsSet
+        Expect.EndCase "CDialogExTests.Properties_StoreWhatIsSet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.Reset_RestoresTheStartingValues
+        Expect.EndCase "CDialogExTests.Reset_RestoresTheStartingValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.GetPresetFilter_ReturnsAPairForAKnownName
+        Expect.EndCase "CDialogExTests.GetPresetFilter_ReturnsAPairForAKnownName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.GetPresetFilter_IgnoresCaseAndSpacesAtTheEnds
+        Expect.EndCase "CDialogExTests.GetPresetFilter_IgnoresCaseAndSpacesAtTheEnds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.GetPresetFilter_DoesNotChangeFilter
+        Expect.EndCase "CDialogExTests.GetPresetFilter_DoesNotChangeFilter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.AddFilter_JoinsPairsWithPipes
+        Expect.EndCase "CDialogExTests.AddFilter_JoinsPairsWithPipes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.AddFilter_BuildsAFilterTheDialogAccepts
+        Expect.EndCase "CDialogExTests.AddFilter_BuildsAFilterTheDialogAccepts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.SetFilters_BuildAFilterTheDialogAccepts
+        Expect.EndCase "CDialogExTests.SetFilters_BuildAFilterTheDialogAccepts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.GetPresetFilter_GivesATextTheDialogAccepts
+        Expect.EndCase "CDialogExTests.GetPresetFilter_GivesATextTheDialogAccepts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.SetCommonFilters_ReplacesTheFilterWithTwoPairs
+        Expect.EndCase "CDialogExTests.SetCommonFilters_ReplacesTheFilterWithTwoPairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.ClearFilter_EmptiesTheFilter
+        Expect.EndCase "CDialogExTests.ClearFilter_EmptiesTheFilter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.PathHelpers_WorkAsThoseOfCDialog
+        Expect.EndCase "CDialogExTests.PathHelpers_WorkAsThoseOfCDialog", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.OpenFile_NonexistentFileReturns2
+        Expect.EndCase "CDialogExTests.OpenFile_NonexistentFileReturns2", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogExTests.SystemIconId_HasTheDocumentedValues
+        Expect.EndCase "CDialogExTests.SystemIconId_HasTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogFindReplaceTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.Enumerations_HaveTheDocumentedValues
+        Expect.EndCase "CDialogFindReplaceTests.Enumerations_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.MessageId_IsTheRegisteredMessageOfTheDialogs
+        Expect.EndCase "CDialogFindReplaceTests.MessageId_IsTheRegisteredMessageOfTheDialogs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.ToDescription_NamesTheSearch
+        Expect.EndCase "CDialogFindReplaceTests.ToDescription_NamesTheSearch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.Reset_RestoresTheSearchSettings
+        Expect.EndCase "CDialogFindReplaceTests.Reset_RestoresTheSearchSettings", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.UpdateFromFlags_SetsTheOptionsAndTheAction
+        Expect.EndCase "CDialogFindReplaceTests.UpdateFromFlags_SetsTheOptionsAndTheAction", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.UpdateFromFlags_DialogTermWinsOverTheOtherActions
+        Expect.EndCase "CDialogFindReplaceTests.UpdateFromFlags_DialogTermWinsOverTheOtherActions", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.UpdateFromFlags_EmptiesBothTextsWhenNoDialogHasFilledTheBuffers
+        Expect.EndCase "CDialogFindReplaceTests.UpdateFromFlags_EmptiesBothTextsWhenNoDialogHasFilledTheBuffers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.ShowFind_WithoutAnOwnerReturnsFalseWithLastErrorFFFF
+        Expect.EndCase "CDialogFindReplaceTests.ShowFind_WithoutAnOwnerReturnsFalseWithLastErrorFFFF", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.ShowFind_FindWhatOf300CharactersRaisesError5
+        Expect.EndCase "CDialogFindReplaceTests.ShowFind_FindWhatOf300CharactersRaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.ShowReplace_ReplaceWithOf300CharactersRaisesError5
+        Expect.EndCase "CDialogFindReplaceTests.ShowReplace_ReplaceWithOf300CharactersRaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFindReplaceTests.FindTextW_WithAModuleLevelStructureDeliversTheMessages
+        Expect.EndCase "CDialogFindReplaceTests.FindTextW_WithAModuleLevelStructureDeliversTheMessages", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogFontTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.Bold_Italic_AreBitsOfStyle
+        Expect.EndCase "CDialogFontTests.Bold_Italic_AreBitsOfStyle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.Italic_AloneGivesStyle2
+        Expect.EndCase "CDialogFontTests.Italic_AloneGivesStyle2", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.Style_HoldsTheNumberAssigned
+        Expect.EndCase "CDialogFontTests.Style_HoldsTheNumberAssigned", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.Size_IgnoresZeroAndNegativeValues
+        Expect.EndCase "CDialogFontTests.Size_IgnoresZeroAndNegativeValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.Color_StoresAnyLong
+        Expect.EndCase "CDialogFontTests.Color_StoresAnyLong", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.Reset_RestoresTheStartingValues
+        Expect.EndCase "CDialogFontTests.Reset_RestoresTheStartingValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ToCssFont_HasTheDocumentedForm
+        Expect.EndCase "CDialogFontTests.ToCssFont_HasTheDocumentedForm", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ToCssFont_LeavesOutStrikeOutAndColor
+        Expect.EndCase "CDialogFontTests.ToCssFont_LeavesOutStrikeOutAndColor", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ToCssFont_EscapesASingleQuoteInTheFaceName
+        Expect.EndCase "CDialogFontTests.ToCssFont_EscapesASingleQuoteInTheFaceName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ToDescription_NamesFaceSizeAndEffects
+        Expect.EndCase "CDialogFontTests.ToDescription_NamesFaceSizeAndEffects", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.Enumerations_HaveTheDocumentedValues
+        Expect.EndCase "CDialogFontTests.Enumerations_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ShowDialog_OKReturnsTrue
+        Expect.EndCase "CDialogFontTests.ShowDialog_OKReturnsTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ShowDialog_CancelReturnsFalseAndKeepsTheProperties
+        Expect.EndCase "CDialogFontTests.ShowDialog_CancelReturnsFalseAndKeepsTheProperties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ShowDialog_MinSizeAloneOpensTheDialog
+        Expect.EndCase "CDialogFontTests.ShowDialog_MinSizeAloneOpensTheDialog", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ShowDialog_MinSizeAboveMaxSizeOpensTheDialogOrRaisesAnError
+        Expect.EndCase "CDialogFontTests.ShowDialog_MinSizeAboveMaxSizeOpensTheDialogOrRaisesAnError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ShowDialog_MinSizeAndMaxSizeOpenTheDialog
+        Expect.EndCase "CDialogFontTests.ShowDialog_MinSizeAndMaxSizeOpenTheDialog", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogFontTests.ShowDialog_MissingFaceWithoutForceFontExistGivesAnEmptyFaceName
+        Expect.EndCase "CDialogFontTests.ShowDialog_MissingFaceWithoutForceFontExistGivesAnEmptyFaceName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogInputBoxTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.Enumerations_HaveTheDocumentedValues
+        Expect.EndCase "CDialogInputBoxTests.Enumerations_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.Reset_RestoresTheStartingValues
+        Expect.EndCase "CDialogInputBoxTests.Reset_RestoresTheStartingValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_MinLengthComesFirstAndCoversTheEmptyText
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_MinLengthComesFirstAndCoversTheEmptyText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_MaxLength
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_MaxLength", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_AllowEmpty
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_AllowEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_NumericAndInteger
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_NumericAndInteger", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_AlphaAndAlphaNumeric
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_AlphaAndAlphaNumeric", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_Email
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_Email", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_PhoneAndURL
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_PhoneAndURL", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_AnEmptyTextPassesTheRulesFromNumericToURL
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_AnEmptyTextPassesTheRulesFromNumericToURL", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_ChangesNothingInTheObject
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_ChangesNothingInTheObject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ValidateInput_CustomChecksTheTextAgainstThePattern
+        Expect.EndCase "CDialogInputBoxTests.ValidateInput_CustomChecksTheTextAgainstThePattern", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.GetValueAsNumber_OfAnEmptyValueIsZero
+        Expect.EndCase "CDialogInputBoxTests.GetValueAsNumber_OfAnEmptyValueIsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.GetValueAsInteger_RoundsTheValue
+        Expect.EndCase "CDialogInputBoxTests.GetValueAsInteger_RoundsTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowDialog_ShowsTheTitleThePromptTheHintAndTheLength
+        Expect.EndCase "CDialogInputBoxTests.ShowDialog_ShowsTheTitleThePromptTheHintAndTheLength", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowDialog_NamesALengthWithOnlyAMinimumOrOnlyAMaximum
+        Expect.EndCase "CDialogInputBoxTests.ShowDialog_NamesALengthWithOnlyAMinimumOrOnlyAMaximum", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowDialog_OKStoresTheValue
+        Expect.EndCase "CDialogInputBoxTests.ShowDialog_OKStoresTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowDialog_CancelEmptiesTheValueAndSetsCancelled
+        Expect.EndCase "CDialogInputBoxTests.ShowDialog_CancelEmptiesTheValueAndSetsCancelled", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowDialog_AnEmptyEntryPassesWhenEmptyIsAllowed
+        Expect.EndCase "CDialogInputBoxTests.ShowDialog_AnEmptyEntryPassesWhenEmptyIsAllowed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowDialog_ARefusedEntryAsksAgainWithTheDefaultValue
+        Expect.EndCase "CDialogInputBoxTests.ShowDialog_ARefusedEntryAsksAgainWithTheDefaultValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowDialog_ThreeRefusedEntriesEndWithMaximumAttemptsAndKeepTheValue
+        Expect.EndCase "CDialogInputBoxTests.ShowDialog_ThreeRefusedEntriesEndWithMaximumAttemptsAndKeepTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.PasswordChar_MasksTheEntry
+        Expect.EndCase "CDialogInputBoxTests.PasswordChar_MasksTheEntry", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.Multiline_GivesAMultilineEditBox
+        Expect.EndCase "CDialogInputBoxTests.Multiline_GivesAMultilineEditBox", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.OwnerHwnd_OwnsTheBox
+        Expect.EndCase "CDialogInputBoxTests.OwnerHwnd_OwnsTheBox", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowSimple_ReturnsTheTextAndSetsTheRules
+        Expect.EndCase "CDialogInputBoxTests.ShowSimple_ReturnsTheTextAndSetsTheRules", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowInteger_ReturnsALongAndAcceptsExponents
+        Expect.EndCase "CDialogInputBoxTests.ShowInteger_ReturnsALongAndAcceptsExponents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowInteger_AValueThatDoesNotFitALongRaisesOverflowAndKeepsTheText
+        Expect.EndCase "CDialogInputBoxTests.ShowInteger_AValueThatDoesNotFitALongRaisesOverflowAndKeepsTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowNumeric_ReturnsADouble
+        Expect.EndCase "CDialogInputBoxTests.ShowNumeric_ReturnsADouble", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowEmail_Phone_URL_SetThePlaceholderAndTheDefault
+        Expect.EndCase "CDialogInputBoxTests.ShowEmail_Phone_URL_SetThePlaceholderAndTheDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogInputBoxTests.ShowSimple_KeepsThePlaceholderOfAnEarlierCall
+        Expect.EndCase "CDialogInputBoxTests.ShowSimple_KeepsThePlaceholderOfAnEarlierCall", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogPageSetupTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.Enumerations_HaveTheDocumentedValues
+        Expect.EndCase "CDialogPageSetupTests.Enumerations_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.Margins_AreStoredWithoutACheck
+        Expect.EndCase "CDialogPageSetupTests.Margins_AreStoredWithoutACheck", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.Unit_Millimeters_KeepsThePropertiesInInches
+        Expect.EndCase "CDialogPageSetupTests.Unit_Millimeters_KeepsThePropertiesInInches", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.GetPrintableHeight_And_Width_SubtractTheMargins
+        Expect.EndCase "CDialogPageSetupTests.GetPrintableHeight_And_Width_SubtractTheMargins", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.SetPaperSizes_SetWidthAndHeight
+        Expect.EndCase "CDialogPageSetupTests.SetPaperSizes_SetWidthAndHeight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.SetMargins_SetAllFour
+        Expect.EndCase "CDialogPageSetupTests.SetMargins_SetAllFour", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.Reset_RestoresTheStartingValuesButNotTheOwner
+        Expect.EndCase "CDialogPageSetupTests.Reset_RestoresTheStartingValuesButNotTheOwner", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.ToDescription_HasTheDocumentedForm
+        Expect.EndCase "CDialogPageSetupTests.ToDescription_HasTheDocumentedForm", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.ToDescription_WithMillimetersWritesMillimeters
+        Expect.EndCase "CDialogPageSetupTests.ToDescription_WithMillimetersWritesMillimeters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.ShowDialog_PaperSizeSetBeforeTheCallIsTheOneTheDialogOpensWith
+        Expect.EndCase "CDialogPageSetupTests.ShowDialog_PaperSizeSetBeforeTheCallIsTheOneTheDialogOpensWith", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.ShowDialog_OrientationSetBeforeTheCallSelectsLandscape
+        Expect.EndCase "CDialogPageSetupTests.ShowDialog_OrientationSetBeforeTheCallSelectsLandscape", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.ShowDialog_OrientationChosenInTheDialogIsReadBack
+        Expect.EndCase "CDialogPageSetupTests.ShowDialog_OrientationChosenInTheDialogIsReadBack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPageSetupTests.ShowDialog_CancelReturnsFalseAndKeepsTheProperties
+        Expect.EndCase "CDialogPageSetupTests.ShowDialog_CancelReturnsFalseAndKeepsTheProperties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogPasswordTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.PasswordChar_KeepsTheFirstCharacterAndAnEmptyTextGivesTheDefault
+        Expect.EndCase "CDialogPasswordTests.PasswordChar_KeepsTheFirstCharacterAndAnEmptyTextGivesTheDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.Reset_RestoresTheStartingValuesButNotTheOwner
+        Expect.EndCase "CDialogPasswordTests.Reset_RestoresTheStartingValuesButNotTheOwner", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.Validate_ChecksInTheDocumentedOrder
+        Expect.EndCase "CDialogPasswordTests.Validate_ChecksInTheDocumentedOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.Validate_RequireSpecialAcceptsThePunctuationOfTheList
+        Expect.EndCase "CDialogPasswordTests.Validate_RequireSpecialAcceptsThePunctuationOfTheList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.Validate_ARuleSwitchedOffIsNotChecked
+        Expect.EndCase "CDialogPasswordTests.Validate_ARuleSwitchedOffIsNotChecked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.GetStrength_AddsPointsForLengthAndKinds
+        Expect.EndCase "CDialogPasswordTests.GetStrength_AddsPointsForLengthAndKinds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.GetStrength_IgnoresTheRulesOfTheObject
+        Expect.EndCase "CDialogPasswordTests.GetStrength_IgnoresTheRulesOfTheObject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.GetStrength_TheBestPasswordIsVeryStrong
+        Expect.EndCase "CDialogPasswordTests.GetStrength_TheBestPasswordIsVeryStrong", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.GetStrengthDescription_NamesEachStrength
+        Expect.EndCase "CDialogPasswordTests.GetStrengthDescription_NamesEachStrength", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.GetRequirementsDescription_ListsTheRules
+        Expect.EndCase "CDialogPasswordTests.GetRequirementsDescription_ListsTheRules", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_TheFirstBoxIsMaskedAndNamesTheRequirements
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_TheFirstBoxIsMaskedAndNamesTheRequirements", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_PasswordCharIsUsedForTheMask
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_PasswordCharIsUsedForTheMask", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_AGoodPasswordIsStored
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_AGoodPasswordIsStored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_ARefusedPasswordShowsTheReasonAndTheAttemptsLeft
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_ARefusedPasswordShowsTheReasonAndTheAttemptsLeft", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_ThreeRefusedPasswordsEndTheCallAndKeepThePassword
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_ThreeRefusedPasswordsEndTheCallAndKeepThePassword", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_MaxAttemptsOfZeroShowsNothing
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_MaxAttemptsOfZeroShowsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_RequireConfirmAsksAgainInASecondBox
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_RequireConfirmAsksAgainInASecondBox", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_ADifferentConfirmationCountsAsAFailedAttempt
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_ADifferentConfirmationCountsAsAFailedAttempt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowDialog_TheConfirmationBoxIsMasked
+        Expect.EndCase "CDialogPasswordTests.ShowDialog_TheConfirmationBoxIsMasked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowChangeDialog_AsksForTheCurrentTheNewAndTheConfirmation
+        Expect.EndCase "CDialogPasswordTests.ShowChangeDialog_AsksForTheCurrentTheNewAndTheConfirmation", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowChangeDialog_AWrongCurrentPasswordStopsTheCall
+        Expect.EndCase "CDialogPasswordTests.ShowChangeDialog_AWrongCurrentPasswordStopsTheCall", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowChangeDialog_ANewPasswordEqualToTheCurrentOneStopsTheCall
+        Expect.EndCase "CDialogPasswordTests.ShowChangeDialog_ANewPasswordEqualToTheCurrentOneStopsTheCall", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowChangeDialog_ADifferentConfirmationStopsTheCall
+        Expect.EndCase "CDialogPasswordTests.ShowChangeDialog_ADifferentConfirmationStopsTheCall", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowChangeDialog_CancellingABoxSetsCancelled
+        Expect.EndCase "CDialogPasswordTests.ShowChangeDialog_CancellingABoxSetsCancelled", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowChangeDialog_TheThreeBoxesAreMasked
+        Expect.EndCase "CDialogPasswordTests.ShowChangeDialog_TheThreeBoxesAreMasked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.OwnerHwnd_OwnsTheBoxes
+        Expect.EndCase "CDialogPasswordTests.OwnerHwnd_OwnsTheBoxes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.ShowStrength_ShowsAStrengthIndicator
+        Expect.EndCase "CDialogPasswordTests.ShowStrength_ShowsAStrengthIndicator", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.AllowShowPassword_ShowsAControlThatRevealsThePassword
+        Expect.EndCase "CDialogPasswordTests.AllowShowPassword_ShowsAControlThatRevealsThePassword", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPasswordTests.Password_StaysInTheObjectUntilReset
+        Expect.EndCase "CDialogPasswordTests.Password_StaysInTheObjectUntilReset", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogPrintTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.Copies_IgnoresZeroAndNegativeValues
+        Expect.EndCase "CDialogPrintTests.Copies_IgnoresZeroAndNegativeValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.ToDescription_NamesRangeCopiesAndOptions
+        Expect.EndCase "CDialogPrintTests.ToDescription_NamesRangeCopiesAndOptions", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.Reset_RestoresTheStartingValues
+        Expect.EndCase "CDialogPrintTests.Reset_RestoresTheStartingValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.ShowDialog_FromPageAbove32767RaisesOverflowBeforeTheDialog
+        Expect.EndCase "CDialogPrintTests.ShowDialog_FromPageAbove32767RaisesOverflowBeforeTheDialog", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.ShowDialog_ToPageAbove32767RaisesOverflow
+        Expect.EndCase "CDialogPrintTests.ShowDialog_ToPageAbove32767RaisesOverflow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.ShowDialog_MinPageAbove32767RaisesOverflow
+        Expect.EndCase "CDialogPrintTests.ShowDialog_MinPageAbove32767RaisesOverflow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.ShowDialog_MaxPageAbove32767RaisesOverflow
+        Expect.EndCase "CDialogPrintTests.ShowDialog_MaxPageAbove32767RaisesOverflow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.ShowDialog_CopiesAbove32767RaisesOverflow
+        Expect.EndCase "CDialogPrintTests.ShowDialog_CopiesAbove32767RaisesOverflow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.ShowDialog_CancelReturnsFalseAndSetsCancelled
+        Expect.EndCase "CDialogPrintTests.ShowDialog_CancelReturnsFalseAndSetsCancelled", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPrintTests.ShowDialog_OKReturnsTrueAndClearsCancelled
+        Expect.EndCase "CDialogPrintTests.ShowDialog_OKReturnsTrueAndClearsCancelled", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Defaults_AreThoseOfThePage
+        Expect.EndCase "CDialogProgressTests.Defaults_AreThoseOfThePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Enumeration_HasTheDocumentedValues
+        Expect.EndCase "CDialogProgressTests.Enumeration_HasTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Progress_IgnoresAValueOutsideTheRange
+        Expect.EndCase "CDialogProgressTests.Progress_IgnoresAValueOutsideTheRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.MaxAndMin_DoNotMoveProgress
+        Expect.EndCase "CDialogProgressTests.MaxAndMin_DoNotMoveProgress", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Percentage_IsTheShareOfTheRangeRoundedDown
+        Expect.EndCase "CDialogProgressTests.Percentage_IsTheShareOfTheRangeRoundedDown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Start_SetsProgressToMinAndClearsCancelled
+        Expect.EndCase "CDialogProgressTests.Start_SetsProgressToMinAndClearsCancelled", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Increment_AddsStepAndIgnoresAValueAboveMax
+        Expect.EndCase "CDialogProgressTests.Increment_AddsStepAndIgnoresAValueAboveMax", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Increment_ANegativeStepCanGoBelowMin
+        Expect.EndCase "CDialogProgressTests.Increment_ANegativeStepCanGoBelowMin", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.PerformStep_IsTheSameAsIncrement
+        Expect.EndCase "CDialogProgressTests.PerformStep_IsTheSameAsIncrement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.SetPercentage_MovesToAPercentageOfTheRange
+        Expect.EndCase "CDialogProgressTests.SetPercentage_MovesToAPercentageOfTheRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Complete_MovesToMax
+        Expect.EndCase "CDialogProgressTests.Complete_MovesToMax", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Cancel_SetsCancelledAndNothingStops
+        Expect.EndCase "CDialogProgressTests.Cancel_SetsCancelledAndNothingStops", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Reset_RestoresTheStartingValuesButNotTheOwner
+        Expect.EndCase "CDialogProgressTests.Reset_RestoresTheStartingValuesButNotTheOwner", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.GetDescription_ProgressBarAddsThePercentageAndTheTimes
+        Expect.EndCase "CDialogProgressTests.GetDescription_ProgressBarAddsThePercentageAndTheTimes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.GetDescription_MarqueeAndStepsGiveTheMessageAlone
+        Expect.EndCase "CDialogProgressTests.GetDescription_MarqueeAndStepsGiveTheMessageAlone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.TimeFunctions_BeforeStartGiveZero
+        Expect.EndCase "CDialogProgressTests.TimeFunctions_BeforeStartGiveZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.GetElapsedTime_CountsWholeSecondsSinceStart
+        Expect.EndCase "CDialogProgressTests.GetElapsedTime_CountsWholeSecondsSinceStart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.GetRemainingTime_EstimatesFromTheSpeedSoFar
+        Expect.EndCase "CDialogProgressTests.GetRemainingTime_EstimatesFromTheSpeedSoFar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Events_ProgressChangedIsRaisedForEachMove
+        Expect.EndCase "CDialogProgressTests.Events_ProgressChangedIsRaisedForEachMove", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Events_ProgressChangedIsRaisedAlsoForTheSameValue
+        Expect.EndCase "CDialogProgressTests.Events_ProgressChangedIsRaisedAlsoForTheSameValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Events_ResetAndStartRaiseNothing
+        Expect.EndCase "CDialogProgressTests.Events_ResetAndStartRaiseNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Events_CancelRaisesCancelClickedEachTimeWithCancelledSet
+        Expect.EndCase "CDialogProgressTests.Events_CancelRaisesCancelClickedEachTimeWithCancelledSet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Events_SetPercentageRaisesAnEventForAPercentageInsideTheRange
+        Expect.EndCase "CDialogProgressTests.Events_SetPercentageRaisesAnEventForAPercentageInsideTheRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.SimulateProgress_RunsFromMinToMaxAndCompletes
+        Expect.EndCase "CDialogProgressTests.SimulateProgress_RunsFromMinToMaxAndCompletes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.SimulateProgress_ACancelInTheHandlerStopsTheLoop
+        Expect.EndCase "CDialogProgressTests.SimulateProgress_ACancelInTheHandlerStopsTheLoop", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.GetRemainingTime_JustAfterStartDoesNotDivideByZero
+        Expect.EndCase "CDialogProgressTests.GetRemainingTime_JustAfterStartDoesNotDivideByZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.GetRemainingTime_JustAfterStartRaisesError11
+        Expect.EndCase "CDialogProgressTests.GetRemainingTime_JustAfterStartRaisesError11", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.GetDescription_JustAfterStartDoesNotDivideByZero
+        Expect.EndCase "CDialogProgressTests.GetDescription_JustAfterStartDoesNotDivideByZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.SimulateProgress_WithADelayOfZeroDoesNotDivideByZero
+        Expect.EndCase "CDialogProgressTests.SimulateProgress_WithADelayOfZeroDoesNotDivideByZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Percentage_OfAWideRangeDoesNotOverflow
+        Expect.EndCase "CDialogProgressTests.Percentage_OfAWideRangeDoesNotOverflow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.SetPercentage_OnAWideRangeDoesNotOverflow
+        Expect.EndCase "CDialogProgressTests.SetPercentage_OnAWideRangeDoesNotOverflow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogProgressTests.Percentage_UpTo21MillionUnitsWorks
+        Expect.EndCase "CDialogProgressTests.Percentage_UpTo21MillionUnitsWorks", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.Defaults_Texts
+        Expect.EndCase "CDialogPropertyTests.Defaults_Texts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.Defaults_FalseFlags
+        Expect.EndCase "CDialogPropertyTests.Defaults_FalseFlags", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.Defaults_TrueFlags
+        Expect.EndCase "CDialogPropertyTests.Defaults_TrueFlags", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.Properties_StoreWhatIsSet
+        Expect.EndCase "CDialogPropertyTests.Properties_StoreWhatIsSet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.Reset_RestoresTheStartingValues
+        Expect.EndCase "CDialogPropertyTests.Reset_RestoresTheStartingValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.AddFilter_JoinsPairsWithPipes
+        Expect.EndCase "CDialogPropertyTests.AddFilter_JoinsPairsWithPipes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.AddFilter_PipeInArgumentAddsAnElement
+        Expect.EndCase "CDialogPropertyTests.AddFilter_PipeInArgumentAddsAnElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.ClearFilter_EmptiesTheFilter
+        Expect.EndCase "CDialogPropertyTests.ClearFilter_EmptiesTheFilter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.SetCommonFilters_ReplacesTheFilter
+        Expect.EndCase "CDialogPropertyTests.SetCommonFilters_ReplacesTheFilter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.SetCodeFilters_HasNinePairs
+        Expect.EndCase "CDialogPropertyTests.SetCodeFilters_HasNinePairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.SetDocumentFilters_HasSixPairs
+        Expect.EndCase "CDialogPropertyTests.SetDocumentFilters_HasSixPairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.SetImageFilters_HasSixPairs
+        Expect.EndCase "CDialogPropertyTests.SetImageFilters_HasSixPairs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.GetFileExtension_ReturnsThePartFromTheLastPeriod
+        Expect.EndCase "CDialogPropertyTests.GetFileExtension_ReturnsThePartFromTheLastPeriod", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.GetFileExtension_PeriodInAFolderNameIsTakenForAnExtension
+        Expect.EndCase "CDialogPropertyTests.GetFileExtension_PeriodInAFolderNameIsTakenForAnExtension", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.GetFileName_ReturnsThePartAfterTheLastBackslash
+        Expect.EndCase "CDialogPropertyTests.GetFileName_ReturnsThePartAfterTheLastBackslash", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.GetFileNameWithoutExt_RemovesTheLastExtension
+        Expect.EndCase "CDialogPropertyTests.GetFileNameWithoutExt_RemovesTheLastExtension", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.GetFilePath_ReturnsThePartBeforeTheLastBackslash
+        Expect.EndCase "CDialogPropertyTests.GetFilePath_ReturnsThePartBeforeTheLastBackslash", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.PathCombine_JoinsWithOneBackslash
+        Expect.EndCase "CDialogPropertyTests.PathCombine_JoinsWithOneBackslash", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.OpenFile_NonexistentFileReturns2
+        Expect.EndCase "CDialogPropertyTests.OpenFile_NonexistentFileReturns2", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.ShowSave_FileNameOf261CharactersRaisesError5
+        Expect.EndCase "CDialogPropertyTests.ShowSave_FileNameOf261CharactersRaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.ShowSave_FileNameOf260CharactersShowsNoDialog
+        Expect.EndCase "CDialogPropertyTests.ShowSave_FileNameOf260CharactersShowsNoDialog", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CDialogPropertyTests.ShowSave_FileNameOf259CharactersOpensTheDialog
+        Expect.EndCase "CDialogPropertyTests.ShowSave_FileNameOf259CharactersOpensTheDialog", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.InchesToMM_MultipliesBy25Point4
+        Expect.EndCase "MDialogTests.InchesToMM_MultipliesBy25Point4", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.MMToInches_DividesBy25Point4
+        Expect.EndCase "MDialogTests.MMToInches_DividesBy25Point4", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.InchesToPoints_And_PointsToInches
+        Expect.EndCase "MDialogTests.InchesToPoints_And_PointsToInches", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.InchesToTwips_RoundsToTheNearestWholeNumber
+        Expect.EndCase "MDialogTests.InchesToTwips_RoundsToTheNearestWholeNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.TwipsToInches_DividesBy1440
+        Expect.EndCase "MDialogTests.TwipsToInches_DividesBy1440", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.Constants_HaveTheDocumentedValues
+        Expect.EndCase "MDialogTests.Constants_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.RGBToHtml_WritesSixUpperCaseDigits
+        Expect.EndCase "MDialogTests.RGBToHtml_WritesSixUpperCaseDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.RGBToHtml_WrapsAValueOutsideZeroTo255
+        Expect.EndCase "MDialogTests.RGBToHtml_WrapsAValueOutsideZeroTo255", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.HtmlToRGB_ReadsSixDigitsWithOrWithoutAHash
+        Expect.EndCase "MDialogTests.HtmlToRGB_ReadsSixDigitsWithOrWithoutAHash", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.HtmlToRGB_AnyOtherTextGivesBlack
+        Expect.EndCase "MDialogTests.HtmlToRGB_AnyOtherTextGivesBlack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.HtmlToRGB_ASpaceInsideSixCharactersIsNotAlwaysRejected
+        Expect.EndCase "MDialogTests.HtmlToRGB_ASpaceInsideSixCharactersIsNotAlwaysRejected", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.Types_HaveTheDocumentedSizes
+        Expect.EndCase "MDialogTests.Types_HaveTheDocumentedSizes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MDialogTests.MembersAreGlobalAndCanBeQualifiedWithTheModuleName
+        Expect.EndCase "MDialogTests.MembersAreGlobalAndCanBeQualifiedWithTheModuleName", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/compile/CompileTests.twin b/test/package-tests/TBMANLIB_Dialog/compile/CompileTests.twin
new file mode 100644
index 00000000..9e2053e4
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/compile/CompileTests.twin
@@ -0,0 +1,32 @@
+' TBMANLIB_Dialog: what the compiler refuses. Each line ends in a comment ' CASE <Name>: <code>.
+Module CompileTests
+
+    Public Sub Types_GuidAloneIsAnotherType()
+        Dim g As GUID ' CASE GuidWithoutTheModuleName: TB5106
+    End Sub
+
+    Public Sub Enums_QualifiedByTheClass()
+        Dim a As Long = cDialogFont.FontStyle.StyleBold ' CASE FontStyleQualifiedByTheClass: TB5079
+        Dim b As Long = cDialogFindReplace.FindAction.FindNext ' CASE FindActionQualifiedByTheClass: TB5079
+        Dim c As Long = cDialogPrint.PrintRange.Selection ' CASE PrintRangeQualifiedByTheClass: TB5079
+        Dim d As Long = cDialogPageSetup.PaperOrientation.Landscape ' CASE PaperOrientationQualifiedByTheClass: TB5079
+    End Sub
+
+    Public Sub CDialog_HasNoFlagsFilterIndexCancelErrorFileTitleOrMaxFileSize()
+        Dim dlg As New cDialog
+        dlg.Flags = 1 ' CASE CDialogHasNoFlags: error
+        dlg.FilterIndex = 1 ' CASE CDialogHasNoFilterIndex: error
+        dlg.CancelError = True ' CASE CDialogHasNoCancelError: error
+        Dim t As String = dlg.FileTitle ' CASE CDialogHasNoFileTitle: error
+        dlg.MaxFileSize = 100 ' CASE CDialogHasNoMaxFileSize: error
+        dlg.OwnerHwnd = 0 ' CASE CDialogHasNoOwnerWindow: error
+    End Sub
+
+    Public Sub CDialogEx_HasNoNewDialogStyleHideReadOnlyOrReadOnly()
+        Dim dlg As New cDialogEx
+        dlg.NewDialogStyle = True ' CASE CDialogExHasNoNewDialogStyle: error
+        dlg.HideReadOnly = True ' CASE CDialogExHasNoHideReadOnly: error
+        dlg.ReadOnly = True ' CASE CDialogExHasNoReadOnly: error
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Dialog/expect.json b/test/package-tests/TBMANLIB_Dialog/expect.json
new file mode 100644
index 00000000..7e4096d5
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Dialog/expect.json
@@ -0,0 +1,125 @@
+{
+  "version": "1.1.0.0",
+  "cases": {
+    "CDialogCountdownMsgBoxTests.ShowInfo_TimeoutReportsTimeout": {
+      "fails": "2 of 2 checks failed: ShowInfo that ran out of time: expected 32000, got 1; IsTimedOut after that ShowInfo: expected True, got False"
+    },
+    "CDialogCountdownMsgBoxTests.ShowWarning_TimeoutReportsTimeout": {
+      "fails": "1 of 1 checks failed: ShowWarning that ran out of time: expected 32000, got 1"
+    },
+    "CDialogCountdownMsgBoxTests.ShowError_TimeoutReportsTimeout": {
+      "fails": "1 of 1 checks failed: ShowError that ran out of time: expected 32000, got 1"
+    },
+    "CDialogCountdownMsgBoxTests.ShowDialog_TimeoutOfTheDefaultBoxReportsTimeout": {
+      "fails": "1 of 1 checks failed: ShowDialog of the default box that ran out of time: expected 32000, got 1"
+    },
+    "CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMarchKeepsTheName": {
+      "fails": "1 of 1 checks failed: FormatDate(Custom) of MMMM D, YYYY for March: expected \"March 15, 2026\", got \"3arch 15, 2026\""
+    },
+    "CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfMayKeepsTheName": {
+      "fails": "1 of 1 checks failed: FormatDate(Custom) of MMMM D, YYYY for May: expected \"May 15, 2026\", got \"5ay 15, 2026\""
+    },
+    "CDialogDateTimeTests.FormatDate_CustomWithAMonthNameOfDecemberKeepsTheName": {
+      "fails": "1 of 1 checks failed: FormatDate(Custom) of MMMM D, YYYY for December: expected \"December 15, 2026\", got \"15ecember 15, 2026\""
+    },
+    "CDialogDateTimeTests.FormatDate_CustomWithAShortMonthNameOfMarchKeepsTheName": {
+      "fails": "1 of 2 checks failed: FormatDate(Custom) of MMM D for March: expected \"Mar 15\", got \"3ar 15\""
+    },
+    "CDialogDateTimeTests.ShowDialog_ARefusedMonthAndDayLeaveTheObjectAsItWas": {
+      "fails": "1 of 1 checks failed: DateTimeValue after the refused entry 13/45/2026 (Month is 13, Day is 45): expected \"2026-03-15 14:05:09\", got \"2027-02-14 14:05:09\""
+    },
+    "CDialogDateTimeTests.ShowDialog_AFebruary30LeavesTheObjectAsItWas": {
+      "fails": "1 of 1 checks failed: Day after the refused entry 02/30/2026 (the month is 2): expected 15, got 30"
+    },
+    "CDialogDateTimeTests.ShowDialog_ARefusedTimeLeavesTheObjectAsItWas": {
+      "fails": "1 of 1 checks failed: time after the refused entry 25:61 (Hour is 25, Minute is 61): expected \"14:05\", got \"02:01\""
+    },
+    "CDialogDateTimeTests.ShowDialog_ARefusedTimeAfterAGoodDateLeavesTheObjectAsItWas": {
+      "fails": "1 of 1 checks failed: DateTimeValue after the refused entry 04/05/2027 25:00 (Hour is 25): expected \"2026-03-15 14:05:09\", got \"2027-04-06 01:00:09\""
+    },
+    "CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoDateIsRead": {
+      "fails": "2 of 2 checks failed: ShowTimePicker after the entry 9:30 PM: expected True, got False; time after the entry 9:30 PM: expected \"21:30\", got \"14:05\""
+    },
+    "CDialogDateTimeTests.ShowTimePicker_TheOfferedTextOfThe12HourClockIsAccepted": {
+      "fails": "1 of 2 checks failed: ShowTimePicker after OK on the offered text 02:05 PM: expected True, got False"
+    },
+    "CDialogDateTimeTests.ShowTimePicker_ATimeWithPmAndNoSpaceIsReadAsTheMinutesTyped": {
+      "fails": "1 of 1 checks failed: time after the entry 9:30pm: expected \"21:30\", got \"21:03\""
+    },
+    "CDialogExTests.AddFilter_BuildsAFilterTheDialogAccepts": {
+      "fails": "1 of 1 checks failed: pipes in the filter of two pairs built with AddFilter (the dialog needs an even number): Text (*.txt)|*.txt|All (*.*)|*.*: expected 0, got 1"
+    },
+    "CDialogExTests.SetFilters_BuildAFilterTheDialogAccepts": {
+      "fails": "4 of 4 checks failed: pipes in the filter after SetCommonFilters (the dialog needs an even number): Text Files (*.txt)|*.txt|All Files (*.*)|*.*: expected 0, got 1; pipes in the filter after SetCodeFilters: expected 0, got 1; pipes in the filter after SetDocumentFilters: expected 0, got 1; pipes in the filter after SetImageFilters: expected 0, got 1"
+    },
+    "CDialogExTests.GetPresetFilter_GivesATextTheDialogAccepts": {
+      "fails": "1 of 1 checks failed: pipes in a Filter set to the text of GetPresetFilter (the dialog needs an even number): Text Files|*.txt: expected 0, got 1"
+    },
+    "CDialogFontTests.ToCssFont_EscapesASingleQuoteInTheFaceName": {
+      "fails": "1 of 1 checks failed: ToCssFont of a face name with a single quote: expected \"font-family: 'O\\'Brien'; font-size: 9pt; font-weight: normal; font-style: normal; text-decoration: none;\", got \"font-family: 'O'Brien'; font-size: 9pt; font-weight: normal; font-style: normal; text-decoration: none;\""
+    },
+    "CDialogFontTests.ShowDialog_MinSizeAloneOpensTheDialog": {
+      "fails": "1 of 1 checks failed: dialogs ShowDialog opened with MinSize 8 and MaxSize 0: expected 1, got 0"
+    },
+    "CDialogFontTests.ShowDialog_MinSizeAboveMaxSizeOpensTheDialogOrRaisesAnError": {
+      "fails": "1 of 1 checks failed: a MinSize of 20 above a MaxSize of 10 opens the dialog or raises an error, not a silent False: expected True, got False"
+    },
+    "CDialogInputBoxTests.ValidateInput_CustomChecksTheTextAgainstThePattern": {
+      "fails": "1 of 2 checks failed: ValidateInput of letters only against the pattern [0-9]+: expected \"Input does not match required format\", got \"\""
+    },
+    "CDialogInputBoxTests.PasswordChar_MasksTheEntry": {
+      "fails": "1 of 1 checks failed: password character of the edit box with PasswordChar *: expected True, got False"
+    },
+    "CDialogInputBoxTests.Multiline_GivesAMultilineEditBox": {
+      "fails": "1 of 1 checks failed: edit box of a box with Multiline True is multiline: expected True, got False"
+    },
+    "CDialogInputBoxTests.OwnerHwnd_OwnsTheBox": {
+      "fails": "1 of 1 checks failed: the box is owned by the window set in OwnerHwnd: expected True, got False"
+    },
+    "CDialogPageSetupTests.ToDescription_WithMillimetersWritesMillimeters": {
+      "fails": "1 of 1 checks failed: ToDescription of a new page with Unit Millimeters: expected \"Paper: 215.90 x 279.40 mm, Portrait, Margins: 25.40/25.40/25.40/25.40 mm\", got \"Paper: 8.50 x 11.00 mm, Portrait, Margins: 1.00/1.00/1.00/1.00 mm\""
+    },
+    "CDialogPageSetupTests.ShowDialog_PaperSizeSetBeforeTheCallIsTheOneTheDialogOpensWith": {
+      "fails": "1 of 4 checks failed: PaperHeight after OK on a dialog that was opened with SetLegalSize: expected 14, got 11"
+    },
+    "CDialogPageSetupTests.ShowDialog_OrientationSetBeforeTheCallSelectsLandscape": {
+      "fails": "1 of 2 checks failed: paper after OK on a dialog that was opened with Orientation Landscape: 8.5 x 11: expected True, got False"
+    },
+    "CDialogPageSetupTests.ShowDialog_OrientationChosenInTheDialogIsReadBack": {
+      "fails": "1 of 3 checks failed: Orientation after Landscape was chosen in the dialog: expected 2, got 1"
+    },
+    "CDialogPasswordTests.GetStrength_TheBestPasswordIsVeryStrong": {
+      "fails": "1 of 1 checks failed: strength of a password of 21 characters with every kind of character: expected 4, got 3"
+    },
+    "CDialogPasswordTests.ShowDialog_TheConfirmationBoxIsMasked": {
+      "fails": "1 of 3 checks failed: password character of the confirmation box: expected 42, got 0"
+    },
+    "CDialogPasswordTests.ShowChangeDialog_TheThreeBoxesAreMasked": {
+      "fails": "3 of 4 checks failed: password character of the box for the current password: expected 42, got 0; password character of the box for the new password: expected 42, got 0; password character of the box for the confirmation: expected 42, got 0"
+    },
+    "CDialogPasswordTests.OwnerHwnd_OwnsTheBoxes": {
+      "fails": "1 of 1 checks failed: the box is owned by the window set in OwnerHwnd: expected True, got False"
+    },
+    "CDialogPasswordTests.ShowStrength_ShowsAStrengthIndicator": {
+      "fails": "1 of 1 checks failed: the box has a strength indicator: |Static|Edit|Button|Button|: expected True, got False"
+    },
+    "CDialogPasswordTests.AllowShowPassword_ShowsAControlThatRevealsThePassword": {
+      "fails": "1 of 1 checks failed: the box has a control that shows the password; its buttons are: OK/Cancel: expected True, got False"
+    },
+    "CDialogProgressTests.GetRemainingTime_JustAfterStartDoesNotDivideByZero": {
+      "fails": "1 of 1 checks failed: GetRemainingTime calls out of 20 made at once after Start that raised an error: expected 0, got 20"
+    },
+    "CDialogProgressTests.GetDescription_JustAfterStartDoesNotDivideByZero": {
+      "fails": "1 of 1 checks failed: GetDescription calls out of 20 made at once after Start that raised an error: expected 0, got 20"
+    },
+    "CDialogProgressTests.SimulateProgress_WithADelayOfZeroDoesNotDivideByZero": {
+      "fails": "1 of 1 checks failed: error SimulateProgress raised with a delay of 0: expected 0, got 11"
+    },
+    "CDialogProgressTests.Percentage_OfAWideRangeDoesNotOverflow": {
+      "fails": "2 of 2 checks failed: error Percentage raised for a position of 50,000,000 in 0 to 100,000,000: expected 0, got 6; Percentage of a position of 50,000,000 in 0 to 100,000,000: expected 50, got 0"
+    },
+    "CDialogProgressTests.SetPercentage_OnAWideRangeDoesNotOverflow": {
+      "fails": "2 of 2 checks failed: error SetPercentage 50 raised for a range of 0 to 100,000,000: expected 0, got 6; Progress after SetPercentage 50 in 0 to 100,000,000: expected 50000000, got 0"
+    }
+  }
+}
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/HostForm.tbform b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/HostForm.tbform
new file mode 100644
index 00000000..fc6c13c3
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/HostForm.tbform
@@ -0,0 +1,40 @@
+[
+	{
+		"Caption": "HostForm",
+		"FormDesignerId": "{7B247400-0000-4000-9000-7B2474000F10}",
+		"Height": 300,
+		"Name": "HostForm",
+		"Width": 300,
+		"_children": [
+			{
+				"Height": 100,
+				"Left": 20,
+				"Name": "List1",
+				"Top": 10,
+				"Width": 150,
+				"_className": "ListBox",
+				"_clsid": "{33AD4F10-6699-11CF-B70C-00AA0060D393}"
+			},
+			{
+				"Height": 100,
+				"Left": 20,
+				"Name": "List2",
+				"Top": 120,
+				"Width": 150,
+				"_className": "ListBox",
+				"_clsid": "{33AD4F10-6699-11CF-B70C-00AA0060D393}"
+			},
+			{
+				"Height": 20,
+				"Left": 180,
+				"Name": "Text1",
+				"Top": 10,
+				"Width": 100,
+				"_className": "TextBox",
+				"_clsid": "{33AD4EE0-6699-11CF-B70C-00AA0060D393}"
+			}
+		],
+		"_className": "Form",
+		"_clsid": "{33AD4F38-6699-11CF-B70C-00AA0060D393}"
+	}
+]
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/HostForm.twin b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/HostForm.twin
new file mode 100644
index 00000000..9cddbe0e
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/HostForm.twin
@@ -0,0 +1,9 @@
+' HostForm: a form that is loaded and never shown. It holds two list boxes and a text box, the
+' controls the test cases pass to cListboxHScroll.
+
+[Description("")]
+[FormDesignerId("7B247400-0000-4000-9000-7B2474000F10")]
+[PredeclaredId]
+Class HostForm
+
+End Class
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/Rig.twin b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/Rig.twin
new file mode 100644
index 00000000..dc9f77b4
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/Rig.twin
@@ -0,0 +1,53 @@
+' Rig: what the test cases of TBMANLIB_ListBoxHScroll set up. A case works on the list boxes of a
+' HostForm, which is loaded and never shown, so no window appears on the desktop.
+Module Rig
+
+    ' An item much wider than the list box (about 1,000 pixels against about 220).
+    Public Const WideItem As String = "a much longer item than the first one, which goes on and on and on and on and on and on and on, 1234567890 abcdefghijklmnopqrstuvwxyz"
+
+    ' A loaded form, not shown.
+    Public Function NewForm() As HostForm
+        Dim f As New HostForm
+        Load f
+        Set NewForm = f
+    End Function
+
+    ' The wide item first and three short ones below it, so that what the list draws near its left
+    ' edge keeps changing as it scrolls.
+    Public Sub FillWide(ByVal Box As Object)
+        Box.AddItem WideItem
+        Box.AddItem "short"
+        Box.AddItem "short"
+        Box.AddItem "short"
+    End Sub
+
+    ' The width in pixels of the widest item of the list, in the list's own font.
+    Public Function WidestItem(ByVal Box As Object) As Long
+        Dim i As Long
+        Dim w As Long
+        For i = 0 To Box.ListCount - 1
+            w = Win.TextWidth(Box.hWnd, Box.List(i))
+            If w > WidestItem Then WidestItem = w
+        Next
+    End Function
+
+    ' Whether the list draws its contents where its scroll bar thumb says they are: the picture of
+    ' the list as it is must equal the picture after scrolling to the start and then to the
+    ' thumb's position. Returns "" when it does, else a description.
+    Public Function ContentsFollowThumb(ByVal Box As Object) As String
+        Dim thumb As Long
+        thumb = Win.HPos(Box.hWnd)
+        Dim now() As Byte
+        now = Win.Capture(Box.hWnd)
+        Win.HScroll Box.hWnd, Win.SB_LEFT
+        Win.HScroll Box.hWnd, Win.SB_THUMBPOSITION, thumb
+        Dim there() As Byte
+        there = Win.Capture(Box.hWnd)
+        If Win.HPos(Box.hWnd) <> thumb Then
+            ContentsFollowThumb = "scrolling to " & thumb & " left the thumb at " & Win.HPos(Box.hWnd)
+        ElseIf Not Win.SameBits(now, there) Then
+            ContentsFollowThumb = "the thumb is at " & thumb & " but the contents are not scrolled to " & thumb
+        End If
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/RunAll.twin b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/RunAll.twin
new file mode 100644
index 00000000..93aeee62
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/RunAll.twin
@@ -0,0 +1,166 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB_ListBoxHScroll, version 1.0.0.1. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB_ListBoxHScroll 1.0.0.1: 38 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.LineRight_MovesThumb20
+        Expect.EndCase "ScrollTests.LineRight_MovesThumb20", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.LineLeft_MovesThumb20
+        Expect.EndCase "ScrollTests.LineLeft_MovesThumb20", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.LineLeft_StopsAtStart
+        Expect.EndCase "ScrollTests.LineLeft_StopsAtStart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.PageRight_MovesThumbOnePage
+        Expect.EndCase "ScrollTests.PageRight_MovesThumbOnePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.PageRight_StopsAtEnd
+        Expect.EndCase "ScrollTests.PageRight_StopsAtEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.PageLeft_MovesThumbOnePage
+        Expect.EndCase "ScrollTests.PageLeft_MovesThumbOnePage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.Right_MovesThumbToEnd
+        Expect.EndCase "ScrollTests.Right_MovesThumbToEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.Left_MovesThumbToStart
+        Expect.EndCase "ScrollTests.Left_MovesThumbToStart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.ThumbPosition_MovesThumbToPosition
+        Expect.EndCase "ScrollTests.ThumbPosition_MovesThumbToPosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.ThumbTrack_MovesThumbToPosition
+        Expect.EndCase "ScrollTests.ThumbTrack_MovesThumbToPosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.ThumbPosition_StopsAtEnd
+        Expect.EndCase "ScrollTests.ThumbPosition_StopsAtEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.EndScroll_LeavesThumb
+        Expect.EndCase "ScrollTests.EndScroll_LeavesThumb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.LineRight_ContentsFollowThumb
+        Expect.EndCase "ScrollTests.LineRight_ContentsFollowThumb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.LineLeft_ContentsFollowThumb
+        Expect.EndCase "ScrollTests.LineLeft_ContentsFollowThumb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.PageRight_ContentsFollowThumb
+        Expect.EndCase "ScrollTests.PageRight_ContentsFollowThumb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.PageLeft_ContentsFollowThumb
+        Expect.EndCase "ScrollTests.PageLeft_ContentsFollowThumb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.Right_ContentsFollowThumb
+        Expect.EndCase "ScrollTests.Right_ContentsFollowThumb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ScrollTests.ThumbTrack_ContentsFollowThumb
+        Expect.EndCase "ScrollTests.ThumbTrack_ContentsFollowThumb", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_ExtentIsWidestItemPlus10
+        Expect.EndCase "ShowTests.Show_ExtentIsWidestItemPlus10", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_ExtentUsesControlFont
+        Expect.EndCase "ShowTests.Show_ExtentUsesControlFont", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_SetsScrollRange
+        Expect.EndCase "ShowTests.Show_SetsScrollRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_ListScrollsHorizontally
+        Expect.EndCase "ShowTests.Show_ListScrollsHorizontally", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_ShowsHorizontalScrollBar
+        Expect.EndCase "ShowTests.Show_ShowsHorizontalScrollBar", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_EmptyListSetsNoExtent
+        Expect.EndCase "ShowTests.Show_EmptyListSetsNoExtent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_EmptyItemsSetNoExtent
+        Expect.EndCase "ShowTests.Show_EmptyItemsSetNoExtent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_ItemAddedLaterIsNotMeasured
+        Expect.EndCase "ShowTests.Show_ItemAddedLaterIsNotMeasured", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_AgainMeasuresTheNewItems
+        Expect.EndCase "ShowTests.Show_AgainMeasuresTheNewItems", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_ObjectOfAnotherTypeRaisesError
+        Expect.EndCase "ShowTests.Show_ObjectOfAnotherTypeRaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ShowTests.Show_ControlWithoutWindowRaisesNoError
+        Expect.EndCase "ShowTests.Show_ControlWithoutWindowRaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.UnShow_RemovesTheSubclass
+        Expect.EndCase "UnShowTests.UnShow_RemovesTheSubclass", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.UnShow_KeepsScrollBarAndExtent
+        Expect.EndCase "UnShowTests.UnShow_KeepsScrollBarAndExtent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.UnShow_KeepsListBoxReference
+        Expect.EndCase "UnShowTests.UnShow_KeepsListBoxReference", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.Terminate_RemovesTheSubclass
+        Expect.EndCase "UnShowTests.Terminate_RemovesTheSubclass", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.Show_TwoInstancesOneList_EachHandlesEveryMessage
+        Expect.EndCase "UnShowTests.Show_TwoInstancesOneList_EachHandlesEveryMessage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.UnShow_TwoInstancesOneList_LeavesTheOtherInPlace
+        Expect.EndCase "UnShowTests.UnShow_TwoInstancesOneList_LeavesTheOtherInPlace", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.UnShow_ExtentAndBarCanBeClearedByHand
+        Expect.EndCase "UnShowTests.UnShow_ExtentAndBarCanBeClearedByHand", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.Show_OtherListBoxLeavesFirstSubclassed
+        Expect.EndCase "UnShowTests.Show_OtherListBoxLeavesFirstSubclassed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnShowTests.Show_TwoInstancesTwoLists
+        Expect.EndCase "UnShowTests.Show_TwoInstancesTwoLists", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/ScrollTests.twin b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/ScrollTests.twin
new file mode 100644
index 00000000..6daed6a9
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/ScrollTests.twin
@@ -0,0 +1,250 @@
+' What the subclass Show installs does with each WM_HSCROLL scroll code. The tests send the
+' message to the list box's window, as its scroll bar does, and read the scroll bar's position.
+[TestFixture]
+Module ScrollTests
+
+    ' A list box with the wide item, Show called, the thumb at the start.
+    Private Function Attach(ByRef Form As HostForm, ByRef Hook As cListboxHScroll) As LongPtr
+        Set Form = Rig.NewForm()
+        Rig.FillWide Form.List1
+        Set Hook = New cListboxHScroll
+        Hook.Show Form.List1
+        Attach = Form.List1.hWnd
+    End Function
+
+    Private Sub Detach(ByRef Form As HostForm, ByRef Hook As cListboxHScroll)
+        Hook.UnShow
+        Unload Form
+    End Sub
+
+    [TestCase]
+    Public Sub LineRight_MovesThumb20()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_LINERIGHT
+        Expect.AreEqual 20, Win.HPos(hw), "the thumb position after one SB_LINERIGHT"
+        Win.HScroll hw, Win.SB_LINERIGHT
+        Expect.AreEqual 40, Win.HPos(hw), "the thumb position after two SB_LINERIGHT"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LineLeft_MovesThumb20()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBPOSITION, 100
+        Win.HScroll hw, Win.SB_LINELEFT
+        Expect.AreEqual 80, Win.HPos(hw), "the thumb position after SB_LINELEFT from 100"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LineLeft_StopsAtStart()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_LINELEFT
+        Expect.AreEqual 0, Win.HPos(hw), "the thumb position after SB_LINELEFT at the start"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PageRight_MovesThumbOnePage()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_PAGERIGHT
+        Expect.AreEqual Win.HPage(hw), Win.HPos(hw), "the thumb position after one SB_PAGERIGHT equals the page size"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PageRight_StopsAtEnd()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Dim i As Long
+        For i = 1 To 10
+            Win.HScroll hw, Win.SB_PAGERIGHT
+        Next
+        Expect.AreEqual Win.HMax(hw) - Win.HPage(hw), Win.HPos(hw), "the thumb position after ten SB_PAGERIGHT is the maximum less the page"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PageLeft_MovesThumbOnePage()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBPOSITION, 300
+        Win.HScroll hw, Win.SB_PAGELEFT
+        Expect.AreEqual 300 - Win.HPage(hw), Win.HPos(hw), "the thumb position after SB_PAGELEFT from 300"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Right_MovesThumbToEnd()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_RIGHT
+        Expect.AreEqual Win.HMax(hw) - Win.HPage(hw), Win.HPos(hw), "the thumb position after SB_RIGHT is the maximum less the page"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Left_MovesThumbToStart()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_RIGHT
+        Win.HScroll hw, Win.SB_LEFT
+        Expect.AreEqual 0, Win.HPos(hw), "the thumb position after SB_RIGHT and SB_LEFT"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ThumbPosition_MovesThumbToPosition()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBPOSITION, 50
+        Expect.AreEqual 50, Win.HPos(hw), "the thumb position after SB_THUMBPOSITION 50"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ThumbTrack_MovesThumbToPosition()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBTRACK, 70
+        Expect.AreEqual 70, Win.HPos(hw), "the thumb position after SB_THUMBTRACK 70"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ThumbPosition_StopsAtEnd()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBPOSITION, 30000
+        Expect.AreEqual Win.HMax(hw) - Win.HPage(hw), Win.HPos(hw), "the thumb position after SB_THUMBPOSITION beyond the end"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EndScroll_LeavesThumb()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBPOSITION, 50
+        Win.HScroll hw, Win.SB_ENDSCROLL
+        Expect.AreEqual 50, Win.HPos(hw), "the thumb position after SB_ENDSCROLL"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    ' ---- the contents of the list follow the thumb
+
+    [TestCase]
+    Public Sub LineRight_ContentsFollowThumb()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_LINERIGHT
+        Win.HScroll hw, Win.SB_LINERIGHT
+        Expect.AreEqual "", Rig.ContentsFollowThumb(f.List1), "after two SB_LINERIGHT the list's contents are where the thumb says"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LineLeft_ContentsFollowThumb()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBPOSITION, 100
+        Win.HScroll hw, Win.SB_LINELEFT
+        Expect.AreEqual "", Rig.ContentsFollowThumb(f.List1), "after SB_LINELEFT from 100 the list's contents are where the thumb says"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PageRight_ContentsFollowThumb()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_PAGERIGHT
+        Expect.AreEqual "", Rig.ContentsFollowThumb(f.List1), "after SB_PAGERIGHT the list's contents are where the thumb says"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PageLeft_ContentsFollowThumb()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBPOSITION, 400
+        Win.HScroll hw, Win.SB_PAGELEFT
+        Expect.AreEqual "", Rig.ContentsFollowThumb(f.List1), "after SB_PAGELEFT from 400 the list's contents are where the thumb says"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Right_ContentsFollowThumb()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_RIGHT
+        Expect.AreEqual "", Rig.ContentsFollowThumb(f.List1), "after SB_RIGHT the list's contents are where the thumb says"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ThumbTrack_ContentsFollowThumb()
+        Expect.Begin
+        Dim f As HostForm, h As cListboxHScroll
+        Dim hw As LongPtr
+        hw = Attach(f, h)
+        Win.HScroll hw, Win.SB_THUMBTRACK, 123
+        Expect.AreEqual "", Rig.ContentsFollowThumb(f.List1), "after SB_THUMBTRACK 123 the list's contents are where the thumb says"
+        Detach f, h
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/ShowTests.twin b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/ShowTests.twin
new file mode 100644
index 00000000..6609965f
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/ShowTests.twin
@@ -0,0 +1,193 @@
+[TestFixture]
+Module ShowTests
+
+    [TestCase]
+    Public Sub Show_ExtentIsWidestItemPlus10()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.List1.AddItem "short"
+        f.List1.AddItem "an item that is wider than the others"
+        f.List1.AddItem "a middle item"
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Expect.AreEqual Rig.WidestItem(f.List1) + 10, Win.Extent(f.List1.hWnd), "the horizontal extent after Show of three items"
+        h.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_ExtentUsesControlFont()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.List1.FontSize = 20
+        f.List1.AddItem "an item in a large font"
+        f.List2.AddItem "an item in a large font"
+        Dim big As New cListboxHScroll
+        Dim small As New cListboxHScroll
+        big.Show f.List1
+        small.Show f.List2
+        Expect.AreEqual Rig.WidestItem(f.List1) + 10, Win.Extent(f.List1.hWnd), "the horizontal extent of a list box with a 20-point font"
+        Expect.IsTrue Win.Extent(f.List1.hWnd) > Win.Extent(f.List2.hWnd), "the extent of the 20-point list is larger than that of the same item in the default font"
+        big.UnShow
+        small.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_SetsScrollRange()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Dim hw As LongPtr
+        hw = f.List1.hWnd
+        Expect.AreEqual Win.Extent(hw), Win.HMax(hw), "the scroll range's maximum equals the horizontal extent"
+        Expect.AreEqual Win.ClientWidth(hw), Win.HPage(hw), "the scroll page equals the width of the list's client area"
+        Expect.AreEqual 0, Win.HPos(hw), "the scroll position after Show"
+        h.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_ListScrollsHorizontally()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Dim before() As Byte
+        before = Win.Capture(f.List1.hWnd)
+        Win.HScroll f.List1.hWnd, Win.SB_RIGHT
+        Dim after() As Byte
+        after = Win.Capture(f.List1.hWnd)
+        Expect.IsFalse Win.SameBits(before, after), "the list box draws something else after SB_RIGHT when an item is wider than the list"
+        h.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_ShowsHorizontalScrollBar()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Expect.IsFalse Win.HasHScrollBar(f.List1.hWnd), "the list box has no horizontal scroll bar before Show"
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Expect.IsTrue Win.HasHScrollBar(f.List1.hWnd), "the list box has a horizontal scroll bar after Show"
+        h.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_EmptyListSetsNoExtent()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim before As Long
+        before = Win.HMax(f.List1.hWnd)
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Expect.AreEqual 0, Win.Extent(f.List1.hWnd), "the horizontal extent after Show of an empty list"
+        Expect.AreEqual before, Win.HMax(f.List1.hWnd), "the scroll range's maximum after Show of an empty list"
+        h.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_EmptyItemsSetNoExtent()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.List1.AddItem ""
+        f.List1.AddItem ""
+        Dim before As Long
+        before = Win.HMax(f.List1.hWnd)
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Expect.AreEqual 0, Win.Extent(f.List1.hWnd), "the horizontal extent after Show of a list of empty items"
+        Expect.AreEqual before, Win.HMax(f.List1.hWnd), "the scroll range's maximum after Show of a list of empty items"
+        h.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_ItemAddedLaterIsNotMeasured()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.List1.AddItem "short"
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Dim measured As Long
+        measured = Win.Extent(f.List1.hWnd)
+        f.List1.AddItem Rig.WideItem
+        Expect.AreEqual measured, Win.Extent(f.List1.hWnd), "the horizontal extent after a wide item is added"
+        Expect.AreEqual measured, Win.HMax(f.List1.hWnd), "the scroll range's maximum after a wide item is added"
+        h.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_AgainMeasuresTheNewItems()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.List1.AddItem "short"
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        f.List1.AddItem Rig.WideItem
+        h.Show f.List1
+        Expect.AreEqual Rig.WidestItem(f.List1) + 10, Win.Extent(f.List1.hWnd), "the horizontal extent after a second Show"
+        Expect.AreEqual Win.Extent(f.List1.hWnd), Win.HMax(f.List1.hWnd), "the scroll range's maximum after a second Show"
+        h.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_ObjectOfAnotherTypeRaisesError()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim h As New cListboxHScroll
+        On Error Resume Next
+        h.Show f.Text1
+        Expect.IsTrue Err.Number <> 0, "Show of a text box raises a run-time error"
+        On Error GoTo 0
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_ControlWithoutWindowRaisesNoError()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim box As ListBox
+        Set box = f.List1
+        Rig.FillWide box
+        Unload f
+        Set f = Nothing
+        Dim h As New cListboxHScroll
+        On Error Resume Next
+        h.Show box
+        Expect.AreEqual 0, Err.Number, "Show of a list box whose form is unloaded raises no error"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/UnShowTests.twin b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/UnShowTests.twin
new file mode 100644
index 00000000..fd3ddc38
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/UnShowTests.twin
@@ -0,0 +1,175 @@
+' UnShow, the destructor, and an instance used on more than one list box. Whether the subclass
+' Show installs is still in place shows in the scroll bar's position: while it is, SB_LINERIGHT
+' moves the thumb 20 pixels; once it is gone the thumb stays where it is.
+[TestFixture]
+Module UnShowTests
+
+    ' True when SB_LINERIGHT moves the thumb of the list box: the subclass is in place.
+    Private Function Hooked(ByVal Box As Object) As Boolean
+        Dim before As Long
+        before = Win.HPos(Box.hWnd)
+        Win.HScroll Box.hWnd, Win.SB_LINERIGHT
+        Hooked = Win.HPos(Box.hWnd) <> before
+    End Function
+
+    [TestCase]
+    Public Sub UnShow_RemovesTheSubclass()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Expect.IsTrue Hooked(f.List1), "SB_LINERIGHT moves the thumb while Show is in effect"
+        h.UnShow
+        Expect.IsFalse Hooked(f.List1), "SB_LINERIGHT moves the thumb after UnShow"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnShow_KeepsScrollBarAndExtent()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        Dim extent As Long
+        extent = Win.Extent(f.List1.hWnd)
+        h.UnShow
+        Expect.IsTrue Win.HasHScrollBar(f.List1.hWnd), "the horizontal scroll bar after UnShow"
+        Expect.AreEqual extent, Win.Extent(f.List1.hWnd), "the horizontal extent after UnShow"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnShow_KeepsListBoxReference()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim box As ListBox
+        Set box = f.List1
+        Dim before As Long
+        before = Win.RefCount(box)
+        Dim h As New cListboxHScroll
+        h.Show box
+        Expect.AreEqual before + 1, Win.RefCount(box), "the references to the list box while Show is in effect"
+        h.UnShow
+        Expect.AreEqual before + 1, Win.RefCount(box), "the references to the list box after UnShow"
+        Set h = Nothing
+        Expect.AreEqual before, Win.RefCount(box), "the references to the list box after the instance is destroyed"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Terminate_RemovesTheSubclass()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim h As cListboxHScroll
+        Set h = New cListboxHScroll
+        h.Show f.List1
+        Expect.IsTrue Hooked(f.List1), "SB_LINERIGHT moves the thumb while the instance exists"
+        Set h = Nothing
+        Expect.IsFalse Hooked(f.List1), "SB_LINERIGHT moves the thumb after the instance is destroyed"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_TwoInstancesOneList_EachHandlesEveryMessage()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim a As New cListboxHScroll
+        Dim b As New cListboxHScroll
+        a.Show f.List1
+        b.Show f.List1
+        Win.HScroll f.List1.hWnd, Win.SB_LINERIGHT
+        Expect.AreEqual 40, Win.HPos(f.List1.hWnd), "the thumb position after one SB_LINERIGHT with two instances on one list box"
+        a.UnShow
+        b.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnShow_TwoInstancesOneList_LeavesTheOtherInPlace()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim a As New cListboxHScroll
+        Dim b As New cListboxHScroll
+        a.Show f.List1
+        b.Show f.List1
+        a.UnShow
+        Dim before As Long
+        before = Win.HPos(f.List1.hWnd)
+        Win.HScroll f.List1.hWnd, Win.SB_LINERIGHT
+        Expect.AreEqual before + 20, Win.HPos(f.List1.hWnd), "the thumb moves 20 pixels for SB_LINERIGHT after the first of two instances calls UnShow"
+        b.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnShow_ExtentAndBarCanBeClearedByHand()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        h.UnShow
+        Win.SetExtent f.List1.hWnd, 0
+        Win.HideBar f.List1.hWnd
+        Expect.AreEqual 0, Win.Extent(f.List1.hWnd), "the horizontal extent after LB_SETHORIZONTALEXTENT 0"
+        Expect.IsFalse Win.HasHScrollBar(f.List1.hWnd), "the horizontal scroll bar after ShowScrollBar with SB_HORZ and 0"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_OtherListBoxLeavesFirstSubclassed()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Rig.FillWide f.List2
+        Dim h As New cListboxHScroll
+        h.Show f.List1
+        h.Show f.List2
+        h.UnShow
+        Expect.IsFalse Hooked(f.List2), "SB_LINERIGHT moves the thumb of the second list box after UnShow"
+        Expect.IsTrue Hooked(f.List1), "SB_LINERIGHT moves the thumb of the first list box after UnShow"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Show_TwoInstancesTwoLists()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.FillWide f.List1
+        Rig.FillWide f.List2
+        Dim a As New cListboxHScroll
+        Dim b As New cListboxHScroll
+        a.Show f.List1
+        b.Show f.List2
+        a.UnShow
+        Expect.IsFalse Hooked(f.List1), "SB_LINERIGHT moves the thumb of the first list box after its instance's UnShow"
+        Expect.IsTrue Hooked(f.List2), "SB_LINERIGHT moves the thumb of the second list box after the other instance's UnShow"
+        b.UnShow
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/Win.twin b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/Win.twin
new file mode 100644
index 00000000..d89972d7
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/Sources/Win.twin
@@ -0,0 +1,258 @@
+' Win: the Win32 calls the test cases of TBMANLIB_ListBoxHScroll make on a list box's window, and
+' a few helpers they share. Every window a case makes is a control on a form that is loaded and
+' never shown (HostForm), so nothing appears on the desktop.
+Module Win
+
+    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr
+    Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long
+    Private Declare PtrSafe Function SelectObject Lib "gdi32" (ByVal hDC As LongPtr, ByVal hObject As LongPtr) As LongPtr
+    Private Declare PtrSafe Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32W" (ByVal hDC As LongPtr, ByVal lpString As LongPtr, ByVal cbString As Long, ByRef lpSize As POINTAPI) As Long
+    Private Declare PtrSafe Function GetScrollInfo Lib "user32" (ByVal hWnd As LongPtr, ByVal nBar As Long, ByRef lpScrollInfo As SCROLLINFO) As Long
+    Private Declare PtrSafe Function GetClientRect Lib "user32" (ByVal hWnd As LongPtr, ByRef lpRect As RECT) As Long
+    Private Declare PtrSafe Function GetWindowLongW Lib "user32" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long
+
+    Private Type POINTAPI
+        x As Long
+        y As Long
+    End Type
+
+    Private Type RECT
+        Left As Long
+        Top As Long
+        Right As Long
+        Bottom As Long
+    End Type
+
+    Private Type SCROLLINFO
+        cbSize As Long
+        fMask As Long
+        nMin As Long
+        nMax As Long
+        nPage As Long
+        nPos As Long
+        nTrackPos As Long
+    End Type
+
+    Public Const WM_HSCROLL As Long = &H114
+    Public Const SB_LINELEFT As Long = 0
+    Public Const SB_LINERIGHT As Long = 1
+    Public Const SB_PAGELEFT As Long = 2
+    Public Const SB_PAGERIGHT As Long = 3
+    Public Const SB_THUMBPOSITION As Long = 4
+    Public Const SB_THUMBTRACK As Long = 5
+    Public Const SB_LEFT As Long = 6
+    Public Const SB_RIGHT As Long = 7
+    Public Const SB_ENDSCROLL As Long = 8
+
+    Private Const WM_GETFONT As Long = &H31
+    Private Const LB_GETHORIZONTALEXTENT As Long = &H193
+    Private Const LB_SETHORIZONTALEXTENT As Long = &H194
+    Private Const LB_GETITEMRECT As Long = &H198
+    Private Const GWL_STYLE As Long = -16
+    Private Const WS_HSCROLL As Long = &H100000
+
+    Private Declare PtrSafe Function CreateWindowExW Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As LongPtr, ByVal lpWindowName As LongPtr, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As LongPtr, ByVal hMenu As LongPtr, ByVal hInstance As LongPtr, ByVal lpParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function DestroyWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
+
+    ' A system list box (not a twinBASIC one) with a horizontal scroll bar, child of Parent.
+    Public Function MakeNative(ByVal Parent As LongPtr) As LongPtr
+        ' WS_CHILD Or WS_VISIBLE Or WS_BORDER Or WS_HSCROLL Or LBS_NOINTEGRALHEIGHT
+        MakeNative = CreateWindowExW(0, StrPtr("LISTBOX"), 0, &H40000000 Or &H10000000 Or &H800000 Or &H100000 Or &H100&, 0, 0, 200, 100, Parent, 0, 0, 0)
+    End Function
+
+    Public Sub DestroyNative(ByVal hWnd As LongPtr)
+        DestroyWindow hWnd
+    End Sub
+
+    Public Sub AddText(ByVal hWnd As LongPtr, ByVal Text As String)
+        SendMessage hWnd, &H180, 0, StrPtr(Text)
+    End Sub
+
+    Private Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As LongPtr) As LongPtr
+    Private Declare PtrSafe Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As LongPtr, ByVal nWidth As Long, ByVal nHeight As Long) As LongPtr
+    Private Declare PtrSafe Function DeleteDC Lib "gdi32" (ByVal hDC As LongPtr) As Long
+    Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long
+    Private Declare PtrSafe Function GetDIBits Lib "gdi32" (ByVal hDC As LongPtr, ByVal hBitmap As LongPtr, ByVal nStartScan As Long, ByVal nNumScans As Long, ByVal lpBits As LongPtr, ByRef lpBI As BITMAPINFOHEADER, ByVal wUsage As Long) As Long
+
+    Private Type BITMAPINFOHEADER
+        biSize As Long
+        biWidth As Long
+        biHeight As Long
+        biPlanes As Integer
+        biBitCount As Integer
+        biCompression As Long
+        biSizeImage As Long
+        biXPelsPerMeter As Long
+        biYPelsPerMeter As Long
+        biClrUsed As Long
+        biClrImportant As Long
+    End Type
+
+    ' What the window draws in its client area, as 32-bit pixels (the window is asked to paint
+    ' itself into a memory bitmap, so it need not be shown).
+    Public Function Capture(ByVal hWnd As LongPtr) As Byte()
+        Dim w As Long, h As Long
+        w = ClientWidth(hWnd)
+        h = ClientHeight(hWnd)
+        Dim screenDC As LongPtr
+        screenDC = GetDC(0)
+        Dim dc As LongPtr
+        dc = CreateCompatibleDC(screenDC)
+        Dim bmp As LongPtr
+        bmp = CreateCompatibleBitmap(screenDC, w, h)
+        Dim oldBmp As LongPtr
+        oldBmp = SelectObject(dc, bmp)
+        ' WM_PRINTCLIENT with PRF_CLIENT Or PRF_ERASEBKGND
+        SendMessage hWnd, &H318, dc, &H4 Or &H8
+        SelectObject dc, oldBmp
+        Dim bi As BITMAPINFOHEADER
+        bi.biSize = LenB(bi)
+        bi.biWidth = w
+        bi.biHeight = -h
+        bi.biPlanes = 1
+        bi.biBitCount = 32
+        Dim bits() As Byte
+        ReDim bits(0 To w * h * 4 - 1)
+        GetDIBits dc, bmp, 0, h, VarPtr(bits(0)), bi, 0
+        DeleteObject bmp
+        DeleteDC dc
+        ReleaseDC 0, screenDC
+        Capture = bits
+    End Function
+
+    ' True when two captures hold the same pixels.
+    Public Function SameBits(ByRef A() As Byte, ByRef B() As Byte) As Boolean
+        Dim i As Long
+        If UBound(A) <> UBound(B) Then Exit Function
+        For i = 0 To UBound(A)
+            If A(i) <> B(i) Then Exit Function
+        Next
+        SameBits = True
+    End Function
+
+    ' The number of bytes in which two captures of the same size differ.
+    Public Function DiffBytes(ByRef A() As Byte, ByRef B() As Byte) As Long
+        Dim i As Long
+        For i = 0 To UBound(A)
+            If A(i) <> B(i) Then DiffBytes = DiffBytes + 1
+        Next
+    End Function
+
+    Public Function ClientHeight(ByVal hWnd As LongPtr) As Long
+        Dim rc As RECT
+        GetClientRect hWnd, rc
+        ClientHeight = rc.Bottom - rc.Top
+    End Function
+
+    Private Declare PtrSafe Function DispCallFunc Lib "oleaut32" (ByVal pvInstance As LongPtr, ByVal oVft As LongPtr, ByVal cc As Long, ByVal vtReturn As Integer, ByVal cActuals As Long, ByVal prgvt As LongPtr, ByVal prgpvarg As LongPtr, ByRef pvargResult As Variant) As Long
+
+    ' The number of references to the object: IUnknown::AddRef returns the new count, and the
+    ' reference it took is released at once. The count includes the one the caller holds.
+    Public Function RefCount(ByVal Obj As Object) As Long
+        Dim result As Variant
+        Dim unk As LongPtr
+        unk = ObjPtr(Obj)
+        #If Win64 Then
+            Const SLOT As Long = 8
+        #Else
+            Const SLOT As Long = 4
+        #End If
+        DispCallFunc unk, SLOT, 4, 19, 0, 0, 0, result
+        RefCount = CLng(result) - 1
+        DispCallFunc unk, 2 * SLOT, 4, 19, 0, 0, 0, result
+    End Function
+
+    Private Declare PtrSafe Function ShowScrollBar Lib "user32" (ByVal hWnd As LongPtr, ByVal wBar As Long, ByVal bShow As Long) As Long
+
+    Public Sub ShowBar(ByVal hWnd As LongPtr)
+        ShowScrollBar hWnd, 0, 1
+    End Sub
+
+    Public Sub HideBar(ByVal hWnd As LongPtr)
+        ShowScrollBar hWnd, 0, 0
+    End Sub
+
+    ' The horizontal extent of the list box, as LB_GETHORIZONTALEXTENT reports it.
+    Public Function Extent(ByVal hWnd As LongPtr) As Long
+        Extent = CLng(SendMessage(hWnd, LB_GETHORIZONTALEXTENT, 0, 0))
+    End Function
+
+    Public Sub SetExtent(ByVal hWnd As LongPtr, ByVal Value As Long)
+        SendMessage hWnd, LB_SETHORIZONTALEXTENT, Value, 0
+    End Sub
+
+    ' The pixel width of Text in the font the window reports through WM_GETFONT.
+    Public Function TextWidth(ByVal hWnd As LongPtr, ByVal Text As String) As Long
+        Dim dc As LongPtr
+        Dim oldFont As LongPtr
+        Dim font As LongPtr
+        Dim sz As POINTAPI
+        dc = GetDC(hWnd)
+        font = SendMessage(hWnd, WM_GETFONT, 0, 0)
+        If font <> 0 Then oldFont = SelectObject(dc, font)
+        If Len(Text) > 0 Then GetTextExtentPoint32 dc, StrPtr(Text), Len(Text), sz
+        If oldFont <> 0 Then SelectObject dc, oldFont
+        ReleaseDC hWnd, dc
+        TextWidth = sz.x
+    End Function
+
+    ' The width of the window's client area.
+    Public Function ClientWidth(ByVal hWnd As LongPtr) As Long
+        Dim rc As RECT
+        GetClientRect hWnd, rc
+        ClientWidth = rc.Right - rc.Left
+    End Function
+
+    ' The horizontal scroll bar's range, page and position, as one text: "min..max page=p pos=n".
+    Public Function HRange(ByVal hWnd As LongPtr) As String
+        Dim si As SCROLLINFO
+        si.cbSize = LenB(si)
+        si.fMask = &H17
+        GetScrollInfo hWnd, 0, si
+        HRange = si.nMin & ".." & si.nMax & " page=" & si.nPage & " pos=" & si.nPos
+    End Function
+
+    Public Function HMax(ByVal hWnd As LongPtr) As Long
+        Dim si As SCROLLINFO
+        si.cbSize = LenB(si)
+        si.fMask = &H17
+        GetScrollInfo hWnd, 0, si
+        HMax = si.nMax
+    End Function
+
+    Public Function HPage(ByVal hWnd As LongPtr) As Long
+        Dim si As SCROLLINFO
+        si.cbSize = LenB(si)
+        si.fMask = &H17
+        GetScrollInfo hWnd, 0, si
+        HPage = si.nPage
+    End Function
+
+    Public Function HPos(ByVal hWnd As LongPtr) As Long
+        Dim si As SCROLLINFO
+        si.cbSize = LenB(si)
+        si.fMask = &H17
+        GetScrollInfo hWnd, 0, si
+        HPos = si.nPos
+    End Function
+
+    ' True when the window has the WS_HSCROLL style: a horizontal scroll bar is shown.
+    Public Function HasHScrollBar(ByVal hWnd As LongPtr) As Boolean
+        HasHScrollBar = (GetWindowLongW(hWnd, GWL_STYLE) And WS_HSCROLL) <> 0
+    End Function
+
+    ' How far the list's contents are scrolled to the left: the item's left edge in client
+    ' coordinates is minus this.
+    Public Function ContentOffset(ByVal hWnd As LongPtr) As Long
+        Dim rc As RECT
+        SendMessage hWnd, LB_GETITEMRECT, 0, VarPtr(rc)
+        ContentOffset = -rc.Left
+    End Function
+
+    ' Sends WM_HSCROLL with a scroll code and, for a thumb code, a position.
+    Public Sub HScroll(ByVal hWnd As LongPtr, ByVal Code As Long, Optional ByVal Position As Long = 0)
+        SendMessage hWnd, WM_HSCROLL, CLngPtr(Code) Or (CLngPtr(Position) * &H10000), 0
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_ListBoxHScroll/expect.json b/test/package-tests/TBMANLIB_ListBoxHScroll/expect.json
new file mode 100644
index 00000000..ccdec8df
--- /dev/null
+++ b/test/package-tests/TBMANLIB_ListBoxHScroll/expect.json
@@ -0,0 +1,17 @@
+{
+  "version": "1.0.0.1",
+  "cases": {
+    "ScrollTests.LineRight_ContentsFollowThumb": {
+      "fails": "1 of 1 checks failed: after two SB_LINERIGHT the list's contents are where the thumb says: expected \"\", got \"the thumb is at 40 but the contents are not scrolled to 40\""
+    },
+    "ScrollTests.LineLeft_ContentsFollowThumb": {
+      "fails": "1 of 1 checks failed: after SB_LINELEFT from 100 the list's contents are where the thumb says: expected \"\", got \"the thumb is at 80 but the contents are not scrolled to 80\""
+    },
+    "ScrollTests.PageRight_ContentsFollowThumb": {
+      "fails": "1 of 1 checks failed: after SB_PAGERIGHT the list's contents are where the thumb says: expected \"\", got \"the thumb is at 221 but the contents are not scrolled to 221\""
+    },
+    "ScrollTests.PageLeft_ContentsFollowThumb": {
+      "fails": "1 of 1 checks failed: after SB_PAGELEFT from 400 the list's contents are where the thumb says: expected \"\", got \"the thumb is at 179 but the contents are not scrolled to 179\""
+    }
+  }
+}
diff --git a/test/package-tests/TBMANLIB_RES/Resources/BINARY/#101 b/test/package-tests/TBMANLIB_RES/Resources/BINARY/#101
new file mode 100644
index 00000000..5230b4ea
Binary files /dev/null and b/test/package-tests/TBMANLIB_RES/Resources/BINARY/#101 differ
diff --git a/test/package-tests/TBMANLIB_RES/Resources/BINARY/#102 b/test/package-tests/TBMANLIB_RES/Resources/BINARY/#102
new file mode 100644
index 00000000..e2ff0413
Binary files /dev/null and b/test/package-tests/TBMANLIB_RES/Resources/BINARY/#102 differ
diff --git a/test/package-tests/TBMANLIB_RES/Resources/BMP/#101 b/test/package-tests/TBMANLIB_RES/Resources/BMP/#101
new file mode 100644
index 00000000..8628f8aa
Binary files /dev/null and b/test/package-tests/TBMANLIB_RES/Resources/BMP/#101 differ
diff --git a/test/package-tests/TBMANLIB_RES/Resources/CUSTOM/CONFIG_DATA b/test/package-tests/TBMANLIB_RES/Resources/CUSTOM/CONFIG_DATA
new file mode 100644
index 00000000..7d174b13
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Resources/CUSTOM/CONFIG_DATA
@@ -0,0 +1 @@
+ޭ��
\ No newline at end of file
diff --git a/test/package-tests/TBMANLIB_RES/Resources/GIF/#101 b/test/package-tests/TBMANLIB_RES/Resources/GIF/#101
new file mode 100644
index 00000000..bdf7a770
Binary files /dev/null and b/test/package-tests/TBMANLIB_RES/Resources/GIF/#101 differ
diff --git a/test/package-tests/TBMANLIB_RES/Resources/PNG/#101 b/test/package-tests/TBMANLIB_RES/Resources/PNG/#101
new file mode 100644
index 00000000..a6a3b49f
Binary files /dev/null and b/test/package-tests/TBMANLIB_RES/Resources/PNG/#101 differ
diff --git a/test/package-tests/TBMANLIB_RES/Resources/RCDATA/#7 b/test/package-tests/TBMANLIB_RES/Resources/RCDATA/#7
new file mode 100644
index 00000000..eaf32a3e
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Resources/RCDATA/#7
@@ -0,0 +1 @@
+	
\ No newline at end of file
diff --git a/test/package-tests/TBMANLIB_RES/Resources/TEXT/#101 b/test/package-tests/TBMANLIB_RES/Resources/TEXT/#101
new file mode 100644
index 00000000..dbe9dba5
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Resources/TEXT/#101
@@ -0,0 +1 @@
+Hello, world
\ No newline at end of file
diff --git a/test/package-tests/TBMANLIB_RES/Resources/TEXT/#102 b/test/package-tests/TBMANLIB_RES/Resources/TEXT/#102
new file mode 100644
index 00000000..ccf62fe0
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Resources/TEXT/#102
@@ -0,0 +1 @@
+Café
\ No newline at end of file
diff --git a/test/package-tests/TBMANLIB_RES/Resources/TEXT/#103 b/test/package-tests/TBMANLIB_RES/Resources/TEXT/#103
new file mode 100644
index 00000000..5be3b75f
Binary files /dev/null and b/test/package-tests/TBMANLIB_RES/Resources/TEXT/#103 differ
diff --git a/test/package-tests/TBMANLIB_RES/Sources/Base64PrefixTests.twin b/test/package-tests/TBMANLIB_RES/Sources/Base64PrefixTests.twin
new file mode 100644
index 00000000..9e31815b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/Base64PrefixTests.twin
@@ -0,0 +1,24 @@
+' TBMANLIB_RES, Base64Prefix: the value of each member.
+[TestFixture]
+Module Base64PrefixTests
+
+    [TestCase]
+    Public Sub Base64Prefix_Members_HaveTheDocumentedValues()
+        Expect.Begin
+        Expect.AreEqual 0, Base64Prefix_None, "Base64Prefix_None"
+        Expect.AreEqual 1, Base64Prefix_ImagePNG, "Base64Prefix_ImagePNG"
+        Expect.AreEqual 2, Base64Prefix_ImageJPEG, "Base64Prefix_ImageJPEG"
+        Expect.AreEqual 3, Base64Prefix_ImageGIF, "Base64Prefix_ImageGIF"
+        Expect.AreEqual 4, Base64Prefix_ImageBMP, "Base64Prefix_ImageBMP"
+        Expect.AreEqual 5, Base64Prefix_ImageICO, "Base64Prefix_ImageICO"
+        Expect.AreEqual 6, Base64Prefix_ImageWebP, "Base64Prefix_ImageWebP"
+        Expect.AreEqual 7, Base64Prefix_VideoMP4, "Base64Prefix_VideoMP4"
+        Expect.AreEqual 8, Base64Prefix_VideoWebM, "Base64Prefix_VideoWebM"
+        Expect.AreEqual 9, Base64Prefix_VideoOGG, "Base64Prefix_VideoOGG"
+        Expect.AreEqual 10, Base64Prefix_AudioMP3, "Base64Prefix_AudioMP3"
+        Expect.AreEqual 11, Base64Prefix_AudioWAV, "Base64Prefix_AudioWAV"
+        Expect.AreEqual 12, Base64Prefix_AudioOGG, "Base64Prefix_AudioOGG"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/GlobalResTests.twin b/test/package-tests/TBMANLIB_RES/Sources/GlobalResTests.twin
new file mode 100644
index 00000000..6c702a59
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/GlobalResTests.twin
@@ -0,0 +1,46 @@
+' TBMANLIB_RES, GLOBAL_RES.Res: the one shared cRes.
+[TestFixture]
+Module GlobalResTests
+
+    [TestCase]
+    Public Sub Res_IsOneSharedInstance()
+        Expect.Begin
+        Dim a As cRes
+        Dim b As cRes
+        Set a = GLOBAL_RES.Res
+        Set b = GLOBAL_RES.Res
+        Expect.IsFalse a Is Nothing, "GLOBAL_RES.Res is created on first use"
+        Expect.IsTrue a Is b, "two references to GLOBAL_RES.Res are the same object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Res_Read_ReplacesTheBytesForEveryCaller()
+        Expect.Begin
+        Dim a As cRes
+        Set a = GLOBAL_RES.Res
+        a.Read 101, "BINARY"
+        GLOBAL_RES.Res.Read "CONFIG_DATA", "CUSTOM"
+        Expect.AreEqual "DEADBEEF", a.ReturnHex(), "ReturnHex through the first reference after a second Read through GLOBAL_RES.Res"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Res_Read_CanBeChained()
+        Expect.Begin
+        Expect.AreEqual "00010A0F107F80FF", GLOBAL_RES.Res.Read(101, "BINARY").ReturnHex(), "ReturnHex chained onto GLOBAL_RES.Res.Read"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Res_DoesNotShareBytesWithANewCRes()
+        Expect.Begin
+        Dim mine As New cRes
+        GLOBAL_RES.Res.Read 101, "BINARY"
+        mine.Read "CONFIG_DATA", "CUSTOM"
+        Expect.AreEqual "00010A0F107F80FF", GLOBAL_RES.Res.ReturnHex(), "ReturnHex of GLOBAL_RES.Res after a separate cRes read another resource"
+        Expect.AreEqual "DEADBEEF", mine.ReturnHex(), "ReturnHex of the separate cRes"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/ReadTests.twin b/test/package-tests/TBMANLIB_RES/Sources/ReadTests.twin
new file mode 100644
index 00000000..91808049
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/ReadTests.twin
@@ -0,0 +1,108 @@
+' TBMANLIB_RES, cRes.Read: which resource it loads, what it returns and what it does when none matches.
+[TestFixture]
+Module ReadTests
+
+    [TestCase]
+    Public Sub Read_ByNumericId_LoadsTheResource()
+        Expect.Begin
+        Dim r As New cRes
+        r.Read 101, "BINARY"
+        Dim b() As Byte
+        b = r.ReturnBytes()
+        Expect.AreEqual "00010A0F107F80FF", TestData.HexOf(b), "the bytes after Read 101, ""BINARY"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Read_ByName_LoadsTheResource()
+        Expect.Begin
+        Dim r As New cRes
+        r.Read "CONFIG_DATA", "CUSTOM"
+        Dim b() As Byte
+        b = r.ReturnBytes()
+        Expect.AreEqual "DEADBEEF", TestData.HexOf(b), "the bytes after Read ""CONFIG_DATA"", ""CUSTOM"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Read_NumericType_LoadsTheResource()
+        Expect.Begin
+        Dim r As New cRes
+        Dim b() As Byte
+        r.Read 7, 10
+        b = r.ReturnBytes()
+        Expect.AreEqual "070809", TestData.HexOf(b), "the bytes after Read 7, 10 (RT_RCDATA)"
+        r.Read 7, "RCDATA"
+        b = r.ReturnBytes()
+        Expect.AreEqual "070809", TestData.HexOf(b), "the bytes after Read 7, ""RCDATA"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Read_ReturnsTheInstanceItself()
+        Expect.Begin
+        Dim r As New cRes
+        Dim x As cRes
+        Set x = r.Read(101, "BINARY")
+        Expect.IsTrue x Is r, "Read returns the cRes it was called on"
+        Expect.AreEqual "00010A0F107F80FF", r.Read(101, "BINARY").ReturnHex(), "ReturnHex chained onto Read"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Read_SecondRead_ReplacesTheBytes()
+        Expect.Begin
+        Dim r As New cRes
+        Dim b() As Byte
+        r.Read 101, "BINARY"
+        r.Read "CONFIG_DATA", "CUSTOM"
+        b = r.ReturnBytes()
+        Expect.AreEqual "DEADBEEF", TestData.HexOf(b), "the bytes after a second Read"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Read_NoMatchingResource_RaisesError()
+        Expect.Begin
+        Dim r As New cRes
+        Dim e As Long
+        On Error Resume Next
+        r.Read 999, "BINARY"
+        e = Err.Number
+        Expect.IsTrue e <> 0, "Read of an id no resource has raises an error"
+        Err.Clear
+        r.Read "NO_SUCH_NAME", "CUSTOM"
+        e = Err.Number
+        Expect.IsTrue e <> 0, "Read of a name no resource has raises an error"
+        Err.Clear
+        r.Read 101, "NO_SUCH_TYPE"
+        e = Err.Number
+        Expect.IsTrue e <> 0, "Read of a type no resource has raises an error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Read_IdOfAnotherType_RaisesError()
+        Expect.Begin
+        Dim r As New cRes
+        Dim e As Long
+        On Error Resume Next
+        r.Read 101, "CUSTOM"
+        e = Err.Number
+        Expect.IsTrue e <> 0, "Read 101, ""CUSTOM"", when the resource 101 is of type BINARY, raises an error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Read_FileOnDisk_RaisesError()
+        Expect.Begin
+        Dim r As New cRes
+        Dim e As Long
+        On Error Resume Next
+        r.Read Environ$("windir") & "\notepad.exe", "BINARY"
+        e = Err.Number
+        Expect.IsTrue e <> 0, "Read of the path of a file on disk raises an error"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/ReturnBase64Tests.twin b/test/package-tests/TBMANLIB_RES/Sources/ReturnBase64Tests.twin
new file mode 100644
index 00000000..39b251ab
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/ReturnBase64Tests.twin
@@ -0,0 +1,106 @@
+' TBMANLIB_RES, cRes.ReturnBase64: the encoding, MSXML's line feeds, the Base64Prefix values and MSXML2.
+[TestFixture]
+Module ReturnBase64Tests
+
+    ' Not a case: the data-URI prefix that each Base64Prefix value should add.
+    Private Function PrefixText(ByVal p As Base64Prefix) As String
+        Select Case p
+            Case Base64Prefix_None: PrefixText = ""
+            Case Base64Prefix_ImagePNG: PrefixText = "data:image/png;base64,"
+            Case Base64Prefix_ImageJPEG: PrefixText = "data:image/jpeg;base64,"
+            Case Base64Prefix_ImageGIF: PrefixText = "data:image/gif;base64,"
+            Case Base64Prefix_ImageBMP: PrefixText = "data:image/bmp;base64,"
+            Case Base64Prefix_ImageICO: PrefixText = "data:image/x-icon;base64,"
+            Case Base64Prefix_ImageWebP: PrefixText = "data:image/webp;base64,"
+            Case Base64Prefix_VideoMP4: PrefixText = "data:video/mp4;base64,"
+            Case Base64Prefix_VideoWebM: PrefixText = "data:video/webm;base64,"
+            Case Base64Prefix_VideoOGG: PrefixText = "data:video/ogg;base64,"
+            Case Base64Prefix_AudioMP3: PrefixText = "data:audio/mpeg;base64,"
+            Case Base64Prefix_AudioWAV: PrefixText = "data:audio/wav;base64,"
+            Case Base64Prefix_AudioOGG: PrefixText = "data:audio/ogg;base64,"
+        End Select
+    End Function
+
+    [TestCase]
+    Public Sub ReturnBase64_ShortResource_IsTheBase64OfTheBytes()
+        Expect.Begin
+        Dim r As New cRes
+        Expect.AreEqual "SGVsbG8sIHdvcmxk", r.Read(101, "TEXT").ReturnBase64(), "ReturnBase64 of the 12 bytes of ""Hello, world"""
+        Dim b() As Byte
+        b = r.Read(101, "BINARY").ReturnBytes()
+        Expect.AreEqual TestData.Base64Of(b), r.ReturnBase64(), "ReturnBase64 of the 8 bytes of BINARY 101"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBase64_LongResource_LineFeedAfterEvery72Characters()
+        Expect.Begin
+        Dim r As New cRes
+        Dim s As String
+        Dim b() As Byte
+        b = TestData.Binary102()
+        s = r.Read(102, "BINARY").ReturnBase64()
+        Dim whole As String
+        whole = TestData.Base64Of(b)
+        Expect.AreEqual 136, Len(whole), "the Base64 of 100 bytes has 136 characters"
+        Expect.AreEqual 73, InStr(s, vbLf), "position of the first line feed in ReturnBase64 of the 100 bytes of BINARY 102"
+        Expect.AreEqual Left$(whole, 72) & vbLf & Mid$(whole, 73), s, "ReturnBase64 of BINARY 102: the Base64 with a line feed after its first 72 characters"
+        Expect.AreEqual whole, Replace(s, vbLf, ""), "ReturnBase64 of BINARY 102 without its line feeds"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBase64_Default_HasNoPrefix()
+        Expect.Begin
+        Dim r As New cRes
+        r.Read 101, "BINARY"
+        Expect.AreEqual r.ReturnBase64(Base64Prefix_None), r.ReturnBase64(), "ReturnBase64() and ReturnBase64(Base64Prefix_None)"
+        Expect.AreEqual "AAEKDxB/gP8=", r.ReturnBase64(), "ReturnBase64() of the 8 bytes of BINARY 101"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBase64_Prefix_AddsTheDataUriHeader()
+        Expect.Begin
+        Dim r As New cRes
+        Dim p As Long
+        Dim plain As String
+        r.Read 101, "BINARY"
+        plain = r.ReturnBase64()
+        For p = Base64Prefix_ImagePNG To Base64Prefix_AudioOGG
+            Expect.AreEqual PrefixText(p) & plain, r.ReturnBase64(p), "ReturnBase64 with the Base64Prefix value " & p
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBase64_BeforeRead_RaisesError()
+        Expect.Begin
+        Dim r As New cRes
+        Dim s As String
+        On Error Resume Next
+        s = r.ReturnBase64()
+        Expect.IsTrue Err.Number <> 0, "ReturnBase64 before any Read raises an error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBase64_Msxml2DomDocument_IsCreatedAndEncodes()
+        Expect.Begin
+        Dim doc As Object
+        Dim node As Object
+        Dim b() As Byte
+        On Error Resume Next
+        Set doc = CreateObject("MSXML2.DOMDocument")
+        Expect.AreEqual 0, Err.Number, "CreateObject(""MSXML2.DOMDocument"") raises no error on this machine"
+        Err.Clear
+        b = TestData.Binary101()
+        Set node = doc.createElement("b64")
+        node.DataType = "bin.base64"
+        node.nodeTypedValue = b
+        Dim r As New cRes
+        Expect.AreEqual node.Text, r.Read(101, "BINARY").ReturnBase64(), "ReturnBase64 and the text of an MSXML2.DOMDocument element of data type bin.base64 holding the same bytes"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/ReturnBytesTests.twin b/test/package-tests/TBMANLIB_RES/Sources/ReturnBytesTests.twin
new file mode 100644
index 00000000..f00d7b05
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/ReturnBytesTests.twin
@@ -0,0 +1,48 @@
+' TBMANLIB_RES, cRes.ReturnBytes: every byte, a copy, and an instance that holds none.
+[TestFixture]
+Module ReturnBytesTests
+
+    [TestCase]
+    Public Sub ReturnBytes_ReturnsEveryByte()
+        Expect.Begin
+        Dim r As New cRes
+        Dim b() As Byte
+        r.Read 101, "BINARY"
+        b = r.ReturnBytes()
+        Expect.AreEqual 7, UBound(b), "UBound of the 8 bytes of BINARY 101"
+        Expect.AreEqual "00010A0F107F80FF", TestData.HexOf(b), "the bytes of BINARY 101"
+        r.Read 102, "BINARY"
+        b = r.ReturnBytes()
+        Expect.IsTrue TestData.SameBytes(b, TestData.Binary102()), "the 100 bytes of BINARY 102 come back unchanged"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBytes_IsACopy()
+        Expect.Begin
+        Dim r As New cRes
+        Dim b() As Byte
+        Dim c() As Byte
+        r.Read 101, "BINARY"
+        b = r.ReturnBytes()
+        b(0) = 99
+        b(7) = 99
+        c = r.ReturnBytes()
+        Expect.AreEqual "00010A0F107F80FF", TestData.HexOf(c), "the bytes of a second ReturnBytes after the first array was changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBytes_BeforeRead_HasNoElements()
+        Expect.Begin
+        Dim r As New cRes
+        Dim b() As Byte
+        Dim n As Long
+        b = r.ReturnBytes()
+        On Error Resume Next
+        n = UBound(b)
+        Expect.AreEqual 9, Err.Number, "UBound of the array ReturnBytes returns before any Read raises Subscript out of range"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/ReturnHexTests.twin b/test/package-tests/TBMANLIB_RES/Sources/ReturnHexTests.twin
new file mode 100644
index 00000000..7bbf6f83
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/ReturnHexTests.twin
@@ -0,0 +1,61 @@
+' TBMANLIB_RES, cRes.ReturnHex: the digits, Separator and LineBreak, and an instance that holds nothing.
+[TestFixture]
+Module ReturnHexTests
+
+    [TestCase]
+    Public Sub ReturnHex_Default_TwoUppercaseDigitsForEachByte()
+        Expect.Begin
+        Dim r As New cRes
+        Expect.AreEqual "00010A0F107F80FF", r.Read(101, "BINARY").ReturnHex(), "ReturnHex() of the 8 bytes 00 01 0A 0F 10 7F 80 FF"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnHex_Separator_IsBetweenBytesNotAfterTheLast()
+        Expect.Begin
+        Dim r As New cRes
+        r.Read 101, "BINARY"
+        Expect.AreEqual "00 01 0A 0F 10 7F 80 FF", r.ReturnHex(" "), "ReturnHex("" "")"
+        Expect.AreEqual "00-01-0A-0F-10-7F-80-FF", r.ReturnHex("-"), "ReturnHex(""-"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnHex_LineBreak_AddsCrLfAfterEveryGroup()
+        Expect.Begin
+        Dim r As New cRes
+        r.Read 101, "BINARY"
+        Expect.AreEqual "00010A" & vbCrLf & "0F107F" & vbCrLf & "80FF", r.ReturnHex("", 3), "ReturnHex("""", 3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnHex_LineBreak_NoBreakAfterTheLastByte()
+        Expect.Begin
+        Dim r As New cRes
+        r.Read 101, "BINARY"
+        Expect.AreEqual "00010A0F" & vbCrLf & "107F80FF", r.ReturnHex("", 4), "ReturnHex("""", 4) of 8 bytes, which fill two lines exactly"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnHex_LineBreakAndSeparator_SeparatorInsideEachLine()
+        Expect.Begin
+        Dim r As New cRes
+        r.Read 101, "BINARY"
+        Expect.AreEqual "00-01-0A" & vbCrLf & "0F-10-7F" & vbCrLf & "80-FF", r.ReturnHex("-", 3), "ReturnHex(""-"", 3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnHex_BeforeRead_RaisesError()
+        Expect.Begin
+        Dim r As New cRes
+        Dim s As String
+        On Error Resume Next
+        s = r.ReturnHex()
+        Expect.IsTrue Err.Number <> 0, "ReturnHex before any Read raises an error"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/ReturnPictureTests.twin b/test/package-tests/TBMANLIB_RES/Sources/ReturnPictureTests.twin
new file mode 100644
index 00000000..d66af80e
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/ReturnPictureTests.twin
@@ -0,0 +1,63 @@
+' TBMANLIB_RES, cRes.ReturnPicture: the pictures the resources give, and the cases with no picture.
+[TestFixture]
+Module ReturnPictureTests
+
+    [TestCase]
+    Public Sub ReturnPicture_Bmp_ReturnsABitmapPicture()
+        Expect.Begin
+        Dim r As New cRes
+        Dim p As IPictureDisp
+        Set p = r.Read(101, "BMP").ReturnPicture()
+        Expect.IsFalse p Is Nothing, "ReturnPicture of a BMP resource returns a picture"
+        Expect.AreEqual vbPicTypeBitmap, p.Type, "Type of the picture from the BMP resource"
+        Expect.IsTrue p.Width > 0 And p.Height > p.Width, "Width and Height of a picture from a 2 x 3 pixel image are positive and taller than wide (got " & p.Width & " x " & p.Height & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnPicture_Png_ReturnsABitmapPicture()
+        Expect.Begin
+        Dim r As New cRes
+        Dim p As IPictureDisp
+        Set p = r.Read(101, "PNG").ReturnPicture()
+        Expect.IsFalse p Is Nothing, "ReturnPicture of a PNG resource returns a picture"
+        Expect.AreEqual vbPicTypeBitmap, p.Type, "Type of the picture from the PNG resource"
+        Expect.IsTrue p.Width > 0 And p.Height > p.Width, "Width and Height of a picture from a 2 x 3 pixel image are positive and taller than wide (got " & p.Width & " x " & p.Height & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnPicture_Gif_ReturnsABitmapPicture()
+        Expect.Begin
+        Dim r As New cRes
+        Dim p As IPictureDisp
+        Set p = r.Read(101, "GIF").ReturnPicture()
+        Expect.IsFalse p Is Nothing, "ReturnPicture of a GIF resource returns a picture"
+        Expect.AreEqual vbPicTypeBitmap, p.Type, "Type of the picture from the GIF resource"
+        Expect.IsTrue p.Width > 0 And p.Height > 0, "Width and Height of a picture from a 1 x 1 pixel image are positive (got " & p.Width & " x " & p.Height & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnPicture_NotAnImage_RaisesError()
+        Expect.Begin
+        Dim r As New cRes
+        Dim p As IPictureDisp
+        On Error Resume Next
+        Set p = r.Read(101, "BINARY").ReturnPicture()
+        Expect.IsTrue Err.Number <> 0, "ReturnPicture of a resource that holds no image raises an error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnPicture_BeforeRead_RaisesError()
+        Expect.Begin
+        Dim r As New cRes
+        Dim p As IPictureDisp
+        On Error Resume Next
+        Set p = r.ReturnPicture()
+        Expect.IsTrue Err.Number <> 0, "ReturnPicture before any Read raises an error"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/ReturnStringTests.twin b/test/package-tests/TBMANLIB_RES/Sources/ReturnStringTests.twin
new file mode 100644
index 00000000..bed0ca78
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/ReturnStringTests.twin
@@ -0,0 +1,78 @@
+' TBMANLIB_RES, cRes.ReturnString: the default conversion, UTF-8, and the encodings it has no option for.
+[TestFixture]
+Module ReturnStringTests
+
+    [TestCase]
+    Public Sub ReturnString_Default_ReadsAnsiText()
+        Expect.Begin
+        Dim r As New cRes
+        Expect.AreEqual "Hello, world", r.Read(101, "TEXT").ReturnString(), "ReturnString of the ANSI text resource"
+        Expect.AreEqual "Hello, world", r.ReturnString(vbUnicode), "ReturnString(vbUnicode) of the same resource"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnString_FromUtf8_ReadsUtf8Text()
+        Expect.Begin
+        Dim r As New cRes
+        Expect.AreEqual "Caf" & ChrW$(233), r.Read(102, "TEXT").ReturnString(vbFromUTF8), "ReturnString(vbFromUTF8) of the UTF-8 resource"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnString_WrongConversion_GivesOtherCharacters()
+        Expect.Begin
+        Dim r As New cRes
+        Dim s As String
+        s = r.Read(102, "TEXT").ReturnString()
+        Expect.IsTrue s <> "Caf" & ChrW$(233), "ReturnString() of a UTF-8 resource does not give the text it holds"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnString_FromUnicode_DoesNotConvertBytesToText()
+        Expect.Begin
+        Dim r As New cRes
+        Dim s As String
+        s = r.Read(101, "TEXT").ReturnString(vbFromUnicode)
+        Expect.IsTrue s <> "Hello, world", "ReturnString(vbFromUnicode) of an ANSI text resource does not give the text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnString_Utf16Resource_NoOptionGivesTheText()
+        Expect.Begin
+        Dim r As New cRes
+        r.Read 103, "TEXT"
+        Expect.IsTrue r.ReturnString(vbUnicode) <> "Hi", "ReturnString(vbUnicode) of a UTF-16 LE resource gives ""Hi"""
+        Expect.IsTrue r.ReturnString(vbFromUTF8) <> "Hi", "ReturnString(vbFromUTF8) of a UTF-16 LE resource gives ""Hi"""
+        Expect.IsTrue r.ReturnString(vbFromUnicode) <> "Hi", "ReturnString(vbFromUnicode) of a UTF-16 LE resource gives ""Hi"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnBytes_Utf16Resource_AssignedToAStringGivesTheText()
+        Expect.Begin
+        Dim r As New cRes
+        Dim b() As Byte
+        Dim s As String
+        r.Read 103, "TEXT"
+        b = r.ReturnBytes()
+        s = b
+        Expect.AreEqual "Hi", s, "the array from ReturnBytes for a UTF-16 LE resource, assigned to a String"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReturnString_BeforeRead_IsEmpty()
+        Expect.Begin
+        Dim r As New cRes
+        Dim s As String
+        On Error Resume Next
+        s = r.ReturnString()
+        Expect.AreEqual 0, Err.Number, "ReturnString before any Read raises no error"
+        Expect.AreEqual "", s, "ReturnString before any Read"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/RunAll.twin b/test/package-tests/TBMANLIB_RES/Sources/RunAll.twin
new file mode 100644
index 00000000..4b4027fb
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/RunAll.twin
@@ -0,0 +1,174 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB_RES, version 1.0.0.4. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB_RES 1.0.0.4: 40 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        Base64PrefixTests.Base64Prefix_Members_HaveTheDocumentedValues
+        Expect.EndCase "Base64PrefixTests.Base64Prefix_Members_HaveTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GlobalResTests.Res_IsOneSharedInstance
+        Expect.EndCase "GlobalResTests.Res_IsOneSharedInstance", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GlobalResTests.Res_Read_ReplacesTheBytesForEveryCaller
+        Expect.EndCase "GlobalResTests.Res_Read_ReplacesTheBytesForEveryCaller", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GlobalResTests.Res_Read_CanBeChained
+        Expect.EndCase "GlobalResTests.Res_Read_CanBeChained", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GlobalResTests.Res_DoesNotShareBytesWithANewCRes
+        Expect.EndCase "GlobalResTests.Res_DoesNotShareBytesWithANewCRes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.Read_ByNumericId_LoadsTheResource
+        Expect.EndCase "ReadTests.Read_ByNumericId_LoadsTheResource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.Read_ByName_LoadsTheResource
+        Expect.EndCase "ReadTests.Read_ByName_LoadsTheResource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.Read_NumericType_LoadsTheResource
+        Expect.EndCase "ReadTests.Read_NumericType_LoadsTheResource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.Read_ReturnsTheInstanceItself
+        Expect.EndCase "ReadTests.Read_ReturnsTheInstanceItself", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.Read_SecondRead_ReplacesTheBytes
+        Expect.EndCase "ReadTests.Read_SecondRead_ReplacesTheBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.Read_NoMatchingResource_RaisesError
+        Expect.EndCase "ReadTests.Read_NoMatchingResource_RaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.Read_IdOfAnotherType_RaisesError
+        Expect.EndCase "ReadTests.Read_IdOfAnotherType_RaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReadTests.Read_FileOnDisk_RaisesError
+        Expect.EndCase "ReadTests.Read_FileOnDisk_RaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBase64Tests.ReturnBase64_ShortResource_IsTheBase64OfTheBytes
+        Expect.EndCase "ReturnBase64Tests.ReturnBase64_ShortResource_IsTheBase64OfTheBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBase64Tests.ReturnBase64_LongResource_LineFeedAfterEvery72Characters
+        Expect.EndCase "ReturnBase64Tests.ReturnBase64_LongResource_LineFeedAfterEvery72Characters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBase64Tests.ReturnBase64_Default_HasNoPrefix
+        Expect.EndCase "ReturnBase64Tests.ReturnBase64_Default_HasNoPrefix", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBase64Tests.ReturnBase64_Prefix_AddsTheDataUriHeader
+        Expect.EndCase "ReturnBase64Tests.ReturnBase64_Prefix_AddsTheDataUriHeader", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBase64Tests.ReturnBase64_BeforeRead_RaisesError
+        Expect.EndCase "ReturnBase64Tests.ReturnBase64_BeforeRead_RaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBase64Tests.ReturnBase64_Msxml2DomDocument_IsCreatedAndEncodes
+        Expect.EndCase "ReturnBase64Tests.ReturnBase64_Msxml2DomDocument_IsCreatedAndEncodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBytesTests.ReturnBytes_ReturnsEveryByte
+        Expect.EndCase "ReturnBytesTests.ReturnBytes_ReturnsEveryByte", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBytesTests.ReturnBytes_IsACopy
+        Expect.EndCase "ReturnBytesTests.ReturnBytes_IsACopy", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnBytesTests.ReturnBytes_BeforeRead_HasNoElements
+        Expect.EndCase "ReturnBytesTests.ReturnBytes_BeforeRead_HasNoElements", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnHexTests.ReturnHex_Default_TwoUppercaseDigitsForEachByte
+        Expect.EndCase "ReturnHexTests.ReturnHex_Default_TwoUppercaseDigitsForEachByte", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnHexTests.ReturnHex_Separator_IsBetweenBytesNotAfterTheLast
+        Expect.EndCase "ReturnHexTests.ReturnHex_Separator_IsBetweenBytesNotAfterTheLast", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnHexTests.ReturnHex_LineBreak_AddsCrLfAfterEveryGroup
+        Expect.EndCase "ReturnHexTests.ReturnHex_LineBreak_AddsCrLfAfterEveryGroup", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnHexTests.ReturnHex_LineBreak_NoBreakAfterTheLastByte
+        Expect.EndCase "ReturnHexTests.ReturnHex_LineBreak_NoBreakAfterTheLastByte", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnHexTests.ReturnHex_LineBreakAndSeparator_SeparatorInsideEachLine
+        Expect.EndCase "ReturnHexTests.ReturnHex_LineBreakAndSeparator_SeparatorInsideEachLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnHexTests.ReturnHex_BeforeRead_RaisesError
+        Expect.EndCase "ReturnHexTests.ReturnHex_BeforeRead_RaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnPictureTests.ReturnPicture_Bmp_ReturnsABitmapPicture
+        Expect.EndCase "ReturnPictureTests.ReturnPicture_Bmp_ReturnsABitmapPicture", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnPictureTests.ReturnPicture_Png_ReturnsABitmapPicture
+        Expect.EndCase "ReturnPictureTests.ReturnPicture_Png_ReturnsABitmapPicture", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnPictureTests.ReturnPicture_Gif_ReturnsABitmapPicture
+        Expect.EndCase "ReturnPictureTests.ReturnPicture_Gif_ReturnsABitmapPicture", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnPictureTests.ReturnPicture_NotAnImage_RaisesError
+        Expect.EndCase "ReturnPictureTests.ReturnPicture_NotAnImage_RaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnPictureTests.ReturnPicture_BeforeRead_RaisesError
+        Expect.EndCase "ReturnPictureTests.ReturnPicture_BeforeRead_RaisesError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnStringTests.ReturnString_Default_ReadsAnsiText
+        Expect.EndCase "ReturnStringTests.ReturnString_Default_ReadsAnsiText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnStringTests.ReturnString_FromUtf8_ReadsUtf8Text
+        Expect.EndCase "ReturnStringTests.ReturnString_FromUtf8_ReadsUtf8Text", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnStringTests.ReturnString_WrongConversion_GivesOtherCharacters
+        Expect.EndCase "ReturnStringTests.ReturnString_WrongConversion_GivesOtherCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnStringTests.ReturnString_FromUnicode_DoesNotConvertBytesToText
+        Expect.EndCase "ReturnStringTests.ReturnString_FromUnicode_DoesNotConvertBytesToText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnStringTests.ReturnString_Utf16Resource_NoOptionGivesTheText
+        Expect.EndCase "ReturnStringTests.ReturnString_Utf16Resource_NoOptionGivesTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnStringTests.ReturnBytes_Utf16Resource_AssignedToAStringGivesTheText
+        Expect.EndCase "ReturnStringTests.ReturnBytes_Utf16Resource_AssignedToAStringGivesTheText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ReturnStringTests.ReturnString_BeforeRead_IsEmpty
+        Expect.EndCase "ReturnStringTests.ReturnString_BeforeRead_IsEmpty", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/Sources/TestData.twin b/test/package-tests/TBMANLIB_RES/Sources/TestData.twin
new file mode 100644
index 00000000..6dc2d59a
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/Sources/TestData.twin
@@ -0,0 +1,78 @@
+' TBMANLIB_RES: the bytes of the project's resources (Resources/ of this project), and the helpers
+' that work out what the package should return from them without using the package.
+'
+' Resources:  BINARY/#101  the 8 bytes 00 01 0A 0F 10 7F 80 FF
+'             BINARY/#102  the 100 bytes 0 to 99
+'             CUSTOM/CONFIG_DATA  DE AD BE EF
+'             RCDATA/#7  07 08 09
+'             TEXT/#101  "Hello, world" as ANSI text
+'             TEXT/#102  "Caf" and the UTF-8 bytes C3 A9 (the letter e with an acute accent)
+'             TEXT/#103  "Hi" as UTF-16 LE text
+'             BMP/#101, PNG/#101  a 2 x 3 pixel image; GIF/#101  a 1 x 1 pixel image
+Module TestData
+
+    Public Function Binary101() As Byte()
+        Dim b(0 To 7) As Byte
+        b(0) = &H0
+        b(1) = &H1
+        b(2) = &HA
+        b(3) = &HF
+        b(4) = &H10
+        b(5) = &H7F
+        b(6) = &H80
+        b(7) = &HFF
+        Binary101 = b
+    End Function
+
+    Public Function Binary102() As Byte()
+        Dim b(0 To 99) As Byte
+        Dim i As Long
+        For i = 0 To 99
+            b(i) = i
+        Next
+        Binary102 = b
+    End Function
+
+    ' The bytes as 2-digit upper-case hex, with no separator.
+    Public Function HexOf(ByRef b() As Byte) As String
+        Dim i As Long
+        Dim s As String
+        For i = LBound(b) To UBound(b)
+            s = s & Right$("0" & Hex$(b(i)), 2)
+        Next
+        HexOf = s
+    End Function
+
+    Public Function SameBytes(ByRef a() As Byte, ByRef b() As Byte) As Boolean
+        Dim i As Long
+        If UBound(a) <> UBound(b) Then Exit Function
+        For i = LBound(a) To UBound(a)
+            If a(i) <> b(i) Then Exit Function
+        Next
+        SameBytes = True
+    End Function
+
+    ' Base64 as RFC 4648 writes it: no line feeds.
+    Public Function Base64Of(ByRef b() As Byte) As String
+        Const Digits As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
+        Dim n As Long
+        Dim i As Long
+        Dim v As Long
+        Dim k As Long
+        Dim s As String
+        n = UBound(b) - LBound(b) + 1
+        For i = 0 To n - 1 Step 3
+            k = n - i
+            If k > 3 Then k = 3
+            v = CLng(b(LBound(b) + i)) * 65536
+            If k > 1 Then v = v + CLng(b(LBound(b) + i + 1)) * 256
+            If k > 2 Then v = v + b(LBound(b) + i + 2)
+            s = s & Mid$(Digits, (v \ 262144) + 1, 1)
+            s = s & Mid$(Digits, ((v \ 4096) And 63) + 1, 1)
+            If k > 1 Then s = s & Mid$(Digits, ((v \ 64) And 63) + 1, 1) Else s = s & "="
+            If k > 2 Then s = s & Mid$(Digits, (v And 63) + 1, 1) Else s = s & "="
+        Next
+        Base64Of = s
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB_RES/expect.json b/test/package-tests/TBMANLIB_RES/expect.json
new file mode 100644
index 00000000..fa1a6e29
--- /dev/null
+++ b/test/package-tests/TBMANLIB_RES/expect.json
@@ -0,0 +1,4 @@
+{
+  "version": "1.0.0.4",
+  "cases": {}
+}
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/DeclarationTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/DeclarationTests.twin
new file mode 100644
index 00000000..a68ed8b4
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/DeclarationTests.twin
@@ -0,0 +1,101 @@
+' cXml.Parse and the items that are not elements or text: comments, CDATA sections, processing
+' instructions and the DOCTYPE declaration. A call must return; some of these calls do not.
+[TestFixture]
+Module DeclarationTests
+
+    [TestCase]
+    Public Sub Parse_UnclosedComment_Returns()
+        Expect.Begin
+        Dim x As New cXml
+        Dim ok As Boolean
+        ok = x.Parse("<root><!-- never closed </root>")
+        Expect.IsFalse ok, "Parse of <root><!-- never closed </root> (an ill-formed text) returns False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_UnclosedCDataSection_Returns()
+        Expect.Begin
+        Dim x As New cXml
+        Dim ok As Boolean
+        ok = x.Parse("<root><![CDATA[ never closed </root>")
+        Expect.IsFalse ok, "Parse of <root><![CDATA[ never closed </root> (an ill-formed text) returns False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DoctypeAfterTheDeclaration_Returns()
+        Expect.Begin
+        Dim x As New cXml
+        Dim ok As Boolean
+        ok = x.Parse("<?xml version=""1.0""?><!DOCTYPE root><root></root>")
+        Expect.IsTrue ok, "Parse of a declaration, a DOCTYPE and a root element returns True"
+        Expect.AreEqual "root", Helpers.NameOf(x.RootElement), "the root element of that text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DoctypeInsideAnElement_Returns()
+        Expect.Begin
+        Dim x As New cXml
+        Dim ok As Boolean
+        ok = x.Parse("<root><!DOCTYPE x><a>1</a></root>")
+        Expect.AreEqual "1", x.GetElementText("root/a"), "the text of root/a in <root><!DOCTYPE x><a>1</a></root>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DoctypeAtTheStart_IsSkipped()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<!DOCTYPE note SYSTEM ""Note.dtd""><note>text</note>")
+        Expect.AreEqual "text", x.GetElementText("note"), "the text of note in a text that starts with a DOCTYPE"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DoctypeFollowedByAnInstruction_KeepsTheRootElement()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<?xml version=""1.0""?><!DOCTYPE note><note>text</note><?pi?>")
+        Expect.AreEqual "note", Helpers.NameOf(x.RootElement), "the root element of a declaration, a DOCTYPE, a root element and an instruction"
+        Expect.AreEqual "text", x.GetElementText("note"), "the text of note in that text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_ProcessingInstructionInsideAnElement_LeavesNoText()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<root><?pi data?><a>x</a></root>")
+        Expect.AreEqual "x", x.GetElementText("root"), "the text of root in <root><?pi data?><a>x</a></root>"
+        Expect.AreEqual 1, x.RootElement.ChildNodes.Count, "the children of root in <root><?pi data?><a>x</a></root>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_CommentAndCDataSection_AreKeptAsNodes()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r>text<!--note--><![CDATA[data <b>]]></r>")
+        Expect.AreEqual 3, x.RootElement.ChildNodes.Count, "the children of r"
+        Expect.AreEqual XmlNodeType.Text, x.RootElement.ChildNodes(1).NodeType, "the kind of the first child"
+        Expect.AreEqual XmlNodeType.Comment, x.RootElement.ChildNodes(2).NodeType, "the kind of the second child"
+        Expect.AreEqual "note", x.RootElement.ChildNodes(2).Value, "the value of the comment"
+        Expect.AreEqual XmlNodeType.CData, x.RootElement.ChildNodes(3).NodeType, "the kind of the third child"
+        Expect.AreEqual "data <b>", x.RootElement.ChildNodes(3).Value, "the value of the CDATA section"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_XmlDeclaration_SetsVersionAndEncoding()
+        Expect.Begin
+        Dim x As New cXml
+        Expect.IsTrue x.Parse("<?xml version=""1.1"" encoding=""ISO-8859-1""?><r a=""1""><b>text</b></r>"), "Parse of a text with a declaration"
+        Expect.AreEqual "1.1", x.Version, "Version after Parse"
+        Expect.AreEqual "ISO-8859-1", x.Encoding, "Encoding after Parse"
+        Expect.AreEqual "r", Helpers.NameOf(x.RootElement), "the root element"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/DocumentTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/DocumentTests.twin
new file mode 100644
index 00000000..b38ee209
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/DocumentTests.twin
@@ -0,0 +1,199 @@
+' cXml as a whole document: Clone, Merge, removing the root element, XmlString, and the Version and
+' Encoding it keeps.
+[TestFixture]
+Module DocumentTests
+
+    ' ---- Clone and Merge
+
+    [TestCase]
+    Public Sub Clone_CopiedNodes_CanBeRemoved()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a></r>")
+        Dim y As cXml
+        Set y = x.Clone()
+        Expect.IsTrue y.RemoveElement("r/a"), "RemoveElement of r/a in the clone"
+        Expect.AreEqual "<r/>", y.ToXmlString(False), "ToXmlString of the clone after RemoveElement of r/a"
+        Expect.AreEqual "1", x.GetElementText("r/a"), "GetElementText of r/a in the original"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_ChangesToTheCloneDoNotReachTheOriginal()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a></r>")
+        Dim y As cXml
+        Set y = x.Clone()
+        y.SetElementText "r/a", "2"
+        Expect.AreEqual "1", x.GetElementText("r/a"), "GetElementText of r/a in the original"
+        Expect.AreEqual "2", y.GetElementText("r/a"), "GetElementText of r/a in the clone"
+        Expect.AreEqual "", y.XmlString, "XmlString of the clone"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_NodesOfTheClone_HaveAParent()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a></r>")
+        Dim y As cXml
+        Set y = x.Clone()
+        Expect.AreEqual "#document", Helpers.NameOf(y.RootElement.Parent), "the Parent of the root element of the clone"
+        Expect.AreEqual "r", Helpers.NameOf(y.RootElement.ChildNodes(1).Parent), "the Parent of the first child of the root element of the clone"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Merge_AddedNodes_CanBeRemoved()
+        Expect.Begin
+        Dim a As cXml
+        Set a = Helpers.Doc("<list a=""1""><x>1</x></list>")
+        Dim b As cXml
+        Set b = Helpers.Doc("<other b=""2""><y>2</y></other>")
+        a.Merge b
+        Expect.AreEqual "<list a=""1""><x>1</x><y>2</y></list>", a.ToXmlString(False), "ToXmlString after Merge"
+        Expect.IsTrue a.RemoveElement("list/y"), "RemoveElement of list/y, an element that Merge added"
+        Expect.AreEqual "<list a=""1""><x>1</x></list>", a.ToXmlString(False), "ToXmlString after RemoveElement of list/y"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Merge_IntoAnObjectWithNoDocument_SetsTheRootElement()
+        Expect.Begin
+        Dim y As cXml
+        Set y = Helpers.Doc("<r><a>1</a></r>")
+        Dim c As New cXml
+        c.Merge y
+        Expect.IsTrue c.Initialized, "Initialized after Merge into an object with no document"
+        Expect.AreEqual "r", Helpers.NameOf(c.RootElement), "RootElement after Merge into an object with no document"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Merge_SecondMergeIntoAnObjectWithNoDocument_AppendsTheChildren()
+        Expect.Begin
+        Dim y As cXml
+        Set y = Helpers.Doc("<r><a>1</a></r>")
+        Dim z As cXml
+        Set z = Helpers.Doc("<q><z>3</z></q>")
+        Dim c As New cXml
+        c.Merge y
+        c.Merge z
+        Expect.AreEqual "<r><a>1</a><z>3</z></r>", c.ToXmlString(False), "ToXmlString after two Merge calls into an object with no document"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Merge_NothingAsTheOtherDocument_DoesNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a></r>")
+        Dim none As cXml
+        Err.Clear
+        On Error Resume Next
+        x.Merge none
+        Expect.AreEqual 0, Err.Number, "the error number of Merge with Nothing"
+        On Error GoTo 0
+        Expect.AreEqual "<r><a>1</a></r>", x.ToXmlString(False), "ToXmlString after Merge with Nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Merge_ObjectWithNoDocument_AsTheOtherDocument_DoesNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a></r>")
+        Dim blank As New cXml
+        x.Merge blank
+        Expect.AreEqual "<r><a>1</a></r>", x.ToXmlString(False), "ToXmlString after Merge of an object with no document"
+        Expect.Done
+    End Sub
+
+    ' ---- the root element
+
+    [TestCase]
+    Public Sub RemoveElement_RootElement_LeavesNoRootElement()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a></r>")
+        Expect.IsTrue x.RemoveElement("r"), "RemoveElement of r"
+        Expect.AreEqual "Nothing", Helpers.NameOf(x.RootElement), "RootElement after RemoveElement of r"
+        Expect.AreEqual "", x.ToXmlString(False), "ToXmlString after RemoveElement of r"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemoveElement_FirstOfSeveralElements_RemovesOnlyThatOne()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a><a>2</a><b></b></r>")
+        Expect.IsTrue x.RemoveElement("r/a"), "RemoveElement of r/a"
+        Expect.AreEqual "2", x.GetElementText("r/a"), "GetElementText of r/a after the first a is removed"
+        Expect.IsFalse x.RemoveElement("r/missing"), "RemoveElement of r/missing"
+        Expect.Done
+    End Sub
+
+    ' ---- XmlString
+
+    [TestCase]
+    Public Sub XmlString_TextThatCannotBeRead_RaisesNoError()
+        Expect.Begin
+        Dim x As New cXml
+        Err.Clear
+        On Error Resume Next
+        x.XmlString = "<"
+        Expect.AreEqual 0, Err.Number, "the error number of setting XmlString to <"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub XmlString_TextThatCannotBeRead_IsStillKept()
+        Expect.Begin
+        Dim x As New cXml
+        On Error Resume Next
+        x.XmlString = "<"
+        On Error GoTo 0
+        Expect.AreEqual "<", x.XmlString, "XmlString after it is set to <"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub XmlString_ReadsTheTextLastParsed_NotTheDocument()
+        Expect.Begin
+        Dim x As New cXml
+        x.XmlString = "<r><a>1</a></r>"
+        Expect.AreEqual "1", x.GetElementText("r/a"), "GetElementText of r/a after XmlString is set"
+        x.SetElementText "r/a", "2"
+        Expect.AreEqual "<r><a>1</a></r>", x.XmlString, "XmlString after SetElementText"
+        Expect.AreEqual "<r><a>2</a></r>", x.ToXmlString(False), "ToXmlString after SetElementText"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub XmlString_EmptyString_GivesAnInitialisedDocumentWithNoNodes()
+        Expect.Begin
+        Dim x As New cXml
+        x.XmlString = ""
+        Expect.IsTrue x.Initialized, "Initialized after XmlString is set to an empty string"
+        Expect.AreEqual 0, x.Document.ChildNodes.Count, "the children of the document node"
+        Expect.Done
+    End Sub
+
+    ' ---- Version and Encoding
+
+    [TestCase]
+    Public Sub Encoding_AndVersion_AreWrittenIntoTheDeclaration()
+        Expect.Begin
+        Dim x As New cXml
+        Expect.AreEqual "UTF-8", x.Encoding, "Encoding of a new object"
+        Expect.AreEqual "1.0", x.Version, "Version of a new object"
+        x.CreateNew "r"
+        x.Encoding = "UTF-16"
+        x.Version = "1.1"
+        Expect.AreEqual "<?xml version=""1.1"" encoding=""UTF-16""?><r/>", x.ToXmlString(), "ToXmlString after Encoding and Version are set"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/EntityTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/EntityTests.twin
new file mode 100644
index 00000000..66c49875
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/EntityTests.twin
@@ -0,0 +1,87 @@
+' Entities and character references (XML 1.0, section 4): the five predefined entities and numeric
+' references are replaced by their characters in text and in attribute values, and written once.
+[TestFixture]
+Module EntityTests
+
+    [TestCase]
+    Public Sub Parse_PredefinedEntitiesInText_AreDecoded()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>Tom &amp; Jerry &lt;3 &gt; &quot;q&quot; &apos;s&apos;</a>")
+        Expect.AreEqual "Tom & Jerry <3 > ""q"" 's'", x.GetElementText("a"), "GetElementText of a text with the five predefined entities"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_NumericReferencesInText_AreDecoded()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>&#65;&#x42;</a>")
+        Expect.AreEqual "AB", x.GetElementText("a"), "GetElementText of <a>&#65;&#x42;</a>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_NumericReferencesInAttribute_AreDecoded()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a v=""&#65;&#x42;""></a>")
+        Expect.AreEqual "AB", x.GetAttribute("a", "v"), "GetAttribute of v=""&#65;&#x42;"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_PredefinedEntitiesInAttribute_AreDecoded()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a v=""Tom &amp; Jerry &lt;3 &gt; &quot;q&quot; &apos;s&apos;""></a>")
+        Expect.AreEqual "Tom & Jerry <3 > ""q"" 's'", x.GetAttribute("a", "v"), "GetAttribute of an attribute with the five predefined entities"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_AmpersandEntityBeforeText_IsNotDecodedTwice()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a v=""&amp;quot;""></a>")
+        Expect.AreEqual "&quot;", x.GetAttribute("a", "v"), "GetAttribute of v=""&amp;quot;"" (the characters &quot; and nothing more)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToXmlString_TextReadFromXml_IsEscapedOnce()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>Tom &amp; Jerry</a>")
+        Expect.AreEqual "<a>Tom &amp; Jerry</a>", x.ToXmlString(False), "ToXmlString of <a>Tom &amp; Jerry</a>"
+        Dim y As cXml
+        Set y = Helpers.Doc(x.ToXmlString(False))
+        Expect.AreEqual "Tom & Jerry", y.GetElementText("a"), "GetElementText after the text is written and read again"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToXmlString_AttributeReadFromXml_IsEscapedOnce()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a title=""Tom &amp; Jerry &#65;""></a>")
+        Expect.AreEqual "<a title=""Tom &amp; Jerry A""/>", x.ToXmlString(False), "ToXmlString of <a title=""Tom &amp; Jerry &#65;""></a>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetElementText_PlainText_IsWrittenOnce()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "a"
+        x.SetElementText "a", "Tom & Jerry <3"
+        x.SetAttribute "a", "t", "R&D ""x"""
+        Expect.AreEqual "<a t=""R&amp;D &quot;x&quot;"">Tom &amp; Jerry &lt;3</a>", x.ToXmlString(False), "ToXmlString of text and an attribute set as plain text"
+        Dim y As cXml
+        Set y = Helpers.Doc(x.ToXmlString(False))
+        Expect.AreEqual "Tom & Jerry <3", y.GetElementText("a"), "GetElementText after the text is written and read again"
+        Expect.AreEqual "R&D ""x""", y.GetAttribute("a", "t"), "GetAttribute after the text is written and read again"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/FileTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/FileTests.twin
new file mode 100644
index 00000000..2f4e5a1b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/FileTests.twin
@@ -0,0 +1,171 @@
+' cXml.LoadFromFile and cXml.SaveToFile. Every file is under %TEMP%\tbdocs-package-tests\TBMANLIB_Xml\.
+[TestFixture]
+Module FileTests
+
+    [TestCase]
+    Public Sub LoadFromFile_MissingFile_ReturnsFalseAndCreatesNoFile()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("LoadFromFile_MissingFile")
+        Dim p As String = w & "\missing.xml"
+        Dim x As New cXml
+        Expect.IsFalse x.LoadFromFile(p), "LoadFromFile of a file that does not exist"
+        Expect.AreEqual "", Dir$(p), "the file after LoadFromFile of a file that does not exist"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFromFile_FileThatCannotBeParsed_ReturnsFalse()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("LoadFromFile_Unparsable")
+        Dim p As String = w & "\cut.xml"
+        Helpers.WriteUtf8 p, "<r><a"
+        Dim x As New cXml
+        Expect.IsFalse x.LoadFromFile(p), "LoadFromFile of a file that holds <r><a (a tag cut off by the end of the file)"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFromFile_EmptyFile_ReturnsFalse()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("LoadFromFile_EmptyFile")
+        Dim p As String = w & "\empty.xml"
+        Helpers.WriteEmpty p
+        Dim x As New cXml
+        Expect.IsFalse x.LoadFromFile(p), "LoadFromFile of an empty file"
+        Expect.IsFalse x.Initialized, "Initialized after LoadFromFile of an empty file"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LoadFromFile_Utf8FileWithAndWithoutBom_IsRead()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("LoadFromFile_Bom")
+        Dim text As String = "<?xml version=""1.0"" encoding=""UTF-8""?><config><name>caf" & ChrW(233) & ChrW(&H20AC) & "</name></config>"
+        Dim plain As String = w & "\plain.xml"
+        Dim marked As String = w & "\marked.xml"
+        Helpers.WriteUtf8 plain, text
+        Dim b() As Byte
+        b = StringToUTF8Bytes(text)
+        Dim m() As Byte
+        ReDim m(0 To UBound(b) + 3)
+        m(0) = &HEF
+        m(1) = &HBB
+        m(2) = &HBF
+        Dim i As Long
+        For i = 0 To UBound(b)
+            m(i + 3) = b(i)
+        Next
+        Helpers.WriteBytes marked, m
+        Dim x As New cXml
+        Expect.IsTrue x.LoadFromFile(plain), "LoadFromFile of a UTF-8 file with no byte order mark"
+        Expect.AreEqual "caf" & ChrW(233) & ChrW(&H20AC), x.GetElementText("config/name"), "the text of config/name read from the file with no byte order mark"
+        Expect.IsTrue x.LoadFromFile(marked), "LoadFromFile of a UTF-8 file with a byte order mark"
+        Expect.AreEqual "caf" & ChrW(233) & ChrW(&H20AC), x.GetElementText("config/name"), "the text of config/name read from the file with a byte order mark"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveToFile_WritesByteOrderMarkThenUtf8()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("SaveToFile_Utf8")
+        Dim p As String = w & "\note.xml"
+        Dim x As New cXml
+        x.CreateNew "note"
+        x.AddElement "note", "to"
+        x.SetElementText "note/to", "Ada " & ChrW(233) & ChrW(&H20AC)
+        Expect.IsTrue x.SaveToFile(p), "SaveToFile of a document"
+        Dim b() As Byte
+        b = Helpers.ReadBytes(p)
+        Expect.AreEqual &HEF, CLng(b(0)), "the first byte of the file"
+        Expect.AreEqual &HBB, CLng(b(1)), "the second byte of the file"
+        Expect.AreEqual &HBF, CLng(b(2)), "the third byte of the file"
+        Dim y As New cXml
+        Expect.IsTrue y.LoadFromFile(p), "LoadFromFile of the file that SaveToFile wrote"
+        Expect.AreEqual "Ada " & ChrW(233) & ChrW(&H20AC), y.GetElementText("note/to"), "the text of note/to read back"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveToFile_MissingFolder_ReturnsFalse()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("SaveToFile_MissingFolder")
+        Dim x As New cXml
+        x.CreateNew "r"
+        Expect.IsFalse x.SaveToFile(w & "\no such folder\r.xml"), "SaveToFile into a folder that does not exist"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveToFile_ExistingFile_IsReplaced()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("SaveToFile_Replace")
+        Dim p As String = w & "\r.xml"
+        Dim x As New cXml
+        x.CreateNew "long_root_name_that_makes_the_first_file_longer"
+        x.SetElementText "long_root_name_that_makes_the_first_file_longer", "t"
+        x.SaveToFile p
+        Dim size1 As Long = FileLen(p)
+        x.CreateNew "r"
+        x.SetElementText "r", "t"
+        x.SaveToFile p
+        Dim y As New cXml
+        Expect.IsTrue y.LoadFromFile(p), "LoadFromFile of the file after it is written twice"
+        Expect.AreEqual "r", Helpers.NameOf(y.RootElement), "the root element after it is written twice"
+        Expect.IsTrue FileLen(p) < size1, "the file is shorter after the shorter document replaces the longer"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveToFile_PrettyPrintAndIndent_ChangeTheSizeOfTheFile()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("SaveToFile_Pretty")
+        Dim p As String = w & "\r.xml"
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.AddElement "r", "a"
+        x.SetElementText "r/a", "t"
+        x.SaveToFile p, False
+        Expect.AreEqual 18, FileLen(p), "the size of the compact file"
+        x.SaveToFile p, False, True
+        Expect.AreEqual 36, FileLen(p), "the size of the pretty-printed file"
+        x.SaveToFile p, False, True, vbTab
+        Expect.AreEqual 32, FileLen(p), "the size of the pretty-printed file indented with tabs"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SaveToFile_DeclaredEncoding_MatchesTheBytesWritten()
+        Expect.Begin
+        Dim w As String = Helpers.FreshFolder("SaveToFile_Encoding")
+        Dim p As String = w & "\latin.xml"
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.Encoding = "ISO-8859-1"
+        x.AddElement "r", "t"
+        x.SetElementText "r/t", ChrW(233)
+        x.SaveToFile p
+        Dim b() As Byte
+        b = Helpers.ReadBytes(p)
+        Dim head As String
+        Dim i As Long
+        Dim utf8E As Boolean
+        For i = 0 To UBound(b)
+            If i < 60 Then head = head & Chr$(b(i) And &H7F)
+            If i < UBound(b) Then
+                If b(i) = &HC3 And b(i + 1) = &HA9 Then utf8E = True
+            End If
+        Next
+        Expect.IsFalse (InStr(head, "ISO-8859-1") > 0 And utf8E), "the file declares ISO-8859-1 and writes the letter e with an acute accent as the two UTF-8 bytes C3 A9"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/Helpers.twin b/test/package-tests/TBMANLIB_Xml/Sources/Helpers.twin
new file mode 100644
index 00000000..e9dd45f3
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/Helpers.twin
@@ -0,0 +1,185 @@
+' Helpers: what the test cases of TBMANLIB_Xml share.
+'
+' Document reads a text into a cXml. Listed shows a collection of nodes as one line, Describe one
+' node: an element as name#id (its id attribute), a text node, a CDATA section or a comment as
+' name=value. MsListed does the same for the nodes that MSXML6 (the Microsoft XML parser, which
+' follows XML 1.0 and XPath 1.0) selects, so a case can compare the package with it. Every file the
+' cases write is under %TEMP%\tbdocs-package-tests\TBMANLIB_Xml\.
+Module Helpers
+
+    ' A cXml that holds the text; the case fails when the text does not parse.
+    Public Function Doc(ByVal Text As String) As cXml
+        Dim x As New cXml
+        If Not x.Parse(Text) Then Expect.Fail "the document " & Text & " did not parse"
+        Set Doc = x
+    End Function
+
+    ' One node of the package: an element as name#id, any other node as name=value.
+    Public Function Describe(ByVal N As cXmlNode) As String
+        If N Is Nothing Then
+            Describe = "Nothing"
+        ElseIf N.NodeType = XmlNodeType.Element Then
+            Describe = N.Name & "#" & N.GetAttribute("id")
+        ElseIf N.NodeType = XmlNodeType.Document Then
+            Describe = "#document"
+        Else
+            Describe = N.Name & "=" & N.Value
+        End If
+    End Function
+
+    ' The nodes of a collection, in order, separated by spaces.
+    Public Function Listed(ByVal Nodes As Collection) As String
+        Dim n As cXmlNode
+        Dim s As String
+        For Each n In Nodes
+            If Len(s) > 0 Then s = s & " "
+            s = s & Describe(n)
+        Next
+        Listed = s
+    End Function
+
+    ' The nodes that an XPath 1.0 expression selects in the text, as MSXML6 finds them.
+    Public Function MsListed(ByVal XmlText As String, ByVal Query As String) As String
+        Dim d As Object
+        Set d = CreateObject("MSXML2.DOMDocument.6.0")
+        d.async = False
+        d.preserveWhiteSpace = True
+        d.setProperty "SelectionLanguage", "XPath"
+        If Not d.loadXML(XmlText) Then
+            MsListed = "(MSXML6 cannot read the document: " & d.parseError.reason & ")"
+            Exit Function
+        End If
+        Dim nodes As Object
+        On Error Resume Next
+        Set nodes = d.selectNodes(Query)
+        If Err.Number <> 0 Then
+            MsListed = "(MSXML6 refuses the expression)"
+            On Error GoTo 0
+            Exit Function
+        End If
+        On Error GoTo 0
+        Dim i As Long
+        Dim n As Object
+        Dim s As String
+        Dim id As Variant
+        For i = 0 To nodes.length - 1
+            Set n = nodes.Item(i)
+            If Len(s) > 0 Then s = s & " "
+            If n.nodeType = 1 Then
+                id = n.getAttribute("id")
+                s = s & n.nodeName & "#" & ("" & id)
+            ElseIf n.nodeType = 9 Then
+                s = s & "#document"
+            Else
+                s = s & n.nodeName & "=" & n.nodeValue
+            End If
+        Next
+        MsListed = s
+    End Function
+
+    ' Checks that the package's XPath selects what MSXML6 selects for the same document and expression.
+    Public Sub SelectsAsMsxml(ByVal XmlText As String, ByVal Query As String)
+        Dim x As cXml
+        Set x = Doc(XmlText)
+        Expect.AreEqual MsListed(XmlText, Query), Listed(x.XPath(Query)), "XPath " & Query & " on " & XmlText
+    End Sub
+
+    ' A string with its control characters written out, for a check that must show them.
+    Public Function Shown(ByVal S As String) As String
+        Shown = Replace(Replace(Replace(S, vbCr, "\r"), vbLf, "\n"), vbTab, "\t")
+    End Function
+
+    ' The name of a node, or Nothing written out.
+    Public Function NameOf(ByVal N As cXmlNode) As String
+        If N Is Nothing Then NameOf = "Nothing" Else NameOf = N.Name
+    End Function
+
+    ' The name of the Index-th child of a node, or a note that there is none.
+    Public Function ChildName(ByVal N As cXmlNode, ByVal Index As Long) As String
+        If N Is Nothing Then
+            ChildName = "(no node)"
+        ElseIf Index > N.ChildNodes.Count Then
+            ChildName = "(no child " & Index & ")"
+        Else
+            ChildName = N.ChildNodes(Index).Name
+        End If
+    End Function
+
+    ' ---- files
+
+    Public Function Folder() As String
+        Folder = Environ$("TEMP") & "\tbdocs-package-tests\TBMANLIB_Xml"
+    End Function
+
+    ' A new, empty folder for one case.
+    Public Function FreshFolder(ByVal Tag As String) As String
+        Dim p As String
+        p = Folder() & "\" & Tag
+        RemoveFolder p
+        On Error Resume Next
+        MkDir Environ$("TEMP") & "\tbdocs-package-tests"
+        MkDir Folder()
+        MkDir p
+        Err.Clear
+        On Error GoTo 0
+        FreshFolder = p
+    End Function
+
+    Public Sub RemoveFolder(ByVal Path As String)
+        On Error Resume Next
+        Dim f As String
+        f = Dir$(Path & "\*.*")
+        Do While Len(f) > 0
+            Kill Path & "\" & f
+            f = Dir$(Path & "\*.*")
+        Loop
+        RmDir Path
+        RmDir Folder()
+        RmDir Environ$("TEMP") & "\tbdocs-package-tests"
+        Err.Clear
+    End Sub
+
+    ' The bytes of a file.
+    Public Function ReadBytes(ByVal Path As String) As Byte()
+        Dim n As Long = FreeFile()
+        Dim b() As Byte
+        Open Path For Binary Access Read As #n
+        If LOF(n) > 0 Then
+            ReDim b(0 To LOF(n) - 1)
+            Get #n, , b
+        End If
+        Close #n
+        ReadBytes = b
+    End Function
+
+    ' Writes the bytes to a file, replacing it.
+    Public Sub WriteBytes(ByVal Path As String, ByRef Bytes() As Byte)
+        Dim n As Long = FreeFile()
+        On Error Resume Next
+        Kill Path
+        Err.Clear
+        On Error GoTo 0
+        Open Path For Binary Access Write As #n
+        Put #n, , Bytes
+        Close #n
+    End Sub
+
+    ' Writes the text to a file as UTF-8 bytes, with no byte order mark.
+    Public Sub WriteUtf8(ByVal Path As String, ByVal Text As String)
+        Dim b() As Byte
+        b = StringToUTF8Bytes(Text)
+        WriteBytes Path, b
+    End Sub
+
+    ' Makes an empty file.
+    Public Sub WriteEmpty(ByVal Path As String)
+        Dim n As Long = FreeFile()
+        On Error Resume Next
+        Kill Path
+        Err.Clear
+        On Error GoTo 0
+        Open Path For Output As #n
+        Close #n
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/NodeTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/NodeTests.twin
new file mode 100644
index 00000000..30f34289
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/NodeTests.twin
@@ -0,0 +1,163 @@
+' cXmlNode: how it compares names (XML 1.0 compares them exactly), what Text and XPathText return,
+' and the node kinds the parser makes.
+[TestFixture]
+Module NodeTests
+
+    ' ---- names are compared exactly in XML
+
+    [TestCase]
+    Public Sub ElementNames_DifferingInCase_AreDifferentElements()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a id=""1"">x</a><A id=""2"">y</A></r>")
+        Expect.AreEqual 1, x.SelectElements("a").Count, "the nodes of SelectElements(a) in <r><a/><A/></r>"
+        Expect.AreEqual "2", x.RootElement.GetChildNode("A").GetAttribute("id"), "the id of GetChildNode(A)"
+        Expect.AreEqual 1, x.RootElement.GetChildNodesByName("a").Count, "the nodes of GetChildNodesByName(a)"
+        Expect.AreEqual "y", x.GetElementText("r/A"), "GetElementText of r/A"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AttributeNames_DifferingInCase_AreDifferentAttributes()
+        Expect.Begin
+        Dim n As New cXmlNode
+        n.SetAttribute "a", "1"
+        n.SetAttribute "A", "2"
+        Expect.AreEqual 4, n.Attributes.Count, "the entries of Attributes after a and A are set"
+        Expect.AreEqual "1", n.GetAttribute("a"), "GetAttribute of a"
+        Expect.AreEqual "2", n.GetAttribute("A"), "GetAttribute of A"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GetAttribute_NameInAnotherCase_FindsNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a id=""7""></a>")
+        Expect.AreEqual "7", x.RootElement.GetAttribute("id"), "GetAttribute of id"
+        Expect.AreEqual "", x.RootElement.GetAttribute("ID"), "GetAttribute of ID"
+        Expect.AreEqual "", x.GetAttribute("a", "Id"), "cXml.GetAttribute of Id"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemoveAttribute_NameInAnotherCase_RemovesNothing()
+        Expect.Begin
+        Dim n As New cXmlNode
+        n.SetAttribute "a", "1"
+        n.RemoveAttribute "A"
+        Expect.AreEqual 2, n.Attributes.Count, "the entries of Attributes after RemoveAttribute of A"
+        Expect.Done
+    End Sub
+
+    ' ---- text
+
+    [TestCase]
+    Public Sub XPathText_OfCXml_ReturnsTheTextAtAnyDepth()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>x<b>y</b>z</a>")
+        Expect.AreEqual "xyz", x.XPathText("/a"), "XPathText of /a"
+        Expect.AreEqual "y", x.XPathText("/a/b"), "XPathText of /a/b"
+        Expect.AreEqual "y", x.XPathText("//b/text()"), "XPathText of //b/text()"
+        Expect.AreEqual "", x.XPathText("/zzz"), "XPathText of /zzz"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub XPathText_OfCXmlNode_ReturnsTheTextDirectlyInsideTheNode()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>x<b>y</b>z</a>")
+        Expect.AreEqual "xz", x.RootElement.XPathText("."), "XPathText of ."
+        Expect.AreEqual "y", x.RootElement.XPathText("b"), "XPathText of b"
+        Expect.AreEqual "", x.RootElement.XPathText("b/text()"), "XPathText of b/text()"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Text_ReturnsTheTextAndCDataOfTheChildren()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>x<![CDATA[c]]><!--k--><b>y</b>z</a>")
+        Expect.AreEqual "xcz", x.RootElement.Text, "Text of the root element"
+        Expect.AreEqual "xcyz", x.GetElementText("a"), "GetElementText of a"
+        Expect.AreEqual "y", x.RootElement.GetChildNode("b").Text, "Text of b"
+        Expect.AreEqual "", x.RootElement.ChildNodes(1).Text, "Text of a text node"
+        Expect.Done
+    End Sub
+
+    ' ---- the kinds of node
+
+    [TestCase]
+    Public Sub Parse_NodeKinds_HaveTheirFixedNames()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r>text<!--note--><![CDATA[data]]></r>")
+        Expect.AreEqual "#document", x.Document.Name, "the name of the document node"
+        Expect.AreEqual XmlNodeType.Document, x.Document.NodeType, "the kind of the document node"
+        Expect.AreEqual "#text", x.RootElement.ChildNodes(1).Name, "the name of the text node"
+        Expect.AreEqual "#comment", x.RootElement.ChildNodes(2).Name, "the name of the comment"
+        Expect.AreEqual "#cdata-section", x.RootElement.ChildNodes(3).Name, "the name of the CDATA section"
+        Expect.AreEqual "r", Helpers.NameOf(x.RootElement.ChildNodes(1).Parent), "the parent of the text node"
+        Expect.AreEqual "#document", Helpers.NameOf(x.RootElement.Parent), "the parent of the root element"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_Node_IsEmpty()
+        Expect.Begin
+        Dim n As New cXmlNode
+        Expect.AreEqual "", n.Name, "Name of a new node"
+        Expect.AreEqual XmlNodeType.None, n.NodeType, "NodeType of a new node"
+        Expect.AreEqual 0, n.Attributes.Count, "Attributes of a new node"
+        Expect.AreEqual 0, n.ChildNodes.Count, "ChildNodes of a new node"
+        Expect.IsTrue (n.Parent Is Nothing), "Parent of a new node is Nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Attributes_AreAFlatListOfNamesAndValues()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<item id=""7"" kind=""tool""></item>")
+        Dim a As Collection
+        Set a = x.RootElement.Attributes
+        Expect.AreEqual 4, a.Count, "the entries of Attributes"
+        Expect.AreEqual "id", a(1), "entry 1"
+        Expect.AreEqual "7", a(2), "entry 2"
+        Expect.AreEqual "kind", a(3), "entry 3"
+        Expect.AreEqual "tool", a(4), "entry 4"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetAttribute_ReplacedAttribute_KeepsTheLastValueAndMovesToTheEnd()
+        Expect.Begin
+        Dim n As New cXmlNode
+        n.SetAttribute "a", "1"
+        n.SetAttribute "b", "2"
+        n.SetAttribute "a", "3"
+        Expect.AreEqual 4, n.Attributes.Count, "the entries of Attributes"
+        Expect.AreEqual "b", n.Attributes(1), "entry 1"
+        Expect.AreEqual "a", n.Attributes(3), "entry 3"
+        Expect.AreEqual "3", n.Attributes(4), "entry 4"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ChildNodes_NodeAddedByHand_IsWrittenByItsKind()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "r"
+        Dim t As New cXmlNode
+        t.NodeType = XmlNodeType.Text
+        t.Name = "#text"
+        t.Value = "hello"
+        Set t.Parent = x.RootElement
+        x.RootElement.ChildNodes.Add t
+        Expect.AreEqual "<r>hello</r>", x.ToXmlString(False), "ToXmlString after a text node is added by hand"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/ParseResultTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/ParseResultTests.twin
new file mode 100644
index 00000000..c9a1cd2b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/ParseResultTests.twin
@@ -0,0 +1,120 @@
+' What cXml.Parse leaves behind: after a call that fails, for white space, for a byte order mark and
+' for the root element. The expected values are those of XML 1.0, where MSXML6 is the reference.
+[TestFixture]
+Module ParseResultTests
+
+    [TestCase]
+    Public Sub Parse_Failure_KeepsThePreviousDocument()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>x</a>")
+        Dim ok As Boolean
+        ok = x.Parse("<")
+        Expect.IsFalse ok, "Parse of < returns False"
+        Expect.AreEqual "x", x.GetElementText("a"), "GetElementText of a after a failed Parse"
+        Expect.AreEqual 1, x.Document.ChildNodes.Count, "the children of the document node after a failed Parse"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_EmptyString_KeepsThePreviousDocument()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>x</a>")
+        Expect.IsFalse x.Parse(""), "Parse of an empty string returns False"
+        Expect.AreEqual "x", x.GetElementText("a"), "GetElementText of a after Parse of an empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_TextCutOffInATag_KeepsThePreviousDocument()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a>x</a>")
+        Dim ok As Boolean
+        ok = x.Parse("<b><c")
+        Expect.IsFalse ok, "Parse of <b><c returns False"
+        Expect.AreEqual "x", x.GetElementText("a"), "GetElementText of a after Parse of <b><c"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_WhiteSpaceBetweenInlineElements_IsKept()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<p><b>a</b> <i>b</i></p>")
+        Expect.AreEqual "<p><b>a</b> <i>b</i></p>", x.ToXmlString(False), "ToXmlString of <p><b>a</b> <i>b</i></p>"
+        Expect.AreEqual "a b", x.GetElementText("p"), "GetElementText of p in <p><b>a</b> <i>b</i></p>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_ElementWithOnlySpaces_KeepsTheSpaces()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<b> </b>")
+        Expect.AreEqual " ", x.GetElementText("b"), "GetElementText of <b> </b>"
+        Expect.AreEqual "<b> </b>", x.ToXmlString(False), "ToXmlString of <b> </b>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_SpacesAroundChildElements_AreChildNodes()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r> <a>1</a> </r>")
+        Expect.AreEqual 3, x.RootElement.ChildNodes.Count, "the children of r in <r> <a>1</a> </r> (MSXML6 with white space kept: 3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_LineBreaksAroundChildElements_AreChildNodes()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r>" & vbCrLf & "<a>1</a>" & vbCrLf & "</r>")
+        Expect.AreEqual 3, x.RootElement.ChildNodes.Count, "the children of r when line breaks surround a"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetElementText_SpacesOnly_AreKept()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.AddElement "r", "a"
+        x.SetElementText "r/a", "   "
+        Expect.AreEqual "   ", x.GetElementText("r/a"), "GetElementText after SetElementText of three spaces"
+        Expect.AreEqual "<r><a>   </a></r>", x.ToXmlString(False), "ToXmlString after SetElementText of three spaces"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_LeadingByteOrderMarkCharacter_IsDropped()
+        Expect.Begin
+        Dim x As New cXml
+        Expect.IsTrue x.Parse(ChrW(&HFEFF&) &"<root><a>t</a></root>"), "Parse of a text that starts with U+FEFF"
+        Expect.AreEqual "root", Helpers.NameOf(x.RootElement), "the root element of a text that starts with U+FEFF"
+        Expect.AreEqual "t", x.GetElementText("root/a"), "the text of root/a"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub XmlString_LeadingByteOrderMarkCharacter_IsDropped()
+        Expect.Begin
+        Dim x As New cXml
+        x.XmlString = ChrW(&HFEFF&) &"<root><a>t</a></root>"
+        Expect.AreEqual "root", Helpers.NameOf(x.RootElement), "the root element after XmlString is set to a text that starts with U+FEFF"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_TextWithNoElement_LeavesNoRootElement()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a></r>")
+        x.Parse "just text"
+        Expect.AreEqual "Nothing", Helpers.NameOf(x.RootElement), "RootElement after Parse of a text with no element"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/PathTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/PathTests.twin
new file mode 100644
index 00000000..8d2e6b48
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/PathTests.twin
@@ -0,0 +1,209 @@
+' The paths of cXml (SelectElement, GetElementText and the members built on them), the way a member
+' reports a failure, and the helpers of cXml that read elements by name.
+[TestFixture]
+Module PathTests
+
+    Private Const LIBRARY As String = "<library><book id=""1"">Dune</book><book id=""2"">Emma</book></library>"
+
+    ' ---- the syntax of a path
+
+    [TestCase]
+    Public Sub Path_FirstNameIsTheRootElement()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(LIBRARY)
+        Expect.AreEqual "", x.GetElementText("book"), "GetElementText of book"
+        Expect.AreEqual "Dune", x.GetElementText("library/book"), "GetElementText of library/book"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Path_ManyMatches_TakesTheFirstDirectChild()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a><b>deep</b></a><b>1</b><b>2</b></r>")
+        Expect.AreEqual "1", x.GetElementText("r/b"), "GetElementText of r/b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Path_WhiteSpaceAndEmptyNames_AreRemoved()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(LIBRARY)
+        Expect.AreEqual "Dune", x.GetElementText("/library//book"), "GetElementText of /library//book"
+        Expect.AreEqual "Dune", x.GetElementText(" library / book "), "GetElementText of ' library / book '"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Path_NamespacePrefix_IsPartOfTheName()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<ns:r><ns:item>v</ns:item></ns:r>")
+        Expect.AreEqual "v", x.GetElementText("ns:r/ns:item"), "GetElementText of ns:r/ns:item"
+        Expect.AreEqual "", x.GetElementText("r/item"), "GetElementText of r/item"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Path_PositionsAttributesAndWildcards_AreNamesNoElementHas()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(LIBRARY)
+        Dim p As Variant
+        For Each p In Array("library/book[2]", "library/@id", "library/*", "library/.", "library/book/..")
+            Expect.AreEqual "", x.GetElementText(CStr(p)), "GetElementText of " & p
+        Next
+        Expect.AreEqual "DuneEmma", x.GetElementText("//library"), "GetElementText of //library (read as library)"
+        Expect.AreEqual x.GetElementText("book"), x.GetElementText("//book"), "GetElementText of //book against that of book"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Path_NodesThatAreNotElements_AreSelectedByTheirNames()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<library><!--c--><book>x</book></library>")
+        Expect.AreEqual "c", x.SelectElement("library/#comment").Value, "the Value of library/#comment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Path_WithNoName_SelectsNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(LIBRARY)
+        Expect.IsTrue (x.SelectElement("") Is Nothing), "SelectElement of an empty path is Nothing"
+        Expect.IsTrue (x.SelectElement("/") Is Nothing), "SelectElement of / is Nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectElements_ReturnsEveryNodeOfTheNameAtAnyDepth()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>1</a><b><a>2</a></b><c><a>3</a></c></r>")
+        Dim found As Collection
+        Set found = x.SelectElements("a")
+        Expect.AreEqual 3, found.Count, "the nodes of SelectElements(a)"
+        Expect.AreEqual "1", found(1).ChildNodes(1).Value, "the text of the first a"
+        Expect.AreEqual "3", found(3).ChildNodes(1).Value, "the text of the third a"
+        Expect.AreEqual 0, x.SelectElements("r/a").Count, "the nodes of SelectElements(r/a)"
+        Expect.AreEqual 0, x.SelectElements("missing").Count, "the nodes of SelectElements(missing)"
+        Expect.Done
+    End Sub
+
+    ' ---- failures
+
+    [TestCase]
+    Public Sub Parse_EmptyString_ReturnsFalseAndLeavesErrEmptyDocument()
+        Expect.Begin
+        Dim x As New cXml
+        Err.Clear
+        Expect.IsFalse x.Parse(""), "Parse of an empty string"
+        Expect.AreEqual ERR_EMPTY_DOCUMENT, Err.Number, "Err.Number after Parse of an empty string"
+        Expect.AreEqual "cXml.Parse", Err.Source, "Err.Source after Parse of an empty string"
+        Expect.AreEqual "XML string cannot be empty", Err.Description, "Err.Description after Parse of an empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectElement_DocumentNotInitialised_ReturnsNothingAndLeavesErrEmptyDocument()
+        Expect.Begin
+        Dim x As New cXml
+        Err.Clear
+        Expect.IsTrue (x.SelectElement("library") Is Nothing), "SelectElement before a document is read"
+        Expect.AreEqual ERR_EMPTY_DOCUMENT, Err.Number, "Err.Number after SelectElement before a document is read"
+        Expect.AreEqual "Document not initialized", Err.Description, "Err.Description after SelectElement before a document is read"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectElement_PathWithNoName_LeavesError9()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(LIBRARY)
+        Err.Clear
+        Expect.IsTrue (x.SelectElement("") Is Nothing), "SelectElement of an empty path"
+        Expect.AreEqual 9, Err.Number, "Err.Number after SelectElement of an empty path"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RemoveElement_PathThatSelectsNothing_ReturnsFalseAndLeavesError91()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(LIBRARY)
+        Err.Clear
+        Expect.IsFalse x.RemoveElement("library/magazine"), "RemoveElement of a path that selects nothing"
+        Expect.AreEqual 91, Err.Number, "Err.Number after RemoveElement of a path that selects nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_TagCutOffByTheEndOfTheText_ReturnsFalseAndLeavesError5()
+        Expect.Begin
+        Dim x As New cXml
+        Err.Clear
+        Expect.IsFalse x.Parse("<r"), "Parse of <r"
+        Expect.AreEqual 5, Err.Number, "Err.Number after Parse of <r"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MembersThatFindNothing_ReturnEmptyValues()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a id=""7"" empty=""""></a></r>")
+        Expect.AreEqual "7", x.GetAttribute("r/a", "id"), "GetAttribute of id"
+        Expect.AreEqual "", x.GetAttribute("r/a", "empty"), "GetAttribute of an empty attribute"
+        Expect.AreEqual "", x.GetAttribute("r/a", "missing"), "GetAttribute of a missing attribute"
+        Expect.AreEqual "", x.GetAttribute("r/nothing", "id"), "GetAttribute of a missing element"
+        Expect.IsTrue (x.AddElement("r/shelf", "book") Is Nothing), "AddElement below a missing element is Nothing"
+        x.SetAttribute "r/missing", "z", "1"
+        x.RemoveAttribute "r/missing", "z"
+        x.SetElementText "r/missing", "lost"
+        Expect.AreEqual "<r><a id=""7"" empty=""""/></r>", x.ToXmlString(False), "ToXmlString after calls that find nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetAttribute_ReplacedAttribute_MovesToTheEnd()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.SetAttribute "r", "a", "1"
+        x.SetAttribute "r", "b", "2"
+        x.SetAttribute "r", "a", "3"
+        Expect.AreEqual "<r b=""2"" a=""3""/>", x.ToXmlString(False), "ToXmlString after a is set twice"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetElementText_ElementWithMixedContent_MovesTheTextToTheEnd()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a>one<b>bee</b>two</a></r>")
+        x.SetElementText "r/a", "NEW"
+        Expect.AreEqual "<r><a><b>bee</b>NEW</a></r>", x.ToXmlString(False), "ToXmlString after SetElementText on an element with mixed content"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Validate_NamelessElementOrAttribute_IsFalse()
+        Expect.Begin
+        Dim x As New cXml
+        Expect.IsFalse x.Validate(), "Validate of an object with no document"
+        x.CreateNew "r"
+        Expect.IsTrue x.Validate(), "Validate of r"
+        x.AddElement "r", ""
+        Expect.IsFalse x.Validate(), "Validate after an element with an empty name is added"
+        Dim y As New cXml
+        y.CreateNew "r"
+        y.SetAttribute "r", "", "v"
+        Expect.IsFalse y.Validate(), "Validate after an attribute with an empty name is set"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/RunAll.twin b/test/package-tests/TBMANLIB_Xml/Sources/RunAll.twin
new file mode 100644
index 00000000..4f5ae8b7
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/RunAll.twin
@@ -0,0 +1,698 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TBMANLIB_Xml, version 1.0.0.1. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TBMANLIB_Xml 1.0.0.1: 174 test cases"
+        On Error Resume Next
+        Expect.Skip "DeclarationTests.Parse_UnclosedComment_Returns", "it does not return in version 1.0.0.1"
+        Expect.Skip "DeclarationTests.Parse_UnclosedCDataSection_Returns", "it does not return in version 1.0.0.1"
+        Expect.Skip "DeclarationTests.Parse_DoctypeAfterTheDeclaration_Returns", "it does not return in version 1.0.0.1"
+        Expect.Skip "DeclarationTests.Parse_DoctypeInsideAnElement_Returns", "it does not return in version 1.0.0.1"
+        Expect.StartCase
+        Err.Clear
+        DeclarationTests.Parse_DoctypeAtTheStart_IsSkipped
+        Expect.EndCase "DeclarationTests.Parse_DoctypeAtTheStart_IsSkipped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DeclarationTests.Parse_DoctypeFollowedByAnInstruction_KeepsTheRootElement
+        Expect.EndCase "DeclarationTests.Parse_DoctypeFollowedByAnInstruction_KeepsTheRootElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DeclarationTests.Parse_ProcessingInstructionInsideAnElement_LeavesNoText
+        Expect.EndCase "DeclarationTests.Parse_ProcessingInstructionInsideAnElement_LeavesNoText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DeclarationTests.Parse_CommentAndCDataSection_AreKeptAsNodes
+        Expect.EndCase "DeclarationTests.Parse_CommentAndCDataSection_AreKeptAsNodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DeclarationTests.Parse_XmlDeclaration_SetsVersionAndEncoding
+        Expect.EndCase "DeclarationTests.Parse_XmlDeclaration_SetsVersionAndEncoding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Clone_CopiedNodes_CanBeRemoved
+        Expect.EndCase "DocumentTests.Clone_CopiedNodes_CanBeRemoved", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Clone_ChangesToTheCloneDoNotReachTheOriginal
+        Expect.EndCase "DocumentTests.Clone_ChangesToTheCloneDoNotReachTheOriginal", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Clone_NodesOfTheClone_HaveAParent
+        Expect.EndCase "DocumentTests.Clone_NodesOfTheClone_HaveAParent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Merge_AddedNodes_CanBeRemoved
+        Expect.EndCase "DocumentTests.Merge_AddedNodes_CanBeRemoved", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Merge_IntoAnObjectWithNoDocument_SetsTheRootElement
+        Expect.EndCase "DocumentTests.Merge_IntoAnObjectWithNoDocument_SetsTheRootElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Merge_SecondMergeIntoAnObjectWithNoDocument_AppendsTheChildren
+        Expect.EndCase "DocumentTests.Merge_SecondMergeIntoAnObjectWithNoDocument_AppendsTheChildren", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Merge_NothingAsTheOtherDocument_DoesNothing
+        Expect.EndCase "DocumentTests.Merge_NothingAsTheOtherDocument_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Merge_ObjectWithNoDocument_AsTheOtherDocument_DoesNothing
+        Expect.EndCase "DocumentTests.Merge_ObjectWithNoDocument_AsTheOtherDocument_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.RemoveElement_RootElement_LeavesNoRootElement
+        Expect.EndCase "DocumentTests.RemoveElement_RootElement_LeavesNoRootElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.RemoveElement_FirstOfSeveralElements_RemovesOnlyThatOne
+        Expect.EndCase "DocumentTests.RemoveElement_FirstOfSeveralElements_RemovesOnlyThatOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.XmlString_TextThatCannotBeRead_RaisesNoError
+        Expect.EndCase "DocumentTests.XmlString_TextThatCannotBeRead_RaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.XmlString_TextThatCannotBeRead_IsStillKept
+        Expect.EndCase "DocumentTests.XmlString_TextThatCannotBeRead_IsStillKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.XmlString_ReadsTheTextLastParsed_NotTheDocument
+        Expect.EndCase "DocumentTests.XmlString_ReadsTheTextLastParsed_NotTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.XmlString_EmptyString_GivesAnInitialisedDocumentWithNoNodes
+        Expect.EndCase "DocumentTests.XmlString_EmptyString_GivesAnInitialisedDocumentWithNoNodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DocumentTests.Encoding_AndVersion_AreWrittenIntoTheDeclaration
+        Expect.EndCase "DocumentTests.Encoding_AndVersion_AreWrittenIntoTheDeclaration", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntityTests.Parse_PredefinedEntitiesInText_AreDecoded
+        Expect.EndCase "EntityTests.Parse_PredefinedEntitiesInText_AreDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntityTests.Parse_NumericReferencesInText_AreDecoded
+        Expect.EndCase "EntityTests.Parse_NumericReferencesInText_AreDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntityTests.Parse_NumericReferencesInAttribute_AreDecoded
+        Expect.EndCase "EntityTests.Parse_NumericReferencesInAttribute_AreDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntityTests.Parse_PredefinedEntitiesInAttribute_AreDecoded
+        Expect.EndCase "EntityTests.Parse_PredefinedEntitiesInAttribute_AreDecoded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntityTests.Parse_AmpersandEntityBeforeText_IsNotDecodedTwice
+        Expect.EndCase "EntityTests.Parse_AmpersandEntityBeforeText_IsNotDecodedTwice", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntityTests.ToXmlString_TextReadFromXml_IsEscapedOnce
+        Expect.EndCase "EntityTests.ToXmlString_TextReadFromXml_IsEscapedOnce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntityTests.ToXmlString_AttributeReadFromXml_IsEscapedOnce
+        Expect.EndCase "EntityTests.ToXmlString_AttributeReadFromXml_IsEscapedOnce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntityTests.SetElementText_PlainText_IsWrittenOnce
+        Expect.EndCase "EntityTests.SetElementText_PlainText_IsWrittenOnce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.LoadFromFile_MissingFile_ReturnsFalseAndCreatesNoFile
+        Expect.EndCase "FileTests.LoadFromFile_MissingFile_ReturnsFalseAndCreatesNoFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.LoadFromFile_FileThatCannotBeParsed_ReturnsFalse
+        Expect.EndCase "FileTests.LoadFromFile_FileThatCannotBeParsed_ReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.LoadFromFile_EmptyFile_ReturnsFalse
+        Expect.EndCase "FileTests.LoadFromFile_EmptyFile_ReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.LoadFromFile_Utf8FileWithAndWithoutBom_IsRead
+        Expect.EndCase "FileTests.LoadFromFile_Utf8FileWithAndWithoutBom_IsRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.SaveToFile_WritesByteOrderMarkThenUtf8
+        Expect.EndCase "FileTests.SaveToFile_WritesByteOrderMarkThenUtf8", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.SaveToFile_MissingFolder_ReturnsFalse
+        Expect.EndCase "FileTests.SaveToFile_MissingFolder_ReturnsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.SaveToFile_ExistingFile_IsReplaced
+        Expect.EndCase "FileTests.SaveToFile_ExistingFile_IsReplaced", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.SaveToFile_PrettyPrintAndIndent_ChangeTheSizeOfTheFile
+        Expect.EndCase "FileTests.SaveToFile_PrettyPrintAndIndent_ChangeTheSizeOfTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.SaveToFile_DeclaredEncoding_MatchesTheBytesWritten
+        Expect.EndCase "FileTests.SaveToFile_DeclaredEncoding_MatchesTheBytesWritten", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.ElementNames_DifferingInCase_AreDifferentElements
+        Expect.EndCase "NodeTests.ElementNames_DifferingInCase_AreDifferentElements", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.AttributeNames_DifferingInCase_AreDifferentAttributes
+        Expect.EndCase "NodeTests.AttributeNames_DifferingInCase_AreDifferentAttributes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.GetAttribute_NameInAnotherCase_FindsNothing
+        Expect.EndCase "NodeTests.GetAttribute_NameInAnotherCase_FindsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.RemoveAttribute_NameInAnotherCase_RemovesNothing
+        Expect.EndCase "NodeTests.RemoveAttribute_NameInAnotherCase_RemovesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.XPathText_OfCXml_ReturnsTheTextAtAnyDepth
+        Expect.EndCase "NodeTests.XPathText_OfCXml_ReturnsTheTextAtAnyDepth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.XPathText_OfCXmlNode_ReturnsTheTextDirectlyInsideTheNode
+        Expect.EndCase "NodeTests.XPathText_OfCXmlNode_ReturnsTheTextDirectlyInsideTheNode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.Text_ReturnsTheTextAndCDataOfTheChildren
+        Expect.EndCase "NodeTests.Text_ReturnsTheTextAndCDataOfTheChildren", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.Parse_NodeKinds_HaveTheirFixedNames
+        Expect.EndCase "NodeTests.Parse_NodeKinds_HaveTheirFixedNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.New_Node_IsEmpty
+        Expect.EndCase "NodeTests.New_Node_IsEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.Attributes_AreAFlatListOfNamesAndValues
+        Expect.EndCase "NodeTests.Attributes_AreAFlatListOfNamesAndValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.SetAttribute_ReplacedAttribute_KeepsTheLastValueAndMovesToTheEnd
+        Expect.EndCase "NodeTests.SetAttribute_ReplacedAttribute_KeepsTheLastValueAndMovesToTheEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NodeTests.ChildNodes_NodeAddedByHand_IsWrittenByItsKind
+        Expect.EndCase "NodeTests.ChildNodes_NodeAddedByHand_IsWrittenByItsKind", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_Failure_KeepsThePreviousDocument
+        Expect.EndCase "ParseResultTests.Parse_Failure_KeepsThePreviousDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_EmptyString_KeepsThePreviousDocument
+        Expect.EndCase "ParseResultTests.Parse_EmptyString_KeepsThePreviousDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_TextCutOffInATag_KeepsThePreviousDocument
+        Expect.EndCase "ParseResultTests.Parse_TextCutOffInATag_KeepsThePreviousDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_WhiteSpaceBetweenInlineElements_IsKept
+        Expect.EndCase "ParseResultTests.Parse_WhiteSpaceBetweenInlineElements_IsKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_ElementWithOnlySpaces_KeepsTheSpaces
+        Expect.EndCase "ParseResultTests.Parse_ElementWithOnlySpaces_KeepsTheSpaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_SpacesAroundChildElements_AreChildNodes
+        Expect.EndCase "ParseResultTests.Parse_SpacesAroundChildElements_AreChildNodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_LineBreaksAroundChildElements_AreChildNodes
+        Expect.EndCase "ParseResultTests.Parse_LineBreaksAroundChildElements_AreChildNodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.SetElementText_SpacesOnly_AreKept
+        Expect.EndCase "ParseResultTests.SetElementText_SpacesOnly_AreKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_LeadingByteOrderMarkCharacter_IsDropped
+        Expect.EndCase "ParseResultTests.Parse_LeadingByteOrderMarkCharacter_IsDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.XmlString_LeadingByteOrderMarkCharacter_IsDropped
+        Expect.EndCase "ParseResultTests.XmlString_LeadingByteOrderMarkCharacter_IsDropped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseResultTests.Parse_TextWithNoElement_LeavesNoRootElement
+        Expect.EndCase "ParseResultTests.Parse_TextWithNoElement_LeavesNoRootElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Path_FirstNameIsTheRootElement
+        Expect.EndCase "PathTests.Path_FirstNameIsTheRootElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Path_ManyMatches_TakesTheFirstDirectChild
+        Expect.EndCase "PathTests.Path_ManyMatches_TakesTheFirstDirectChild", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Path_WhiteSpaceAndEmptyNames_AreRemoved
+        Expect.EndCase "PathTests.Path_WhiteSpaceAndEmptyNames_AreRemoved", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Path_NamespacePrefix_IsPartOfTheName
+        Expect.EndCase "PathTests.Path_NamespacePrefix_IsPartOfTheName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Path_PositionsAttributesAndWildcards_AreNamesNoElementHas
+        Expect.EndCase "PathTests.Path_PositionsAttributesAndWildcards_AreNamesNoElementHas", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Path_NodesThatAreNotElements_AreSelectedByTheirNames
+        Expect.EndCase "PathTests.Path_NodesThatAreNotElements_AreSelectedByTheirNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Path_WithNoName_SelectsNothing
+        Expect.EndCase "PathTests.Path_WithNoName_SelectsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.SelectElements_ReturnsEveryNodeOfTheNameAtAnyDepth
+        Expect.EndCase "PathTests.SelectElements_ReturnsEveryNodeOfTheNameAtAnyDepth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Parse_EmptyString_ReturnsFalseAndLeavesErrEmptyDocument
+        Expect.EndCase "PathTests.Parse_EmptyString_ReturnsFalseAndLeavesErrEmptyDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.SelectElement_DocumentNotInitialised_ReturnsNothingAndLeavesErrEmptyDocument
+        Expect.EndCase "PathTests.SelectElement_DocumentNotInitialised_ReturnsNothingAndLeavesErrEmptyDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.SelectElement_PathWithNoName_LeavesError9
+        Expect.EndCase "PathTests.SelectElement_PathWithNoName_LeavesError9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.RemoveElement_PathThatSelectsNothing_ReturnsFalseAndLeavesError91
+        Expect.EndCase "PathTests.RemoveElement_PathThatSelectsNothing_ReturnsFalseAndLeavesError91", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Parse_TagCutOffByTheEndOfTheText_ReturnsFalseAndLeavesError5
+        Expect.EndCase "PathTests.Parse_TagCutOffByTheEndOfTheText_ReturnsFalseAndLeavesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.MembersThatFindNothing_ReturnEmptyValues
+        Expect.EndCase "PathTests.MembersThatFindNothing_ReturnEmptyValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.SetAttribute_ReplacedAttribute_MovesToTheEnd
+        Expect.EndCase "PathTests.SetAttribute_ReplacedAttribute_MovesToTheEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.SetElementText_ElementWithMixedContent_MovesTheTextToTheEnd
+        Expect.EndCase "PathTests.SetElementText_ElementWithMixedContent_MovesTheTextToTheEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Validate_NamelessElementOrAttribute_IsFalse
+        Expect.EndCase "PathTests.Validate_NamelessElementOrAttribute_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelfClosingTests.Parse_BareSelfClosingElement_IsAnElementNamedLikeTheTag
+        Expect.EndCase "SelfClosingTests.Parse_BareSelfClosingElement_IsAnElementNamedLikeTheTag", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelfClosingTests.Parse_SelfClosingElementWithAttributes_HasNoChildren
+        Expect.EndCase "SelfClosingTests.Parse_SelfClosingElementWithAttributes_HasNoChildren", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelfClosingTests.Parse_SelfClosingElementWithSpaceBeforeTheSlash_HasNoChildren
+        Expect.EndCase "SelfClosingTests.Parse_SelfClosingElementWithSpaceBeforeTheSlash_HasNoChildren", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelfClosingTests.ToXmlString_EmptyElement_ReadsBackAsAnEmptyElement
+        Expect.EndCase "SelfClosingTests.ToXmlString_EmptyElement_ReadsBackAsAnEmptyElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelfClosingTests.Validate_DocumentWithSelfClosingElements_IsTrue
+        Expect.EndCase "SelfClosingTests.Validate_DocumentWithSelfClosingElements_IsTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_BothKindsOfQuote_KeepEveryAttribute
+        Expect.EndCase "TagTests.Parse_BothKindsOfQuote_KeepEveryAttribute", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_DoubleQuoteThenSingleQuote_KeepEveryAttribute
+        Expect.EndCase "TagTests.Parse_DoubleQuoteThenSingleQuote_KeepEveryAttribute", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_GreaterThanInAttributeValue_IsPartOfTheValue
+        Expect.EndCase "TagTests.Parse_GreaterThanInAttributeValue_IsPartOfTheValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_LineBreakBetweenAttributes_KeepsBothAttributes
+        Expect.EndCase "TagTests.Parse_LineBreakBetweenAttributes_KeepsBothAttributes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_LineFeedBetweenAttributes_KeepsBothAttributes
+        Expect.EndCase "TagTests.Parse_LineFeedBetweenAttributes_KeepsBothAttributes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_LineBreakAfterTheElementName_IsNotPartOfTheName
+        Expect.EndCase "TagTests.Parse_LineBreakAfterTheElementName_IsNotPartOfTheName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_TabBetweenAttributes_KeepsBothAttributes
+        Expect.EndCase "TagTests.Parse_TabBetweenAttributes_KeepsBothAttributes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_SpacesAroundTheEqualsSign_AreAllowed
+        Expect.EndCase "TagTests.Parse_SpacesAroundTheEqualsSign_AreAllowed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TagTests.Parse_AttributeWithoutValue_DoesNotChangeTheNextAttribute
+        Expect.EndCase "TagTests.Parse_AttributeWithoutValue_DoesNotChangeTheNextAttribute", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.Constants_ErrorNumbers_AreCountedFromTheBase
+        Expect.EndCase "Utf8Tests.Constants_ErrorNumbers_AreCountedFromTheBase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.Constants_Defaults_AreTheOnesThePageNames
+        Expect.EndCase "Utf8Tests.Constants_Defaults_AreTheOnesThePageNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.Enumerations_HaveTheValuesOfTheDocumentObjectModel
+        Expect.EndCase "Utf8Tests.Enumerations_HaveTheValuesOfTheDocumentObjectModel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.StringToUTF8Bytes_EncodesTheCharacters
+        Expect.EndCase "Utf8Tests.StringToUTF8Bytes_EncodesTheCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.StringToUTF8Bytes_EmptyString_IsOneZeroByte
+        Expect.EndCase "Utf8Tests.StringToUTF8Bytes_EmptyString_IsOneZeroByte", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.UTF8BytesToString_DecodesTheBytes
+        Expect.EndCase "Utf8Tests.UTF8BytesToString_DecodesTheBytes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.UTF8BytesToString_InvalidSequence_BecomesTheReplacementCharacter
+        Expect.EndCase "Utf8Tests.UTF8BytesToString_InvalidSequence_BecomesTheReplacementCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.UTF8BytesToString_ZeroByteAndByteOrderMark_AreKept
+        Expect.EndCase "Utf8Tests.UTF8BytesToString_ZeroByteAndByteOrderMark_AreKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        Utf8Tests.UTF8BytesToString_ArrayNotStartingAtZero_IsRead
+        Expect.EndCase "Utf8Tests.UTF8BytesToString_ArrayNotStartingAtZero_IsRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.PrettyPrint_TextReadBack_HasTheTextThatWasWritten
+        Expect.EndCase "WriteTests.PrettyPrint_TextReadBack_HasTheTextThatWasWritten", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.PrettyPrint_WrittenAgainAfterReading_IsTheSameText
+        Expect.EndCase "WriteTests.PrettyPrint_WrittenAgainAfterReading_IsTheSameText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.PrettyPrint_ElementsWithOnlyElementChildren_ReadBackWithTheSameChildren
+        Expect.EndCase "WriteTests.PrettyPrint_ElementsWithOnlyElementChildren_ReadBackWithTheSameChildren", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.PrettyPrint_PutsEachNodeOnALineAndIndentsEachLevel
+        Expect.EndCase "WriteTests.PrettyPrint_PutsEachNodeOnALineAndIndentsEachLevel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.ToXmlString_Compact_WritesDeclarationElementsAndEscapes
+        Expect.EndCase "WriteTests.ToXmlString_Compact_WritesDeclarationElementsAndEscapes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.ToXmlString_ElementWithAnEmptyTextNode_WritesStartAndEndTag
+        Expect.EndCase "WriteTests.ToXmlString_ElementWithAnEmptyTextNode_WritesStartAndEndTag", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WriteTests.ToXmlString_ModelTree_WritesTheNodeKindsAndLeavesOutTheOthers
+        Expect.EndCase "WriteTests.ToXmlString_ModelTree_WritesTheNodeKindsAndLeavesOutTheOthers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Context_FromTheDocumentNode_ALeadingSlashChangesNothing
+        Expect.EndCase "XPathEngineTests.Context_FromTheDocumentNode_ALeadingSlashChangesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Context_FromAnElement_ASlashAtTheStartIsIgnoredAndTheSearchStaysBelow
+        Expect.EndCase "XPathEngineTests.Context_FromAnElement_ASlashAtTheStartIsIgnoredAndTheSearchStaysBelow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Context_XPathFromRoot_StartsAtTheRootElement
+        Expect.EndCase "XPathEngineTests.Context_XPathFromRoot_StartsAtTheRootElement", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Steps_NamesAndNodeTests_SelectAsMsxml
+        Expect.EndCase "XPathEngineTests.Steps_NamesAndNodeTests_SelectAsMsxml", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Steps_NodesThatAreNotElements_ArePickedByTheirNames
+        Expect.EndCase "XPathEngineTests.Steps_NodesThatAreNotElements_ArePickedByTheirNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Predicates_StandardForms_SelectAsMsxml
+        Expect.EndCase "XPathEngineTests.Predicates_StandardForms_SelectAsMsxml", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Limits_AttributeSteps_SelectNothing
+        Expect.EndCase "XPathEngineTests.Limits_AttributeSteps_SelectNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Limits_UnionGroupingAndTwoAttributes_SelectNothing
+        Expect.EndCase "XPathEngineTests.Limits_UnionGroupingAndTwoAttributes_SelectNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.Limits_OtherFunctions_SelectNothing
+        Expect.EndCase "XPathEngineTests.Limits_OtherFunctions_SelectNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.SelectNodes_ContextNodeAndExpression_ReturnTheNodes
+        Expect.EndCase "XPathEngineTests.SelectNodes_ContextNodeAndExpression_ReturnTheNodes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.SelectNodes_PositionTooLargeForALong_RaisesOverflow
+        Expect.EndCase "XPathEngineTests.SelectNodes_PositionTooLargeForALong_RaisesOverflow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.XPath_PositionTooLargeForALong_ReturnsAnEmptyCollectionAndLeavesTheError
+        Expect.EndCase "XPathEngineTests.XPath_PositionTooLargeForALong_ReturnsAnEmptyCollectionAndLeavesTheError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.SelectSingleNode_ReturnsTheFirstNodeOrNothing
+        Expect.EndCase "XPathEngineTests.SelectSingleNode_ReturnsTheFirstNodeOrNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathEngineTests.SelectNodes_ManyNodes_TimeGrowsInStepWithTheirNumber
+        Expect.EndCase "XPathEngineTests.SelectNodes_ManyNodes_TimeGrowsInStepWithTheirNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_ChildStep_CountsTheChildrenOfEachParent
+        Expect.EndCase "XPathPredicateTests.Positions_ChildStep_CountsTheChildrenOfEachParent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_AfterDoubleSlash_CountPerParent
+        Expect.EndCase "XPathPredicateTests.Positions_AfterDoubleSlash_CountPerParent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_AfterDoubleSlash_LastIsThatOfEachParent
+        Expect.EndCase "XPathPredicateTests.Positions_AfterDoubleSlash_LastIsThatOfEachParent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_AfterDescendantStepInThePath_CountPerParent
+        Expect.EndCase "XPathPredicateTests.Positions_AfterDescendantStepInThePath_CountPerParent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_LastMinusOne_SelectsTheNextToLast
+        Expect.EndCase "XPathPredicateTests.Positions_LastMinusOne_SelectsTheNextToLast", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_PositionWithSpacesAroundTheEqualsSign_SelectsThePosition
+        Expect.EndCase "XPathPredicateTests.Positions_PositionWithSpacesAroundTheEqualsSign_SelectsThePosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_PositionEqualsLast_SelectsTheLast
+        Expect.EndCase "XPathPredicateTests.Positions_PositionEqualsLast_SelectsTheLast", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_PositionGreaterThan_SelectsTheLaterOnes
+        Expect.EndCase "XPathPredicateTests.Positions_PositionGreaterThan_SelectsTheLaterOnes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_FractionalNumber_SelectsNothing
+        Expect.EndCase "XPathPredicateTests.Positions_FractionalNumber_SelectsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Positions_ShortForms_WorkAsTheLongForms
+        Expect.EndCase "XPathPredicateTests.Positions_ShortForms_WorkAsTheLongForms", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Logic_AndOfTwoComparisons_KeepsTheNodesThatSatisfyBoth
+        Expect.EndCase "XPathPredicateTests.Logic_AndOfTwoComparisons_KeepsTheNodesThatSatisfyBoth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Logic_OrOfTwoComparisons_KeepsTheNodesThatSatisfyOne
+        Expect.EndCase "XPathPredicateTests.Logic_OrOfTwoComparisons_KeepsTheNodesThatSatisfyOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Logic_AndBeforeOr_BindsAndTighter
+        Expect.EndCase "XPathPredicateTests.Logic_AndBeforeOr_BindsAndTighter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Logic_OrBeforeAnd_BindsAndTighter
+        Expect.EndCase "XPathPredicateTests.Logic_OrBeforeAnd_BindsAndTighter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Logic_AndInsideAQuotedString_IsNotAnOperator
+        Expect.EndCase "XPathPredicateTests.Logic_AndInsideAQuotedString_IsNotAnOperator", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Logic_OrInsideAQuotedString_IsNotAnOperator
+        Expect.EndCase "XPathPredicateTests.Logic_OrInsideAQuotedString_IsNotAnOperator", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Logic_NotOfAnd_KeepsTheNodesThatLackOne
+        Expect.EndCase "XPathPredicateTests.Logic_NotOfAnd_KeepsTheNodesThatLackOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Logic_ParenthesesAroundComparisons_GroupThem
+        Expect.EndCase "XPathPredicateTests.Logic_ParenthesesAroundComparisons_GroupThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_LessThanOnAMissingAttribute_IsFalse
+        Expect.EndCase "XPathPredicateTests.Compare_LessThanOnAMissingAttribute_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_NotEqualOnAMissingAttribute_IsFalse
+        Expect.EndCase "XPathPredicateTests.Compare_NotEqualOnAMissingAttribute_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_EqualToEmptyStringOnAMissingAttribute_IsFalse
+        Expect.EndCase "XPathPredicateTests.Compare_EqualToEmptyStringOnAMissingAttribute_IsFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_AttributeExists_KeepsTheNodesThatHaveIt
+        Expect.EndCase "XPathPredicateTests.Compare_AttributeExists_KeepsTheNodesThatHaveIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_QuotedStringWithEqualsSign_IsOneValue
+        Expect.EndCase "XPathPredicateTests.Compare_QuotedStringWithEqualsSign_IsOneValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_QuotedStringWithGreaterThan_IsOneValue
+        Expect.EndCase "XPathPredicateTests.Compare_QuotedStringWithGreaterThan_IsOneValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_QuotedStringWithLessThan_IsOneValue
+        Expect.EndCase "XPathPredicateTests.Compare_QuotedStringWithLessThan_IsOneValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_QuotedStringWithNotEquals_IsOneValue
+        Expect.EndCase "XPathPredicateTests.Compare_QuotedStringWithNotEquals_IsOneValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.TextCompare_Equals_KeepsTheNodesWithThatText
+        Expect.EndCase "XPathPredicateTests.TextCompare_Equals_KeepsTheNodesWithThatText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.TextCompare_NotEquals_KeepsTheNodesWithOtherText
+        Expect.EndCase "XPathPredicateTests.TextCompare_NotEquals_KeepsTheNodesWithOtherText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.TextCompare_GreaterThanText_IsAComparisonOfNumbers
+        Expect.EndCase "XPathPredicateTests.TextCompare_GreaterThanText_IsAComparisonOfNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.ChildCompare_ChildEqualsText_KeepsTheNodesWhoseChildHasThatText
+        Expect.EndCase "XPathPredicateTests.ChildCompare_ChildEqualsText_KeepsTheNodesWhoseChildHasThatText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.SelfCompare_DotEqualsText_KeepsTheNodesWithThatText
+        Expect.EndCase "XPathPredicateTests.SelfCompare_DotEqualsText_KeepsTheNodesWithThatText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Contains_FirstArgumentIsAChildName_TestsTheChildsText
+        Expect.EndCase "XPathPredicateTests.Contains_FirstArgumentIsAChildName_TestsTheChildsText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Compare_AttributeValueLetterCase_IsSignificant
+        Expect.EndCase "XPathPredicateTests.Compare_AttributeValueLetterCase_IsSignificant", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Contains_LetterCase_IsSignificant
+        Expect.EndCase "XPathPredicateTests.Contains_LetterCase_IsSignificant", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.StartsWith_LetterCase_IsSignificant
+        Expect.EndCase "XPathPredicateTests.StartsWith_LetterCase_IsSignificant", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Brackets_PredicateWithoutClosingBracket_SelectsNothing
+        Expect.EndCase "XPathPredicateTests.Brackets_PredicateWithoutClosingBracket_SelectsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathPredicateTests.Brackets_OpeningBracketAlone_SelectsNothing
+        Expect.EndCase "XPathPredicateTests.Brackets_OpeningBracketAlone_SelectsNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.ParentStep_AfterChildSteps_SelectsTheParent
+        Expect.EndCase "XPathStepTests.ParentStep_AfterChildSteps_SelectsTheParent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.ParentStep_AfterDescendantStep_SelectsTheParents
+        Expect.EndCase "XPathStepTests.ParentStep_AfterDescendantStep_SelectsTheParents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.ParentStep_Twice_SelectsTheGrandparent
+        Expect.EndCase "XPathStepTests.ParentStep_Twice_SelectsTheGrandparent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.ParentAxis_ParentColonColon_SelectsTheParent
+        Expect.EndCase "XPathStepTests.ParentAxis_ParentColonColon_SelectsTheParent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.Axes_Ancestor_SelectsTheAncestors
+        Expect.EndCase "XPathStepTests.Axes_Ancestor_SelectsTheAncestors", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.Axes_AncestorOrSelf_SelectsTheNodeAndItsAncestors
+        Expect.EndCase "XPathStepTests.Axes_AncestorOrSelf_SelectsTheNodeAndItsAncestors", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.Axes_FollowingSibling_SelectsTheLaterSiblings
+        Expect.EndCase "XPathStepTests.Axes_FollowingSibling_SelectsTheLaterSiblings", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.Axes_PrecedingSibling_SelectsTheEarlierSiblings
+        Expect.EndCase "XPathStepTests.Axes_PrecedingSibling_SelectsTheEarlierSiblings", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.Axes_DescendantOrSelf_SelectsTheNodeAndItsDescendants
+        Expect.EndCase "XPathStepTests.Axes_DescendantOrSelf_SelectsTheNodeAndItsDescendants", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.Axes_Following_SelectsTheNodesAfterTheSubtree
+        Expect.EndCase "XPathStepTests.Axes_Following_SelectsTheNodesAfterTheSubtree", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.Axes_Child_Descendant_Self_AreRead
+        Expect.EndCase "XPathStepTests.Axes_Child_Descendant_Self_AreRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        XPathStepTests.Slashes_TripleSlash_SelectsNothing
+        Expect.EndCase "XPathStepTests.Slashes_TripleSlash_SelectsNothing", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/SelfClosingTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/SelfClosingTests.twin
new file mode 100644
index 00000000..ac54a649
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/SelfClosingTests.twin
@@ -0,0 +1,64 @@
+' cXml.Parse and a self-closing element: <a/> is an empty element in XML 1.0, whatever spaces and
+' attributes its tag holds.
+[TestFixture]
+Module SelfClosingTests
+
+    [TestCase]
+    Public Sub Parse_BareSelfClosingElement_IsAnElementNamedLikeTheTag()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a/><b>t</b></r>")
+        Expect.AreEqual 2, x.RootElement.ChildNodes.Count, "the children of r in <r><a/><b>t</b></r>"
+        Expect.AreEqual "a", Helpers.ChildName(x.RootElement, 1), "the name of the first child of r in <r><a/><b>t</b></r>"
+        Expect.AreEqual "b", Helpers.ChildName(x.RootElement, 2), "the name of the second child of r in <r><a/><b>t</b></r>"
+        Expect.AreEqual "t", x.GetElementText("r/b"), "the text of r/b in <r><a/><b>t</b></r>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_SelfClosingElementWithAttributes_HasNoChildren()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><b x=""1""/><c>t</c></r>")
+        Expect.AreEqual 2, x.RootElement.ChildNodes.Count, "the children of r in <r><b x=""1""/><c>t</c></r>"
+        Expect.AreEqual "t", x.GetElementText("r/c"), "the text of r/c in <r><b x=""1""/><c>t</c></r>"
+        Expect.AreEqual "1", x.GetAttribute("r/b", "x"), "the attribute x of r/b in <r><b x=""1""/><c>t</c></r>"
+        Expect.AreEqual "", x.GetElementText("r/b/c"), "the text of r/b/c in <r><b x=""1""/><c>t</c></r>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_SelfClosingElementWithSpaceBeforeTheSlash_HasNoChildren()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a /><c>t</c></r>")
+        Expect.AreEqual 2, x.RootElement.ChildNodes.Count, "the children of r in <r><a /><c>t</c></r>"
+        Expect.AreEqual "a", Helpers.ChildName(x.RootElement, 1), "the name of the first child of r in <r><a /><c>t</c></r>"
+        Expect.AreEqual "t", x.GetElementText("r/c"), "the text of r/c in <r><a /><c>t</c></r>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToXmlString_EmptyElement_ReadsBackAsAnEmptyElement()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.AddElement "r", "empty"
+        Dim y As cXml
+        Set y = Helpers.Doc(x.ToXmlString(False))
+        Expect.AreEqual "<r><empty/></r>", x.ToXmlString(False), "the text ToXmlString writes"
+        Expect.AreEqual "empty", Helpers.ChildName(y.RootElement, 1), "the name of the first child of r after the text is read again"
+        Expect.AreEqual "<r><empty/></r>", y.ToXmlString(False), "the text written after it is read again"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Validate_DocumentWithSelfClosingElements_IsTrue()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r><a/><b x=""1""/></r>")
+        Expect.IsTrue x.Validate(), "Validate of <r><a/><b x=""1""/></r>"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/TagTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/TagTests.twin
new file mode 100644
index 00000000..0f87bf2b
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/TagTests.twin
@@ -0,0 +1,97 @@
+' cXml.Parse and the shapes a start tag may take (XML 1.0, section 3.1): either kind of quote around
+' a value, a > inside a value, any white space between attributes, and a name that ends at white space.
+[TestFixture]
+Module TagTests
+
+    [TestCase]
+    Public Sub Parse_BothKindsOfQuote_KeepEveryAttribute()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a b='1' c=""2""></a>")
+        Expect.AreEqual "1", x.GetAttribute("a", "b"), "attribute b of <a b='1' c=""2"">"
+        Expect.AreEqual "2", x.GetAttribute("a", "c"), "attribute c of <a b='1' c=""2"">"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DoubleQuoteThenSingleQuote_KeepEveryAttribute()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a c=""2"" b='1'></a>")
+        Expect.AreEqual "2", x.GetAttribute("a", "c"), "attribute c of <a c=""2"" b='1'>"
+        Expect.AreEqual "1", x.GetAttribute("a", "b"), "attribute b of <a c=""2"" b='1'>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_GreaterThanInAttributeValue_IsPartOfTheValue()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a b=""x>y"">t</a>")
+        Expect.AreEqual "x>y", x.GetAttribute("a", "b"), "attribute b of <a b=""x>y"">t</a>"
+        Expect.AreEqual "t", x.GetElementText("a"), "the text of <a b=""x>y"">t</a>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_LineBreakBetweenAttributes_KeepsBothAttributes()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a b=""1""" & vbCrLf & "   c=""2""></a>")
+        Expect.AreEqual "1", x.GetAttribute("a", "b"), "attribute b of a tag with a line break between its attributes"
+        Expect.AreEqual "2", x.GetAttribute("a", "c"), "attribute c of a tag with a line break between its attributes"
+        Expect.AreEqual 4, x.RootElement.Attributes.Count, "the entries of Attributes (a name and a value for each of two attributes)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_LineFeedBetweenAttributes_KeepsBothAttributes()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a b=""1""" & vbLf & "c=""2""></a>")
+        Expect.AreEqual "1", x.GetAttribute("a", "b"), "attribute b of a tag with a line feed between its attributes"
+        Expect.AreEqual "2", x.GetAttribute("a", "c"), "attribute c of a tag with a line feed between its attributes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_LineBreakAfterTheElementName_IsNotPartOfTheName()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a" & vbLf & "b=""1""></a>")
+        Expect.AreEqual "a", Helpers.Shown(x.RootElement.Name), "the name of an element whose first attribute follows a line feed"
+        Expect.AreEqual "1", x.GetAttribute("a", "b"), "attribute b of an element whose first attribute follows a line feed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_TabBetweenAttributes_KeepsBothAttributes()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a b=""1""" & vbTab & "c=""2""></a>")
+        Expect.AreEqual "1", x.GetAttribute("a", "b"), "attribute b of a tag with a tab between its attributes"
+        Expect.AreEqual "2", x.GetAttribute("a", "c"), "attribute c of a tag with a tab between its attributes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_SpacesAroundTheEqualsSign_AreAllowed()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a b = ""1"" c= '2'></a>")
+        Expect.AreEqual "1", x.GetAttribute("a", "b"), "attribute b of <a b = ""1"" c= '2'>"
+        Expect.AreEqual "2", x.GetAttribute("a", "c"), "attribute c of <a b = ""1"" c= '2'>"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_AttributeWithoutValue_DoesNotChangeTheNextAttribute()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a disabled c=""2""></a>")
+        Expect.AreEqual "2", x.GetAttribute("a", "c"), "attribute c of <a disabled c=""2"">"
+        Expect.AreEqual "", x.GetAttribute("a", "disabled"), "attribute disabled of <a disabled c=""2"">"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/Utf8Tests.twin b/test/package-tests/TBMANLIB_Xml/Sources/Utf8Tests.twin
new file mode 100644
index 00000000..dc730735
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/Utf8Tests.twin
@@ -0,0 +1,133 @@
+' mXml: the error numbers, the defaults and the two UTF-8 conversion functions.
+[TestFixture]
+Module Utf8Tests
+
+    Private Function Hex2(ByRef B() As Byte) As String
+        Dim i As Long
+        Dim s As String
+        For i = 0 To UBound(B)
+            s = s & Right$("0" & Hex$(B(i)), 2) & " "
+        Next
+        Hex2 = Trim$(s)
+    End Function
+
+    [TestCase]
+    Public Sub Constants_ErrorNumbers_AreCountedFromTheBase()
+        Expect.Begin
+        Expect.AreEqual vbObjectError + 5000, ERR_BASE, "ERR_BASE"
+        Expect.AreEqual -2147216504, ERR_BASE, "ERR_BASE as a number"
+        Expect.AreEqual ERR_BASE + 1, ERR_INVALID_XML, "ERR_INVALID_XML"
+        Expect.AreEqual ERR_BASE + 2, ERR_INVALID_NODE, "ERR_INVALID_NODE"
+        Expect.AreEqual ERR_BASE + 3, ERR_NODE_NOT_FOUND, "ERR_NODE_NOT_FOUND"
+        Expect.AreEqual ERR_BASE + 4, ERR_ATTRIBUTE_NOT_FOUND, "ERR_ATTRIBUTE_NOT_FOUND"
+        Expect.AreEqual ERR_BASE + 5, ERR_EMPTY_DOCUMENT, "ERR_EMPTY_DOCUMENT"
+        Expect.AreEqual ERR_BASE + 6, ERR_INVALID_OPERATION, "ERR_INVALID_OPERATION"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Constants_Defaults_AreTheOnesThePageNames()
+        Expect.Begin
+        Expect.AreEqual "1.0", DEFAULT_XML_VERSION, "DEFAULT_XML_VERSION"
+        Expect.AreEqual "UTF-8", DEFAULT_ENCODING, "DEFAULT_ENCODING"
+        Expect.AreEqual "  ", DEFAULT_INDENT, "DEFAULT_INDENT"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enumerations_HaveTheValuesOfTheDocumentObjectModel()
+        Expect.Begin
+        Expect.AreEqual 0, XmlNodeType.None, "None"
+        Expect.AreEqual 1, XmlNodeType.Element, "Element"
+        Expect.AreEqual 2, XmlNodeType.Attribute, "Attribute"
+        Expect.AreEqual 3, XmlNodeType.Text, "Text"
+        Expect.AreEqual 4, XmlNodeType.CData, "CData"
+        Expect.AreEqual 8, XmlNodeType.Comment, "Comment"
+        Expect.AreEqual 9, XmlNodeType.Document, "Document"
+        Expect.AreEqual 11, XmlNodeType.DocumentFragment, "DocumentFragment"
+        Expect.AreEqual 12, XmlNodeType.Notation, "Notation"
+        Expect.AreEqual 1, ParseOption.PreserveWhitespace, "PreserveWhitespace"
+        Expect.AreEqual 2, ParseOption.IgnoreComments, "IgnoreComments"
+        Expect.AreEqual 4, ParseOption.IgnoreProcessingInstructions, "IgnoreProcessingInstructions"
+        Expect.AreEqual 8, ParseOption.ValidateOnParse, "ValidateOnParse"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringToUTF8Bytes_EncodesTheCharacters()
+        Expect.Begin
+        Dim b() As Byte
+        b = StringToUTF8Bytes("A" & ChrW(233) & ChrW(&H20AC))
+        Expect.AreEqual "41 C3 A9 E2 82 AC", Hex2(b), "the bytes of A, e with acute accent and the euro sign"
+        b = StringToUTF8Bytes(ChrW(&HD83D&) & ChrW(&HDE00&))
+        Expect.AreEqual "F0 9F 98 80", Hex2(b), "the bytes of a surrogate pair (U+1F600)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StringToUTF8Bytes_EmptyString_IsOneZeroByte()
+        Expect.Begin
+        Dim e() As Byte
+        e = StringToUTF8Bytes("")
+        Expect.AreEqual 0, UBound(e), "the upper bound of the bytes of an empty string"
+        Expect.AreEqual 0, CLng(e(0)), "the only byte of an empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UTF8BytesToString_DecodesTheBytes()
+        Expect.Begin
+        Dim b() As Byte
+        b = StringToUTF8Bytes("caf" & ChrW(233))
+        Expect.AreEqual "caf" & ChrW(233), UTF8BytesToString(b), "the string of the bytes of cafe with an acute accent"
+        Dim unsized() As Byte
+        Expect.AreEqual 0, Len(UTF8BytesToString(unsized)), "the length of the string of an array with no elements"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UTF8BytesToString_InvalidSequence_BecomesTheReplacementCharacter()
+        Expect.Begin
+        Dim b() As Byte
+        ReDim b(0 To 1)
+        b(0) = &HC3
+        b(1) = &H28
+        Dim s As String
+        s = UTF8BytesToString(b)
+        Expect.AreEqual &HFFFD&, AscW(s) And &HFFFF&, "the first character of the string of the bytes C3 28"
+        Expect.AreEqual "(", Mid$(s, 2), "the rest of the string of the bytes C3 28"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UTF8BytesToString_ZeroByteAndByteOrderMark_AreKept()
+        Expect.Begin
+        Dim e() As Byte
+        e = StringToUTF8Bytes("")
+        Expect.AreEqual 1, Len(UTF8BytesToString(e)), "the length of the string of the one zero byte"
+        Dim m() As Byte
+        ReDim m(0 To 3)
+        m(0) = &HEF
+        m(1) = &HBB
+        m(2) = &HBF
+        m(3) = 65
+        Dim s As String
+        s = UTF8BytesToString(m)
+        Expect.AreEqual &HFEFF&, AscW(s) And &HFFFF&, "the first character of the string of EF BB BF 41"
+        Expect.AreEqual "A", Mid$(s, 2), "the rest of the string of EF BB BF 41"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UTF8BytesToString_ArrayNotStartingAtZero_IsRead()
+        Expect.Begin
+        Dim b() As Byte
+        ReDim b(5 To 7)
+        b(5) = 97
+        b(6) = 98
+        b(7) = 99
+        Expect.AreEqual "abc", UTF8BytesToString(b), "the string of an array whose indexes are 5 to 7"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/WriteTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/WriteTests.twin
new file mode 100644
index 00000000..b93b8123
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/WriteTests.twin
@@ -0,0 +1,110 @@
+' cXml.ToXmlString: the text it writes, and whether a text it wrote with prettyPrint reads back as the
+' document that was written.
+[TestFixture]
+Module WriteTests
+
+    Private Function SampleDocument() As cXml
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.AddElement "r", "a"
+        x.SetElementText "r/a", "t"
+        Set SampleDocument = x
+    End Function
+
+    ' ---- pretty printing
+
+    [TestCase]
+    Public Sub PrettyPrint_TextReadBack_HasTheTextThatWasWritten()
+        Expect.Begin
+        Dim x As cXml
+        Set x = SampleDocument()
+        Dim y As cXml
+        Set y = Helpers.Doc(x.ToXmlString(False, True))
+        Expect.AreEqual "t", y.GetElementText("r/a"), "GetElementText of r/a after the pretty-printed text is read"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PrettyPrint_WrittenAgainAfterReading_IsTheSameText()
+        Expect.Begin
+        Dim x As cXml
+        Set x = SampleDocument()
+        Dim first As String
+        first = x.ToXmlString(False, True)
+        Dim y As cXml
+        Set y = Helpers.Doc(first)
+        Expect.AreEqual Helpers.Shown(first), Helpers.Shown(y.ToXmlString(False, True)), "the pretty-printed text after it is read and written again"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PrettyPrint_ElementsWithOnlyElementChildren_ReadBackWithTheSameChildren()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.AddElement "r", "a"
+        x.AddElement "r/a", "b"
+        Dim y As cXml
+        Set y = Helpers.Doc(x.ToXmlString(False, True))
+        Expect.AreEqual "<r><a><b/></a></r>", y.ToXmlString(False), "the compact text after a pretty-printed text with no character data is read"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PrettyPrint_PutsEachNodeOnALineAndIndentsEachLevel()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.AddElement "r", "a"
+        x.SetElementText "r/a", "t"
+        x.AddElement "r", "b"
+        x.AddElement "r/b", "c"
+        Expect.AreEqual "<?xml.version=""1.0"".encoding=""UTF-8""?>|<r>|..<a>|....t|..</a>|..<b>|....<c/>|..</b>|</r>|", Replace(Replace(x.ToXmlString(True, True), " ", "."), vbCrLf, "|"), "ToXmlString(True, True)"
+        Expect.AreEqual "<r>|--<a>|----t|--</a>|--<b>|----<c/>|--</b>|</r>|", Replace(Replace(x.ToXmlString(False, True, "--"), " ", "."), vbCrLf, "|"), "ToXmlString(False, True, ""--"")"
+        Expect.AreEqual "<r>|<a>|t|</a>|<b>|<c/>|</b>|</r>|", Replace(Replace(x.ToXmlString(False, True, ""), " ", "."), vbCrLf, "|"), "ToXmlString(False, True, """")"
+        Expect.Done
+    End Sub
+
+    ' ---- the compact text
+
+    [TestCase]
+    Public Sub ToXmlString_Compact_WritesDeclarationElementsAndEscapes()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.SetAttribute "r", "id", "1"
+        x.AddElement "r", "a"
+        x.SetElementText "r/a", "x < y"
+        x.AddElement "r", "empty"
+        Expect.AreEqual "<?xml version=""1.0"" encoding=""UTF-8""?><r id=""1""><a>x &lt; y</a><empty/></r>", x.ToXmlString(), "ToXmlString()"
+        Expect.AreEqual "<r id=""1""><a>x &lt; y</a><empty/></r>", x.ToXmlString(False), "ToXmlString(False)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToXmlString_ElementWithAnEmptyTextNode_WritesStartAndEndTag()
+        Expect.Begin
+        Dim x As New cXml
+        x.CreateNew "r"
+        x.AddElement "r", "c"
+        x.SetElementText "r/c", ""
+        Expect.AreEqual "<r><c></c></r>", x.ToXmlString(False), "ToXmlString after SetElementText of an empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ToXmlString_ModelTree_WritesTheNodeKindsAndLeavesOutTheOthers()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<r>text<!--note--><![CDATA[data]]></r>")
+        Expect.AreEqual "<r>text<!--note--><![CDATA[data]]></r>", x.ToXmlString(False), "ToXmlString of text, a comment and a CDATA section"
+        Dim odd As New cXmlNode
+        odd.NodeType = XmlNodeType.Notation
+        odd.Name = "n"
+        Set odd.Parent = x.RootElement
+        x.RootElement.ChildNodes.Add odd
+        Expect.AreEqual "<r>text<!--note--><![CDATA[data]]></r>", x.ToXmlString(False), "ToXmlString after a node of the kind Notation is added"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/XPathEngineTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/XPathEngineTests.twin
new file mode 100644
index 00000000..5b1d16ec
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/XPathEngineTests.twin
@@ -0,0 +1,199 @@
+' mXPath: where a path starts, the steps and predicates it reads, the parts of XPath 1.0 it does not
+' read (a limit of the package, which these cases check as the page states it), the errors of the
+' two functions, and the time a query takes.
+[TestFixture]
+Module XPathEngineTests
+
+    Private Const CATALOG As String = "<catalog><book id='1'><title>Dune</title></book><book id='2'><title>Emma</title></book></catalog>"
+    Private Const BOOKS As String = "<catalog><book id='1' cat='fiction' price='12.5'><title id='t1'>Dune</title><author id='a1'>Herbert</author></book><book id='2' cat='fiction' price='8'><title id='t2'>Emma</title><author id='a2'>Austen</author></book><book id='3' cat='science' price='30'><title id='t3'>Cosmos</title><author id='a3'>Sagan</author></book></catalog>"
+    Private Const LIBRARY As String = "<lib id='l'><shelf id='s1'><book id='a'></book><!--c--><book id='b'>text</book></shelf><shelf id='s2'><book id='c'></book></shelf></lib>"
+
+    ' ---- where a path starts
+
+    [TestCase]
+    Public Sub Context_FromTheDocumentNode_ALeadingSlashChangesNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(CATALOG)
+        Expect.AreEqual 2, x.XPath("catalog/book").Count, "the nodes of XPath(catalog/book)"
+        Expect.AreEqual 2, x.XPath("/catalog/book").Count, "the nodes of XPath(/catalog/book)"
+        Expect.AreEqual 2, x.XPath("//title").Count, "the nodes of XPath(//title)"
+        Expect.AreEqual "catalog#", Helpers.Listed(x.XPath("/catalog")), "the nodes of XPath(/catalog)"
+        Expect.AreEqual Helpers.Listed(x.XPath("catalog")), Helpers.Listed(x.XPath("/catalog")), "XPath(catalog) against XPath(/catalog)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Context_FromAnElement_ASlashAtTheStartIsIgnoredAndTheSearchStaysBelow()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(CATALOG)
+        Dim book As cXmlNode
+        Set book = x.XPathSingle("/catalog/book[@id='2']")
+        Expect.AreEqual 1, book.XPath("//title").Count, "the nodes of book.XPath(//title)"
+        Expect.AreEqual 1, book.XPath("/title").Count, "the nodes of book.XPath(/title)"
+        Expect.AreEqual 0, book.XPath("/catalog/book").Count, "the nodes of book.XPath(/catalog/book)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Context_XPathFromRoot_StartsAtTheRootElement()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(CATALOG)
+        Expect.AreEqual 2, x.XPathFromRoot("book").Count, "the nodes of XPathFromRoot(book)"
+        Expect.AreEqual 0, x.XPathFromRoot("/catalog/book").Count, "the nodes of XPathFromRoot(/catalog/book)"
+        Expect.AreEqual "catalog", x.XPathFromRoot(".").Item(1).Name, "the first node of XPathFromRoot(.)"
+        Expect.Done
+    End Sub
+
+    ' ---- steps and predicates
+
+    [TestCase]
+    Public Sub Steps_NamesAndNodeTests_SelectAsMsxml()
+        Expect.Begin
+        Dim q As Variant
+        For Each q In Array("/lib/shelf", "//book", "/lib//book", "/lib/shelf/*", "/lib/shelf/node()", "/lib/shelf/comment()", "//book/text()", "/lib/shelf/book/parent::shelf", "//book/parent::*", "/lib/./shelf/self::shelf", "//shelf/child::book", "/lib/descendant::book", "/lib/self::shelf")
+            Helpers.SelectsAsMsxml LIBRARY, CStr(q)
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Steps_NodesThatAreNotElements_ArePickedByTheirNames()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(LIBRARY)
+        Expect.AreEqual "#comment=c", Helpers.Listed(x.XPath("/lib/shelf/#comment")), "the nodes of XPath(/lib/shelf/#comment)"
+        Expect.AreEqual "#text=text", Helpers.Listed(x.XPath("//book/#text")), "the nodes of XPath(//book/#text)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Predicates_StandardForms_SelectAsMsxml()
+        Expect.Begin
+        Dim q As Variant
+        For Each q In Array("//book[2]", "//book[last()]", "//book[position()=1]", "//book[@id]", "//book[@id=3]", "//book[@cat!='fiction']", "//book[@price>10]", "//book[@price<=8]", "//book[@price>'10']", "//book[@cat='fiction'][2]", "//book[title]", "//title[text()='Dune']", "//author[contains(text(), 'ag')]", "//book[starts-with(@cat, 'sci')]", "//book[not(@cat='fiction')]", "//book[@cat='fiction' and @price>10]", "//book[@id='1' or @id='3']", "//book[ @id = '2' ]")
+            Helpers.SelectsAsMsxml BOOKS, CStr(q)
+        Next
+        Expect.Done
+    End Sub
+
+    ' ---- what the engine does not read
+
+    [TestCase]
+    Public Sub Limits_AttributeSteps_SelectNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(CATALOG)
+        Expect.AreEqual 0, x.XPath("/catalog/book/@id").Count, "the nodes of /catalog/book/@id"
+        Expect.AreEqual 0, x.XPath("//@id").Count, "the nodes of //@id"
+        Expect.AreEqual 0, x.XPath("/catalog/book/attribute::id").Count, "the nodes of /catalog/book/attribute::id"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Limits_UnionGroupingAndTwoAttributes_SelectNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(CATALOG)
+        Expect.AreEqual 0, x.XPath("//title | //book").Count, "the nodes of //title | //book"
+        Expect.AreEqual 0, x.XPath("//book[(@id='1')]").Count, "the nodes of //book[(@id='1')]"
+        Expect.AreEqual 0, x.XPath("//book[@id=@id]").Count, "the nodes of //book[@id=@id]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Limits_OtherFunctions_SelectNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc(CATALOG)
+        Dim q As Variant
+        For Each q In Array("//book[count(title)=1]", "//book[string-length(@id)=1]", "//book[normalize-space(@id)='1']", "//book[name()='book']", "//book[local-name()='book']")
+            Expect.AreEqual 0, x.XPath(CStr(q)).Count, "the nodes of " & q
+        Next
+        Expect.Done
+    End Sub
+
+    ' ---- the two functions
+
+    [TestCase]
+    Public Sub SelectNodes_ContextNodeAndExpression_ReturnTheNodes()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a><b id='1'></b><b id='2'></b></a>")
+        Dim found As Collection
+        Set found = mXPath.SelectNodes(x.RootElement, "b")
+        Expect.AreEqual 2, found.Count, "the nodes of SelectNodes(a, b)"
+        Expect.AreEqual "2", found(2).GetAttribute("id"), "the id of the second node"
+        Expect.AreEqual 0, mXPath.SelectNodes(Nothing, "b").Count, "the nodes of SelectNodes(Nothing, b)"
+        Expect.AreEqual 0, mXPath.SelectNodes(x.Document, "").Count, "the nodes of SelectNodes with an empty expression"
+        Expect.AreEqual 0, mXPath.SelectNodes(x.Document, "/").Count, "the nodes of SelectNodes with the expression /"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectNodes_PositionTooLargeForALong_RaisesOverflow()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a><b id='1'></b><b id='2'></b></a>")
+        Dim found As Collection
+        On Error Resume Next
+        Set found = mXPath.SelectNodes(x.Document, "//b[99999999999]")
+        Expect.AreEqual 6, Err.Number, "the error number of SelectNodes with the position 99999999999"
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub XPath_PositionTooLargeForALong_ReturnsAnEmptyCollectionAndLeavesTheError()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a><b id='1'></b><b id='2'></b></a>")
+        Err.Clear
+        Expect.AreEqual 0, x.XPath("//b[99999999999]").Count, "the nodes of XPath with the position 99999999999"
+        Expect.AreEqual 6, Err.Number, "Err.Number after XPath with the position 99999999999"
+        Expect.AreEqual 0, x.RootElement.XPath("//b[99999999999]").Count, "the nodes of cXmlNode.XPath with the position 99999999999"
+        Expect.IsTrue (x.XPathSingle("//b[99999999999]") Is Nothing), "XPathSingle with the position 99999999999 returns Nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectSingleNode_ReturnsTheFirstNodeOrNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a><b id='1'></b><b id='2'></b></a>")
+        Expect.AreEqual "2", mXPath.SelectSingleNode(x.Document, "//b[@id='2']").GetAttribute("id"), "the node of SelectSingleNode(//b[@id='2'])"
+        Expect.IsTrue (mXPath.SelectSingleNode(x.Document, "/zzz") Is Nothing), "SelectSingleNode of an expression that selects nothing is Nothing"
+        Expect.IsTrue (mXPath.SelectSingleNode(Nothing, "/a") Is Nothing), "SelectSingleNode with Nothing as the context is Nothing"
+        Expect.Done
+    End Sub
+
+    ' ---- the time a query takes
+
+    [TestCase]
+    Public Sub SelectNodes_ManyNodes_TimeGrowsInStepWithTheirNumber()
+        Expect.Begin
+        Dim small As Double = TimeOfQuery(500)
+        Dim large As Double = TimeOfQuery(2000)
+        If small < 0.02 Then small = 0.02
+        Expect.IsTrue large < 8 * small, "the time of //item over 2000 elements is less than 8 times that over 500 (linear growth gives 4, quadratic growth 16)"
+        Expect.Done
+    End Sub
+
+    Private Function TimeOfQuery(ByVal Count As Long) As Double
+        Dim parts() As String
+        ReDim parts(0 To Count - 1)
+        Dim i As Long
+        For i = 0 To Count - 1
+            parts(i) = "<item id='" & i & "'></item>"
+        Next
+        Dim x As New cXml
+        x.Parse "<list>" & Join(parts, "") & "</list>"
+        Dim t As Double = Timer
+        Dim n As Long = x.XPath("//item").Count
+        TimeOfQuery = Timer - t
+        If TimeOfQuery < 0 Then TimeOfQuery = TimeOfQuery + 86400
+    End Function
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/XPathPredicateTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/XPathPredicateTests.twin
new file mode 100644
index 00000000..75e71e0d
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/XPathPredicateTests.twin
@@ -0,0 +1,302 @@
+' mXPath and the predicates of a step: positions, and and or, comparisons of attributes, text and
+' children, and a bracket with no end. Each case selects with the package and with MSXML6 (XPath
+' 1.0) and compares, except where the expression is not XPath.
+[TestFixture]
+Module XPathPredicateTests
+
+    Private Const SHELVES As String = "<lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>"
+    Private Const ITEMS As String = "<s><i id='1' x='1' y='2'></i><i id='2' z='3'></i><i id='3' x='1'></i></s>"
+    Private Const PRICES As String = "<s><i id='1' p='5'></i><i id='2'></i><i id='3' p='abc'></i><i id='4' p=''></i></s>"
+    Private Const TITLES As String = "<catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>"
+
+    ' ---- positions
+
+    [TestCase]
+    Public Sub Positions_ChildStep_CountsTheChildrenOfEachParent()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "/lib/shelf/book[1]"
+        Helpers.SelectsAsMsxml SHELVES, "//shelf/book[last()]"
+        Helpers.SelectsAsMsxml SHELVES, "/lib/shelf/book[2]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_AfterDoubleSlash_CountPerParent()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "//book[1]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_AfterDoubleSlash_LastIsThatOfEachParent()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "//book[last()]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_AfterDescendantStepInThePath_CountPerParent()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "/lib//book[1]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_LastMinusOne_SelectsTheNextToLast()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "//shelf/book[last()-1]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_PositionWithSpacesAroundTheEqualsSign_SelectsThePosition()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "//shelf/book[position() = 1]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_PositionEqualsLast_SelectsTheLast()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "//shelf/book[position()=last()]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_PositionGreaterThan_SelectsTheLaterOnes()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "//shelf/book[position()>1]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_FractionalNumber_SelectsNothing()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "//shelf/book[1.5]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Positions_ShortForms_WorkAsTheLongForms()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SHELVES, "//shelf[2]/book[position()=1]"
+        Helpers.SelectsAsMsxml SHELVES, "/lib/shelf[last()]"
+        Helpers.SelectsAsMsxml SHELVES, "/lib/shelf/book[3]"
+        Expect.Done
+    End Sub
+
+    ' ---- and and or
+
+    [TestCase]
+    Public Sub Logic_AndOfTwoComparisons_KeepsTheNodesThatSatisfyBoth()
+        Expect.Begin
+        Helpers.SelectsAsMsxml ITEMS, "//i[@x='1' and @y='2']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Logic_OrOfTwoComparisons_KeepsTheNodesThatSatisfyOne()
+        Expect.Begin
+        Helpers.SelectsAsMsxml ITEMS, "//i[@x='1' or @z='3']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Logic_AndBeforeOr_BindsAndTighter()
+        Expect.Begin
+        Helpers.SelectsAsMsxml ITEMS, "//i[@x='1' and @y='2' or @z='3']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Logic_OrBeforeAnd_BindsAndTighter()
+        Expect.Begin
+        Helpers.SelectsAsMsxml ITEMS, "//i[@z='3' or @x='1' and @y='2']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Logic_AndInsideAQuotedString_IsNotAnOperator()
+        Expect.Begin
+        Dim xmlText As String
+        xmlText = "<s><i id='1' t='salt and pepper'></i><i id='2' t='salt'></i></s>"
+        Helpers.SelectsAsMsxml xmlText, "//i[@t='salt and pepper']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Logic_OrInsideAQuotedString_IsNotAnOperator()
+        Expect.Begin
+        Dim xmlText As String
+        xmlText = "<s><i id='1' t='salt or pepper'></i><i id='2' t='salt'></i></s>"
+        Helpers.SelectsAsMsxml xmlText, "//i[@t='salt or pepper']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Logic_NotOfAnd_KeepsTheNodesThatLackOne()
+        Expect.Begin
+        Helpers.SelectsAsMsxml ITEMS, "//i[not(@x and @y)]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Logic_ParenthesesAroundComparisons_GroupThem()
+        Expect.Begin
+        Helpers.SelectsAsMsxml ITEMS, "//i[(@x='1') and (@y='2')]"
+        Expect.Done
+    End Sub
+
+    ' ---- comparing attributes
+
+    [TestCase]
+    Public Sub Compare_LessThanOnAMissingAttribute_IsFalse()
+        Expect.Begin
+        Helpers.SelectsAsMsxml PRICES, "//i[@p<10]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Compare_NotEqualOnAMissingAttribute_IsFalse()
+        Expect.Begin
+        Helpers.SelectsAsMsxml PRICES, "//i[@p!='x']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Compare_EqualToEmptyStringOnAMissingAttribute_IsFalse()
+        Expect.Begin
+        Helpers.SelectsAsMsxml PRICES, "//i[@p='']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Compare_AttributeExists_KeepsTheNodesThatHaveIt()
+        Expect.Begin
+        Helpers.SelectsAsMsxml PRICES, "//i[@p]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Compare_QuotedStringWithEqualsSign_IsOneValue()
+        Expect.Begin
+        Helpers.SelectsAsMsxml QuotedOperators(), "//i[@t='a=b']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Compare_QuotedStringWithGreaterThan_IsOneValue()
+        Expect.Begin
+        Helpers.SelectsAsMsxml QuotedOperators(), "//i[@t='a>b']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Compare_QuotedStringWithLessThan_IsOneValue()
+        Expect.Begin
+        Helpers.SelectsAsMsxml QuotedOperators(), "//i[@t='a<b']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Compare_QuotedStringWithNotEquals_IsOneValue()
+        Expect.Begin
+        Helpers.SelectsAsMsxml QuotedOperators(), "//i[@t='a!=b']"
+        Expect.Done
+    End Sub
+
+    Private Function QuotedOperators() As String
+        QuotedOperators = "<r><i id='1' t='a&gt;b'></i><i id='2' t='a=b'></i><i id='3' t='a&lt;b'></i><i id='4' t='a!=b'></i></r>"
+    End Function
+
+    ' ---- comparing text and children
+
+    [TestCase]
+    Public Sub TextCompare_Equals_KeepsTheNodesWithThatText()
+        Expect.Begin
+        Helpers.SelectsAsMsxml TITLES, "//title[text()='Dune']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TextCompare_NotEquals_KeepsTheNodesWithOtherText()
+        Expect.Begin
+        Helpers.SelectsAsMsxml TITLES, "//title[text()!='Dune']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TextCompare_GreaterThanText_IsAComparisonOfNumbers()
+        Expect.Begin
+        Helpers.SelectsAsMsxml TITLES, "//title[text()>'Z']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ChildCompare_ChildEqualsText_KeepsTheNodesWhoseChildHasThatText()
+        Expect.Begin
+        Helpers.SelectsAsMsxml TITLES, "//book[title='Dune']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelfCompare_DotEqualsText_KeepsTheNodesWithThatText()
+        Expect.Begin
+        Helpers.SelectsAsMsxml TITLES, "//title[.='Dune']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Contains_FirstArgumentIsAChildName_TestsTheChildsText()
+        Expect.Begin
+        Helpers.SelectsAsMsxml TITLES, "//book[contains(title, 'i')]"
+        Expect.Done
+    End Sub
+
+    ' ---- letter case
+
+    Private Const AUTHORS As String = "<catalog><book id='1' cat='fiction'><author id='a1'>Herbert</author></book><book id='2' cat='fiction'><author id='a2'>Austen</author></book><book id='3' cat='science'><author id='a3'>Sagan</author></book></catalog>"
+
+    [TestCase]
+    Public Sub Compare_AttributeValueLetterCase_IsSignificant()
+        Expect.Begin
+        Helpers.SelectsAsMsxml AUTHORS, "//book[@cat='FICTION']"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Contains_LetterCase_IsSignificant()
+        Expect.Begin
+        Helpers.SelectsAsMsxml AUTHORS, "//author[contains(text(), 'a')]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StartsWith_LetterCase_IsSignificant()
+        Expect.Begin
+        Helpers.SelectsAsMsxml AUTHORS, "//author[starts-with(text(), 'h')]"
+        Expect.Done
+    End Sub
+
+    ' ---- a bracket with no end
+
+    [TestCase]
+    Public Sub Brackets_PredicateWithoutClosingBracket_SelectsNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a><b id='1'></b><b id='2'></b></a>")
+        Expect.AreEqual "b#1", Helpers.Listed(x.XPath("//b[@id='1']")), "the nodes selected by //b[@id='1']"
+        Expect.AreEqual "", Helpers.Listed(x.XPath("//b[@id='1'")), "the nodes selected by //b[@id='1' (not an XPath expression)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Brackets_OpeningBracketAlone_SelectsNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<a><b id='1'></b><b id='2'></b></a>")
+        Expect.AreEqual "", Helpers.Listed(x.XPath("//b[")), "the nodes selected by //b[ (not an XPath expression)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/Sources/XPathStepTests.twin b/test/package-tests/TBMANLIB_Xml/Sources/XPathStepTests.twin
new file mode 100644
index 00000000..8bdb26a3
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/Sources/XPathStepTests.twin
@@ -0,0 +1,106 @@
+' mXPath and the steps of a location path: the parent step .., the axes, and the empty steps that
+' slashes make. Each case selects with the package and with MSXML6 (XPath 1.0) and compares.
+[TestFixture]
+Module XPathStepTests
+
+    Private Const CATALOG As String = "<catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>"
+    Private Const NESTED As String = "<a id='outer'><b id='b'><a id='inner'></a></b></a>"
+    Private Const SIBLINGS As String = "<r id='r'><a id='a'><b id='child'></b></a><b id='sibling'></b></r>"
+
+    ' ---- the parent step
+
+    [TestCase]
+    Public Sub ParentStep_AfterChildSteps_SelectsTheParent()
+        Expect.Begin
+        Helpers.SelectsAsMsxml CATALOG, "/catalog/book/title/.."
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParentStep_AfterDescendantStep_SelectsTheParents()
+        Expect.Begin
+        Helpers.SelectsAsMsxml CATALOG, "//title/.."
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParentStep_Twice_SelectsTheGrandparent()
+        Expect.Begin
+        Helpers.SelectsAsMsxml CATALOG, "/catalog/book[@id='2']/title/../.."
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParentAxis_ParentColonColon_SelectsTheParent()
+        Expect.Begin
+        Helpers.SelectsAsMsxml CATALOG, "/catalog/book/title/parent::book"
+        Helpers.SelectsAsMsxml CATALOG, "/catalog/book/title/parent::*"
+        Expect.Done
+    End Sub
+
+    ' ---- the other axes
+
+    [TestCase]
+    Public Sub Axes_Ancestor_SelectsTheAncestors()
+        Expect.Begin
+        Helpers.SelectsAsMsxml NESTED, "/a/b/ancestor::a"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Axes_AncestorOrSelf_SelectsTheNodeAndItsAncestors()
+        Expect.Begin
+        Helpers.SelectsAsMsxml NESTED, "/a/b/ancestor-or-self::*"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Axes_FollowingSibling_SelectsTheLaterSiblings()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SIBLINGS, "/r/a/following-sibling::b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Axes_PrecedingSibling_SelectsTheEarlierSiblings()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SIBLINGS, "/r/b/preceding-sibling::a"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Axes_DescendantOrSelf_SelectsTheNodeAndItsDescendants()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SIBLINGS, "/r/a/descendant-or-self::*"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Axes_Following_SelectsTheNodesAfterTheSubtree()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SIBLINGS, "/r/a/following::*"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Axes_Child_Descendant_Self_AreRead()
+        Expect.Begin
+        Helpers.SelectsAsMsxml SIBLINGS, "/r/child::a"
+        Helpers.SelectsAsMsxml SIBLINGS, "/r/descendant::b"
+        Helpers.SelectsAsMsxml SIBLINGS, "/r/self::r"
+        Helpers.SelectsAsMsxml SIBLINGS, "/r/a/self::b"
+        Expect.Done
+    End Sub
+
+    ' ---- slashes
+
+    [TestCase]
+    Public Sub Slashes_TripleSlash_SelectsNothing()
+        Expect.Begin
+        Dim x As cXml
+        Set x = Helpers.Doc("<catalog><book id='1'></book></catalog>")
+        Expect.AreEqual "", Helpers.Listed(x.XPath("/catalog///book")), "the nodes selected by /catalog///book (not an XPath expression)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TBMANLIB_Xml/expect.json b/test/package-tests/TBMANLIB_Xml/expect.json
new file mode 100644
index 00000000..0472cec1
--- /dev/null
+++ b/test/package-tests/TBMANLIB_Xml/expect.json
@@ -0,0 +1,278 @@
+{
+  "version": "1.0.0.1",
+  "cases": {
+    "DeclarationTests.Parse_UnclosedComment_Returns": {
+      "hangs": true
+    },
+    "DeclarationTests.Parse_UnclosedCDataSection_Returns": {
+      "hangs": true
+    },
+    "DeclarationTests.Parse_DoctypeAfterTheDeclaration_Returns": {
+      "hangs": true
+    },
+    "DeclarationTests.Parse_DoctypeInsideAnElement_Returns": {
+      "hangs": true
+    },
+    "DeclarationTests.Parse_DoctypeFollowedByAnInstruction_KeepsTheRootElement": {
+      "fails": "2 of 2 checks failed: the root element of a declaration, a DOCTYPE, a root element and an instruction: expected \"note\", got \"Nothing\"; the text of note in that text: expected \"text\", got \"\""
+    },
+    "DeclarationTests.Parse_ProcessingInstructionInsideAnElement_LeavesNoText": {
+      "fails": "2 of 2 checks failed: the text of root in <root><?pi data?><a>x</a></root>: expected \"x\", got \">x\"; the children of root in <root><?pi data?><a>x</a></root>: expected 1, got 2"
+    },
+    "DocumentTests.Clone_CopiedNodes_CanBeRemoved": {
+      "fails": "2 of 3 checks failed: RemoveElement of r/a in the clone: expected True, got False; ToXmlString of the clone after RemoveElement of r/a: expected \"<r/>\", got \"<r><a>1</a></r>\""
+    },
+    "DocumentTests.Clone_NodesOfTheClone_HaveAParent": {
+      "fails": "2 of 2 checks failed: the Parent of the root element of the clone: expected \"#document\", got \"Nothing\"; the Parent of the first child of the root element of the clone: expected \"r\", got \"Nothing\""
+    },
+    "DocumentTests.Merge_AddedNodes_CanBeRemoved": {
+      "fails": "2 of 3 checks failed: RemoveElement of list/y, an element that Merge added: expected True, got False; ToXmlString after RemoveElement of list/y: expected \"<list a=\"1\"><x>1</x></list>\", got \"<list a=\"1\"><x>1</x><y>2</y></list>\""
+    },
+    "DocumentTests.Merge_IntoAnObjectWithNoDocument_SetsTheRootElement": {
+      "fails": "1 of 2 checks failed: RootElement after Merge into an object with no document: expected \"r\", got \"Nothing\""
+    },
+    "DocumentTests.Merge_SecondMergeIntoAnObjectWithNoDocument_AppendsTheChildren": {
+      "fails": "1 of 1 checks failed: ToXmlString after two Merge calls into an object with no document: expected \"<r><a>1</a><z>3</z></r>\", got \"<r><a>1</a></r>\""
+    },
+    "DocumentTests.Merge_NothingAsTheOtherDocument_DoesNothing": {
+      "fails": "1 of 2 checks failed: the error number of Merge with Nothing: expected 0, got 91"
+    },
+    "DocumentTests.RemoveElement_RootElement_LeavesNoRootElement": {
+      "fails": "1 of 3 checks failed: RootElement after RemoveElement of r: expected \"Nothing\", got \"r\""
+    },
+    "DocumentTests.XmlString_TextThatCannotBeRead_RaisesNoError": {
+      "fails": "1 of 1 checks failed: the error number of setting XmlString to <: expected 0, got 5"
+    },
+    "EntityTests.Parse_PredefinedEntitiesInText_AreDecoded": {
+      "fails": "1 of 1 checks failed: GetElementText of a text with the five predefined entities: expected \"Tom & Jerry <3 > \"q\" 's'\", got \"Tom &amp; Jerry &lt;3 &gt; &quot;q&quot; &apos;s&apos;\""
+    },
+    "EntityTests.Parse_NumericReferencesInText_AreDecoded": {
+      "fails": "1 of 1 checks failed: GetElementText of <a>&#65;&#x42;</a>: expected \"AB\", got \"&#65;&#x42;\""
+    },
+    "EntityTests.Parse_NumericReferencesInAttribute_AreDecoded": {
+      "fails": "1 of 1 checks failed: GetAttribute of v=\"&#65;&#x42;\": expected \"AB\", got \"&#65;&#x42;\""
+    },
+    "EntityTests.Parse_AmpersandEntityBeforeText_IsNotDecodedTwice": {
+      "fails": "1 of 1 checks failed: GetAttribute of v=\"&amp;quot;\" (the characters &quot; and nothing more): expected \"&quot;\", got \"\"\""
+    },
+    "EntityTests.ToXmlString_TextReadFromXml_IsEscapedOnce": {
+      "fails": "2 of 2 checks failed: ToXmlString of <a>Tom &amp; Jerry</a>: expected \"<a>Tom &amp; Jerry</a>\", got \"<a>Tom &amp;amp; Jerry</a>\"; GetElementText after the text is written and read again: expected \"Tom & Jerry\", got \"Tom &amp;amp; Jerry\""
+    },
+    "EntityTests.ToXmlString_AttributeReadFromXml_IsEscapedOnce": {
+      "fails": "1 of 1 checks failed: ToXmlString of <a title=\"Tom &amp; Jerry &#65;\"></a>: expected \"<a title=\"Tom &amp; Jerry A\"/>\", got \"<a title=\"Tom &amp; Jerry &amp;#65;\"/>\""
+    },
+    "EntityTests.SetElementText_PlainText_IsWrittenOnce": {
+      "fails": "1 of 3 checks failed: GetElementText after the text is written and read again: expected \"Tom & Jerry <3\", got \"Tom &amp; Jerry &lt;3\""
+    },
+    "FileTests.LoadFromFile_MissingFile_ReturnsFalseAndCreatesNoFile": {
+      "fails": "1 of 2 checks failed: the file after LoadFromFile of a file that does not exist: expected \"\", got \"missing.xml\""
+    },
+    "FileTests.LoadFromFile_FileThatCannotBeParsed_ReturnsFalse": {
+      "fails": "1 of 1 checks failed: LoadFromFile of a file that holds <r><a (a tag cut off by the end of the file): expected False, got True"
+    },
+    "FileTests.SaveToFile_DeclaredEncoding_MatchesTheBytesWritten": {
+      "fails": "1 of 1 checks failed: the file declares ISO-8859-1 and writes the letter e with an acute accent as the two UTF-8 bytes C3 A9: expected False, got True"
+    },
+    "NodeTests.ElementNames_DifferingInCase_AreDifferentElements": {
+      "fails": "4 of 4 checks failed: the nodes of SelectElements(a) in <r><a/><A/></r>: expected 1, got 2; the id of GetChildNode(A): expected \"2\", got \"1\"; the nodes of GetChildNodesByName(a): expected 1, got 2; GetElementText of r/A: expected \"y\", got \"x\""
+    },
+    "NodeTests.AttributeNames_DifferingInCase_AreDifferentAttributes": {
+      "fails": "2 of 3 checks failed: the entries of Attributes after a and A are set: expected 4, got 2; GetAttribute of a: expected \"1\", got \"2\""
+    },
+    "NodeTests.GetAttribute_NameInAnotherCase_FindsNothing": {
+      "fails": "2 of 3 checks failed: GetAttribute of ID: expected \"\", got \"7\"; cXml.GetAttribute of Id: expected \"\", got \"7\""
+    },
+    "NodeTests.RemoveAttribute_NameInAnotherCase_RemovesNothing": {
+      "fails": "1 of 1 checks failed: the entries of Attributes after RemoveAttribute of A: expected 2, got 0"
+    },
+    "ParseResultTests.Parse_Failure_KeepsThePreviousDocument": {
+      "fails": "2 of 3 checks failed: GetElementText of a after a failed Parse: expected \"x\", got \"\"; the children of the document node after a failed Parse: expected 1, got 0"
+    },
+    "ParseResultTests.Parse_TextCutOffInATag_KeepsThePreviousDocument": {
+      "fails": "1 of 2 checks failed: GetElementText of a after Parse of <b><c: expected \"x\", got \"\""
+    },
+    "ParseResultTests.Parse_WhiteSpaceBetweenInlineElements_IsKept": {
+      "fails": "2 of 2 checks failed: ToXmlString of <p><b>a</b> <i>b</i></p>: expected \"<p><b>a</b> <i>b</i></p>\", got \"<p><b>a</b><i>b</i></p>\"; GetElementText of p in <p><b>a</b> <i>b</i></p>: expected \"a b\", got \"ab\""
+    },
+    "ParseResultTests.Parse_ElementWithOnlySpaces_KeepsTheSpaces": {
+      "fails": "2 of 2 checks failed: GetElementText of <b> </b>: expected \" \", got \"\"; ToXmlString of <b> </b>: expected \"<b> </b>\", got \"<b/>\""
+    },
+    "ParseResultTests.Parse_SpacesAroundChildElements_AreChildNodes": {
+      "fails": "1 of 1 checks failed: the children of r in <r> <a>1</a> </r> (MSXML6 with white space kept: 3): expected 3, got 1"
+    },
+    "ParseResultTests.Parse_LeadingByteOrderMarkCharacter_IsDropped": {
+      "fails": "2 of 3 checks failed: the root element of a text that starts with U+FEFF: expected \"root\", got \"a\"; the text of root/a: expected \"t\", got \"\""
+    },
+    "ParseResultTests.XmlString_LeadingByteOrderMarkCharacter_IsDropped": {
+      "fails": "1 of 1 checks failed: the root element after XmlString is set to a text that starts with U+FEFF: expected \"root\", got \"a\""
+    },
+    "ParseResultTests.Parse_TextWithNoElement_LeavesNoRootElement": {
+      "fails": "1 of 1 checks failed: RootElement after Parse of a text with no element: expected \"Nothing\", got \"r\""
+    },
+    "SelfClosingTests.Parse_BareSelfClosingElement_IsAnElementNamedLikeTheTag": {
+      "fails": "1 of 4 checks failed: the name of the first child of r in <r><a/><b>t</b></r>: expected \"a\", got \"/a\""
+    },
+    "SelfClosingTests.Parse_SelfClosingElementWithAttributes_HasNoChildren": {
+      "fails": "3 of 4 checks failed: the children of r in <r><b x=\"1\"/><c>t</c></r>: expected 2, got 1; the text of r/c in <r><b x=\"1\"/><c>t</c></r>: expected \"t\", got \"\"; the text of r/b/c in <r><b x=\"1\"/><c>t</c></r>: expected \"\", got \"t\""
+    },
+    "SelfClosingTests.Parse_SelfClosingElementWithSpaceBeforeTheSlash_HasNoChildren": {
+      "fails": "2 of 3 checks failed: the children of r in <r><a /><c>t</c></r>: expected 2, got 1; the text of r/c in <r><a /><c>t</c></r>: expected \"t\", got \"\""
+    },
+    "SelfClosingTests.ToXmlString_EmptyElement_ReadsBackAsAnEmptyElement": {
+      "fails": "2 of 3 checks failed: the name of the first child of r after the text is read again: expected \"empty\", got \"/empty\"; the text written after it is read again: expected \"<r><empty/></r>\", got \"<r></empty/></r>\""
+    },
+    "SelfClosingTests.Validate_DocumentWithSelfClosingElements_IsTrue": {
+      "fails": "1 of 1 checks failed: Validate of <r><a/><b x=\"1\"/></r>: expected True, got False"
+    },
+    "TagTests.Parse_BothKindsOfQuote_KeepEveryAttribute": {
+      "fails": "2 of 2 checks failed: attribute b of <a b='1' c=\"2\">: expected \"1\", got \"2\"; attribute c of <a b='1' c=\"2\">: expected \"2\", got \"\""
+    },
+    "TagTests.Parse_GreaterThanInAttributeValue_IsPartOfTheValue": {
+      "fails": "2 of 2 checks failed: attribute b of <a b=\"x>y\">t</a>: expected \"x>y\", got \"\"; the text of <a b=\"x>y\">t</a>: expected \"t\", got \"y\">t\""
+    },
+    "TagTests.Parse_LineBreakBetweenAttributes_KeepsBothAttributes": {
+      "fails": "1 of 3 checks failed: attribute c of a tag with a line break between its attributes: expected \"2\", got \"\""
+    },
+    "TagTests.Parse_LineFeedBetweenAttributes_KeepsBothAttributes": {
+      "fails": "1 of 2 checks failed: attribute c of a tag with a line feed between its attributes: expected \"2\", got \"\""
+    },
+    "TagTests.Parse_LineBreakAfterTheElementName_IsNotPartOfTheName": {
+      "fails": "2 of 2 checks failed: the name of an element whose first attribute follows a line feed: expected \"a\", got \"a\\nb=\"1\"\"; attribute b of an element whose first attribute follows a line feed: expected \"1\", got \"\""
+    },
+    "TagTests.Parse_AttributeWithoutValue_DoesNotChangeTheNextAttribute": {
+      "fails": "2 of 2 checks failed: attribute c of <a disabled c=\"2\">: expected \"2\", got \"\"; attribute disabled of <a disabled c=\"2\">: expected \"\", got \"2\""
+    },
+    "WriteTests.PrettyPrint_TextReadBack_HasTheTextThatWasWritten": {
+      "fails": "1 of 1 checks failed: GetElementText of r/a after the pretty-printed text is read: expected \"t\", got \" t \""
+    },
+    "WriteTests.PrettyPrint_WrittenAgainAfterReading_IsTheSameText": {
+      "fails": "1 of 1 checks failed: the pretty-printed text after it is read and written again: expected \"<r>\\r\\n <a>\\r\\n t\\r\\n </a>\\r\\n</r>\\r\\n\", got \"<r>\\r\\n \\r\\n \\r\\n <a>\\r\\n \\r\\n t\\r\\n \\r\\n </a>\\r\\n \\r\\n\\r\\n</r>\\r\\n\\r\\n\\r\\n\""
+    },
+    "WriteTests.PrettyPrint_ElementsWithOnlyElementChildren_ReadBackWithTheSameChildren": {
+      "fails": "1 of 1 checks failed: the compact text after a pretty-printed text with no character data is read: expected \"<r><a><b/></a></r>\", got \"<r> <a> </b/> </a> </r> \""
+    },
+    "XPathEngineTests.SelectNodes_ManyNodes_TimeGrowsInStepWithTheirNumber": {
+      "fails": "1 of 1 checks failed: the time of //item over 2000 elements is less than 8 times that over 500 (linear growth gives 4, quadratic growth 16): expected True, got False"
+    },
+    "XPathPredicateTests.Positions_AfterDoubleSlash_CountPerParent": {
+      "fails": "1 of 1 checks failed: XPath //book[1] on <lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>: expected \"book#a book#c\", got \"book#a\""
+    },
+    "XPathPredicateTests.Positions_AfterDoubleSlash_LastIsThatOfEachParent": {
+      "fails": "1 of 1 checks failed: XPath //book[last()] on <lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>: expected \"book#b book#d\", got \"book#d\""
+    },
+    "XPathPredicateTests.Positions_AfterDescendantStepInThePath_CountPerParent": {
+      "fails": "1 of 1 checks failed: XPath /lib//book[1] on <lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>: expected \"book#a book#c\", got \"book#a\""
+    },
+    "XPathPredicateTests.Positions_LastMinusOne_SelectsTheNextToLast": {
+      "fails": "1 of 1 checks failed: XPath //shelf/book[last()-1] on <lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>: expected \"book#a book#c\", got \"\""
+    },
+    "XPathPredicateTests.Positions_PositionWithSpacesAroundTheEqualsSign_SelectsThePosition": {
+      "fails": "1 of 1 checks failed: XPath //shelf/book[position() = 1] on <lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>: expected \"book#a book#c\", got \"\""
+    },
+    "XPathPredicateTests.Positions_PositionEqualsLast_SelectsTheLast": {
+      "fails": "1 of 1 checks failed: XPath //shelf/book[position()=last()] on <lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>: expected \"book#b book#d\", got \"\""
+    },
+    "XPathPredicateTests.Positions_PositionGreaterThan_SelectsTheLaterOnes": {
+      "fails": "1 of 1 checks failed: XPath //shelf/book[position()>1] on <lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>: expected \"book#b book#d\", got \"\""
+    },
+    "XPathPredicateTests.Positions_FractionalNumber_SelectsNothing": {
+      "fails": "1 of 1 checks failed: XPath //shelf/book[1.5] on <lib><shelf id='s1'><book id='a'></book><book id='b'></book></shelf><shelf id='s2'><book id='c'></book><book id='d'></book></shelf></lib>: expected \"\", got \"book#b book#d\""
+    },
+    "XPathPredicateTests.Logic_AndBeforeOr_BindsAndTighter": {
+      "fails": "1 of 1 checks failed: XPath //i[@x='1' and @y='2' or @z='3'] on <s><i id='1' x='1' y='2'></i><i id='2' z='3'></i><i id='3' x='1'></i></s>: expected \"i#1 i#2\", got \"i#1\""
+    },
+    "XPathPredicateTests.Logic_OrBeforeAnd_BindsAndTighter": {
+      "fails": "1 of 1 checks failed: XPath //i[@z='3' or @x='1' and @y='2'] on <s><i id='1' x='1' y='2'></i><i id='2' z='3'></i><i id='3' x='1'></i></s>: expected \"i#1 i#2\", got \"i#1\""
+    },
+    "XPathPredicateTests.Logic_AndInsideAQuotedString_IsNotAnOperator": {
+      "fails": "1 of 1 checks failed: XPath //i[@t='salt and pepper'] on <s><i id='1' t='salt and pepper'></i><i id='2' t='salt'></i></s>: expected \"i#1\", got \"\""
+    },
+    "XPathPredicateTests.Logic_OrInsideAQuotedString_IsNotAnOperator": {
+      "fails": "1 of 1 checks failed: XPath //i[@t='salt or pepper'] on <s><i id='1' t='salt or pepper'></i><i id='2' t='salt'></i></s>: expected \"i#1\", got \"\""
+    },
+    "XPathPredicateTests.Logic_NotOfAnd_KeepsTheNodesThatLackOne": {
+      "fails": "1 of 1 checks failed: XPath //i[not(@x and @y)] on <s><i id='1' x='1' y='2'></i><i id='2' z='3'></i><i id='3' x='1'></i></s>: expected \"i#2 i#3\", got \"\""
+    },
+    "XPathPredicateTests.Logic_ParenthesesAroundComparisons_GroupThem": {
+      "fails": "1 of 1 checks failed: XPath //i[(@x='1') and (@y='2')] on <s><i id='1' x='1' y='2'></i><i id='2' z='3'></i><i id='3' x='1'></i></s>: expected \"i#1\", got \"\""
+    },
+    "XPathPredicateTests.Compare_LessThanOnAMissingAttribute_IsFalse": {
+      "fails": "1 of 1 checks failed: XPath //i[@p<10] on <s><i id='1' p='5'></i><i id='2'></i><i id='3' p='abc'></i><i id='4' p=''></i></s>: expected \"i#1\", got \"i#1 i#2 i#4\""
+    },
+    "XPathPredicateTests.Compare_NotEqualOnAMissingAttribute_IsFalse": {
+      "fails": "1 of 1 checks failed: XPath //i[@p!='x'] on <s><i id='1' p='5'></i><i id='2'></i><i id='3' p='abc'></i><i id='4' p=''></i></s>: expected \"i#1 i#3 i#4\", got \"i#1 i#2 i#3 i#4\""
+    },
+    "XPathPredicateTests.Compare_EqualToEmptyStringOnAMissingAttribute_IsFalse": {
+      "fails": "1 of 1 checks failed: XPath //i[@p=''] on <s><i id='1' p='5'></i><i id='2'></i><i id='3' p='abc'></i><i id='4' p=''></i></s>: expected \"i#4\", got \"i#2 i#4\""
+    },
+    "XPathPredicateTests.Compare_QuotedStringWithGreaterThan_IsOneValue": {
+      "fails": "1 of 1 checks failed: XPath //i[@t='a>b'] on <r><i id='1' t='a&gt;b'></i><i id='2' t='a=b'></i><i id='3' t='a&lt;b'></i><i id='4' t='a!=b'></i></r>: expected \"i#1\", got \"\""
+    },
+    "XPathPredicateTests.Compare_QuotedStringWithLessThan_IsOneValue": {
+      "fails": "1 of 1 checks failed: XPath //i[@t='a<b'] on <r><i id='1' t='a&gt;b'></i><i id='2' t='a=b'></i><i id='3' t='a&lt;b'></i><i id='4' t='a!=b'></i></r>: expected \"i#3\", got \"i#1 i#2 i#3 i#4\""
+    },
+    "XPathPredicateTests.Compare_QuotedStringWithNotEquals_IsOneValue": {
+      "fails": "1 of 1 checks failed: XPath //i[@t='a!=b'] on <r><i id='1' t='a&gt;b'></i><i id='2' t='a=b'></i><i id='3' t='a&lt;b'></i><i id='4' t='a!=b'></i></r>: expected \"i#4\", got \"i#1 i#2 i#3 i#4\""
+    },
+    "XPathPredicateTests.TextCompare_NotEquals_KeepsTheNodesWithOtherText": {
+      "fails": "1 of 1 checks failed: XPath //title[text()!='Dune'] on <catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>: expected \"title#t2\", got \"title#t1\""
+    },
+    "XPathPredicateTests.TextCompare_GreaterThanText_IsAComparisonOfNumbers": {
+      "fails": "1 of 1 checks failed: XPath //title[text()>'Z'] on <catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>: expected \"\", got \"title#t1 title#t2\""
+    },
+    "XPathPredicateTests.ChildCompare_ChildEqualsText_KeepsTheNodesWhoseChildHasThatText": {
+      "fails": "1 of 1 checks failed: XPath //book[title='Dune'] on <catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>: expected \"book#1\", got \"\""
+    },
+    "XPathPredicateTests.SelfCompare_DotEqualsText_KeepsTheNodesWithThatText": {
+      "fails": "1 of 1 checks failed: XPath //title[.='Dune'] on <catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>: expected \"title#t1\", got \"\""
+    },
+    "XPathPredicateTests.Contains_FirstArgumentIsAChildName_TestsTheChildsText": {
+      "fails": "1 of 1 checks failed: XPath //book[contains(title, 'i')] on <catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>: expected \"\", got \"book#1 book#2\""
+    },
+    "XPathPredicateTests.Compare_AttributeValueLetterCase_IsSignificant": {
+      "fails": "1 of 1 checks failed: XPath //book[@cat='FICTION'] on <catalog><book id='1' cat='fiction'><author id='a1'>Herbert</author></book><book id='2' cat='fiction'><author id='a2'>Austen</author></book><book id='3' cat='science'><author id='a3'>Sagan</author></book></catalog>: expected \"\", got \"book#1 book#2\""
+    },
+    "XPathPredicateTests.Contains_LetterCase_IsSignificant": {
+      "fails": "1 of 1 checks failed: XPath //author[contains(text(), 'a')] on <catalog><book id='1' cat='fiction'><author id='a1'>Herbert</author></book><book id='2' cat='fiction'><author id='a2'>Austen</author></book><book id='3' cat='science'><author id='a3'>Sagan</author></book></catalog>: expected \"author#a3\", got \"author#a2 author#a3\""
+    },
+    "XPathPredicateTests.StartsWith_LetterCase_IsSignificant": {
+      "fails": "1 of 1 checks failed: XPath //author[starts-with(text(), 'h')] on <catalog><book id='1' cat='fiction'><author id='a1'>Herbert</author></book><book id='2' cat='fiction'><author id='a2'>Austen</author></book><book id='3' cat='science'><author id='a3'>Sagan</author></book></catalog>: expected \"\", got \"author#a1\""
+    },
+    "XPathPredicateTests.Brackets_PredicateWithoutClosingBracket_SelectsNothing": {
+      "fails": "1 of 2 checks failed: the nodes selected by //b[@id='1' (not an XPath expression): expected \"\", got \"b#1 b#2\""
+    },
+    "XPathPredicateTests.Brackets_OpeningBracketAlone_SelectsNothing": {
+      "fails": "1 of 1 checks failed: the nodes selected by //b[ (not an XPath expression): expected \"\", got \"b#1 b#2\""
+    },
+    "XPathStepTests.ParentStep_AfterChildSteps_SelectsTheParent": {
+      "fails": "1 of 1 checks failed: XPath /catalog/book/title/.. on <catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>: expected \"book#1 book#2\", got \"\""
+    },
+    "XPathStepTests.ParentStep_AfterDescendantStep_SelectsTheParents": {
+      "fails": "1 of 1 checks failed: XPath //title/.. on <catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>: expected \"book#1 book#2\", got \"\""
+    },
+    "XPathStepTests.ParentStep_Twice_SelectsTheGrandparent": {
+      "fails": "1 of 1 checks failed: XPath /catalog/book[@id='2']/title/../.. on <catalog><book id='1'><title id='t1'>Dune</title></book><book id='2'><title id='t2'>Emma</title></book></catalog>: expected \"catalog#\", got \"\""
+    },
+    "XPathStepTests.Axes_Ancestor_SelectsTheAncestors": {
+      "fails": "1 of 1 checks failed: XPath /a/b/ancestor::a on <a id='outer'><b id='b'><a id='inner'></a></b></a>: expected \"a#outer\", got \"a#inner\""
+    },
+    "XPathStepTests.Axes_AncestorOrSelf_SelectsTheNodeAndItsAncestors": {
+      "fails": "1 of 1 checks failed: XPath /a/b/ancestor-or-self::* on <a id='outer'><b id='b'><a id='inner'></a></b></a>: expected \"a#outer b#b\", got \"a#inner\""
+    },
+    "XPathStepTests.Axes_FollowingSibling_SelectsTheLaterSiblings": {
+      "fails": "1 of 1 checks failed: XPath /r/a/following-sibling::b on <r id='r'><a id='a'><b id='child'></b></a><b id='sibling'></b></r>: expected \"b#sibling\", got \"b#child\""
+    },
+    "XPathStepTests.Axes_PrecedingSibling_SelectsTheEarlierSiblings": {
+      "fails": "1 of 1 checks failed: XPath /r/b/preceding-sibling::a on <r id='r'><a id='a'><b id='child'></b></a><b id='sibling'></b></r>: expected \"a#a\", got \"\""
+    },
+    "XPathStepTests.Axes_DescendantOrSelf_SelectsTheNodeAndItsDescendants": {
+      "fails": "1 of 1 checks failed: XPath /r/a/descendant-or-self::* on <r id='r'><a id='a'><b id='child'></b></a><b id='sibling'></b></r>: expected \"a#a b#child\", got \"b#child\""
+    },
+    "XPathStepTests.Axes_Following_SelectsTheNodesAfterTheSubtree": {
+      "fails": "1 of 1 checks failed: XPath /r/a/following::* on <r id='r'><a id='a'><b id='child'></b></a><b id='sibling'></b></r>: expected \"b#sibling\", got \"b#child\""
+    },
+    "XPathStepTests.Slashes_TripleSlash_SelectsNothing": {
+      "fails": "1 of 1 checks failed: the nodes selected by /catalog///book (not an XPath expression): expected \"\", got \"catalog#\""
+    }
+  }
+}
diff --git a/test/package-tests/TwinTimerLib/Sources/DeliveryTests.twin b/test/package-tests/TwinTimerLib/Sources/DeliveryTests.twin
new file mode 100644
index 00000000..c0ca8e5d
--- /dev/null
+++ b/test/package-tests/TwinTimerLib/Sources/DeliveryTests.twin
@@ -0,0 +1,47 @@
+' TwinTimerLib: how the Timer event is delivered. It comes through the message pump of the thread
+' that created the timer, in the clock's step, and a pump that is blocked gets one message.
+[TestFixture]
+Module DeliveryTests
+
+    [TestCase]
+    Public Sub Timer_ShortInterval_RaisedToTenMilliseconds()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 1
+        Pump.ForMs 400
+        Expect.IsTrue s.Count >= 1, "Timer events in 400 ms with Interval 1: at least 1 (got " & s.Count & ")"
+        Expect.IsTrue s.Count <= 45, "Timer events in 400 ms with Interval 1: at most 45, as for an interval of 10 ms (got " & s.Count & ")"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Timer_NoMessagePump_RaisesNoEvents()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 20
+        Pump.BlockMs 200
+        Expect.AreEqual 0, s.Count, "Timer events while the thread does not run its message pump"
+        Pump.ForMs 100
+        Expect.IsTrue s.Count >= 1, "Timer events once the message pump runs: at least 1 (got " & s.Count & ")"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Timer_BlockedPump_DeliversOneMessage()
+        Expect.Begin
+        Dim s As New TimerSink
+        Dim before As Long
+        s.Tmr.Interval = 20
+        Expect.IsTrue Pump.UntilCount(s, 2, 1000), "two Timer events"
+        Pump.BlockMs 300
+        before = s.Count
+        DoEvents
+        Expect.IsTrue s.Count - before >= 1, "Timer events at once after a blocked message pump resumes: at least 1 (got " & (s.Count - before) & ")"
+        Expect.IsTrue s.Count - before <= 2, "Timer events at once after 300 ms of a blocked message pump with Interval 20: one message, not one for each missed period (got " & (s.Count - before) & ")"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TwinTimerLib/Sources/ElapsedTimeTests.twin b/test/package-tests/TwinTimerLib/Sources/ElapsedTimeTests.twin
new file mode 100644
index 00000000..dc6380b7
--- /dev/null
+++ b/test/package-tests/TwinTimerLib/Sources/ElapsedTimeTests.twin
@@ -0,0 +1,114 @@
+' TwinTimerLib: the ElapsedTime argument of the Timer event. The first event passes 0, one Interval
+' after the start; the next pass the milliseconds since the first. A timer is late, never early, so
+' the lower bounds are exact within the clock's step of 16 ms and the upper ones are loose.
+[TestFixture]
+Module ElapsedTimeTests
+
+    [TestCase]
+    Public Sub Timer_FirstEvent_PassesZero()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 40
+        Expect.IsTrue Pump.UntilCount(s, 1, 1000), "a first Timer event"
+        If s.Count > 0 Then Expect.AreEqual 0, s.Value(0), "ElapsedTime of the first Timer event"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Timer_FirstEvent_ComesAfterOneInterval()
+        Expect.Begin
+        Dim s As New TimerSink
+        Dim started As LongLong
+        started = Pump.Ticks()
+        s.Tmr.Interval = 300
+        Pump.ForMs 150
+        Expect.AreEqual 0, s.Count, "Timer events 150 ms after the start, with Interval 300"
+        Expect.IsTrue Pump.UntilCount(s, 1, 1000), "a first Timer event"
+        If s.Count > 0 Then Expect.IsTrue s.At(0) - started >= 280, "the first Timer event arrives at least 280 ms after the start (arrived after " & (s.At(0) - started) & " ms)"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Timer_ElapsedTime_IsCumulative()
+        Expect.Begin
+        Dim s As New TimerSink
+        Dim k As Long
+        s.Tmr.Interval = 50
+        Expect.IsTrue Pump.UntilCount(s, 5, 2000), "five Timer events"
+        For k = 1 To s.Count - 1
+            Expect.IsTrue s.Value(k) > s.Value(k - 1), "ElapsedTime of event " & k & " is above that of the event before (" & s.Value(k) & " after " & s.Value(k - 1) & ")"
+            Expect.IsTrue s.Value(k) >= k * 50 - 20, "ElapsedTime of event " & k & " is at least " & (k * 50 - 20) & " ms (is " & s.Value(k) & ")"
+            Expect.IsTrue s.Value(k) <= k * 50 + 250, "ElapsedTime of event " & k & " is at most " & (k * 50 + 250) & " ms (is " & s.Value(k) & ")"
+        Next
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Timer_ElapsedTime_IsNotTheLastInterval()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 50
+        Expect.IsTrue Pump.UntilCount(s, 6, 2000), "six Timer events"
+        If s.Count >= 6 Then Expect.IsTrue s.Value(5) >= 5 * 50 - 20, "ElapsedTime of the sixth event is the total since the first, at least 230 ms (is " & s.Value(5) & ")"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Interval_Set_RestartsElapsedTime()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 40
+        Expect.IsTrue Pump.UntilCount(s, 3, 1000), "three Timer events"
+        s.Clear
+        s.Tmr.Interval = 60
+        Expect.IsTrue Pump.UntilCount(s, 1, 1000), "a Timer event after Interval is set again"
+        If s.Count > 0 Then Expect.AreEqual 0, s.Value(0), "ElapsedTime of the first event after Interval is set again"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_Set_RestartsElapsedTime()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 40
+        Expect.IsTrue Pump.UntilCount(s, 3, 1000), "three Timer events"
+        s.Tmr.Enabled = False
+        s.Tmr.Enabled = True
+        s.Clear
+        Expect.IsTrue Pump.UntilCount(s, 1, 1000), "a Timer event after Enabled is set to False and True"
+        If s.Count > 0 Then Expect.AreEqual 0, s.Value(0), "ElapsedTime of the first event after Enabled is set to False and True"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Timer_TwoTimers_KeepSeparateElapsedTimes()
+        Expect.Begin
+        Dim a As New TimerSink
+        Dim b As New TimerSink
+        Dim k As Long
+        a.Tmr.Interval = 40
+        b.Tmr.Interval = 100
+        Pump.ForMs 700
+        Expect.IsTrue a.Count >= 5, "Timer events of the 40 ms timer in 700 ms: at least 5 (got " & a.Count & ")"
+        Expect.IsTrue b.Count >= 3, "Timer events of the 100 ms timer in 700 ms: at least 3 (got " & b.Count & ")"
+        If a.Count > 0 Then Expect.AreEqual 0, a.Value(0), "ElapsedTime of the first event of the 40 ms timer"
+        If b.Count > 0 Then Expect.AreEqual 0, b.Value(0), "ElapsedTime of the first event of the 100 ms timer"
+        For k = 1 To a.Count - 1
+            If k > 20 Then Exit For
+            Expect.IsTrue a.Value(k) >= k * 40 - 20 And a.Value(k) <= k * 40 + 250, "ElapsedTime of event " & k & " of the 40 ms timer, with another timer running, is between " & (k * 40 - 20) & " and " & (k * 40 + 250) & " ms (is " & a.Value(k) & ")"
+        Next
+        For k = 1 To b.Count - 1
+            Expect.IsTrue b.Value(k) >= k * 100 - 20 And b.Value(k) <= k * 100 + 250, "ElapsedTime of event " & k & " of the 100 ms timer, with another timer running, is between " & (k * 100 - 20) & " and " & (k * 100 + 250) & " ms (is " & b.Value(k) & ")"
+        Next
+        a.Shutdown
+        b.Shutdown
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TwinTimerLib/Sources/PropertyTests.twin b/test/package-tests/TwinTimerLib/Sources/PropertyTests.twin
new file mode 100644
index 00000000..d451eb78
--- /dev/null
+++ b/test/package-tests/TwinTimerLib/Sources/PropertyTests.twin
@@ -0,0 +1,168 @@
+' TwinTimerLib: the defaults of a new TwinTimer, Enabled and Interval, and what setting each does.
+[TestFixture]
+Module PropertyTests
+
+    [TestCase]
+    Public Sub Enabled_DefaultsToTrue()
+        Expect.Begin
+        Dim t As New TwinTimer
+        Expect.IsTrue t.Enabled, "Enabled of a new TwinTimer"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Interval_DefaultsToZero()
+        Expect.Begin
+        Dim t As New TwinTimer
+        Expect.AreEqual 0, t.Interval, "Interval of a new TwinTimer"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewTimer_ZeroInterval_RaisesNoEvents()
+        Expect.Begin
+        Dim s As New TimerSink
+        Pump.ForMs 150
+        Expect.AreEqual 0, s.Count, "Timer events from a new TwinTimer whose Interval is 0, after 150 ms"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_IsTheDefaultMember()
+        Expect.Begin
+        Dim t As New TwinTimer
+        Dim b As Boolean
+        t = False
+        Expect.IsFalse t.Enabled, "Enabled after the assignment t = False"
+        t = True
+        b = t
+        Expect.IsTrue b, "the value of t read as a Boolean, after t = True"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_RoundTrip()
+        Expect.Begin
+        Dim t As New TwinTimer
+        t.Enabled = False
+        Expect.IsFalse t.Enabled, "Enabled after it is set to False"
+        t.Enabled = True
+        Expect.IsTrue t.Enabled, "Enabled after it is set to True"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Interval_RoundTrip()
+        Expect.Begin
+        Dim t As New TwinTimer
+        t.Interval = 250
+        Expect.AreEqual 250, t.Interval, "Interval after it is set to 250"
+        t.Interval = 0
+        Expect.AreEqual 0, t.Interval, "Interval after it is set to 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Interval_Negative_Raises380()
+        Expect.Begin
+        Dim t As New TwinTimer
+        t.Interval = 40
+        On Error Resume Next
+        t.Interval = -1
+        Expect.AreEqual 380, Err.Number, "run-time error raised by setting Interval to -1"
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual 40, t.Interval, "Interval after setting it to -1 was refused"
+        t.Interval = 0
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Interval_Zero_KeepsEnabled()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 30
+        s.Tmr.Interval = 0
+        Expect.IsTrue s.Tmr.Enabled, "Enabled after Interval is set to 0"
+        s.Clear
+        Pump.ForMs 150
+        Expect.AreEqual 0, s.Count, "Timer events in 150 ms after Interval is set to 0"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Interval_SetWhileDisabled_DoesNotStart()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Enabled = False
+        s.Tmr.Interval = 30
+        Pump.ForMs 200
+        Expect.AreEqual 0, s.Count, "Timer events in 200 ms when Interval is set while Enabled is False"
+        s.Tmr.Enabled = True
+        Expect.IsTrue Pump.UntilCount(s, 1, 1000), "a Timer event after Enabled is set to True"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Interval_SetPositive_StartsTimer()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 30
+        Expect.IsTrue Pump.UntilCount(s, 3, 1000), "three Timer events after Interval is set to 30"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_False_RaisesNoEvents()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 30
+        s.Tmr.Enabled = False
+        Pump.ForMs 200
+        Expect.AreEqual 0, s.Count, "Timer events in 200 ms when Enabled is False"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_FalseThenTrue_RestartsTimer()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Interval = 30
+        s.Tmr.Enabled = False
+        s.Tmr.Enabled = True
+        Expect.IsTrue Pump.UntilCount(s, 2, 1000), "two Timer events after Enabled is set to False and back to True"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_True_WithZeroInterval_DoesNotStart()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.Tmr.Enabled = False
+        s.Tmr.Enabled = True
+        Pump.ForMs 150
+        Expect.AreEqual 0, s.Count, "Timer events in 150 ms when Enabled is set to True and Interval is 0"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_FalseInHandler_StopsTimer()
+        Expect.Begin
+        Dim s As New TimerSink
+        s.StopAt = 2
+        s.Tmr.Interval = 30
+        Expect.IsTrue Pump.UntilCount(s, 2, 1000), "two Timer events"
+        Pump.ForMs 200
+        Expect.AreEqual 2, s.Count, "Timer events after the handler of the second sets Enabled to False"
+        s.Shutdown
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/TwinTimerLib/Sources/Pump.twin b/test/package-tests/TwinTimerLib/Sources/Pump.twin
new file mode 100644
index 00000000..4c5eda86
--- /dev/null
+++ b/test/package-tests/TwinTimerLib/Sources/Pump.twin
@@ -0,0 +1,38 @@
+' Pump: waits for a bounded time while the thread's message pump runs, which is what delivers a
+' TwinTimer's Timer events, and a wait with no pump. No wait is longer than the limit it is given.
+Module Pump
+
+    Private Declare PtrSafe Function GetTickCount64 Lib "kernel32" () As LongLong
+    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
+
+    Public Function Ticks() As LongLong
+        Ticks = GetTickCount64()
+    End Function
+
+    ' Runs the message pump for Milliseconds.
+    Public Sub ForMs(ByVal Milliseconds As Long)
+        Dim limit As LongLong
+        limit = GetTickCount64() + Milliseconds
+        Do While GetTickCount64() < limit
+            DoEvents
+            Sleep 1
+        Loop
+    End Sub
+
+    ' Runs the message pump until the sink has Count events, for at most MaxMs. True when it has.
+    Public Function UntilCount(ByVal Sink As TimerSink, ByVal Count As Long, ByVal MaxMs As Long) As Boolean
+        Dim limit As LongLong
+        limit = GetTickCount64() + MaxMs
+        Do While Sink.Count < Count And GetTickCount64() < limit
+            DoEvents
+            Sleep 1
+        Loop
+        UntilCount = (Sink.Count >= Count)
+    End Function
+
+    ' Holds the thread for Milliseconds without running the message pump.
+    Public Sub BlockMs(ByVal Milliseconds As Long)
+        Sleep Milliseconds
+    End Sub
+
+End Module
diff --git a/test/package-tests/TwinTimerLib/Sources/RunAll.twin b/test/package-tests/TwinTimerLib/Sources/RunAll.twin
new file mode 100644
index 00000000..18dae330
--- /dev/null
+++ b/test/package-tests/TwinTimerLib/Sources/RunAll.twin
@@ -0,0 +1,110 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package TwinTimerLib, version 1.0.7.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "TwinTimerLib 1.0.7.0: 24 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        DeliveryTests.Timer_ShortInterval_RaisedToTenMilliseconds
+        Expect.EndCase "DeliveryTests.Timer_ShortInterval_RaisedToTenMilliseconds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DeliveryTests.Timer_NoMessagePump_RaisesNoEvents
+        Expect.EndCase "DeliveryTests.Timer_NoMessagePump_RaisesNoEvents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DeliveryTests.Timer_BlockedPump_DeliversOneMessage
+        Expect.EndCase "DeliveryTests.Timer_BlockedPump_DeliversOneMessage", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ElapsedTimeTests.Timer_FirstEvent_PassesZero
+        Expect.EndCase "ElapsedTimeTests.Timer_FirstEvent_PassesZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ElapsedTimeTests.Timer_FirstEvent_ComesAfterOneInterval
+        Expect.EndCase "ElapsedTimeTests.Timer_FirstEvent_ComesAfterOneInterval", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ElapsedTimeTests.Timer_ElapsedTime_IsCumulative
+        Expect.EndCase "ElapsedTimeTests.Timer_ElapsedTime_IsCumulative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ElapsedTimeTests.Timer_ElapsedTime_IsNotTheLastInterval
+        Expect.EndCase "ElapsedTimeTests.Timer_ElapsedTime_IsNotTheLastInterval", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ElapsedTimeTests.Interval_Set_RestartsElapsedTime
+        Expect.EndCase "ElapsedTimeTests.Interval_Set_RestartsElapsedTime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ElapsedTimeTests.Enabled_Set_RestartsElapsedTime
+        Expect.EndCase "ElapsedTimeTests.Enabled_Set_RestartsElapsedTime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ElapsedTimeTests.Timer_TwoTimers_KeepSeparateElapsedTimes
+        Expect.EndCase "ElapsedTimeTests.Timer_TwoTimers_KeepSeparateElapsedTimes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Enabled_DefaultsToTrue
+        Expect.EndCase "PropertyTests.Enabled_DefaultsToTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Interval_DefaultsToZero
+        Expect.EndCase "PropertyTests.Interval_DefaultsToZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.NewTimer_ZeroInterval_RaisesNoEvents
+        Expect.EndCase "PropertyTests.NewTimer_ZeroInterval_RaisesNoEvents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Enabled_IsTheDefaultMember
+        Expect.EndCase "PropertyTests.Enabled_IsTheDefaultMember", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Enabled_RoundTrip
+        Expect.EndCase "PropertyTests.Enabled_RoundTrip", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Interval_RoundTrip
+        Expect.EndCase "PropertyTests.Interval_RoundTrip", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Interval_Negative_Raises380
+        Expect.EndCase "PropertyTests.Interval_Negative_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Interval_Zero_KeepsEnabled
+        Expect.EndCase "PropertyTests.Interval_Zero_KeepsEnabled", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Interval_SetWhileDisabled_DoesNotStart
+        Expect.EndCase "PropertyTests.Interval_SetWhileDisabled_DoesNotStart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Interval_SetPositive_StartsTimer
+        Expect.EndCase "PropertyTests.Interval_SetPositive_StartsTimer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Enabled_False_RaisesNoEvents
+        Expect.EndCase "PropertyTests.Enabled_False_RaisesNoEvents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Enabled_FalseThenTrue_RestartsTimer
+        Expect.EndCase "PropertyTests.Enabled_FalseThenTrue_RestartsTimer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Enabled_True_WithZeroInterval_DoesNotStart
+        Expect.EndCase "PropertyTests.Enabled_True_WithZeroInterval_DoesNotStart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Enabled_FalseInHandler_StopsTimer
+        Expect.EndCase "PropertyTests.Enabled_FalseInHandler_StopsTimer", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/TwinTimerLib/Sources/TimerSink.twin b/test/package-tests/TwinTimerLib/Sources/TimerSink.twin
new file mode 100644
index 00000000..544acb2a
--- /dev/null
+++ b/test/package-tests/TwinTimerLib/Sources/TimerSink.twin
@@ -0,0 +1,60 @@
+' TimerSink: a TwinTimer of TwinTimerLib and the Timer events it raised, for the test cases.
+'
+' Tmr is the timer. Count is the number of events so far, Value(i) the ElapsedTime the i-th event
+' (from 0) passed, and At(i) the tick count at which it arrived. StopAt, when above 0, sets
+' Tmr.Enabled to False inside the handler of that event. Shutdown ends the timer; every case calls
+' it before it ends, so no timer is left running.
+Class TimerSink
+
+    Private WithEvents mTimer As TwinTimer
+    Private mValues(0 To 255) As LongLong
+    Private mAt(0 To 255) As LongLong
+    Private mCount As Long
+    Public StopAt As Long
+
+    Private Declare PtrSafe Function GetTickCount64 Lib "kernel32" () As LongLong
+
+    Private Sub Class_Initialize()
+        Set mTimer = New TwinTimer
+    End Sub
+
+    Public Property Get Tmr() As TwinTimer
+        Set Tmr = mTimer
+    End Property
+
+    Public Property Get Count() As Long
+        Count = mCount
+    End Property
+
+    Public Function Value(ByVal Index As Long) As LongLong
+        Value = mValues(Index)
+    End Function
+
+    Public Function At(ByVal Index As Long) As LongLong
+        At = mAt(Index)
+    End Function
+
+    ' Forgets the events so far.
+    Public Sub Clear()
+        mCount = 0
+    End Sub
+
+    Public Sub Shutdown()
+        If Not mTimer Is Nothing Then
+            mTimer.Enabled = False
+            Set mTimer = Nothing
+        End If
+    End Sub
+
+    Private Sub mTimer_Timer(ByVal ElapsedTime As LongLong)
+        If mCount <= 255 Then
+            mValues(mCount) = ElapsedTime
+            mAt(mCount) = GetTickCount64()
+        End If
+        mCount = mCount + 1
+        If StopAt > 0 Then
+            If mCount >= StopAt Then mTimer.Enabled = False
+        End If
+    End Sub
+
+End Class
diff --git a/test/package-tests/TwinTimerLib/expect.json b/test/package-tests/TwinTimerLib/expect.json
new file mode 100644
index 00000000..77558e34
--- /dev/null
+++ b/test/package-tests/TwinTimerLib/expect.json
@@ -0,0 +1,4 @@
+{
+  "version": "1.0.7.0",
+  "cases": {}
+}
diff --git a/test/package-tests/VBA_JSON/Sources/ConvertToJsonTests.twin b/test/package-tests/VBA_JSON/Sources/ConvertToJsonTests.twin
new file mode 100644
index 00000000..d0b27f8b
--- /dev/null
+++ b/test/package-tests/VBA_JSON/Sources/ConvertToJsonTests.twin
@@ -0,0 +1,458 @@
+' VBA_JSON: ConvertToJson. The text it should write is JSON as RFC 8259 defines it. JsonOptions are
+' at their defaults in every case. Dates are checked in DatesTests.
+[TestFixture]
+Module ConvertToJsonTests
+
+    Private Function Q(ByVal s As String) As String
+        Q = """" & s & """"
+    End Function
+
+    [TestCase]
+    Public Sub Scalars_NullAndBooleans()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual "null", Helpers.TryConvert(Null), "ConvertToJson(Null)"
+        Expect.AreEqual "true", Helpers.TryConvert(True), "ConvertToJson(True)"
+        Expect.AreEqual "false", Helpers.TryConvert(False), "ConvertToJson(False)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Scalars_Numbers()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual "5", Helpers.TryConvert(CInt(5)), "ConvertToJson of an Integer"
+        Expect.AreEqual "-70000", Helpers.TryConvert(CLng(-70000)), "ConvertToJson of a Long"
+        Expect.AreEqual "1.5", Helpers.TryConvert(CSng(1.5)), "ConvertToJson of a Single"
+        Expect.AreEqual "2.5", Helpers.TryConvert(2.5), "ConvertToJson of a Double"
+        Expect.AreEqual "19.99", Helpers.TryConvert(CCur(19.99)), "ConvertToJson of a Currency"
+        Expect.AreEqual "3.25", Helpers.TryConvert(CDec(3.25)), "ConvertToJson of a Decimal"
+        Expect.AreEqual "-0.5", Helpers.TryConvert(-0.5), "ConvertToJson of a negative Double"
+        Expect.AreEqual "0", Helpers.TryConvert(0), "ConvertToJson of 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Scalars_DoubleOfLargeMagnitude_IsAJsonNumber()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual "1E+20", Helpers.TryConvert(1E+20), "ConvertToJson(1E+20)"
+        Expect.AreEqual "1.5E-20", Helpers.TryConvert(1.5E-20), "ConvertToJson(1.5E-20)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Scalars_Double_IsWrittenWith15SignificantDigits()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual "0.333333333333333", Helpers.TryConvert(1 / 3), "ConvertToJson(1 / 3)"
+        Expect.AreEqual "0.666666666666667", Helpers.TryConvert(2 / 3), "ConvertToJson(2 / 3)"
+        Expect.AreEqual "0.3", Helpers.TryConvert(0.1 + 0.2), "ConvertToJson(0.1 + 0.2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Scalars_EmptyAndNothing_GiveAnEmptyString()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual "", Helpers.TryConvert(Empty), "ConvertToJson(Empty)"
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ConvertToJson(Empty)"
+        Expect.AreEqual "", Helpers.TryConvert(Nothing), "ConvertToJson(Nothing)"
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ConvertToJson(Nothing)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Scalars_String_IsQuoted()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual Q("hello"), Helpers.TryConvert("hello"), "ConvertToJson(""hello"")"
+        Expect.AreEqual Q(""), Helpers.TryConvert(""), "ConvertToJson of an empty string"
+        Expect.AreEqual Q("it's a space"), Helpers.TryConvert("it's a space"), "ConvertToJson of a string with a quote and a space"
+        Expect.Done
+    End Sub
+
+    ' ---- strings
+
+    [TestCase]
+    Public Sub String_QuoteBackslashAndControlCharacters_AreEscaped()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual Q("a\""b"), Helpers.TryConvert("a""b"), "quote"
+        Expect.AreEqual Q("a\\b"), Helpers.TryConvert("a\b"), "backslash"
+        Expect.AreEqual Q("\r\n\t\b\f"), Helpers.TryConvert(vbCr & vbLf & vbTab & vbBack & vbFormFeed), "CR, LF, tab, backspace and form feed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub String_OtherControlCharacters_AreEscapedAsUnicode()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual Q(Helpers.U("0001") & Helpers.U("001F")), Helpers.TryConvert(Chr$(1) & Chr$(31)), "characters 1 and 31"
+        Expect.AreEqual Q(Helpers.U("0000")), Helpers.TryConvert(ChrW(0)), "character 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub String_NonAsciiCharacters_AreEscapedAsUnicode()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual Q(Helpers.U("00E9")), Helpers.TryConvert(ChrW(233)), "e acute"
+        Expect.AreEqual Q(Helpers.U("20AC")), Helpers.TryConvert(ChrW(&H20AC)), "euro sign"
+        Expect.AreEqual Q(Helpers.U("D83D") & Helpers.U("DE00")), Helpers.TryConvert(ChrW(&HD83D) & ChrW(&HDE00)), "a character outside the BMP, as a surrogate pair"
+        Expect.AreEqual Q(Helpers.U("007F")), Helpers.TryConvert(Chr$(127)), "character 127"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub String_Solidus_IsNotEscapedByDefault()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual Q("a/b"), Helpers.TryConvert("a/b"), "ConvertToJson(""a/b"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub String_OfDigitsOnly_16To100Characters_IsWrittenWithoutQuotes()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual "1234567890123456", Helpers.TryConvert("1234567890123456"), "16 digits"
+        Expect.AreEqual "12345678901234.56", Helpers.TryConvert("12345678901234.56"), "16 digits and a period"
+        Expect.AreEqual "123456789012e456", Helpers.TryConvert("123456789012e456"), "digits and a lower case e"
+        Expect.AreEqual String$(100, "7"), Helpers.TryConvert(String$(100, "7")), "100 digits"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub String_ThatIsShorterLongerOrHoldsOtherCharacters_IsQuoted()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual Q("123456789012345"), Helpers.TryConvert("123456789012345"), "15 digits"
+        Expect.AreEqual Q(String$(101, "7")), Helpers.TryConvert(String$(101, "7")), "101 digits"
+        Expect.AreEqual Q("1234567890123456x"), Helpers.TryConvert("1234567890123456x"), "16 digits and a letter"
+        Expect.AreEqual Q("-1234567890123456"), Helpers.TryConvert("-1234567890123456"), "16 digits and a minus sign"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub String_ThatIsNotANumber_IsQuoted()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual Q("EEEEEEEEEEEEEEEE"), Helpers.TryConvert("EEEEEEEEEEEEEEEE"), "16 letters E"
+        Expect.AreEqual Q("................"), Helpers.TryConvert("................"), "16 periods"
+        Expect.AreEqual Q("0000123456789012"), Helpers.TryConvert("0000123456789012"), "16 digits with leading zeros (not a JSON number)"
+        Expect.Done
+    End Sub
+
+    ' ---- objects
+
+    [TestCase]
+    Public Sub Dictionary_IsAnObject()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim d As New Dictionary
+        d("name") = "Alice"
+        d("age") = 30
+        d("active") = True
+        Expect.AreEqual "{""name"":""Alice"",""age"":30,""active"":true}", Helpers.TryConvert(d), "ConvertToJson of a Dictionary"
+        Expect.AreEqual "{}", Helpers.TryConvert(New Dictionary), "ConvertToJson of an empty Dictionary"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Dictionary_Key_IsWrittenExactlyAsStored()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim d As New Dictionary
+        d(ChrW(233) & " /x") = 1
+        Expect.AreEqual "{""" & ChrW(233) & " /x"":1}", Helpers.TryConvert(d), "a key with a non-ASCII character, a space and a solidus"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Dictionary_KeyWithAQuote_IsEscaped()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim d As New Dictionary
+        d("a""b") = 1
+        Expect.AreEqual "{""a\""b"":1}", Helpers.TryConvert(d), "ConvertToJson of a key a""b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Dictionary_KeyWithABackslash_IsEscaped()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim d As New Dictionary
+        d("a\b") = 1
+        Expect.AreEqual "{""a\\b"":1}", Helpers.TryConvert(d), "ConvertToJson of a key a\b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Dictionary_KeyWithALineFeed_IsEscaped()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim d As New Dictionary
+        d("a" & vbLf & "b") = 1
+        Expect.AreEqual "{""a\nb"":1}", Helpers.TryConvert(d), "ConvertToJson of a key with a line feed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Dictionary_ValueThatIsEmptyOrNothing_OmitsTheKey()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim d As New Dictionary
+        d("a") = 1
+        d("e") = Empty
+        Set d("n") = Nothing
+        d("z") = Null
+        Expect.AreEqual "{""a"":1,""z"":null}", Helpers.TryConvert(d), "ConvertToJson of a Dictionary with Empty and Nothing values"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Dictionary_NestedObjectsAndCollections()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim tags As New Collection
+        tags.Add "twinBASIC"
+        tags.Add "JSON"
+        Dim inner As New Dictionary
+        inner("x") = 1
+        Dim d As New Dictionary
+        Set d("tags") = tags
+        Set d("inner") = inner
+        d("revision") = Null
+        Expect.AreEqual "{""tags"":[""twinBASIC"",""JSON""],""inner"":{""x"":1},""revision"":null}", Helpers.TryConvert(d), "ConvertToJson of nested values"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OtherObjects_GiveAnEmptyString()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim fso As Object
+        Set fso = CreateObject("Scripting.FileSystemObject")
+        Expect.AreEqual "", Helpers.TryConvert(fso), "ConvertToJson of a FileSystemObject"
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ConvertToJson on a FileSystemObject"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ObjectNamedDictionary_IsAnObject()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim sd As Object
+        Set sd = CreateObject("Scripting.Dictionary")
+        sd("a") = 1
+        sd("b") = "x"
+        Expect.AreEqual "{""a"":1,""b"":""x""}", Helpers.TryConvert(sd), "ConvertToJson of a Scripting.Dictionary (TypeName Dictionary)"
+        Expect.Done
+    End Sub
+
+    ' ---- arrays and collections
+
+    [TestCase]
+    Public Sub Collection_IsAnArray()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim c As New Collection
+        c.Add 1
+        c.Add "two"
+        c.Add True
+        c.Add Null
+        Expect.AreEqual "[1,""two"",true,null]", Helpers.TryConvert(c), "ConvertToJson of a Collection"
+        Expect.AreEqual "[]", Helpers.TryConvert(New Collection), "ConvertToJson of an empty Collection"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Collection_ItemThatIsEmptyOrNothing_IsNull()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim c As New Collection
+        c.Add 1
+        c.Add Empty
+        c.Add Nothing
+        Expect.AreEqual "[1,null,null]", Helpers.TryConvert(c), "ConvertToJson of a Collection holding Empty and Nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Array_OneDimension()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual "[1,""x"",true]", Helpers.TryConvert(Array(1, "x", True)), "ConvertToJson(Array(1, ""x"", True))"
+        Expect.AreEqual "[]", Helpers.TryConvert(Array()), "ConvertToJson(Array())"
+        Dim a(1 To 2) As Long
+        a(1) = 7
+        a(2) = 8
+        Expect.AreEqual "[7,8]", Helpers.TryConvert(a), "ConvertToJson of an array whose lower bound is 1"
+        Dim s(0 To 1) As String
+        s(0) = "p"
+        s(1) = "q"
+        Expect.AreEqual "[""p"",""q""]", Helpers.TryConvert(s), "ConvertToJson of a String array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Array_ElementThatIsEmptyOrNothing_IsNull()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual "[1,null,null]", Helpers.TryConvert(Array(1, Empty, Nothing)), "ConvertToJson(Array(1, Empty, Nothing))"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Array_TwoDimensions_IsAnArrayOfArrays()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim a(0 To 1, 0 To 2) As Long
+        a(0, 0) = 1: a(0, 1) = 2: a(0, 2) = 3
+        a(1, 0) = 4: a(1, 1) = 5: a(1, 2) = 6
+        Expect.AreEqual "[[1,2,3],[4,5,6]]", Helpers.TryConvert(a), "ConvertToJson of a 2 x 3 array"
+        Dim b(1 To 2, 1 To 2) As String
+        b(1, 1) = "a": b(1, 2) = "b": b(2, 1) = "c": b(2, 2) = "d"
+        Expect.AreEqual "[[""a"",""b""],[""c"",""d""]]", Helpers.TryConvert(b), "ConvertToJson of a 2 x 2 array whose bounds start at 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Array_LowerBoundBelowZero_IsWritten()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim a(-1 To 1) As Long
+        a(-1) = 4: a(0) = 5: a(1) = 6
+        Expect.AreEqual "[4,5,6]", Helpers.TryConvert(a), "ConvertToJson of an array from -1 to 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Array_TwoDimensions_SecondLowerBoundBelowZero_IsWritten()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim a(0 To 1, -1 To 0) As Long
+        a(0, -1) = 1: a(0, 0) = 2: a(1, -1) = 3: a(1, 0) = 4
+        Expect.AreEqual "[[1,2],[3,4]]", Helpers.TryConvert(a), "ConvertToJson of an array (0 To 1, -1 To 0)"
+        Expect.Done
+    End Sub
+
+    ' ---- pretty-printing
+
+    [TestCase]
+    Public Sub Whitespace_Omitted_IsCompact()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim d As New Dictionary
+        d("a") = 1
+        Dim c As New Collection
+        c.Add 1
+        c.Add 2
+        Set d("b") = c
+        Expect.AreEqual "{""a"":1,""b"":[1,2]}", ConvertToJson(d), "ConvertToJson with no Whitespace"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Whitespace_Integer_IndentsEachLevelByThatManySpaces()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim person As New Dictionary
+        person("name") = "Alice"
+        person("age") = 30
+        person("active") = True
+        Dim want As String
+        want = "{" & vbNewLine & "  ""name"": ""Alice""," & vbNewLine & "  ""age"": 30," & vbNewLine & "  ""active"": true" & vbNewLine & "}"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(person, 2)), "ConvertToJson(person, 2)"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(person, Whitespace:=2)), "ConvertToJson(person, Whitespace:=2)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Whitespace_Integer_NestedCollectionAndNull()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim tags As New Collection
+        tags.Add "twinBASIC"
+        tags.Add "JSON"
+        Dim doc As New Dictionary
+        doc("title") = "Getting Started"
+        Set doc("tags") = tags
+        doc("revision") = Null
+        Dim want As String
+        want = "{" & vbNewLine & _
+               "    ""title"": ""Getting Started""," & vbNewLine & _
+               "    ""tags"": [" & vbNewLine & _
+               "        ""twinBASIC""," & vbNewLine & _
+               "        ""JSON""" & vbNewLine & _
+               "    ]," & vbNewLine & _
+               "    ""revision"": null" & vbNewLine & _
+               "}"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(doc, 4)), "ConvertToJson(doc, 4)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Whitespace_String_RepeatsItsFirstCharacterOncePerLevel()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim inner As New Dictionary
+        inner("x") = 1
+        Dim d As New Dictionary
+        Set d("o") = inner
+        Dim want As String
+        want = "{" & vbNewLine & vbTab & """o"": {" & vbNewLine & vbTab & vbTab & """x"": 1" & vbNewLine & vbTab & "}" & vbNewLine & "}"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(d, vbTab)), "ConvertToJson(d, vbTab)"
+        want = "{" & vbNewLine & " ""o"": {" & vbNewLine & "  ""x"": 1" & vbNewLine & " }" & vbNewLine & "}"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(d, "  ")), "ConvertToJson(d, two spaces): one space per level"
+        want = "{" & vbNewLine & "a""o"": {" & vbNewLine & "aa""x"": 1" & vbNewLine & "a}" & vbNewLine & "}"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(d, "ab")), "ConvertToJson(d, ""ab""): only the first character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Whitespace_Arrays_AreIndentedLikeCollections()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim d As New Dictionary
+        d("a") = Array(1, 2)
+        Dim want As String
+        want = "{" & vbNewLine & "  ""a"": [" & vbNewLine & "    1," & vbNewLine & "    2" & vbNewLine & "  ]" & vbNewLine & "}"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(d, 2)), "ConvertToJson of a Dictionary holding an array, 2 spaces"
+        Dim a(0 To 1, 0 To 1) As Long
+        a(0, 0) = 1: a(0, 1) = 2: a(1, 0) = 3: a(1, 1) = 4
+        want = "[" & vbNewLine & "  [" & vbNewLine & "    1," & vbNewLine & "    2" & vbNewLine & "  ]," & vbNewLine & "  [" & vbNewLine & "    3," & vbNewLine & "    4" & vbNewLine & "  ]" & vbNewLine & "]"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(a, 2)), "ConvertToJson of a 2 x 2 array, 2 spaces"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Whitespace_AfterUpdatingAKey_ShowsTheKeyLast()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim data As Object
+        Set data = ParseJson("{""product"":""Widget"",""price"":9.99,""tags"":[""new"",""sale""]}")
+        data("price") = 12.5
+        Dim want As String
+        want = "{" & vbNewLine & "  ""product"": ""Widget""," & vbNewLine & "  ""tags"": [" & vbNewLine & "    ""new""," & vbNewLine & "    ""sale""" & vbNewLine & "  ]," & vbNewLine & "  ""price"": 12.5" & vbNewLine & "}"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(ConvertToJson(data, 2)), "ConvertToJson of the parsed product after its price was set"
+        Expect.Done
+    End Sub
+
+    ' ---- the pair
+
+    [TestCase]
+    Public Sub RoundTrip_ParseThenConvert_GivesTheSameText()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim text As String
+        text = "{""a"":1.5,""b"":[true,false,null,""x\ty"",{""c"":""" & Helpers.U("00E9") & """}],""d"":{}}"
+        Dim r As Object
+        Set r = Helpers.TryParse(text)
+        Expect.AreEqual text, Helpers.TryConvert(r), "ConvertToJson(ParseJson(text))"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBA_JSON/Sources/DatesTests.twin b/test/package-tests/VBA_JSON/Sources/DatesTests.twin
new file mode 100644
index 00000000..c335d082
--- /dev/null
+++ b/test/package-tests/VBA_JSON/Sources/DatesTests.twin
@@ -0,0 +1,321 @@
+' VBA_JSON: ParseUtc, ConvertToUtc, ParseIso, ConvertToIso and the dates of ConvertToJson. What a case
+' expects comes from Windows itself (Helpers.UtcOf and Helpers.LocalOf), so no case depends on the
+' machine's time zone or regional settings. The dates are in June and January, away from a change of
+' the clocks.
+[TestFixture]
+Module DatesTests
+
+    ' ---- ConvertToUtc and ParseUtc
+
+    [TestCase]
+    Public Sub ConvertToUtc_AppliesTheZoneRulesInForceOnThatDate()
+        Expect.Begin
+        Helpers.SameSecond Helpers.UtcOf(Helpers.Summer), ConvertToUtc(Helpers.Summer), "ConvertToUtc of a June morning"
+        Helpers.SameSecond Helpers.UtcOf(Helpers.Winter), ConvertToUtc(Helpers.Winter), "ConvertToUtc of a January morning"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseUtc_AppliesTheZoneRulesInForceOnThatDate()
+        Expect.Begin
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Summer), ParseUtc(Helpers.Summer), "ParseUtc of a June morning"
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Winter), ParseUtc(Helpers.Winter), "ParseUtc of a January morning"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConvertToUtc_AndParseUtc_AreInverses()
+        Expect.Begin
+        Helpers.SameSecond Helpers.Summer, ParseUtc(ConvertToUtc(Helpers.Summer)), "ParseUtc(ConvertToUtc(June morning))"
+        Helpers.SameSecond Helpers.Winter, ParseUtc(ConvertToUtc(Helpers.Winter)), "ParseUtc(ConvertToUtc(January morning))"
+        Helpers.SameSecond Helpers.Summer, ConvertToUtc(ParseUtc(Helpers.Summer)), "ConvertToUtc(ParseUtc(June morning))"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConvertToUtc_FractionOfASecond_IsRoundedToTheNearestSecond()
+        Expect.Begin
+        Dim down As Date = Helpers.Summer + 0.4 / 86400
+        Dim up As Date = Helpers.Summer + 0.7 / 86400
+        Helpers.SameSecond Helpers.UtcOf(Helpers.Summer), ConvertToUtc(down), "ConvertToUtc of 09:00:00.4"
+        Helpers.SameSecond Helpers.UtcOf(Helpers.Summer + TimeSerial(0, 0, 1)), ConvertToUtc(up), "ConvertToUtc of 09:00:00.7"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseUtc_FractionOfASecond_IsRoundedToTheNearestSecond()
+        Expect.Begin
+        Dim down As Date = Helpers.Summer + 0.4 / 86400
+        Dim up As Date = Helpers.Summer + 0.7 / 86400
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Summer), ParseUtc(down), "ParseUtc of 09:00:00.4"
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Summer + TimeSerial(0, 0, 1)), ParseUtc(up), "ParseUtc of 09:00:00.7"
+        Expect.Done
+    End Sub
+
+    ' The offset from UTC that Windows applies in June and in January. A date of 1850 or 1899 gets the
+    ' offset of the same month in 1900, the rules Windows applies being those of the current year.
+    Private Function OffsetToUtc(ByVal Ref As Date) As Long
+        OffsetToUtc = DateDiff("s", Ref, Helpers.UtcOf(Ref))
+    End Function
+
+    Private Function OffsetToLocal(ByVal Ref As Date) As Long
+        OffsetToLocal = DateDiff("s", Ref, Helpers.LocalOf(Ref))
+    End Function
+
+    [TestCase]
+    Public Sub ConvertToUtc_DateBefore30December1899_AppliesTheZoneRules()
+        Expect.Begin
+        Dim old As Date = CDate("1850-06-03 12:00:00")
+        Dim ref As Date = CDate("1900-06-03 12:00:00")
+        Helpers.SameSecond DateAdd("s", OffsetToUtc(ref), old), ConvertToUtc(old), "ConvertToUtc of 3 June 1850 12:00"
+        Dim old2 As Date = CDate("1899-12-29 12:00:00")
+        Dim ref2 As Date = CDate("1900-01-02 12:00:00")
+        Helpers.SameSecond DateAdd("s", OffsetToUtc(ref2), old2), ConvertToUtc(old2), "ConvertToUtc of 29 December 1899 12:00"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseUtc_DateBefore30December1899_AppliesTheZoneRules()
+        Expect.Begin
+        Dim old As Date = CDate("1850-06-03 12:00:00")
+        Dim ref As Date = CDate("1900-06-03 12:00:00")
+        Helpers.SameSecond DateAdd("s", OffsetToLocal(ref), old), ParseUtc(old), "ParseUtc of 3 June 1850 12:00"
+        Dim old2 As Date = CDate("1899-12-29 12:00:00")
+        Dim ref2 As Date = CDate("1900-01-02 12:00:00")
+        Helpers.SameSecond DateAdd("s", OffsetToLocal(ref2), old2), ParseUtc(old2), "ParseUtc of 29 December 1899 12:00"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConvertToIso_DateBefore30December1899_AppliesTheZoneRules()
+        Expect.Begin
+        Dim old As Date = CDate("1850-06-03 12:00:00")
+        Dim ref As Date = CDate("1900-06-03 12:00:00")
+        Expect.AreEqual Helpers.IsoOfUtc(DateAdd("s", OffsetToUtc(ref), old)), ConvertToIso(old), "ConvertToIso of 3 June 1850 12:00"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_DateBefore30December1899_AppliesTheZoneRules()
+        Expect.Begin
+        Dim old As Date = CDate("1850-06-03 12:00:00")
+        Dim ref As Date = CDate("1900-06-03 12:00:00")
+        Helpers.SameSecond DateAdd("s", OffsetToLocal(ref), old), ParseIso("1850-06-03T12:00:00Z"), "ParseIso of 1850-06-03T12:00:00Z"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConvertToUtc_DateBefore1601_Raises10012()
+        Expect.Begin
+        Dim x As Date
+        On Error Resume Next
+        x = ConvertToUtc(DateSerial(1500, 1, 1))
+        Expect.AreEqual 10012, Err.Number, "run-time error of ConvertToUtc(1 January 1500)"
+        Expect.AreEqual "UtcConverter.ConvertToUtc", Err.Source, "source of that error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseUtc_DateBefore1601_Raises10011()
+        Expect.Begin
+        Dim x As Date
+        On Error Resume Next
+        x = ParseUtc(DateSerial(1500, 1, 1))
+        Expect.AreEqual 10011, Err.Number, "run-time error of ParseUtc(1 January 1500)"
+        Expect.AreEqual "UtcConverter.ParseUtc", Err.Source, "source of that error"
+        Expect.Done
+    End Sub
+
+    ' ---- ConvertToIso
+
+    [TestCase]
+    Public Sub ConvertToIso_WritesTheUtcTimeAsIso8601()
+        Expect.Begin
+        Expect.AreEqual Helpers.IsoOfUtc(Helpers.UtcOf(Helpers.Summer)), ConvertToIso(Helpers.Summer), "ConvertToIso of a June morning"
+        Expect.AreEqual Helpers.IsoOfUtc(Helpers.UtcOf(Helpers.Winter)), ConvertToIso(Helpers.Winter), "ConvertToIso of a January morning"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConvertToIso_Milliseconds_AreAlwaysZero()
+        Expect.Begin
+        Dim withFraction As Date = Helpers.Summer + 0.4 / 86400
+        Expect.AreEqual Helpers.IsoOfUtc(Helpers.UtcOf(Helpers.Summer)), ConvertToIso(withFraction), "ConvertToIso of 09:00:00.4"
+        Expect.AreEqual ".000Z", Right$(ConvertToIso(Helpers.Winter), 5), "last five characters of ConvertToIso"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConvertToIso_DateBefore1601_Raises10014()
+        Expect.Begin
+        Dim s As String
+        On Error Resume Next
+        s = ConvertToIso(DateSerial(1500, 1, 1))
+        Expect.AreEqual 10014, Err.Number, "run-time error of ConvertToIso(1 January 1500)"
+        Expect.AreEqual "UtcConverter.ConvertToIso", Err.Source, "source of that error"
+        Expect.Done
+    End Sub
+
+    ' ---- ParseIso
+
+    [TestCase]
+    Public Sub ParseIso_Z_IsUtc()
+        Expect.Begin
+        Helpers.SameSecond Helpers.LocalOf(DateSerial(2024, 6, 3) + TimeSerial(14, 30, 0)), ParseIso("2024-06-03T14:30:00Z"), "ParseIso(""2024-06-03T14:30:00Z"")"
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Winter), ParseIso("2024-01-15T09:00:00Z"), "ParseIso(""2024-01-15T09:00:00Z"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_PositiveOffset_IsSubtracted()
+        Expect.Begin
+        Helpers.SameSecond Helpers.LocalOf(DateSerial(2024, 6, 3) + TimeSerial(9, 0, 0)), ParseIso("2024-06-03T14:30:00+05:30"), "ParseIso(""2024-06-03T14:30:00+05:30"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_NegativeOffset_IsAdded()
+        Expect.Begin
+        Helpers.SameSecond Helpers.LocalOf(DateSerial(2024, 6, 3) + TimeSerial(14, 0, 0)), ParseIso("2024-06-03T09:00:00-05:00"), "ParseIso(""2024-06-03T09:00:00-05:00"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_OffsetWithoutMinutes()
+        Expect.Begin
+        Helpers.SameSecond Helpers.LocalOf(DateSerial(2024, 6, 3) + TimeSerial(9, 0, 0)), ParseIso("2024-06-03T14:00:00+05"), "ParseIso(""2024-06-03T14:00:00+05"")"
+        Helpers.SameSecond Helpers.LocalOf(DateSerial(2024, 6, 3) + TimeSerial(14, 0, 0)), ParseIso("2024-06-03T09:00:00-05"), "ParseIso(""2024-06-03T09:00:00-05"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_OffsetWithoutAColon_IsHoursAndMinutes()
+        Expect.Begin
+        Helpers.SameSecond ParseIso("2024-06-03T14:30:00+05:30"), ParseIso("2024-06-03T14:30:00+0530"), "ParseIso with +0530 against +05:30"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_NoOffset_IsUtc()
+        Expect.Begin
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Summer), ParseIso("2024-06-03T09:00:00"), "ParseIso(""2024-06-03T09:00:00"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_DateOnly_IsLocalMidnight()
+        Expect.Begin
+        Helpers.SameSecond DateSerial(2024, 6, 3), ParseIso("2024-06-03"), "ParseIso(""2024-06-03"")"
+        Helpers.SameSecond DateSerial(2024, 1, 15), ParseIso("2024-01-15"), "ParseIso(""2024-01-15"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_TimeMayOmitSecondsOrMinutes()
+        Expect.Begin
+        Helpers.SameSecond Helpers.LocalOf(DateSerial(2024, 6, 3) + TimeSerial(9, 15, 0)), ParseIso("2024-06-03T09:15Z"), "ParseIso(""2024-06-03T09:15Z"")"
+        Helpers.SameSecond Helpers.LocalOf(DateSerial(2024, 6, 3) + TimeSerial(9, 0, 0)), ParseIso("2024-06-03T09Z"), "ParseIso(""2024-06-03T09Z"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_FractionOfASecond_IsTruncated()
+        Expect.Begin
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Summer), ParseIso("2024-06-03T09:00:00.987Z"), "ParseIso(""2024-06-03T09:00:00.987Z"")"
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Summer), ParseIso("2024-06-03T09:00:00.5"), "ParseIso(""2024-06-03T09:00:00.5"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_IsTheInverseOfConvertToIso()
+        Expect.Begin
+        Helpers.SameSecond Helpers.Summer, ParseIso(ConvertToIso(Helpers.Summer)), "ParseIso(ConvertToIso(June morning))"
+        Helpers.SameSecond Helpers.Winter, ParseIso(ConvertToIso(Helpers.Winter)), "ParseIso(ConvertToIso(January morning))"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_TextThatIsNotIso8601_Raises10013()
+        Expect.Begin
+        Dim x As Date
+        On Error Resume Next
+        x = ParseIso("junk")
+        Expect.AreEqual 10013, Err.Number, "run-time error of ParseIso(""junk"")"
+        Expect.AreEqual "UtcConverter.ParseIso", Err.Source, "source of that error"
+        Expect.IsTrue InStr(Err.Description, "junk") > 0, "the message holds the string: " & Err.Description
+        Err.Clear
+        x = ParseIso("")
+        Expect.AreEqual 10013, Err.Number, "run-time error of ParseIso("""")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_BasicFormat_Raises10013()
+        Expect.Begin
+        Dim x As Date
+        On Error Resume Next
+        x = ParseIso("20240603T090000Z")
+        Expect.AreEqual 10013, Err.Number, "run-time error of ParseIso(""20240603T090000Z"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso_DateBefore1601_Raises10013()
+        Expect.Begin
+        Dim x As Date
+        On Error Resume Next
+        x = ParseIso("1500-01-01T00:00:00Z")
+        Expect.AreEqual 10013, Err.Number, "run-time error of ParseIso(""1500-01-01T00:00:00Z"")"
+        Expect.Done
+    End Sub
+
+    ' ---- dates in ConvertToJson
+
+    [TestCase]
+    Public Sub ConvertToJson_Date_IsAQuotedIsoString()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.AreEqual """" & ConvertToIso(Helpers.Summer) & """", Helpers.TryConvert(Helpers.Summer), "ConvertToJson of a June morning"
+        Expect.AreEqual """" & Helpers.IsoOfUtc(Helpers.UtcOf(Helpers.Winter)) & """", Helpers.TryConvert(Helpers.Winter), "ConvertToJson of a January morning"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConvertToJson_Date_InsideADictionaryACollectionAndAnArray()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim iso As String
+        iso = """" & Helpers.IsoOfUtc(Helpers.UtcOf(Helpers.Summer)) & """"
+        Dim d As New Dictionary
+        d("id") = 1001
+        d("placed") = Helpers.Summer
+        Expect.AreEqual "{""id"":1001,""placed"":" & iso & "}", Helpers.TryConvert(d), "a Date in a Dictionary"
+        Dim c As New Collection
+        c.Add Helpers.Summer
+        Expect.AreEqual "[" & iso & "]", Helpers.TryConvert(c), "a Date in a Collection"
+        Expect.AreEqual "[" & iso & "]", Helpers.TryConvert(Array(Helpers.Summer)), "a Date in an array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ConvertToJson_DateBefore1601_Raises10014()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim s As String
+        s = Helpers.TryConvert(DateSerial(1500, 1, 1))
+        Expect.AreEqual 10014, Helpers.LastNumber, "run-time error of ConvertToJson(1 January 1500)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseJson_DateInTheText_StaysAString()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""created_at"":""2024-06-03T09:00:00Z""}")
+        Expect.AreEqual vbString, VarType(r("created_at")), "VarType of a date in the text"
+        Helpers.SameSecond Helpers.LocalOf(Helpers.Summer), ParseIso(r("created_at")), "ParseIso of that string"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBA_JSON/Sources/DictionaryTests.twin b/test/package-tests/VBA_JSON/Sources/DictionaryTests.twin
new file mode 100644
index 00000000..0e90167f
--- /dev/null
+++ b/test/package-tests/VBA_JSON/Sources/DictionaryTests.twin
@@ -0,0 +1,234 @@
+' VBA_JSON: the Dictionary class.
+[TestFixture]
+Module DictionaryTests
+
+    [TestCase]
+    Public Sub Item_StoresAndReadsAValue()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("name") = "Alice"
+        d("age") = 30
+        Expect.AreEqual "Alice", d("name"), "d(""name"") after d(""name"") = ""Alice"""
+        Expect.AreEqual 30, d("age"), "d(""age"") after d(""age"") = 30"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_IsTheDefaultMember()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("k") = 5
+        Expect.AreEqual d.Item("k"), d("k"), "d.Item(""k"") against d(""k"")"
+        d.Item("j") = 6
+        Expect.AreEqual 6, d("j"), "d(""j"") after d.Item(""j"") = 6"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_HoldsAnyVariant()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("n") = 1.5
+        d("s") = "text"
+        d("b") = True
+        d("z") = Null
+        Expect.AreEqual vbDouble, VarType(d("n")), "VarType of a stored Double"
+        Expect.AreEqual vbString, VarType(d("s")), "VarType of a stored String"
+        Expect.AreEqual vbBoolean, VarType(d("b")), "VarType of a stored Boolean"
+        Expect.AreEqual vbNull, VarType(d("z")), "VarType of a stored Null"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_Set_StoresAnObjectReference()
+        Expect.Begin
+        Dim d As New Dictionary
+        Dim child As New Dictionary
+        Set d("child") = child
+        child("x") = 7
+        Expect.AreEqual "Dictionary", TypeName(d("child")), "TypeName(d(""child""))"
+        Expect.IsTrue d("child") Is child, "d(""child"") is the object that was stored"
+        Expect.AreEqual 7, d("child")("x"), "d(""child"")(""x"") after the child changed"
+        Dim c As New Collection
+        c.Add 1
+        Set d("list") = c
+        Expect.AreEqual "Collection", TypeName(d("list")), "TypeName of a stored Collection"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_MissingKey_RaisesError5()
+        Expect.Begin
+        Dim d As New Dictionary
+        Dim v As Variant
+        On Error Resume Next
+        v = d("nothing here")
+        Expect.AreEqual 5, Err.Number, "run-time error number of reading a key that is not there"
+        Expect.AreEqual 0, UBound(d.Keys) - LBound(d.Keys) + 1, "number of keys after the failed read"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_Replace_KeepsOneEntryWithTheNewValue()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("score") = 42
+        d("score") = 100
+        Expect.AreEqual 100, d.Item("score"), "d(""score"") after it was set to 42 and then 100"
+        Expect.AreEqual "score", KeyList(d), "keys after the key was set twice"
+        Dim o1 As New Dictionary
+        Dim o2 As New Dictionary
+        o2("who") = "second"
+        Set d("obj") = o1
+        Set d("obj") = o2
+        Expect.AreEqual "second", d("obj")("who"), "d(""obj"") after two Set assignments"
+        Expect.AreEqual "score,obj", KeyList(d), "keys after an object key was set twice"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_Replace_MovesTheKeyToTheEnd()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("a") = 1
+        d("b") = 2
+        d("c") = 3
+        d("a") = 10
+        Expect.AreEqual "b,c,a", KeyList(d), "key order after d(""a"") was set again"
+        Expect.AreEqual "2,3,10", ValueList(d), "For Each order after d(""a"") was set again"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_Replace_ScriptingDictionaryKeepsThePosition()
+        Expect.Begin
+        Dim sd As Object
+        Set sd = CreateObject("Scripting.Dictionary")
+        sd("a") = 1
+        sd("b") = 2
+        sd("a") = 10
+        Dim k As Variant
+        Dim r As String
+        For Each k In sd.Keys
+            r = r & k & ","
+        Next
+        Expect.AreEqual "a,b,", r, "key order of a Scripting.Dictionary after a key was set again"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_MissingKey_ScriptingDictionaryAddsTheKey()
+        Expect.Begin
+        Dim sd As Object
+        Set sd = CreateObject("Scripting.Dictionary")
+        Dim v As Variant
+        v = sd("nothing here")
+        Expect.AreEqual 1, sd.Count, "entries of a Scripting.Dictionary after a read of a key that is not there"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_KeysThatDifferInCase_AreSeparateKeys()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("a") = 1
+        d("A") = 2
+        Expect.AreEqual 2, UBound(d.Keys) - LBound(d.Keys) + 1, "number of keys after d(""a"") = 1 and d(""A"") = 2"
+        Expect.AreEqual 1, d("a"), "d(""a"") after d(""A"") = 2"
+        Expect.AreEqual 2, d("A"), "d(""A"") after d(""A"") = 2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Item_NumericKey_IsConvertedToAString()
+        Expect.Begin
+        Dim d As New Dictionary
+        d(5) = "five"
+        Expect.AreEqual "five", d("5"), "d(""5"") after d(5) = ""five"""
+        Expect.AreEqual "5", KeyList(d), "keys after d(5) = ""five"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Keys_AreInTheOrderTheyWereAdded()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("x") = 1
+        d("y") = 2
+        d("z") = 3
+        Dim k As Variant
+        k = d.Keys
+        Expect.IsTrue IsArray(k), "Keys is an array"
+        Expect.AreEqual 3, UBound(k) - LBound(k) + 1, "number of elements of Keys"
+        Expect.AreEqual "x,y,z", KeyList(d), "keys in the order added"
+        Expect.AreEqual vbString, VarType(k(LBound(k))), "VarType of a key"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Keys_WithNoEntries_IsAnEmptyArray()
+        Expect.Begin
+        Dim d As New Dictionary
+        Dim k As Variant
+        k = d.Keys
+        Expect.IsTrue IsArray(k), "Keys of an empty dictionary is an array"
+        Expect.IsTrue UBound(k) < LBound(k), "Keys of an empty dictionary has no elements"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Keys_CountedByTheBoundsOfTheArray()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("x") = 1
+        d("y") = 2
+        Dim keyCount As Long
+        keyCount = UBound(d.Keys) - LBound(d.Keys) + 1
+        Expect.AreEqual 2, keyCount, "UBound - LBound + 1 of Keys of a dictionary with two entries"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Keys_VariantKey_ReadsTheEntry()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("x") = 1
+        d("y") = 2
+        Dim k As Variant
+        Dim sum As Long
+        For Each k In d.Keys
+            sum = sum + d(k)
+        Next
+        Expect.AreEqual 3, sum, "sum of d(k) over the keys of a dictionary holding 1 and 2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ForEach_YieldsTheValuesInOrder()
+        Expect.Begin
+        Dim d As New Dictionary
+        d("a") = 10
+        d("b") = 20
+        Expect.AreEqual "10,20", ValueList(d), "values given by For Each"
+        Dim v As Variant
+        Dim n As Long
+        For Each v In d
+            n = n + 1
+        Next
+        Expect.AreEqual 2, n, "number of passes of For Each over two entries"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseJsonResult_IsAPackageDictionary()
+        Expect.Begin
+        Dim parsed As Dictionary
+        Set parsed = ParseJson("{""name"":""Bob"",""score"":95}")
+        Expect.AreEqual "Dictionary", TypeName(parsed), "TypeName of the result of ParseJson on an object"
+        Expect.AreEqual "Bob", parsed("name"), "parsed(""name"")"
+        Expect.AreEqual 95, parsed("score"), "parsed(""score"")"
+        Expect.AreEqual "name,score", KeyList(parsed), "keys of the parsed object"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBA_JSON/Sources/Helpers.twin b/test/package-tests/VBA_JSON/Sources/Helpers.twin
new file mode 100644
index 00000000..57219975
--- /dev/null
+++ b/test/package-tests/VBA_JSON/Sources/Helpers.twin
@@ -0,0 +1,184 @@
+' VBA_JSON: helpers shared by the fixtures. The Win32 time-zone calls here compute what the package's
+' date functions should give, in the machine's own time zone, so no case depends on one zone or on the
+' regional settings: dates are built with DateSerial and TimeSerial, and the text a case expects is
+' assembled from numbers, never from Format$.
+Module Helpers
+
+    Private Type SYSTEMTIME
+        wYear As Integer
+        wMonth As Integer
+        wDayOfWeek As Integer
+        wDay As Integer
+        wHour As Integer
+        wMinute As Integer
+        wSecond As Integer
+        wMilliseconds As Integer
+    End Type
+
+    Private Type TIME_ZONE_INFORMATION
+        Bias As Long
+        StandardName(0 To 31) As Integer
+        StandardDate As SYSTEMTIME
+        StandardBias As Long
+        DaylightName(0 To 31) As Integer
+        DaylightDate As SYSTEMTIME
+        DaylightBias As Long
+    End Type
+
+    Private Declare PtrSafe Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
+    Private Declare PtrSafe Function SystemTimeToTzSpecificLocalTime Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION, lpUniversalTime As SYSTEMTIME, lpLocalTime As SYSTEMTIME) As Long
+    Private Declare PtrSafe Function TzSpecificLocalTimeToSystemTime Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION, lpLocalTime As SYSTEMTIME, lpUniversalTime As SYSTEMTIME) As Long
+
+    ' What the last Try call raised.
+    Public LastNumber As Long
+    Public LastSource As String
+    Public LastDescription As String
+
+    ' A fixed local date and time in the middle of the northern summer, and one in the middle of the winter.
+    Public Function Summer() As Date
+        Summer = DateSerial(2024, 6, 3) + TimeSerial(9, 0, 0)
+    End Function
+
+    Public Function Winter() As Date
+        Winter = DateSerial(2024, 1, 15) + TimeSerial(9, 0, 0)
+    End Function
+
+    ' Puts the three JsonOptions back to their defaults.
+    Public Sub ResetOptions()
+        JsonOptions.UseDoubleForLargeNumbers = False
+        JsonOptions.AllowUnquotedKeys = False
+        JsonOptions.EscapeSolidus = False
+    End Sub
+
+    ' The six characters of a JSON \u escape.
+    Public Function U(ByVal Hex4 As String) As String
+        U = Chr$(92) & "u" & Hex4
+    End Function
+
+    ' Shows the characters of a string that a message cannot carry as <hex>.
+    Public Function Esc(ByVal s As String) As String
+        Dim i As Long
+        Dim c As Long
+        Dim r As String
+        For i = 1 To Len(s)
+            c = AscW(Mid$(s, i, 1))
+            If c < 0 Then c = c + 65536
+            If c < 32 Or c > 126 Then
+                r = r & "<" & Hex$(c) & ">"
+            Else
+                r = r & Mid$(s, i, 1)
+            End If
+        Next
+        Esc = r
+    End Function
+
+    Private Sub Keep()
+        LastNumber = Err.Number
+        LastSource = Err.Source
+        LastDescription = Err.Description
+        Err.Clear
+    End Sub
+
+    ' ParseJson that records what it raised in LastNumber, LastSource and LastDescription.
+    Public Function TryParse(ByVal Json As String) As Object
+        On Error Resume Next
+        Err.Clear
+        Set TryParse = ParseJson(Json)
+        Keep
+    End Function
+
+    ' ConvertToJson of a value, recording what it raised.
+    Public Function TryConvert(ByVal Value As Variant) As String
+        On Error Resume Next
+        Err.Clear
+        TryConvert = ConvertToJson(Value)
+        Keep
+    End Function
+
+    Public Function TryConvertPretty(ByVal Value As Variant, ByVal Whitespace As Variant) As String
+        On Error Resume Next
+        Err.Clear
+        TryConvertPretty = ConvertToJson(Value, Whitespace)
+        Keep
+    End Function
+
+    ' The keys of a Dictionary, joined with commas.
+    Public Function KeyList(ByVal D As Dictionary) As String
+        Dim k As Variant
+        Dim r As String
+        For Each k In D.Keys
+            If Len(r) > 0 Then r = r & ","
+            r = r & k
+        Next
+        KeyList = r
+    End Function
+
+    ' The values of a Dictionary (For Each over it), joined with commas.
+    Public Function ValueList(ByVal D As Dictionary) As String
+        Dim v As Variant
+        Dim r As String
+        For Each v In D
+            If Len(r) > 0 Then r = r & ","
+            r = r & v
+        Next
+        ValueList = r
+    End Function
+
+    ' ---- time
+
+    Private Function ToSystemTime(ByVal D As Date) As SYSTEMTIME
+        ToSystemTime.wYear = Year(D)
+        ToSystemTime.wMonth = Month(D)
+        ToSystemTime.wDay = Day(D)
+        ToSystemTime.wHour = Hour(D)
+        ToSystemTime.wMinute = Minute(D)
+        ToSystemTime.wSecond = Second(D)
+    End Function
+
+    Private Function FromSystemTime(ST As SYSTEMTIME) As Date
+        FromSystemTime = DateSerial(ST.wYear, ST.wMonth, ST.wDay) + TimeSerial(ST.wHour, ST.wMinute, ST.wSecond)
+    End Function
+
+    ' The UTC time of a local time, in the machine's time zone, from Windows itself.
+    Public Function UtcOf(ByVal Local As Date) As Date
+        Dim tz As TIME_ZONE_INFORMATION
+        Dim l As SYSTEMTIME
+        Dim u As SYSTEMTIME
+        GetTimeZoneInformation tz
+        l = ToSystemTime(Local)
+        TzSpecificLocalTimeToSystemTime tz, l, u
+        UtcOf = FromSystemTime(u)
+    End Function
+
+    ' The local time of a UTC time, in the machine's time zone, from Windows itself.
+    Public Function LocalOf(ByVal Utc As Date) As Date
+        Dim tz As TIME_ZONE_INFORMATION
+        Dim l As SYSTEMTIME
+        Dim u As SYSTEMTIME
+        GetTimeZoneInformation tz
+        u = ToSystemTime(Utc)
+        SystemTimeToTzSpecificLocalTime tz, u, l
+        LocalOf = FromSystemTime(l)
+    End Function
+
+    Private Function Pad(ByVal N As Long, ByVal Width As Long) As String
+        Pad = Right$(String$(Width, "0") & CStr(N), Width)
+    End Function
+
+    ' A date as yyyy-mm-dd hh:nn:ss, assembled from numbers.
+    Public Function Stamp(ByVal D As Date) As String
+        Stamp = Pad(Year(D), 4) & "-" & Pad(Month(D), 2) & "-" & Pad(Day(D), 2) & " " & Pad(Hour(D), 2) & ":" & Pad(Minute(D), 2) & ":" & Pad(Second(D), 2)
+    End Function
+
+    ' The ISO 8601 text that ConvertToIso should give for a UTC time.
+    Public Function IsoOfUtc(ByVal Utc As Date) As String
+        IsoOfUtc = Pad(Year(Utc), 4) & "-" & Pad(Month(Utc), 2) & "-" & Pad(Day(Utc), 2) & "T" & Pad(Hour(Utc), 2) & ":" & Pad(Minute(Utc), 2) & ":" & Pad(Second(Utc), 2) & ".000Z"
+    End Function
+
+    ' Checks that two times are the same second. The package adds and subtracts times as Doubles, so an
+    ' exact comparison of the numbers would reject a result a tick away.
+    Public Sub SameSecond(ByVal Expected As Date, ByVal Actual As Date, ByVal What As String)
+        Expect.AreEqual Stamp(Expected), Stamp(Actual), What
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBA_JSON/Sources/OptionsTests.twin b/test/package-tests/VBA_JSON/Sources/OptionsTests.twin
new file mode 100644
index 00000000..217b200e
--- /dev/null
+++ b/test/package-tests/VBA_JSON/Sources/OptionsTests.twin
@@ -0,0 +1,102 @@
+' VBA_JSON: JsonOptions. JsonOptions is one variable for the whole program, so each case puts the three
+' options back to their defaults before it ends.
+[TestFixture]
+Module OptionsTests
+
+    [TestCase]
+    Public Sub Defaults_AreAllFalse()
+        Expect.Begin
+        Helpers.ResetOptions
+        Expect.IsFalse JsonOptions.UseDoubleForLargeNumbers, "UseDoubleForLargeNumbers by default"
+        Expect.IsFalse JsonOptions.AllowUnquotedKeys, "AllowUnquotedKeys by default"
+        Expect.IsFalse JsonOptions.EscapeSolidus, "EscapeSolidus by default"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UseDoubleForLargeNumbers_True_ParseGivesDoubles()
+        Expect.Begin
+        Helpers.ResetOptions
+        JsonOptions.UseDoubleForLargeNumbers = True
+        Dim r As Object
+        Set r = Helpers.TryParse("[123456789012345678, 1234567890123456, 0.12345678901234567]")
+        Helpers.ResetOptions
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson with UseDoubleForLargeNumbers"
+        Expect.AreEqual vbDouble, VarType(r(1)), "VarType of an 18-digit number"
+        Expect.AreEqual vbDouble, VarType(r(2)), "VarType of a 16-digit number"
+        Expect.AreEqual vbDouble, VarType(r(3)), "VarType of 0.12345678901234567"
+        Expect.AreEqual 0.12345678901234567, r(3), "0.12345678901234567 as a Double"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UseDoubleForLargeNumbers_True_ConvertQuotesEveryString()
+        Expect.Begin
+        Helpers.ResetOptions
+        JsonOptions.UseDoubleForLargeNumbers = True
+        Dim s As String
+        s = Helpers.TryConvert("1234567890123456")
+        Helpers.ResetOptions
+        Expect.AreEqual """1234567890123456""", s, "ConvertToJson of a 16-digit string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AllowUnquotedKeys_True_ParseAcceptsThem()
+        Expect.Begin
+        Helpers.ResetOptions
+        JsonOptions.AllowUnquotedKeys = True
+        Dim r As Object
+        Set r = Helpers.TryParse("{a:1, b : 2, ""c"":3, d:""x""}")
+        Helpers.ResetOptions
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson with AllowUnquotedKeys"
+        Expect.AreEqual "a,b,c,d", Helpers.KeyList(r), "keys"
+        Expect.AreEqual 2, r("b"), "r(""b"")"
+        Expect.AreEqual "x", r("d"), "r(""d"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AllowUnquotedKeys_False_ParseRefusesThem()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{a:1}")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on {a:1} by default"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EscapeSolidus_True_ConvertEscapesTheSolidus()
+        Expect.Begin
+        Helpers.ResetOptions
+        JsonOptions.EscapeSolidus = True
+        Dim s As String
+        s = Helpers.TryConvert("a/b/c")
+        Helpers.ResetOptions
+        Expect.AreEqual """a\/b\/c""", s, "ConvertToJson(""a/b/c"") with EscapeSolidus"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EscapeSolidus_ParseReadsAnEscapedSolidusWhateverTheOption()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[""a\/b""]")
+        Expect.AreEqual "a/b", r(1), "ParseJson of a\/b by default"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Options_AreIndependent()
+        Expect.Begin
+        Helpers.ResetOptions
+        JsonOptions.EscapeSolidus = True
+        Expect.IsFalse JsonOptions.UseDoubleForLargeNumbers, "UseDoubleForLargeNumbers after EscapeSolidus was set"
+        Expect.IsFalse JsonOptions.AllowUnquotedKeys, "AllowUnquotedKeys after EscapeSolidus was set"
+        Helpers.ResetOptions
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBA_JSON/Sources/ParseJsonTests.twin b/test/package-tests/VBA_JSON/Sources/ParseJsonTests.twin
new file mode 100644
index 00000000..e45a112d
--- /dev/null
+++ b/test/package-tests/VBA_JSON/Sources/ParseJsonTests.twin
@@ -0,0 +1,435 @@
+' VBA_JSON: ParseJson. JSON is read as RFC 8259 defines it, and as ParseJson's page says where it
+' differs. JsonOptions are at their defaults in every case.
+[TestFixture]
+Module ParseJsonTests
+
+    [TestCase]
+    Public Sub Object_GivesADictionary()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""name"":""Alice"",""age"":30}")
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson on an object"
+        Expect.AreEqual "Dictionary", TypeName(r), "TypeName of the result for an object"
+        Expect.AreEqual "Alice", r("name"), "r(""name"")"
+        Expect.AreEqual 30, r("age"), "r(""age"")"
+        Expect.AreEqual "name,age", Helpers.KeyList(r), "keys in the order of the text"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Array_GivesACollection()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[1, 2, 3]")
+        Expect.AreEqual "Collection", TypeName(r), "TypeName of the result for an array"
+        Expect.AreEqual 3, r.Count, "r.Count"
+        Expect.AreEqual 1, r(1), "r(1): a Collection is 1-based"
+        Expect.AreEqual 3, r(3), "r(3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Nested_ObjectsAndArrays_AreDictionariesAndCollections()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""a"":{""b"":[1,[2,3],{""c"":true}]},""d"":[]}")
+        Expect.AreEqual "Dictionary", TypeName(r("a")), "TypeName of a nested object"
+        Expect.AreEqual "Collection", TypeName(r("a")("b")), "TypeName of a nested array"
+        Expect.AreEqual "Collection", TypeName(r("a")("b")(2)), "TypeName of an array in an array"
+        Expect.AreEqual 3, r("a")("b")(2)(2), "the second element of the inner array"
+        Expect.AreEqual "Dictionary", TypeName(r("a")("b")(3)), "TypeName of an object in an array"
+        Expect.AreEqual True, r("a")("b")(3)("c"), "the value of c"
+        Expect.AreEqual 0, r("d").Count, "Count of an empty array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EmptyContainers()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[]")
+        Expect.AreEqual "Collection", TypeName(r), "TypeName for []"
+        Expect.AreEqual 0, r.Count, "Count for []"
+        Set r = Helpers.TryParse("{}")
+        Expect.AreEqual "Dictionary", TypeName(r), "TypeName for {}"
+        Expect.AreEqual 0, UBound(r.Keys) - LBound(r.Keys) + 1, "number of keys for {}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Numbers_AreDoubles()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[0, 1, 2.5, -3e2, 1E+2, 1.5e-3, -0.5]")
+        Dim want As Variant
+        want = Array(0, 1, 2.5, -300, 100, 0.0015, -0.5)
+        Dim i As Long
+        For i = 1 To 7
+            Expect.AreEqual vbDouble, VarType(r(i)), "VarType of number " & i
+            Expect.AreEqual want(i - 1), r(i), "number " & i
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Literals_TrueFalseNull()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[true, false, null]")
+        Expect.AreEqual vbBoolean, VarType(r(1)), "VarType of true"
+        Expect.AreEqual True, r(1), "true"
+        Expect.AreEqual vbBoolean, VarType(r(2)), "VarType of false"
+        Expect.AreEqual False, r(2), "false"
+        Expect.AreEqual vbNull, VarType(r(3)), "VarType of null"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Strings_Escapes()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[""q\""b\\s\/sl\bBS\fFF\rCR\tTAB""]")
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson on a string with escapes"
+        Dim want As String
+        want = "q""b\s/sl" & vbBack & "BS" & vbFormFeed & "FF" & vbCr & "CR" & vbTab & "TAB"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(r(1)), "string with the escapes \"" \\ \/ \b \f \r \t"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Strings_UnicodeEscapes()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[""" & Helpers.U("00e9") & Helpers.U("20AC") & Helpers.U("D83D") & Helpers.U("DE00") & Helpers.U("8000") & Helpers.U("FFFF") & """]")
+        Dim want As String
+        want = ChrW(233) & ChrW(&H20AC) & ChrW(&HD83D) & ChrW(&HDE00) & ChrW(32768) & ChrW(65535)
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(r(1)), "string with \u escapes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Strings_NewlineEscape_IsALineFeed()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[""a\nb""]")
+        Expect.AreEqual Helpers.Esc("a" & vbLf & "b"), Helpers.Esc(r(1)), "ParseJson of the string a\nb (U+000A is one line feed)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Strings_SpacesAreKept()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""k"":""a  b ""}")
+        Expect.AreEqual "a  b ", r("k"), "string with inner and trailing spaces"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RawCrLfAndTab_AreRemovedBeforeParsing()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[""a" & vbTab & "b"", ""c" & vbCrLf & "d"", ""e" & vbLf & "f"", ""g" & vbCr & "h""]")
+        Expect.AreEqual "ab", r(1), "string with a raw tab"
+        Expect.AreEqual "cd", r(2), "string with a raw CR LF"
+        Expect.AreEqual "ef", r(3), "string with a raw LF"
+        Expect.AreEqual "gh", r(4), "string with a raw CR"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormattedJson_IsAccepted()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{" & vbCrLf & "  ""status"": ""ok""," & vbCrLf & vbTab & """n"": [ 1,  2 ]" & vbCrLf & "}")
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson on formatted JSON"
+        Expect.AreEqual "ok", r("status"), "r(""status"")"
+        Expect.AreEqual 2, r("n")(2), "r(""n"")(2)"
+        Set r = Helpers.TryParse("   [ 1 , 2 ]   ")
+        Expect.AreEqual 2, r.Count, "elements of an array with spaces around every token"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LargeNumbers_16CharactersOrMore_AreStrings()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[123456789012345, 1234567890123456, 123456789012345678, -123456789012345]")
+        Expect.AreEqual vbDouble, VarType(r(1)), "VarType of a number of 15 characters"
+        Expect.AreEqual 123456789012345#, r(1), "the number of 15 characters"
+        Expect.AreEqual vbString, VarType(r(2)), "VarType of a number of 16 characters"
+        Expect.AreEqual "1234567890123456", r(2), "the number of 16 characters"
+        Expect.AreEqual vbString, VarType(r(3)), "VarType of a number of 18 characters"
+        Expect.AreEqual "123456789012345678", r(3), "the number of 18 characters"
+        Expect.AreEqual vbString, VarType(r(4)), "VarType of a number of 15 digits and a minus sign (16 characters)"
+        Expect.AreEqual "-123456789012345", r(4), "the number of 15 digits and a minus sign"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LargeNumbers_WithADecimalPoint_NeedSeventeenCharacters()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[12345678901234.5, 123456789012345.6, 0.12345678901234567]")
+        Expect.AreEqual vbDouble, VarType(r(1)), "VarType of a number of 16 characters with a decimal point"
+        Expect.AreEqual 12345678901234.5, r(1), "the number of 16 characters with a decimal point"
+        Expect.AreEqual vbString, VarType(r(2)), "VarType of a number of 17 characters with a decimal point"
+        Expect.AreEqual "123456789012345.6", r(2), "the number of 17 characters with a decimal point"
+        Expect.AreEqual vbString, VarType(r(3)), "VarType of 0.12345678901234567"
+        Expect.AreEqual "0.12345678901234567", r(3), "0.12345678901234567"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ObjectValues_LargeNumberIsAString()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""id"":123456789012345678}")
+        Expect.AreEqual vbString, VarType(r("id")), "VarType of r(""id"")"
+        Expect.AreEqual "123456789012345678", r("id"), "all 18 digits of r(""id"")"
+        Expect.Done
+    End Sub
+
+    ' ---- errors
+
+    [TestCase]
+    Public Sub Error_EmptyText_Raises10001()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on an empty string"
+        Expect.AreEqual "JSONConverter", Helpers.LastSource, "source of that error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_TopLevelValueThatIsNotAnObjectOrArray_Raises10001()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("123")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on 123"
+        Set r = Helpers.TryParse("""text""")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on a string"
+        Set r = Helpers.TryParse("true")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on true"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_UnquotedKey_Raises10001()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{a:1}")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on {a:1}"
+        Expect.AreEqual "JSONConverter", Helpers.LastSource, "source of that error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_MissingColon_Raises10001()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""a"" 1}")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on an object with no colon"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_UnrecognisedValue_Raises10001()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""abcde"":True}")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on the value True"
+        Set r = Helpers.TryParse("[1,]")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on [1,]"
+        Set r = Helpers.TryParse("[.5]")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on [.5]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_ObjectThatIsNotClosed_Raises10001()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""a"":1")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on an object with no closing brace"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_Message_ShowsTheTextAndACaret()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""abcde"":True}")
+        Dim want As String
+        want = "Error parsing JSON:" & vbNewLine & "{""abcde"":True}" & vbNewLine & Space$(9) & "^" & vbNewLine & "Expecting 'STRING', 'NUMBER', null, true, false, '{', or '['"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(Helpers.LastDescription), "message for {""abcde"":True}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_Message_ShowsTenCharactersEachSideOfTheError()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[1,2,3,4,5,6,7,8,9,x]")
+        Dim want As String
+        want = "Error parsing JSON:" & vbNewLine & "5,6,7,8,9,x]" & vbNewLine & Space$(10) & "^" & vbNewLine & "Expecting 'STRING', 'NUMBER', null, true, false, '{', or '['"
+        Expect.AreEqual Helpers.Esc(want), Helpers.Esc(Helpers.LastDescription), "message for an error at character 20 of 21"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_NumberBeyondTheRangeOfADouble_RaisesOverflow()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[1e999]")
+        Expect.AreEqual 6, Helpers.LastNumber, "run-time error of ParseJson on [1e999]"
+        Expect.Done
+    End Sub
+
+    ' ---- text that is not JSON, accepted
+
+    [TestCase]
+    Public Sub Lenient_MissingCommas_AreAccepted()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[1 2 3]")
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson on [1 2 3]"
+        Expect.AreEqual 3, r.Count, "elements of [1 2 3]"
+        Set r = Helpers.TryParse("{""a"":1 ""b"":2}")
+        Expect.AreEqual "a,b", Helpers.KeyList(r), "keys of an object with no comma"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lenient_TextAfterTheTopLevelValue_IsIgnored()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[1] and then anything at all")
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson on text after the array"
+        Expect.AreEqual 1, r.Count, "elements of the array before the text"
+        Set r = Helpers.TryParse("{""a"":1}{""b"":2}")
+        Expect.AreEqual "a", Helpers.KeyList(r), "keys of the first of two objects"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lenient_SingleQuotedStringsAndKeys_AreAccepted()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{'k':'v', ""d"":'w'}")
+        Expect.AreEqual "v", r("k"), "r(""k"") for single-quoted key and value"
+        Expect.AreEqual "w", r("d"), "r(""d"") for a single-quoted value"
+        Set r = Helpers.TryParse("['a\'b']")
+        Expect.AreEqual "a'b", r(1), "string with an escaped single quote"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lenient_NumbersJsonDoesNotAllow_AreAccepted()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[01, +1, 1.]")
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson on [01, +1, 1.]"
+        Expect.AreEqual 1, r(1), "01"
+        Expect.AreEqual 1, r(2), "+1"
+        Expect.AreEqual 1, r(3), "1."
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lenient_UnknownEscape_DropsTheBackslash()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[""a\xb"", ""\uZZZZ""]")
+        Expect.AreEqual "axb", r(1), "string with the unknown escape \x"
+        Expect.AreEqual Helpers.Esc(ChrW(0)), Helpers.Esc(r(2)), "string with \uZZZZ"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DuplicateKeys_LastValueWins()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""a"":1,""b"":2,""a"":3}")
+        Expect.AreEqual "b,a", Helpers.KeyList(r), "keys of an object with a repeated key"
+        Expect.AreEqual 3, r("a"), "r(""a"") for a key given twice"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub KeysThatDifferInCase_AreSeparateEntries()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{""id"":1,""ID"":2}")
+        Expect.AreEqual 2, UBound(r.Keys) - LBound(r.Keys) + 1, "number of keys of {""id"":1,""ID"":2}"
+        Expect.AreEqual 1, r("id"), "r(""id"")"
+        Expect.AreEqual 2, r("ID"), "r(""ID"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EmptyKey_IsAKey()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("{"""":1}")
+        Expect.AreEqual 0, Helpers.LastNumber, "run-time error of ParseJson on an object with the key """""
+        Expect.AreEqual 1, r(""), "the value under the key """""
+        Expect.Done
+    End Sub
+
+    ' ---- text that ends too soon
+
+    [TestCase]
+    Public Sub Error_ArrayThatIsNotClosed_Raises10001()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[1,2")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on [1,2 (it never returns)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Error_StringInAnArrayThatIsNotClosed_Raises10001()
+        Expect.Begin
+        Helpers.ResetOptions
+        Dim r As Object
+        Set r = Helpers.TryParse("[""abc")
+        Expect.AreEqual 10001, Helpers.LastNumber, "run-time error of ParseJson on [""abc (it never returns)"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBA_JSON/Sources/RunAll.twin b/test/package-tests/VBA_JSON/Sources/RunAll.twin
new file mode 100644
index 00000000..230178d0
--- /dev/null
+++ b/test/package-tests/VBA_JSON/Sources/RunAll.twin
@@ -0,0 +1,512 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package VBA_JSON, version 2.3.1.1. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "VBA_JSON 2.3.1.1: 126 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Scalars_NullAndBooleans
+        Expect.EndCase "ConvertToJsonTests.Scalars_NullAndBooleans", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Scalars_Numbers
+        Expect.EndCase "ConvertToJsonTests.Scalars_Numbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Scalars_DoubleOfLargeMagnitude_IsAJsonNumber
+        Expect.EndCase "ConvertToJsonTests.Scalars_DoubleOfLargeMagnitude_IsAJsonNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Scalars_Double_IsWrittenWith15SignificantDigits
+        Expect.EndCase "ConvertToJsonTests.Scalars_Double_IsWrittenWith15SignificantDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Scalars_EmptyAndNothing_GiveAnEmptyString
+        Expect.EndCase "ConvertToJsonTests.Scalars_EmptyAndNothing_GiveAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Scalars_String_IsQuoted
+        Expect.EndCase "ConvertToJsonTests.Scalars_String_IsQuoted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.String_QuoteBackslashAndControlCharacters_AreEscaped
+        Expect.EndCase "ConvertToJsonTests.String_QuoteBackslashAndControlCharacters_AreEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.String_OtherControlCharacters_AreEscapedAsUnicode
+        Expect.EndCase "ConvertToJsonTests.String_OtherControlCharacters_AreEscapedAsUnicode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.String_NonAsciiCharacters_AreEscapedAsUnicode
+        Expect.EndCase "ConvertToJsonTests.String_NonAsciiCharacters_AreEscapedAsUnicode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.String_Solidus_IsNotEscapedByDefault
+        Expect.EndCase "ConvertToJsonTests.String_Solidus_IsNotEscapedByDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.String_OfDigitsOnly_16To100Characters_IsWrittenWithoutQuotes
+        Expect.EndCase "ConvertToJsonTests.String_OfDigitsOnly_16To100Characters_IsWrittenWithoutQuotes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.String_ThatIsShorterLongerOrHoldsOtherCharacters_IsQuoted
+        Expect.EndCase "ConvertToJsonTests.String_ThatIsShorterLongerOrHoldsOtherCharacters_IsQuoted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.String_ThatIsNotANumber_IsQuoted
+        Expect.EndCase "ConvertToJsonTests.String_ThatIsNotANumber_IsQuoted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Dictionary_IsAnObject
+        Expect.EndCase "ConvertToJsonTests.Dictionary_IsAnObject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Dictionary_Key_IsWrittenExactlyAsStored
+        Expect.EndCase "ConvertToJsonTests.Dictionary_Key_IsWrittenExactlyAsStored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Dictionary_KeyWithAQuote_IsEscaped
+        Expect.EndCase "ConvertToJsonTests.Dictionary_KeyWithAQuote_IsEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Dictionary_KeyWithABackslash_IsEscaped
+        Expect.EndCase "ConvertToJsonTests.Dictionary_KeyWithABackslash_IsEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Dictionary_KeyWithALineFeed_IsEscaped
+        Expect.EndCase "ConvertToJsonTests.Dictionary_KeyWithALineFeed_IsEscaped", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Dictionary_ValueThatIsEmptyOrNothing_OmitsTheKey
+        Expect.EndCase "ConvertToJsonTests.Dictionary_ValueThatIsEmptyOrNothing_OmitsTheKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Dictionary_NestedObjectsAndCollections
+        Expect.EndCase "ConvertToJsonTests.Dictionary_NestedObjectsAndCollections", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.OtherObjects_GiveAnEmptyString
+        Expect.EndCase "ConvertToJsonTests.OtherObjects_GiveAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.ObjectNamedDictionary_IsAnObject
+        Expect.EndCase "ConvertToJsonTests.ObjectNamedDictionary_IsAnObject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Collection_IsAnArray
+        Expect.EndCase "ConvertToJsonTests.Collection_IsAnArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Collection_ItemThatIsEmptyOrNothing_IsNull
+        Expect.EndCase "ConvertToJsonTests.Collection_ItemThatIsEmptyOrNothing_IsNull", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Array_OneDimension
+        Expect.EndCase "ConvertToJsonTests.Array_OneDimension", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Array_ElementThatIsEmptyOrNothing_IsNull
+        Expect.EndCase "ConvertToJsonTests.Array_ElementThatIsEmptyOrNothing_IsNull", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Array_TwoDimensions_IsAnArrayOfArrays
+        Expect.EndCase "ConvertToJsonTests.Array_TwoDimensions_IsAnArrayOfArrays", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Array_LowerBoundBelowZero_IsWritten
+        Expect.EndCase "ConvertToJsonTests.Array_LowerBoundBelowZero_IsWritten", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Array_TwoDimensions_SecondLowerBoundBelowZero_IsWritten
+        Expect.EndCase "ConvertToJsonTests.Array_TwoDimensions_SecondLowerBoundBelowZero_IsWritten", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Whitespace_Omitted_IsCompact
+        Expect.EndCase "ConvertToJsonTests.Whitespace_Omitted_IsCompact", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Whitespace_Integer_IndentsEachLevelByThatManySpaces
+        Expect.EndCase "ConvertToJsonTests.Whitespace_Integer_IndentsEachLevelByThatManySpaces", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Whitespace_Integer_NestedCollectionAndNull
+        Expect.EndCase "ConvertToJsonTests.Whitespace_Integer_NestedCollectionAndNull", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Whitespace_String_RepeatsItsFirstCharacterOncePerLevel
+        Expect.EndCase "ConvertToJsonTests.Whitespace_String_RepeatsItsFirstCharacterOncePerLevel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Whitespace_Arrays_AreIndentedLikeCollections
+        Expect.EndCase "ConvertToJsonTests.Whitespace_Arrays_AreIndentedLikeCollections", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.Whitespace_AfterUpdatingAKey_ShowsTheKeyLast
+        Expect.EndCase "ConvertToJsonTests.Whitespace_AfterUpdatingAKey_ShowsTheKeyLast", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConvertToJsonTests.RoundTrip_ParseThenConvert_GivesTheSameText
+        Expect.EndCase "ConvertToJsonTests.RoundTrip_ParseThenConvert_GivesTheSameText", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToUtc_AppliesTheZoneRulesInForceOnThatDate
+        Expect.EndCase "DatesTests.ConvertToUtc_AppliesTheZoneRulesInForceOnThatDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseUtc_AppliesTheZoneRulesInForceOnThatDate
+        Expect.EndCase "DatesTests.ParseUtc_AppliesTheZoneRulesInForceOnThatDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToUtc_AndParseUtc_AreInverses
+        Expect.EndCase "DatesTests.ConvertToUtc_AndParseUtc_AreInverses", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToUtc_FractionOfASecond_IsRoundedToTheNearestSecond
+        Expect.EndCase "DatesTests.ConvertToUtc_FractionOfASecond_IsRoundedToTheNearestSecond", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseUtc_FractionOfASecond_IsRoundedToTheNearestSecond
+        Expect.EndCase "DatesTests.ParseUtc_FractionOfASecond_IsRoundedToTheNearestSecond", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToUtc_DateBefore30December1899_AppliesTheZoneRules
+        Expect.EndCase "DatesTests.ConvertToUtc_DateBefore30December1899_AppliesTheZoneRules", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseUtc_DateBefore30December1899_AppliesTheZoneRules
+        Expect.EndCase "DatesTests.ParseUtc_DateBefore30December1899_AppliesTheZoneRules", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToIso_DateBefore30December1899_AppliesTheZoneRules
+        Expect.EndCase "DatesTests.ConvertToIso_DateBefore30December1899_AppliesTheZoneRules", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_DateBefore30December1899_AppliesTheZoneRules
+        Expect.EndCase "DatesTests.ParseIso_DateBefore30December1899_AppliesTheZoneRules", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToUtc_DateBefore1601_Raises10012
+        Expect.EndCase "DatesTests.ConvertToUtc_DateBefore1601_Raises10012", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseUtc_DateBefore1601_Raises10011
+        Expect.EndCase "DatesTests.ParseUtc_DateBefore1601_Raises10011", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToIso_WritesTheUtcTimeAsIso8601
+        Expect.EndCase "DatesTests.ConvertToIso_WritesTheUtcTimeAsIso8601", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToIso_Milliseconds_AreAlwaysZero
+        Expect.EndCase "DatesTests.ConvertToIso_Milliseconds_AreAlwaysZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToIso_DateBefore1601_Raises10014
+        Expect.EndCase "DatesTests.ConvertToIso_DateBefore1601_Raises10014", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_Z_IsUtc
+        Expect.EndCase "DatesTests.ParseIso_Z_IsUtc", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_PositiveOffset_IsSubtracted
+        Expect.EndCase "DatesTests.ParseIso_PositiveOffset_IsSubtracted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_NegativeOffset_IsAdded
+        Expect.EndCase "DatesTests.ParseIso_NegativeOffset_IsAdded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_OffsetWithoutMinutes
+        Expect.EndCase "DatesTests.ParseIso_OffsetWithoutMinutes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_OffsetWithoutAColon_IsHoursAndMinutes
+        Expect.EndCase "DatesTests.ParseIso_OffsetWithoutAColon_IsHoursAndMinutes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_NoOffset_IsUtc
+        Expect.EndCase "DatesTests.ParseIso_NoOffset_IsUtc", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_DateOnly_IsLocalMidnight
+        Expect.EndCase "DatesTests.ParseIso_DateOnly_IsLocalMidnight", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_TimeMayOmitSecondsOrMinutes
+        Expect.EndCase "DatesTests.ParseIso_TimeMayOmitSecondsOrMinutes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_FractionOfASecond_IsTruncated
+        Expect.EndCase "DatesTests.ParseIso_FractionOfASecond_IsTruncated", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_IsTheInverseOfConvertToIso
+        Expect.EndCase "DatesTests.ParseIso_IsTheInverseOfConvertToIso", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_TextThatIsNotIso8601_Raises10013
+        Expect.EndCase "DatesTests.ParseIso_TextThatIsNotIso8601_Raises10013", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_BasicFormat_Raises10013
+        Expect.EndCase "DatesTests.ParseIso_BasicFormat_Raises10013", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso_DateBefore1601_Raises10013
+        Expect.EndCase "DatesTests.ParseIso_DateBefore1601_Raises10013", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToJson_Date_IsAQuotedIsoString
+        Expect.EndCase "DatesTests.ConvertToJson_Date_IsAQuotedIsoString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToJson_Date_InsideADictionaryACollectionAndAnArray
+        Expect.EndCase "DatesTests.ConvertToJson_Date_InsideADictionaryACollectionAndAnArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ConvertToJson_DateBefore1601_Raises10014
+        Expect.EndCase "DatesTests.ConvertToJson_DateBefore1601_Raises10014", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseJson_DateInTheText_StaysAString
+        Expect.EndCase "DatesTests.ParseJson_DateInTheText_StaysAString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_StoresAndReadsAValue
+        Expect.EndCase "DictionaryTests.Item_StoresAndReadsAValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_IsTheDefaultMember
+        Expect.EndCase "DictionaryTests.Item_IsTheDefaultMember", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_HoldsAnyVariant
+        Expect.EndCase "DictionaryTests.Item_HoldsAnyVariant", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_Set_StoresAnObjectReference
+        Expect.EndCase "DictionaryTests.Item_Set_StoresAnObjectReference", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_MissingKey_RaisesError5
+        Expect.EndCase "DictionaryTests.Item_MissingKey_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_Replace_KeepsOneEntryWithTheNewValue
+        Expect.EndCase "DictionaryTests.Item_Replace_KeepsOneEntryWithTheNewValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_Replace_MovesTheKeyToTheEnd
+        Expect.EndCase "DictionaryTests.Item_Replace_MovesTheKeyToTheEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_Replace_ScriptingDictionaryKeepsThePosition
+        Expect.EndCase "DictionaryTests.Item_Replace_ScriptingDictionaryKeepsThePosition", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_MissingKey_ScriptingDictionaryAddsTheKey
+        Expect.EndCase "DictionaryTests.Item_MissingKey_ScriptingDictionaryAddsTheKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_KeysThatDifferInCase_AreSeparateKeys
+        Expect.EndCase "DictionaryTests.Item_KeysThatDifferInCase_AreSeparateKeys", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Item_NumericKey_IsConvertedToAString
+        Expect.EndCase "DictionaryTests.Item_NumericKey_IsConvertedToAString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Keys_AreInTheOrderTheyWereAdded
+        Expect.EndCase "DictionaryTests.Keys_AreInTheOrderTheyWereAdded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Keys_WithNoEntries_IsAnEmptyArray
+        Expect.EndCase "DictionaryTests.Keys_WithNoEntries_IsAnEmptyArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Keys_CountedByTheBoundsOfTheArray
+        Expect.EndCase "DictionaryTests.Keys_CountedByTheBoundsOfTheArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.Keys_VariantKey_ReadsTheEntry
+        Expect.EndCase "DictionaryTests.Keys_VariantKey_ReadsTheEntry", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.ForEach_YieldsTheValuesInOrder
+        Expect.EndCase "DictionaryTests.ForEach_YieldsTheValuesInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DictionaryTests.ParseJsonResult_IsAPackageDictionary
+        Expect.EndCase "DictionaryTests.ParseJsonResult_IsAPackageDictionary", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Defaults_AreAllFalse
+        Expect.EndCase "OptionsTests.Defaults_AreAllFalse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.UseDoubleForLargeNumbers_True_ParseGivesDoubles
+        Expect.EndCase "OptionsTests.UseDoubleForLargeNumbers_True_ParseGivesDoubles", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.UseDoubleForLargeNumbers_True_ConvertQuotesEveryString
+        Expect.EndCase "OptionsTests.UseDoubleForLargeNumbers_True_ConvertQuotesEveryString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.AllowUnquotedKeys_True_ParseAcceptsThem
+        Expect.EndCase "OptionsTests.AllowUnquotedKeys_True_ParseAcceptsThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.AllowUnquotedKeys_False_ParseRefusesThem
+        Expect.EndCase "OptionsTests.AllowUnquotedKeys_False_ParseRefusesThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.EscapeSolidus_True_ConvertEscapesTheSolidus
+        Expect.EndCase "OptionsTests.EscapeSolidus_True_ConvertEscapesTheSolidus", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.EscapeSolidus_ParseReadsAnEscapedSolidusWhateverTheOption
+        Expect.EndCase "OptionsTests.EscapeSolidus_ParseReadsAnEscapedSolidusWhateverTheOption", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Options_AreIndependent
+        Expect.EndCase "OptionsTests.Options_AreIndependent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Object_GivesADictionary
+        Expect.EndCase "ParseJsonTests.Object_GivesADictionary", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Array_GivesACollection
+        Expect.EndCase "ParseJsonTests.Array_GivesACollection", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Nested_ObjectsAndArrays_AreDictionariesAndCollections
+        Expect.EndCase "ParseJsonTests.Nested_ObjectsAndArrays_AreDictionariesAndCollections", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.EmptyContainers
+        Expect.EndCase "ParseJsonTests.EmptyContainers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Numbers_AreDoubles
+        Expect.EndCase "ParseJsonTests.Numbers_AreDoubles", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Literals_TrueFalseNull
+        Expect.EndCase "ParseJsonTests.Literals_TrueFalseNull", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Strings_Escapes
+        Expect.EndCase "ParseJsonTests.Strings_Escapes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Strings_UnicodeEscapes
+        Expect.EndCase "ParseJsonTests.Strings_UnicodeEscapes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Strings_NewlineEscape_IsALineFeed
+        Expect.EndCase "ParseJsonTests.Strings_NewlineEscape_IsALineFeed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Strings_SpacesAreKept
+        Expect.EndCase "ParseJsonTests.Strings_SpacesAreKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.RawCrLfAndTab_AreRemovedBeforeParsing
+        Expect.EndCase "ParseJsonTests.RawCrLfAndTab_AreRemovedBeforeParsing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.FormattedJson_IsAccepted
+        Expect.EndCase "ParseJsonTests.FormattedJson_IsAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.LargeNumbers_16CharactersOrMore_AreStrings
+        Expect.EndCase "ParseJsonTests.LargeNumbers_16CharactersOrMore_AreStrings", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.LargeNumbers_WithADecimalPoint_NeedSeventeenCharacters
+        Expect.EndCase "ParseJsonTests.LargeNumbers_WithADecimalPoint_NeedSeventeenCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.ObjectValues_LargeNumberIsAString
+        Expect.EndCase "ParseJsonTests.ObjectValues_LargeNumberIsAString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_EmptyText_Raises10001
+        Expect.EndCase "ParseJsonTests.Error_EmptyText_Raises10001", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_TopLevelValueThatIsNotAnObjectOrArray_Raises10001
+        Expect.EndCase "ParseJsonTests.Error_TopLevelValueThatIsNotAnObjectOrArray_Raises10001", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_UnquotedKey_Raises10001
+        Expect.EndCase "ParseJsonTests.Error_UnquotedKey_Raises10001", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_MissingColon_Raises10001
+        Expect.EndCase "ParseJsonTests.Error_MissingColon_Raises10001", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_UnrecognisedValue_Raises10001
+        Expect.EndCase "ParseJsonTests.Error_UnrecognisedValue_Raises10001", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_ObjectThatIsNotClosed_Raises10001
+        Expect.EndCase "ParseJsonTests.Error_ObjectThatIsNotClosed_Raises10001", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_Message_ShowsTheTextAndACaret
+        Expect.EndCase "ParseJsonTests.Error_Message_ShowsTheTextAndACaret", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_Message_ShowsTenCharactersEachSideOfTheError
+        Expect.EndCase "ParseJsonTests.Error_Message_ShowsTenCharactersEachSideOfTheError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Error_NumberBeyondTheRangeOfADouble_RaisesOverflow
+        Expect.EndCase "ParseJsonTests.Error_NumberBeyondTheRangeOfADouble_RaisesOverflow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Lenient_MissingCommas_AreAccepted
+        Expect.EndCase "ParseJsonTests.Lenient_MissingCommas_AreAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Lenient_TextAfterTheTopLevelValue_IsIgnored
+        Expect.EndCase "ParseJsonTests.Lenient_TextAfterTheTopLevelValue_IsIgnored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Lenient_SingleQuotedStringsAndKeys_AreAccepted
+        Expect.EndCase "ParseJsonTests.Lenient_SingleQuotedStringsAndKeys_AreAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Lenient_NumbersJsonDoesNotAllow_AreAccepted
+        Expect.EndCase "ParseJsonTests.Lenient_NumbersJsonDoesNotAllow_AreAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.Lenient_UnknownEscape_DropsTheBackslash
+        Expect.EndCase "ParseJsonTests.Lenient_UnknownEscape_DropsTheBackslash", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.DuplicateKeys_LastValueWins
+        Expect.EndCase "ParseJsonTests.DuplicateKeys_LastValueWins", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.KeysThatDifferInCase_AreSeparateEntries
+        Expect.EndCase "ParseJsonTests.KeysThatDifferInCase_AreSeparateEntries", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseJsonTests.EmptyKey_IsAKey
+        Expect.EndCase "ParseJsonTests.EmptyKey_IsAKey", Err.Number, Err.Description
+        Expect.Skip "ParseJsonTests.Error_ArrayThatIsNotClosed_Raises10001", "it does not return in version 2.3.1.1"
+        Expect.Skip "ParseJsonTests.Error_StringInAnArrayThatIsNotClosed_Raises10001", "it does not return in version 2.3.1.1"
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBA_JSON/compile/CompileTests.twin b/test/package-tests/VBA_JSON/compile/CompileTests.twin
new file mode 100644
index 00000000..16ed2520
--- /dev/null
+++ b/test/package-tests/VBA_JSON/compile/CompileTests.twin
@@ -0,0 +1,20 @@
+' VBA_JSON: what the compiler refuses. Each line ends in a comment ' CASE <Name>: <code>.
+' The Dictionary class has two members, Item and Keys; the Scripting.Dictionary members below are not there.
+Module CompileTests
+
+    Public Sub Dictionary_MembersOfScriptingDictionary()
+        Dim d As New Dictionary
+        Dim n As Long
+        Dim b As Boolean
+        Dim v As Variant
+        n = d.Count ' CASE Count: error
+        d.Add "a", 1 ' CASE Add: error
+        d.Remove "a" ' CASE Remove: error
+        b = d.Exists("a") ' CASE Exists: error
+        v = d.Items ' CASE Items: error
+        d.RemoveAll ' CASE RemoveAll: error
+        d.CompareMode = 1 ' CASE CompareMode: error
+        d.Key("a") = "b" ' CASE Key: error
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBA_JSON/expect.json b/test/package-tests/VBA_JSON/expect.json
new file mode 100644
index 00000000..fba8eb97
--- /dev/null
+++ b/test/package-tests/VBA_JSON/expect.json
@@ -0,0 +1,68 @@
+{
+  "version": "2.3.1.1",
+  "cases": {
+    "ConvertToJsonTests.String_ThatIsNotANumber_IsQuoted": {
+      "fails": "3 of 3 checks failed: 16 letters E: expected \"\"EEEEEEEEEEEEEEEE\"\", got \"EEEEEEEEEEEEEEEE\"; 16 periods: expected \"\"................\"\", got \"................\"; 16 digits with leading zeros (not a JSON number): expected \"\"0000123456789012\"\", got \"0000123456789012\""
+    },
+    "ConvertToJsonTests.Dictionary_KeyWithAQuote_IsEscaped": {
+      "fails": "1 of 1 checks failed: ConvertToJson of a key a\"b: expected \"{\"a\\\"b\":1}\", got \"{\"a\"b\":1}\""
+    },
+    "ConvertToJsonTests.Dictionary_KeyWithABackslash_IsEscaped": {
+      "fails": "1 of 1 checks failed: ConvertToJson of a key a\\b: expected \"{\"a\\\\b\":1}\", got \"{\"a\\b\":1}\""
+    },
+    "ConvertToJsonTests.Dictionary_KeyWithALineFeed_IsEscaped": {
+      "fails": "1 of 1 checks failed: ConvertToJson of a key with a line feed: expected \"{\"a\\nb\":1}\", got \"{\"a b\":1}\""
+    },
+    "ConvertToJsonTests.Array_LowerBoundBelowZero_IsWritten": {
+      "fails": "1 of 1 checks failed: ConvertToJson of an array from -1 to 1: expected \"[4,5,6]\", got \"[]\""
+    },
+    "ConvertToJsonTests.Array_TwoDimensions_SecondLowerBoundBelowZero_IsWritten": {
+      "fails": "1 of 1 checks failed: ConvertToJson of an array (0 To 1, -1 To 0): expected \"[[1,2],[3,4]]\", got \"[null,null]\""
+    },
+    "DatesTests.ConvertToUtc_DateBefore30December1899_AppliesTheZoneRules": {
+      "fails": "2 of 2 checks failed: ConvertToUtc of 3 June 1850 12:00: expected \"1850-06-03 10:00:00\", got \"1850-06-04 14:00:00\"; ConvertToUtc of 29 December 1899 12:00: expected \"1899-12-29 11:00:00\", got \"1899-12-30 13:00:00\""
+    },
+    "DatesTests.ParseUtc_DateBefore30December1899_AppliesTheZoneRules": {
+      "fails": "2 of 2 checks failed: ParseUtc of 3 June 1850 12:00: expected \"1850-06-03 14:00:00\", got \"1850-06-04 10:00:00\"; ParseUtc of 29 December 1899 12:00: expected \"1899-12-29 13:00:00\", got \"1899-12-30 11:00:00\""
+    },
+    "DatesTests.ConvertToIso_DateBefore30December1899_AppliesTheZoneRules": {
+      "fails": "1 of 1 checks failed: ConvertToIso of 3 June 1850 12:00: expected \"1850-06-03T10:00:00.000Z\", got \"1850-06-04T14:00:00.000Z\""
+    },
+    "DatesTests.ParseIso_DateBefore30December1899_AppliesTheZoneRules": {
+      "fails": "1 of 1 checks failed: ParseIso of 1850-06-03T12:00:00Z: expected \"1850-06-03 14:00:00\", got \"1850-06-05 10:00:00\""
+    },
+    "DatesTests.ConvertToUtc_DateBefore1601_Raises10012": {
+      "fails": "2 of 2 checks failed: run-time error of ConvertToUtc(1 January 1500): expected 10012, got 0; source of that error: expected \"UtcConverter.ConvertToUtc\", got \"\""
+    },
+    "DatesTests.ParseUtc_DateBefore1601_Raises10011": {
+      "fails": "2 of 2 checks failed: run-time error of ParseUtc(1 January 1500): expected 10011, got 0; source of that error: expected \"UtcConverter.ParseUtc\", got \"\""
+    },
+    "DatesTests.ConvertToIso_DateBefore1601_Raises10014": {
+      "fails": "2 of 2 checks failed: run-time error of ConvertToIso(1 January 1500): expected 10014, got 0; source of that error: expected \"UtcConverter.ConvertToIso\", got \"\""
+    },
+    "DatesTests.ParseIso_OffsetWithoutAColon_IsHoursAndMinutes": {
+      "fails": "1 of 1 checks failed: ParseIso with +0530 against +05:30: expected \"2024-06-03 11:00:00\", got \"2024-05-12 14:30:00\""
+    },
+    "DatesTests.ParseIso_DateBefore1601_Raises10013": {
+      "fails": "1 of 1 checks failed: run-time error of ParseIso(\"1500-01-01T00:00:00Z\"): expected 10013, got 0"
+    },
+    "DatesTests.ConvertToJson_DateBefore1601_Raises10014": {
+      "fails": "1 of 1 checks failed: run-time error of ConvertToJson(1 January 1500): expected 10014, got 0"
+    },
+    "DictionaryTests.Item_KeysThatDifferInCase_AreSeparateKeys": {
+      "fails": "2 of 3 checks failed: number of keys after d(\"a\") = 1 and d(\"A\") = 2: expected 2, got 1; d(\"a\") after d(\"A\") = 2: expected 1, got 2"
+    },
+    "ParseJsonTests.Strings_NewlineEscape_IsALineFeed": {
+      "fails": "1 of 1 checks failed: ParseJson of the string a\\nb (U+000A is one line feed): expected \"a<A>b\", got \"a<D><A>b\""
+    },
+    "ParseJsonTests.KeysThatDifferInCase_AreSeparateEntries": {
+      "fails": "2 of 3 checks failed: number of keys of {\"id\":1,\"ID\":2}: expected 2, got 1; r(\"id\"): expected 1, got 2"
+    },
+    "ParseJsonTests.Error_ArrayThatIsNotClosed_Raises10001": {
+      "hangs": true
+    },
+    "ParseJsonTests.Error_StringInAnArrayThatIsNotClosed_Raises10001": {
+      "hangs": true
+    }
+  }
+}
diff --git a/test/package-tests/VBComDlg/Sources/CustomColorsTests.twin b/test/package-tests/VBComDlg/Sources/CustomColorsTests.twin
new file mode 100644
index 00000000..90f6116e
--- /dev/null
+++ b/test/package-tests/VBComDlg/Sources/CustomColorsTests.twin
@@ -0,0 +1,165 @@
+' CommonDialog.CustomColors: the 16 custom colours, what the setter accepts and the errors it raises.
+[TestFixture]
+Module CustomColorsTests
+
+    Private Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
+
+    ' The number of the error that assigning Value to CustomColors raises, 0 for none.
+    Private Function AssignError(ByVal Dlg As CommonDialog, ByVal Value As Variant) As Long
+        On Error Resume Next
+        Dlg.CustomColors = Value
+        AssignError = Err.Number
+        Err.Clear
+    End Function
+
+    [TestCase]
+    Public Sub Get_DefaultIsSixteenLongsFromZero()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.IsTrue IsArray(a), "CustomColors returns an array"
+        Expect.AreEqual 0, LBound(a), "lower bound of the array CustomColors returns"
+        Expect.AreEqual 15, UBound(a), "upper bound of the array CustomColors returns"
+        Expect.AreEqual vbLong, VarType(a(0)), "type of an element of CustomColors"
+        Expect.AreEqual &HFFFFFF, a(0), "default custom colour 0 (white)"
+        Expect.AreEqual &H7F7F7F, a(8), "default custom colour 8"
+        Expect.AreEqual &HF0F0F, a(15), "default custom colour 15 (near-black)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_ShortArrayLeavesTheRest()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual 0, AssignError(dlg, Array(&H10, &H20, &H30)), "error assigning an array of three elements"
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.AreEqual &H10, a(0), "custom colour 0 after assigning three elements"
+        Expect.AreEqual &H30, a(2), "custom colour 2 after assigning three elements"
+        Expect.AreEqual &HCFCFCF, a(3), "custom colour 3 (a default) after assigning three elements"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_FirstElementIsFirstColourWhateverTheLowerBound()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim src(5 To 7) As Long
+        src(5) = &H111111
+        src(6) = &H222222
+        src(7) = &H333333
+        Expect.AreEqual 0, AssignError(dlg, src), "error assigning an array whose lower bound is 5"
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.AreEqual &H111111, a(0), "custom colour 0 after assigning an array that starts at index 5"
+        Expect.AreEqual &H333333, a(2), "custom colour 2 after assigning an array that starts at index 5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_MoreThanSixteenElementsAreIgnored()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim src(0 To 19) As Long
+        Dim i As Long
+        For i = 0 To 19
+            src(i) = i + 1
+        Next i
+        Expect.AreEqual 0, AssignError(dlg, src), "error assigning an array of 20 elements"
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.AreEqual 16, UBound(a) - LBound(a) + 1, "number of custom colours after assigning 20 elements"
+        Expect.AreEqual 1, a(0), "custom colour 0 after assigning 20 elements"
+        Expect.AreEqual 16, a(15), "custom colour 15 after assigning 20 elements"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_StringHoldingANumberIsAccepted()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual 0, AssignError(dlg, Array("255", "&H10")), "error assigning an array of numeric strings"
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.AreEqual 255, a(0), "custom colour 0 after assigning the string ""255"""
+        Expect.AreEqual &H10, a(1), "custom colour 1 after assigning the string ""&H10"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_OleColourIsTranslated()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual 0, AssignError(dlg, Array(&H8000000F)), "error assigning the system colour 3D face (&H8000000F)"
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.AreEqual GetSysColor(15), a(0), "custom colour 0 after assigning &H8000000F (COLOR_3DFACE)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_ElementNotAColour_RaisesTypeMismatchAndKeepsEarlierElements()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual 13, AssignError(dlg, Array(&H123456, "not a colour", &H654321)), "error assigning an array whose second element is ""not a colour"""
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.AreEqual &H123456, a(0), "custom colour 0 (before the bad element) after the failed assignment"
+        Expect.AreEqual &HDFDFDF, a(2), "custom colour 2 (after the bad element) after the failed assignment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_NullElement_RaisesInvalidUseOfNull()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual 94, AssignError(dlg, Array(&H123456, Null)), "error assigning an array whose second element is Null"
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.AreEqual &H123456, a(0), "custom colour 0 (before the Null element) after the failed assignment"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_MultiDimensionalArray_Raises5()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim src(0 To 1, 0 To 1) As Long
+        Expect.AreEqual 5, AssignError(dlg, src), "error assigning a two-dimensional array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_UnallocatedArray_Raises91()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim src() As Long
+        Expect.AreEqual 91, AssignError(dlg, src), "error assigning an array that was never allocated"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_Empty_RestoresDefaults()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.CustomColors = Array(1, 2, 3, 4)
+        Expect.AreEqual 0, AssignError(dlg, Empty), "error assigning Empty"
+        Dim a As Variant
+        a = dlg.CustomColors
+        Expect.AreEqual &HFFFFFF, a(0), "custom colour 0 after assigning Empty"
+        Expect.AreEqual &HEFEFEF, a(1), "custom colour 1 after assigning Empty"
+        Expect.AreEqual &HF0F0F, a(15), "custom colour 15 after assigning Empty"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Let_NotAnArray_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual 380, AssignError(dlg, 5), "error assigning the number 5"
+        Expect.AreEqual 380, AssignError(dlg, "text"), "error assigning a string"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBComDlg/Sources/DialogDriver.twin b/test/package-tests/VBComDlg/Sources/DialogDriver.twin
new file mode 100644
index 00000000..6e32d93d
--- /dev/null
+++ b/test/package-tests/VBComDlg/Sources/DialogDriver.twin
@@ -0,0 +1,130 @@
+' DialogDriver: operates the modeless Find and Replace dialogs of a CommonDialog from inside the
+' test, with the messages the user's mouse and keyboard make, so no case waits for a person.
+'
+' ShowFind and ShowReplace create their dialog and return at once, and the dialog sends the
+' dialog's owner a registered message when one of its buttons is pressed. A button is pressed
+' here with BM_CLICK, which makes the dialog send that message exactly as a click does, text is
+' typed with WM_SETTEXT, and a dialog is closed with WM_CLOSE. Nothing is modal, so nothing can
+' hold the test. The dialogs are on the desktop the test runs on.
+Module DialogDriver
+
+    Private Declare PtrSafe Function GetDlgItem Lib "user32" (ByVal hDlg As LongPtr, ByVal nID As Long) As LongPtr
+    Private Declare PtrSafe Function GetWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal uCmd As Long) As LongPtr
+    Private Declare PtrSafe Function IsWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function IsWindowEnabled Lib "user32" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function SendMessageW Lib "user32" (ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function RegisterWindowMessageW Lib "user32" (ByVal lpString As LongPtr) As Long
+
+    Private Const WM_CLOSE As Long = &H10
+    Private Const WM_SETTEXT As Long = &HC
+    Private Const BM_CLICK As Long = &HF5
+    Private Const GW_OWNER As Long = 4
+
+    ' The control IDs of the Find and Replace dialogs of comdlg32 (dlgs.h).
+    Public Const IDC_FIND_NEXT As Long = 1          ' IDOK
+    Public Const IDC_REPLACE As Long = &H400        ' psh1
+    Public Const IDC_REPLACE_ALL As Long = &H401    ' psh2
+    Public Const IDC_HELP As Long = &H40E           ' pshHelp
+    Public Const IDC_FIND_WHAT As Long = &H480      ' edt1
+    Public Const IDC_REPLACE_WITH As Long = &H481   ' edt2
+
+    ' The FINDREPLACE structure a dialog sends its owner with the registered message.
+    Private Type FINDREPLACE
+        lStructSize As Long
+        hWndOwner As LongPtr
+        hInstance As LongPtr
+        Flags As Long
+        lpstrFindWhat As LongPtr
+        lpstrReplaceWith As LongPtr
+        wFindWhatLen As Integer
+        wReplaceWithLen As Integer
+        lCustData As LongPtr
+        lpfnHook As LongPtr
+        lpTemplateName As LongPtr
+    End Type
+
+    ' Presses the button with the given ID. False when the dialog has no such button or the button is disabled.
+    Public Function Press(ByVal hDlg As LongPtr, ByVal ControlId As Long) As Boolean
+        Dim hBtn As LongPtr
+        hBtn = GetDlgItem(hDlg, ControlId)
+        If hBtn = 0 Then Exit Function
+        If IsWindowEnabled(hBtn) = 0 Then Exit Function
+        SendMessageW hBtn, BM_CLICK, 0, 0
+        Press = True
+    End Function
+
+    ' Types Text into the edit box with the given ID.
+    Public Function TypeText(ByVal hDlg As LongPtr, ByVal ControlId As Long, ByVal Text As String) As Boolean
+        Dim hEdit As LongPtr
+        hEdit = GetDlgItem(hDlg, ControlId)
+        If hEdit = 0 Then Exit Function
+        SendMessageW hEdit, WM_SETTEXT, 0, StrPtr(Text)
+        TypeText = True
+    End Function
+
+    ' Sends the owner of the dialog the message the dialog sends it when a button with these
+    ' FR_ flags is pressed. The edit boxes are not read (the strings are Null).
+    Public Sub SendToOwner(ByVal hDlg As LongPtr, ByVal FrFlags As Long)
+        Dim fr As FINDREPLACE
+        fr.lStructSize = LenB(fr)
+        fr.Flags = FrFlags
+        fr.lCustData = hDlg
+        SendMessageW GetWindow(hDlg, GW_OWNER), RegisterWindowMessageW(StrPtr("commdlg_FindReplace")), 0, VarPtr(fr)
+    End Sub
+
+    ' ---- a box a modal call opens
+
+    Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
+    Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal uIDEvent As LongPtr) As Long
+    Private Declare PtrSafe Function EnumThreadWindows Lib "user32" (ByVal dwThreadId As Long, ByVal lpfn As LongPtr, ByVal lParam As LongPtr) As Long
+    Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long
+    Private Declare PtrSafe Function GetClassNameW Lib "user32" (ByVal hWnd As LongPtr, ByVal lpClassName As LongPtr, ByVal nMaxCount As Long) As Long
+    Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hWnd As LongPtr) As Long
+
+    Private mTimer As LongPtr
+    Private mDismissed As Long
+
+    ' Arms a timer which, while the next modal call runs, closes any dialog box that call opens
+    ' (class #32770: a message box, or a common dialog). The modal call's own message loop
+    ' delivers the timer. Call StopDismissing after the call; it returns how many boxes were closed.
+    Public Sub StartDismissing()
+        mDismissed = 0
+        mTimer = SetTimer(0, 0, 250, AddressOf DismissTick)
+    End Sub
+
+    Public Function StopDismissing() As Long
+        If mTimer <> 0 Then KillTimer 0, mTimer
+        mTimer = 0
+        StopDismissing = mDismissed
+    End Function
+
+    Private Sub DismissTick(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
+        EnumThreadWindows GetCurrentThreadId(), AddressOf DismissWindow, 0
+    End Sub
+
+    Private Function DismissWindow(ByVal hWnd As LongPtr, ByVal lParam As LongPtr) As Long
+        Dim cls As String
+        cls = Space$(64)
+        Dim n As Long
+        n = GetClassNameW(hWnd, StrPtr(cls), 64)
+        If Left$(cls, n) = "#32770" Then
+            If IsWindowVisible(hWnd) <> 0 Then
+                mDismissed = mDismissed + 1
+                SendMessageW hWnd, WM_CLOSE, 0, 0
+            End If
+        End If
+        DismissWindow = 1
+    End Function
+
+    ' Closes the dialog, as its close button does; the dialog then tells its owner it is ending.
+    Public Sub CloseDialog(ByVal hDlg As LongPtr)
+        If hDlg = 0 Then Exit Sub
+        If IsWindow(hDlg) <> 0 Then SendMessageW hDlg, WM_CLOSE, 0, 0
+    End Sub
+
+    Public Function Exists(ByVal hDlg As LongPtr) As Boolean
+        If hDlg = 0 Then Exit Function
+        Exists = (IsWindow(hDlg) <> 0)
+    End Function
+
+End Module
diff --git a/test/package-tests/VBComDlg/Sources/FindReplaceTests.twin b/test/package-tests/VBComDlg/Sources/FindReplaceTests.twin
new file mode 100644
index 00000000..30a60b15
--- /dev/null
+++ b/test/package-tests/VBComDlg/Sources/FindReplaceTests.twin
@@ -0,0 +1,258 @@
+' CommonDialog: the Find and Replace dialogs, and the events that need the hook and the ones that do not.
+'
+' Both dialogs are modeless, so a case opens one, presses its buttons with DialogDriver and closes
+' it. A dialog the case opened is closed before the case ends.
+[TestFixture]
+Module FindReplaceTests
+
+    [TestCase]
+    Public Sub InitDialog_FindWithoutHook_NotRaised()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.HookEvents = False
+        Dim h As LongPtr
+        h = dlg.ShowFind
+        Expect.IsTrue DialogDriver.Exists(h), "ShowFind with HookEvents False opens the Find dialog"
+        Expect.AreEqual 0, snk.InitDialogs, "InitDialog events raised by ShowFind with HookEvents False"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub InitDialog_FindWithHook_Raised()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.HookEvents = True
+        Dim h As LongPtr
+        h = dlg.ShowFind
+        Expect.AreEqual 1, snk.InitDialogs, "InitDialog events raised by ShowFind with HookEvents True"
+        Expect.AreEqual 9, snk.LastInitAction, "Action argument of that InitDialog event (9 = Find)"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub InitDialog_ReplaceWithHook_Raised()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.HookEvents = True
+        Dim h As LongPtr
+        h = dlg.ShowReplace
+        Expect.AreEqual 1, snk.InitDialogs, "InitDialog events raised by ShowReplace with HookEvents True"
+        Expect.AreEqual 10, snk.LastInitAction, "Action argument of that InitDialog event (10 = Replace)"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub InitDialog_HookEventsSetAfterShow_NotRaised()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        Dim h As LongPtr
+        h = dlg.ShowFind
+        dlg.HookEvents = True
+        Expect.AreEqual 0, snk.InitDialogs, "InitDialog events raised by a ShowFind call that began with HookEvents False and set it to True after"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FindNext_WithoutHook_Raised()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.HookEvents = False
+        dlg.FindWhat = "start"
+        Dim h As LongPtr
+        h = dlg.ShowFind
+        Expect.IsTrue DialogDriver.TypeText(h, DialogDriver.IDC_FIND_WHAT, "typed"), "typing into the Find what box"
+        Expect.IsTrue DialogDriver.Press(h, DialogDriver.IDC_FIND_NEXT), "pressing Find Next"
+        Expect.AreEqual 1, snk.FindNexts, "FindNext events raised with HookEvents False"
+        Expect.AreEqual "typed", snk.FindWhatAtEvent, "FindWhat inside the FindNext event"
+        Expect.AreEqual "typed", dlg.FindWhat, "FindWhat after the FindNext event"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FindNext_FlagsUpdatedBeforeEvent()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.HookEvents = True
+        dlg.FindWhat = "x"
+        Dim h As LongPtr
+        h = dlg.ShowFind
+        Expect.IsTrue DialogDriver.Press(h, DialogDriver.IDC_FIND_NEXT), "pressing Find Next"
+        Expect.AreEqual CdlFRFindNext, snk.FlagsAtEvent And CdlFRFindNext, "the CdlFRFindNext bit of Flags inside the FindNext event"
+        Expect.AreEqual 0, snk.FlagsAtEvent And &H100&, "the hook bit (&H100) of Flags inside the FindNext event, with HookEvents True"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Replace_WithoutHook_Raised()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.HookEvents = False
+        dlg.FindWhat = "start"
+        dlg.ReplaceWith = "begin"
+        Dim h As LongPtr
+        h = dlg.ShowReplace
+        Expect.IsTrue DialogDriver.TypeText(h, DialogDriver.IDC_FIND_WHAT, "typed"), "typing into the Find what box"
+        Expect.IsTrue DialogDriver.TypeText(h, DialogDriver.IDC_REPLACE_WITH, "other"), "typing into the Replace with box"
+        Expect.IsTrue DialogDriver.Press(h, DialogDriver.IDC_REPLACE), "pressing Replace"
+        Expect.AreEqual 1, snk.Replaces, "Replace events raised with HookEvents False"
+        Expect.AreEqual "typed", snk.FindWhatAtEvent, "FindWhat inside the Replace event"
+        Expect.AreEqual "other", snk.ReplaceWithAtEvent, "ReplaceWith inside the Replace event"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Help_FindWithoutHook_Raised()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.HookEvents = False
+        dlg.Flags = CdlFRHelpButton
+        Dim h As LongPtr
+        h = dlg.ShowFind
+        Expect.IsTrue DialogDriver.Press(h, DialogDriver.IDC_HELP), "pressing Help in the Find dialog"
+        Expect.AreEqual 1, snk.Helps, "Help events raised with HookEvents False"
+        Expect.AreEqual 9, snk.LastHelpAction, "Action argument of that Help event (9 = Find)"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowFind_WhileOpen_ReturnsZero()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim h As LongPtr, h2 As LongPtr
+        h = dlg.ShowFind
+        Expect.IsTrue h <> 0, "ShowFind returns the handle of the dialog it opened"
+        h2 = dlg.ShowFind
+        Expect.AreEqual 0, CLng(h2), "second ShowFind while the first dialog is open"
+        DialogDriver.CloseDialog h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowReplace_WhileFindOpen_ReturnsZero()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim h As LongPtr, h2 As LongPtr
+        h = dlg.ShowFind
+        h2 = dlg.ShowReplace
+        Expect.AreEqual 0, CLng(h2), "ShowReplace while a Find dialog of the same object is open"
+        DialogDriver.CloseDialog h
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowFind_AfterClose_OpensAgain()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim h As LongPtr, h2 As LongPtr
+        h = dlg.ShowFind
+        DialogDriver.CloseDialog h
+        Expect.IsFalse DialogDriver.Exists(h), "the first dialog after it is closed"
+        h2 = dlg.ShowFind
+        Expect.IsTrue h2 <> 0, "ShowFind after the first dialog is closed"
+        DialogDriver.CloseDialog h2
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReplaceAll_ButtonRaisesEvent()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.FindWhat = "x"
+        dlg.ReplaceWith = "y"
+        Dim h As LongPtr
+        h = dlg.ShowReplace
+        Expect.IsTrue DialogDriver.Press(h, DialogDriver.IDC_REPLACE_ALL), "pressing Replace All"
+        Expect.AreEqual 1, snk.ReplaceAlls, "ReplaceAll events raised by pressing Replace All"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReplaceAll_MessageRaisesEvent()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.FindWhat = "x"
+        dlg.ReplaceWith = "y"
+        Dim h As LongPtr
+        h = dlg.ShowReplace
+        DialogDriver.SendToOwner h, CdlFRReplaceAll
+        Expect.AreEqual 1, snk.ReplaceAlls, "ReplaceAll events raised by the message a Replace All press sends (FR_REPLACEALL)"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReplaceAll_MessageForReplaceRaisesReplace()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.FindWhat = "x"
+        dlg.ReplaceWith = "y"
+        Dim h As LongPtr
+        h = dlg.ShowReplace
+        DialogDriver.SendToOwner h, CdlFRReplace
+        Expect.AreEqual 1, snk.Replaces, "Replace events raised by the message a Replace press sends (FR_REPLACE), the control for the ReplaceAll cases"
+        Expect.AreEqual 0, snk.ReplaceAlls, "ReplaceAll events raised by that message"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ReplaceAll_ButtonRaisesNoOtherEvent()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.FindWhat = "x"
+        dlg.ReplaceWith = "y"
+        Dim h As LongPtr
+        h = dlg.ShowReplace
+        Expect.IsTrue DialogDriver.Press(h, DialogDriver.IDC_REPLACE_ALL), "pressing Replace All"
+        Expect.AreEqual 0, snk.FindNexts, "FindNext events raised by pressing Replace All"
+        Expect.AreEqual 0, snk.Replaces, "Replace events raised by pressing Replace All"
+        DialogDriver.CloseDialog h
+        snk.Detach
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBComDlg/Sources/FindSink.twin b/test/package-tests/VBComDlg/Sources/FindSink.twin
new file mode 100644
index 00000000..85e90c6e
--- /dev/null
+++ b/test/package-tests/VBComDlg/Sources/FindSink.twin
@@ -0,0 +1,55 @@
+' FindSink: receives the events of a CommonDialog and counts them, for the Find and Replace cases.
+Class FindSink
+
+    Private WithEvents mDlg As CommonDialog
+
+    Public InitDialogs As Long      ' InitDialog events received
+    Public LastInitAction As Long   ' the Action argument of the last one
+    Public LastInitHandle As Long   ' the hDlg argument of the last one
+    Public Helps As Long           ' Help events received
+    Public LastHelpAction As Long   ' the Action argument of the last one
+    Public FindNexts As Long        ' FindNext events received
+    Public Replaces As Long         ' Replace events received
+    Public ReplaceAlls As Long      ' ReplaceAll events received
+    Public FindWhatAtEvent As String        ' FindWhat inside the last FindNext or Replace event
+    Public ReplaceWithAtEvent As String     ' ReplaceWith inside the last Replace event
+    Public FlagsAtEvent As Long             ' Flags inside the last FindNext or Replace event
+
+    Public Sub Attach(ByVal Dlg As CommonDialog)
+        Set mDlg = Dlg
+    End Sub
+
+    Public Sub Detach()
+        Set mDlg = Nothing
+    End Sub
+
+    Private Sub mDlg_InitDialog(ByVal Action As Integer, ByVal hDlg As Long)
+        InitDialogs = InitDialogs + 1
+        LastInitAction = Action
+        LastInitHandle = hDlg
+    End Sub
+
+    Private Sub mDlg_Help(Handled As Boolean, ByVal Action As Integer, ByVal hDlg As Long)
+        Helps = Helps + 1
+        LastHelpAction = Action
+        Handled = True
+    End Sub
+
+    Private Sub mDlg_FindNext()
+        FindNexts = FindNexts + 1
+        FindWhatAtEvent = mDlg.FindWhat
+        FlagsAtEvent = mDlg.Flags
+    End Sub
+
+    Private Sub mDlg_Replace()
+        Replaces = Replaces + 1
+        FindWhatAtEvent = mDlg.FindWhat
+        ReplaceWithAtEvent = mDlg.ReplaceWith
+        FlagsAtEvent = mDlg.Flags
+    End Sub
+
+    Private Sub mDlg_ReplaceAll()
+        ReplaceAlls = ReplaceAlls + 1
+    End Sub
+
+End Class
diff --git a/test/package-tests/VBComDlg/Sources/PropertyTests.twin b/test/package-tests/VBComDlg/Sources/PropertyTests.twin
new file mode 100644
index 00000000..632628a5
--- /dev/null
+++ b/test/package-tests/VBComDlg/Sources/PropertyTests.twin
@@ -0,0 +1,467 @@
+' CommonDialog: the properties, their defaults, the values they refuse and the ones that cannot be written.
+'
+' No case here shows a dialog.
+[TestFixture]
+Module PropertyTests
+
+    Private Declare PtrSafe Function GetLocaleInfoW Lib "kernel32" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As LongPtr, ByVal cchData As Long) As Long
+
+    ' ---- Action
+
+    [TestCase]
+    Public Sub Action_Read_Raises394()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim v As Integer
+        On Error Resume Next
+        v = dlg.Action
+        Expect.AreEqual 394, Err.Number, "Err.Number reading Action"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Action_OutOfRange_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.Action = 0
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 0 to Action"
+        Err.Clear
+        dlg.Action = 11
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 11 to Action"
+        Err.Clear
+        dlg.Action = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to Action"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Action_Nine_OpensFindDialog()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim snk As New FindSink
+        snk.Attach dlg
+        dlg.HookEvents = True
+        dlg.Action = 9
+        Expect.AreEqual 1, snk.InitDialogs, "InitDialog events raised by assigning 9 to Action"
+        Expect.AreEqual 9, snk.LastInitAction, "Action argument of that InitDialog event (9 = Find)"
+        DialogDriver.CloseDialog snk.LastInitHandle
+        snk.Detach
+        Expect.Done
+    End Sub
+
+    ' ---- read-only properties
+
+    [TestCase]
+    Public Sub HDC_Write_Raises383()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.hDC = 1
+        Expect.AreEqual 383, Err.Number, "Err.Number writing hDC"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileTitle_Write_Raises383()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.FileTitle = "x.txt"
+        Expect.AreEqual 383, Err.Number, "Err.Number writing FileTitle"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileOffset_Write_Raises383()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.FileOffset = 1
+        Expect.AreEqual 383, Err.Number, "Err.Number writing FileOffset"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Object_ReturnsTheInstance()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.IsTrue dlg.Object Is dlg, "Object is the instance itself"
+        Expect.Done
+    End Sub
+
+    ' ---- values that raise error 380
+
+    [TestCase]
+    Public Sub MaxFileSize_Zero_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.MaxFileSize = 0
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 0 to MaxFileSize"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FilterIndex_Negative_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.FilterIndex = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to FilterIndex"
+        Err.Clear
+        dlg.FilterIndex = 0
+        Expect.AreEqual 0, Err.Number, "Err.Number assigning 0 to FilterIndex"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MinMaxFromPageToPage_Negative_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.Min = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to Min"
+        Err.Clear
+        dlg.Max = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to Max"
+        Err.Clear
+        dlg.FromPage = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to FromPage"
+        Err.Clear
+        dlg.ToPage = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to ToPage"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Copies_Zero_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.Copies = 0
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 0 to Copies"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Margins_Negative_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.PageLeftMargin = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to PageLeftMargin"
+        Err.Clear
+        dlg.PageTopMargin = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to PageTopMargin"
+        Err.Clear
+        dlg.PageRightMargin = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to PageRightMargin"
+        Err.Clear
+        dlg.PageBottomMargin = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to PageBottomMargin"
+        Err.Clear
+        dlg.PageLeftMinMargin = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to PageLeftMinMargin"
+        Err.Clear
+        dlg.PageTopMinMargin = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to PageTopMinMargin"
+        Err.Clear
+        dlg.PageRightMinMargin = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to PageRightMinMargin"
+        Err.Clear
+        dlg.PageBottomMinMargin = -1
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -1 to PageBottomMinMargin"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PrinterEnumerations_OutOfSet_Raise380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.Orientation = 5
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 5 to Orientation"
+        Err.Clear
+        dlg.ColorMode = 3
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 3 to ColorMode"
+        Err.Clear
+        dlg.Duplex = 4
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 4 to Duplex"
+        Err.Clear
+        dlg.PaperSize = 0
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 0 to PaperSize"
+        Err.Clear
+        dlg.PaperBin = 0
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 0 to PaperBin"
+        Err.Clear
+        dlg.PrintQuality = -5
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -5 to PrintQuality"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PrintQuality_DotsPerInch_Accepted()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.PrintQuality = 600
+        Expect.AreEqual 0, Err.Number, "Err.Number assigning 600 to PrintQuality"
+        Expect.AreEqual 600, CLng(dlg.PrintQuality), "PrintQuality after assigning 600"
+        Err.Clear
+        dlg.PrintQuality = 32767
+        Expect.AreEqual 0, Err.Number, "Err.Number assigning 32767 to PrintQuality"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub HelpCommand_NotAConstant_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.HelpCommand = 999
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 999 to HelpCommand"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowHelp_CommandZero_DoesNothing()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.HelpFile = "no such file.hlp"
+        Expect.AreEqual 0, CLng(dlg.HelpCommand), "HelpCommand by default"
+        On Error Resume Next
+        dlg.ShowHelp
+        Expect.AreEqual 0, Err.Number, "Err.Number calling ShowHelp with HelpCommand 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RootFolder_Types()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        Expect.IsTrue IsEmpty(dlg.RootFolder), "RootFolder by default is Empty"
+        dlg.RootFolder = &H11&
+        Expect.AreEqual 0, Err.Number, "Err.Number assigning a Long CSIDL to RootFolder"
+        Err.Clear
+        dlg.RootFolder = "C:\Windows"
+        Expect.AreEqual 0, Err.Number, "Err.Number assigning a path to RootFolder"
+        Err.Clear
+        dlg.RootFolder = 17.0
+        Expect.AreEqual 0, Err.Number, "Err.Number assigning a Double to RootFolder"
+        Err.Clear
+        dlg.RootFolder = True
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning a Boolean to RootFolder"
+        Err.Clear
+        dlg.RootFolder = Now
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning a Date to RootFolder"
+        Expect.Done
+    End Sub
+
+    ' ---- fonts
+
+    [TestCase]
+    Public Sub FontBold_True_SetsWeight700()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.FontBold = True
+        Expect.AreEqual 700, CLng(dlg.FontWeight), "FontWeight after FontBold = True"
+        dlg.FontBold = False
+        Expect.AreEqual 400, CLng(dlg.FontWeight), "FontWeight after FontBold = False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FontBold_Get_IsWeight600OrHigher()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.FontWeight = 500
+        Expect.IsFalse dlg.FontBold, "FontBold at FontWeight 500"
+        dlg.FontWeight = 600
+        Expect.IsTrue dlg.FontBold, "FontBold at FontWeight 600"
+        dlg.FontWeight = 900
+        Expect.IsTrue dlg.FontBold, "FontBold at FontWeight 900"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FontWeight_StandardValues_Accepted()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Dim w As Long
+        On Error Resume Next
+        For w = 0 To 900 Step 100
+            Err.Clear
+            dlg.FontWeight = w
+            Expect.AreEqual 0, Err.Number, "Err.Number assigning " & w & " to FontWeight"
+            Expect.AreEqual w, CLng(dlg.FontWeight), "FontWeight after assigning " & w
+        Next w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FontWeight_OtherValue_Raises380()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        On Error Resume Next
+        dlg.FontWeight = 450
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 450 to FontWeight"
+        Err.Clear
+        dlg.FontWeight = 1000
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning 1000 to FontWeight"
+        Err.Clear
+        dlg.FontWeight = -100
+        Expect.AreEqual 380, Err.Number, "Err.Number assigning -100 to FontWeight"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowFont_NoFontFlags_ShowsTheDialog()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.Flags = 0
+        Dim shown As Boolean, n As Long, closed As Long
+        On Error Resume Next
+        DialogDriver.StartDismissing
+        shown = dlg.ShowFont
+        n = Err.Number
+        closed = DialogDriver.StopDismissing()
+        Expect.AreEqual 1, closed, "dialogs ShowFont opened with neither CdlCFScreenFonts nor CdlCFPrinterFonts in Flags (closed by the test)"
+        Expect.IsFalse shown, "ShowFont returns False when the test closes the dialog"
+        Expect.AreEqual 0, n, "Err.Number from ShowFont with neither CdlCFScreenFonts nor CdlCFPrinterFonts in Flags, the dialog closed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CancelError_True_ClosedDialogRaisesCdlCancel()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.Flags = CdlCFScreenFonts
+        dlg.CancelError = True
+        Dim n As Long, closed As Long
+        On Error Resume Next
+        DialogDriver.StartDismissing
+        dlg.ShowFont
+        n = Err.Number
+        closed = DialogDriver.StopDismissing()
+        Expect.AreEqual 1, closed, "dialogs ShowFont opened (closed by the test)"
+        Expect.AreEqual CdlCancel, n, "Err.Number from ShowFont with CancelError True and the dialog closed with its X button"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CancelError_False_ClosedDialogRaisesNothing()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.Flags = CdlCFScreenFonts
+        Dim shown As Boolean, n As Long, closed As Long
+        On Error Resume Next
+        DialogDriver.StartDismissing
+        shown = dlg.ShowFont
+        n = Err.Number
+        closed = DialogDriver.StopDismissing()
+        Expect.AreEqual 1, closed, "dialogs ShowFont opened (closed by the test)"
+        Expect.IsFalse shown, "ShowFont returns False when the dialog is closed with its X button"
+        Expect.AreEqual 0, n, "Err.Number from ShowFont with CancelError False and the dialog closed with its X button"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowFont_MaxLessThanMin_RaisesMaxLessThanMin()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.Flags = CdlCFScreenFonts Or CdlCFLimitSize
+        dlg.Min = 20
+        dlg.Max = 10
+        On Error Resume Next
+        dlg.ShowFont
+        Expect.AreEqual CdlMaxLessThanMin, Err.Number, "Err.Number from ShowFont with Max (10) below Min (20)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowFont_MaxLessThanMinWithoutLimitSize_RaisesNothing()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        dlg.Flags = CdlCFScreenFonts
+        dlg.Min = 20
+        dlg.Max = 10
+        Dim n As Long, closed As Long
+        On Error Resume Next
+        DialogDriver.StartDismissing
+        dlg.ShowFont
+        n = Err.Number
+        closed = DialogDriver.StopDismissing()
+        Expect.AreEqual 1, closed, "dialogs ShowFont opened with Max (10) below Min (20) and CdlCFLimitSize not set (closed by the test)"
+        Expect.AreEqual 0, n, "Err.Number from ShowFont with Max (10) below Min (20) and CdlCFLimitSize not set, the dialog closed"
+        Expect.Done
+    End Sub
+
+    ' ---- defaults
+
+    [TestCase]
+    Public Sub Defaults_Font()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual "", dlg.FontName, "default FontName"
+        Expect.AreEqual 8!, dlg.FontSize, "default FontSize"
+        Expect.AreEqual 400, CLng(dlg.FontWeight), "default FontWeight"
+        Expect.AreEqual 0, CLng(dlg.FontCharset), "default FontCharset"
+        Expect.IsFalse dlg.FontBold, "default FontBold"
+        Expect.IsFalse dlg.FontItalic, "default FontItalic"
+        Expect.IsFalse dlg.FontStrikethru, "default FontStrikethru"
+        Expect.IsFalse dlg.FontUnderline, "default FontUnderline"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_Print()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual 1, CLng(dlg.Copies), "default Copies"
+        Expect.AreEqual CdlPRORPortrait, dlg.Orientation, "default Orientation"
+        Expect.AreEqual CdlPRBNAuto, dlg.PaperBin, "default PaperBin"
+        Expect.AreEqual CdlPRPQHigh, dlg.PrintQuality, "default PrintQuality"
+        Expect.AreEqual CdlPRCMColor, dlg.ColorMode, "default ColorMode"
+        Expect.AreEqual CdlPRDPSimplex, dlg.Duplex, "default Duplex"
+        Expect.IsTrue dlg.PrinterDefault, "default PrinterDefault"
+        Expect.IsTrue dlg.PrinterDefaultInit, "default PrinterDefaultInit"
+        Expect.AreEqual 0, dlg.FromPage, "default FromPage"
+        Expect.AreEqual 0, dlg.ToPage, "default ToPage"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_PaperSizeFollowsTheMeasurementSystem()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Const LOCALE_USER_DEFAULT As Long = &H400
+        Const LOCALE_IMEASURE As Long = &HD
+        Const LOCALE_RETURN_NUMBER As Long = &H20000000
+        Dim measure As Long
+        GetLocaleInfoW LOCALE_USER_DEFAULT, LOCALE_IMEASURE Or LOCALE_RETURN_NUMBER, VarPtr(measure), 2
+        If measure = 0 Then
+            Expect.AreEqual CdlPRPSA4, dlg.PaperSize, "default PaperSize when the user's locale is metric"
+        Else
+            Expect.AreEqual CdlPRPSLetter, dlg.PaperSize, "default PaperSize when the user's locale is not metric"
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_Files()
+        Expect.Begin
+        Dim dlg As New CommonDialog
+        Expect.AreEqual 260, dlg.MaxFileSize, "default MaxFileSize"
+        Expect.AreEqual 0, dlg.FilterIndex, "default FilterIndex"
+        Expect.AreEqual "", dlg.InitDir, "default InitDir"
+        Expect.AreEqual "", dlg.DialogTitle, "default DialogTitle"
+        Expect.IsFalse dlg.CancelError, "default CancelError"
+        Expect.IsFalse dlg.HookEvents, "default HookEvents"
+        Expect.AreEqual 0, CLng(dlg.FileOffset), "default FileOffset"
+        Expect.AreEqual "", dlg.FileTitle, "default FileTitle"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBComDlg/Sources/RunAll.twin b/test/package-tests/VBComDlg/Sources/RunAll.twin
new file mode 100644
index 00000000..51ab80a0
--- /dev/null
+++ b/test/package-tests/VBComDlg/Sources/RunAll.twin
@@ -0,0 +1,242 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package VBComDlg, version 1.0.13.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "VBComDlg 1.0.13.0: 57 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Get_DefaultIsSixteenLongsFromZero
+        Expect.EndCase "CustomColorsTests.Get_DefaultIsSixteenLongsFromZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_ShortArrayLeavesTheRest
+        Expect.EndCase "CustomColorsTests.Let_ShortArrayLeavesTheRest", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_FirstElementIsFirstColourWhateverTheLowerBound
+        Expect.EndCase "CustomColorsTests.Let_FirstElementIsFirstColourWhateverTheLowerBound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_MoreThanSixteenElementsAreIgnored
+        Expect.EndCase "CustomColorsTests.Let_MoreThanSixteenElementsAreIgnored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_StringHoldingANumberIsAccepted
+        Expect.EndCase "CustomColorsTests.Let_StringHoldingANumberIsAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_OleColourIsTranslated
+        Expect.EndCase "CustomColorsTests.Let_OleColourIsTranslated", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_ElementNotAColour_RaisesTypeMismatchAndKeepsEarlierElements
+        Expect.EndCase "CustomColorsTests.Let_ElementNotAColour_RaisesTypeMismatchAndKeepsEarlierElements", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_NullElement_RaisesInvalidUseOfNull
+        Expect.EndCase "CustomColorsTests.Let_NullElement_RaisesInvalidUseOfNull", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_MultiDimensionalArray_Raises5
+        Expect.EndCase "CustomColorsTests.Let_MultiDimensionalArray_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_UnallocatedArray_Raises91
+        Expect.EndCase "CustomColorsTests.Let_UnallocatedArray_Raises91", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_Empty_RestoresDefaults
+        Expect.EndCase "CustomColorsTests.Let_Empty_RestoresDefaults", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CustomColorsTests.Let_NotAnArray_Raises380
+        Expect.EndCase "CustomColorsTests.Let_NotAnArray_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.InitDialog_FindWithoutHook_NotRaised
+        Expect.EndCase "FindReplaceTests.InitDialog_FindWithoutHook_NotRaised", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.InitDialog_FindWithHook_Raised
+        Expect.EndCase "FindReplaceTests.InitDialog_FindWithHook_Raised", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.InitDialog_ReplaceWithHook_Raised
+        Expect.EndCase "FindReplaceTests.InitDialog_ReplaceWithHook_Raised", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.InitDialog_HookEventsSetAfterShow_NotRaised
+        Expect.EndCase "FindReplaceTests.InitDialog_HookEventsSetAfterShow_NotRaised", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.FindNext_WithoutHook_Raised
+        Expect.EndCase "FindReplaceTests.FindNext_WithoutHook_Raised", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.FindNext_FlagsUpdatedBeforeEvent
+        Expect.EndCase "FindReplaceTests.FindNext_FlagsUpdatedBeforeEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.Replace_WithoutHook_Raised
+        Expect.EndCase "FindReplaceTests.Replace_WithoutHook_Raised", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.Help_FindWithoutHook_Raised
+        Expect.EndCase "FindReplaceTests.Help_FindWithoutHook_Raised", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.ShowFind_WhileOpen_ReturnsZero
+        Expect.EndCase "FindReplaceTests.ShowFind_WhileOpen_ReturnsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.ShowReplace_WhileFindOpen_ReturnsZero
+        Expect.EndCase "FindReplaceTests.ShowReplace_WhileFindOpen_ReturnsZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.ShowFind_AfterClose_OpensAgain
+        Expect.EndCase "FindReplaceTests.ShowFind_AfterClose_OpensAgain", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.ReplaceAll_ButtonRaisesEvent
+        Expect.EndCase "FindReplaceTests.ReplaceAll_ButtonRaisesEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.ReplaceAll_MessageRaisesEvent
+        Expect.EndCase "FindReplaceTests.ReplaceAll_MessageRaisesEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.ReplaceAll_MessageForReplaceRaisesReplace
+        Expect.EndCase "FindReplaceTests.ReplaceAll_MessageForReplaceRaisesReplace", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FindReplaceTests.ReplaceAll_ButtonRaisesNoOtherEvent
+        Expect.EndCase "FindReplaceTests.ReplaceAll_ButtonRaisesNoOtherEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Action_Read_Raises394
+        Expect.EndCase "PropertyTests.Action_Read_Raises394", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Action_OutOfRange_Raises380
+        Expect.EndCase "PropertyTests.Action_OutOfRange_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Action_Nine_OpensFindDialog
+        Expect.EndCase "PropertyTests.Action_Nine_OpensFindDialog", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.HDC_Write_Raises383
+        Expect.EndCase "PropertyTests.HDC_Write_Raises383", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.FileTitle_Write_Raises383
+        Expect.EndCase "PropertyTests.FileTitle_Write_Raises383", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.FileOffset_Write_Raises383
+        Expect.EndCase "PropertyTests.FileOffset_Write_Raises383", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Object_ReturnsTheInstance
+        Expect.EndCase "PropertyTests.Object_ReturnsTheInstance", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.MaxFileSize_Zero_Raises380
+        Expect.EndCase "PropertyTests.MaxFileSize_Zero_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.FilterIndex_Negative_Raises380
+        Expect.EndCase "PropertyTests.FilterIndex_Negative_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.MinMaxFromPageToPage_Negative_Raises380
+        Expect.EndCase "PropertyTests.MinMaxFromPageToPage_Negative_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Copies_Zero_Raises380
+        Expect.EndCase "PropertyTests.Copies_Zero_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Margins_Negative_Raises380
+        Expect.EndCase "PropertyTests.Margins_Negative_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.PrinterEnumerations_OutOfSet_Raise380
+        Expect.EndCase "PropertyTests.PrinterEnumerations_OutOfSet_Raise380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.PrintQuality_DotsPerInch_Accepted
+        Expect.EndCase "PropertyTests.PrintQuality_DotsPerInch_Accepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.HelpCommand_NotAConstant_Raises380
+        Expect.EndCase "PropertyTests.HelpCommand_NotAConstant_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.ShowHelp_CommandZero_DoesNothing
+        Expect.EndCase "PropertyTests.ShowHelp_CommandZero_DoesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.RootFolder_Types
+        Expect.EndCase "PropertyTests.RootFolder_Types", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.FontBold_True_SetsWeight700
+        Expect.EndCase "PropertyTests.FontBold_True_SetsWeight700", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.FontBold_Get_IsWeight600OrHigher
+        Expect.EndCase "PropertyTests.FontBold_Get_IsWeight600OrHigher", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.FontWeight_StandardValues_Accepted
+        Expect.EndCase "PropertyTests.FontWeight_StandardValues_Accepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.FontWeight_OtherValue_Raises380
+        Expect.EndCase "PropertyTests.FontWeight_OtherValue_Raises380", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.ShowFont_NoFontFlags_ShowsTheDialog
+        Expect.EndCase "PropertyTests.ShowFont_NoFontFlags_ShowsTheDialog", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.CancelError_True_ClosedDialogRaisesCdlCancel
+        Expect.EndCase "PropertyTests.CancelError_True_ClosedDialogRaisesCdlCancel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.CancelError_False_ClosedDialogRaisesNothing
+        Expect.EndCase "PropertyTests.CancelError_False_ClosedDialogRaisesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.ShowFont_MaxLessThanMin_RaisesMaxLessThanMin
+        Expect.EndCase "PropertyTests.ShowFont_MaxLessThanMin_RaisesMaxLessThanMin", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.ShowFont_MaxLessThanMinWithoutLimitSize_RaisesNothing
+        Expect.EndCase "PropertyTests.ShowFont_MaxLessThanMinWithoutLimitSize_RaisesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Defaults_Font
+        Expect.EndCase "PropertyTests.Defaults_Font", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Defaults_Print
+        Expect.EndCase "PropertyTests.Defaults_Print", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Defaults_PaperSizeFollowsTheMeasurementSystem
+        Expect.EndCase "PropertyTests.Defaults_PaperSizeFollowsTheMeasurementSystem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PropertyTests.Defaults_Files
+        Expect.EndCase "PropertyTests.Defaults_Files", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/VBComDlg/expect.json b/test/package-tests/VBComDlg/expect.json
new file mode 100644
index 00000000..ceb1074b
--- /dev/null
+++ b/test/package-tests/VBComDlg/expect.json
@@ -0,0 +1,11 @@
+{
+  "version": "1.0.13.0",
+  "cases": {
+    "FindReplaceTests.ReplaceAll_ButtonRaisesEvent": {
+      "fails": "1 of 2 checks failed: ReplaceAll events raised by pressing Replace All: expected 1, got 0"
+    },
+    "FindReplaceTests.ReplaceAll_MessageRaisesEvent": {
+      "fails": "1 of 1 checks failed: ReplaceAll events raised by the message a Replace All press sends (FR_REPLACEALL): expected 1, got 0"
+    }
+  }
+}
diff --git a/test/package-tests/tbProjPacker/Resources/BINARY/#201 b/test/package-tests/tbProjPacker/Resources/BINARY/#201
new file mode 100644
index 00000000..cee86b38
Binary files /dev/null and b/test/package-tests/tbProjPacker/Resources/BINARY/#201 differ
diff --git a/test/package-tests/tbProjPacker/Sources/CleanFirstTests.twin b/test/package-tests/tbProjPacker/Sources/CleanFirstTests.twin
new file mode 100644
index 00000000..cfda87d3
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/CleanFirstTests.twin
@@ -0,0 +1,230 @@
+' tbProjPacker, ProjPacker.Unpack with cleanFirst: when it empties the folder, and when it refuses.
+'
+' A path directly under a drive root is a drive letter made of a sandbox folder (Sandbox.MapDrive),
+' so what Unpack deletes, or should refuse to, is only the sandbox.
+[TestFixture]
+Module CleanFirstTests
+
+    Private Sub WriteReference(ByVal Path As String)
+        Files.WriteBytes Path, Sample.ReferenceBytes()
+    End Sub
+
+    ' A folder that holds Settings and files that belong to no project.
+    Private Sub FillLikeAProject(ByVal Folder As String)
+        Files.MakeFolder Folder & "\Stale\Deeper"
+        Files.WriteText Folder & "\Settings", "old settings"
+        Files.WriteText Folder & "\Precious.txt", "precious"
+        Files.WriteText Folder & "\Stale\Deeper\old.txt", "old"
+        Files.WriteText Folder & "\Hidden.txt", "hidden"
+        SetAttr Folder & "\Hidden.txt", vbHidden
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_FolderThatLooksLikeAProject_IsEmptiedOfEverything()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String
+        base = Sandbox.Fresh("Clean_Everything")
+        WriteReference base & "\Sample.twinproj"
+        out = base & "\Level1\Level2"
+        FillLikeAProject out
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", out, True), "Unpack with cleanFirst into a folder with a Settings file returns True"
+        Sample.ExpectTree out, "the folder after Unpack with cleanFirst"
+        Expect.IsFalse Files.Exists(out & "\Precious.txt"), "a file that belongs to no project"
+        Expect.IsFalse Files.Exists(out & "\Hidden.txt"), "a hidden file that belongs to no project"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_FolderThatDoesNotExist_Proceeds()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String
+        base = Sandbox.Fresh("Clean_NoFolder")
+        WriteReference base & "\Sample.twinproj"
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", base & "\a\b\Out", True), "Unpack with cleanFirst to a folder that does not exist returns True"
+        Sample.ExpectTree base & "\a\b\Out", "the folder after Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_EmptyFolder_Proceeds()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String
+        base = Sandbox.Fresh("Clean_Empty")
+        WriteReference base & "\Sample.twinproj"
+        Files.MakeFolder base & "\a\b\Out"
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", base & "\a\b\Out", True), "Unpack with cleanFirst into an empty folder returns True"
+        Sample.ExpectTree base & "\a\b\Out", "the folder after Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_FolderWithFilesAndNoSettings_IsRefused()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String, logFile As String, before As String
+        base = Sandbox.Fresh("Clean_NoSettings")
+        WriteReference base & "\Sample.twinproj"
+        out = base & "\a\b\Out"
+        Files.MakeFolder out & "\Sub"
+        Files.WriteText out & "\mine.txt", "mine"
+        Files.WriteText out & "\Sub\more.txt", "more"
+        before = Files.ListTree(out)
+        logFile = base & "\unpack.log"
+        Expect.IsFalse pp.Unpack(base & "\Sample.twinproj", out, True, logFile), "Unpack with cleanFirst into a folder with files and no Settings returns False"
+        Expect.AreEqual before, Files.ListTree(out), "the folders and files after the refused Unpack"
+        Expect.AreEqual "mine", Files.ReadText(out & "\mine.txt"), "mine.txt"
+        Dim expected As String
+        expected = "Unpack failed: Refusing to clean """ & out & """: it is not empty and has no top-level 'Settings' file"
+        Expect.AreEqual expected, Files.Head(Files.ReadText(logFile), expected), "the log"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_FolderWhoseSettingsIsAFolder_IsRefused()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String, before As String
+        base = Sandbox.Fresh("Clean_SettingsFolder")
+        WriteReference base & "\Sample.twinproj"
+        out = base & "\a\b\Out"
+        Files.MakeFolder out & "\Settings"
+        Files.WriteText out & "\Settings\inner.txt", "inner"
+        Files.WriteText out & "\mine.txt", "mine"
+        before = Files.ListTree(out)
+        Expect.IsFalse pp.Unpack(base & "\Sample.twinproj", out, True), "Unpack with cleanFirst into a folder whose Settings is a folder returns False"
+        Expect.AreEqual before, Files.ListTree(out), "the folders and files after the refused Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_DriveRoot_IsRefused()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, drive As String, logFile As String, before As String
+        base = Sandbox.Fresh("Clean_DriveRoot")
+        WriteReference base & "\Sample.twinproj"
+        Files.MakeFolder base & "\Root"
+        Files.WriteText base & "\Root\Settings", "s"
+        Files.WriteText base & "\Root\mine.txt", "mine"
+        before = Files.ListTree(base & "\Root")
+        drive = Sandbox.MapDrive(base & "\Root")
+        If Len(drive) = 0 Then
+            Expect.Fail "no drive letter could be made of a folder of the sandbox"
+        Else
+            logFile = base & "\unpack.log"
+            Expect.IsFalse pp.Unpack(base & "\Sample.twinproj", drive & "\", True, logFile), "Unpack with cleanFirst into the root of a drive returns False"
+            Expect.AreEqual before, Files.ListTree(base & "\Root"), "the folders and files of the drive after the refused Unpack"
+            Expect.AreEqual "Unpack failed: Refusing to clean a shallow path: """, Files.Head(Files.ReadText(logFile), "Unpack failed: Refusing to clean a shallow path: """), "the log"
+        End If
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_FolderDirectlyUnderADriveRoot_IsRefusedEvenWithASettingsFile()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, drive As String, logFile As String, before As String
+        base = Sandbox.Fresh("Clean_UnderRoot")
+        WriteReference base & "\Sample.twinproj"
+        FillLikeAProject base & "\Root\Projects"
+        before = Files.ListTree(base & "\Root")
+        drive = Sandbox.MapDrive(base & "\Root")
+        If Len(drive) = 0 Then
+            Expect.Fail "no drive letter could be made of a folder of the sandbox"
+        Else
+            logFile = base & "\unpack.log"
+            Expect.IsFalse pp.Unpack(base & "\Sample.twinproj", drive & "\Projects", True, logFile), "Unpack with cleanFirst into a folder directly under a drive root, which holds a Settings file, returns False"
+            Expect.AreEqual before, Files.ListTree(base & "\Root"), "the folders and files of the drive after the refused Unpack"
+            Dim expected As String
+            expected = "Unpack failed: Refusing to clean a shallow path: """ & drive & "\Projects"""
+            Expect.AreEqual expected, Files.Head(Files.ReadText(logFile), expected), "the log"
+        End If
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_FolderTwoLevelsBelowADriveRoot_IsEmptied()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, drive As String
+        base = Sandbox.Fresh("Clean_TwoLevels")
+        WriteReference base & "\Sample.twinproj"
+        FillLikeAProject base & "\Root\Projects\MyApp"
+        drive = Sandbox.MapDrive(base & "\Root")
+        If Len(drive) = 0 Then
+            Expect.Fail "no drive letter could be made of a folder of the sandbox"
+        Else
+            Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", drive & "\Projects\MyApp", True), "Unpack with cleanFirst into a folder two levels below a drive root returns True"
+            Sample.ExpectTree base & "\Root\Projects\MyApp", "the folder after Unpack"
+        End If
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_EmptyFolderDirectlyUnderADriveRoot_Proceeds()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, drive As String
+        base = Sandbox.Fresh("Clean_EmptyUnderRoot")
+        WriteReference base & "\Sample.twinproj"
+        Files.MakeFolder base & "\Root\Projects"
+        drive = Sandbox.MapDrive(base & "\Root")
+        If Len(drive) = 0 Then
+            Expect.Fail "no drive letter could be made of a folder of the sandbox"
+        Else
+            Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", drive & "\Projects", True), "Unpack with cleanFirst into an empty folder directly under a drive root returns True"
+            Sample.ExpectTree base & "\Root\Projects", "the folder after Unpack"
+        End If
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CleanFirst_ShallowCheckComesBeforeTheSettingsCheck()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, drive As String, logFile As String
+        base = Sandbox.Fresh("Clean_Order")
+        WriteReference base & "\Sample.twinproj"
+        Files.MakeFolder base & "\Root\Projects"
+        Files.WriteText base & "\Root\Projects\mine.txt", "mine"
+        drive = Sandbox.MapDrive(base & "\Root")
+        If Len(drive) = 0 Then
+            Expect.Fail "no drive letter could be made of a folder of the sandbox"
+        Else
+            logFile = base & "\unpack.log"
+            Expect.IsFalse pp.Unpack(base & "\Sample.twinproj", drive & "\Projects", True, logFile), "Unpack with cleanFirst into a non-empty folder with no Settings, directly under a drive root, returns False"
+            Expect.AreEqual "Unpack failed: Refusing to clean a shallow path: """, Files.Head(Files.ReadText(logFile), "Unpack failed: Refusing to clean a shallow path: """), "the reason is the shallow path, not the missing Settings"
+        End If
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_WithoutCleanFirst_DeletesNothing()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String
+        base = Sandbox.Fresh("Clean_Off")
+        WriteReference base & "\Sample.twinproj"
+        out = base & "\a\b\Out"
+        FillLikeAProject out
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", out), "Unpack with cleanFirst left out returns True"
+        Expect.AreEqual "precious", Files.ReadText(out & "\Precious.txt"), "Precious.txt"
+        Expect.AreEqual "old", Files.ReadText(out & "\Stale\Deeper\old.txt"), "Stale\Deeper\old.txt"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/Files.twin b/test/package-tests/tbProjPacker/Sources/Files.twin
new file mode 100644
index 00000000..05c63430
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/Files.twin
@@ -0,0 +1,191 @@
+' Files: reading, writing and listing files for the test cases of tbProjPacker. Nothing here uses
+' the package, so a case can tell what the package wrote from what it was given.
+Module Files
+
+    ' A path of 248 characters or more in its \\?\ form, as the Win32 file functions take it.
+    Public Function Api(ByVal Path As String) As String
+        If Len(Path) >= 248 And Left$(Path, 4) <> "\\?\" Then Api = "\\?\" & Path Else Api = Path
+    End Function
+
+    Public Function Exists(ByVal Path As String) As Boolean
+        Dim a As Long
+        On Error Resume Next
+        a = GetAttr(Api(Path))
+        Exists = (Err.Number = 0)
+        Err.Clear
+    End Function
+
+    Public Function IsFolder(ByVal Path As String) As Boolean
+        Dim a As Long
+        On Error Resume Next
+        a = GetAttr(Api(Path))
+        If Err.Number = 0 Then IsFolder = ((a And vbDirectory) <> 0)
+        Err.Clear
+    End Function
+
+    Public Sub MakeFolder(ByVal Path As String)
+        Dim p As Long
+        If IsFolder(Path) Then Exit Sub
+        p = InStrRev(Path, "\")
+        If p > 3 Then MakeFolder Left$(Path, p - 1)
+        MkDir Path
+    End Sub
+
+    ' The bytes of a string of characters below 128.
+    Public Function BytesOf(ByVal Text As String) As Byte()
+        Dim b() As Byte
+        Dim i As Long
+        ReDim b(0 To Len(Text) - 1)
+        For i = 1 To Len(Text)
+            b(i - 1) = AscW(Mid$(Text, i, 1)) And &HFF
+        Next
+        BytesOf = b
+    End Function
+
+    Public Function TextOf(ByRef B() As Byte) As String
+        Dim i As Long
+        Dim s As String
+        For i = LBound(B) To UBound(B)
+            s = s & ChrW$(B(i))
+        Next
+        TextOf = s
+    End Function
+
+    Public Function HexOf(ByRef B() As Byte) As String
+        Dim i As Long
+        Dim s As String
+        For i = LBound(B) To UBound(B)
+            s = s & Right$("0" & Hex$(B(i)), 2)
+        Next
+        HexOf = s
+    End Function
+
+    ' Writes Text (characters below 128) as a file, replacing the file.
+    Public Sub WriteText(ByVal Path As String, ByVal Text As String)
+        Dim b() As Byte
+        b = BytesOf(Text)
+        WriteBytes Path, b
+    End Sub
+
+    ' Writes bytes as a file, replacing the file, in a folder that exists.
+    Public Sub WriteBytes(ByVal Path As String, ByRef B() As Byte)
+        Dim f As Integer
+        If Exists(Path) Then Kill Api(Path)
+        f = FreeFile
+        Open Api(Path) For Binary Access Write As #f
+        Put #f, 1, B
+        Close #f
+    End Sub
+
+    Public Function ReadBytes(ByVal Path As String) As Byte()
+        Dim f As Integer
+        Dim n As Long
+        Dim b() As Byte
+        f = FreeFile
+        Open Api(Path) For Binary Access Read As #f
+        n = LOF(f)
+        If n > 0 Then
+            ReDim b(0 To n - 1)
+            Get #f, 1, b
+        End If
+        Close #f
+        ReadBytes = b
+    End Function
+
+    ' The file as characters, each byte one character. A log or a source file the cases write is
+    ' ASCII, so this reads it as it is.
+    Public Function ReadText(ByVal Path As String) As String
+        Dim b() As Byte
+        b = ReadBytes(Path)
+        ReadText = TextOf(b)
+    End Function
+
+    Public Function SizeOf(ByVal Path As String) As Long
+        SizeOf = FileLen(Api(Path))
+    End Function
+
+    ' "" when the two arrays hold the same bytes, else where they first differ.
+    Public Function Difference(ByRef A() As Byte, ByRef B() As Byte) As String
+        Dim i As Long, n As Long
+        n = UBound(A)
+        If UBound(B) < n Then n = UBound(B)
+        For i = 0 To n
+            If A(i) <> B(i) Then
+                Difference = "byte " & i & " is " & Hex$(A(i)) & " in the first and " & Hex$(B(i)) & " in the second"
+                Exit Function
+            End If
+        Next
+        If UBound(A) <> UBound(B) Then Difference = "the first is " & (UBound(A) + 1) & " bytes and the second " & (UBound(B) + 1)
+    End Function
+
+    ' The folders and files under Root, one per line as a path relative to Root (a folder with a
+    ' backslash at its end), in code-unit order, joined with "|". Hidden files are listed.
+    Public Function ListTree(ByVal Root As String) As String
+        Dim acc As String
+        Walk Root, "", acc
+        ListTree = SortedJoin(acc)
+    End Function
+
+    ' The same sorting and joining for lines given in any order, one per vbLf.
+    Public Function SortedJoin(ByVal Lines As String) As String
+        Dim parts() As String
+        Dim i As Long, j As Long, t As String
+        If Right$(Lines, 1) = vbLf Then Lines = Left$(Lines, Len(Lines) - 1)
+        If Len(Lines) = 0 Then Exit Function
+        parts = Split(Lines, vbLf)
+        For i = 1 To UBound(parts)
+            t = parts(i)
+            j = i - 1
+            Do While j >= 0
+                If StrComp(parts(j), t, vbBinaryCompare) <= 0 Then Exit Do
+                parts(j + 1) = parts(j)
+                j = j - 1
+            Loop
+            parts(j + 1) = t
+        Next
+        SortedJoin = Join(parts, "|")
+    End Function
+
+    Private Sub Walk(ByVal Folder As String, ByVal Rel As String, ByRef Acc As String)
+        Dim names() As String
+        Dim nm As String, found As String
+        Dim i As Long
+        nm = Dir$(Folder & "\*", vbDirectory Or vbHidden Or vbSystem)
+        Do While Len(nm) > 0
+            If nm <> "." And nm <> ".." Then found = found & nm & vbLf
+            nm = Dir$
+        Loop
+        If Len(found) = 0 Then Exit Sub
+        names = Split(Left$(found, Len(found) - 1), vbLf)
+        For i = 0 To UBound(names)
+            If IsFolder(Folder & "\" & names(i)) Then
+                Acc = Acc & Rel & names(i) & "\" & vbLf
+                Walk Folder & "\" & names(i), Rel & names(i) & "\", Acc
+            Else
+                Acc = Acc & Rel & names(i) & vbLf
+            End If
+        Next
+    End Sub
+
+    ' The first Len(Prefix) characters of Text, to compare with Prefix.
+    Public Function Head(ByVal Text As String, ByVal Prefix As String) As String
+        Head = Left$(Text, Len(Prefix))
+    End Function
+
+    ' The number of lines of Text that start with Prefix, lines being separated by CR LF.
+    Public Function CountLines(ByVal Text As String, ByVal Prefix As String) As Long
+        Dim parts() As String
+        Dim i As Long
+        parts = Split(Text, vbCrLf)
+        For i = 0 To UBound(parts)
+            If Left$(parts(i), Len(Prefix)) = Prefix Then CountLines = CountLines + 1
+        Next
+    End Function
+
+    ' The lines of Text without the empty one that ends it, separated by CR LF.
+    Public Function LinesOf(ByVal Text As String) As String()
+        If Right$(Text, 2) = vbCrLf Then Text = Left$(Text, Len(Text) - 2)
+        LinesOf = Split(Text, vbCrLf)
+    End Function
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/LineEndingTests.twin b/test/package-tests/tbProjPacker/Sources/LineEndingTests.twin
new file mode 100644
index 00000000..31362cfe
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/LineEndingTests.twin
@@ -0,0 +1,210 @@
+' tbProjPacker, ProjPacker.Pack: which files get CR LF line endings while they are packed.
+'
+' A tree of files with LF line endings is packed and unpacked again, and the unpacked files show
+' what was stored. LineEnd is the tree:
+'   Settings                      LF (never converted)
+'   Sources\a.twin, b.BAS, c.Cls  LF; Sources\deep\er\d.twin
+'   Sources\t.txt                 LF, a text file
+'   Sources\crlf.twin             CR LF already
+'   Sources\mixed.twin            CR LF, LF and a CR at the end
+'   Other\Sources\o.twin, Resources\Sources\r.twin   LF, in another folder named Sources
+'   lower\sources\l.twin          LF, in a folder named sources
+'   Elsewhere\e.twin              LF, outside Sources
+[TestFixture]
+Module LineEndingTests
+
+    Private Function Lf() As String
+        Lf = "x" & vbLf & "y" & vbLf
+    End Function
+
+    Private Function CrLf() As String
+        CrLf = "x" & vbCrLf & "y" & vbCrLf
+    End Function
+
+    Private Function Mixed() As String
+        Mixed = "a" & vbCrLf & "b" & vbLf & "c" & vbCr
+    End Function
+
+    Private Function Build(ByVal Base As String) As String
+        Dim root As String
+        root = Base & "\LineEnd"
+        Files.MakeFolder root & "\Sources\deep\er"
+        Files.MakeFolder root & "\Other\Sources"
+        Files.MakeFolder root & "\Resources\Sources"
+        Files.MakeFolder root & "\lower\sources"
+        Files.MakeFolder root & "\Elsewhere"
+        Files.WriteText root & "\Settings", "a" & vbLf & "b" & vbLf
+        Files.WriteText root & "\Sources\a.twin", Lf()
+        Files.WriteText root & "\Sources\b.BAS", Lf()
+        Files.WriteText root & "\Sources\c.Cls", Lf()
+        Files.WriteText root & "\Sources\deep\er\d.twin", Lf()
+        Files.WriteText root & "\Sources\t.txt", Lf()
+        Files.WriteText root & "\Sources\crlf.twin", CrLf()
+        Files.WriteText root & "\Sources\mixed.twin", Mixed()
+        Files.WriteText root & "\Other\Sources\o.twin", Lf()
+        Files.WriteText root & "\Resources\Sources\r.twin", Lf()
+        Files.WriteText root & "\lower\sources\l.twin", Lf()
+        Files.WriteText root & "\Elsewhere\e.twin", Lf()
+        Build = root
+    End Function
+
+    ' Packs the tree and unpacks the file into Base\Back, and returns that folder.
+    Private Function PackedAndBack(ByVal Base As String, ByVal Tree As String) As String
+        Dim pp As New ProjPacker
+        Expect.IsTrue pp.Pack(Tree, Base & "\LineEnd.twinproj"), "Pack of the tree returns True"
+        Expect.IsTrue pp.Unpack(Base & "\LineEnd.twinproj", Base & "\Back"), "Unpack of the packed file returns True"
+        PackedAndBack = Base & "\Back"
+    End Function
+
+    [TestCase]
+    Public Sub CodeFilesUnderSources_GetCrLf()
+        Expect.Begin
+        Dim base As String, back As String
+        base = Sandbox.Fresh("LineEnd_Sources")
+        back = PackedAndBack(base, Build(base))
+        Expect.AreEqual CrLf(), Files.ReadText(back & "\Sources\a.twin"), "Sources\a.twin"
+        Expect.AreEqual CrLf(), Files.ReadText(back & "\Sources\b.BAS"), "Sources\b.BAS: an upper-case extension"
+        Expect.AreEqual CrLf(), Files.ReadText(back & "\Sources\c.Cls"), "Sources\c.Cls: a mixed-case extension"
+        Expect.AreEqual CrLf(), Files.ReadText(back & "\Sources\deep\er\d.twin"), "Sources\deep\er\d.twin: below Sources"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CodeFilesInAFolderNamedSourcesAtAnyDepth_GetCrLf()
+        Expect.Begin
+        Dim base As String, back As String
+        base = Sandbox.Fresh("LineEnd_Depth")
+        back = PackedAndBack(base, Build(base))
+        Expect.AreEqual CrLf(), Files.ReadText(back & "\Other\Sources\o.twin"), "Other\Sources\o.twin"
+        Expect.AreEqual CrLf(), Files.ReadText(back & "\Resources\Sources\r.twin"), "Resources\Sources\r.twin"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CodeFilesInAFolderNamedSourcesInLowerCase_AreNotConverted()
+        Expect.Begin
+        Dim base As String, back As String
+        base = Sandbox.Fresh("LineEnd_LowerCase")
+        back = PackedAndBack(base, Build(base))
+        Expect.AreEqual Lf(), Files.ReadText(back & "\lower\sources\l.twin"), "lower\sources\l.twin"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TextFilesUnderSources_AreNotConverted()
+        Expect.Begin
+        Dim base As String, back As String
+        base = Sandbox.Fresh("LineEnd_Text")
+        back = PackedAndBack(base, Build(base))
+        Expect.AreEqual Lf(), Files.ReadText(back & "\Sources\t.txt"), "Sources\t.txt"
+        Expect.AreEqual "a" & vbLf & "b" & vbLf, Files.ReadText(back & "\Settings"), "Settings"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CodeFilesOutsideSources_AreNotConverted()
+        Expect.Begin
+        Dim base As String, back As String
+        base = Sandbox.Fresh("LineEnd_Outside")
+        back = PackedAndBack(base, Build(base))
+        Expect.AreEqual Lf(), Files.ReadText(back & "\Elsewhere\e.twin"), "Elsewhere\e.twin"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub InputDirNamedSources_IsNotTestedForItsName()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String
+        base = Sandbox.Fresh("LineEnd_InputDir")
+        tree = base & "\Sources"
+        Files.MakeFolder tree
+        Files.WriteText tree & "\Settings", "s" & vbLf
+        Files.WriteText tree & "\x.twin", Lf()
+        Expect.IsTrue pp.Pack(tree, base & "\Sources.twinproj"), "Pack of a folder named Sources returns True"
+        Expect.IsTrue pp.Unpack(base & "\Sources.twinproj", base & "\Back"), "Unpack of the packed file returns True"
+        Expect.AreEqual Lf(), Files.ReadText(base & "\Back\x.twin"), "x.twin directly in the folder named Sources"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FileThatAlreadyHasCrLf_IsUnchanged()
+        Expect.Begin
+        Dim base As String, back As String
+        base = Sandbox.Fresh("LineEnd_Already")
+        back = PackedAndBack(base, Build(base))
+        Expect.AreEqual CrLf(), Files.ReadText(back & "\Sources\crlf.twin"), "Sources\crlf.twin"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CrNotFollowedByLf_IsRemovedAndNoLineBreakReplacesIt()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, back As String, tree As String
+        base = Sandbox.Fresh("LineEnd_LoneCr")
+        tree = Build(base)
+        Files.WriteText tree & "\Sources\mac.twin", "one" & vbCr & "two" & vbCr
+        back = PackedAndBack(base, tree)
+        Expect.AreEqual "a" & vbCrLf & "b" & vbCrLf & "c", Files.ReadText(back & "\Sources\mixed.twin"), "Sources\mixed.twin: a CR at the end of a file that has CR LF and LF line breaks"
+        Expect.AreEqual "onetwo", Files.ReadText(back & "\Sources\mac.twin"), "Sources\mac.twin: lines ended by a CR alone"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FilesOnDisk_AreNeverChanged()
+        Expect.Begin
+        Dim base As String, tree As String, back As String
+        base = Sandbox.Fresh("LineEnd_Disk")
+        tree = Build(base)
+        back = PackedAndBack(base, tree)
+        Expect.AreEqual Lf(), Files.ReadText(tree & "\Sources\a.twin"), "Sources\a.twin on disk after Pack"
+        Expect.AreEqual Lf(), Files.ReadText(tree & "\Other\Sources\o.twin"), "Other\Sources\o.twin on disk after Pack"
+        Expect.AreEqual Mixed(), Files.ReadText(tree & "\Sources\mixed.twin"), "Sources\mixed.twin on disk after Pack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_PrintsHowManyFilesWereConverted_AfterTheMissingFoldersNote()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, logFile As String, lines() As String
+        base = Sandbox.Fresh("LineEnd_Count")
+        tree = Build(base)
+        logFile = base & "\pack.log"
+        Expect.IsTrue pp.Pack(tree, base & "\LineEnd.twinproj", False, logFile), "Pack of the tree returns True"
+        lines = Files.LinesOf(Files.ReadText(logFile))
+        Expect.AreEqual 3, UBound(lines), "the last index of the lines Pack printed (summary, two note lines, the count)"
+        If UBound(lines) >= 3 Then
+            Expect.AreEqual "  note: expected folders not present on disk: ImportedTypeLibraries, Miscellaneous, Packages.", lines(1), "the missing folders note"
+            Expect.AreEqual "  twinBASIC should rebuild them on Open Project.", lines(2), "the second line of that note"
+            Expect.AreEqual "  note: converted 7 code file(s) under Sources from Unix (LF) to Windows (CRLF) line endings.", lines(3), "the count of converted files: a.twin, b.BAS, c.Cls, d.twin, o.twin, r.twin and mixed.twin, and not crlf.twin"
+        End If
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_PrintsNoCount_WhenNoFileWasConverted()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, logFile As String
+        base = Sandbox.Fresh("LineEnd_NoCount")
+        tree = Sample.Build(base)
+        logFile = base & "\pack.log"
+        Expect.IsTrue pp.Pack(tree, base & "\Sample.twinproj", False, logFile), "Pack of a tree whose code files all have CR LF returns True"
+        Expect.AreEqual 0, Files.CountLines(Files.ReadText(logFile), "  note: converted"), "the lines that count converted files"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/PackTests.twin b/test/package-tests/tbProjPacker/Sources/PackTests.twin
new file mode 100644
index 00000000..0c6493c4
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/PackTests.twin
@@ -0,0 +1,341 @@
+' tbProjPacker, ProjPacker.Pack: what is packed, what is refused, what replaces a file and what is printed.
+[TestFixture]
+Module PackTests
+
+    [TestCase]
+    Public Sub Pack_WritesTheFileTheImportExportToolWrites()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String
+        base = Sandbox.Fresh("Pack_ReferenceBytes")
+        tree = Sample.Build(base)
+        out = base & "\Sample.twinproj"
+        Expect.IsTrue pp.Pack(tree, out), "Pack of the sample tree returns True"
+        If Files.Exists(out) Then
+            Expect.AreEqual "", Files.Difference(Files.ReadBytes(out), Sample.ReferenceBytes()), "the file Pack wrote and the file the Import/export tool writes from the same tree"
+        Else
+            Expect.Fail "Pack wrote no file"
+        End If
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_SummaryLine_NamesTheRootTheBytesTheFilesAndTheFolders()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String, logFile As String
+        base = Sandbox.Fresh("Pack_SummaryLine")
+        tree = Sample.Build(base)
+        out = base & "\Sample.twinproj"
+        logFile = base & "\pack.log"
+        Expect.IsTrue pp.Pack(tree, out, False, logFile), "Pack of the sample tree returns True"
+        Expect.AreEqual "Exported ""PackSample"" -> " & out & "  (" & Files.SizeOf(out) & " bytes, 6 files, 7 directories)" & vbCrLf, Files.ReadText(logFile), "the log of a Pack that needs no note"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_SummaryLine_BeginsWithExported()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Pack_Exported")
+        Sample.Build base
+        logFile = base & "\pack.log"
+        pp.Pack base & "\PackSample", base & "\Sample.twinproj", False, logFile
+        Expect.AreEqual "Exported ", Files.Head(Files.ReadText(logFile), "Exported "), "the first characters of the summary line of Pack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_RootIsNamedAfterTheLastFolderOfInputDir()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, logFile As String
+        base = Sandbox.Fresh("Pack_RootName")
+        tree = Sample.Build(base, "MyApp-src")
+        logFile = base & "\pack.log"
+        Expect.IsTrue pp.Pack(tree, base & "\One.twinproj", False, logFile), "Pack of a folder named MyApp-src returns True"
+        Expect.AreEqual "Exported ""MyApp-src"" -> ", Files.Head(Files.ReadText(logFile), "Exported ""MyApp-src"" -> "), "the root named in the summary line"
+        Expect.IsTrue pp.Pack(tree & "\", base & "\Two.twinproj", False, logFile), "Pack of the same folder given with a backslash at its end returns True"
+        Expect.AreEqual "Exported ""MyApp-src"" -> ", Files.Head(Files.ReadText(logFile), "Exported ""MyApp-src"" -> "), "the root named in the summary line when inputDir ends with a backslash"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_StoresHiddenFilesEmptyFoldersAndAGitFolder()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, back As String
+        base = Sandbox.Fresh("Pack_Everything")
+        tree = Sample.Build(base)
+        Files.MakeFolder tree & "\.git\refs"
+        Files.WriteText tree & "\.git\config", "[core]"
+        Files.MakeFolder tree & "\Empty"
+        Files.WriteText tree & "\Hidden.txt", "h"
+        SetAttr tree & "\Hidden.txt", vbHidden
+        Expect.IsTrue pp.Pack(tree, base & "\Sample.twinproj"), "Pack of a tree with a .git folder, an empty folder and a hidden file returns True"
+        back = base & "\Back"
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", back), "Unpack of the packed file returns True"
+        Expect.AreEqual Files.ListTree(tree), Files.ListTree(back), "the folders and files after Pack and Unpack"
+        Expect.IsTrue Files.IsFolder(back & "\.git\refs"), "the .git folder with its subfolder"
+        Expect.IsTrue Files.Exists(back & "\.git\config"), "a file in the .git folder"
+        Expect.IsTrue Files.IsFolder(back & "\Empty"), "the empty folder"
+        Expect.IsTrue Files.Exists(back & "\Hidden.txt"), "the hidden file"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_ThenUnpack_GivesBackEveryFileOfTheSample()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, back As String
+        base = Sandbox.Fresh("Pack_AsItIs")
+        tree = Sample.Build(base)
+        Expect.IsTrue pp.Pack(tree, base & "\Sample.twinproj"), "Pack of the sample tree returns True"
+        back = base & "\Back"
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", back), "Unpack of the packed file returns True"
+        Sample.ExpectTree back, "the tree after Pack and Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_ExpectedFoldersThatAreMissing_AreNotAddedButNamed()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, back As String, logFile As String, lines() As String
+        base = Sandbox.Fresh("Pack_MissingFolders")
+        tree = base & "\Bare"
+        Files.MakeFolder tree
+        Files.WriteBytes tree & "\Settings", Sample.SettingsBytes()
+        logFile = base & "\pack.log"
+        Expect.IsTrue pp.Pack(tree, base & "\Bare.twinproj", False, logFile), "Pack of a folder that holds only Settings returns True"
+        lines = Files.LinesOf(Files.ReadText(logFile))
+        Expect.AreEqual 2, UBound(lines), "the last index of the lines Pack printed (the summary line and two note lines)"
+        If UBound(lines) >= 2 Then
+            Expect.AreEqual "  note: expected folders not present on disk: Resources, Sources, ImportedTypeLibraries, Miscellaneous, Packages.", lines(1), "the first note line"
+            Expect.AreEqual "  twinBASIC should rebuild them on Open Project.", lines(2), "the second note line"
+        End If
+        back = base & "\Back"
+        pp.Unpack base & "\Bare.twinproj", back
+        Expect.AreEqual "Settings", Files.ListTree(back), "the folders and files of the unpacked file: no folder was added"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_FileThatExists_IsNotReplacedWithoutOverwrite()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String, logFile As String
+        base = Sandbox.Fresh("Pack_NoOverwrite")
+        tree = Sample.Build(base)
+        out = base & "\Sample.twinproj"
+        logFile = base & "\pack.log"
+        Files.WriteText out, "keep"
+        Expect.IsFalse pp.Pack(tree, out, , logFile), "Pack to an existing file with overwrite left out returns False"
+        Expect.AreEqual "keep", Files.ReadText(out), "the existing file"
+        Expect.AreEqual "Pack failed: Output already exists: """ & out & """. Refusing to overwrite it. Use the overwrite option (CLI: --force) to replace it." & vbCrLf, Files.ReadText(logFile), "the log"
+        Expect.IsFalse pp.Pack(tree, out, False), "Pack to an existing file with overwrite False returns False"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_FolderThatExistsAtOutputFile_IsNotReplacedWithoutOverwrite()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String
+        base = Sandbox.Fresh("Pack_OutputIsAFolder")
+        tree = Sample.Build(base)
+        out = base & "\Sample.twinproj"
+        Files.MakeFolder out
+        Expect.IsFalse pp.Pack(tree, out), "Pack with a folder at outputFile and overwrite left out returns False"
+        Expect.IsTrue Files.IsFolder(out), "the folder at outputFile is still a folder"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_Overwrite_ReplacesTheFile()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String
+        base = Sandbox.Fresh("Pack_Overwrite")
+        tree = Sample.Build(base)
+        out = base & "\Sample.twinproj"
+        Files.WriteText out, "keep"
+        Expect.IsTrue pp.Pack(tree, out, True), "Pack to an existing file with overwrite True returns True"
+        If Files.SizeOf(out) > 4 Then
+            Expect.AreEqual "", Files.Difference(Files.ReadBytes(out), Sample.ReferenceBytes()), "the file after Pack with overwrite"
+        Else
+            Expect.Fail "the file is still the old one"
+        End If
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_OutputFileThatExists_IsCheckedBeforeTheFolderIsRead()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String, logFile As String
+        base = Sandbox.Fresh("Pack_OutputFirst")
+        tree = base & "\NoSettings"
+        Files.MakeFolder tree
+        out = base & "\Sample.twinproj"
+        logFile = base & "\pack.log"
+        Files.WriteText out, "keep"
+        Expect.IsFalse pp.Pack(tree, out, False, logFile), "Pack of a folder with no Settings to an existing file returns False"
+        Expect.AreEqual "Pack failed: Output already exists: ", Files.Head(Files.ReadText(logFile), "Pack failed: Output already exists: "), "the reason: the existing file, not the missing Settings"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_InputDirThatIsNotAFolder_IsRefused()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String, logFile As String
+        base = Sandbox.Fresh("Pack_NotAFolder")
+        out = base & "\Sample.twinproj"
+        logFile = base & "\pack.log"
+        Expect.IsFalse pp.Pack(base & "\Missing", out, False, logFile), "Pack of a folder that does not exist returns False"
+        Expect.AreEqual "Pack failed: Not a directory: " & base & "\Missing" & vbCrLf, Files.ReadText(logFile), "the log for a folder that does not exist"
+        Files.WriteText base & "\afile", "x"
+        Expect.IsFalse pp.Pack(base & "\afile", out, False, logFile), "Pack of a file returns False"
+        Expect.AreEqual "Pack failed: Not a directory: " & base & "\afile" & vbCrLf, Files.ReadText(logFile), "the log for a file"
+        Expect.IsFalse Files.Exists(out), "a project file was written"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_FolderWithoutASettingsFile_IsRefused()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String, logFile As String
+        base = Sandbox.Fresh("Pack_NoSettings")
+        tree = Sample.Build(base)
+        Kill tree & "\Settings"
+        out = base & "\Sample.twinproj"
+        logFile = base & "\pack.log"
+        Expect.IsFalse pp.Pack(tree, out, False, logFile), "Pack of a folder with no Settings file returns False"
+        Expect.AreEqual "Pack failed: Refusing to pack: no 'Settings' file at the top level of", Files.Head(Files.ReadText(logFile), "Pack failed: Refusing to pack: no 'Settings' file at the top level of"), "the log"
+        Expect.IsFalse Files.Exists(out), "a project file was written"
+        Files.WriteText out, "keep"
+        Expect.IsFalse pp.Pack(tree, out, True), "Pack with overwrite of a folder with no Settings file returns False"
+        Expect.AreEqual "keep", Files.ReadText(out), "the existing file after the refused Pack with overwrite"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_SettingsThatIsAFolder_IsRefused()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String
+        base = Sandbox.Fresh("Pack_SettingsFolder")
+        tree = Sample.Build(base)
+        Kill tree & "\Settings"
+        MkDir tree & "\Settings"
+        out = base & "\Sample.twinproj"
+        Expect.IsFalse pp.Pack(tree, out), "Pack of a folder whose Settings is a folder returns False"
+        Expect.IsFalse Files.Exists(out), "a project file was written"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_SettingsSpelledInLowerCase_IsRefused()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String
+        base = Sandbox.Fresh("Pack_SettingsCase")
+        tree = Sample.Build(base)
+        Kill tree & "\Settings"
+        Files.WriteBytes tree & "\settings", Sample.SettingsBytes()
+        out = base & "\Sample.twinproj"
+        Expect.IsFalse pp.Pack(tree, out), "Pack of a folder whose file is named settings returns False"
+        Expect.IsFalse Files.Exists(out), "a project file was written"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_SettingsInASubfolder_IsRefused()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String
+        base = Sandbox.Fresh("Pack_SettingsDeep")
+        tree = Sample.Build(base)
+        Kill tree & "\Settings"
+        Files.WriteBytes tree & "\Miscellaneous\Settings", Sample.SettingsBytes()
+        out = base & "\Sample.twinproj"
+        Expect.IsFalse pp.Pack(tree, out), "Pack of a folder whose Settings file is in a subfolder returns False"
+        Expect.IsFalse Files.Exists(out), "a project file was written"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_Overwrite_DeletesTheOldFileAfterReadingTheFolder_SoAFileInsideIsPackedAgain()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String
+        Dim s1 As Long, s2 As Long, s3 As Long
+        base = Sandbox.Fresh("Pack_Inside")
+        tree = Sample.Build(base)
+        out = tree & "\Inside.twinproj"
+        Expect.IsTrue pp.Pack(tree, out, True), "the first Pack to a file inside inputDir returns True"
+        s1 = Files.SizeOf(out)
+        Expect.IsTrue pp.Pack(tree, out, True), "the second Pack returns True"
+        s2 = Files.SizeOf(out)
+        Expect.IsTrue pp.Pack(tree, out, True), "the third Pack returns True"
+        s3 = Files.SizeOf(out)
+        Expect.IsTrue s2 > s1, "the file after the second Pack (" & s2 & " bytes) is larger than after the first (" & s1 & ")"
+        Expect.IsTrue s3 > s2, "the file after the third Pack (" & s3 & " bytes) is larger than after the second (" & s2 & ")"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_AddsNoExtensionAndChecksNone()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String
+        base = Sandbox.Fresh("Pack_Extension")
+        tree = Sample.Build(base)
+        Expect.IsTrue pp.Pack(tree, base & "\Packed", False), "Pack to a name with no extension returns True"
+        Expect.IsTrue Files.Exists(base & "\Packed"), "the file named as given"
+        Expect.IsFalse Files.Exists(base & "\Packed.twinproj"), "a file with the extension .twinproj"
+        Expect.IsTrue pp.Pack(tree, base & "\Packed.txt", False), "Pack to a .txt name returns True"
+        Expect.IsTrue Files.Exists(base & "\Packed.txt"), "the file named as given: .txt"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pack_DoesNotChangeTheFolder()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, before As String
+        base = Sandbox.Fresh("Pack_FolderUnchanged")
+        tree = Sample.Build(base)
+        Files.WriteText tree & "\Sources\Lf.twin", "a" & vbLf & "b" & vbLf
+        before = Files.ListTree(tree)
+        pp.Pack tree, base & "\Sample.twinproj"
+        Expect.AreEqual before, Files.ListTree(tree), "the folders and files of inputDir after Pack"
+        Expect.AreEqual "a" & vbLf & "b" & vbLf, Files.ReadText(tree & "\Sources\Lf.twin"), "a code file with LF line endings after Pack"
+        Kill tree & "\Sources\Lf.twin"
+        Sample.ExpectTree tree, "inputDir after Pack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/ProjPackerTests.twin b/test/package-tests/tbProjPacker/Sources/ProjPackerTests.twin
new file mode 100644
index 00000000..e24e4a0d
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/ProjPackerTests.twin
@@ -0,0 +1,206 @@
+' tbProjPacker, the ProjPacker class: no method raises an error, the log file, and the paths.
+[TestFixture]
+Module ProjPackerTests
+
+    [TestCase]
+    Public Sub Methods_RaiseNoError_WhenTheyFail()
+        Expect.Begin
+        Dim base As String
+        base = Sandbox.Fresh("Class_NoError")
+        Files.WriteText base & "\notes.txt", "this is not a project file"
+        FailingCalls base
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    ' Four calls that fail. An error that reaches here is a failed check.
+    Private Sub FailingCalls(ByVal base As String)
+        Dim pp As New ProjPacker
+        Dim ok As Boolean, stage As String
+        On Error GoTo Raised
+        stage = "Pack of a folder that does not exist"
+        ok = pp.Pack(base & "\Missing", base & "\Out.twinproj")
+        Expect.IsFalse ok, stage & " returns False"
+        stage = "Unpack of a file that is not a project"
+        ok = pp.Unpack(base & "\notes.txt", base & "\Out")
+        Expect.IsFalse ok, stage & " returns False"
+        stage = "Unpack with a log file that cannot be created"
+        ok = pp.Unpack(base & "\Missing.twinproj", base & "\Out", True, base & "\NoFolder\log.txt")
+        Expect.IsFalse ok, stage & " returns False"
+        stage = "Test of a sample that does not exist"
+        ok = pp.Test(base & "\Missing.twinproj")
+        Expect.IsFalse ok, stage & " returns False"
+        Exit Sub
+Raised:
+        Expect.Fail stage & " raised error " & Err.Number & ": " & Err.Description
+        Resume Next
+    End Sub
+
+    [TestCase]
+    Public Sub Log_IsCreatedWhenItDoesNotExist()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Log_Created")
+        logFile = base & "\pack.log"
+        pp.Pack base & "\Missing", base & "\Out.twinproj", False, logFile
+        Expect.IsTrue Files.Exists(logFile), "the log file after a call that failed"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Log_IsEmptiedWhenItExists()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Log_Emptied")
+        logFile = base & "\pack.log"
+        Files.WriteText logFile, "old line one" & vbCrLf & "old line two" & vbCrLf & "old line three, longer than the line the call prints" & vbCrLf & "and a fourth" & vbCrLf
+        pp.Pack base & "\Missing", base & "\Out.twinproj", False, logFile
+        Expect.AreEqual "Pack failed: Not a directory: " & base & "\Missing" & vbCrLf, Files.ReadText(logFile), "the log file after a call with a log that held old lines"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Log_HoldsTheLinesOfTheLastCallOnly()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, logFile As String
+        base = Sandbox.Fresh("Log_LastCall")
+        tree = Sample.Build(base)
+        logFile = base & "\both.log"
+        pp.Pack tree, base & "\Sample.twinproj", False, logFile
+        pp.Unpack base & "\Sample.twinproj", base & "\Out", False, logFile
+        Expect.AreEqual 0, Files.CountLines(Files.ReadText(logFile), "Exported "), "the Exported lines of the first call in the log of the second"
+        Expect.AreEqual 1, Files.CountLines(Files.ReadText(logFile), "Imported "), "the Imported lines in the log of the second call"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Log_IsUtf8WithCrLfAndNoByteOrderMark()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String, logFile As String
+        Dim b() As Byte, hex As String
+        base = Sandbox.Fresh("Log_Utf8")
+        tree = Sample.Build(base)
+        out = base & "\caf" & ChrW$(233) & ".twinproj"
+        logFile = base & "\pack.log"
+        Expect.IsTrue pp.Pack(tree, out, False, logFile), "Pack to a file whose name has a non-ASCII letter returns True"
+        b = Files.ReadBytes(logFile)
+        hex = Files.HexOf(b)
+        Expect.IsFalse Left$(hex, 6) = "EFBBBF", "the log starts with a byte order mark"
+        Expect.IsTrue InStr(hex, "636166C3A92E7477696E70726F6A") > 0, "the log holds 'caf', the UTF-8 bytes C3 A9 of the letter and '.twinproj'"
+        Expect.AreEqual "0D0A", Right$(hex, 4), "the last two bytes of the log"
+        Expect.AreEqual 0, CountBareLf(hex), "line feeds that no carriage return precedes"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    ' The number of 0A bytes in the hex text of a file that do not follow a 0D byte.
+    Private Function CountBareLf(ByVal Hex As String) As Long
+        Dim i As Long
+        For i = 1 To Len(Hex) - 1 Step 2
+            If Mid$(Hex, i, 2) = "0A" Then
+                If i < 3 Then
+                    CountBareLf = CountBareLf + 1
+                ElseIf Mid$(Hex, i - 2, 2) <> "0D" Then
+                    CountBareLf = CountBareLf + 1
+                End If
+            End If
+        Next
+    End Function
+
+    [TestCase]
+    Public Sub Log_ThatCannotBeCreated_MakesTheCallFailBeforeItDoesAnything()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, out As String
+        base = Sandbox.Fresh("Log_Cannot")
+        tree = Sample.Build(base)
+        out = base & "\Sample.twinproj"
+        Expect.IsFalse pp.Pack(tree, out, False, base & "\NoFolder\pack.log"), "Pack with a log in a folder that does not exist returns False"
+        Expect.IsFalse Files.Exists(out), "the project file Pack wrote"
+        Files.WriteBytes out, Sample.ReferenceBytes()
+        Expect.IsFalse pp.Unpack(out, base & "\Out", False, base & "\NoFolder\unpack.log"), "Unpack with a log in a folder that does not exist returns False"
+        Expect.IsFalse Files.Exists(base & "\Out"), "the folder Unpack made"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Log_LeftOut_WritesNoFile()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, before As String
+        base = Sandbox.Fresh("Log_None")
+        tree = Sample.Build(base)
+        before = Files.ListTree(base)
+        pp.Pack tree, base & "\Sample.twinproj"
+        Expect.AreEqual Files.SortedJoin(Replace(before, "|", vbLf) & vbLf & "Sample.twinproj" & vbLf), Files.ListTree(base), "the folders and files of the sandbox folder after a Pack with no log"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Paths_Relative_StartFromTheCurrentDirectory()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, here As String
+        base = Sandbox.Fresh("Paths_Relative")
+        Sample.Build base
+        here = CurDir$
+        ChDrive base
+        ChDir base
+        Expect.IsTrue pp.Pack("PackSample", "Relative.twinproj"), "Pack with relative paths returns True"
+        Expect.IsTrue pp.Unpack("Relative.twinproj", "RelativeOut"), "Unpack with relative paths returns True"
+        ChDrive here
+        ChDir here
+        Expect.IsTrue Files.Exists(base & "\Relative.twinproj"), "the project file in the current directory"
+        Sample.ExpectTree base & "\RelativeOut", "the folder in the current directory after Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Paths_WithForwardSlashes_AreAccepted()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, slashed As String
+        base = Sandbox.Fresh("Paths_Slash")
+        Sample.Build base
+        slashed = Replace(base, "\", "/")
+        Expect.IsTrue pp.Pack(slashed & "/PackSample", slashed & "/Slash.twinproj"), "Pack with forward slashes returns True"
+        Expect.IsTrue pp.Unpack(slashed & "/Slash.twinproj", slashed & "/SlashOut"), "Unpack with forward slashes returns True"
+        Sample.ExpectTree base & "\SlashOut", "the folder after Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Paths_LongerThan260Characters_AreAccepted()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, tree As String, deep As String, deep2 As String, packed As String, back As String
+        base = Sandbox.Fresh("Paths_Long")
+        tree = Sample.Build(base)
+        pp.Pack tree, base & "\Sample.twinproj"
+        deep = Sandbox.PathOfLength(base & "\Deep", 300)
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", deep), "Unpack to a folder whose path is 300 characters returns True"
+        Expect.IsTrue Files.Exists(deep & "\Sources\Module1.twin"), "a file in that folder"
+        deep2 = Sandbox.PathOfLength(base & "\Deeper", 300)
+        pp.Unpack base & "\Sample.twinproj", deep2
+        packed = deep2 & "\Packed.twinproj"
+        Expect.IsTrue pp.Pack(deep, packed), "Pack of a folder whose path is 300 characters, to a file whose path is more than 300, returns True"
+        Expect.IsTrue Files.Exists(packed), "the project file with the long path"
+        back = Sandbox.PathOfLength(base & "\Back", 300)
+        Expect.IsTrue pp.Unpack(packed, back), "Unpack of the project file with the long path returns True"
+        Expect.IsTrue Files.Exists(back & "\Sources\Forms\Form1.cls"), "a file in the folder it unpacked to"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/RunAll.twin b/test/package-tests/tbProjPacker/Sources/RunAll.twin
new file mode 100644
index 00000000..a15fff83
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/RunAll.twin
@@ -0,0 +1,310 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package tbProjPacker, version 1.1.0.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "tbProjPacker 1.1.0.0: 74 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_FolderThatLooksLikeAProject_IsEmptiedOfEverything
+        Expect.EndCase "CleanFirstTests.CleanFirst_FolderThatLooksLikeAProject_IsEmptiedOfEverything", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_FolderThatDoesNotExist_Proceeds
+        Expect.EndCase "CleanFirstTests.CleanFirst_FolderThatDoesNotExist_Proceeds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_EmptyFolder_Proceeds
+        Expect.EndCase "CleanFirstTests.CleanFirst_EmptyFolder_Proceeds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_FolderWithFilesAndNoSettings_IsRefused
+        Expect.EndCase "CleanFirstTests.CleanFirst_FolderWithFilesAndNoSettings_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_FolderWhoseSettingsIsAFolder_IsRefused
+        Expect.EndCase "CleanFirstTests.CleanFirst_FolderWhoseSettingsIsAFolder_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_DriveRoot_IsRefused
+        Expect.EndCase "CleanFirstTests.CleanFirst_DriveRoot_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_FolderDirectlyUnderADriveRoot_IsRefusedEvenWithASettingsFile
+        Expect.EndCase "CleanFirstTests.CleanFirst_FolderDirectlyUnderADriveRoot_IsRefusedEvenWithASettingsFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_FolderTwoLevelsBelowADriveRoot_IsEmptied
+        Expect.EndCase "CleanFirstTests.CleanFirst_FolderTwoLevelsBelowADriveRoot_IsEmptied", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_EmptyFolderDirectlyUnderADriveRoot_Proceeds
+        Expect.EndCase "CleanFirstTests.CleanFirst_EmptyFolderDirectlyUnderADriveRoot_Proceeds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.CleanFirst_ShallowCheckComesBeforeTheSettingsCheck
+        Expect.EndCase "CleanFirstTests.CleanFirst_ShallowCheckComesBeforeTheSettingsCheck", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CleanFirstTests.Unpack_WithoutCleanFirst_DeletesNothing
+        Expect.EndCase "CleanFirstTests.Unpack_WithoutCleanFirst_DeletesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.CodeFilesUnderSources_GetCrLf
+        Expect.EndCase "LineEndingTests.CodeFilesUnderSources_GetCrLf", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.CodeFilesInAFolderNamedSourcesAtAnyDepth_GetCrLf
+        Expect.EndCase "LineEndingTests.CodeFilesInAFolderNamedSourcesAtAnyDepth_GetCrLf", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.CodeFilesInAFolderNamedSourcesInLowerCase_AreNotConverted
+        Expect.EndCase "LineEndingTests.CodeFilesInAFolderNamedSourcesInLowerCase_AreNotConverted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.TextFilesUnderSources_AreNotConverted
+        Expect.EndCase "LineEndingTests.TextFilesUnderSources_AreNotConverted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.CodeFilesOutsideSources_AreNotConverted
+        Expect.EndCase "LineEndingTests.CodeFilesOutsideSources_AreNotConverted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.InputDirNamedSources_IsNotTestedForItsName
+        Expect.EndCase "LineEndingTests.InputDirNamedSources_IsNotTestedForItsName", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.FileThatAlreadyHasCrLf_IsUnchanged
+        Expect.EndCase "LineEndingTests.FileThatAlreadyHasCrLf_IsUnchanged", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.CrNotFollowedByLf_IsRemovedAndNoLineBreakReplacesIt
+        Expect.EndCase "LineEndingTests.CrNotFollowedByLf_IsRemovedAndNoLineBreakReplacesIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.FilesOnDisk_AreNeverChanged
+        Expect.EndCase "LineEndingTests.FilesOnDisk_AreNeverChanged", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.Pack_PrintsHowManyFilesWereConverted_AfterTheMissingFoldersNote
+        Expect.EndCase "LineEndingTests.Pack_PrintsHowManyFilesWereConverted_AfterTheMissingFoldersNote", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LineEndingTests.Pack_PrintsNoCount_WhenNoFileWasConverted
+        Expect.EndCase "LineEndingTests.Pack_PrintsNoCount_WhenNoFileWasConverted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_WritesTheFileTheImportExportToolWrites
+        Expect.EndCase "PackTests.Pack_WritesTheFileTheImportExportToolWrites", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_SummaryLine_NamesTheRootTheBytesTheFilesAndTheFolders
+        Expect.EndCase "PackTests.Pack_SummaryLine_NamesTheRootTheBytesTheFilesAndTheFolders", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_SummaryLine_BeginsWithExported
+        Expect.EndCase "PackTests.Pack_SummaryLine_BeginsWithExported", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_RootIsNamedAfterTheLastFolderOfInputDir
+        Expect.EndCase "PackTests.Pack_RootIsNamedAfterTheLastFolderOfInputDir", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_StoresHiddenFilesEmptyFoldersAndAGitFolder
+        Expect.EndCase "PackTests.Pack_StoresHiddenFilesEmptyFoldersAndAGitFolder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_ThenUnpack_GivesBackEveryFileOfTheSample
+        Expect.EndCase "PackTests.Pack_ThenUnpack_GivesBackEveryFileOfTheSample", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_ExpectedFoldersThatAreMissing_AreNotAddedButNamed
+        Expect.EndCase "PackTests.Pack_ExpectedFoldersThatAreMissing_AreNotAddedButNamed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_FileThatExists_IsNotReplacedWithoutOverwrite
+        Expect.EndCase "PackTests.Pack_FileThatExists_IsNotReplacedWithoutOverwrite", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_FolderThatExistsAtOutputFile_IsNotReplacedWithoutOverwrite
+        Expect.EndCase "PackTests.Pack_FolderThatExistsAtOutputFile_IsNotReplacedWithoutOverwrite", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_Overwrite_ReplacesTheFile
+        Expect.EndCase "PackTests.Pack_Overwrite_ReplacesTheFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_OutputFileThatExists_IsCheckedBeforeTheFolderIsRead
+        Expect.EndCase "PackTests.Pack_OutputFileThatExists_IsCheckedBeforeTheFolderIsRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_InputDirThatIsNotAFolder_IsRefused
+        Expect.EndCase "PackTests.Pack_InputDirThatIsNotAFolder_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_FolderWithoutASettingsFile_IsRefused
+        Expect.EndCase "PackTests.Pack_FolderWithoutASettingsFile_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_SettingsThatIsAFolder_IsRefused
+        Expect.EndCase "PackTests.Pack_SettingsThatIsAFolder_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_SettingsSpelledInLowerCase_IsRefused
+        Expect.EndCase "PackTests.Pack_SettingsSpelledInLowerCase_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_SettingsInASubfolder_IsRefused
+        Expect.EndCase "PackTests.Pack_SettingsInASubfolder_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_Overwrite_DeletesTheOldFileAfterReadingTheFolder_SoAFileInsideIsPackedAgain
+        Expect.EndCase "PackTests.Pack_Overwrite_DeletesTheOldFileAfterReadingTheFolder_SoAFileInsideIsPackedAgain", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_AddsNoExtensionAndChecksNone
+        Expect.EndCase "PackTests.Pack_AddsNoExtensionAndChecksNone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackTests.Pack_DoesNotChangeTheFolder
+        Expect.EndCase "PackTests.Pack_DoesNotChangeTheFolder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Methods_RaiseNoError_WhenTheyFail
+        Expect.EndCase "ProjPackerTests.Methods_RaiseNoError_WhenTheyFail", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Log_IsCreatedWhenItDoesNotExist
+        Expect.EndCase "ProjPackerTests.Log_IsCreatedWhenItDoesNotExist", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Log_IsEmptiedWhenItExists
+        Expect.EndCase "ProjPackerTests.Log_IsEmptiedWhenItExists", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Log_HoldsTheLinesOfTheLastCallOnly
+        Expect.EndCase "ProjPackerTests.Log_HoldsTheLinesOfTheLastCallOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Log_IsUtf8WithCrLfAndNoByteOrderMark
+        Expect.EndCase "ProjPackerTests.Log_IsUtf8WithCrLfAndNoByteOrderMark", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Log_ThatCannotBeCreated_MakesTheCallFailBeforeItDoesAnything
+        Expect.EndCase "ProjPackerTests.Log_ThatCannotBeCreated_MakesTheCallFailBeforeItDoesAnything", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Log_LeftOut_WritesNoFile
+        Expect.EndCase "ProjPackerTests.Log_LeftOut_WritesNoFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Paths_Relative_StartFromTheCurrentDirectory
+        Expect.EndCase "ProjPackerTests.Paths_Relative_StartFromTheCurrentDirectory", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Paths_WithForwardSlashes_AreAccepted
+        Expect.EndCase "ProjPackerTests.Paths_WithForwardSlashes_AreAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ProjPackerTests.Paths_LongerThan260Characters_AreAccepted
+        Expect.EndCase "ProjPackerTests.Paths_LongerThan260Characters_AreAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TestMethodTests.Test_WithTheSampleProject_PassesAll24Tests
+        Expect.EndCase "TestMethodTests.Test_WithTheSampleProject_PassesAll24Tests", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TestMethodTests.Test_PrintsAHeadingAndAnInfoLineForTheSample
+        Expect.EndCase "TestMethodTests.Test_PrintsAHeadingAndAnInfoLineForTheSample", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TestMethodTests.Test_WithoutASample_RunsTwentyTestsAndSkipsFour
+        Expect.EndCase "TestMethodTests.Test_WithoutASample_RunsTwentyTestsAndSkipsFour", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TestMethodTests.Test_WithASampleThatDoesNotExist_FailsAndRunsNoTest
+        Expect.EndCase "TestMethodTests.Test_WithASampleThatDoesNotExist_FailsAndRunsNoTest", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TestMethodTests.Test_WithASampleThatIsNotAProject_FailsTheFourSampleTests
+        Expect.EndCase "TestMethodTests.Test_WithASampleThatIsNotAProject_FailsTheFourSampleTests", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TestMethodTests.Test_NeverChangesTheSampleFile
+        Expect.EndCase "TestMethodTests.Test_NeverChangesTheSampleFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        TestMethodTests.Test_DeletesItsWorkFolder
+        Expect.EndCase "TestMethodTests.Test_DeletesItsWorkFolder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_FileOfTheImportExportTool_WritesEveryFile
+        Expect.EndCase "UnpackTests.Unpack_FileOfTheImportExportTool_WritesEveryFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_SummaryLine_NamesTheProjectTheFolderAndTheCounts
+        Expect.EndCase "UnpackTests.Unpack_SummaryLine_NamesTheProjectTheFolderAndTheCounts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_SummaryLine_BeginsWithImported
+        Expect.EndCase "UnpackTests.Unpack_SummaryLine_BeginsWithImported", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_PutsTheTopLevelEntriesDirectlyIntoOutputDir
+        Expect.EndCase "UnpackTests.Unpack_PutsTheTopLevelEntriesDirectlyIntoOutputDir", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_CreatesOutputDirWithItsMissingParents
+        Expect.EndCase "UnpackTests.Unpack_CreatesOutputDirWithItsMissingParents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_EmptyOutputDir_CreatesAFolderNamedAfterTheProjectInTheCurrentDirectory
+        Expect.EndCase "UnpackTests.Unpack_EmptyOutputDir_CreatesAFolderNamedAfterTheProjectInTheCurrentDirectory", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_ExtensionOfInputFile_IsNotChecked
+        Expect.EndCase "UnpackTests.Unpack_ExtensionOfInputFile_IsNotChecked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_ReplacesFilesOfTheSameNameAndKeepsTheOthers
+        Expect.EndCase "UnpackTests.Unpack_ReplacesFilesOfTheSameNameAndKeepsTheOthers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_FileThatIsNotAProject_ChangesNothingInOutputDir
+        Expect.EndCase "UnpackTests.Unpack_FileThatIsNotAProject_ChangesNothingInOutputDir", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_NeverChangesTheProjectFile
+        Expect.EndCase "UnpackTests.Unpack_NeverChangesTheProjectFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_FileThatDoesNotExist_Fails
+        Expect.EndCase "UnpackTests.Unpack_FileThatDoesNotExist_Fails", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_InputThatIsAFolder_Fails
+        Expect.EndCase "UnpackTests.Unpack_InputThatIsAFolder_Fails", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_FileThatIsNotAProject_FailsWithBadMagic
+        Expect.EndCase "UnpackTests.Unpack_FileThatIsNotAProject_FailsWithBadMagic", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_FileOfAnotherFormatVersion_FailsWithUnsupportedVersion
+        Expect.EndCase "UnpackTests.Unpack_FileOfAnotherFormatVersion_FailsWithUnsupportedVersion", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_FileThatEndsTooSoon_FailsAsTruncated
+        Expect.EndCase "UnpackTests.Unpack_FileThatEndsTooSoon_FailsAsTruncated", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        UnpackTests.Unpack_OutputDirThatCannotBeCreated_Fails
+        Expect.EndCase "UnpackTests.Unpack_OutputDirThatCannotBeCreated_Fails", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/Sample.twin b/test/package-tests/tbProjPacker/Sources/Sample.twin
new file mode 100644
index 00000000..5ccf3ea5
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/Sample.twin
@@ -0,0 +1,112 @@
+' Sample: the project the test cases of tbProjPacker pack and unpack, written out in code, and the
+' same project as the Import/export tool (scripts/impexp.mjs) packs it.
+'
+' The tree is a folder named PackSample:
+'   Settings                         {"project.name": "PackSample"} and a line feed
+'   Sources\Module1.twin             CR LF line endings
+'   Sources\Forms\Form1.cls          CR LF line endings
+'   Resources\BINARY\#101            00 01 0A 0D 0A FF 0D 7F
+'   Miscellaneous\notes.txt          LF line endings
+'   Miscellaneous\caf<e acute>.txt   "x"
+'   ImportedTypeLibraries\, Packages\  empty
+'
+' The resource BINARY/#201 of this project (Resources/BINARY/#201) is that tree packed by the
+' Import/export tool: 621 bytes, 6 files and 7 directories. It is the reference for the file the
+' package should write, and for a file the package should read.
+Module Sample
+
+    Public Function SettingsBytes() As Byte()
+        SettingsBytes = Files.BytesOf("{""project.name"": ""PackSample""}" & vbLf)
+    End Function
+
+    Public Function ModuleBytes() As Byte()
+        ModuleBytes = Files.BytesOf("Module Module1" & vbCrLf & vbCrLf & "    Public Sub Hello()" & vbCrLf & "    End Sub" & vbCrLf & vbCrLf & "End Module" & vbCrLf)
+    End Function
+
+    Public Function FormBytes() As Byte()
+        FormBytes = Files.BytesOf("Class Form1" & vbCrLf & "End Class" & vbCrLf)
+    End Function
+
+    Public Function BinaryBytes() As Byte()
+        Dim b(0 To 7) As Byte
+        b(0) = &H0
+        b(1) = &H1
+        b(2) = &HA
+        b(3) = &HD
+        b(4) = &HA
+        b(5) = &HFF
+        b(6) = &HD
+        b(7) = &H7F
+        BinaryBytes = b
+    End Function
+
+    Public Function NotesBytes() As Byte()
+        NotesBytes = Files.BytesOf("one" & vbLf & "two" & vbLf)
+    End Function
+
+    Public Function CafeName() As String
+        CafeName = "caf" & ChrW$(233) & ".txt"
+    End Function
+
+    ' The file of the Import/export tool.
+    Public Function ReferenceBytes() As Byte()
+        ReferenceBytes = LoadResData(201, "BINARY")
+    End Function
+
+    ' Writes the tree as a folder named FolderName in Parent and returns its path.
+    Public Function Build(ByVal Parent As String, Optional ByVal FolderName As String = "PackSample") As String
+        Dim root As String
+        root = Parent & "\" & FolderName
+        Files.MakeFolder root & "\Sources\Forms"
+        Files.MakeFolder root & "\Resources\BINARY"
+        Files.MakeFolder root & "\Miscellaneous"
+        Files.MakeFolder root & "\ImportedTypeLibraries"
+        Files.MakeFolder root & "\Packages"
+        Files.WriteBytes root & "\Settings", SettingsBytes()
+        Files.WriteBytes root & "\Sources\Module1.twin", ModuleBytes()
+        Files.WriteBytes root & "\Sources\Forms\Form1.cls", FormBytes()
+        Files.WriteBytes root & "\Resources\BINARY\#101", BinaryBytes()
+        Files.WriteBytes root & "\Miscellaneous\notes.txt", NotesBytes()
+        Files.WriteText root & "\Miscellaneous\" & CafeName(), "x"
+        Build = root
+    End Function
+
+    ' The listing (Files.ListTree) of the tree.
+    Public Function Listing() As String
+        Listing = Files.SortedJoin( _
+            "ImportedTypeLibraries\" & vbLf & "Miscellaneous\" & vbLf & "Miscellaneous\" & CafeName() & vbLf & _
+            "Miscellaneous\notes.txt" & vbLf & "Packages\" & vbLf & "Resources\" & vbLf & "Resources\BINARY\" & vbLf & _
+            "Resources\BINARY\#101" & vbLf & "Settings" & vbLf & "Sources\" & vbLf & "Sources\Forms\" & vbLf & _
+            "Sources\Forms\Form1.cls" & vbLf & "Sources\Module1.twin" & vbLf)
+    End Function
+
+    ' Checks that Folder holds the tree: the same folders and files, the same bytes in each.
+    Public Sub ExpectTree(ByVal Folder As String, ByVal What As String)
+        Dim b() As Byte
+        Expect.AreEqual Listing(), Files.ListTree(Folder), What & ": the folders and files"
+        If Files.Exists(Folder & "\Settings") Then
+            b = SettingsBytes()
+            Expect.AreEqual "", Files.Difference(Files.ReadBytes(Folder & "\Settings"), b), What & ": Settings"
+        End If
+        If Files.Exists(Folder & "\Sources\Module1.twin") Then
+            b = ModuleBytes()
+            Expect.AreEqual "", Files.Difference(Files.ReadBytes(Folder & "\Sources\Module1.twin"), b), What & ": Sources\Module1.twin"
+        End If
+        If Files.Exists(Folder & "\Sources\Forms\Form1.cls") Then
+            b = FormBytes()
+            Expect.AreEqual "", Files.Difference(Files.ReadBytes(Folder & "\Sources\Forms\Form1.cls"), b), What & ": Sources\Forms\Form1.cls"
+        End If
+        If Files.Exists(Folder & "\Resources\BINARY\#101") Then
+            b = BinaryBytes()
+            Expect.AreEqual "", Files.Difference(Files.ReadBytes(Folder & "\Resources\BINARY\#101"), b), What & ": Resources\BINARY\#101"
+        End If
+        If Files.Exists(Folder & "\Miscellaneous\notes.txt") Then
+            b = NotesBytes()
+            Expect.AreEqual "", Files.Difference(Files.ReadBytes(Folder & "\Miscellaneous\notes.txt"), b), What & ": Miscellaneous\notes.txt"
+        End If
+        If Files.Exists(Folder & "\Miscellaneous\" & CafeName()) Then
+            Expect.AreEqual "x", Files.ReadText(Folder & "\Miscellaneous\" & CafeName()), What & ": Miscellaneous\caf" & "(e acute).txt"
+        End If
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/Sandbox.twin b/test/package-tests/tbProjPacker/Sources/Sandbox.twin
new file mode 100644
index 00000000..b85b72c5
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/Sandbox.twin
@@ -0,0 +1,91 @@
+' Sandbox: the folders the test cases of tbProjPacker work in, and the few things they do to the
+' process around a call.
+'
+' Every file and folder a case makes is under %TEMP%\tbdocs-package-tests\tbProjPacker\. A case asks
+' for a fresh folder of its own (Fresh), which empties it first in case an earlier run left
+' something, and removes it at its end (Remove). Remove goes through cmd's rmdir, which takes a path
+' of more than 260 characters in its \\?\ form.
+'
+' MapDrive makes a drive letter of a sandbox folder for the length of a case (the cases that use
+' it remove it), so that a path directly under a drive root can be given to Unpack without naming
+' a folder of the user's.
+Module Sandbox
+
+    Private Declare PtrSafe Function GetLogicalDrives Lib "kernel32" () As Long
+
+    Private mMappedDrive As String
+
+    Public Function Root() As String
+        Root = Environ$("TEMP") & "\tbdocs-package-tests\tbProjPacker"
+    End Function
+
+    ' A new, empty folder for one case.
+    Public Function Fresh(ByVal Tag As String) As String
+        Dim p As String
+        p = Root() & "\" & Tag
+        Remove p
+        Files.MakeFolder p
+        Fresh = p
+    End Function
+
+    ' Removes a folder with everything in it, and then the sandbox itself when nothing else is in it.
+    ' Raises no error.
+    Public Sub Remove(ByVal Path As String)
+        On Error Resume Next
+        UnmapDrive
+        Run "rmdir /s /q ""\\?\" & Path & """"
+        RmDir Root()
+        RmDir Environ$("TEMP") & "\tbdocs-package-tests"
+        Err.Clear
+    End Sub
+
+    ' Makes a drive letter (from Z downwards, one not in use) of Folder, and returns it as "Z:", or ""
+    ' when it could not be made. A drive is made only by a case that removes it, UnmapDrive or Remove.
+    Public Function MapDrive(ByVal Folder As String) As String
+        Dim i As Long, used As Long, letter As String
+        UnmapDrive
+        used = GetLogicalDrives()
+        For i = 25 To 3 Step -1
+            If (used And CLng(2 ^ i)) = 0 Then
+                letter = Chr$(65 + i) & ":"
+                Run "subst " & letter & " """ & Folder & """"
+                If (GetLogicalDrives() And CLng(2 ^ i)) <> 0 Then
+                    mMappedDrive = letter
+                    MapDrive = letter
+                End If
+                Exit Function
+            End If
+        Next
+    End Function
+
+    Public Sub UnmapDrive()
+        If Len(mMappedDrive) > 0 Then
+            Run "subst " & mMappedDrive & " /d"
+            mMappedDrive = ""
+        End If
+    End Sub
+
+    ' A path that starts with Base and is exactly Length characters long, by adding folder names of
+    ' 100 characters or fewer. Nothing is created.
+    Public Function PathOfLength(ByVal Base As String, ByVal Length As Long) As String
+        Dim p As String, remaining As Long, k As Long
+        p = Base
+        Do While Len(p) < Length
+            remaining = Length - Len(p)
+            If remaining <= 101 Then
+                k = remaining - 1
+            ElseIf remaining - 101 = 1 Then
+                k = 99
+            Else
+                k = 100
+            End If
+            p = p & "\" & String$(k, "d")
+        Loop
+        PathOfLength = p
+    End Function
+
+    Private Sub Run(ByVal CommandLine As String)
+        CreateObject("WScript.Shell").Run "cmd /c " & CommandLine & " >nul 2>&1", 0, True
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/TestMethodTests.twin b/test/package-tests/tbProjPacker/Sources/TestMethodTests.twin
new file mode 100644
index 00000000..529fa18c
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/TestMethodTests.twin
@@ -0,0 +1,131 @@
+' tbProjPacker, ProjPacker.Test: the package's own tests, what they print and what they return.
+'
+' Test makes its work folder, impexp-test- and a number, in the folder TEMP names and deletes it at
+' its end. That folder is the package's own, not a file of a case; the cases check that none is left.
+[TestFixture]
+Module TestMethodTests
+
+    ' Calls Test with the sample path and the log, and returns the result.
+    Private Function RunWithTemp(ByVal Base As String, ByVal SamplePath As String, ByVal LogFile As String) As Boolean
+        Dim pp As New ProjPacker
+        RunWithTemp = pp.Test(SamplePath, LogFile)
+    End Function
+
+    ' The number of folders named impexp-test- and something in the TEMP folder.
+    Private Function WorkFolders() As Long
+        Dim nm As String
+        nm = Dir$(Environ$("TEMP") & "\impexp-test-*", vbDirectory)
+        Do While Len(nm) > 0
+            WorkFolders = WorkFolders + 1
+            nm = Dir$
+        Loop
+    End Function
+
+    [TestCase]
+    Public Sub Test_WithTheSampleProject_PassesAll24Tests()
+        Expect.Begin
+        Dim base As String, logFile As String, text As String
+        base = Sandbox.Fresh("Test_Sample")
+        Files.WriteBytes base & "\Sample.twinproj", Sample.ReferenceBytes()
+        logFile = base & "\test.log"
+        Expect.IsTrue RunWithTemp(base, base & "\Sample.twinproj", logFile), "Test with the sample project returns True"
+        text = Files.ReadText(logFile)
+        Expect.AreEqual 24, Files.CountLines(text, "  [PASS] "), "the [PASS] lines"
+        Expect.AreEqual 0, Files.CountLines(text, "  [FAIL] "), "the [FAIL] lines"
+        Expect.AreEqual 0, Files.CountLines(text, "  [SKIP] "), "the [SKIP] lines"
+        Expect.AreEqual 1, Files.CountLines(text, "24/24 tests passed."), "the summary line"
+        Expect.AreEqual 1, Files.CountLines(text, "  [PASS] Parse sample (invariants + re-parse consistency)"), "the line of the first test"
+        Expect.AreEqual 1, Files.CountLines(text, "  [PASS] In-memory round-trip (parse -> serialize -> re-parse)"), "the line of the second test"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Test_PrintsAHeadingAndAnInfoLineForTheSample()
+        Expect.Begin
+        Dim base As String, logFile As String, text As String, lines() As String
+        base = Sandbox.Fresh("Test_Heading")
+        Files.WriteBytes base & "\Sample.twinproj", Sample.ReferenceBytes()
+        logFile = base & "\test.log"
+        RunWithTemp base, base & "\Sample.twinproj", logFile
+        text = Files.ReadText(logFile)
+        lines = Files.LinesOf(text)
+        Expect.AreEqual "Self-test  workdir: " & Environ$("TEMP") & "\impexp-test-", Files.Head(lines(0), "Self-test  workdir: " & Environ$("TEMP") & "\impexp-test-"), "the heading: the work folder is made in the folder TEMP names"
+        Expect.AreEqual "Sample:            " & base & "\Sample.twinproj", lines(1), "the second line"
+        Expect.AreEqual 1, Files.CountLines(text, "  [INFO] root ""PackSample"", 6 files, 7 directories, "), "the [INFO] line with the project's name and counts"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Test_WithoutASample_RunsTwentyTestsAndSkipsFour()
+        Expect.Begin
+        Dim base As String, logFile As String, text As String
+        base = Sandbox.Fresh("Test_NoSample")
+        logFile = base & "\test.log"
+        Expect.IsTrue RunWithTemp(base, "", logFile), "Test with an empty samplePath returns True"
+        text = Files.ReadText(logFile)
+        Expect.AreEqual 20, Files.CountLines(text, "  [PASS] "), "the [PASS] lines"
+        Expect.AreEqual 0, Files.CountLines(text, "  [FAIL] "), "the [FAIL] lines"
+        Expect.AreEqual 4, Files.CountLines(text, "  [SKIP] "), "the [SKIP] lines"
+        Expect.AreEqual 1, Files.CountLines(text, "20/20 tests passed (4 skipped -- pass a .twinproj or .twinpack path to run them)."), "the summary line"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Test_WithASampleThatDoesNotExist_FailsAndRunsNoTest()
+        Expect.Begin
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Test_Missing")
+        logFile = base & "\test.log"
+        Expect.IsFalse RunWithTemp(base, base & "\Missing.twinproj", logFile), "Test with a samplePath that does not exist returns False"
+        Expect.AreEqual "Sample not found: " & base & "\Missing.twinproj" & vbCrLf, Files.ReadText(logFile), "the log"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Test_WithASampleThatIsNotAProject_FailsTheFourSampleTests()
+        Expect.Begin
+        Dim base As String, logFile As String, text As String
+        base = Sandbox.Fresh("Test_NotAProject")
+        Files.WriteText base & "\notes.txt", "this is not a project file"
+        logFile = base & "\test.log"
+        Expect.IsFalse RunWithTemp(base, base & "\notes.txt", logFile), "Test with a text file as the sample returns False"
+        text = Files.ReadText(logFile)
+        Expect.AreEqual 4, Files.CountLines(text, "  [FAIL] "), "the [FAIL] lines"
+        Expect.AreEqual 20, Files.CountLines(text, "  [PASS] "), "the [PASS] lines"
+        Expect.AreEqual 4, Files.CountLines(text, "         "), "the lines with the reason of a failed test"
+        Expect.AreEqual 1, Files.CountLines(text, "20/24 tests passed."), "the summary line"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Test_NeverChangesTheSampleFile()
+        Expect.Begin
+        Dim base As String, before() As Byte
+        base = Sandbox.Fresh("Test_SampleUnchanged")
+        Files.WriteBytes base & "\Sample.twinproj", Sample.ReferenceBytes()
+        before = Files.ReadBytes(base & "\Sample.twinproj")
+        RunWithTemp base, base & "\Sample.twinproj", ""
+        Expect.AreEqual "", Files.Difference(Files.ReadBytes(base & "\Sample.twinproj"), before), "the sample file after Test"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Test_DeletesItsWorkFolder()
+        Expect.Begin
+        Dim base As String, before As Long
+        base = Sandbox.Fresh("Test_WorkFolder")
+        Files.WriteBytes base & "\Sample.twinproj", Sample.ReferenceBytes()
+        before = WorkFolders()
+        RunWithTemp base, base & "\Sample.twinproj", ""
+        Expect.AreEqual before, WorkFolders(), "the folders named impexp-test- in the TEMP folder after Test, against before"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/Sources/UnpackTests.twin b/test/package-tests/tbProjPacker/Sources/UnpackTests.twin
new file mode 100644
index 00000000..2d3ba597
--- /dev/null
+++ b/test/package-tests/tbProjPacker/Sources/UnpackTests.twin
@@ -0,0 +1,276 @@
+' tbProjPacker, ProjPacker.Unpack: what is written, what is left alone, and the reasons it prints.
+'
+' The project file that most cases unpack is the one the Import/export tool wrote from the sample
+' tree (Sample.ReferenceBytes), so they check that the package reads the tool's file.
+[TestFixture]
+Module UnpackTests
+
+    ' Writes the Import/export tool's file as Folder\Name.
+    Private Sub WriteReference(ByVal Path As String)
+        Files.WriteBytes Path, Sample.ReferenceBytes()
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_FileOfTheImportExportTool_WritesEveryFile()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String
+        base = Sandbox.Fresh("Unpack_Reference")
+        WriteReference base & "\Sample.twinproj"
+        out = base & "\Out"
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", out), "Unpack of the Import/export tool's file returns True"
+        Sample.ExpectTree out, "the folder after Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_SummaryLine_NamesTheProjectTheFolderAndTheCounts()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String, logFile As String
+        base = Sandbox.Fresh("Unpack_SummaryLine")
+        WriteReference base & "\Sample.twinproj"
+        out = base & "\Out"
+        logFile = base & "\unpack.log"
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", out, False, logFile), "Unpack returns True"
+        Expect.AreEqual "Imported ""PackSample"" -> " & out & "\  (6 files, 7 directories)" & vbCrLf, Files.ReadText(logFile), "the log"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_SummaryLine_BeginsWithImported()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Unpack_Imported")
+        WriteReference base & "\Sample.twinproj"
+        logFile = base & "\unpack.log"
+        pp.Unpack base & "\Sample.twinproj", base & "\Out", False, logFile
+        Expect.AreEqual "Imported ", Files.Head(Files.ReadText(logFile), "Imported "), "the first characters of the summary line of Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_PutsTheTopLevelEntriesDirectlyIntoOutputDir()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String
+        base = Sandbox.Fresh("Unpack_Direct")
+        WriteReference base & "\Sample.twinproj"
+        pp.Unpack base & "\Sample.twinproj", base & "\Out"
+        Expect.IsTrue Files.Exists(base & "\Out\Settings"), "Settings directly in outputDir"
+        Expect.IsTrue Files.IsFolder(base & "\Out\Sources"), "Sources directly in outputDir"
+        Expect.IsFalse Files.Exists(base & "\Out\PackSample"), "a folder named after the project in outputDir"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_CreatesOutputDirWithItsMissingParents()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String
+        base = Sandbox.Fresh("Unpack_Parents")
+        WriteReference base & "\Sample.twinproj"
+        out = base & "\one\two\three"
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", out), "Unpack to a folder whose parents do not exist returns True"
+        Sample.ExpectTree out, "the folder after Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_EmptyOutputDir_CreatesAFolderNamedAfterTheProjectInTheCurrentDirectory()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, here As String
+        base = Sandbox.Fresh("Unpack_Current")
+        WriteReference base & "\Sample.twinproj"
+        here = CurDir$
+        ChDrive base
+        ChDir base
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", ""), "Unpack with an empty outputDir returns True"
+        ChDrive here
+        ChDir here
+        Expect.IsTrue Files.Exists(base & "\PackSample\Settings"), "Settings in a folder named PackSample in the current directory"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_ExtensionOfInputFile_IsNotChecked()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String
+        base = Sandbox.Fresh("Unpack_Extension")
+        WriteReference base & "\sample.dat"
+        Expect.IsTrue pp.Unpack(base & "\sample.dat", base & "\Out"), "Unpack of a project file named sample.dat returns True"
+        Sample.ExpectTree base & "\Out", "the folder after Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_ReplacesFilesOfTheSameNameAndKeepsTheOthers()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String
+        base = Sandbox.Fresh("Unpack_Replace")
+        WriteReference base & "\Sample.twinproj"
+        out = base & "\Out"
+        Files.MakeFolder out & "\Extra"
+        Files.WriteText out & "\Settings", "old settings"
+        Files.WriteText out & "\Extra\keep.txt", "keep"
+        Files.WriteText out & "\loose.txt", "loose"
+        Expect.IsTrue pp.Unpack(base & "\Sample.twinproj", out), "Unpack into a folder that holds files returns True"
+        Expect.AreEqual "", Files.Difference(Files.ReadBytes(out & "\Settings"), Sample.SettingsBytes()), "Settings, which the project holds"
+        Expect.AreEqual "keep", Files.ReadText(out & "\Extra\keep.txt"), "Extra\keep.txt, which the project does not hold"
+        Expect.AreEqual "loose", Files.ReadText(out & "\loose.txt"), "loose.txt, which the project does not hold"
+        Expect.IsTrue pp.Pack(out, base & "\Again.twinproj"), "Pack of the folder returns True"
+        Expect.IsTrue pp.Unpack(base & "\Again.twinproj", base & "\Back"), "Unpack of the packed file returns True"
+        Expect.IsTrue Files.Exists(base & "\Back\loose.txt"), "loose.txt in what Pack packed from the folder"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_FileThatIsNotAProject_ChangesNothingInOutputDir()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, out As String, before As String
+        base = Sandbox.Fresh("Unpack_Bad_Nothing")
+        Files.WriteText base & "\notes.txt", "this is not a project file"
+        out = base & "\Out"
+        Files.MakeFolder out & "\Sub"
+        Files.WriteText out & "\Settings", "s"
+        Files.WriteText out & "\Sub\a.txt", "a"
+        before = Files.ListTree(out)
+        Expect.IsFalse pp.Unpack(base & "\notes.txt", out, True), "Unpack of a text file with cleanFirst returns False"
+        Expect.AreEqual before, Files.ListTree(out), "the folders and files of outputDir"
+        Expect.AreEqual "s", Files.ReadText(out & "\Settings"), "Settings in outputDir"
+        Expect.IsFalse pp.Unpack(base & "\Missing.twinproj", out, True), "Unpack of a file that does not exist with cleanFirst returns False"
+        Expect.AreEqual before, Files.ListTree(out), "the folders and files of outputDir after the second call"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_NeverChangesTheProjectFile()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, file As String, before() As Byte
+        base = Sandbox.Fresh("Unpack_Input")
+        file = base & "\Sample.twinproj"
+        WriteReference file
+        before = Files.ReadBytes(file)
+        pp.Unpack file, base & "\Out", True
+        Expect.AreEqual "", Files.Difference(Files.ReadBytes(file), before), "the project file after Unpack"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_FileThatDoesNotExist_Fails()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Unpack_Missing")
+        logFile = base & "\unpack.log"
+        Expect.IsFalse pp.Unpack(base & "\Missing.twinproj", base & "\Out", False, logFile), "Unpack of a file that does not exist returns False"
+        Expect.AreEqual "Unpack failed: Input file not found: " & base & "\Missing.twinproj" & vbCrLf, Files.ReadText(logFile), "the log"
+        Expect.IsFalse Files.Exists(base & "\Out"), "outputDir was created"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_InputThatIsAFolder_Fails()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Unpack_Folder")
+        Files.MakeFolder base & "\Sample.twinproj"
+        logFile = base & "\unpack.log"
+        Expect.IsFalse pp.Unpack(base & "\Sample.twinproj", base & "\Out", False, logFile), "Unpack of a folder returns False"
+        Expect.AreEqual "Unpack failed: Input is a directory, not a file: " & base & "\Sample.twinproj" & vbCrLf, Files.ReadText(logFile), "the log"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_FileThatIsNotAProject_FailsWithBadMagic()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Unpack_BadMagic")
+        Files.WriteText base & "\notes.txt", "this is not a project file"
+        logFile = base & "\unpack.log"
+        Expect.IsFalse pp.Unpack(base & "\notes.txt", base & "\Out", False, logFile), "Unpack of a text file returns False"
+        Expect.AreEqual "Unpack failed: Bad magic: ", Files.Head(Files.ReadText(logFile), "Unpack failed: Bad magic: "), "the log"
+        Expect.IsFalse Files.Exists(base & "\Out"), "outputDir was created"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_FileOfAnotherFormatVersion_FailsWithUnsupportedVersion()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        Dim b(0 To 5) As Byte
+        base = Sandbox.Fresh("Unpack_Version")
+        b(0) = &H1C
+        b(1) = &HA5
+        b(2) = &HB
+        b(3) = &HEA
+        b(4) = 2
+        b(5) = 0
+        Files.WriteBytes base & "\v2.twinproj", b
+        logFile = base & "\unpack.log"
+        Expect.IsFalse pp.Unpack(base & "\v2.twinproj", base & "\Out", False, logFile), "Unpack of a file with the project magic number and format version 2 returns False"
+        Expect.AreEqual "Unpack failed: Unsupported file format version: ", Files.Head(Files.ReadText(logFile), "Unpack failed: Unsupported file format version: "), "the log"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_FileThatEndsTooSoon_FailsAsTruncated()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        Dim all() As Byte, cut() As Byte
+        Dim i As Long
+        base = Sandbox.Fresh("Unpack_Truncated")
+        all = Sample.ReferenceBytes()
+        ReDim cut(0 To 299)
+        For i = 0 To 299
+            cut(i) = all(i)
+        Next
+        Files.WriteBytes base & "\cut.twinproj", cut
+        logFile = base & "\unpack.log"
+        Expect.IsFalse pp.Unpack(base & "\cut.twinproj", base & "\Out", False, logFile), "Unpack of the first 300 bytes of a project file returns False"
+        Expect.AreEqual "Unpack failed: Truncated file: ", Files.Head(Files.ReadText(logFile), "Unpack failed: Truncated file: "), "the log"
+        Expect.IsFalse Files.Exists(base & "\Out"), "outputDir was created"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Unpack_OutputDirThatCannotBeCreated_Fails()
+        Expect.Begin
+        Dim pp As New ProjPacker
+        Dim base As String, logFile As String
+        base = Sandbox.Fresh("Unpack_CannotCreate")
+        WriteReference base & "\Sample.twinproj"
+        Files.WriteText base & "\afile", "x"
+        logFile = base & "\unpack.log"
+        Expect.IsFalse pp.Unpack(base & "\Sample.twinproj", base & "\afile\Out", False, logFile), "Unpack to a folder below a file returns False"
+        Expect.AreEqual "Unpack failed: Cannot create directory: ", Files.Head(Files.ReadText(logFile), "Unpack failed: Cannot create directory: "), "the log"
+        Sandbox.Remove base
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tbProjPacker/expect.json b/test/package-tests/tbProjPacker/expect.json
new file mode 100644
index 00000000..95f4c894
--- /dev/null
+++ b/test/package-tests/tbProjPacker/expect.json
@@ -0,0 +1,4 @@
+{
+  "version": "1.1.0.0",
+  "cases": {}
+}
diff --git a/test/package-tests/tsJson/Sources/DatesTests.twin b/test/package-tests/tsJson/Sources/DatesTests.twin
new file mode 100644
index 00000000..b7933199
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/DatesTests.twin
@@ -0,0 +1,119 @@
+' ParseIso8601 and FormatIso8601: the forms of ISO 8601 that the package reads, and the ones it refuses.
+[TestFixture]
+Module DatesTests
+
+    ' "yyyy-mm-ddThh:nn:ss(.fff)" of the date read from the text, or "InvalidDate: <message>".
+    Private Function Read(ByVal Text As String) As String
+        Helpers.Reset
+        Dim d As Date = Json.ParseIso8601(Text)
+        If JsonError.HasError Then
+            Read = JsonError.Code & ": " & JsonError.Message
+        Else
+            Read = Json.FormatIso8601(d)
+        End If
+    End Function
+
+    [TestCase]
+    Public Sub ParseIso8601_DateAndTime_AreRead()
+        Expect.Begin
+        Expect.AreEqual "2026-08-19T09:15:30.250", Read("2026-08-19T09:15:30.250"), "a date with a time and a fraction"
+        Expect.AreEqual "2026-08-19T00:00:00", Read("2026-08-19"), "a date alone"
+        Expect.AreEqual "2026-08-19T09:15:30", Read("2026-08-19 09:15:30"), "a space for the T"
+        Expect.AreEqual "2026-08-19T00:00:00", Read("  2026-08-19  "), "white space around the text"
+        Expect.AreEqual "0100-01-01T00:00:00", Read("0100-01-01"), "the first year"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso8601_Fraction_IsCutToMilliseconds()
+        Expect.Begin
+        Expect.AreEqual "2026-08-19T09:15:30.123", Read("2026-08-19T09:15:30.123456"), "a fraction of six digits"
+        Expect.AreEqual "2026-08-19T09:15:30.123", Read("2026-08-19T09:15:30.1239"), "a fraction of four digits that would round up"
+        Expect.AreEqual "2026-08-19T09:15:30.100", Read("2026-08-19T09:15:30.1"), "a fraction of one digit"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso8601_FormsOutsideTheSubset_AreInvalidDate()
+        Expect.Begin
+        Expect.AreEqual "InvalidDate: Date is out of range.", Read("0099-01-01"), "a year below 0100"
+        Expect.AreEqual "InvalidDate: Expected yyyy-mm-ddThh:nn:ss.", Read("2026-08-19T09:15"), "a time without seconds"
+        Expect.AreEqual "InvalidDate: Expected 'T' between date and time.", Read("2026-08-19t09:15:30"), "a lower-case t"
+        Expect.AreEqual "InvalidDate: Invalid timezone.", Read("2026-08-19T09:15:30+0100"), "an offset without a colon"
+        Expect.AreEqual "InvalidDate: Time is out of range.", Read("2026-08-19T09:15:60"), "seconds of 60"
+        Expect.AreEqual "InvalidDate: Date is out of range.", Read("2026-02-30"), "a day that does not exist"
+        Expect.AreEqual "InvalidDate: ISO-8601 date is too short.", Read("2026-8-19"), "a month of one digit"
+        Expect.AreEqual "InvalidDate: Expected yyyy-mm-dd.", Read("19.08.2026"), "a date in the German form"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso8601_Failure_ReturnsDateZero()
+        Expect.Begin
+        Helpers.Reset
+        Dim d As Date = Json.ParseIso8601("19.08.2026")
+        Expect.IsTrue d = 0, "the Date returned for text that is not a date"
+        Expect.AreEqual "InvalidDate", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseIso8601_TwoSpellingsOfOneInstant_GiveTheSameDate()
+        Expect.Begin
+        Helpers.Reset
+        Dim utc As Date = Json.ParseIso8601("2026-08-19T12:00:00Z")
+        Dim berlin As Date = Json.ParseIso8601("2026-08-19T14:00:00+02:00")
+        Dim ny As Date = Json.ParseIso8601("2026-08-19T08:00:00-04:00")
+        Expect.IsTrue utc = berlin, "12:00Z and 14:00+02:00"
+        Expect.IsTrue utc = ny, "12:00Z and 08:00-04:00"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatIso8601_WritesMillisecondsOnlyWhenTheyAreNotZero()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual "2026-08-19T09:15:30", Json.FormatIso8601(#8/19/2026 9:15:30 AM#), "a date with whole seconds"
+        Expect.AreEqual "2026-08-19T00:00:00", Json.FormatIso8601(#8/19/2026#), "a date with no time"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FormatIso8601_MillisecondsAboveHalfASecond_KeepTheSecondAndTheFraction()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual "2026-08-19T09:15:30.500", Json.FormatIso8601(Json.ParseIso8601("2026-08-19T09:15:30.500")), "FormatIso8601 of 09:15:30.500"
+        Expect.AreEqual "2026-08-19T09:15:30.501", Json.FormatIso8601(Json.ParseIso8601("2026-08-19T09:15:30.501")), "FormatIso8601 of 09:15:30.501"
+        Expect.AreEqual "2026-08-19T09:15:30.750", Json.FormatIso8601(Json.ParseIso8601("2026-08-19T09:15:30.750")), "FormatIso8601 of 09:15:30.750"
+        Expect.AreEqual "2026-08-19T09:15:30.999", Json.FormatIso8601(Json.ParseIso8601("2026-08-19T09:15:30.999")), "FormatIso8601 of 09:15:30.999"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_DateWithMillisecondsAboveHalfASecond_KeepsTheFraction()
+        Expect.Begin
+        Helpers.Reset
+        Dim d As Date = Json.ParseIso8601("2026-08-19T23:59:59.750")
+        Expect.AreEqual """2026-08-19T23:59:59.750""", Helpers.Min(d), "Serialize of 23:59:59.750"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_Date_IsAnIsoString()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual """2026-08-19T09:15:30""", Helpers.Min(#8/19/2026 9:15:30 AM#), "Serialize of a Date"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Json_Date_IsNotAJsonValue()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.TypeOfValue(#8/18/2026#) = jtUnknown, "TypeOfValue of a Date"
+        Expect.IsFalse Json.Equals(#8/18/2026#, #8/18/2026#), "Equals of two equal Dates"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/ErrorStateTests.twin b/test/package-tests/tsJson/Sources/ErrorStateTests.twin
new file mode 100644
index 00000000..517e146f
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/ErrorStateTests.twin
@@ -0,0 +1,297 @@
+' The last error: when it is set and cleared, a run-time error that stops it from being cleared (a
+' defect), and what a function that finds nothing does to it.
+[TestFixture]
+Module ErrorStateTests
+
+    ' ---- a run-time error that escapes from Serialize (a defect)
+
+    [TestCase]
+    Public Sub Serialize_TwoDimensionalArray_RaisesNoRunTimeError()
+        Expect.Begin
+        Helpers.Reset
+        Dim grid(0 To 1, 0 To 1) As Variant
+        Dim text As String
+        On Error Resume Next
+        text = Json.Serialize(grid, JsonOptions.Minified)
+        Dim n As Long = Err.Number
+        Dim d As String = Err.Description
+        Err.Clear
+        On Error GoTo 0
+        Helpers.Reset
+        Expect.AreEqual 0, n, "the run-time error number of Serialize with a two-dimensional array (" & d & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_TwoDimensionalArray_SetsTheLastError()
+        Expect.Begin
+        Helpers.Reset
+        Dim grid(0 To 1, 0 To 1) As Variant
+        Dim text As String
+        On Error Resume Next
+        text = Json.Serialize(grid, JsonOptions.Minified)
+        Err.Clear
+        On Error GoTo 0
+        Dim has As Boolean = JsonError.HasError
+        Helpers.Reset
+        Expect.IsTrue has, "JsonError.HasError after Serialize of a two-dimensional array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_AfterARunTimeErrorInSerialize_ClearsTheLastError()
+        Expect.Begin
+        Helpers.Reset
+        Dim grid(0 To 1, 0 To 1) As Variant
+        Dim text As String
+        On Error Resume Next
+        text = Json.Serialize(grid, JsonOptions.Minified)
+        Err.Clear
+        On Error GoTo 0
+        Dim v As Variant = Json.Parse("{")
+        v = Json.Parse("[1]")
+        Dim has As Boolean = JsonError.HasError
+        Dim code As String = JsonError.Code
+        Helpers.Reset
+        Expect.IsFalse has, "JsonError.HasError after Parse of [1], which worked (the code is " & code & ")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_AfterARunTimeErrorInSerialize_SetsItsOwnOrigin()
+        Expect.Begin
+        Helpers.Reset
+        Dim grid(0 To 1, 0 To 1) As Variant
+        Dim text As String
+        On Error Resume Next
+        text = Json.Serialize(grid, JsonOptions.Minified)
+        Err.Clear
+        On Error GoTo 0
+        Dim v As Variant = Json.Parse("{")
+        Dim origin As String = JsonError.Origin
+        Helpers.Reset
+        Expect.AreEqual "Json.Parse", origin, "JsonError.Origin after Parse of {"
+        Expect.Done
+    End Sub
+
+    ' ---- the last error belongs to the latest call
+
+    [TestCase]
+    Public Sub Parse_Failure_ReturnsEmptyAndSetsTheError()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse("[1, 2,]")
+        Expect.IsTrue IsEmpty(v), "Parse of [1, 2,] returns Empty"
+        Expect.IsTrue JsonError.HasError, "JsonError.HasError"
+        Expect.AreEqual "InvalidSyntax", JsonError.Code, "JsonError.Code"
+        Expect.AreEqual "Json.Parse", JsonError.Origin, "JsonError.Origin"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_AfterAFailure_ClearsTheError()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse("[1, 2,]")
+        v = Json.Parse("[1, 2]")
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after a Parse that worked"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TryParse_Failure_ReportsTheOriginOfParse()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant
+        Expect.IsFalse Json.TryParse("[1,2", v), "TryParse of [1,2"
+        Expect.IsTrue IsEmpty(v), "the value after the failed TryParse"
+        Expect.AreEqual "Json.Parse", JsonError.Origin, "JsonError.Origin"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_Null_ReturnsNullAndNoError()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse("null")
+        Expect.IsTrue IsNull(v), "Parse of null returns Null"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after Parse of null"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_ByteOrderMarkInString_IsInvalidSyntax()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse(ChrW(&HFEFF) & "[1]")
+        Expect.IsTrue IsEmpty(v), "Parse of a String that starts with U+FEFF returns Empty"
+        Expect.AreEqual "InvalidSyntax", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    ' ---- a function that finds nothing is not an error when its name says so
+
+    [TestCase]
+    Public Sub PointerExists_MissingPlace_IsFalseWithNoError()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1,""tags"":[""x""]}")
+        Expect.IsFalse Json.PointerExists(doc, "/nope"), "PointerExists of a missing member"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after PointerExists of a missing member"
+        Expect.IsFalse Json.PointerExists(doc, "/tags/5"), "PointerExists of a missing element"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after PointerExists of a missing element"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerTryGet_MissingPlace_IsFalseWithNoError()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1}")
+        Dim v As Variant = 5
+        Expect.IsFalse Json.PointerTryGet(doc, "/nope", v), "PointerTryGet of a missing member"
+        Expect.IsTrue IsEmpty(v), "the value after PointerTryGet of a missing member"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after PointerTryGet of a missing member"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Query_NothingMatches_IsEmptyWithNoError()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1}")
+        Dim r() As Variant = Json.Query(doc, "$.nothing")
+        Expect.AreEqual "[]", Helpers.Min(r), "the result of Query that matches nothing, as JSON"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after Query that matches nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryOne_NothingMatches_IsEmptyWithNoError()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1,""n"":null}")
+        Expect.IsTrue IsEmpty(Json.QueryOne(doc, "$.missing")), "QueryOne that matches nothing returns Empty"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after QueryOne that matches nothing"
+        Expect.IsTrue IsNull(Json.QueryOne(doc, "$.n")), "QueryOne of a null returns Null"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TryQueryOne_NothingMatches_IsFalseWithNoError()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1}")
+        Dim v As Variant
+        Expect.IsFalse Json.TryQueryOne(doc, "$.missing", v), "TryQueryOne that matches nothing"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after TryQueryOne that matches nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryHits_InvalidPath_SetsInvalidPath()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1}")
+        Dim hits() As JsonHit = Json.QueryHits(doc, "store.book")
+        Expect.AreEqual "InvalidPath", JsonError.Code, "JsonError.Code after QueryHits with a path that does not start with $"
+        Expect.Done
+    End Sub
+
+    ' ---- the members that cannot fail leave the last error alone
+
+    [TestCase]
+    Public Sub PureFunctions_LeaveTheLastErrorAlone()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse("[1, 2,]")
+        Dim x As Variant
+        x = Json.TypeOfValue(1)
+        x = Json.IsObject(1)
+        x = Json.IsArray(1)
+        x = Json.Equals(1, 1)
+        x = Json.PointerEscape("a/b")
+        x = Json.PointerUnescape("a~1b")
+        x = Json.IsValidPattern("a")
+        x = Json.IsMatchPattern("a", "a")
+        x = Json.IsSearchPattern("a", "a")
+        x = Json.FormatIso8601(#8/19/2026#)
+        Expect.IsTrue JsonError.HasError, "JsonError.HasError after the calls of functions that cannot fail"
+        Expect.AreEqual "InvalidSyntax", JsonError.Code, "JsonError.Code after the calls of functions that cannot fail"
+        Expect.Done
+    End Sub
+
+    ' ---- the unbound array of an empty list
+
+    [TestCase]
+    Public Sub EmptyList_UBoundRaisesError9()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1}")
+        Dim none() As Variant = Json.Query(doc, "$.nothing")
+        On Error Resume Next
+        Dim n As Long = UBound(none)
+        Expect.AreEqual 9, Err.Number, "the error of UBound for the Query result that is empty"
+        Err.Clear
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EmptyList_KeysItemsAndToVariantArray_AreUnbound()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonObject = Json.Map()
+        Dim a As JsonArray = Json.Arr()
+        Dim k() As String = o.Keys
+        Dim it() As Variant = o.Items
+        Dim v() As Variant = a.ToVariantArray
+        Dim n As Long
+        On Error Resume Next
+        n = UBound(k)
+        Expect.AreEqual 9, Err.Number, "the error of UBound for the Keys of an empty object"
+        Err.Clear
+        n = UBound(it)
+        Expect.AreEqual 9, Err.Number, "the error of UBound for the Items of an empty object"
+        Err.Clear
+        n = UBound(v)
+        Expect.AreEqual 9, Err.Number, "the error of UBound for ToVariantArray of an empty array"
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual "[]", Helpers.Min(v), "ToVariantArray of an empty array, serialized"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EmptyList_QueryHitsAndErrors_AreUnbound()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1}")
+        Dim hits() As JsonHit = Json.QueryHits(doc, "$.nothing")
+        Dim r As JsonValidationResult = Json.Validate(1, Helpers.Doc("{""type"":""integer""}"))
+        Dim errs() As JsonValidationError = r.Errors
+        Dim n As Long
+        On Error Resume Next
+        n = UBound(hits)
+        Expect.AreEqual 9, Err.Number, "the error of UBound for QueryHits that matches nothing"
+        Err.Clear
+        n = UBound(errs)
+        Expect.AreEqual 9, Err.Number, "the error of UBound for the Errors of a valid result"
+        Err.Clear
+        On Error GoTo 0
+        Expect.Done
+    End Sub
+
+    ' ---- the errors that are the language's own
+
+    [TestCase]
+    Public Sub Parse_FailedResultAssignedToObjectVariable_RaisesError424()
+        Expect.Begin
+        Helpers.Reset
+        On Error Resume Next
+        Dim o As JsonObject = Json.Parse("{")
+        Expect.AreEqual 424, Err.Number, "the error of the assignment of the Empty that a failed Parse returned"
+        Err.Clear
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/FileTests.twin b/test/package-tests/tsJson/Sources/FileTests.twin
new file mode 100644
index 00000000..5fe7caa0
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/FileTests.twin
@@ -0,0 +1,194 @@
+' ParseFile, WriteFile and the NDJSON file functions. Every file is under
+' %TEMP%\tbdocs-package-tests\tsJson\.
+[TestFixture]
+Module FileTests
+
+    Private Sub WriteBytes(ByVal Path As String, ByRef Bytes() As Byte)
+        Dim n As Long = FreeFile()
+        On Error Resume Next
+        Kill Path
+        Err.Clear
+        On Error GoTo 0
+        Open Path For Binary Access Write As #n
+        Put #n, , Bytes
+        Close #n
+    End Sub
+
+    Private Sub WriteEmptyFile(ByVal Path As String)
+        Dim n As Long = FreeFile()
+        Open Path For Output As #n
+        Close #n
+    End Sub
+
+    Private Function ReadBytes(ByVal Path As String) As Byte()
+        Dim n As Long = FreeFile()
+        Dim b() As Byte
+        Open Path For Binary Access Read As #n
+        If LOF(n) > 0 Then
+            ReDim b(0 To LOF(n) - 1)
+            Get #n, , b
+        End If
+        Close #n
+        ReadBytes = b
+    End Function
+
+    [TestCase]
+    Public Sub WriteFile_ThenParseFile_RoundTrips()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("WriteFile_ThenParseFile_RoundTrips")
+        Dim p As String = w & "\a.json"
+        Json.WriteFile p, Json.Map("n", 1, "s", "x"), JsonOptions.Minified
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after WriteFile"
+        Expect.AreEqual "{""n"":1,""s"":""x""}", Helpers.Min(Json.ParseFile(p)), "the document read back"
+        Dim ok As Boolean = False
+        Dim v As Variant
+        Expect.IsTrue Json.TryParseFile(p, v), "TryParseFile of the file"
+        Expect.AreEqual "{""n"":1,""s"":""x""}", Helpers.Min(v), "the document TryParseFile returned"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteFile_ReplacesAnExistingFile()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("WriteFile_ReplacesAnExistingFile")
+        Dim p As String = w & "\a.json"
+        Json.WriteFile p, Json.Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), JsonOptions.Minified
+        Json.WriteFile p, Json.Arr(1), JsonOptions.Minified
+        Expect.AreEqual "[1]", Helpers.Min(Json.ParseFile(p)), "the document after the second WriteFile"
+        Dim b() As Byte = ReadBytes(p)
+        Expect.AreEqual 3, UBound(b) - LBound(b) + 1, "the size of the file after the second WriteFile"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteFile_WritesUtf8_WithABomOnlyWhenAsked()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("WriteFile_WritesUtf8_WithABomOnlyWhenAsked")
+        Dim p As String = w & "\a.json"
+        Json.WriteFile p, ChrW(233), JsonOptions.Minified
+        Dim b() As Byte = ReadBytes(p)
+        Expect.AreEqual 4, UBound(b) - LBound(b) + 1, "the size of the file with no byte order mark"
+        Expect.AreEqual &HC3, b(1), "the first byte of e acute"
+        Dim o As JsonOptions = JsonOptions.Minified
+        o.IncludesBom = True
+        Json.WriteFile p, ChrW(233), o
+        b = ReadBytes(p)
+        Expect.AreEqual 7, UBound(b) - LBound(b) + 1, "the size of the file with a byte order mark"
+        Expect.AreEqual &HEF, b(0), "the first byte"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteFile_ValueThatCannotBeSerialized_LeavesTheFileAlone()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("WriteFile_ValueThatCannotBeSerialized_LeavesTheFileAlone")
+        Dim p As String = w & "\a.json"
+        Json.WriteFile p, Json.Arr(1), JsonOptions.Minified
+        Json.WriteFile p, Empty, JsonOptions.Minified
+        Expect.AreEqual "UnsupportedType", JsonError.Code, "JsonError.Code of WriteFile of Empty"
+        Expect.AreEqual "[1]", Helpers.Min(Json.ParseFile(p)), "the file after the failed WriteFile"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseFile_MissingFile_IsIoError()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("ParseFile_MissingFile_IsIoError")
+        Dim v As Variant = Json.ParseFile(w & "\missing.json")
+        Expect.IsTrue IsEmpty(v), "ParseFile of a file that does not exist returns Empty"
+        Expect.AreEqual "IoError", JsonError.Code, "JsonError.Code"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseFile_EmptyFile_IsUnexpectedEnd()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("ParseFile_EmptyFile_IsUnexpectedEnd")
+        Dim p As String = w & "\empty.json"
+        WriteEmptyFile p
+        Dim v As Variant = Json.ParseFile(p)
+        Expect.IsTrue IsEmpty(v), "ParseFile of an empty file returns Empty"
+        Expect.AreEqual "UnexpectedEnd", JsonError.Code, "JsonError.Code"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseFile_FileLargerThanMaxBytes_IsLimitExceeded()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("ParseFile_FileLargerThanMaxBytes_IsLimitExceeded")
+        Dim p As String = w & "\a.json"
+        Json.WriteFile p, Json.Arr(1, 2, 3), JsonOptions.Minified
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.MaxBytes = 4
+        Dim v As Variant = Json.ParseFile(p, o)
+        Expect.AreEqual "LimitExceeded", JsonError.Code, "JsonError.Code"
+        Expect.AreEqual "Json.ParseFile", JsonError.Origin, "JsonError.Origin"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseFile_UsesTheByteOrderMark_OrTheEncodingOption()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("ParseFile_UsesTheByteOrderMark_OrTheEncodingOption")
+        Dim p As String = w & "\a.json"
+        Dim b(0 To 7) As Byte
+        ' "[1]" in UTF-16 little endian with a byte order mark
+        b(0) = &HFF: b(1) = &HFE: b(2) = 91: b(3) = 0: b(4) = 49: b(5) = 0: b(6) = 93: b(7) = 0
+        WriteBytes p, b
+        Expect.AreEqual "[1]", Helpers.Min(Json.ParseFile(p)), "ParseFile of a UTF-16 little endian file with a byte order mark"
+        Dim c(0 To 5) As Byte
+        c(0) = 0: c(1) = 91: c(2) = 0: c(3) = 49: c(4) = 0: c(5) = 93
+        WriteBytes p, c
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.Encoding = jekUtf16Be
+        Expect.AreEqual "[1]", Helpers.Min(Json.ParseFile(p, o)), "ParseFile of a UTF-16 big endian file with Encoding jekUtf16Be"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLinesFile_ThenParseLinesFile_RoundTrips()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("WriteLinesFile_ThenParseLinesFile_RoundTrips")
+        Dim p As String = w & "\a.ndjson"
+        Json.WriteLinesFile p, Json.Arr(Json.Map("id", 1), Json.Map("id", 2))
+        Dim back As JsonArray = Json.ParseLinesFile(p)
+        Expect.AreEqual 2, back.Count, "the number of lines read back"
+        Expect.IsTrue Json.Equals(back.Map(0), Json.Map("id", 1)), "the first line"
+        Dim list As JsonArray
+        Expect.IsTrue Json.TryParseLinesFile(p, list), "TryParseLinesFile of the file"
+        Expect.AreEqual 2, list.Count, "the number of lines TryParseLinesFile returned"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WriteLinesFile_NoValues_CreatesAnEmptyFile()
+        Expect.Begin
+        Helpers.Reset
+        Dim w As String = Helpers.FreshFolder("WriteLinesFile_NoValues_CreatesAnEmptyFile")
+        Dim p As String = w & "\a.ndjson"
+        Json.WriteLinesFile p, Json.Arr()
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after WriteLinesFile of no values"
+        Expect.AreEqual 0, FileLen(p), "the size of the file"
+        Helpers.RemoveFolder w
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/Helpers.twin b/test/package-tests/tsJson/Sources/Helpers.twin
new file mode 100644
index 00000000..b48d7de4
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/Helpers.twin
@@ -0,0 +1,75 @@
+' Helpers: what the test cases of tsJson share.
+'
+' Every case starts with Reset, which empties the last error and ends the "nested call" mark that
+' a run-time error inside Json.Serialize leaves behind, so that one case cannot hand a stuck last
+' error to the next. The cases write no file except under %TEMP%\tbdocs-package-tests\tsJson\.
+Module Helpers
+
+    ' Clears the last error and ends any "nested call" mark of the package (JsonErrorStore.LeaveNested
+    ' is public although the package does not document it).
+    Public Sub Reset()
+        Dim i As Long
+        For i = 1 To 20
+            JsonErrorStore.LeaveNested
+        Next
+        JsonError.Clear
+    End Sub
+
+    ' The value as JSON text without white space.
+    Public Function Min(ByVal Value As Variant) As String
+        Min = Json.Serialize(Value, JsonOptions.Minified)
+    End Function
+
+    ' The document in JSON text; the case fails when the text does not parse.
+    Public Function Doc(ByVal Text As String) As Variant
+        Dim v As Variant
+        v = Json.Parse(Text)
+        If JsonError.HasError Then Expect.Fail "the document " & Text & " did not parse: " & JsonError.ToString()
+        If IsObject(v) Then Set Doc = v Else Doc = v
+    End Function
+
+    ' The result of Query as JSON text, "(error <code>)" for a path that is refused.
+    Public Function QueryText(ByVal Root As Variant, ByVal Path As String) As String
+        Dim r() As Variant
+        JsonError.Clear
+        r = Json.Query(Root, Path)
+        If JsonError.HasError Then
+            QueryText = "(error " & JsonError.Code & ")"
+        Else
+            QueryText = Min(r)
+        End If
+    End Function
+
+    ' The folder of the cases that write files.
+    Public Function Folder() As String
+        Folder = Environ$("TEMP") & "\tbdocs-package-tests\tsJson"
+    End Function
+
+    Public Function FreshFolder(ByVal Tag As String) As String
+        Dim p As String
+        p = Folder() & "\" & Tag
+        RemoveFolder p
+        On Error Resume Next
+        MkDir Environ$("TEMP") & "\tbdocs-package-tests"
+        MkDir Folder()
+        MkDir p
+        Err.Clear
+        On Error GoTo 0
+        FreshFolder = p
+    End Function
+
+    Public Sub RemoveFolder(ByVal Path As String)
+        On Error Resume Next
+        Dim f As String
+        f = Dir$(Path & "\*.*")
+        Do While Len(f) > 0
+            Kill Path & "\" & f
+            f = Dir$(Path & "\*.*")
+        Loop
+        RmDir Path
+        RmDir Folder()
+        RmDir Environ$("TEMP") & "\tbdocs-package-tests"
+        Err.Clear
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/ModelTests.twin b/test/package-tests/tsJson/Sources/ModelTests.twin
new file mode 100644
index 00000000..e9f71395
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/ModelTests.twin
@@ -0,0 +1,129 @@
+' The JSON model: JsonObject, JsonArray and the plain values; Map, Arr, Clone, Equals and TypeOfValue.
+[TestFixture]
+Module ModelTests
+
+    [TestCase]
+    Public Sub Map_RepeatedKey_ReplacesTheValueInTheFirstPlace()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonObject = Json.Map("a", 1, "b", 2, "a", 3)
+        Expect.AreEqual "{""a"":3,""b"":2}", Helpers.Min(o), "Map with a repeated key"
+        Expect.AreEqual 2, o.Count, "the number of members"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Map_OddNumberOfArguments_IsInvalidArgument()
+        Expect.Begin
+        Helpers.Reset
+        Dim bad As JsonObject = Json.Map("key")
+        Expect.IsTrue bad Is Nothing, "Map with one argument returns Nothing"
+        Expect.AreEqual "InvalidArgument", JsonError.Code, "JsonError.Code"
+        Expect.AreEqual "Json.Map", JsonError.Origin, "JsonError.Origin"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Map_KeyThatIsNotAString_IsInvalidArgument()
+        Expect.Begin
+        Helpers.Reset
+        Dim bad As JsonObject = Json.Map(1, 2)
+        Expect.IsTrue bad Is Nothing, "Map with a numeric key returns Nothing"
+        Expect.AreEqual "InvalidArgument", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Keys_AreComparedByCharacterCode()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonObject = Json.Map("a", 1, "A", 2)
+        Expect.AreEqual 2, o.Count, "the number of members for the keys a and A"
+        Expect.AreEqual 1, o.Item("a"), "the member a"
+        Expect.AreEqual 2, o.Item("A"), "the member A"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Arr_KeepsTheValuesAsTheyAre()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As JsonArray = Json.Arr(1, "two", True, Null, Json.Arr(), Json.Map())
+        Expect.AreEqual 6, a.Count, "the number of elements"
+        Expect.AreEqual "[1,""two"",true,null,[],{}]", Helpers.Min(a), "the elements"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TypeOfValue_ClassifiesTheValuesOfTheModel()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.TypeOfValue(Null) = jtNull, "Null"
+        Expect.IsTrue Json.TypeOfValue(True) = jtBoolean, "a Boolean"
+        Expect.IsTrue Json.TypeOfValue(3.5) = jtNumber, "a Double"
+        Expect.IsTrue Json.TypeOfValue(CByte(3)) = jtNumber, "a Byte"
+        Expect.IsTrue Json.TypeOfValue(CCur(3)) = jtNumber, "a Currency"
+        Expect.IsTrue Json.TypeOfValue(CDec(3)) = jtNumber, "a Decimal"
+        Expect.IsTrue Json.TypeOfValue("x") = jtString, "a String"
+        Expect.IsTrue Json.TypeOfValue(Json.Arr()) = jtArray, "a JsonArray"
+        Expect.IsTrue Json.TypeOfValue(Json.Map()) = jtObject, "a JsonObject"
+        Expect.IsTrue Json.TypeOfValue(Empty) = jtUnknown, "Empty"
+        Expect.IsTrue Json.TypeOfValue(#8/18/2026#) = jtUnknown, "a Date"
+        Dim plain(0 To 1) As Variant
+        Expect.IsTrue Json.TypeOfValue(plain) = jtUnknown, "a Variant array"
+        Expect.IsFalse Json.IsArray(plain), "IsArray of a Variant array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_CopiesEveryContainer()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As JsonObject = Json.Map("list", Json.Arr(1, 2))
+        Dim b As JsonObject = Json.Clone(a)
+        b.Arr("list").Add 3
+        Expect.AreEqual 2, a.Arr("list").Count, "the original after the copy was changed"
+        Expect.AreEqual 3, b.Arr("list").Count, "the copy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Assignment_SharesTheContainer()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As JsonObject = Json.Map("list", Json.Arr(1, 2))
+        Dim c As JsonObject = a
+        c.Arr("list").Add 9
+        Expect.AreEqual 3, a.Arr("list").Count, "the original after the other reference was changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Equals_ComparesJsonValues()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As Variant = Helpers.Doc("{""x"":1.0,""y"":[true,null]}")
+        Dim b As Variant = Helpers.Doc("{""y"":[true,null],""x"":1}")
+        Expect.IsTrue Json.Equals(a, b), "two objects whose keys come in another order"
+        Expect.IsTrue Json.Equals(1, 1.0), "1 and 1.0"
+        Expect.IsFalse Json.Equals("1", 1), "the string 1 and the number 1"
+        Expect.IsFalse Json.Equals(Json.Arr(1, 2), Json.Arr(2, 1)), "two arrays whose elements come in another order"
+        Expect.IsFalse Json.Equals("a", "A"), "a and A"
+        Expect.IsTrue Json.Equals(Empty, Empty), "Empty and Empty"
+        Expect.IsFalse Json.Equals(#8/18/2026#, #8/18/2026#), "two equal Dates"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Query_ReturnsTheContainersInsideTheDocument()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""n"":1}}")
+        Dim r() As Variant = Json.Query(doc, "$.a")
+        Dim inner As JsonObject = r(0)
+        inner.Item("n") = 2
+        Expect.AreEqual "{""a"":{""n"":2}}", Helpers.Min(doc), "the document after the container Query returned was changed"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/NumberTests.twin b/test/package-tests/tsJson/Sources/NumberTests.twin
new file mode 100644
index 00000000..824c6b50
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/NumberTests.twin
@@ -0,0 +1,120 @@
+' The numbers that Parse reads and Serialize writes. Every JSON number becomes a Decimal, so a number
+' outside the range of a Decimal is an error. RFC 8259 lets an implementation limit the range and
+' precision of numbers, so these cases check the limit the page states.
+[TestFixture]
+Module NumberTests
+
+    Private Function ParseError(ByVal Text As String) As String
+        Helpers.Reset
+        Dim v As Variant = Json.Parse(Text)
+        If JsonError.HasError Then ParseError = JsonError.Code Else ParseError = ""
+    End Function
+
+    Private Function ParseBack(ByVal Text As String) As String
+        Helpers.Reset
+        Dim v As Variant = Json.Parse(Text)
+        If JsonError.HasError Then ParseBack = "(error " & JsonError.Code & ")" Else ParseBack = Helpers.Min(v)
+    End Function
+
+    ' ---- numbers a Decimal cannot hold
+
+    [TestCase]
+    Public Sub Parse_ExponentAboveTheDecimalRange_IsInvalidNumber()
+        Expect.Begin
+        Expect.AreEqual "InvalidNumber", ParseError("1e29"), "Parse of 1e29"
+        Expect.AreEqual "InvalidNumber", ParseError("79228162514264337593543950336"), "Parse of 79228162514264337593543950336"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_ScaleBelowTheDecimalRange_IsInvalidNumber()
+        Expect.Begin
+        Expect.AreEqual "InvalidNumber", ParseError("1e-29"), "Parse of 1e-29"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_ThirtySixDigitNumber_IsInvalidNumber()
+        Expect.Begin
+        Expect.AreEqual "InvalidNumber", ParseError("3.14159265358979323846264338327950288"), "Parse of pi to 35 places"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_LargestDouble_IsInvalidNumber()
+        Expect.Begin
+        Expect.AreEqual "InvalidNumber", ParseError("1.7976931348623157e308"), "Parse of the largest Double"
+        Expect.Done
+    End Sub
+
+    ' ---- numbers it holds in full
+
+    [TestCase]
+    Public Sub Parse_NumbersInsideTheDecimalRange_KeepEveryDigit()
+        Expect.Begin
+        Expect.AreEqual "10000000000000000000000000000", ParseBack("1e28"), "Parse of 1e28"
+        Expect.AreEqual "79228162514264337593543950335", ParseBack("79228162514264337593543950335"), "Parse of the largest Decimal"
+        Expect.AreEqual "12345678901234567890123456789", ParseBack("12345678901234567890123456789"), "Parse of 29 digits"
+        Expect.AreEqual "0.0000000000000000000000000001", ParseBack("0.0000000000000000000000000001"), "Parse of 1e-28 written out"
+        Expect.AreEqual "0.0000000000000000000000000001", ParseBack("1e-28"), "Parse of 1e-28"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_FractionsAndExponents_ApplyThem()
+        Expect.Begin
+        Expect.AreEqual "1500", ParseBack("1.5E3"), "Parse of 1.5E3"
+        Expect.AreEqual "1", ParseBack("1.0"), "Parse of 1.0"
+        Expect.AreEqual "0.1", ParseBack("0.10"), "Parse of 0.10"
+        Expect.AreEqual "0", ParseBack("-0"), "Parse of -0"
+        Expect.AreEqual "-0.0125", ParseBack("-1.25e-2"), "Parse of -1.25e-2"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_Number_IsADecimal()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse("[1,2.5]")
+        Dim a As JsonArray = v
+        Expect.AreEqual "Decimal", TypeName(a.Item(0)), "the type of the number 1"
+        Expect.AreEqual "Decimal", TypeName(a.Item(1)), "the type of the number 2.5"
+        Expect.Done
+    End Sub
+
+    ' ---- Serialize of a number a Decimal cannot hold
+
+    [TestCase]
+    Public Sub Serialize_DoubleAboveTheDecimalRange_IsInvalidNumber()
+        Expect.Begin
+        Helpers.Reset
+        Dim text As String = Json.Serialize(1E+300, JsonOptions.Minified)
+        Expect.AreEqual "", text, "Serialize of 1E+300 returns the empty string"
+        Expect.AreEqual "InvalidNumber", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_DoubleJustAboveTheDecimalRange_IsInvalidNumber()
+        Expect.Begin
+        Helpers.Reset
+        Dim text As String = Json.Serialize(8E+28, JsonOptions.Minified)
+        Expect.AreEqual "", text, "Serialize of 8E+28 returns the empty string"
+        Expect.AreEqual "InvalidNumber", JsonError.Code, "JsonError.Code"
+        Expect.AreEqual "70000000000000000000000000000", Helpers.Min(7E+28), "Serialize of 7E+28, which a Decimal holds"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_Doubles_KeepFifteenSignificantDigits()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual "0.333333333333333", Helpers.Min(1 / 3), "Serialize of 1 / 3"
+        Expect.AreEqual "0.3", Helpers.Min(0.1 + 0.2), "Serialize of 0.1 + 0.2"
+        Expect.AreEqual "100000000000000000000", Helpers.Min(1E+20), "Serialize of 1E+20"
+        Expect.AreEqual "0.1", Helpers.Min(CSng(0.1)), "Serialize of CSng(0.1)"
+        Expect.AreEqual "1.5", Helpers.Min(CDec("1.50")), "Serialize of CDec(""1.50"")"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/OptionsTests.twin b/test/package-tests/tsJson/Sources/OptionsTests.twin
new file mode 100644
index 00000000..eb8012fc
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/OptionsTests.twin
@@ -0,0 +1,164 @@
+' JsonOptions: the presets, the predeclared object that is only a factory, and an object made with New.
+[TestFixture]
+Module OptionsTests
+
+    ' ---- the predeclared object is a factory
+
+    [TestCase]
+    Public Sub PredeclaredObject_Assignment_RaisesError5()
+        Expect.Begin
+        Helpers.Reset
+        On Error Resume Next
+        JsonOptions.Indent = 2
+        Dim n As Long = Err.Number
+        Dim s As String = Err.Source
+        Dim d As String = Err.Description
+        Err.Clear
+        On Error GoTo 0
+        Expect.AreEqual 5, n, "the error number of an assignment to JsonOptions.Indent"
+        Expect.AreEqual "JsonOptions", s, "the error source"
+        Expect.AreEqual "JsonOptions (default instance) is a factory. Use Rfc, Jsonc, Minified, or Pretty.", d, "the error description"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PredeclaredObject_Read_ReturnsTheEmptyValueOfTheType()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual 0, JsonOptions.Indent, "JsonOptions.Indent"
+        Expect.AreEqual 0, JsonOptions.MaxDepth, "JsonOptions.MaxDepth"
+        Expect.IsFalse JsonOptions.EscapesSolidus, "JsonOptions.EscapesSolidus"
+        Expect.AreEqual "", JsonOptions.Newline, "JsonOptions.Newline"
+        Expect.AreEqual 0, JsonOptions.Syntax, "JsonOptions.Syntax"
+        Expect.AreEqual 0, JsonOptions.MaxBytes, "JsonOptions.MaxBytes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Presets_HaveTheDocumentedDefaults()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual -1, JsonOptions.Minified.Indent, "Minified.Indent"
+        Expect.AreEqual 4, JsonOptions.Rfc.Indent, "Rfc.Indent"
+        Dim o As JsonOptions = JsonOptions.Minified
+        o.SortsKeys = True
+        Expect.AreEqual "{""a"":2,""b"":1}", Json.Serialize(Json.Map("b", 1, "a", 2), o), "Serialize with Minified and SortsKeys"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Rfc_HasTheDocumentedValues()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Rfc
+        Expect.AreEqual 4, o.Indent, "Indent"
+        Expect.AreEqual vbLf, o.Newline, "Newline"
+        Expect.IsTrue o.Syntax = jsRfc8259, "Syntax"
+        Expect.IsTrue o.Encoding = jekAuto, "Encoding"
+        Expect.IsFalse o.IncludesBom, "IncludesBom"
+        Expect.IsTrue o.DuplicateKeys = jdkError, "DuplicateKeys"
+        Expect.IsFalse o.SortsKeys, "SortsKeys"
+        Expect.IsFalse o.EscapesSolidus, "EscapesSolidus"
+        Expect.IsFalse o.EnsuresAscii, "EnsuresAscii"
+        Expect.IsFalse o.IsFormatAssertion, "IsFormatAssertion"
+        Expect.AreEqual 1000, o.MaxDepth, "MaxDepth"
+        Expect.AreEqual 16777216, o.MaxBytes, "MaxBytes"
+        Expect.AreEqual 1048576, o.MaxStringLength, "MaxStringLength"
+        Expect.AreEqual 1000000, o.MaxArrayItems, "MaxArrayItems"
+        Expect.AreEqual 1000000, o.MaxObjectMembers, "MaxObjectMembers"
+        Expect.IsFalse o Is JsonOptions.Rfc, "two calls of Rfc return the same object (they must not)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub JsoncMinifiedAndPretty_DifferFromRfcInOneProperty()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue JsonOptions.Jsonc.Syntax = jsJsonc, "Jsonc.Syntax"
+        Expect.AreEqual 4, JsonOptions.Jsonc.Indent, "Jsonc.Indent"
+        Expect.AreEqual -1, JsonOptions.Minified.Indent, "Minified.Indent"
+        Expect.IsTrue JsonOptions.Minified.Syntax = jsRfc8259, "Minified.Syntax"
+        Expect.AreEqual 4, JsonOptions.Pretty.Indent, "Pretty.Indent"
+        Expect.AreEqual vbLf, JsonOptions.Pretty.Newline, "Pretty.Newline"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_IsIndependentOfTheOriginal()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As JsonOptions = JsonOptions.Rfc
+        a.Indent = 2
+        Dim b As JsonOptions = a.Clone()
+        b.Indent = 8
+        Expect.AreEqual 2, a.Indent, "the original Indent"
+        Expect.AreEqual 8, b.Indent, "the copy's Indent"
+        Expect.AreEqual 4, JsonOptions.Rfc.Indent, "Indent of a new Rfc"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Limits_ZeroOrBelowMeansNoLimit()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.MaxDepth = -1
+        o.MaxArrayItems = 0
+        Dim v As Variant = Json.Parse(String$(1200, "[") & String$(1200, "]"), o)
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after Parse of 1200 nested arrays with MaxDepth -1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Options_AreNotChangedByACall()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Minified
+        o.MaxDepth = 5
+        Dim s As String = Json.Serialize(Json.Arr(1), o)
+        Expect.AreEqual -1, o.Indent, "Indent after the call"
+        Expect.AreEqual 5, o.MaxDepth, "MaxDepth after the call"
+        Expect.Done
+    End Sub
+
+    ' ---- an object made with New
+
+    [TestCase]
+    Public Sub New_Object_HasTheEmptyValueOfEachProperty()
+        Expect.Begin
+        Helpers.Reset
+        Dim jo As JsonOptions = New JsonOptions
+        Expect.AreEqual 0, jo.Indent, "Indent"
+        Expect.AreEqual "", jo.Newline, "Newline"
+        Expect.AreEqual 0, jo.Syntax, "Syntax"
+        Expect.AreEqual 0, jo.MaxDepth, "MaxDepth"
+        Expect.AreEqual 0, jo.MaxBytes, "MaxBytes"
+        Expect.AreEqual 0, jo.MaxStringLength, "MaxStringLength"
+        Expect.AreEqual 0, jo.MaxArrayItems, "MaxArrayItems"
+        Expect.AreEqual 0, jo.MaxObjectMembers, "MaxObjectMembers"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_Object_WritesNoLineBreaksButASpaceAfterEachColon()
+        Expect.Begin
+        Helpers.Reset
+        Dim jo As JsonOptions = New JsonOptions
+        Expect.AreEqual "{""a"": 1,""b"": [1,2]}", Json.Serialize(Json.Map("a", 1, "b", Json.Arr(1, 2)), jo), "Serialize with an object made with New"
+        jo.Indent = 2
+        jo.Newline = vbLf
+        Expect.AreEqual "{|  ""a"": 1|}", Replace(Json.Serialize(Json.Map("a", 1), jo), vbLf, "|"), "Serialize with Indent 2 and Newline vbLf"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_Object_HasNoLimits()
+        Expect.Begin
+        Helpers.Reset
+        Dim jo As JsonOptions = New JsonOptions
+        Dim v As Variant = Json.Parse("[[[[1]]]]", jo)
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after Parse of four nested arrays with an object made with New"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/ParseTests.twin b/test/package-tests/tsJson/Sources/ParseTests.twin
new file mode 100644
index 00000000..23ddfedb
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/ParseTests.twin
@@ -0,0 +1,335 @@
+' Parse as RFC 8259 defines the text: strings and escapes, the syntax options, duplicate keys, the
+' limits, and the encoding of bytes.
+[TestFixture]
+Module ParseTests
+
+    Private Function ParseCode(ByVal Text As String, Optional ByVal Options As JsonOptions = Nothing) As String
+        Helpers.Reset
+        Dim v As Variant = Json.Parse(Text, Options)
+        If JsonError.HasError Then ParseCode = JsonError.Code Else ParseCode = ""
+    End Function
+
+    Private Function Refused(ByVal Text As String, Optional ByVal Options As JsonOptions = Nothing) As Boolean
+        Refused = Len(ParseCode(Text, Options)) > 0
+    End Function
+
+    [TestCase]
+    Public Sub Parse_ControlCharacterInString_IsInvalidSyntax()
+        Expect.Begin
+        Expect.AreEqual "InvalidSyntax", ParseCode("""a" & vbTab & "b"""), "Parse of a string that holds a tab"
+        Expect.AreEqual "InvalidSyntax", ParseCode("""a" & vbLf & "b"""), "Parse of a string that holds a line feed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_Escapes_AreRead()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual "a""b\c/d" & vbBack & vbFormFeed & vbLf & vbCr & vbTab, Json.Parse("""a\""b\\c\/d\b\f\n\r\t"""), "Parse of the short escapes"
+        Expect.AreEqual ChrW(233) & ChrW(&HD83D) & ChrW(&HDE00), Json.Parse("""\" & "u00e9\" & "ud83d\" & "ude00"""), "Parse of a \u escape and a surrogate pair"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_LoneSurrogateEscape_IsInvalidEscape()
+        Expect.Begin
+        Expect.AreEqual "InvalidEscape", ParseCode("""\ud83d"""), "Parse of a high surrogate with no low surrogate"
+        Expect.AreEqual "InvalidEscape", ParseCode("""\ud83dx"""), "Parse of a high surrogate followed by a letter"
+        Expect.AreEqual "InvalidEscape", ParseCode("""\ude00"""), "Parse of a lone low surrogate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DateText_StaysAString()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse("""2026-08-19T09:15:00""")
+        Expect.AreEqual "String", TypeName(v), "the type of a JSON string that holds a date"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_WhiteSpaceAroundTheValue_IsAllowed()
+        Expect.Begin
+        Expect.AreEqual "", ParseCode(" " & vbTab & vbLf & vbCr & "[1]" & " " & vbTab & vbLf & vbCr), "Parse of an array with the four white space characters around it"
+        Expect.AreEqual "InvalidSyntax", ParseCode(ChrW(&HA0) & "[1]"), "Parse of an array after a no-break space"
+        Expect.AreEqual "InvalidSyntax", ParseCode(Chr$(12) & "[1]"), "Parse of an array after a form feed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_TextAfterTheValue_IsAnError()
+        Expect.Begin
+        Expect.IsTrue Refused("[1] x"), "Parse of [1] x is refused"
+        Expect.IsTrue Refused("[1][2]"), "Parse of [1][2] is refused"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_TrailingCommaAndComment_AreErrorsByDefault()
+        Expect.Begin
+        Expect.AreEqual "InvalidSyntax", ParseCode("[1,2,]"), "Parse of [1,2,]"
+        Expect.AreEqual "InvalidSyntax", ParseCode("{""a"":1,}"), "Parse of {""a"":1,}"
+        Expect.IsTrue Refused("[1 // c" & vbLf & "]"), "Parse of an array with a line comment is refused"
+        Expect.IsTrue Refused("[1 /* c */]"), "Parse of an array with a block comment is refused"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_Jsonc_AcceptsCommentsAndOneTrailingComma()
+        Expect.Begin
+        Helpers.Reset
+        Dim text As String = "{""a"": 1, // first" & vbLf & """b"": [1, 2,], /* last */ }"
+        Dim v As Variant = Json.Parse(text, JsonOptions.Jsonc)
+        Expect.AreEqual "{""a"":1,""b"":[1,2]}", Helpers.Min(v), "Parse with JsonOptions.Jsonc"
+        Expect.AreEqual "", ParseCode("[1,2,]", JsonOptions.Jsonc), "Parse of [1,2,] with JsonOptions.Jsonc"
+        Expect.IsTrue Refused("[1,2,,]", JsonOptions.Jsonc), "Parse of [1,2,,] with JsonOptions.Jsonc is refused"
+        Expect.IsTrue Refused("[,]", JsonOptions.Jsonc), "Parse of [,] with JsonOptions.Jsonc is refused"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_JsoncCommentNotClosed_IsInvalidComment()
+        Expect.Begin
+        Expect.AreEqual "InvalidComment", ParseCode("[1 /* never closed", JsonOptions.Jsonc), "Parse of an array with a comment that is not closed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DuplicateKey_IsAnErrorByDefault()
+        Expect.Begin
+        Expect.AreEqual "DuplicateKey", ParseCode("{""a"":1,""b"":2,""a"":3}"), "Parse of an object with a repeated key"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DuplicateKeyLastWins_KeepsTheLastValueInTheFirstPlace()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.DuplicateKeys = jdkLastWins
+        Dim v As Variant = Json.Parse("{""a"":1,""b"":2,""a"":3}", o)
+        Expect.AreEqual "{""a"":3,""b"":2}", Helpers.Min(v), "Parse with jdkLastWins"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DepthBeyondMaxDepth_IsDepthLimitExceeded()
+        Expect.Begin
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.MaxDepth = 2
+        Expect.AreEqual "", ParseCode("[[1]]", o), "Parse of [[1]] with MaxDepth 2"
+        Expect.AreEqual "DepthLimitExceeded", ParseCode("[[[1]]]", o), "Parse of [[[1]]] with MaxDepth 2"
+        o.MaxDepth = 0
+        Expect.AreEqual "", ParseCode("1", o), "Parse of 1 with MaxDepth 0, which is no limit"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_DefaultMaxDepth_Is1000()
+        Expect.Begin
+        Expect.AreEqual "", ParseCode(String$(1000, "[") & String$(1000, "]")), "Parse of 1000 nested arrays"
+        Expect.AreEqual "DepthLimitExceeded", ParseCode(String$(1002, "[") & String$(1002, "]")), "Parse of 1002 nested arrays"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_LimitsOnStringsArraysAndObjects_AreLimitExceeded()
+        Expect.Begin
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.MaxStringLength = 3
+        Expect.AreEqual "", ParseCode("""abc""", o), "Parse of a string of 3 characters with MaxStringLength 3"
+        Expect.AreEqual "LimitExceeded", ParseCode("""abcd""", o), "Parse of a string of 4 characters with MaxStringLength 3"
+        Expect.AreEqual "LimitExceeded", ParseCode("{""abcd"":1}", o), "Parse of a key of 4 characters with MaxStringLength 3"
+        Set o = JsonOptions.Rfc
+        o.MaxArrayItems = 2
+        Expect.AreEqual "", ParseCode("[1,2]", o), "Parse of 2 elements with MaxArrayItems 2"
+        Expect.AreEqual "LimitExceeded", ParseCode("[1,2,3]", o), "Parse of 3 elements with MaxArrayItems 2"
+        Set o = JsonOptions.Rfc
+        o.MaxObjectMembers = 1
+        Expect.AreEqual "", ParseCode("{""a"":1}", o), "Parse of 1 member with MaxObjectMembers 1"
+        Expect.AreEqual "LimitExceeded", ParseCode("{""a"":1,""b"":2}", o), "Parse of 2 members with MaxObjectMembers 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_MaxBytes_RefusesALongerString()
+        Expect.Begin
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.MaxBytes = 7
+        Expect.AreEqual "", ParseCode("[1,2,3]", o), "Parse of 7 bytes with MaxBytes 7"
+        o.MaxBytes = 6
+        Expect.AreEqual "LimitExceeded", ParseCode("[1,2,3]", o), "Parse of 7 bytes with MaxBytes 6"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_MaxBytes_CountsUtf8BytesOfAString()
+        Expect.Begin
+        Dim o As JsonOptions = JsonOptions.Rfc
+        Dim twoChars As String = """" & ChrW(233) & ChrW(233) & """"
+        o.MaxBytes = 6
+        Expect.AreEqual "", ParseCode(twoChars, o), "Parse of a string of 2 characters of 2 UTF-8 bytes each, 6 bytes with the quotes, with MaxBytes 6"
+        o.MaxBytes = 5
+        Expect.AreEqual "LimitExceeded", ParseCode(twoChars, o), "the same with MaxBytes 5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_Bytes_AreDecodedByTheByteOrderMark()
+        Expect.Begin
+        Helpers.Reset
+        Dim b() As Byte
+        b = Utf8("[""" & ChrW(233) & """]", True)
+        Expect.AreEqual "[""" & ChrW(233) & """]", Helpers.Min(Json.Parse(b)), "Parse of UTF-8 bytes with a byte order mark"
+        b = Utf8("[""" & ChrW(233) & """]", False)
+        Expect.AreEqual "[""" & ChrW(233) & """]", Helpers.Min(Json.Parse(b)), "Parse of UTF-8 bytes with no byte order mark"
+        b = Utf16("[""" & ChrW(233) & """]", False, True)
+        Expect.AreEqual "[""" & ChrW(233) & """]", Helpers.Min(Json.Parse(b)), "Parse of UTF-16 little endian bytes with a byte order mark"
+        b = Utf16("[""" & ChrW(233) & """]", True, True)
+        Expect.AreEqual "[""" & ChrW(233) & """]", Helpers.Min(Json.Parse(b)), "Parse of UTF-16 big endian bytes with a byte order mark"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after the four calls"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_BytesWithEncodingOption_IgnoreAMatchingByteOrderMark()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.Encoding = jekUtf16Be
+        Dim b() As Byte = Utf16("[1]", True, True)
+        Expect.AreEqual "[1]", Helpers.Min(Json.Parse(b, o)), "Parse of UTF-16 big endian bytes with a byte order mark and Encoding jekUtf16Be"
+        Set o = JsonOptions.Rfc
+        o.Encoding = jekUtf8
+        b = Utf8("[1]", False)
+        Expect.AreEqual "[1]", Helpers.Min(Json.Parse(b, o)), "Parse of UTF-8 bytes with Encoding jekUtf8"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_InvalidUtf8Bytes_AreInvalidEncoding()
+        Expect.Begin
+        Helpers.Reset
+        Dim b(0 To 4) As Byte
+        b(0) = Asc("[") : b(1) = Asc("""") : b(2) = &HFF : b(3) = Asc("""") : b(4) = Asc("]")
+        Dim v As Variant = Json.Parse(b)
+        Expect.IsTrue IsEmpty(v), "Parse of bytes that hold &HFF in a string returns Empty"
+        Expect.AreEqual "InvalidEncoding", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_OtherType_IsWrongType()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse(5)
+        Expect.IsTrue IsEmpty(v), "Parse of a number returns Empty"
+        Expect.AreEqual "WrongType", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_SyntaxError_ReportsPositionLineAndColumn()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse("{""a"":1," & vbLf & "  ""b"":x}")
+        Expect.AreEqual "InvalidSyntax", JsonError.Code, "JsonError.Code"
+        Expect.AreEqual 2, JsonError.Line, "JsonError.Line"
+        Expect.AreEqual 7, JsonError.Column, "JsonError.Column of the x"
+        Expect.AreEqual 15, JsonError.Position, "JsonError.Position of the x"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Parse_SyntaxError_ToStringNamesOriginCodeAndPlace()
+        Expect.Begin
+        Helpers.Reset
+        Dim v As Variant = Json.Parse("{""a"":1,}")
+        Expect.AreEqual "Json.Parse: InvalidSyntax - Expected object key. (line 1, column 8, position 8) | {""a"":1,}", JsonError.ToString(), "JsonError.ToString"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseLines_LinesEndWithLfCrOrBoth_AndEmptyLinesAreIgnored()
+        Expect.Begin
+        Helpers.Reset
+        Dim lines As JsonArray = Json.ParseLines("{""id"":1}" & vbLf & vbLf & "{""id"":2}" & vbCr & "3" & vbCrLf & "   " & vbLf & "4" & vbLf)
+        Expect.AreEqual 4, lines.Count, "the number of values"
+        Expect.AreEqual "[{""id"":1},{""id"":2},3,4]", Helpers.Min(lines), "the values"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ParseLines_BadLine_ReportsLineOneOfThatLine()
+        Expect.Begin
+        Helpers.Reset
+        Dim bad As JsonArray = Json.ParseLines("{""a"":1}" & vbLf & "{bad}")
+        Expect.IsTrue bad Is Nothing, "ParseLines of text with a bad line returns Nothing"
+        Expect.AreEqual "Json.ParseLines: InvalidSyntax - Expected object key. (line 1, column 2, position 2) | {bad}", JsonError.ToString(), "JsonError.ToString"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SerializeLines_WritesALineFeedAfterEveryValue()
+        Expect.Begin
+        Helpers.Reset
+        Dim lines As JsonArray = Json.Arr(Json.Map("id", 1), Json.Map("id", 2))
+        Expect.AreEqual "{""id"":1}|{""id"":2}|", Replace(Json.SerializeLines(lines), vbLf, "|"), "SerializeLines of two objects"
+        Dim plain(0 To 1) As Variant
+        plain(0) = 1
+        plain(1) = "x"
+        Expect.AreEqual "1|""x""|", Replace(Json.SerializeLines(plain), vbLf, "|"), "SerializeLines of a Variant array"
+        Expect.AreEqual "", Json.SerializeLines(Json.Arr()), "SerializeLines of an empty array"
+        Expect.Done
+    End Sub
+
+    ' ---- the bytes of a text
+
+    Private Function Utf8(ByVal Text As String, ByVal WithBom As Boolean) As Byte()
+        Dim i As Long, n As Long, b() As Byte
+        ReDim b(0 To 3 * Len(Text) + 3)
+        If WithBom Then
+            b(0) = &HEF: b(1) = &HBB: b(2) = &HBF: n = 3
+        End If
+        For i = 1 To Len(Text)
+            Dim c As Long = AscW(Mid$(Text, i, 1)) And &HFFFF&
+            If c < &H80 Then
+                b(n) = c: n = n + 1
+            ElseIf c < &H800 Then
+                b(n) = &HC0 Or (c \ 64): b(n + 1) = &H80 Or (c And 63): n = n + 2
+            Else
+                b(n) = &HE0 Or (c \ 4096): b(n + 1) = &H80 Or ((c \ 64) And 63): b(n + 2) = &H80 Or (c And 63): n = n + 3
+            End If
+        Next
+        ReDim Preserve b(0 To n - 1)
+        Utf8 = b
+    End Function
+
+    Private Function Utf16(ByVal Text As String, ByVal BigEndian As Boolean, ByVal WithBom As Boolean) As Byte()
+        Dim b() As Byte
+        Dim n As Long = 0
+        Dim i As Long
+        ReDim b(0 To 2 * Len(Text) + 2)
+        If WithBom Then
+            If BigEndian Then
+                b(0) = &HFE: b(1) = &HFF
+            Else
+                b(0) = &HFF: b(1) = &HFE
+            End If
+            n = 2
+        End If
+        For i = 1 To Len(Text)
+            Dim c As Long = AscW(Mid$(Text, i, 1)) And &HFFFF&
+            If BigEndian Then
+                b(n) = c \ 256: b(n + 1) = c And 255
+            Else
+                b(n) = c And 255: b(n + 1) = c \ 256
+            End If
+            n = n + 2
+        Next
+        ReDim Preserve b(0 To n - 1)
+        Utf16 = b
+    End Function
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/PatchTests.twin b/test/package-tests/tsJson/Sources/PatchTests.twin
new file mode 100644
index 00000000..2094541d
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/PatchTests.twin
@@ -0,0 +1,261 @@
+' JSON Patch (RFC 6902), JSON Merge Patch (RFC 7396) and Diff. The examples are those of the two RFCs'
+' appendices, and a document is compared as JSON values, so the order of keys does not matter.
+[TestFixture]
+Module PatchTests
+
+    ' Checks that applying the patch to the document gives the expected document.
+    Private Sub PatchGives(ByVal DocText As String, ByVal PatchText As String, ByVal ExpectedText As String, ByVal What As String)
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc(DocText)
+        Dim ops As Variant = Helpers.Doc(PatchText)
+        Dim want As Variant = Helpers.Doc(ExpectedText)
+        Dim got As Variant = Json.Patch(doc, ops)
+        If JsonError.HasError Then
+            Expect.Fail What & ": the patch failed with " & JsonError.ToString()
+        ElseIf Json.Equals(want, got) Then
+            Expect.IsTrue True, What
+        Else
+            Expect.AreEqual ExpectedText, Helpers.Min(got), What
+        End If
+    End Sub
+
+    ' Checks that applying the patch fails with the error code, and returns Empty.
+    Private Sub PatchFails(ByVal DocText As String, ByVal PatchText As String, ByVal Code As String, ByVal What As String)
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc(DocText)
+        Dim ops As Variant = Helpers.Doc(PatchText)
+        Dim got As Variant = Json.Patch(doc, ops)
+        Expect.IsTrue IsEmpty(got), What & " returns Empty"
+        Expect.AreEqual Code, JsonError.Code, What & ": the error code"
+    End Sub
+
+    Private Sub MergeGives(ByVal DocText As String, ByVal PatchText As String, ByVal ExpectedText As String)
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc(DocText)
+        Dim p As Variant = Helpers.Doc(PatchText)
+        Dim want As Variant = Helpers.Doc(ExpectedText)
+        Dim got As Variant = Json.MergePatch(doc, p)
+        Dim What As String = "MergePatch of " & DocText & " with " & PatchText
+        If Json.Equals(want, got) Then
+            Expect.IsTrue True, What
+        Else
+            Expect.AreEqual ExpectedText, Helpers.Min(got), What
+        End If
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_Add_FollowsRfc6902()
+        Expect.Begin
+        PatchGives "{""foo"":""bar""}", "[{""op"":""add"",""path"":""/baz"",""value"":""qux""}]", "{""baz"":""qux"",""foo"":""bar""}", "A.1 adding an object member"
+        PatchGives "{""foo"":[""bar"",""baz""]}", "[{""op"":""add"",""path"":""/foo/1"",""value"":""qux""}]", "{""foo"":[""bar"",""qux"",""baz""]}", "A.2 adding an array element"
+        PatchGives "{""foo"":""bar""}", "[{""op"":""add"",""path"":""/child"",""value"":{""grandchild"":{}}}]", "{""foo"":""bar"",""child"":{""grandchild"":{}}}", "A.10 adding a nested member object"
+        PatchGives "{""foo"":[""bar""]}", "[{""op"":""add"",""path"":""/foo/-"",""value"":[""abc"",""def""]}]", "{""foo"":[""bar"",[""abc"",""def""]]}", "A.16 adding an array value"
+        PatchGives "{""foo"":""bar""}", "[{""op"":""add"",""path"":""/foo"",""value"":""baz""}]", "{""foo"":""baz""}", "adding a member that exists replaces it"
+        PatchGives "{""foo"":""bar""}", "[{""op"":""add"",""path"":"""",""value"":[1]}]", "[1]", "adding at the empty path replaces the document"
+        PatchGives "[1,2]", "[{""op"":""add"",""path"":""/2"",""value"":3}]", "[1,2,3]", "adding at the index equal to the length appends"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_AddToMissingParent_Fails()
+        Expect.Begin
+        PatchFails "{""foo"":""bar""}", "[{""op"":""add"",""path"":""/baz/bat"",""value"":""qux""}]", "PointerNotFound", "A.12 adding below a member that does not exist"
+        PatchFails "[1,2]", "[{""op"":""add"",""path"":""/5"",""value"":3}]", "PatchFailed", "adding at an index above the length"
+        PatchFails "{""foo"":1}", "[{""op"":""add"",""path"":""/foo/bar"",""value"":3}]", "PatchFailed", "adding into a scalar"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_Remove_FollowsRfc6902()
+        Expect.Begin
+        PatchGives "{""baz"":""qux"",""foo"":""bar""}", "[{""op"":""remove"",""path"":""/baz""}]", "{""foo"":""bar""}", "A.3 removing an object member"
+        PatchGives "{""foo"":[""bar"",""qux"",""baz""]}", "[{""op"":""remove"",""path"":""/foo/1""}]", "{""foo"":[""bar"",""baz""]}", "A.4 removing an array element"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_RemoveMissingPlace_Fails()
+        Expect.Begin
+        PatchFails "{""foo"":""bar""}", "[{""op"":""remove"",""path"":""/baz""}]", "PointerNotFound", "removing a member that does not exist"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_Replace_FollowsRfc6902()
+        Expect.Begin
+        PatchGives "{""baz"":""qux"",""foo"":""bar""}", "[{""op"":""replace"",""path"":""/baz"",""value"":""boo""}]", "{""baz"":""boo"",""foo"":""bar""}", "A.5 replacing a value"
+        PatchGives "[1,2]", "[{""op"":""replace"",""path"":"""",""value"":{""a"":1}}]", "{""a"":1}", "replacing the whole document"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_ReplaceMissingPlace_Fails()
+        Expect.Begin
+        PatchFails "{""foo"":""bar""}", "[{""op"":""replace"",""path"":""/baz"",""value"":1}]", "PointerNotFound", "replacing a member that does not exist"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_Move_FollowsRfc6902()
+        Expect.Begin
+        PatchGives "{""foo"":{""bar"":""baz"",""waldo"":""fred""},""qux"":{""corge"":""grault""}}", "[{""op"":""move"",""from"":""/foo/waldo"",""path"":""/qux/thud""}]", "{""foo"":{""bar"":""baz""},""qux"":{""corge"":""grault"",""thud"":""fred""}}", "A.6 moving a value"
+        PatchGives "{""foo"":[""all"",""grass"",""cows"",""eat""]}", "[{""op"":""move"",""from"":""/foo/1"",""path"":""/foo/3""}]", "{""foo"":[""all"",""cows"",""eat"",""grass""]}", "A.7 moving an array element"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_MoveFromParentOfPath_Fails()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""b"":1}}")
+        Dim ops As Variant = Helpers.Doc("[{""op"":""move"",""from"":""/a"",""path"":""/a/c""}]")
+        Dim got As Variant = Json.Patch(doc, ops)
+        Expect.IsTrue IsEmpty(got), "moving a value below itself returns Empty"
+        Expect.IsTrue JsonError.HasError, "moving a value below itself sets the last error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_Copy_FollowsRfc6902()
+        Expect.Begin
+        PatchGives "{""foo"":{""bar"":""baz""}}", "[{""op"":""copy"",""from"":""/foo"",""path"":""/qux""}]", "{""foo"":{""bar"":""baz""},""qux"":{""bar"":""baz""}}", "copying an object"
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""foo"":{""bar"":""baz""}}")
+        Dim ops As Variant = Helpers.Doc("[{""op"":""copy"",""from"":""/foo"",""path"":""/qux""}]")
+        Dim got As JsonObject = Json.Patch(doc, ops)
+        got.Map("qux").Item("bar") = "changed"
+        Expect.AreEqual "baz", got.Map("foo").Str("bar"), "the copy shares nothing with the original"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_Test_FollowsRfc6902()
+        Expect.Begin
+        PatchGives "{""baz"":""qux"",""foo"":[""a"",2,""c""]}", "[{""op"":""test"",""path"":""/baz"",""value"":""qux""},{""op"":""test"",""path"":""/foo/1"",""value"":2}]", "{""baz"":""qux"",""foo"":[""a"",2,""c""]}", "A.8 testing a value, success"
+        PatchGives "{""/"":9,""~1"":10}", "[{""op"":""test"",""path"":""/~01"",""value"":10}]", "{""/"":9,""~1"":10}", "A.14 the tilde escape"
+        PatchGives "{""a"":{""x"":1,""y"":2}}", "[{""op"":""test"",""path"":""/a"",""value"":{""y"":2,""x"":1.0}}]", "{""a"":{""x"":1,""y"":2}}", "testing an object without regard to the order of keys and 1 against 1.0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_TestThatFails_IsPatchTestFailed()
+        Expect.Begin
+        PatchFails "{""baz"":""qux""}", "[{""op"":""test"",""path"":""/baz"",""value"":""bar""}]", "PatchTestFailed", "A.9 testing a value, error"
+        PatchFails "{""/"":9,""~1"":10}", "[{""op"":""test"",""path"":""/~01"",""value"":""10""}]", "PatchTestFailed", "A.15 comparing a string with a number"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_FailedOperation_AppliesNothing()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""foo"":""bar""}")
+        Dim ops As Variant = Helpers.Doc("[{""op"":""add"",""path"":""/a"",""value"":1},{""op"":""test"",""path"":""/foo"",""value"":""x""}]")
+        Dim got As Variant = Json.Patch(doc, ops)
+        Dim path As String = JsonError.Path
+        Expect.IsTrue IsEmpty(got), "Patch returns Empty"
+        Expect.AreEqual "/foo", path, "JsonError.Path of PatchTestFailed"
+        Expect.AreEqual "{""foo"":""bar""}", Helpers.Min(doc), "the document after the failed patch"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_DoesNotChangeTheDocument()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""foo"":""bar""}")
+        Dim ops As Variant = Helpers.Doc("[{""op"":""add"",""path"":""/baz"",""value"":""qux""},{""op"":""replace"",""path"":""/foo"",""value"":""BAR""}]")
+        Dim got As Variant = Json.Patch(doc, ops)
+        Expect.AreEqual "{""foo"":""BAR"",""baz"":""qux""}", Helpers.Min(got), "the patched document"
+        Expect.AreEqual "{""foo"":""bar""}", Helpers.Min(doc), "the document after Patch"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_SingleOperationObject_IsAccepted()
+        Expect.Begin
+        PatchGives "{""foo"":""bar""}", "{""op"":""add"",""path"":""/baz"",""value"":1}", "{""foo"":""bar"",""baz"":1}", "Patch with one operation object and no array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_MalformedOperations_AreInvalidPatch()
+        Expect.Begin
+        PatchFails "{}", "[1]", "InvalidPatch", "an operation that is not an object"
+        PatchFails "{}", "[{""op"":""add"",""value"":1}]", "InvalidPatch", "an operation without path"
+        PatchFails "{}", "[{""op"":""add"",""path"":5,""value"":1}]", "InvalidPatch", "an operation whose path is a number"
+        PatchFails "{}", "[{""op"":""add"",""path"":""/a""}]", "InvalidPatch", "an add without value"
+        PatchFails "{}", "[{""op"":""move"",""path"":""/a""}]", "InvalidPatch", "a move without from"
+        PatchFails "{}", "[{""op"":""frob"",""path"":""/a""}]", "InvalidPatch", "an unknown op"
+        PatchFails "{}", "5", "InvalidPatch", "a patch that is a number"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_InvalidPatch_PathIsThePositionOfTheOperation()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{}")
+        Dim ops As Variant = Helpers.Doc("[{""op"":""add"",""path"":""/a"",""value"":1},{""op"":""frob"",""path"":""/a""}]")
+        Dim got As Variant = Json.Patch(doc, ops)
+        Expect.AreEqual "InvalidPatch", JsonError.Code, "JsonError.Code"
+        Expect.AreEqual "/1", JsonError.Path, "JsonError.Path"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MergePatch_FollowsRfc7396()
+        Expect.Begin
+        MergeGives "{""a"":""b""}", "{""a"":""c""}", "{""a"":""c""}"
+        MergeGives "{""a"":""b""}", "{""b"":""c""}", "{""a"":""b"",""b"":""c""}"
+        MergeGives "{""a"":""b""}", "{""a"":null}", "{}"
+        MergeGives "{""a"":""b"",""b"":""c""}", "{""a"":null}", "{""b"":""c""}"
+        MergeGives "{""a"":[""b""]}", "{""a"":""c""}", "{""a"":""c""}"
+        MergeGives "{""a"":""c""}", "{""a"":[""b""]}", "{""a"":[""b""]}"
+        MergeGives "{""a"":{""b"":""c""}}", "{""a"":{""b"":""d"",""c"":null}}", "{""a"":{""b"":""d""}}"
+        MergeGives "{""a"":[{""b"":""c""}]}", "{""a"":[1]}", "{""a"":[1]}"
+        MergeGives "[""a"",""b""]", "[""c"",""d""]", "[""c"",""d""]"
+        MergeGives "{""a"":""b""}", "[""c""]", "[""c""]"
+        MergeGives "{""e"":null}", "{""a"":1}", "{""e"":null,""a"":1}"
+        MergeGives "[1,2]", "{""a"":""b"",""c"":null}", "{""a"":""b""}"
+        MergeGives "{}", "{""a"":{""bb"":{""ccc"":null}}}", "{""a"":{""bb"":{}}}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MergePatch_PatchThatIsNotAnObject_ReplacesTheDocument()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":""foo""}")
+        Expect.IsTrue IsNull(Json.MergePatch(doc, Null)), "MergePatch with a null patch returns Null"
+        Expect.AreEqual "bar", Json.MergePatch(doc, "bar"), "MergePatch with a string patch returns the string"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after the two calls"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MergePatch_DoesNotChangeTheDocument()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""b"":1}}")
+        Dim p As Variant = Helpers.Doc("{""a"":{""b"":null}}")
+        Dim got As Variant = Json.MergePatch(doc, p)
+        Expect.AreEqual "{""a"":{}}", Helpers.Min(got), "the merged document"
+        Expect.AreEqual "{""a"":{""b"":1}}", Helpers.Min(doc), "the document after MergePatch"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Diff_PatchOfTheDiff_GivesTheTarget()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As Variant = Helpers.Doc("{""x"":1,""list"":[1,2,3],""gone"":true}")
+        Dim b As Variant = Helpers.Doc("{""x"":2,""list"":[1,5],""new"":null}")
+        Dim ops As JsonArray = Json.Diff(a, b)
+        Expect.AreEqual "[{""op"":""replace"",""path"":""/x"",""value"":2},{""op"":""replace"",""path"":""/list/1"",""value"":5},{""op"":""remove"",""path"":""/list/2""},{""op"":""remove"",""path"":""/gone""},{""op"":""add"",""path"":""/new"",""value"":null}]", Helpers.Min(ops), "the operations of Diff"
+        Expect.IsTrue Json.Equals(Json.Patch(a, ops), b), "Patch of the document with the diff equals the target"
+        Expect.AreEqual 0, Json.Diff(a, a).Count, "the operations of Diff of equal documents"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/PathTests.twin b/test/package-tests/tsJson/Sources/PathTests.twin
new file mode 100644
index 00000000..6654f7a9
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/PathTests.twin
@@ -0,0 +1,365 @@
+' JSONPath queries. RFC 9535 defines the syntax and what a filter selects; the cases that name a defect
+' check what the RFC says, and the ones that name a departure the page states check the behaviour it
+' states.
+[TestFixture]
+Module PathTests
+
+    ' ---- a comparison with a missing value
+
+    [TestCase]
+    Public Sub Filter_NotEqual_SelectsElementWithoutMember()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":1},{""a"":2},{""b"":3}]")
+        Expect.AreEqual "[{""a"":2},{""b"":3}]", Helpers.QueryText(doc, "$[?@.a != 1]"), "$[?@.a != 1] on [{""a"":1},{""a"":2},{""b"":3}]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_NegatedEqual_SelectsElementWithoutMember()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":1},{""a"":2},{""b"":3}]")
+        Expect.AreEqual "[{""a"":2},{""b"":3}]", Helpers.QueryText(doc, "$[?!(@.a == 1)]"), "$[?!(@.a == 1)] on [{""a"":1},{""a"":2},{""b"":3}]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_EqualOfTwoMissingValues_Selects()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""c"":1}]")
+        Expect.AreEqual "[{""c"":1}]", Helpers.QueryText(doc, "$[?@.a == @.b]"), "$[?@.a == @.b] on an element that has neither a nor b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_MissingValueEqualsNothingElse()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":1,""b"":1},{""a"":1},{""b"":1}]")
+        Expect.AreEqual "[{""a"":1,""b"":1}]", Helpers.QueryText(doc, "$[?@.a == @.b]"), "$[?@.a == @.b] on elements with both, only a and only b"
+        Expect.Done
+    End Sub
+
+    ' ---- <= and >= for equal values that are not numbers or strings
+
+    [TestCase]
+    Public Sub Filter_LessOrEqual_EqualBooleans_Selects()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":true,""b"":true}]")
+        Expect.AreEqual "[{""a"":true,""b"":true}]", Helpers.QueryText(doc, "$[?@.a <= @.b]"), "$[?@.a <= @.b] on two equal Booleans"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_LessOrEqual_EqualNulls_Selects()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":null,""b"":null}]")
+        Expect.AreEqual "[{""a"":null,""b"":null}]", Helpers.QueryText(doc, "$[?@.a <= @.b]"), "$[?@.a <= @.b] on two nulls"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_LessOrEqual_EqualArrays_Selects()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":[1,2],""b"":[1,2]}]")
+        Expect.AreEqual "[{""a"":[1,2],""b"":[1,2]}]", Helpers.QueryText(doc, "$[?@.a <= @.b]"), "$[?@.a <= @.b] on two equal arrays"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_GreaterOrEqual_EqualBooleans_Selects()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":false,""b"":false}]")
+        Expect.AreEqual "[{""a"":false,""b"":false}]", Helpers.QueryText(doc, "$[?@.a >= @.b]"), "$[?@.a >= @.b] on two equal Booleans"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_LessOrEqual_NumbersAndStrings_Compare()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":1,""b"":1},{""a"":1,""b"":2},{""a"":3,""b"":2},{""a"":""x"",""b"":""x""},{""a"":""x"",""b"":""y""},{""a"":""y"",""b"":""x""}]")
+        Expect.AreEqual "[{""a"":1,""b"":1},{""a"":1,""b"":2},{""a"":""x"",""b"":""x""},{""a"":""x"",""b"":""y""}]", Helpers.QueryText(doc, "$[?@.a <= @.b]"), "$[?@.a <= @.b] on numbers and strings"
+        Expect.Done
+    End Sub
+
+    ' ---- a function call that is not valid
+
+    [TestCase]
+    Public Sub CompilePath_UnknownFunction_IsAnError()
+        Expect.Begin
+        Helpers.Reset
+        Dim q As JsonPathQuery = Json.CompilePath("$[?unknown(@.a)]")
+        Expect.IsTrue q Is Nothing, "CompilePath of $[?unknown(@.a)] returns Nothing"
+        Expect.AreEqual "InvalidPath", JsonError.Code, "the error code of an unknown function"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompilePath_WrongNumberOfArguments_IsAnError()
+        Expect.Begin
+        Helpers.Reset
+        Dim q As JsonPathQuery = Json.CompilePath("$[?length(@.a, @.b) > 1]")
+        Expect.IsTrue q Is Nothing, "CompilePath of $[?length(@.a, @.b) > 1] returns Nothing"
+        Expect.AreEqual "InvalidPath", JsonError.Code, "the error code of a call with two arguments to length"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompilePath_QueryThatSelectsManyValuesInComparison_IsAnError()
+        Expect.Begin
+        Helpers.Reset
+        Dim q As JsonPathQuery = Json.CompilePath("$[?@.* == 1]")
+        Expect.IsTrue q Is Nothing, "CompilePath of $[?@.* == 1] returns Nothing"
+        Expect.AreEqual "InvalidPath", JsonError.Code, "the error code of a comparison with a query that selects many values"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Query_UnknownFunction_SetsTheError()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""a"":1},{""a"":2}]")
+        Expect.AreEqual "(error InvalidPath)", Helpers.QueryText(doc, "$[?unknown(@.a)]"), "Query of $[?unknown(@.a)]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompilePath_FunctionNameStartingWithF_IsInvalidPath()
+        Expect.Begin
+        Helpers.Reset
+        Dim q As JsonPathQuery = Json.CompilePath("$[?foo(@.a)]")
+        Expect.IsTrue q Is Nothing, "CompilePath of $[?foo(@.a)] returns Nothing"
+        Expect.AreEqual "InvalidPath", JsonError.Code, "the error code"
+        Expect.AreEqual "Unknown literal 'foo'.", JsonError.Message, "the message of a function name that starts with f"
+        Expect.Done
+    End Sub
+
+    ' ---- number literals in a filter
+
+    [TestCase]
+    Public Sub Filter_FractionLiteral_Compiles()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""price"":10},{""price"":11}]")
+        Expect.AreEqual "[{""price"":10}]", Helpers.QueryText(doc, "$[?@.price < 10.5]"), "$[?@.price < 10.5] on prices 10 and 11"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_ExponentLiteral_Compiles()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""n"":1000},{""n"":1}]")
+        Expect.AreEqual "[{""n"":1000}]", Helpers.QueryText(doc, "$[?@.n == 1e3]"), "$[?@.n == 1e3] on 1000 and 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_NegativeFractionLiteral_Compiles()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[-1, -0.5, 0]")
+        Expect.AreEqual "[-1]", Helpers.QueryText(doc, "$[?@ < -0.75]"), "$[?@ < -0.75] on -1, -0.5 and 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Filter_IntegerLiteral_Compares()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""price"":8.95},{""price"":12.99}]")
+        Expect.AreEqual "[{""price"":8.95}]", Helpers.QueryText(doc, "$[?@.price < 10]"), "$[?@.price < 10] on prices 8.95 and 12.99"
+        Expect.Done
+    End Sub
+
+    ' ---- the other departures the page states
+
+    [TestCase]
+    Public Sub Length_CountsUtf16CodeUnits()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Json.Arr(Json.Map("s", "bc", "n", 1), Json.Map("s", ChrW(&HD83D) & ChrW(&HDE00), "n", 2), Json.Map("s", "d", "n", 3))
+        Expect.AreEqual "[1,2]", Helpers.QueryText(doc, "$[?length(@.s) == 2].n"), "$[?length(@.s) == 2].n on bc, U+1F600 and d"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Query_LeadingZeroIndex_IsAccepted()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[10,20,30]")
+        Expect.AreEqual "[20]", Helpers.QueryText(doc, "$[01]"), "$[01] on [10,20,30]"
+        Expect.AreEqual "[10]", Helpers.QueryText(doc, "$[-0]"), "$[-0] on [10,20,30]"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Query_MemberNameStartingWithDigit_IsRefused()
+        Expect.Begin
+        Helpers.Reset
+        Dim q As JsonPathQuery = Json.CompilePath("$.0")
+        Expect.IsTrue q Is Nothing, "CompilePath of $.0 returns Nothing"
+        Expect.AreEqual "Expected member name.", JsonError.Message, "the message"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryHits_ReturnsValueAndPointer()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":[{""b"":1},{""b"":2}]}")
+        Dim hits() As JsonHit = Json.QueryHits(doc, "$.a[*].b")
+        Expect.AreEqual 2, UBound(hits) - LBound(hits) + 1, "the number of hits"
+        Expect.AreEqual "/a/1/b", hits(LBound(hits) + 1).Pointer, "the pointer of the second hit"
+        Expect.AreEqual 2, hits(LBound(hits) + 1).Value, "the value of the second hit"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompilePath_FilterNestedMoreThan1000Levels_IsDepthLimitExceeded()
+        Expect.Begin
+        Helpers.Reset
+        Dim deep As JsonPathQuery = Json.CompilePath("$[?" & String$(1001, "(") & "@.a" & String$(1001, ")") & "]")
+        Expect.IsTrue deep Is Nothing, "CompilePath of a filter nested 1001 levels returns Nothing"
+        Expect.AreEqual "DepthLimitExceeded", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompilePath_FilterNested100Levels_Compiles()
+        Expect.Begin
+        Helpers.Reset
+        Dim ok As JsonPathQuery = Json.CompilePath("$[?" & String$(100, "(") & "@.a" & String$(100, ")") & "]")
+        Expect.IsFalse ok Is Nothing, "CompilePath of a filter nested 100 levels returns a query"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompilePath_FilterNested500Levels_Compiles()
+        Expect.Begin
+        Helpers.Reset
+        Dim ok As JsonPathQuery = Json.CompilePath("$[?" & String$(500, "(") & "@.a" & String$(500, ")") & "]")
+        Expect.IsFalse ok Is Nothing, "CompilePath of a filter nested 500 levels returns a query"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompilePath_FilterNested999Levels_Compiles()
+        Expect.Begin
+        Helpers.Reset
+        Dim ok As JsonPathQuery = Json.CompilePath("$[?" & String$(999, "(") & "@.a" & String$(999, ")") & "]")
+        Expect.IsFalse ok Is Nothing, "CompilePath of a filter nested 999 levels returns a query"
+        Expect.Done
+    End Sub
+
+    ' ---- the compiled query
+
+    [TestCase]
+    Public Sub CompiledQuery_RunsOnManyDocuments()
+        Expect.Begin
+        Helpers.Reset
+        Dim q As JsonPathQuery = Json.CompilePath("$.items[*].id")
+        Dim a As Variant = Helpers.Doc("{""items"":[{""id"":1},{""id"":2}]}")
+        Dim b As Variant = Helpers.Doc("{""items"":[{""id"":7}]}")
+        Expect.AreEqual "$.items[*].id", q.Source, "Source"
+        Expect.AreEqual "[1,2]", Helpers.Min(q.Query(a)), "Query on the first document"
+        Expect.AreEqual "[7]", Helpers.Min(q.Query(b)), "Query on the second document"
+        Expect.AreEqual 7, q.QueryOne(b), "QueryOne on the second document"
+        Dim v As Variant
+        Expect.IsFalse q.TryQueryOne(Helpers.Doc("{}"), v), "TryQueryOne on an empty object"
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after a query that matches nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompiledQuery_Verbs_ClearTheLastErrorAndSetNone()
+        Expect.Begin
+        Helpers.Reset
+        Dim q As JsonPathQuery = Json.CompilePath("$.a")
+        Dim bad As Variant = Json.Parse("{")
+        Expect.IsTrue JsonError.HasError, "JsonError.HasError after Parse of {"
+        Dim r() As Variant = q.Query(Helpers.Doc("{""a"":1}"))
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after Query"
+        bad = Json.Parse("{")
+        Dim x As Variant = q.QueryOne(Helpers.Doc("{}"))
+        Expect.IsFalse JsonError.HasError, "JsonError.HasError after QueryOne that matches nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CompilePath_InvalidPath_SetsTheErrorOfCompilePath()
+        Expect.Begin
+        Helpers.Reset
+        Dim q As JsonPathQuery = Json.CompilePath("store.book")
+        Expect.IsTrue q Is Nothing, "CompilePath of a path that does not start with $"
+        Expect.AreEqual "InvalidPath", JsonError.Code, "JsonError.Code"
+        Expect.AreEqual "JSONPath must start with '$'.", JsonError.Message, "JsonError.Message"
+        Expect.AreEqual "Json.CompilePath", JsonError.Origin, "JsonError.Origin"
+        Expect.Done
+    End Sub
+
+    ' ---- the syntax table
+
+    [TestCase]
+    Public Sub Query_Selectors_SelectWhatTheTableSays()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""o"":{""a"":1,""b"":[10,20,30,40,50],""c d"":""sp"",""" & ChrW(233) & """:""u""},""list"":[{""k"":1,""t"":""x""},{""k"":2,""t"":""y""},{""k"":3}]}")
+        Expect.AreEqual "[1]", Helpers.QueryText(doc, "$.o.a"), "$.o.a"
+        Expect.AreEqual "[""sp""]", Helpers.QueryText(doc, "$.o['c d']"), "$.o['c d']"
+        Expect.AreEqual "[""sp""]", Helpers.QueryText(doc, "$[""o""][""c d""]"), "$[""o""][""c d""]"
+        Expect.AreEqual "[""u""]", Helpers.QueryText(doc, "$.o." & ChrW(233)), "a member name that starts with a non-ASCII character"
+        Expect.AreEqual "[50]", Helpers.QueryText(doc, "$.o.b[-1]"), "$.o.b[-1]"
+        Expect.AreEqual "[20,40]", Helpers.QueryText(doc, "$.o.b[1:4:2]"), "$.o.b[1:4:2]"
+        Expect.AreEqual "[]", Helpers.QueryText(doc, "$.o.b[::0]"), "$.o.b[::0], a step of 0"
+        Expect.AreEqual "[10,10]", Helpers.QueryText(doc, "$.o.b[0,0]"), "$.o.b[0,0], a value that two selectors select"
+        Expect.AreEqual "[40,20]", Helpers.QueryText(doc, "$.o.b[3,1]"), "$.o.b[3,1], the union in the order written"
+        Expect.AreEqual "[1,2,3]", Helpers.QueryText(doc, "$..k"), "$..k"
+        Expect.AreEqual "[10,20,30,40,50]", Helpers.QueryText(doc, "$.o.b.*"), "$.o.b.*"
+        Expect.AreEqual "[" & Helpers.Min(doc) & "]", Helpers.QueryText(doc, "$"), "$ alone"
+        Expect.AreEqual "[1]", Helpers.QueryText(doc, "$ .o .a"), "$.o.a with a space before each segment"
+        Expect.AreEqual "[20,30]", Helpers.QueryText(doc, "$.o.b[ 1 , 2 ]"), "$.o.b[1,2] with spaces inside the brackets"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Query_FilterExpressions_BehaveAsTheTableSays()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""list"":[{""k"":1,""t"":""x""},{""k"":2,""t"":""y""},{""k"":3}]}")
+        Expect.AreEqual "[1,2]", Helpers.QueryText(doc, "$.list[?count(@.t) == 1].k"), "a filter with count"
+        Expect.AreEqual "[{""k"":2,""t"":""y""},{""k"":3}]", Helpers.QueryText(doc, "$.list[?@.k > 1]"), "a filter with >"
+        Expect.AreEqual "[{""k"":1,""t"":""x""},{""k"":2,""t"":""y""}]", Helpers.QueryText(doc, "$.list[?@.t]"), "a filter that is a query, true when it selects a value"
+        Expect.AreEqual "[{""k"":2,""t"":""y""}]", Helpers.QueryText(doc, "$.list[?@.k > 1 && @.t]"), "a filter with &&"
+        Expect.AreEqual "[1,3]", Helpers.QueryText(doc, "$.list[?@.k == 1 || @.k == 3].k"), "a filter with ||"
+        Expect.AreEqual "[{""k"":2,""t"":""y""}]", Helpers.QueryText(doc, "$.list[?value(@.k) == 2]"), "a filter with value"
+        Expect.AreEqual "[1,2]", Helpers.QueryText(doc, "$.list[?length(@.t) == 1].k"), "a filter with length"
+        Expect.AreEqual "[{""k"":1,""t"":""x""}]", Helpers.QueryText(doc, "$.list[?@.t == 'x']"), "a filter that compares with a string in single quotes"
+        Expect.AreEqual "[{""k"":1,""t"":""x""}]", Helpers.QueryText(doc, "$.list[?@.t == ""x""]"), "a filter that compares with a string in double quotes"
+        Expect.AreEqual "[{""k"":3}]", Helpers.QueryText(doc, "$.list[?!@.t]"), "a filter with !"
+        Expect.Done
+    End Sub
+
+    ' ---- the syntax that follows the RFC
+
+    [TestCase]
+    Public Sub Query_SlicesDescendantsAndWildcards_FollowTheRfc()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":[""a"",""b"",""c"",""d""],""o"":{""j"":1,""k"":{""j"":2}}}")
+        Expect.AreEqual "[""b"",""c""]", Helpers.QueryText(doc, "$.a[1:3]"), "$.a[1:3]"
+        Expect.AreEqual "[""d"",""c"",""b"",""a""]", Helpers.QueryText(doc, "$.a[::-1]"), "$.a[::-1]"
+        Expect.AreEqual "[""a"",""d""]", Helpers.QueryText(doc, "$.a[0, -1]"), "$.a[0, -1]"
+        Expect.AreEqual "[1,2]", Helpers.QueryText(doc, "$..j"), "$..j"
+        Expect.AreEqual "[1,{""j"":2}]", Helpers.QueryText(doc, "$.o.*"), "$.o.*"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/PatternTests.twin b/test/package-tests/tsJson/Sources/PatternTests.twin
new file mode 100644
index 00000000..71a9ea47
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/PatternTests.twin
@@ -0,0 +1,226 @@
+' The I-Regexp matcher behind IsValidPattern, IsMatchPattern, IsSearchPattern, the JSONPath functions
+' match and search, and the schema keyword pattern. RFC 9485 defines the dialect, and the cases that
+' name a defect check what the RFC says.
+[TestFixture]
+Module PatternTests
+
+    ' ---- the choice is not tried again (a defect)
+
+    [TestCase]
+    Public Sub IsMatchPattern_LongerAlternativeSecond_Matches()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern("ab", "a|ab"), "IsMatchPattern(""ab"", ""a|ab"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_ChoiceInGroup_TriesTheOtherAlternative()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern("Mrs Smith", "(Mr|Mrs) Smith"), "IsMatchPattern(""Mrs Smith"", ""(Mr|Mrs) Smith"")"
+        Expect.IsTrue Json.IsMatchPattern("Mr Smith", "(Mr|Mrs) Smith"), "IsMatchPattern(""Mr Smith"", ""(Mr|Mrs) Smith"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_LongerAlternativeFirst_Matches()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern("Mrs Smith", "(Mrs|Mr) Smith"), "IsMatchPattern(""Mrs Smith"", ""(Mrs|Mr) Smith"")"
+        Expect.IsTrue Json.IsMatchPattern("Mr Smith", "(Mrs|Mr) Smith"), "IsMatchPattern(""Mr Smith"", ""(Mrs|Mr) Smith"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsSearchPattern_ChoiceInGroup_TriesTheOtherAlternative()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsSearchPattern("abc", "(a|ab)c"), "IsSearchPattern(""abc"", ""(a|ab)c"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Match_JsonPathFunction_TriesTheOtherAlternative()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""v"":""ab""},{""v"":""a""},{""v"":""b""}]")
+        Expect.AreEqual "[{""v"":""ab""},{""v"":""a""}]", Helpers.QueryText(doc, "$[?match(@.v, ""a|ab"")]"), "$[?match(@.v, ""a|ab"")] on the values ab, a and b"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Search_JsonPathFunction_TriesTheOtherAlternative()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("[{""v"":""abc""},{""v"":""xyz""}]")
+        Expect.AreEqual "[{""v"":""abc""}]", Helpers.QueryText(doc, "$[?search(@.v, ""(a|ab)c"")]"), "$[?search(@.v, ""(a|ab)c"")] on the values abc and xyz"
+        Expect.Done
+    End Sub
+
+    ' ---- \n, \r, \t, \- and \^ are not understood (a defect)
+
+    [TestCase]
+    Public Sub IsValidPattern_EscapeTab_IsValid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsValidPattern("a\tb"), "IsValidPattern(""a\tb"")"
+        Expect.IsTrue Json.IsMatchPattern("a" & vbTab & "b", "a\tb"), "IsMatchPattern of a, a tab and b against ""a\tb"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidPattern_EscapeLineFeed_IsValid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsValidPattern("a\nb"), "IsValidPattern(""a\nb"")"
+        Expect.IsTrue Json.IsMatchPattern("a" & vbLf & "b", "a\nb"), "IsMatchPattern of a, a line feed and b against ""a\nb"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidPattern_EscapeCarriageReturn_IsValid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsValidPattern("a\rb"), "IsValidPattern(""a\rb"")"
+        Expect.IsTrue Json.IsMatchPattern("a" & vbCr & "b", "a\rb"), "IsMatchPattern of a, a carriage return and b against ""a\rb"""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_SetWithLineFeedEscape_MatchesLineFeed()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern(vbLf, "[\n]"), "IsMatchPattern of a line feed against ""[\n]"""
+        Expect.IsFalse Json.IsMatchPattern("n", "[\n]"), "IsMatchPattern(""n"", ""[\n]"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_SetWithTabEscape_MatchesTab()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern(vbTab, "[\t]"), "IsMatchPattern of a tab against ""[\t]"""
+        Expect.IsFalse Json.IsMatchPattern("t", "[\t]"), "IsMatchPattern(""t"", ""[\t]"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidPattern_EscapeHyphen_IsValid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsValidPattern("a\-b"), "IsValidPattern(""a\-b"")"
+        Expect.IsTrue Json.IsMatchPattern("a-b", "a\-b"), "IsMatchPattern(""a-b"", ""a\-b"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidPattern_EscapeCaret_IsValid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsValidPattern("a\^b"), "IsValidPattern(""a\^b"")"
+        Expect.IsTrue Json.IsMatchPattern("a^b", "a\^b"), "IsMatchPattern(""a^b"", ""a\^b"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidPattern_SetEndingInHyphen_IsValid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsValidPattern("[a-]"), "IsValidPattern(""[a-]"")"
+        Expect.IsTrue Json.IsMatchPattern("-", "[a-]"), "IsMatchPattern(""-"", ""[a-]"")"
+        Expect.IsTrue Json.IsMatchPattern("a", "[a-]"), "IsMatchPattern(""a"", ""[a-]"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_SetStartingWithHyphen_MatchesHyphen()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsValidPattern("[-a]"), "IsValidPattern(""[-a]"")"
+        Expect.IsTrue Json.IsMatchPattern("-", "[-a]"), "IsMatchPattern(""-"", ""[-a]"")"
+        Expect.Done
+    End Sub
+
+    ' ---- what the matcher accepts and refuses, as the page describes it
+
+    [TestCase]
+    Public Sub IsMatchPattern_ClassEscapes_AreAccepted()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern("2026", "\d{4}"), "IsMatchPattern(""2026"", ""\d{4}"")"
+        Expect.IsFalse Json.IsMatchPattern("20x6", "\d{4}"), "IsMatchPattern(""20x6"", ""\d{4}"")"
+        Expect.IsTrue Json.IsMatchPattern("ab", "\D\D"), "IsMatchPattern(""ab"", ""\D\D"")"
+        Expect.IsTrue Json.IsMatchPattern("a" & vbTab & "b", "a\sb"), "IsMatchPattern of a, a tab and b against ""a\sb"""
+        Expect.IsTrue Json.IsMatchPattern("a-b", "a\Sb"), "IsMatchPattern(""a-b"", ""a\Sb"")"
+        Expect.IsTrue Json.IsMatchPattern("a_9", "\w\w\w"), "IsMatchPattern(""a_9"", ""\w\w\w"")"
+        Expect.IsTrue Json.IsMatchPattern("-", "\W"), "IsMatchPattern(""-"", ""\W"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidPattern_Lookaround_IsInvalid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsFalse Json.IsValidPattern("a(?=b)"), "IsValidPattern of a lookahead"
+        Expect.IsFalse Json.IsValidPattern("a(?!b)"), "IsValidPattern of a negative lookahead"
+        Expect.IsFalse Json.IsValidPattern("(?<=a)b"), "IsValidPattern of a lookbehind"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidPattern_BackReference_IsInvalid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsFalse Json.IsValidPattern("(a)\1"), "IsValidPattern(""(a)\1"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsValidPattern_LazyQuantifier_IsInvalid()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsFalse Json.IsValidPattern("a+?"), "IsValidPattern(""a+?"")"
+        Expect.IsFalse Json.IsValidPattern("a*?"), "IsValidPattern(""a*?"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_InvalidPattern_IsFalseWithNoError()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsFalse Json.IsMatchPattern("a", "("), "IsMatchPattern(""a"", ""("")"
+        Expect.IsFalse Json.IsSearchPattern("a", "("), "IsSearchPattern(""a"", ""("")"
+        Expect.IsFalse Json.IsValidPattern("("), "IsValidPattern(""("")"
+        Expect.IsFalse JsonError.HasError, "the last error after three calls with an invalid pattern"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_AnchorsAreOrdinaryCharacters()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern("^a$", "^a$"), "IsMatchPattern(""^a$"", ""^a$"")"
+        Expect.IsFalse Json.IsMatchPattern("a", "^a$"), "IsMatchPattern(""a"", ""^a$"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_UnicodeCategories_AreMatched()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern("Ada", "\p{Lu}\p{Ll}+"), "IsMatchPattern(""Ada"", ""\p{Lu}\p{Ll}+"")"
+        Expect.IsFalse Json.IsMatchPattern("ada", "\p{Lu}\p{Ll}+"), "IsMatchPattern(""ada"", ""\p{Lu}\p{Ll}+"")"
+        Expect.IsTrue Json.IsMatchPattern("a1", "\P{N}\p{N}"), "IsMatchPattern(""a1"", ""\P{N}\p{N}"")"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsMatchPattern_SurrogatePair_IsOneCharacter()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Json.IsMatchPattern(ChrW(&HD83D) & ChrW(&HDE00), "."), "IsMatchPattern of U+1F600 against ""."""
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/PointerTests.twin b/test/package-tests/tsJson/Sources/PointerTests.twin
new file mode 100644
index 00000000..062ccf15
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/PointerTests.twin
@@ -0,0 +1,251 @@
+' JSON Pointer (RFC 6901): PointerGet, PointerExists, PointerTryGet, PointerSet, PointerRemove, and
+' the pointers that Patch and QueryHits use.
+[TestFixture]
+Module PointerTests
+
+    ' ---- an empty token after another token (a defect)
+
+    [TestCase]
+    Public Sub PointerGet_EmptyTokenAfterToken_NamesTheEmptyKey()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""a"":1,"""":2}}")
+        Expect.AreEqual 2, Json.PointerGet(doc, "/a/"), "PointerGet of /a/ in {""a"":{""a"":1,"""":2}}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerSet_EmptyTokenAfterToken_ChangesTheEmptyKey()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""a"":1,"""":2}}")
+        Expect.AreEqual "{""a"":{""a"":1,"""":9}}", Helpers.Min(Json.PointerSet(doc, "/a/", 9)), "PointerSet of /a/ to 9"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerRemove_EmptyTokenAfterToken_RemovesTheEmptyKey()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""a"":1,"""":2}}")
+        Expect.AreEqual "{""a"":{""a"":1}}", Helpers.Min(Json.PointerRemove(doc, "/a/")), "PointerRemove of /a/"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerExists_EmptyTokenAfterToken_IsFalseWhereTheKeyIsMissing()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""a"":1}}")
+        Expect.IsFalse Json.PointerExists(doc, "/a/"), "PointerExists of /a/ in {""a"":{""a"":1}}, which has no empty key"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Patch_ReplaceAtEmptyTokenAfterToken_ChangesTheEmptyKey()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""a"":1,"""":2}}")
+        Dim ops As Variant = Helpers.Doc("[{""op"":""replace"",""path"":""/a/"",""value"":9}]")
+        Expect.AreEqual "{""a"":{""a"":1,"""":9}}", Helpers.Min(Json.Patch(doc, ops)), "Patch with a replace at /a/"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub QueryHits_EmptyKey_PointerReadsTheSameValue()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""a"":1,"""":2}}")
+        Dim hits() As JsonHit = Json.QueryHits(doc, "$.a['']")
+        Expect.AreEqual "/a/", hits(LBound(hits)).Pointer, "the pointer of the hit for $.a['']"
+        Expect.AreEqual 2, hits(LBound(hits)).Value, "the value of the hit"
+        Expect.AreEqual 2, Json.PointerGet(doc, hits(LBound(hits)).Pointer), "PointerGet with the pointer of the hit"
+        Expect.Done
+    End Sub
+
+    ' ---- the empty token at the start of a pointer, which works
+
+    [TestCase]
+    Public Sub PointerGet_SlashAlone_NamesTheEmptyKeyOfTheDocument()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{"""":0,""a"":1}")
+        Expect.AreEqual 0, Json.PointerGet(doc, "/"), "PointerGet of / in {"""":0,""a"":1}"
+        Expect.Done
+    End Sub
+
+    ' ---- where the functions follow RFC 6901 and where the page says they do not
+
+    [TestCase]
+    Public Sub PointerGet_RfcExamples_ReadTheNamedValues()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As JsonObject = Json.Map("foo", Json.Arr("bar", "baz"), "", 0, "a/b", 1, "m~n", 8, "k""l", 6, "i\j", 5)
+        Expect.AreEqual "[""bar"",""baz""]", Helpers.Min(Json.PointerGet(doc, "/foo")), "/foo"
+        Expect.AreEqual "bar", Json.PointerGet(doc, "/foo/0"), "/foo/0"
+        Expect.AreEqual 1, Json.PointerGet(doc, "/a~1b"), "/a~1b"
+        Expect.AreEqual 8, Json.PointerGet(doc, "/m~0n"), "/m~0n"
+        Expect.AreEqual 6, Json.PointerGet(doc, "/k""l"), "/k""l"
+        Expect.AreEqual 5, Json.PointerGet(doc, "/i\j"), "/i\j"
+        Expect.IsFalse JsonError.HasError, "the last error after the reads"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerGet_EmptyPointer_ReturnsTheDocument()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1}")
+        Expect.AreEqual "{""a"":1}", Helpers.Min(Json.PointerGet(doc, "")), "PointerGet of the empty pointer"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerGet_UriFragmentForm_IsInvalidPointer()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""b"":1}}")
+        Dim v As Variant = Json.PointerGet(doc, "#/a/b")
+        Expect.IsTrue IsEmpty(v), "PointerGet of #/a/b returns Empty"
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "the error code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerGet_ArrayTokenThatIsNotAnIndex_IsInvalidPointer()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":[10,20,30]}")
+        Dim v As Variant
+        v = Json.PointerGet(doc, "/a/x")
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "the error code of the token x in an array"
+        v = Json.PointerGet(doc, "/a/01")
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "the error code of the token 01 in an array"
+        v = Json.PointerGet(doc, "/a/+1")
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "the error code of the token +1 in an array"
+        v = Json.PointerGet(doc, "/a/99999999999")
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "the error code of an index above the largest Long"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerExists_TokenThatIsNotAnIndex_IsFalseWithInvalidPointer()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""tags"":[""a""]}")
+        Expect.IsFalse Json.PointerExists(doc, "/tags/x"), "PointerExists of /tags/x"
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "JsonError.Code after PointerExists of /tags/x"
+        Expect.IsFalse Json.PointerExists(doc, "tags"), "PointerExists of tags"
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "JsonError.Code after PointerExists of tags"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerTryGet_InvalidPointer_IsFalseWithInvalidPointer()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":1}")
+        Dim v As Variant
+        Expect.IsFalse Json.PointerTryGet(doc, "a", v), "PointerTryGet of a"
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerGet_DashToken_IsPointerNotFound()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":[10,20]}")
+        Dim v As Variant = Json.PointerGet(doc, "/a/-")
+        Expect.IsTrue IsEmpty(v), "PointerGet of /a/- returns Empty"
+        Expect.AreEqual "PointerNotFound", JsonError.Code, "the error code"
+        Expect.IsFalse Json.PointerExists(doc, "/a/-"), "PointerExists of /a/-"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerSet_DashToken_AppendsToTheArray()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":[10,20]}")
+        Expect.AreEqual "{""a"":[10,20,30]}", Helpers.Min(Json.PointerSet(doc, "/a/-", 30)), "PointerSet of /a/- to 30"
+        Expect.AreEqual "{""a"":[10,20,30]}", Helpers.Min(Json.PointerSet(doc, "/a/2", 30)), "PointerSet of /a/2 (the length) to 30"
+        Expect.AreEqual "{""a"":[10,20]}", Helpers.Min(doc), "the document after the two calls"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerSet_IndexAboveLength_IsPointerNotFound()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":[10,20]}")
+        Dim v As Variant = Json.PointerSet(doc, "/a/5", 30)
+        Expect.IsTrue IsEmpty(v), "PointerSet of /a/5 returns Empty"
+        Expect.AreEqual "PointerNotFound", JsonError.Code, "the error code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerGet_ZeroInObject_SelectsMemberZero()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""0"":""zero"",""a"":[""first""]}")
+        Expect.AreEqual "zero", Json.PointerGet(doc, "/0"), "PointerGet of /0 in an object"
+        Expect.AreEqual "first", Json.PointerGet(doc, "/a/0"), "PointerGet of /a/0 in an array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerGet_ReturnsTheContainerInsideTheDocument()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""list"":[1]}")
+        Dim list As JsonArray = Json.PointerGet(doc, "/list")
+        list.Add 2
+        Expect.AreEqual "{""list"":[1,2]}", Helpers.Min(doc), "the document after an element was added to the array PointerGet returned"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerGet_MissingPlace_SetsPathUpToTheFailingToken()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""foo"":[""bar"",""baz""]}")
+        Dim v As Variant = Json.PointerGet(doc, "/foo/2")
+        Expect.AreEqual "PointerNotFound", JsonError.Code, "the error code"
+        Expect.AreEqual "/foo/2", JsonError.Path, "JsonError.Path"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerExists_PlaceHoldingNull_IsTrue()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""none"":null}")
+        Expect.IsTrue Json.PointerExists(doc, "/none"), "PointerExists of a place that holds null"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerRemove_EmptyPointerOrDash_IsInvalidPointer()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":[1,2]}")
+        Dim v As Variant = Json.PointerRemove(doc, "")
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "the error code of PointerRemove with the empty pointer"
+        v = Json.PointerRemove(doc, "/a/-")
+        Expect.AreEqual "InvalidPointer", JsonError.Code, "the error code of PointerRemove with a pointer that ends in -"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PointerRemove_ArrayElement_MovesTheLaterOnesDown()
+        Expect.Begin
+        Helpers.Reset
+        Dim doc As Variant = Helpers.Doc("{""a"":{""b"":[1,2,3],""c"":true}}")
+        Expect.AreEqual "{""a"":{""b"":[2,3],""c"":true}}", Helpers.Min(Json.PointerRemove(doc, "/a/b/0")), "PointerRemove of /a/b/0"
+        Expect.AreEqual "{""a"":{""b"":[1,2,3]}}", Helpers.Min(Json.PointerRemove(doc, "/a/c")), "PointerRemove of /a/c"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/RunAll.twin b/test/package-tests/tsJson/Sources/RunAll.twin
new file mode 100644
index 00000000..8477dad4
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/RunAll.twin
@@ -0,0 +1,942 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package tsJson, version 1.0.15.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "tsJson 1.0.15.0: 230 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso8601_DateAndTime_AreRead
+        Expect.EndCase "DatesTests.ParseIso8601_DateAndTime_AreRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso8601_Fraction_IsCutToMilliseconds
+        Expect.EndCase "DatesTests.ParseIso8601_Fraction_IsCutToMilliseconds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso8601_FormsOutsideTheSubset_AreInvalidDate
+        Expect.EndCase "DatesTests.ParseIso8601_FormsOutsideTheSubset_AreInvalidDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso8601_Failure_ReturnsDateZero
+        Expect.EndCase "DatesTests.ParseIso8601_Failure_ReturnsDateZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.ParseIso8601_TwoSpellingsOfOneInstant_GiveTheSameDate
+        Expect.EndCase "DatesTests.ParseIso8601_TwoSpellingsOfOneInstant_GiveTheSameDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.FormatIso8601_WritesMillisecondsOnlyWhenTheyAreNotZero
+        Expect.EndCase "DatesTests.FormatIso8601_WritesMillisecondsOnlyWhenTheyAreNotZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.FormatIso8601_MillisecondsAboveHalfASecond_KeepTheSecondAndTheFraction
+        Expect.EndCase "DatesTests.FormatIso8601_MillisecondsAboveHalfASecond_KeepTheSecondAndTheFraction", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.Serialize_DateWithMillisecondsAboveHalfASecond_KeepsTheFraction
+        Expect.EndCase "DatesTests.Serialize_DateWithMillisecondsAboveHalfASecond_KeepsTheFraction", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.Serialize_Date_IsAnIsoString
+        Expect.EndCase "DatesTests.Serialize_Date_IsAnIsoString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DatesTests.Json_Date_IsNotAJsonValue
+        Expect.EndCase "DatesTests.Json_Date_IsNotAJsonValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Serialize_TwoDimensionalArray_RaisesNoRunTimeError
+        Expect.EndCase "ErrorStateTests.Serialize_TwoDimensionalArray_RaisesNoRunTimeError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Serialize_TwoDimensionalArray_SetsTheLastError
+        Expect.EndCase "ErrorStateTests.Serialize_TwoDimensionalArray_SetsTheLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Parse_AfterARunTimeErrorInSerialize_ClearsTheLastError
+        Expect.EndCase "ErrorStateTests.Parse_AfterARunTimeErrorInSerialize_ClearsTheLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Parse_AfterARunTimeErrorInSerialize_SetsItsOwnOrigin
+        Expect.EndCase "ErrorStateTests.Parse_AfterARunTimeErrorInSerialize_SetsItsOwnOrigin", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Parse_Failure_ReturnsEmptyAndSetsTheError
+        Expect.EndCase "ErrorStateTests.Parse_Failure_ReturnsEmptyAndSetsTheError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Parse_AfterAFailure_ClearsTheError
+        Expect.EndCase "ErrorStateTests.Parse_AfterAFailure_ClearsTheError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.TryParse_Failure_ReportsTheOriginOfParse
+        Expect.EndCase "ErrorStateTests.TryParse_Failure_ReportsTheOriginOfParse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Parse_Null_ReturnsNullAndNoError
+        Expect.EndCase "ErrorStateTests.Parse_Null_ReturnsNullAndNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Parse_ByteOrderMarkInString_IsInvalidSyntax
+        Expect.EndCase "ErrorStateTests.Parse_ByteOrderMarkInString_IsInvalidSyntax", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.PointerExists_MissingPlace_IsFalseWithNoError
+        Expect.EndCase "ErrorStateTests.PointerExists_MissingPlace_IsFalseWithNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.PointerTryGet_MissingPlace_IsFalseWithNoError
+        Expect.EndCase "ErrorStateTests.PointerTryGet_MissingPlace_IsFalseWithNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Query_NothingMatches_IsEmptyWithNoError
+        Expect.EndCase "ErrorStateTests.Query_NothingMatches_IsEmptyWithNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.QueryOne_NothingMatches_IsEmptyWithNoError
+        Expect.EndCase "ErrorStateTests.QueryOne_NothingMatches_IsEmptyWithNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.TryQueryOne_NothingMatches_IsFalseWithNoError
+        Expect.EndCase "ErrorStateTests.TryQueryOne_NothingMatches_IsFalseWithNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.QueryHits_InvalidPath_SetsInvalidPath
+        Expect.EndCase "ErrorStateTests.QueryHits_InvalidPath_SetsInvalidPath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.PureFunctions_LeaveTheLastErrorAlone
+        Expect.EndCase "ErrorStateTests.PureFunctions_LeaveTheLastErrorAlone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.EmptyList_UBoundRaisesError9
+        Expect.EndCase "ErrorStateTests.EmptyList_UBoundRaisesError9", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.EmptyList_KeysItemsAndToVariantArray_AreUnbound
+        Expect.EndCase "ErrorStateTests.EmptyList_KeysItemsAndToVariantArray_AreUnbound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.EmptyList_QueryHitsAndErrors_AreUnbound
+        Expect.EndCase "ErrorStateTests.EmptyList_QueryHitsAndErrors_AreUnbound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorStateTests.Parse_FailedResultAssignedToObjectVariable_RaisesError424
+        Expect.EndCase "ErrorStateTests.Parse_FailedResultAssignedToObjectVariable_RaisesError424", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.WriteFile_ThenParseFile_RoundTrips
+        Expect.EndCase "FileTests.WriteFile_ThenParseFile_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.WriteFile_ReplacesAnExistingFile
+        Expect.EndCase "FileTests.WriteFile_ReplacesAnExistingFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.WriteFile_WritesUtf8_WithABomOnlyWhenAsked
+        Expect.EndCase "FileTests.WriteFile_WritesUtf8_WithABomOnlyWhenAsked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.WriteFile_ValueThatCannotBeSerialized_LeavesTheFileAlone
+        Expect.EndCase "FileTests.WriteFile_ValueThatCannotBeSerialized_LeavesTheFileAlone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.ParseFile_MissingFile_IsIoError
+        Expect.EndCase "FileTests.ParseFile_MissingFile_IsIoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.ParseFile_EmptyFile_IsUnexpectedEnd
+        Expect.EndCase "FileTests.ParseFile_EmptyFile_IsUnexpectedEnd", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.ParseFile_FileLargerThanMaxBytes_IsLimitExceeded
+        Expect.EndCase "FileTests.ParseFile_FileLargerThanMaxBytes_IsLimitExceeded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.ParseFile_UsesTheByteOrderMark_OrTheEncodingOption
+        Expect.EndCase "FileTests.ParseFile_UsesTheByteOrderMark_OrTheEncodingOption", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.WriteLinesFile_ThenParseLinesFile_RoundTrips
+        Expect.EndCase "FileTests.WriteLinesFile_ThenParseLinesFile_RoundTrips", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FileTests.WriteLinesFile_NoValues_CreatesAnEmptyFile
+        Expect.EndCase "FileTests.WriteLinesFile_NoValues_CreatesAnEmptyFile", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Map_RepeatedKey_ReplacesTheValueInTheFirstPlace
+        Expect.EndCase "ModelTests.Map_RepeatedKey_ReplacesTheValueInTheFirstPlace", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Map_OddNumberOfArguments_IsInvalidArgument
+        Expect.EndCase "ModelTests.Map_OddNumberOfArguments_IsInvalidArgument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Map_KeyThatIsNotAString_IsInvalidArgument
+        Expect.EndCase "ModelTests.Map_KeyThatIsNotAString_IsInvalidArgument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Keys_AreComparedByCharacterCode
+        Expect.EndCase "ModelTests.Keys_AreComparedByCharacterCode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Arr_KeepsTheValuesAsTheyAre
+        Expect.EndCase "ModelTests.Arr_KeepsTheValuesAsTheyAre", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.TypeOfValue_ClassifiesTheValuesOfTheModel
+        Expect.EndCase "ModelTests.TypeOfValue_ClassifiesTheValuesOfTheModel", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Clone_CopiesEveryContainer
+        Expect.EndCase "ModelTests.Clone_CopiesEveryContainer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Assignment_SharesTheContainer
+        Expect.EndCase "ModelTests.Assignment_SharesTheContainer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Equals_ComparesJsonValues
+        Expect.EndCase "ModelTests.Equals_ComparesJsonValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ModelTests.Query_ReturnsTheContainersInsideTheDocument
+        Expect.EndCase "ModelTests.Query_ReturnsTheContainersInsideTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Parse_ExponentAboveTheDecimalRange_IsInvalidNumber
+        Expect.EndCase "NumberTests.Parse_ExponentAboveTheDecimalRange_IsInvalidNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Parse_ScaleBelowTheDecimalRange_IsInvalidNumber
+        Expect.EndCase "NumberTests.Parse_ScaleBelowTheDecimalRange_IsInvalidNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Parse_ThirtySixDigitNumber_IsInvalidNumber
+        Expect.EndCase "NumberTests.Parse_ThirtySixDigitNumber_IsInvalidNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Parse_LargestDouble_IsInvalidNumber
+        Expect.EndCase "NumberTests.Parse_LargestDouble_IsInvalidNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Parse_NumbersInsideTheDecimalRange_KeepEveryDigit
+        Expect.EndCase "NumberTests.Parse_NumbersInsideTheDecimalRange_KeepEveryDigit", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Parse_FractionsAndExponents_ApplyThem
+        Expect.EndCase "NumberTests.Parse_FractionsAndExponents_ApplyThem", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Parse_Number_IsADecimal
+        Expect.EndCase "NumberTests.Parse_Number_IsADecimal", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Serialize_DoubleAboveTheDecimalRange_IsInvalidNumber
+        Expect.EndCase "NumberTests.Serialize_DoubleAboveTheDecimalRange_IsInvalidNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Serialize_DoubleJustAboveTheDecimalRange_IsInvalidNumber
+        Expect.EndCase "NumberTests.Serialize_DoubleJustAboveTheDecimalRange_IsInvalidNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        NumberTests.Serialize_Doubles_KeepFifteenSignificantDigits
+        Expect.EndCase "NumberTests.Serialize_Doubles_KeepFifteenSignificantDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.PredeclaredObject_Assignment_RaisesError5
+        Expect.EndCase "OptionsTests.PredeclaredObject_Assignment_RaisesError5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.PredeclaredObject_Read_ReturnsTheEmptyValueOfTheType
+        Expect.EndCase "OptionsTests.PredeclaredObject_Read_ReturnsTheEmptyValueOfTheType", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Presets_HaveTheDocumentedDefaults
+        Expect.EndCase "OptionsTests.Presets_HaveTheDocumentedDefaults", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Rfc_HasTheDocumentedValues
+        Expect.EndCase "OptionsTests.Rfc_HasTheDocumentedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.JsoncMinifiedAndPretty_DifferFromRfcInOneProperty
+        Expect.EndCase "OptionsTests.JsoncMinifiedAndPretty_DifferFromRfcInOneProperty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Clone_IsIndependentOfTheOriginal
+        Expect.EndCase "OptionsTests.Clone_IsIndependentOfTheOriginal", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Limits_ZeroOrBelowMeansNoLimit
+        Expect.EndCase "OptionsTests.Limits_ZeroOrBelowMeansNoLimit", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.Options_AreNotChangedByACall
+        Expect.EndCase "OptionsTests.Options_AreNotChangedByACall", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.New_Object_HasTheEmptyValueOfEachProperty
+        Expect.EndCase "OptionsTests.New_Object_HasTheEmptyValueOfEachProperty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.New_Object_WritesNoLineBreaksButASpaceAfterEachColon
+        Expect.EndCase "OptionsTests.New_Object_WritesNoLineBreaksButASpaceAfterEachColon", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        OptionsTests.New_Object_HasNoLimits
+        Expect.EndCase "OptionsTests.New_Object_HasNoLimits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_ControlCharacterInString_IsInvalidSyntax
+        Expect.EndCase "ParseTests.Parse_ControlCharacterInString_IsInvalidSyntax", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_Escapes_AreRead
+        Expect.EndCase "ParseTests.Parse_Escapes_AreRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_LoneSurrogateEscape_IsInvalidEscape
+        Expect.EndCase "ParseTests.Parse_LoneSurrogateEscape_IsInvalidEscape", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_DateText_StaysAString
+        Expect.EndCase "ParseTests.Parse_DateText_StaysAString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_WhiteSpaceAroundTheValue_IsAllowed
+        Expect.EndCase "ParseTests.Parse_WhiteSpaceAroundTheValue_IsAllowed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_TextAfterTheValue_IsAnError
+        Expect.EndCase "ParseTests.Parse_TextAfterTheValue_IsAnError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_TrailingCommaAndComment_AreErrorsByDefault
+        Expect.EndCase "ParseTests.Parse_TrailingCommaAndComment_AreErrorsByDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_Jsonc_AcceptsCommentsAndOneTrailingComma
+        Expect.EndCase "ParseTests.Parse_Jsonc_AcceptsCommentsAndOneTrailingComma", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_JsoncCommentNotClosed_IsInvalidComment
+        Expect.EndCase "ParseTests.Parse_JsoncCommentNotClosed_IsInvalidComment", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_DuplicateKey_IsAnErrorByDefault
+        Expect.EndCase "ParseTests.Parse_DuplicateKey_IsAnErrorByDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_DuplicateKeyLastWins_KeepsTheLastValueInTheFirstPlace
+        Expect.EndCase "ParseTests.Parse_DuplicateKeyLastWins_KeepsTheLastValueInTheFirstPlace", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_DepthBeyondMaxDepth_IsDepthLimitExceeded
+        Expect.EndCase "ParseTests.Parse_DepthBeyondMaxDepth_IsDepthLimitExceeded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_DefaultMaxDepth_Is1000
+        Expect.EndCase "ParseTests.Parse_DefaultMaxDepth_Is1000", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_LimitsOnStringsArraysAndObjects_AreLimitExceeded
+        Expect.EndCase "ParseTests.Parse_LimitsOnStringsArraysAndObjects_AreLimitExceeded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_MaxBytes_RefusesALongerString
+        Expect.EndCase "ParseTests.Parse_MaxBytes_RefusesALongerString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_MaxBytes_CountsUtf8BytesOfAString
+        Expect.EndCase "ParseTests.Parse_MaxBytes_CountsUtf8BytesOfAString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_Bytes_AreDecodedByTheByteOrderMark
+        Expect.EndCase "ParseTests.Parse_Bytes_AreDecodedByTheByteOrderMark", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_BytesWithEncodingOption_IgnoreAMatchingByteOrderMark
+        Expect.EndCase "ParseTests.Parse_BytesWithEncodingOption_IgnoreAMatchingByteOrderMark", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_InvalidUtf8Bytes_AreInvalidEncoding
+        Expect.EndCase "ParseTests.Parse_InvalidUtf8Bytes_AreInvalidEncoding", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_OtherType_IsWrongType
+        Expect.EndCase "ParseTests.Parse_OtherType_IsWrongType", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_SyntaxError_ReportsPositionLineAndColumn
+        Expect.EndCase "ParseTests.Parse_SyntaxError_ReportsPositionLineAndColumn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.Parse_SyntaxError_ToStringNamesOriginCodeAndPlace
+        Expect.EndCase "ParseTests.Parse_SyntaxError_ToStringNamesOriginCodeAndPlace", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.ParseLines_LinesEndWithLfCrOrBoth_AndEmptyLinesAreIgnored
+        Expect.EndCase "ParseTests.ParseLines_LinesEndWithLfCrOrBoth_AndEmptyLinesAreIgnored", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.ParseLines_BadLine_ReportsLineOneOfThatLine
+        Expect.EndCase "ParseTests.ParseLines_BadLine_ReportsLineOneOfThatLine", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ParseTests.SerializeLines_WritesALineFeedAfterEveryValue
+        Expect.EndCase "ParseTests.SerializeLines_WritesALineFeedAfterEveryValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_Add_FollowsRfc6902
+        Expect.EndCase "PatchTests.Patch_Add_FollowsRfc6902", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_AddToMissingParent_Fails
+        Expect.EndCase "PatchTests.Patch_AddToMissingParent_Fails", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_Remove_FollowsRfc6902
+        Expect.EndCase "PatchTests.Patch_Remove_FollowsRfc6902", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_RemoveMissingPlace_Fails
+        Expect.EndCase "PatchTests.Patch_RemoveMissingPlace_Fails", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_Replace_FollowsRfc6902
+        Expect.EndCase "PatchTests.Patch_Replace_FollowsRfc6902", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_ReplaceMissingPlace_Fails
+        Expect.EndCase "PatchTests.Patch_ReplaceMissingPlace_Fails", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_Move_FollowsRfc6902
+        Expect.EndCase "PatchTests.Patch_Move_FollowsRfc6902", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_MoveFromParentOfPath_Fails
+        Expect.EndCase "PatchTests.Patch_MoveFromParentOfPath_Fails", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_Copy_FollowsRfc6902
+        Expect.EndCase "PatchTests.Patch_Copy_FollowsRfc6902", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_Test_FollowsRfc6902
+        Expect.EndCase "PatchTests.Patch_Test_FollowsRfc6902", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_TestThatFails_IsPatchTestFailed
+        Expect.EndCase "PatchTests.Patch_TestThatFails_IsPatchTestFailed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_FailedOperation_AppliesNothing
+        Expect.EndCase "PatchTests.Patch_FailedOperation_AppliesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_DoesNotChangeTheDocument
+        Expect.EndCase "PatchTests.Patch_DoesNotChangeTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_SingleOperationObject_IsAccepted
+        Expect.EndCase "PatchTests.Patch_SingleOperationObject_IsAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_MalformedOperations_AreInvalidPatch
+        Expect.EndCase "PatchTests.Patch_MalformedOperations_AreInvalidPatch", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Patch_InvalidPatch_PathIsThePositionOfTheOperation
+        Expect.EndCase "PatchTests.Patch_InvalidPatch_PathIsThePositionOfTheOperation", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.MergePatch_FollowsRfc7396
+        Expect.EndCase "PatchTests.MergePatch_FollowsRfc7396", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.MergePatch_PatchThatIsNotAnObject_ReplacesTheDocument
+        Expect.EndCase "PatchTests.MergePatch_PatchThatIsNotAnObject_ReplacesTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.MergePatch_DoesNotChangeTheDocument
+        Expect.EndCase "PatchTests.MergePatch_DoesNotChangeTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatchTests.Diff_PatchOfTheDiff_GivesTheTarget
+        Expect.EndCase "PatchTests.Diff_PatchOfTheDiff_GivesTheTarget", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_NotEqual_SelectsElementWithoutMember
+        Expect.EndCase "PathTests.Filter_NotEqual_SelectsElementWithoutMember", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_NegatedEqual_SelectsElementWithoutMember
+        Expect.EndCase "PathTests.Filter_NegatedEqual_SelectsElementWithoutMember", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_EqualOfTwoMissingValues_Selects
+        Expect.EndCase "PathTests.Filter_EqualOfTwoMissingValues_Selects", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_MissingValueEqualsNothingElse
+        Expect.EndCase "PathTests.Filter_MissingValueEqualsNothingElse", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_LessOrEqual_EqualBooleans_Selects
+        Expect.EndCase "PathTests.Filter_LessOrEqual_EqualBooleans_Selects", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_LessOrEqual_EqualNulls_Selects
+        Expect.EndCase "PathTests.Filter_LessOrEqual_EqualNulls_Selects", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_LessOrEqual_EqualArrays_Selects
+        Expect.EndCase "PathTests.Filter_LessOrEqual_EqualArrays_Selects", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_GreaterOrEqual_EqualBooleans_Selects
+        Expect.EndCase "PathTests.Filter_GreaterOrEqual_EqualBooleans_Selects", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_LessOrEqual_NumbersAndStrings_Compare
+        Expect.EndCase "PathTests.Filter_LessOrEqual_NumbersAndStrings_Compare", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_UnknownFunction_IsAnError
+        Expect.EndCase "PathTests.CompilePath_UnknownFunction_IsAnError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_WrongNumberOfArguments_IsAnError
+        Expect.EndCase "PathTests.CompilePath_WrongNumberOfArguments_IsAnError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_QueryThatSelectsManyValuesInComparison_IsAnError
+        Expect.EndCase "PathTests.CompilePath_QueryThatSelectsManyValuesInComparison_IsAnError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Query_UnknownFunction_SetsTheError
+        Expect.EndCase "PathTests.Query_UnknownFunction_SetsTheError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_FunctionNameStartingWithF_IsInvalidPath
+        Expect.EndCase "PathTests.CompilePath_FunctionNameStartingWithF_IsInvalidPath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_FractionLiteral_Compiles
+        Expect.EndCase "PathTests.Filter_FractionLiteral_Compiles", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_ExponentLiteral_Compiles
+        Expect.EndCase "PathTests.Filter_ExponentLiteral_Compiles", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_NegativeFractionLiteral_Compiles
+        Expect.EndCase "PathTests.Filter_NegativeFractionLiteral_Compiles", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Filter_IntegerLiteral_Compares
+        Expect.EndCase "PathTests.Filter_IntegerLiteral_Compares", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Length_CountsUtf16CodeUnits
+        Expect.EndCase "PathTests.Length_CountsUtf16CodeUnits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Query_LeadingZeroIndex_IsAccepted
+        Expect.EndCase "PathTests.Query_LeadingZeroIndex_IsAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Query_MemberNameStartingWithDigit_IsRefused
+        Expect.EndCase "PathTests.Query_MemberNameStartingWithDigit_IsRefused", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.QueryHits_ReturnsValueAndPointer
+        Expect.EndCase "PathTests.QueryHits_ReturnsValueAndPointer", Err.Number, Err.Description
+#If Win64 Then
+        Expect.Skip "PathTests.CompilePath_FilterNestedMoreThan1000Levels_IsDepthLimitExceeded", "it ends in a native exception in version 1.0.15.0"
+#Else
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_FilterNestedMoreThan1000Levels_IsDepthLimitExceeded
+        Expect.EndCase "PathTests.CompilePath_FilterNestedMoreThan1000Levels_IsDepthLimitExceeded", Err.Number, Err.Description
+#End If
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_FilterNested100Levels_Compiles
+        Expect.EndCase "PathTests.CompilePath_FilterNested100Levels_Compiles", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_FilterNested500Levels_Compiles
+        Expect.EndCase "PathTests.CompilePath_FilterNested500Levels_Compiles", Err.Number, Err.Description
+#If Win64 Then
+        Expect.Skip "PathTests.CompilePath_FilterNested999Levels_Compiles", "it ends in a native exception in version 1.0.15.0"
+#Else
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_FilterNested999Levels_Compiles
+        Expect.EndCase "PathTests.CompilePath_FilterNested999Levels_Compiles", Err.Number, Err.Description
+#End If
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompiledQuery_RunsOnManyDocuments
+        Expect.EndCase "PathTests.CompiledQuery_RunsOnManyDocuments", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompiledQuery_Verbs_ClearTheLastErrorAndSetNone
+        Expect.EndCase "PathTests.CompiledQuery_Verbs_ClearTheLastErrorAndSetNone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.CompilePath_InvalidPath_SetsTheErrorOfCompilePath
+        Expect.EndCase "PathTests.CompilePath_InvalidPath_SetsTheErrorOfCompilePath", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Query_Selectors_SelectWhatTheTableSays
+        Expect.EndCase "PathTests.Query_Selectors_SelectWhatTheTableSays", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Query_FilterExpressions_BehaveAsTheTableSays
+        Expect.EndCase "PathTests.Query_FilterExpressions_BehaveAsTheTableSays", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PathTests.Query_SlicesDescendantsAndWildcards_FollowTheRfc
+        Expect.EndCase "PathTests.Query_SlicesDescendantsAndWildcards_FollowTheRfc", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_LongerAlternativeSecond_Matches
+        Expect.EndCase "PatternTests.IsMatchPattern_LongerAlternativeSecond_Matches", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_ChoiceInGroup_TriesTheOtherAlternative
+        Expect.EndCase "PatternTests.IsMatchPattern_ChoiceInGroup_TriesTheOtherAlternative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_LongerAlternativeFirst_Matches
+        Expect.EndCase "PatternTests.IsMatchPattern_LongerAlternativeFirst_Matches", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsSearchPattern_ChoiceInGroup_TriesTheOtherAlternative
+        Expect.EndCase "PatternTests.IsSearchPattern_ChoiceInGroup_TriesTheOtherAlternative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.Match_JsonPathFunction_TriesTheOtherAlternative
+        Expect.EndCase "PatternTests.Match_JsonPathFunction_TriesTheOtherAlternative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.Search_JsonPathFunction_TriesTheOtherAlternative
+        Expect.EndCase "PatternTests.Search_JsonPathFunction_TriesTheOtherAlternative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_EscapeTab_IsValid
+        Expect.EndCase "PatternTests.IsValidPattern_EscapeTab_IsValid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_EscapeLineFeed_IsValid
+        Expect.EndCase "PatternTests.IsValidPattern_EscapeLineFeed_IsValid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_EscapeCarriageReturn_IsValid
+        Expect.EndCase "PatternTests.IsValidPattern_EscapeCarriageReturn_IsValid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_SetWithLineFeedEscape_MatchesLineFeed
+        Expect.EndCase "PatternTests.IsMatchPattern_SetWithLineFeedEscape_MatchesLineFeed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_SetWithTabEscape_MatchesTab
+        Expect.EndCase "PatternTests.IsMatchPattern_SetWithTabEscape_MatchesTab", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_EscapeHyphen_IsValid
+        Expect.EndCase "PatternTests.IsValidPattern_EscapeHyphen_IsValid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_EscapeCaret_IsValid
+        Expect.EndCase "PatternTests.IsValidPattern_EscapeCaret_IsValid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_SetEndingInHyphen_IsValid
+        Expect.EndCase "PatternTests.IsValidPattern_SetEndingInHyphen_IsValid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_SetStartingWithHyphen_MatchesHyphen
+        Expect.EndCase "PatternTests.IsMatchPattern_SetStartingWithHyphen_MatchesHyphen", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_ClassEscapes_AreAccepted
+        Expect.EndCase "PatternTests.IsMatchPattern_ClassEscapes_AreAccepted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_Lookaround_IsInvalid
+        Expect.EndCase "PatternTests.IsValidPattern_Lookaround_IsInvalid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_BackReference_IsInvalid
+        Expect.EndCase "PatternTests.IsValidPattern_BackReference_IsInvalid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsValidPattern_LazyQuantifier_IsInvalid
+        Expect.EndCase "PatternTests.IsValidPattern_LazyQuantifier_IsInvalid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_InvalidPattern_IsFalseWithNoError
+        Expect.EndCase "PatternTests.IsMatchPattern_InvalidPattern_IsFalseWithNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_AnchorsAreOrdinaryCharacters
+        Expect.EndCase "PatternTests.IsMatchPattern_AnchorsAreOrdinaryCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_UnicodeCategories_AreMatched
+        Expect.EndCase "PatternTests.IsMatchPattern_UnicodeCategories_AreMatched", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PatternTests.IsMatchPattern_SurrogatePair_IsOneCharacter
+        Expect.EndCase "PatternTests.IsMatchPattern_SurrogatePair_IsOneCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_EmptyTokenAfterToken_NamesTheEmptyKey
+        Expect.EndCase "PointerTests.PointerGet_EmptyTokenAfterToken_NamesTheEmptyKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerSet_EmptyTokenAfterToken_ChangesTheEmptyKey
+        Expect.EndCase "PointerTests.PointerSet_EmptyTokenAfterToken_ChangesTheEmptyKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerRemove_EmptyTokenAfterToken_RemovesTheEmptyKey
+        Expect.EndCase "PointerTests.PointerRemove_EmptyTokenAfterToken_RemovesTheEmptyKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerExists_EmptyTokenAfterToken_IsFalseWhereTheKeyIsMissing
+        Expect.EndCase "PointerTests.PointerExists_EmptyTokenAfterToken_IsFalseWhereTheKeyIsMissing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.Patch_ReplaceAtEmptyTokenAfterToken_ChangesTheEmptyKey
+        Expect.EndCase "PointerTests.Patch_ReplaceAtEmptyTokenAfterToken_ChangesTheEmptyKey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.QueryHits_EmptyKey_PointerReadsTheSameValue
+        Expect.EndCase "PointerTests.QueryHits_EmptyKey_PointerReadsTheSameValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_SlashAlone_NamesTheEmptyKeyOfTheDocument
+        Expect.EndCase "PointerTests.PointerGet_SlashAlone_NamesTheEmptyKeyOfTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_RfcExamples_ReadTheNamedValues
+        Expect.EndCase "PointerTests.PointerGet_RfcExamples_ReadTheNamedValues", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_EmptyPointer_ReturnsTheDocument
+        Expect.EndCase "PointerTests.PointerGet_EmptyPointer_ReturnsTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_UriFragmentForm_IsInvalidPointer
+        Expect.EndCase "PointerTests.PointerGet_UriFragmentForm_IsInvalidPointer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_ArrayTokenThatIsNotAnIndex_IsInvalidPointer
+        Expect.EndCase "PointerTests.PointerGet_ArrayTokenThatIsNotAnIndex_IsInvalidPointer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerExists_TokenThatIsNotAnIndex_IsFalseWithInvalidPointer
+        Expect.EndCase "PointerTests.PointerExists_TokenThatIsNotAnIndex_IsFalseWithInvalidPointer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerTryGet_InvalidPointer_IsFalseWithInvalidPointer
+        Expect.EndCase "PointerTests.PointerTryGet_InvalidPointer_IsFalseWithInvalidPointer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_DashToken_IsPointerNotFound
+        Expect.EndCase "PointerTests.PointerGet_DashToken_IsPointerNotFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerSet_DashToken_AppendsToTheArray
+        Expect.EndCase "PointerTests.PointerSet_DashToken_AppendsToTheArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerSet_IndexAboveLength_IsPointerNotFound
+        Expect.EndCase "PointerTests.PointerSet_IndexAboveLength_IsPointerNotFound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_ZeroInObject_SelectsMemberZero
+        Expect.EndCase "PointerTests.PointerGet_ZeroInObject_SelectsMemberZero", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_ReturnsTheContainerInsideTheDocument
+        Expect.EndCase "PointerTests.PointerGet_ReturnsTheContainerInsideTheDocument", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerGet_MissingPlace_SetsPathUpToTheFailingToken
+        Expect.EndCase "PointerTests.PointerGet_MissingPlace_SetsPathUpToTheFailingToken", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerExists_PlaceHoldingNull_IsTrue
+        Expect.EndCase "PointerTests.PointerExists_PlaceHoldingNull_IsTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerRemove_EmptyPointerOrDash_IsInvalidPointer
+        Expect.EndCase "PointerTests.PointerRemove_EmptyPointerOrDash_IsInvalidPointer", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PointerTests.PointerRemove_ArrayElement_MovesTheLaterOnesDown
+        Expect.EndCase "PointerTests.PointerRemove_ArrayElement_MovesTheLaterOnesDown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RunnerTests.SetContinueOnFail_False_StopsAtTheFirstFailedCheck
+        Expect.EndCase "RunnerTests.SetContinueOnFail_False_StopsAtTheFirstFailedCheck", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RunnerTests.SetContinueOnFail_True_RunsEveryCheck
+        Expect.EndCase "RunnerTests.SetContinueOnFail_True_RunsEveryCheck", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Format_Ipv4_AcceptsValidAddresses
+        Expect.EndCase "SchemaTests.Format_Ipv4_AcceptsValidAddresses", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Format_Ipv4_RejectsWrongAddresses
+        Expect.EndCase "SchemaTests.Format_Ipv4_RejectsWrongAddresses", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Format_Ipv4_FailureNamesTheFormatKeyword
+        Expect.EndCase "SchemaTests.Format_Ipv4_FailureNamesTheFormatKeyword", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Pattern_Anchored_AcceptsAStringThatMatchesWhole
+        Expect.EndCase "SchemaTests.Pattern_Anchored_AcceptsAStringThatMatchesWhole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Pattern_Anchored_RejectsAStringThatDoesNotMatchWhole
+        Expect.EndCase "SchemaTests.Pattern_Anchored_RejectsAStringThatDoesNotMatchWhole", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Pattern_Unanchored_FindsThePatternAnywhere
+        Expect.EndCase "SchemaTests.Pattern_Unanchored_FindsThePatternAnywhere", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Pattern_ChoiceInGroup_TriesTheOtherAlternative
+        Expect.EndCase "SchemaTests.Pattern_ChoiceInGroup_TriesTheOtherAlternative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.PatternProperties_ChoiceInGroup_TriesTheOtherAlternative
+        Expect.EndCase "SchemaTests.PatternProperties_ChoiceInGroup_TriesTheOtherAlternative", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Pattern_InvalidPattern_NeverMatches
+        Expect.EndCase "SchemaTests.Pattern_InvalidPattern_NeverMatches", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.MaxLength_CountsUtf16CodeUnits
+        Expect.EndCase "SchemaTests.MaxLength_CountsUtf16CodeUnits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Format_IsAnAnnotationUnlessAssertionIsAsked
+        Expect.EndCase "SchemaTests.Format_IsAnAnnotationUnlessAssertionIsAsked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Format_DateTime_AcceptsATimeWithoutZone
+        Expect.EndCase "SchemaTests.Format_DateTime_AcceptsATimeWithoutZone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Format_Approximations_AcceptWhatThePageSays
+        Expect.EndCase "SchemaTests.Format_Approximations_AcceptWhatThePageSays", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Type_Integer_AcceptsANumberWithNoFractionalPart
+        Expect.EndCase "SchemaTests.Type_Integer_AcceptsANumberWithNoFractionalPart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.MultipleOf_DividesAsDecimal
+        Expect.EndCase "SchemaTests.MultipleOf_DividesAsDecimal", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Validate_UnusableKeyword_StopsEvaluationAndSetsTheError
+        Expect.EndCase "SchemaTests.Validate_UnusableKeyword_StopsEvaluationAndSetsTheError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Validate_RefOutsideTheCatalogue_IsRemoteRef
+        Expect.EndCase "SchemaTests.Validate_RefOutsideTheCatalogue_IsRemoteRef", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SchemaTests.Validate_Keywords_FollowTheDraft
+        Expect.EndCase "SchemaTests.Validate_Keywords_FollowTheDraft", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_Strings_EscapeQuoteBackslashAndControlCharacters
+        Expect.EndCase "SerializeTests.Serialize_Strings_EscapeQuoteBackslashAndControlCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_Solidus_IsWrittenAsItIsUnlessAsked
+        Expect.EndCase "SerializeTests.Serialize_Solidus_IsWrittenAsItIsUnlessAsked", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_EnsuresAscii_EscapesEveryCodeUnitAbove7F
+        Expect.EndCase "SerializeTests.Serialize_EnsuresAscii_EscapesEveryCodeUnitAbove7F", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_SortsKeys_OrdersMembersByCodeUnit
+        Expect.EndCase "SerializeTests.Serialize_SortsKeys_OrdersMembersByCodeUnit", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_Default_IsPrettyWithFourSpacesAndLineFeeds
+        Expect.EndCase "SerializeTests.Serialize_Default_IsPrettyWithFourSpacesAndLineFeeds", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_Newline_EndsTheLines
+        Expect.EndCase "SerializeTests.Serialize_Newline_EndsTheLines", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_IndentZero_HasLineBreaksAndNoIndentation
+        Expect.EndCase "SerializeTests.Serialize_IndentZero_HasLineBreaksAndNoIndentation", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_EmptyContainers_AreWrittenAlike
+        Expect.EndCase "SerializeTests.Serialize_EmptyContainers_AreWrittenAlike", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_VariantArray_IsAJsonArray
+        Expect.EndCase "SerializeTests.Serialize_VariantArray_IsAJsonArray", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_ValuesThatAreNotJson_AreUnsupportedType
+        Expect.EndCase "SerializeTests.Serialize_ValuesThatAreNotJson_AreUnsupportedType", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_ContainerThatContainsItself_IsCircularReference
+        Expect.EndCase "SerializeTests.Serialize_ContainerThatContainsItself_IsCircularReference", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_DepthBeyondMaxDepth_IsDepthLimitExceeded
+        Expect.EndCase "SerializeTests.Serialize_DepthBeyondMaxDepth_IsDepthLimitExceeded", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.Serialize_LoneSurrogate_IsWrittenAndNotEncodedToUtf8
+        Expect.EndCase "SerializeTests.Serialize_LoneSurrogate_IsWrittenAndNotEncodedToUtf8", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.SerializeToUtf8_IncludesBom_StartsWithTheByteOrderMark
+        Expect.EndCase "SerializeTests.SerializeToUtf8_IncludesBom_StartsWithTheByteOrderMark", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.SerializeToUtf8_WithoutBom_StartsWithTheQuote
+        Expect.EndCase "SerializeTests.SerializeToUtf8_WithoutBom_StartsWithTheQuote", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.SerializeLines_IgnoresIndent
+        Expect.EndCase "SerializeTests.SerializeLines_IgnoresIndent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SerializeTests.SerializeLines_OtherType_IsWrongType
+        Expect.EndCase "SerializeTests.SerializeLines_OtherType_IsWrongType", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/RunnerTests.twin b/test/package-tests/tsJson/Sources/RunnerTests.twin
new file mode 100644
index 00000000..0a9ea393
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/RunnerTests.twin
@@ -0,0 +1,39 @@
+' The package's own test runner, the module Tests, which the package leaves public. Its comment says
+' that SetContinueOnFail decides whether a run goes on after a failed check ("True = all checks").
+' The runner prints its lines with Debug.Print.
+[TestFixture]
+Module RunnerTests
+
+    [TestCase]
+    Public Sub SetContinueOnFail_False_StopsAtTheFirstFailedCheck()
+        Expect.Begin
+        Helpers.Reset
+        Tests.SetQuiet True
+        Tests.BeginRun
+        Tests.SetContinueOnFail False
+        Tests.CheckTrue "first check, fails on purpose", False
+        Tests.CheckTrue "second check, fails on purpose", False
+        Dim n As Long = Tests.FailCount()
+        Tests.EndRun
+        Tests.SetQuiet False
+        Expect.AreEqual 1, n, "the failed checks counted after two failing checks with SetContinueOnFail False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetContinueOnFail_True_RunsEveryCheck()
+        Expect.Begin
+        Helpers.Reset
+        Tests.SetQuiet True
+        Tests.BeginRun
+        Tests.SetContinueOnFail True
+        Tests.CheckTrue "first check, fails on purpose", False
+        Tests.CheckTrue "second check, fails on purpose", False
+        Dim n As Long = Tests.FailCount()
+        Tests.EndRun
+        Tests.SetQuiet False
+        Expect.AreEqual 2, n, "the failed checks counted after two failing checks with SetContinueOnFail True"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/SchemaTests.twin b/test/package-tests/tsJson/Sources/SchemaTests.twin
new file mode 100644
index 00000000..ac85ed88
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/SchemaTests.twin
@@ -0,0 +1,209 @@
+' JSON Schema, draft 2020-12: the keywords pattern and format, and the points where the page says the
+' package departs from the draft.
+[TestFixture]
+Module SchemaTests
+
+    Private Function Accepts(ByVal Instance As Variant, ByVal Schema As String, Optional ByVal Options As JsonOptions = Nothing) As Boolean
+        Dim s As Variant = Helpers.Doc(Schema)
+        Dim r As JsonValidationResult = Json.Validate(Instance, s, Options)
+        Accepts = r.IsValid
+    End Function
+
+    Private Function FormatOptions() As JsonOptions
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.IsFormatAssertion = True
+        Return o
+    End Function
+
+    ' ---- the ipv4 format (a defect)
+
+    [TestCase]
+    Public Sub Format_Ipv4_AcceptsValidAddresses()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = FormatOptions()
+        Expect.IsTrue Accepts("1.2.3.4", "{""format"":""ipv4""}", o), "ipv4 of 1.2.3.4"
+        Expect.IsTrue Accepts("10.0.0.1", "{""format"":""ipv4""}", o), "ipv4 of 10.0.0.1"
+        Expect.IsTrue Accepts("192.168.1.1", "{""format"":""ipv4""}", o), "ipv4 of 192.168.1.1"
+        Expect.IsTrue Accepts("255.255.255.255", "{""format"":""ipv4""}", o), "ipv4 of 255.255.255.255"
+        Expect.IsTrue Accepts("0.0.0.0", "{""format"":""ipv4""}", o), "ipv4 of 0.0.0.0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Format_Ipv4_RejectsWrongAddresses()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = FormatOptions()
+        Expect.IsFalse Accepts("256.1.1.1", "{""format"":""ipv4""}", o), "ipv4 of 256.1.1.1"
+        Expect.IsFalse Accepts("1.2.3", "{""format"":""ipv4""}", o), "ipv4 of 1.2.3"
+        Expect.IsFalse Accepts("1.2.3.4.5", "{""format"":""ipv4""}", o), "ipv4 of 1.2.3.4.5"
+        Expect.IsFalse Accepts("01.2.3.4", "{""format"":""ipv4""}", o), "ipv4 of 01.2.3.4"
+        Expect.IsFalse Accepts("a.b.c.d", "{""format"":""ipv4""}", o), "ipv4 of a.b.c.d"
+        Expect.IsFalse Accepts("", "{""format"":""ipv4""}", o), "ipv4 of the empty string"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Format_Ipv4_FailureNamesTheFormatKeyword()
+        Expect.Begin
+        Helpers.Reset
+        Dim s As Variant = Helpers.Doc("{""format"":""ipv4""}")
+        Dim r As JsonValidationResult = Json.Validate("256.1.1.1", s, FormatOptions())
+        Expect.AreEqual 1, r.ErrorCount, "the failures for 256.1.1.1"
+        Dim e() As JsonValidationError = r.Errors
+        Expect.AreEqual "format", e(LBound(e)).Keyword, "the keyword of the failure"
+        Expect.Done
+    End Sub
+
+    ' ---- pattern cannot be anchored (a defect)
+
+    [TestCase]
+    Public Sub Pattern_Anchored_AcceptsAStringThatMatchesWhole()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Accepts("abc", "{""pattern"":""^[a-z]+$""}"), "the string abc against the pattern ^[a-z]+$"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pattern_Anchored_RejectsAStringThatDoesNotMatchWhole()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsFalse Accepts("abc1", "{""pattern"":""^[a-z]+$""}"), "the string abc1 against the pattern ^[a-z]+$"
+        Expect.IsFalse Accepts("^abc$", "{""pattern"":""^[a-z]+$""}"), "the string ^abc$ against the pattern ^[a-z]+$"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pattern_Unanchored_FindsThePatternAnywhere()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Accepts("xxabcxx", "{""pattern"":""[a-c]{3}""}"), "the string xxabcxx against the pattern [a-c]{3}"
+        Expect.IsFalse Accepts("xxabxx", "{""pattern"":""[a-c]{3}""}"), "the string xxabxx against the pattern [a-c]{3}"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pattern_ChoiceInGroup_TriesTheOtherAlternative()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Accepts("abc", "{""pattern"":""(a|ab)c""}"), "the string abc against the pattern (a|ab)c"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PatternProperties_ChoiceInGroup_TriesTheOtherAlternative()
+        Expect.Begin
+        Helpers.Reset
+        Dim sch As String = "{""patternProperties"":{""(a|ab)c"":{""type"":""integer""}},""additionalProperties"":false}"
+        Expect.IsTrue Accepts(Helpers.Doc("{""abc"":1}"), sch), "the property abc against patternProperties (a|ab)c"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pattern_InvalidPattern_NeverMatches()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsFalse Accepts("a", "{""pattern"":""(""}"), "the string a against the invalid pattern ("
+        Expect.Done
+    End Sub
+
+    ' ---- the other points the page states
+
+    [TestCase]
+    Public Sub MaxLength_CountsUtf16CodeUnits()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsFalse Accepts(ChrW(&HD83D) & ChrW(&HDE00), "{""maxLength"":1}"), "U+1F600 against maxLength 1"
+        Expect.IsTrue Accepts(ChrW(&HD83D) & ChrW(&HDE00), "{""maxLength"":2}"), "U+1F600 against maxLength 2"
+        Expect.IsFalse Accepts(ChrW(&HD83D) & ChrW(&HDE00), "{""minLength"":3}"), "U+1F600 against minLength 3"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Format_IsAnAnnotationUnlessAssertionIsAsked()
+        Expect.Begin
+        Helpers.Reset
+        Dim sch As String = "{""type"":""string"",""format"":""date""}"
+        Expect.IsTrue Accepts("19.08.2026", sch), "19.08.2026 against format date, with no options"
+        Expect.IsFalse Accepts("19.08.2026", sch, FormatOptions()), "19.08.2026 against format date, with IsFormatAssertion"
+        Expect.IsTrue Accepts("2026-08-19", sch, FormatOptions()), "2026-08-19 against format date, with IsFormatAssertion"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Format_DateTime_AcceptsATimeWithoutZone()
+        Expect.Begin
+        Helpers.Reset
+        Dim sch As String = "{""format"":""date-time""}"
+        Expect.IsTrue Accepts("2026-08-19T09:15:00", sch, FormatOptions()), "date-time of 2026-08-19T09:15:00"
+        Expect.IsTrue Accepts("2026-08-19T09:15:00+01:00", sch, FormatOptions()), "date-time of 2026-08-19T09:15:00+01:00"
+        Expect.IsFalse Accepts("2026-08-19", sch, FormatOptions()), "date-time of 2026-08-19"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Format_Approximations_AcceptWhatThePageSays()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = FormatOptions()
+        Expect.IsTrue Accepts("a@", "{""format"":""email""}", o), "email of a@"
+        Expect.IsTrue Accepts("-bad-", "{""format"":""hostname""}", o), "hostname of -bad-"
+        Expect.IsTrue Accepts("/a~2", "{""format"":""json-pointer""}", o), "json-pointer of /a~2"
+        Expect.IsTrue Accepts("x", "{""format"":""uri""}", o), "uri of x"
+        Expect.IsTrue Accepts("x", "{""format"":""ipv6""}", o), "ipv6 of x"
+        Expect.IsFalse Accepts("", "{""format"":""uri""}", o), "uri of the empty string"
+        Expect.IsTrue Accepts("anything", "{""format"":""no-such-format""}", o), "an unknown format"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Type_Integer_AcceptsANumberWithNoFractionalPart()
+        Expect.Begin
+        Helpers.Reset
+        Dim sch As String = "{""type"":""integer""}"
+        Expect.IsTrue Accepts(Json.Parse("1.0"), sch), "1.0 against type integer"
+        Expect.IsFalse Accepts(Json.Parse("1.5"), sch), "1.5 against type integer"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MultipleOf_DividesAsDecimal()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Accepts(Json.Parse("0.3"), "{""multipleOf"":0.1}"), "0.3 against multipleOf 0.1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Validate_UnusableKeyword_StopsEvaluationAndSetsTheError()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsTrue Accepts(1, "{""minimum"":""x""}"), "1 against a schema whose minimum is the string x"
+        Expect.AreEqual "WrongType", JsonError.Code, "the last error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Validate_RefOutsideTheCatalogue_IsRemoteRef()
+        Expect.Begin
+        Helpers.Reset
+        Dim r As JsonValidationResult = Json.Validate(1, Helpers.Doc("{""$ref"":""https://example.com/other""}"))
+        Expect.IsFalse r.IsValid, "the result for a $ref that no document answers"
+        Expect.AreEqual "RemoteRef", JsonError.Code, "the last error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Validate_Keywords_FollowTheDraft()
+        Expect.Begin
+        Helpers.Reset
+        Dim sch As Variant = Helpers.Doc("{""if"":{""properties"":{""kind"":{""const"":""car""}},""required"":[""kind""]},""then"":{""required"":[""wheels""]},""else"":{""required"":[""legs""]}}")
+        Expect.IsTrue Json.Validate(Helpers.Doc("{""kind"":""car"",""wheels"":4}"), sch).IsValid, "a car with wheels"
+        Expect.AreEqual "required / - Missing required property 'wheels'.", Json.Validate(Helpers.Doc("{""kind"":""car""}"), sch).ToString(), "the report for a car without wheels"
+        Expect.IsTrue Json.Validate(Helpers.Doc("{""kind"":""dog"",""legs"":4}"), sch).IsValid, "a dog with legs"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/Sources/SerializeTests.twin b/test/package-tests/tsJson/Sources/SerializeTests.twin
new file mode 100644
index 00000000..bd0462f9
--- /dev/null
+++ b/test/package-tests/tsJson/Sources/SerializeTests.twin
@@ -0,0 +1,200 @@
+' Serialize: the text it writes for strings, containers, layouts and the values that are not JSON.
+[TestFixture]
+Module SerializeTests
+
+    [TestCase]
+    Public Sub Serialize_Strings_EscapeQuoteBackslashAndControlCharacters()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual """a\""b\\c""", Helpers.Min("a""b\c"), "Serialize of a quote and a backslash"
+        Expect.AreEqual """\b\t\n\f\r""", Helpers.Min(vbBack & vbTab & vbLf & vbFormFeed & vbCr), "Serialize of the control characters that have a short form"
+        Expect.AreEqual """\u0001\u001f""", Helpers.Min(Chr$(1) & Chr$(31)), "Serialize of other control characters, in lower case hexadecimal"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_Solidus_IsWrittenAsItIsUnlessAsked()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual """a/b""", Helpers.Min("a/b"), "Serialize of a/b"
+        Dim o As JsonOptions = JsonOptions.Minified
+        o.EscapesSolidus = True
+        Expect.AreEqual """a\/b""", Json.Serialize("a/b", o), "Serialize of a/b with EscapesSolidus"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_EnsuresAscii_EscapesEveryCodeUnitAbove7F()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Minified
+        o.EnsuresAscii = True
+        Expect.AreEqual """\" & "u00e9a""", Json.Serialize(ChrW$(233) & "a", o), "Serialize of e acute and a with EnsuresAscii"
+        Expect.AreEqual """\" & "ud83d\" & "ude00""", Json.Serialize(ChrW(&HD83D) & ChrW(&HDE00), o), "Serialize of U+1F600 with EnsuresAscii"
+        Expect.AreEqual """" & ChrW(&H7F) & """", Json.Serialize(ChrW(&H7F), o), "Serialize of U+007F with EnsuresAscii"
+        Expect.AreEqual """" & ChrW(233) & """", Helpers.Min(ChrW(233)), "Serialize of e acute without EnsuresAscii"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_SortsKeys_OrdersMembersByCodeUnit()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Minified
+        o.SortsKeys = True
+        Dim doc As JsonObject = Json.Map("b", 1, "a", Json.Map("z", 1, "Y", 2), "B", 3)
+        Expect.AreEqual "{""B"":3,""a"":{""Y"":2,""z"":1},""b"":1}", Json.Serialize(doc, o), "Serialize with SortsKeys"
+        Expect.AreEqual "{""b"":1,""a"":{""z"":1,""Y"":2},""B"":3}", Helpers.Min(doc), "Serialize without SortsKeys"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_Default_IsPrettyWithFourSpacesAndLineFeeds()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonObject = Json.Map("a", 1, "b", Json.Arr(1, 2), "c", Json.Map())
+        Expect.AreEqual "{|    ""a"": 1,|    ""b"": [|        1,|        2|    ],|    ""c"": {}|}", Replace(Json.Serialize(o), vbLf, "|"), "Serialize with no options"
+        Expect.AreEqual Json.Serialize(o), Json.Serialize(o, JsonOptions.Pretty), "Serialize with no options and with Pretty"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_Newline_EndsTheLines()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Pretty
+        o.Newline = vbCrLf
+        o.Indent = 1
+        Expect.AreEqual "[|" & " 1|]", Replace(Json.Serialize(Json.Arr(1), o), vbCrLf, "|"), "Serialize with Newline vbCrLf"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_IndentZero_HasLineBreaksAndNoIndentation()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Pretty
+        o.Indent = 0
+        Expect.AreEqual "{|""a"": [|1|]|}", Replace(Json.Serialize(Json.Map("a", Json.Arr(1)), o), vbLf, "|"), "Serialize with Indent 0"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_EmptyContainers_AreWrittenAlike()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual "{}", Helpers.Min(Json.Map()), "an empty object, minified"
+        Expect.AreEqual "[]", Helpers.Min(Json.Arr()), "an empty array, minified"
+        Expect.AreEqual "{}", Json.Serialize(Json.Map()), "an empty object, pretty"
+        Expect.AreEqual "[]", Json.Serialize(Json.Arr()), "an empty array, pretty"
+        Dim none() As Variant
+        Expect.AreEqual "[]", Helpers.Min(none), "an unbound Variant array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_VariantArray_IsAJsonArray()
+        Expect.Begin
+        Helpers.Reset
+        Dim a(0 To 2) As Variant
+        a(0) = 1
+        a(1) = "x"
+        a(2) = Null
+        Expect.AreEqual "[1,""x"",null]", Helpers.Min(a), "Serialize of a Variant array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_ValuesThatAreNotJson_AreUnsupportedType()
+        Expect.Begin
+        Helpers.Reset
+        Dim s As String
+        s = Json.Serialize(Empty, JsonOptions.Minified)
+        Expect.AreEqual "UnsupportedType", JsonError.Code, "the error code of Serialize of Empty"
+        s = Json.Serialize(Nothing, JsonOptions.Minified)
+        Expect.AreEqual "UnsupportedType", JsonError.Code, "the error code of Serialize of Nothing"
+        Dim c As New Collection
+        s = Json.Serialize(c, JsonOptions.Minified)
+        Expect.AreEqual "UnsupportedType", JsonError.Code, "the error code of Serialize of a Collection"
+        Expect.AreEqual "", s, "the text Serialize returns for a Collection"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_ContainerThatContainsItself_IsCircularReference()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As JsonArray = Json.Arr(1)
+        a.Add a
+        Dim s As String = Json.Serialize(a, JsonOptions.Minified)
+        Expect.AreEqual "", s, "Serialize of an array that contains itself returns the empty string"
+        Expect.AreEqual "CircularReference", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_DepthBeyondMaxDepth_IsDepthLimitExceeded()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Minified
+        o.MaxDepth = 2
+        Expect.AreEqual "[[1]]", Json.Serialize(Json.Arr(Json.Arr(1)), o), "Serialize of two nested arrays with MaxDepth 2"
+        Expect.AreEqual "", Json.Serialize(Json.Arr(Json.Arr(Json.Arr(1))), o), "Serialize of three nested arrays with MaxDepth 2"
+        Expect.AreEqual "DepthLimitExceeded", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Serialize_LoneSurrogate_IsWrittenAndNotEncodedToUtf8()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual 3, Len(Json.Serialize(ChrW(&HD83D), Nothing)), "the length of Serialize of a lone high surrogate with Nothing as the options"
+        Dim bytes() As Byte = Json.SerializeToUtf8(ChrW(&HD83D), Nothing)
+        Expect.AreEqual "InvalidEncoding", JsonError.Code, "JsonError.Code after SerializeToUtf8"
+        Expect.AreEqual "Text cannot be encoded as UTF-8.", JsonError.Message, "JsonError.Message"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SerializeToUtf8_IncludesBom_StartsWithTheByteOrderMark()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Minified
+        o.IncludesBom = True
+        Dim bytes() As Byte = Json.SerializeToUtf8(ChrW$(233), o)
+        Expect.AreEqual 7, UBound(bytes) - LBound(bytes) + 1, "the number of bytes of a string of one character with a byte order mark"
+        Expect.AreEqual "EFBBBF", Hex$(bytes(0)) & Hex$(bytes(1)) & Hex$(bytes(2)), "the first three bytes"
+        Expect.AreEqual "C3A9", Hex$(bytes(4)) & Hex$(bytes(5)), "the bytes of e acute"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SerializeToUtf8_WithoutBom_StartsWithTheQuote()
+        Expect.Begin
+        Helpers.Reset
+        Dim bytes() As Byte = Json.SerializeToUtf8("a", JsonOptions.Minified)
+        Expect.AreEqual 3, UBound(bytes) - LBound(bytes) + 1, "the number of bytes"
+        Expect.AreEqual 34, bytes(0), "the first byte, a quote"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SerializeLines_IgnoresIndent()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As JsonOptions = JsonOptions.Pretty
+        Expect.AreEqual "{""id"":1}|", Replace(Json.SerializeLines(Json.Arr(Json.Map("id", 1)), o), vbLf, "|"), "SerializeLines with Pretty"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SerializeLines_OtherType_IsWrongType()
+        Expect.Begin
+        Helpers.Reset
+        Dim s As String = Json.SerializeLines(5)
+        Expect.AreEqual "", s, "SerializeLines of a number returns the empty string"
+        Expect.AreEqual "WrongType", JsonError.Code, "JsonError.Code"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/compile/CompileTests.twin b/test/package-tests/tsJson/compile/CompileTests.twin
new file mode 100644
index 00000000..08de2a3a
--- /dev/null
+++ b/test/package-tests/tsJson/compile/CompileTests.twin
@@ -0,0 +1,9 @@
+' tsJson: what the compiler refuses. Each line ends in a comment ' CASE <Name>: <code>.
+Module CompileTests
+
+    Public Sub Enum_QualifiedByTheClass()
+        Dim o As JsonOptions = JsonOptions.Rfc
+        o.Syntax = JsonOptions.eJsonSyntax.jsJsonc ' CASE QualifiedEnumMember: TB5027
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsJson/expect.json b/test/package-tests/tsJson/expect.json
new file mode 100644
index 00000000..5925df2e
--- /dev/null
+++ b/test/package-tests/tsJson/expect.json
@@ -0,0 +1,149 @@
+{
+  "version": "1.0.15.0",
+  "cases": {
+    "DatesTests.FormatIso8601_MillisecondsAboveHalfASecond_KeepTheSecondAndTheFraction": {
+      "fails": "3 of 4 checks failed: FormatIso8601 of 09:15:30.501: expected \"2026-08-19T09:15:30.501\", got \"2026-08-19T09:15:31\"; FormatIso8601 of 09:15:30.750: expected \"2026-08-19T09:15:30.750\", got \"2026-08-19T09:15:31\"; FormatIso8601 of 09:15:30.999: expected \"2026-08-19T09:15:30.999\", got \"2026-08-19T09:15:31\""
+    },
+    "DatesTests.Serialize_DateWithMillisecondsAboveHalfASecond_KeepsTheFraction": {
+      "fails": "1 of 1 checks failed: Serialize of 23:59:59.750: expected \"\"2026-08-19T23:59:59.750\"\", got \"\"2026-08-20T00:00:00\"\""
+    },
+    "ErrorStateTests.Serialize_TwoDimensionalArray_RaisesNoRunTimeError": {
+      "fails": "1 of 1 checks failed: the run-time error number of Serialize with a two-dimensional array (Unspecified error): expected 0, got -2147467259"
+    },
+    "ErrorStateTests.Serialize_TwoDimensionalArray_SetsTheLastError": {
+      "fails": "1 of 1 checks failed: JsonError.HasError after Serialize of a two-dimensional array: expected True, got False"
+    },
+    "ErrorStateTests.Parse_AfterARunTimeErrorInSerialize_ClearsTheLastError": {
+      "fails": "1 of 1 checks failed: JsonError.HasError after Parse of [1], which worked (the code is UnexpectedEnd): expected False, got True"
+    },
+    "ErrorStateTests.Parse_AfterARunTimeErrorInSerialize_SetsItsOwnOrigin": {
+      "fails": "1 of 1 checks failed: JsonError.Origin after Parse of {: expected \"Json.Parse\", got \"Json.Serialize\""
+    },
+    "PathTests.Filter_NotEqual_SelectsElementWithoutMember": {
+      "fails": "1 of 1 checks failed: $[?@.a != 1] on [{\"a\":1},{\"a\":2},{\"b\":3}]: expected \"[{\"a\":2},{\"b\":3}]\", got \"[{\"a\":2}]\""
+    },
+    "PathTests.Filter_EqualOfTwoMissingValues_Selects": {
+      "fails": "1 of 1 checks failed: $[?@.a == @.b] on an element that has neither a nor b: expected \"[{\"c\":1}]\", got \"[]\""
+    },
+    "PathTests.Filter_LessOrEqual_EqualBooleans_Selects": {
+      "fails": "1 of 1 checks failed: $[?@.a <= @.b] on two equal Booleans: expected \"[{\"a\":true,\"b\":true}]\", got \"[]\""
+    },
+    "PathTests.Filter_LessOrEqual_EqualNulls_Selects": {
+      "fails": "1 of 1 checks failed: $[?@.a <= @.b] on two nulls: expected \"[{\"a\":null,\"b\":null}]\", got \"[]\""
+    },
+    "PathTests.Filter_LessOrEqual_EqualArrays_Selects": {
+      "fails": "1 of 1 checks failed: $[?@.a <= @.b] on two equal arrays: expected \"[{\"a\":[1,2],\"b\":[1,2]}]\", got \"[]\""
+    },
+    "PathTests.Filter_GreaterOrEqual_EqualBooleans_Selects": {
+      "fails": "1 of 1 checks failed: $[?@.a >= @.b] on two equal Booleans: expected \"[{\"a\":false,\"b\":false}]\", got \"[]\""
+    },
+    "PathTests.CompilePath_UnknownFunction_IsAnError": {
+      "fails": "2 of 2 checks failed: CompilePath of $[?unknown(@.a)] returns Nothing: expected True, got False; the error code of an unknown function: expected \"InvalidPath\", got \"\""
+    },
+    "PathTests.CompilePath_WrongNumberOfArguments_IsAnError": {
+      "fails": "2 of 2 checks failed: CompilePath of $[?length(@.a, @.b) > 1] returns Nothing: expected True, got False; the error code of a call with two arguments to length: expected \"InvalidPath\", got \"\""
+    },
+    "PathTests.CompilePath_QueryThatSelectsManyValuesInComparison_IsAnError": {
+      "fails": "2 of 2 checks failed: CompilePath of $[?@.* == 1] returns Nothing: expected True, got False; the error code of a comparison with a query that selects many values: expected \"InvalidPath\", got \"\""
+    },
+    "PathTests.Query_UnknownFunction_SetsTheError": {
+      "fails": "1 of 1 checks failed: Query of $[?unknown(@.a)]: expected \"(error InvalidPath)\", got \"[]\""
+    },
+    "PathTests.Filter_FractionLiteral_Compiles": {
+      "fails": "1 of 1 checks failed: $[?@.price < 10.5] on prices 10 and 11: expected \"[{\"price\":10}]\", got \"(error InvalidPath)\""
+    },
+    "PathTests.Filter_ExponentLiteral_Compiles": {
+      "fails": "1 of 1 checks failed: $[?@.n == 1e3] on 1000 and 1: expected \"[{\"n\":1000}]\", got \"(error InvalidPath)\""
+    },
+    "PathTests.Filter_NegativeFractionLiteral_Compiles": {
+      "fails": "1 of 1 checks failed: $[?@ < -0.75] on -1, -0.5 and 0: expected \"[-1]\", got \"(error InvalidPath)\""
+    },
+    "PathTests.CompilePath_FilterNestedMoreThan1000Levels_IsDepthLimitExceeded": {
+      "win32": "pass",
+      "win64": {
+        "fails": "(runtime error -2147467259: NATIVE EXCEPTION: STACK_OVERFLOW)"
+      }
+    },
+    "PathTests.CompilePath_FilterNested999Levels_Compiles": {
+      "win32": "pass",
+      "win64": {
+        "fails": "(runtime error -2147467259: NATIVE EXCEPTION: STACK_OVERFLOW)"
+      }
+    },
+    "PatternTests.IsMatchPattern_LongerAlternativeSecond_Matches": {
+      "fails": "1 of 1 checks failed: IsMatchPattern(\"ab\", \"a|ab\"): expected True, got False"
+    },
+    "PatternTests.IsMatchPattern_ChoiceInGroup_TriesTheOtherAlternative": {
+      "fails": "1 of 2 checks failed: IsMatchPattern(\"Mrs Smith\", \"(Mr|Mrs) Smith\"): expected True, got False"
+    },
+    "PatternTests.IsSearchPattern_ChoiceInGroup_TriesTheOtherAlternative": {
+      "fails": "1 of 1 checks failed: IsSearchPattern(\"abc\", \"(a|ab)c\"): expected True, got False"
+    },
+    "PatternTests.Match_JsonPathFunction_TriesTheOtherAlternative": {
+      "fails": "1 of 1 checks failed: $[?match(@.v, \"a|ab\")] on the values ab, a and b: expected \"[{\"v\":\"ab\"},{\"v\":\"a\"}]\", got \"[{\"v\":\"a\"}]\""
+    },
+    "PatternTests.Search_JsonPathFunction_TriesTheOtherAlternative": {
+      "fails": "1 of 1 checks failed: $[?search(@.v, \"(a|ab)c\")] on the values abc and xyz: expected \"[{\"v\":\"abc\"}]\", got \"[]\""
+    },
+    "PatternTests.IsValidPattern_EscapeTab_IsValid": {
+      "fails": "2 of 2 checks failed: IsValidPattern(\"a\\tb\"): expected True, got False; IsMatchPattern of a, a tab and b against \"a\\tb\": expected True, got False"
+    },
+    "PatternTests.IsValidPattern_EscapeLineFeed_IsValid": {
+      "fails": "2 of 2 checks failed: IsValidPattern(\"a\\nb\"): expected True, got False; IsMatchPattern of a, a line feed and b against \"a\\nb\": expected True, got False"
+    },
+    "PatternTests.IsValidPattern_EscapeCarriageReturn_IsValid": {
+      "fails": "2 of 2 checks failed: IsValidPattern(\"a\\rb\"): expected True, got False; IsMatchPattern of a, a carriage return and b against \"a\\rb\": expected True, got False"
+    },
+    "PatternTests.IsMatchPattern_SetWithLineFeedEscape_MatchesLineFeed": {
+      "fails": "2 of 2 checks failed: IsMatchPattern of a line feed against \"[\\n]\": expected True, got False; IsMatchPattern(\"n\", \"[\\n]\"): expected False, got True"
+    },
+    "PatternTests.IsMatchPattern_SetWithTabEscape_MatchesTab": {
+      "fails": "2 of 2 checks failed: IsMatchPattern of a tab against \"[\\t]\": expected True, got False; IsMatchPattern(\"t\", \"[\\t]\"): expected False, got True"
+    },
+    "PatternTests.IsValidPattern_EscapeHyphen_IsValid": {
+      "fails": "2 of 2 checks failed: IsValidPattern(\"a\\-b\"): expected True, got False; IsMatchPattern(\"a-b\", \"a\\-b\"): expected True, got False"
+    },
+    "PatternTests.IsValidPattern_EscapeCaret_IsValid": {
+      "fails": "2 of 2 checks failed: IsValidPattern(\"a\\^b\"): expected True, got False; IsMatchPattern(\"a^b\", \"a\\^b\"): expected True, got False"
+    },
+    "PatternTests.IsValidPattern_SetEndingInHyphen_IsValid": {
+      "fails": "3 of 3 checks failed: IsValidPattern(\"[a-]\"): expected True, got False; IsMatchPattern(\"-\", \"[a-]\"): expected True, got False; IsMatchPattern(\"a\", \"[a-]\"): expected True, got False"
+    },
+    "PointerTests.PointerGet_EmptyTokenAfterToken_NamesTheEmptyKey": {
+      "fails": "1 of 1 checks failed: PointerGet of /a/ in {\"a\":{\"a\":1,\"\":2}}: expected 2, got 1"
+    },
+    "PointerTests.PointerSet_EmptyTokenAfterToken_ChangesTheEmptyKey": {
+      "fails": "1 of 1 checks failed: PointerSet of /a/ to 9: expected \"{\"a\":{\"a\":1,\"\":9}}\", got \"{\"a\":{\"a\":9,\"\":2}}\""
+    },
+    "PointerTests.PointerRemove_EmptyTokenAfterToken_RemovesTheEmptyKey": {
+      "fails": "1 of 1 checks failed: PointerRemove of /a/: expected \"{\"a\":{\"a\":1}}\", got \"{\"a\":{\"\":2}}\""
+    },
+    "PointerTests.PointerExists_EmptyTokenAfterToken_IsFalseWhereTheKeyIsMissing": {
+      "fails": "1 of 1 checks failed: PointerExists of /a/ in {\"a\":{\"a\":1}}, which has no empty key: expected False, got True"
+    },
+    "PointerTests.Patch_ReplaceAtEmptyTokenAfterToken_ChangesTheEmptyKey": {
+      "fails": "1 of 1 checks failed: Patch with a replace at /a/: expected \"{\"a\":{\"a\":1,\"\":9}}\", got \"{\"a\":{\"a\":9,\"\":2}}\""
+    },
+    "PointerTests.QueryHits_EmptyKey_PointerReadsTheSameValue": {
+      "fails": "1 of 3 checks failed: PointerGet with the pointer of the hit: expected 2, got 1"
+    },
+    "RunnerTests.SetContinueOnFail_False_StopsAtTheFirstFailedCheck": {
+      "fails": "1 of 1 checks failed: the failed checks counted after two failing checks with SetContinueOnFail False: expected 1, got 2"
+    },
+    "SchemaTests.Format_Ipv4_AcceptsValidAddresses": {
+      "fails": "4 of 5 checks failed: ipv4 of 1.2.3.4: expected True, got False; ipv4 of 10.0.0.1: expected True, got False; ipv4 of 192.168.1.1: expected True, got False; ipv4 of 255.255.255.255: expected True, got False"
+    },
+    "SchemaTests.Pattern_Anchored_AcceptsAStringThatMatchesWhole": {
+      "fails": "1 of 1 checks failed: the string abc against the pattern ^[a-z]+$: expected True, got False"
+    },
+    "SchemaTests.Pattern_Anchored_RejectsAStringThatDoesNotMatchWhole": {
+      "fails": "1 of 2 checks failed: the string ^abc$ against the pattern ^[a-z]+$: expected False, got True"
+    },
+    "SchemaTests.Pattern_ChoiceInGroup_TriesTheOtherAlternative": {
+      "fails": "1 of 1 checks failed: the string abc against the pattern (a|ab)c: expected True, got False"
+    },
+    "SchemaTests.PatternProperties_ChoiceInGroup_TriesTheOtherAlternative": {
+      "fails": "1 of 1 checks failed: the property abc against patternProperties (a|ab)c: expected True, got False"
+    }
+  }
+}
diff --git a/test/package-tests/tsPwGen/Sources/ConsecutiveRepeatTests.twin b/test/package-tests/tsPwGen/Sources/ConsecutiveRepeatTests.twin
new file mode 100644
index 00000000..f316a790
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/ConsecutiveRepeatTests.twin
@@ -0,0 +1,124 @@
+' tsPwGen: HasNoConsecutiveRepeats. A result has no two equal characters next to each other. When
+' valid passwords exist for the pool, Generate returns one of them; a call must not fail because a
+' draw happened to be impossible to arrange.
+[TestFixture]
+Module ConsecutiveRepeatTests
+
+    ' The number of results out of Calls that are empty, and the number that have a repeat.
+    Private Function Failures(ByVal Options As PwGenOptions, ByVal Calls As Long, ByRef Repeats As Long) As Long
+        Dim i As Long
+        Dim n As Long
+        Repeats = 0
+        For i = 1 To Calls
+            Dim pw As String = PwGen.Generate(Options)
+            If Len(pw) = 0 Then
+                n = n + 1
+            ElseIf Helpers.HasRepeat(pw) Then
+                Repeats = Repeats + 1
+            End If
+        Next
+        Return n
+    End Function
+
+    [TestCase]
+    Public Sub DefaultPool_NoTwoEqualCharactersAreNeighbours()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.HasNoConsecutiveRepeats = True
+        Dim repeats As Long
+        Dim blanks As Long = Failures(o, Helpers.Draws, repeats)
+        Expect.AreEqual 0, blanks,"results of the default pool out of " & Helpers.Draws & " that are empty"
+        Expect.AreEqual 0, repeats, "results of the default pool out of " & Helpers.Draws & " that have two equal neighbours"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SmallPool_ResultsHaveNoRepeats()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "AB"
+        o.Length = 3
+        o.HasNoConsecutiveRepeats = True
+        Dim repeats As Long
+        Failures o, Helpers.Draws, repeats
+        Expect.AreEqual 0, repeats, "non-empty results of the pool AB with Length 3 out of " & Helpers.Draws & " that have two equal neighbours"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SmallPool_LengthThree_AlwaysGeneratesWhenAPasswordExists()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "AB"
+        o.Length = 3
+        o.HasNoConsecutiveRepeats = True
+        Dim repeats As Long
+        Expect.IsTrue Failures(o, 400, repeats) = 0, "no call of 400 returns an empty string for the pool AB, Length 3 and HasNoConsecutiveRepeats, which has the valid passwords ABA and BAB"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SmallPool_LengthFour_AlwaysGeneratesWhenAPasswordExists()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "AB"
+        o.Length = 4
+        o.HasNoConsecutiveRepeats = True
+        Dim repeats As Long
+        Expect.IsTrue Failures(o, 400, repeats) = 0, "no call of 400 returns an empty string for the pool AB, Length 4 and HasNoConsecutiveRepeats, which has the valid passwords ABAB and BABA"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SmallPool_WithStartsWithLetter_AlwaysGeneratesWhenAPasswordExists()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "AB"
+        o.Length = 3
+        o.StartsWithLetter = True
+        o.HasNoConsecutiveRepeats = True
+        Dim repeats As Long
+        Expect.IsTrue Failures(o, 400, repeats) = 0, "no call of 400 returns an empty string for the pool AB, Length 3, StartsWithLetter and HasNoConsecutiveRepeats"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FixedSource_DrawsThatCannotBeArranged_CannotAvoidRepeats()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "AB"
+        o.Length = 3
+        o.HasNoConsecutiveRepeats = True
+        Set o.RandomSource = New LowestRandom
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with a source that always draws the first character, so that the draw is AAA"
+        Helpers.ExpectError "the draw AAA", "CannotAvoidRepeats", "could not place characters without consecutive repeats.", "PwGen.Generate"
+        Expect.IsTrue PwGen.Entropy(o) > 0, "Entropy of the recipe whose draw cannot be arranged"
+        Helpers.ExpectNoError "Entropy of the recipe whose draw cannot be arranged"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OneCharacterPool_CannotAvoidRepeats()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "A"
+        o.Length = 4
+        o.HasNoConsecutiveRepeats = True
+        Expect.AreEqual "", PwGen.Generate(o), "Generate of the pool A with Length 4 and HasNoConsecutiveRepeats"
+        Helpers.ExpectError "one-character pool", "CannotAvoidRepeats", "HasNoConsecutiveRepeats needs at least two distinct characters.", "PwGen.Generate"
+        Expect.AreEqual 0#, PwGen.Entropy(o), "Entropy of the pool A with Length 4 and HasNoConsecutiveRepeats"
+        Helpers.ExpectError "Entropy of a one-character pool", "CannotAvoidRepeats", "HasNoConsecutiveRepeats needs at least two distinct characters.", "PwGen.Entropy"
+        o.Length = 1
+        Expect.AreEqual "A", PwGen.Generate(o), "Generate of the pool A with Length 1 and HasNoConsecutiveRepeats"
+        Helpers.ExpectNoError "Length 1 from a one-character pool"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/CryptoSourceTests.twin b/test/package-tests/tsPwGen/Sources/CryptoSourceTests.twin
new file mode 100644
index 00000000..cc6a3bef
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/CryptoSourceTests.twin
@@ -0,0 +1,131 @@
+' tsPwGen: PwGenCryptoSource, the default random source. Its NextInRange is Private and is called
+' through a PwGenRandom variable. It returns a number from the interval with every number equally
+' likely, reports InvalidRange for reversed bounds and returns 0 without raising an error.
+[TestFixture]
+Module CryptoSourceTests
+
+    [TestCase]
+    Public Sub NextInRange_ReturnsANumberOfTheInterval()
+        Expect.Begin
+        Helpers.Reset
+        Dim src As PwGenRandom = New PwGenCryptoSource
+        Dim i As Long
+        Dim bad As Long
+        Dim seen As String
+        For i = 1 To 600
+            Dim n As Long = src.NextInRange(1, 6)
+            If n < 1 Or n > 6 Then bad = bad + 1
+            If InStr(seen, CStr(n)) = 0 Then seen = seen & n
+        Next
+        Expect.AreEqual 0, bad, "numbers out of 600 outside 1 to 6"
+        Expect.AreEqual 6, Len(seen), "different numbers of 1 to 6 seen in 600 draws"
+        Helpers.ExpectNoError "NextInRange(1, 6)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextInRange_EqualBounds_ReturnsThatNumber()
+        Expect.Begin
+        Helpers.Reset
+        Dim src As PwGenRandom = New PwGenCryptoSource
+        Expect.AreEqual 3, src.NextInRange(3, 3), "NextInRange(3, 3)"
+        Expect.AreEqual -7, src.NextInRange(-7, -7), "NextInRange(-7, -7)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextInRange_NegativeAndLargeBounds_StayInTheInterval()
+        Expect.Begin
+        Helpers.Reset
+        Dim src As PwGenRandom = New PwGenCryptoSource
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To 200
+            Dim a As Long = src.NextInRange(-5, 5)
+            If a < -5 Or a > 5 Then bad = bad + 1
+            Dim wide As Long = src.NextInRange(-2147483647 - 1, 2147483647)
+            Dim c As Long = src.NextInRange(2147483000, 2147483647)
+            If c < 2147483000 Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "numbers outside the interval, out of 200 draws from each of -5 to 5 and 2147483000 to 2147483647"
+        Helpers.ExpectNoError "NextInRange with negative and large bounds"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextInRange_ReversedBounds_InvalidRange()
+        Expect.Begin
+        Helpers.Reset
+        Dim src As PwGenRandom = New PwGenCryptoSource
+        Expect.AreEqual 0, src.NextInRange(5, 1), "NextInRange(5, 1)"
+        Helpers.ExpectError "NextInRange(5, 1)", "InvalidRange", "lowerBound is greater than upperBound.", ""
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextInRange_ReversedBounds_RaisesNoRunTimeError()
+        Expect.Begin
+        Helpers.Reset
+        Dim src As PwGenRandom = New PwGenCryptoSource
+        On Error Resume Next
+        src.NextInRange 5, 1
+        Expect.AreEqual 0, Err.Number, "run-time error of NextInRange(5, 1)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextInRange_AfterAnEarlierFailure_StillReturnsANumberOfTheInterval()
+        Expect.Begin
+        Helpers.Reset
+        Dim src As PwGenRandom = New PwGenCryptoSource
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Length = 0
+        PwGen.Generate o
+        Expect.AreEqual "InvalidLength", PwGenError.Code, "the last error before the call"
+        Dim n As Long = src.NextInRange(1, 6)
+        Expect.IsTrue n >= 1 And n <= 6, "NextInRange(1, 6) after PwGen.Generate failed with InvalidLength returns a number from 1 to 6, got " & n
+        Expect.AreEqual "InvalidLength", PwGenError.Code, "the last error after the call"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextInRange_AfterClear_ReturnsANumberOfTheInterval()
+        Expect.Begin
+        Helpers.Reset
+        Dim src As PwGenRandom = New PwGenCryptoSource
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Length = 0
+        PwGen.Generate o
+        PwGenError.Clear
+        Dim n As Long = src.NextInRange(1, 6)
+        Expect.IsTrue n >= 1 And n <= 6, "NextInRange(1, 6) after PwGenError.Clear returns a number from 1 to 6, got " & n
+        Helpers.ExpectNoError "NextInRange after Clear"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PwGenFunctions_AreNotAffectedByAnEarlierFailure()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Length = 0
+        PwGen.Generate o
+        Dim pw As String = PwGen.Generate()
+        Expect.AreEqual 16, Len(pw), "Len of a Generate that follows a failed Generate"
+        Helpers.ExpectNoError "Generate after a failed Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewPwGenCryptoSource_CanBeCreatedWithNew()
+        Expect.Begin
+        Helpers.Reset
+        Dim src As PwGenRandom = New PwGenCryptoSource
+        Expect.IsFalse src Is Nothing, "a PwGenCryptoSource created with New"
+        Dim o As PwGenOptions = PwGenOptions.Hex
+        Set o.RandomSource = src
+        Expect.AreEqual 32, Len(PwGen.Generate(o)), "Len of a Hex result drawn with an explicit PwGenCryptoSource"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/EntropyTests.twin b/test/package-tests/tsPwGen/Sources/EntropyTests.twin
new file mode 100644
index 00000000..9afb1199
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/EntropyTests.twin
@@ -0,0 +1,187 @@
+' tsPwGen: PwGen.Entropy. The figure is computed from the recipe's settings alone, in random mode
+' as Length * log2(pool size), in wordlist mode as WordCount * log2(list size), or the sum of
+' log2(n - i) when the words must be different.
+[TestFixture]
+Module EntropyTests
+
+    [TestCase]
+    Public Sub Random_LengthTimesLogTwoOfThePool()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "abcdefgh"
+        o.Length = 10
+        Helpers.ExpectNear 30, PwGen.Entropy(o), "Entropy of 10 characters from a pool of 8"
+        o.Alphabet = "ab"
+        o.Length = 40
+        Helpers.ExpectNear 40, PwGen.Entropy(o), "Entropy of 40 characters from a pool of 2"
+        o.Alphabet = "x"
+        o.Length = 1
+        Helpers.ExpectNear 0, PwGen.Entropy(o), "Entropy of 1 character from a pool of 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Random_RepeatedCharactersOfTheAlphabetCountOnce()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "aabbcc"
+        o.Length = 10
+        Helpers.ExpectNear 10 * Log(3) / Log(2), PwGen.Entropy(o), "Entropy of 10 characters from the Alphabet aabbcc"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Random_RepeatedCharactersOfSpecialCharsAndIncludeCharsCountOnce()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.HasUpperCase = False
+        o.HasLowerCase = False
+        o.HasDigits = False
+        o.HasSpecialChars = True
+        o.SpecialChars = "!!##"
+        o.IncludeChars = "#?"
+        o.MinPerClass = 0
+        o.Length = 1
+        Helpers.ExpectNear Log(3) / Log(2), PwGen.Entropy(o), "Entropy of the pool from SpecialChars !!## and IncludeChars #?"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Random_RemovedCharactersDoNotCount()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        Helpers.ExpectNear 16 * Log(57) / Log(2), PwGen.Entropy(o), "Entropy of Alphanumeric (62 characters less the five look-alikes)"
+        o.IsAmbiguousExcluded = False
+        Helpers.ExpectNear 16 * Log(62) / Log(2), PwGen.Entropy(o), "Entropy of Alphanumeric with IsAmbiguousExcluded False"
+        o.ExcludeChars = "abc"
+        Helpers.ExpectNear 16 * Log(59) / Log(2), PwGen.Entropy(o), "Entropy of Alphanumeric with IsAmbiguousExcluded False and ExcludeChars abc"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Random_ConstraintsDoNotLowerTheFigure()
+        Expect.Begin
+        Helpers.Reset
+        Dim plain As PwGenOptions = PwGenOptions.Alphanumeric
+        plain.MinPerClass = 0
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.MinPerClass = 4
+        o.StartsWithLetter = True
+        o.HasNoConsecutiveRepeats = True
+        Helpers.ExpectNear PwGen.Entropy(plain), PwGen.Entropy(o), "Entropy with MinPerClass 4, StartsWithLetter and HasNoConsecutiveRepeats against the same recipe without them"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Wordlist_WordCountTimesLogTwoOfTheListSize()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        o.WordCount = 4
+        Helpers.ExpectNear 52, PwGen.Entropy(o), "Entropy of 4 words from the English list of 8192"
+        o.Wordlist = pgwGerman
+        Helpers.ExpectNear 52, PwGen.Entropy(o), "Entropy of 4 words from the German list of 8192"
+        o.CustomWords = Helpers.WordList(16)
+        o.WordCount = 3
+        Helpers.ExpectNear 12, PwGen.Entropy(o), "Entropy of 3 words from a custom list of 16"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Wordlist_UniqueWords_SumOfLogTwoOfTheWordsLeft()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        o.CustomWords = Helpers.WordList(8)
+        o.WordCount = 3
+        o.HasUniqueWords = True
+        Dim three As Double = (Log(8) + Log(7) + Log(6)) / Log(2)
+        Helpers.ExpectNear three, PwGen.Entropy(o), "Entropy of 3 different words from a custom list of 8"
+        o.WordCount = 8
+        Dim bits As Double
+        Dim i As Long
+        For i = 0 To 7
+            bits = bits + Log(8 - i) / Log(2)
+        Next
+        Helpers.ExpectNear bits, PwGen.Entropy(o), "Entropy of 8 different words from a custom list of 8"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Wordlist_SeparatorAndCapitalizeAddNothing()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As PwGenOptions = PwGenOptions.Passphrase
+        Dim b As PwGenOptions = PwGenOptions.Passphrase
+        b.WordSeparator = ""
+        b.Capitalize = True
+        Helpers.ExpectNear PwGen.Entropy(a), PwGen.Entropy(b), "Entropy with an empty separator and Capitalize against the default passphrase"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Entropy_InvalidRecipe_ReturnsZeroAndSetsTheError()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Length = 0
+        Expect.AreEqual 0#, PwGen.Entropy(o), "Entropy of a recipe with Length 0"
+        Helpers.ExpectError "Entropy with Length 0", "InvalidLength", "Length must be between 1 and 4096.", "PwGen.Entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Entropy_ClearsTheLastErrorWhenItStarts()
+        Expect.Begin
+        Helpers.Reset
+        Dim bad As PwGenOptions = PwGenOptions.Alphanumeric
+        bad.Length = 0
+        PwGen.Entropy bad
+        Expect.IsTrue PwGenError.HasError, "HasError after a failed Entropy"
+        PwGen.Entropy
+        Helpers.ExpectNoError "after a successful Entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Entropy_DoesNotChangeTheRecipe()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.Length = 22
+        o.ExcludeChars = "xyz"
+        PwGen.Entropy o
+        Expect.AreEqual 22, o.Length, "Length after Entropy"
+        Expect.AreEqual "xyz", o.ExcludeChars, "ExcludeChars after Entropy"
+        Expect.IsTrue o.HasSpecialChars, "HasSpecialChars after Entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Entropy_DoesNotFindTheErrorsThatArisePerDraw()
+        Expect.Begin
+        Helpers.Reset
+        ' RngFailed: a source that returns a number outside the interval.
+        Dim a As PwGenOptions = PwGenOptions.Alphanumeric
+        Set a.RandomSource = New OutOfRangeRandom
+        Expect.IsTrue PwGen.Entropy(a) > 0, "Entropy of a recipe whose source returns numbers outside the interval"
+        Helpers.ExpectNoError "Entropy with an out-of-range source"
+        ' LengthTooShort, the second message: the first letter comes from IncludeChars and counts for no class.
+        Dim b As PwGenOptions = PwGenOptions.Alphanumeric
+        b.HasUpperCase = False
+        b.HasLowerCase = False
+        b.IncludeChars = "a"
+        b.StartsWithLetter = True
+        b.Length = 1
+        Expect.IsTrue PwGen.Entropy(b) > 0, "Entropy of a digits-only recipe with IncludeChars a, StartsWithLetter and Length 1"
+        Helpers.ExpectNoError "Entropy with StartsWithLetter and a letter only from IncludeChars"
+        Expect.AreEqual "", PwGen.Generate(b), "Generate with StartsWithLetter and a letter only from IncludeChars"
+        Helpers.ExpectError "Generate with StartsWithLetter and a letter only from IncludeChars", "LengthTooShort", "Length is too small for MinPerClass and StartsWithLetter.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/ErrorTests.twin b/test/package-tests/tsPwGen/Sources/ErrorTests.twin
new file mode 100644
index 00000000..0a4daed7
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/ErrorTests.twin
@@ -0,0 +1,215 @@
+' tsPwGen: PwGenError, the last error of the package, and TryGenerate. A recipe that cannot be used
+' raises no run-time error: the function returns an empty string or 0 and sets the last error. The
+' error codes themselves are checked beside the recipe property that causes each (RandomModeTests,
+' WordlistTests, RandomSourceTests, ConsecutiveRepeatTests).
+[TestFixture]
+Module ErrorTests
+
+    ' A recipe that Generate refuses with InvalidLength.
+    Private Function Refused() As PwGenOptions
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Length = 0
+        Return o
+    End Function
+
+    [TestCase]
+    Public Sub Members_AfterAFailedGenerate()
+        Expect.Begin
+        Helpers.Reset
+        Dim pw As String = PwGen.Generate(Refused())
+        Expect.AreEqual "", pw, "Generate with Length 0"
+        Expect.IsTrue PwGenError.HasError, "PwGenError.HasError"
+        Expect.AreEqual "InvalidLength", PwGenError.Code, "PwGenError.Code"
+        Expect.AreEqual "Length must be between 1 and 4096.", PwGenError.Message, "PwGenError.Message"
+        Expect.AreEqual "PwGen.Generate", PwGenError.Origin, "PwGenError.Origin"
+        Expect.AreEqual "PwGen.Generate: InvalidLength - Length must be between 1 and 4096.", PwGenError.ToString(), "PwGenError.ToString"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Members_WhenThereIsNoError_AreEmpty()
+        Expect.Begin
+        Helpers.Reset
+        Expect.IsFalse PwGenError.HasError, "PwGenError.HasError with no error"
+        Expect.AreEqual "", PwGenError.Code, "PwGenError.Code with no error"
+        Expect.AreEqual "", PwGenError.Message, "PwGenError.Message with no error"
+        Expect.AreEqual "", PwGenError.Origin, "PwGenError.Origin with no error"
+        Expect.AreEqual "", PwGenError.ToString(), "PwGenError.ToString with no error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FailedFunctions_RaiseNoRunTimeError()
+        Expect.Begin
+        Helpers.Reset
+        On Error Resume Next
+        PwGen.Generate Refused()
+        Expect.AreEqual 0, Err.Number, "run-time error of Generate with Length 0"
+        PwGen.Entropy Refused()
+        Expect.AreEqual 0, Err.Number, "run-time error of Entropy with Length 0"
+        Dim pw As String
+        PwGen.TryGenerate pw, Refused()
+        Expect.AreEqual 0, Err.Number, "run-time error of TryGenerate with Length 0"
+        PwGen.BuiltInWord pgwEnglish, -1
+        Expect.AreEqual 0, Err.Number, "run-time error of BuiltInWord with index -1"
+        PwGen.BuiltInWordCount 99
+        Expect.AreEqual 0, Err.Number, "run-time error of BuiltInWordCount(99)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub EveryFunction_ClearsTheLastErrorWhenItStarts()
+        Expect.Begin
+        Helpers.Reset
+        PwGen.Generate Refused()
+        PwGen.Generate
+        Helpers.ExpectNoError "Generate after a failed Generate"
+        PwGen.Generate Refused()
+        PwGen.Entropy
+        Helpers.ExpectNoError "Entropy after a failed Generate"
+        PwGen.Generate Refused()
+        Dim pw As String
+        Expect.IsTrue PwGen.TryGenerate(pw), "TryGenerate after a failed Generate"
+        Helpers.ExpectNoError "TryGenerate after a failed Generate"
+        PwGen.Generate Refused()
+        PwGen.BuiltInWordCount pgwEnglish
+        Helpers.ExpectNoError "BuiltInWordCount after a failed Generate"
+        PwGen.Generate Refused()
+        PwGen.BuiltInWord pgwEnglish, 0
+        Helpers.ExpectNoError "BuiltInWord after a failed Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clear_EmptiesTheLastError()
+        Expect.Begin
+        Helpers.Reset
+        PwGen.Generate Refused()
+        PwGenError.Clear
+        Expect.IsFalse PwGenError.HasError, "HasError after Clear"
+        Expect.AreEqual "", PwGenError.Code, "Code after Clear"
+        Expect.AreEqual "", PwGenError.Message, "Message after Clear"
+        Expect.AreEqual "", PwGenError.Origin, "Origin after Clear"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Snapshot_KeepsTheErrorOfTheTimeOfTheCall()
+        Expect.Begin
+        Helpers.Reset
+        PwGen.Generate Refused()
+        Dim snap As PwGenError.tPwGenError = PwGenError.Snapshot()
+        PwGen.Generate
+        Expect.IsFalse PwGenError.HasError, "HasError after a successful Generate"
+        Expect.IsTrue snap.HasError, "snap.HasError"
+        Expect.AreEqual "InvalidLength", snap.Code, "snap.Code"
+        Expect.AreEqual "Length must be between 1 and 4096.", snap.Message, "snap.Message"
+        Expect.AreEqual "PwGen.Generate", snap.Origin, "snap.Origin"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Snapshot_WithNoError_IsEmpty()
+        Expect.Begin
+        Helpers.Reset
+        Dim snap As PwGenError.tPwGenError = PwGenError.Snapshot()
+        Expect.IsFalse snap.HasError, "snap.HasError with no error"
+        Expect.AreEqual "", snap.Code, "snap.Code with no error"
+        Expect.AreEqual "", snap.Message, "snap.Message with no error"
+        Expect.AreEqual "", snap.Origin, "snap.Origin with no error"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NewPwGenError_ReportsTheSameError()
+        Expect.Begin
+        Helpers.Reset
+        PwGen.Generate Refused()
+        Dim e As New PwGenError
+        Expect.IsTrue e.HasError, "HasError of an object created with New"
+        Expect.AreEqual "InvalidLength", e.Code, "Code of an object created with New"
+        e.Clear
+        Expect.IsFalse PwGenError.HasError, "HasError of the predeclared object after Clear on an object created with New"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TryGenerate_Success_ReturnsTrueAndThePassword()
+        Expect.Begin
+        Helpers.Reset
+        Dim pw As String
+        Dim o As PwGenOptions = PwGenOptions.Pin
+        Expect.IsTrue PwGen.TryGenerate(pw, o), "TryGenerate of Pin"
+        Expect.AreEqual 6, Len(pw), "Len of the PIN"
+        Expect.IsTrue Helpers.AllFrom(pw, Helpers.DigitChars), "characters of the PIN"
+        Helpers.ExpectNoError "TryGenerate of Pin"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TryGenerate_Failure_ReturnsFalseAndAnEmptyString()
+        Expect.Begin
+        Helpers.Reset
+        Dim pw As String = "left over"
+        Expect.IsFalse PwGen.TryGenerate(pw, Refused()), "TryGenerate with Length 0"
+        Expect.AreEqual "", pw, "the password variable after a failed TryGenerate"
+        Helpers.ExpectError "TryGenerate with Length 0", "InvalidLength", "Length must be between 1 and 4096.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UnusedCodes_NoRecipeSetsEmptyCharsetOrEmptyWordlist()
+        Expect.Begin
+        Helpers.Reset
+        Dim seen As String
+        Dim recipes As New Collection
+        Dim o As PwGenOptions
+        ' Random mode: everything that could empty the pool.
+        Set o = PwGenOptions.Alphanumeric
+        o.Alphabet = " "
+        recipes.Add o
+        Set o = PwGenOptions.Alphanumeric
+        o.ExcludeChars = Helpers.UpperChars & Helpers.LowerChars & Helpers.DigitChars
+        recipes.Add o
+        Set o = PwGenOptions.Alphanumeric
+        o.HasUpperCase = False
+        o.HasLowerCase = False
+        o.HasDigits = False
+        o.IncludeChars = "abc"
+        o.ExcludeChars = "abc"
+        recipes.Add o
+        Set o = PwGenOptions.Alphanumeric
+        o.HasUpperCase = False
+        o.HasLowerCase = False
+        o.HasDigits = False
+        o.HasSpecialChars = True
+        o.SpecialChars = ""
+        recipes.Add o
+        ' Wordlist mode: everything that could empty the list.
+        Set o = PwGenOptions.Passphrase
+        Dim none() As String
+        o.CustomWords = none
+        recipes.Add o
+        Set o = PwGenOptions.Passphrase
+        o.Wordlist = 7
+        recipes.Add o
+        Set o = PwGenOptions.Passphrase
+        Dim one(0 To 0) As String
+        one(0) = ""
+        o.CustomWords = one
+        recipes.Add o
+        Dim i As Long
+        Dim r As PwGenOptions
+        For i = 1 To recipes.Count
+            Set r = recipes.Item(i)
+            PwGen.Generate r
+            seen = seen & PwGenError.Code & ";"
+            PwGen.Entropy r
+            seen = seen & PwGenError.Code & ";"
+        Next
+        Expect.IsFalse InStr(seen, "EmptyCharset") > 0, "the code EmptyCharset set by one of " & recipes.Count & " recipes that could empty the pool"
+        Expect.IsFalse InStr(seen, "EmptyWordlist") > 0, "the code EmptyWordlist set by one of " & recipes.Count & " recipes that could empty the list"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/FactoryTests.twin b/test/package-tests/tsPwGen/Sources/FactoryTests.twin
new file mode 100644
index 00000000..3fa9007b
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/FactoryTests.twin
@@ -0,0 +1,152 @@
+' tsPwGen: PwGenOptions as a factory. The predeclared object creates recipes and cannot be assigned
+' to; a recipe copies with Clone; a property checks nothing when it is set.
+[TestFixture]
+Module FactoryTests
+
+    [TestCase]
+    Public Sub PredeclaredObject_AssigningAProperty_Raises5()
+        Expect.Begin
+        Helpers.Reset
+        On Error Resume Next
+        PwGenOptions.Length = 20
+        Expect.AreEqual 5, Err.Number, "Err.Number of PwGenOptions.Length = 20"
+        Expect.AreEqual "PwGenOptions", Err.Source, "Err.Source of PwGenOptions.Length = 20"
+        Expect.AreEqual "PwGenOptions (default instance) is a factory. Use Alphanumeric, Complex, Passphrase, Pin, or Hex.", Err.Description, "Err.Description of PwGenOptions.Length = 20"
+        Err.Clear
+        PwGenOptions.HasDigits = True
+        Expect.AreEqual 5, Err.Number, "Err.Number of PwGenOptions.HasDigits = True"
+        Err.Clear
+        PwGenOptions.Mode = pgmWordlist
+        Expect.AreEqual 5, Err.Number, "Err.Number of PwGenOptions.Mode = pgmWordlist"
+        Err.Clear
+        Set PwGenOptions.RandomSource = New LowestRandom
+        Expect.AreEqual 5, Err.Number, "Err.Number of Set PwGenOptions.RandomSource"
+        Err.Clear
+        Dim words() As String = Helpers.WordList(2)
+        PwGenOptions.CustomWords = words
+        Expect.AreEqual 5, Err.Number, "Err.Number of PwGenOptions.CustomWords = words"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PredeclaredObject_ReadingAProperty_ReturnsTheEmptyValueOfTheType()
+        Expect.Begin
+        Helpers.Reset
+        On Error Resume Next
+        Expect.AreEqual 0, PwGenOptions.Length, "PwGenOptions.Length"
+        Expect.IsFalse PwGenOptions.HasUpperCase, "PwGenOptions.HasUpperCase"
+        Expect.AreEqual "", PwGenOptions.WordSeparator, "PwGenOptions.WordSeparator"
+        Expect.AreEqual 0, Err.Number, "run-time error number of reading the properties of the predeclared object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_CreatesARecipeWithEveryPropertyEmpty()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = New PwGenOptions
+        Expect.AreEqual 0, o.Length, "Length of a recipe created with New"
+        Expect.AreEqual 0, CLng(o.Mode), "Mode of a recipe created with New (pgmRandom)"
+        Expect.AreEqual 0, o.MinPerClass, "MinPerClass of a recipe created with New"
+        Expect.IsFalse o.HasUpperCase Or o.HasLowerCase Or o.HasDigits Or o.HasSpecialChars, "a class enabled in a recipe created with New"
+        Expect.AreEqual "", o.SpecialChars, "SpecialChars of a recipe created with New"
+        Expect.IsTrue o.RandomSource Is Nothing, "RandomSource of a recipe created with New"
+        Expect.AreEqual "", PwGen.Generate(o), "Generate of a recipe created with New"
+        Helpers.ExpectError "a recipe created with New", "InvalidLength", "Length must be between 1 and 4096.", "PwGen.Generate"
+        o.Length = 6
+        o.HasDigits = True
+        Expect.AreEqual 6, Len(PwGen.Generate(o)), "Len of a result once Length and HasDigits are set on a recipe created with New"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_CopiesEveryProperty()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As PwGenOptions = PwGenOptions.Complex
+        a.Length = 21
+        a.IncludeChars = "xy"
+        a.ExcludeChars = "ab"
+        a.AmbiguousChars = "Z"
+        a.IsAmbiguousExcluded = False
+        a.Alphabet = "pqr"
+        a.MinPerClass = 2
+        a.HasNoConsecutiveRepeats = True
+        a.StartsWithLetter = True
+        a.WordCount = 7
+        a.WordSeparator = "+"
+        a.Wordlist = pgwGerman
+        a.HasUniqueWords = True
+        a.Capitalize = True
+        a.SpecialChars = "?!"
+        Dim b As PwGenOptions = a.Clone()
+        Expect.AreEqual 21, b.Length, "Length of the Clone"
+        Expect.AreEqual "xy", b.IncludeChars, "IncludeChars of the Clone"
+        Expect.AreEqual "ab", b.ExcludeChars, "ExcludeChars of the Clone"
+        Expect.AreEqual "Z", b.AmbiguousChars, "AmbiguousChars of the Clone"
+        Expect.IsFalse b.IsAmbiguousExcluded, "IsAmbiguousExcluded of the Clone"
+        Expect.AreEqual "pqr", b.Alphabet, "Alphabet of the Clone"
+        Expect.AreEqual 2, b.MinPerClass, "MinPerClass of the Clone"
+        Expect.IsTrue b.HasNoConsecutiveRepeats, "HasNoConsecutiveRepeats of the Clone"
+        Expect.IsTrue b.StartsWithLetter, "StartsWithLetter of the Clone"
+        Expect.AreEqual 7, b.WordCount, "WordCount of the Clone"
+        Expect.AreEqual "+", b.WordSeparator, "WordSeparator of the Clone"
+        Expect.AreEqual 1, CLng(b.Wordlist), "Wordlist of the Clone (pgwGerman)"
+        Expect.IsTrue b.HasUniqueWords, "HasUniqueWords of the Clone"
+        Expect.IsTrue b.Capitalize, "Capitalize of the Clone"
+        Expect.AreEqual "?!", b.SpecialChars, "SpecialChars of the Clone"
+        Expect.IsTrue b.HasSpecialChars And b.HasUpperCase And b.HasLowerCase And b.HasDigits, "the classes of the Clone"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_IsIndependentOfTheOriginal()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As PwGenOptions = PwGenOptions.Alphanumeric
+        a.Length = 20
+        a.CustomWords = Helpers.WordList(3)
+        Dim b As PwGenOptions = a.Clone()
+        b.Length = 8
+        Expect.AreEqual 20, a.Length, "Length of the original after the Clone's was changed"
+        Expect.AreEqual 8, b.Length, "Length of the Clone"
+        Dim words() As String = Helpers.WordList(3)
+        words(0) = "other"
+        b.CustomWords = words
+        Dim back() As String = a.CustomWords
+        Expect.AreEqual "w1", back(0), "first custom word of the original after the Clone's list was replaced"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Setters_CheckNothingWhenAValueIsSet()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        On Error Resume Next
+        o.Length = 0
+        o.WordCount = 999
+        o.MinPerClass = -3
+        Expect.AreEqual 0, Err.Number, "run-time error number of setting values that cannot be used"
+        On Error GoTo 0
+        Helpers.ExpectNoError "setting values that cannot be used"
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with Length 0"
+        Helpers.ExpectError "Length 0", "InvalidLength", "Length must be between 1 and 4096.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Generate_DoesNotChangeTheRecipe()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.Length = 12
+        o.StartsWithLetter = True
+        PwGen.Generate o
+        Expect.AreEqual 12, o.Length, "Length after Generate"
+        Expect.IsTrue o.StartsWithLetter, "StartsWithLetter after Generate"
+        Expect.AreEqual "!#$%&()+,-.;=@[]_{}~", o.SpecialChars, "SpecialChars after Generate"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/Helpers.twin b/test/package-tests/tsPwGen/Sources/Helpers.twin
new file mode 100644
index 00000000..6de0f102
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/Helpers.twin
@@ -0,0 +1,136 @@
+' Helpers: what the test cases of tsPwGen share.
+'
+' The output of a generator is random, so a case never compares a result with one exact string. It
+' checks a property that every result must have (its length, the classes that are present or
+' absent, a character that never appears) over Draws results, so that a chance pass is not
+' possible. The cases write no file.
+Module Helpers
+
+    ' How many results a case draws to check a property of every result.
+    Public Const Draws As Long = 200
+
+    Public Const UpperChars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+    Public Const LowerChars As String = "abcdefghijklmnopqrstuvwxyz"
+    Public Const DigitChars As String = "0123456789"
+    Public Const SpecialChars As String = "!#$%&()+,-.;=@[]_{}~"
+    Public Const AmbiguousChars As String = "0O1lI"
+
+    ' Empties the last error, so that one case cannot hand an error to the next.
+    Public Sub Reset()
+        PwGenError.Clear
+    End Sub
+
+    ' The characters of Chars that are not in Remove.
+    Public Function Without(ByVal Chars As String, ByVal Remove As String) As String
+        Dim i As Long
+        Dim result As String
+        For i = 1 To Len(Chars)
+            If InStr(1, Remove, Mid$(Chars, i, 1), vbBinaryCompare) = 0 Then result = result & Mid$(Chars, i, 1)
+        Next
+        Return result
+    End Function
+
+    ' True when every character of Text is in Allowed.
+    Public Function AllFrom(ByVal Text As String, ByVal Allowed As String) As Boolean
+        Dim i As Long
+        For i = 1 To Len(Text)
+            If InStr(1, Allowed, Mid$(Text, i, 1), vbBinaryCompare) = 0 Then Return False
+        Next
+        Return True
+    End Function
+
+    ' True when some character of Text is in Chars.
+    Public Function HasAnyOf(ByVal Text As String, ByVal Chars As String) As Boolean
+        Dim i As Long
+        For i = 1 To Len(Text)
+            If InStr(1, Chars, Mid$(Text, i, 1), vbBinaryCompare) > 0 Then Return True
+        Next
+        Return False
+    End Function
+
+    ' How many characters of Text are in Chars.
+    Public Function CountOf(ByVal Text As String, ByVal Chars As String) As Long
+        Dim i As Long
+        Dim n As Long
+        For i = 1 To Len(Text)
+            If InStr(1, Chars, Mid$(Text, i, 1), vbBinaryCompare) > 0 Then n = n + 1
+        Next
+        Return n
+    End Function
+
+    ' True when two equal characters are next to each other.
+    Public Function HasRepeat(ByVal Text As String) As Boolean
+        Dim i As Long
+        For i = 2 To Len(Text)
+            If Mid$(Text, i, 1) = Mid$(Text, i - 1, 1) Then Return True
+        Next
+        Return False
+    End Function
+
+    ' True when the first character of Text is an ASCII letter.
+    Public Function StartsWithAsciiLetter(ByVal Text As String) As Boolean
+        If Len(Text) = 0 Then Return False
+        Return InStr(1, UpperChars & LowerChars, Left$(Text, 1), vbBinaryCompare) > 0
+    End Function
+
+    ' The words of a built-in list as a Collection keyed by the word.
+    Public Function WordSet(ByVal List As PwGen.ePwGenWordlist) As Collection
+        Dim words() As String = PwGenWords.List(List, "test")
+        Dim c As New Collection
+        Dim i As Long
+        On Error Resume Next
+        For i = LBound(words) To UBound(words)
+            c.Add words(i), words(i)
+        Next
+        Return c
+    End Function
+
+    ' True when Words is a key of the Collection.
+    Public Function IsMember(ByVal Words As Collection, ByVal Word As String) As Boolean
+        Dim v As Variant
+        On Error Resume Next
+        v = Words.Item(Word)
+        IsMember = (Err.Number = 0)
+    End Function
+
+    ' Checks that the last error is the one given. Origin is not checked when it is "*".
+    Public Sub ExpectError(ByVal What As String, ByVal Code As String, ByVal Message As String, ByVal Origin As String)
+        Expect.IsTrue PwGenError.HasError, What & ": PwGenError.HasError"
+        Expect.AreEqual Code, PwGenError.Code, What & ": PwGenError.Code"
+        Expect.AreEqual Message, PwGenError.Message, What & ": PwGenError.Message"
+        If Origin <> "*" Then Expect.AreEqual Origin, PwGenError.Origin, What & ": PwGenError.Origin"
+    End Sub
+
+    ' Checks that the last error is empty.
+    Public Sub ExpectNoError(ByVal What As String)
+        Expect.IsFalse PwGenError.HasError, What & ": PwGenError.HasError"
+        Expect.AreEqual "", PwGenError.Code, What & ": PwGenError.Code"
+    End Sub
+
+    ' Checks that two figures agree to 9 decimal places.
+    Public Sub ExpectNear(ByVal Expected As Double, ByVal Actual As Double, ByVal What As String)
+        Expect.IsTrue Abs(Expected - Actual) < 0.000000001, What & ": expected " & Expected & ", got " & Actual
+    End Sub
+
+    ' The number of elements of an array; 0 for an array that was never allocated.
+    Public Function CountOfArray(ByRef Items() As String) As Long
+        On Error Resume Next
+        CountOfArray = UBound(Items) - LBound(Items) + 1
+        If Err.Number <> 0 Then
+            Err.Clear
+            CountOfArray = 0
+        End If
+    End Function
+
+    ' A custom word list of Count different words, "w1" to "w<Count>", from index 0.
+    Public Function WordList(ByVal Count As Long) As String()
+        Dim w() As String
+        ReDim w(0 To Count - 1)
+        Dim i As Long
+        For i = 0 To Count - 1
+            w(i) = "w" & (i + 1)
+        Next
+        Return w
+    End Function
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/LowestRandom.twin b/test/package-tests/tsPwGen/Sources/LowestRandom.twin
new file mode 100644
index 00000000..b4dbd1f9
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/LowestRandom.twin
@@ -0,0 +1,8 @@
+' LowestRandom: a random source of the test cases that always returns the lower bound.
+Class LowestRandom
+    Implements PwGenRandom
+
+    Private Function NextInRange(ByVal lowerBound As Long, ByVal upperBound As Long) As Long Implements PwGenRandom.NextInRange
+        Return lowerBound
+    End Function
+End Class
diff --git a/test/package-tests/tsPwGen/Sources/OutOfRangeRandom.twin b/test/package-tests/tsPwGen/Sources/OutOfRangeRandom.twin
new file mode 100644
index 00000000..40039216
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/OutOfRangeRandom.twin
@@ -0,0 +1,8 @@
+' OutOfRangeRandom: a random source of the test cases that returns a number one above the upper bound.
+Class OutOfRangeRandom
+    Implements PwGenRandom
+
+    Private Function NextInRange(ByVal lowerBound As Long, ByVal upperBound As Long) As Long Implements PwGenRandom.NextInRange
+        Return upperBound + 1
+    End Function
+End Class
diff --git a/test/package-tests/tsPwGen/Sources/PackageCodeTests.twin b/test/package-tests/tsPwGen/Sources/PackageCodeTests.twin
new file mode 100644
index 00000000..a166b1aa
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/PackageCodeTests.twin
@@ -0,0 +1,53 @@
+' tsPwGen: the package's own test code and its internal modules, which are public and so can be named
+' by a project: Tests (Tests.RunAll, Tests.SetContinueOnFail, Tests.FailCount) and PwGenWords.
+' Tests.* print their lines with Debug.Print, which is the DEBUG CONSOLE of the IDE.
+[TestFixture]
+Module PackageCodeTests
+
+    [TestCase]
+    Public Sub PackageTests_RunAll_NoCheckFails()
+        Expect.Begin
+        Helpers.Reset
+        Tests.RunAll
+        Expect.AreEqual 0, Tests.FailCount(), "failed checks of Tests.RunAll"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PackageTests_FailedCheckIsCounted()
+        Expect.Begin
+        Helpers.Reset
+        Tests.BeginRun
+        Tests.CheckTrue "first", False
+        Expect.AreEqual 1, Tests.FailCount(), "Tests.FailCount after one failed check"
+        Tests.CheckTrue "second", True
+        Expect.AreEqual 1, Tests.FailCount(), "Tests.FailCount after a failed and a passed check"
+        Tests.EndRun
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SetContinueOnFail_False_NoCheckRunsAfterTheFirstFailure()
+        Expect.Begin
+        Helpers.Reset
+        Tests.BeginRun
+        Tests.SetContinueOnFail False
+        On Error Resume Next
+        Tests.CheckTrue "first", False
+        Tests.CheckTrue "second", False
+        On Error GoTo 0
+        Expect.AreEqual 1, Tests.FailCount(), "Tests.FailCount after two failed checks with SetContinueOnFail False (the run stops at the first)"
+        Tests.EndRun
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub InternalModules_CanBeNamedByAProject()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual 8192, PwGenWords.CountOf(pgwEnglish, "x"), "PwGenWords.CountOf(pgwEnglish, ""x"")"
+        Expect.AreEqual "abandon", PwGenWords.WordAt(pgwEnglish, 0, "x"), "PwGenWords.WordAt(pgwEnglish, 0, ""x"")"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/PresetTests.twin b/test/package-tests/tsPwGen/Sources/PresetTests.twin
new file mode 100644
index 00000000..05669e0e
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/PresetTests.twin
@@ -0,0 +1,206 @@
+' tsPwGen: the five presets of PwGenOptions and a recipe of Nothing. Each preset is checked by the
+' values it starts with, by what its results look like over Draws results, and by its entropy.
+[TestFixture]
+Module PresetTests
+
+    [TestCase]
+    Public Sub Alphanumeric_Properties()
+        Expect.Begin
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        Expect.AreEqual 0, CLng(o.Mode), "Alphanumeric.Mode (pgmRandom)"
+        Expect.AreEqual 16, o.Length, "Alphanumeric.Length"
+        Expect.IsTrue o.HasUpperCase, "Alphanumeric.HasUpperCase"
+        Expect.IsTrue o.HasLowerCase, "Alphanumeric.HasLowerCase"
+        Expect.IsTrue o.HasDigits, "Alphanumeric.HasDigits"
+        Expect.IsFalse o.HasSpecialChars, "Alphanumeric.HasSpecialChars"
+        Expect.AreEqual "!#$%&()+,-.;=@[]_{}~", o.SpecialChars, "Alphanumeric.SpecialChars"
+        Expect.AreEqual "", o.IncludeChars, "Alphanumeric.IncludeChars"
+        Expect.AreEqual "", o.ExcludeChars, "Alphanumeric.ExcludeChars"
+        Expect.IsTrue o.IsAmbiguousExcluded, "Alphanumeric.IsAmbiguousExcluded"
+        Expect.AreEqual "0O1lI", o.AmbiguousChars, "Alphanumeric.AmbiguousChars"
+        Expect.AreEqual "", o.Alphabet, "Alphanumeric.Alphabet"
+        Expect.AreEqual 1, o.MinPerClass, "Alphanumeric.MinPerClass"
+        Expect.IsFalse o.HasNoConsecutiveRepeats, "Alphanumeric.HasNoConsecutiveRepeats"
+        Expect.IsFalse o.StartsWithLetter, "Alphanumeric.StartsWithLetter"
+        Expect.AreEqual 5, o.WordCount, "Alphanumeric.WordCount"
+        Expect.AreEqual "-", o.WordSeparator, "Alphanumeric.WordSeparator"
+        Expect.AreEqual 0, CLng(o.Wordlist), "Alphanumeric.Wordlist (pgwEnglish)"
+        Dim words() As String = o.CustomWords
+        Expect.AreEqual 0, Helpers.CountOfArray(words), "Alphanumeric.CustomWords element count"
+        Expect.IsFalse o.HasUniqueWords, "Alphanumeric.HasUniqueWords"
+        Expect.IsFalse o.Capitalize, "Alphanumeric.Capitalize"
+        Expect.IsTrue o.RandomSource Is Nothing, "Alphanumeric.RandomSource is Nothing"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alphanumeric_Results_SixteenCharsFromFiftySevenWithAllThreeClasses()
+        Expect.Begin
+        Helpers.Reset
+        Dim pool As String = Helpers.Without(Helpers.UpperChars & Helpers.LowerChars & Helpers.DigitChars, Helpers.AmbiguousChars)
+        Expect.AreEqual 57, Len(pool), "the pool of the look-alike-free letters and digits"
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            Dim pw As String = PwGen.Generate(o)
+            If Len(pw) <> 16 Or Not Helpers.AllFrom(pw, pool) Then bad = bad + 1
+            If Not (Helpers.HasAnyOf(pw, Helpers.UpperChars) And Helpers.HasAnyOf(pw, Helpers.LowerChars) And Helpers.HasAnyOf(pw, Helpers.DigitChars)) Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of Alphanumeric out of " & Helpers.Draws & " that are not 16 characters from the 57, or lack an uppercase letter, a lowercase letter or a digit"
+        Expect.AreEqual 933, CLng(PwGen.Entropy(o) * 10), "Alphanumeric entropy in tenths of a bit (93.3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Complex_Properties()
+        Expect.Begin
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        Expect.AreEqual 0, CLng(o.Mode), "Complex.Mode (pgmRandom)"
+        Expect.AreEqual 16, o.Length, "Complex.Length"
+        Expect.IsTrue o.HasUpperCase, "Complex.HasUpperCase"
+        Expect.IsTrue o.HasLowerCase, "Complex.HasLowerCase"
+        Expect.IsTrue o.HasDigits, "Complex.HasDigits"
+        Expect.IsTrue o.HasSpecialChars, "Complex.HasSpecialChars"
+        Expect.AreEqual 1, o.MinPerClass, "Complex.MinPerClass"
+        Expect.IsTrue o.IsAmbiguousExcluded, "Complex.IsAmbiguousExcluded"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Complex_Results_SixteenCharsFromSeventySevenWithAllFourClasses()
+        Expect.Begin
+        Helpers.Reset
+        Dim pool As String = Helpers.Without(Helpers.UpperChars & Helpers.LowerChars & Helpers.DigitChars, Helpers.AmbiguousChars) & Helpers.SpecialChars
+        Expect.AreEqual 77, Len(pool), "the pool of the look-alike-free letters and digits and the 20 special characters"
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            Dim pw As String = PwGen.Generate(o)
+            If Len(pw) <> 16 Or Not Helpers.AllFrom(pw, pool) Then bad = bad + 1
+            If Not (Helpers.HasAnyOf(pw, Helpers.UpperChars) And Helpers.HasAnyOf(pw, Helpers.LowerChars) And Helpers.HasAnyOf(pw, Helpers.DigitChars) And Helpers.HasAnyOf(pw, Helpers.SpecialChars)) Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of Complex out of " & Helpers.Draws & " that are not 16 characters from the 77, or lack a class"
+        Expect.AreEqual 1003, CLng(PwGen.Entropy(o) * 10), "Complex entropy in tenths of a bit (100.3)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Passphrase_Properties()
+        Expect.Begin
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        Expect.AreEqual 1, CLng(o.Mode), "Passphrase.Mode (pgmWordlist)"
+        Expect.AreEqual 5, o.WordCount, "Passphrase.WordCount"
+        Expect.AreEqual "-", o.WordSeparator, "Passphrase.WordSeparator"
+        Expect.AreEqual 0, CLng(o.Wordlist), "Passphrase.Wordlist (pgwEnglish)"
+        Expect.IsFalse o.HasUniqueWords, "Passphrase.HasUniqueWords"
+        Expect.IsFalse o.Capitalize, "Passphrase.Capitalize"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Passphrase_Results_FiveEnglishWordsJoinedByHyphens()
+        Expect.Begin
+        Helpers.Reset
+        Dim english As Collection = Helpers.WordSet(pgwEnglish)
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        Dim i As Long
+        Dim j As Long
+        Dim bad As Long
+        For i = 1 To 40
+            Dim parts() As String = Split(PwGen.Generate(o), "-")
+            If UBound(parts) <> 4 Then
+                bad = bad + 1
+            Else
+                For j = 0 To 4
+                    If Not Helpers.IsMember(english, parts(j)) Then bad = bad + 1
+                Next
+            End If
+        Next
+        Expect.AreEqual 0, bad, "passphrases of Passphrase out of 40 that are not five English words joined by hyphens"
+        Helpers.ExpectNear 65, PwGen.Entropy(o), "Passphrase entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pin_Properties()
+        Expect.Begin
+        Dim o As PwGenOptions = PwGenOptions.Pin
+        Expect.AreEqual 0, CLng(o.Mode), "Pin.Mode (pgmRandom)"
+        Expect.AreEqual 6, o.Length, "Pin.Length"
+        Expect.IsFalse o.HasUpperCase, "Pin.HasUpperCase"
+        Expect.IsFalse o.HasLowerCase, "Pin.HasLowerCase"
+        Expect.IsTrue o.HasDigits, "Pin.HasDigits"
+        Expect.IsFalse o.HasSpecialChars, "Pin.HasSpecialChars"
+        Expect.IsFalse o.IsAmbiguousExcluded, "Pin.IsAmbiguousExcluded"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Pin_Results_SixDigitsWithTheLookAlikesKept()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Pin
+        Dim i As Long
+        Dim bad As Long
+        Dim seen As String
+        For i = 1 To Helpers.Draws
+            Dim pw As String = PwGen.Generate(o)
+            If Len(pw) <> 6 Or Not Helpers.AllFrom(pw, Helpers.DigitChars) Then bad = bad + 1
+            seen = seen & pw
+        Next
+        Expect.AreEqual 0, bad, "results of Pin out of " & Helpers.Draws & " that are not 6 digits"
+        Expect.AreEqual 10, Len(Helpers.Without(Helpers.DigitChars, Helpers.Without(Helpers.DigitChars, seen))), "different digits seen in " & Helpers.Draws & " PINs (0 and 1 included)"
+        Expect.AreEqual 199, CLng(PwGen.Entropy(o) * 10), "Pin entropy in tenths of a bit (19.9)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Hex_Results_ThirtyTwoLowercaseHexDigits()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Hex
+        Expect.AreEqual 32, o.Length, "Hex.Length"
+        Expect.AreEqual "0123456789abcdef", o.Alphabet, "Hex.Alphabet"
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            Dim pw As String = PwGen.Generate(o)
+            If Len(pw) <> 32 Or Not Helpers.AllFrom(pw, "0123456789abcdef") Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of Hex out of " & Helpers.Draws & " that are not 32 lowercase hexadecimal digits"
+        Helpers.ExpectNear 128, PwGen.Entropy(o), "Hex entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Presets_ReturnANewRecipeEachTime()
+        Expect.Begin
+        Dim a As PwGenOptions = PwGenOptions.Alphanumeric
+        a.Length = 3
+        a.HasSpecialChars = True
+        Dim b As PwGenOptions = PwGenOptions.Alphanumeric
+        Expect.AreEqual 16, b.Length, "Length of an Alphanumeric after the Length of an earlier one was changed"
+        Expect.IsFalse b.HasSpecialChars, "HasSpecialChars of an Alphanumeric after the one of an earlier one was changed"
+        Expect.IsFalse a Is b, "two calls of Alphanumeric return the same object"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Nothing_MeansANewAlphanumericRecipe()
+        Expect.Begin
+        Helpers.Reset
+        Dim none As PwGenOptions
+        Dim pw As String = PwGen.Generate(none)
+        Expect.AreEqual 16, Len(pw), "Len of Generate(Nothing)"
+        Expect.IsTrue Helpers.AllFrom(pw, Helpers.Without(Helpers.UpperChars & Helpers.LowerChars & Helpers.DigitChars, Helpers.AmbiguousChars)), "Generate(Nothing) draws from the look-alike-free letters and digits"
+        Helpers.ExpectNear PwGen.Entropy(PwGenOptions.Alphanumeric), PwGen.Entropy(none), "Entropy(Nothing) against Entropy(Alphanumeric)"
+        Dim pw2 As String
+        Expect.IsTrue PwGen.TryGenerate(pw2, none), "TryGenerate with Nothing"
+        Expect.AreEqual 16, Len(pw2), "Len of TryGenerate(pw, Nothing)"
+        Expect.AreEqual 16, Len(PwGen.Generate()), "Len of Generate() with no argument"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/RaisingRandom.twin b/test/package-tests/tsPwGen/Sources/RaisingRandom.twin
new file mode 100644
index 00000000..22e93198
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/RaisingRandom.twin
@@ -0,0 +1,8 @@
+' RaisingRandom: a random source of the test cases that raises run-time error 5 on every call.
+Class RaisingRandom
+    Implements PwGenRandom
+
+    Private Function NextInRange(ByVal lowerBound As Long, ByVal upperBound As Long) As Long Implements PwGenRandom.NextInRange
+        Err.Raise 5, "RaisingRandom", "no random numbers"
+    End Function
+End Class
diff --git a/test/package-tests/tsPwGen/Sources/RandomModeTests.twin b/test/package-tests/tsPwGen/Sources/RandomModeTests.twin
new file mode 100644
index 00000000..f8e11c9c
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/RandomModeTests.twin
@@ -0,0 +1,577 @@
+' tsPwGen: random mode. How the pool is built from Alphabet, the four classes, IncludeChars,
+' ExcludeChars and the look-alike characters, and what MinPerClass, StartsWithLetter and Length
+' demand of a result. Each case draws Draws results and checks a property that every one has.
+[TestFixture]
+Module RandomModeTests
+
+    ' The recipe of the cases: the four classes off, so that a case turns on what it tests.
+    Private Function Bare() As PwGenOptions
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.HasUpperCase = False
+        o.HasLowerCase = False
+        o.HasDigits = False
+        o.HasSpecialChars = False
+        o.MinPerClass = 0
+        Return o
+    End Function
+
+    ' All the results of Draws draws, one string.
+    Private Function Many(ByVal Options As PwGenOptions) As String
+        Dim i As Long
+        Dim all As String
+        For i = 1 To Helpers.Draws
+            all = all & PwGen.Generate(Options)
+        Next
+        Return all
+    End Function
+
+    [TestCase]
+    Public Sub Alphabet_IsTheWholePool()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "ABC"
+        o.Length = 12
+        Dim all As String = Many(o)
+        Expect.AreEqual 12 * Helpers.Draws, Len(all), "total length of the results of Alphabet ABC and Length 12"
+        Expect.IsTrue Helpers.AllFrom(all, "ABC"), "every character of the results of Alphabet ABC is A, B or C"
+        Expect.AreEqual 3, Len(Helpers.Without("ABC", Helpers.Without("ABC", all))), "different characters of ABC seen in " & Helpers.Draws & " results"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alphabet_IgnoresTheClassSettingsIncludeAndExclude()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.Alphabet = "ABC"
+        o.IncludeChars = "xyz"
+        o.ExcludeChars = "A"
+        o.MinPerClass = 5
+        o.Length = 12
+        Dim all As String = Many(o)
+        Expect.AreEqual 12 * Helpers.Draws, Len(all), "total length of the results of Alphabet ABC with classes, IncludeChars, ExcludeChars A and MinPerClass 5"
+        Expect.IsTrue Helpers.AllFrom(all, "ABC"), "every character is A, B or C although the classes and IncludeChars xyz are set"
+        Expect.IsTrue InStr(1, all, "A", vbBinaryCompare) > 0, "A is drawn although ExcludeChars is A"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alphabet_IgnoresTheLookAlikes()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "0O1lI"
+        o.Length = 20
+        Dim all As String = Many(o)
+        Expect.IsTrue Helpers.AllFrom(all, "0O1lI"), "every character of the results of Alphabet 0O1lI is one of them"
+        Expect.AreEqual 5, Len(Helpers.Without("0O1lI", Helpers.Without("0O1lI", all))), "different characters of 0O1lI seen"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alphabet_RepeatedCharactersAreOneCharacter()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "aabbcc"
+        o.Length = 300
+        Dim pw As String = PwGen.Generate(o)
+        Expect.AreEqual 300, Len(pw), "Len of a result of Alphabet aabbcc"
+        Expect.IsTrue Helpers.AllFrom(pw, "abc"), "every character is a, b or c"
+        Dim n As Long = Helpers.CountOf(pw, "a")
+        Expect.IsTrue n > 60 And n < 140, "the share of a in 300 characters from the Alphabet aabbcc is a third, not a half"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alphabet_CharactersAreComparedByCode()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "aA"
+        o.Length = 40
+        Dim all As String = Many(o)
+        Expect.IsTrue InStr(1, all, "a", vbBinaryCompare) > 0 And InStr(1, all, "A", vbBinaryCompare) > 0, "a and A are both drawn from the Alphabet aA"
+        Helpers.ExpectNear 40 * 1, PwGen.Entropy(o), "Entropy of 40 characters from the Alphabet aA (two different characters)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Alphabet_SurrogatePairIsTwoCharacters()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = ChrW(&HD83D&) & ChrW(&HDE00&)
+        o.Length = 1
+        Helpers.ExpectNear 1, PwGen.Entropy(o), "Entropy of one character from an Alphabet of one surrogate pair"
+        Dim i As Long
+        Dim bad As Long
+        Dim seenHigh As Boolean
+        Dim seenLow As Boolean
+        For i = 1 To Helpers.Draws
+            Dim pw As String = PwGen.Generate(o)
+            If Len(pw) <> 1 Then
+                bad = bad + 1
+            ElseIf AscW(pw) = AscW(ChrW(&HD83D&)) Then
+                seenHigh = True
+            ElseIf AscW(pw) = AscW(ChrW(&HDE00&)) Then
+                seenLow = True
+            Else
+                bad = bad + 1
+            End If
+        Next
+        Expect.AreEqual 0, bad, "results that are not one half of the surrogate pair"
+        Expect.IsTrue seenHigh And seenLow, "both halves of the pair are drawn alone"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Classes_UppercaseOnly()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasUpperCase = True
+        o.Length = 50
+        Expect.IsTrue Helpers.AllFrom(Many(o), Helpers.Without(Helpers.UpperChars, "OI")), "every character of an uppercase-only recipe is a letter A to Z without O and I"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Classes_LowercaseOnly()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasLowerCase = True
+        o.Length = 50
+        Expect.IsTrue Helpers.AllFrom(Many(o), Helpers.Without(Helpers.LowerChars, "l")), "every character of a lowercase-only recipe is a letter a to z without l"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Classes_DigitsOnly()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasDigits = True
+        o.Length = 50
+        Dim all As String = Many(o)
+        Expect.IsTrue Helpers.AllFrom(all, "23456789"), "every character of a digits-only recipe is 2 to 9 (0 and 1 are look-alikes)"
+        Helpers.ExpectNear 50 * Log(8) / Log(2), PwGen.Entropy(o), "Entropy of 50 digits without 0 and 1"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Classes_SpecialCharactersOnly()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasSpecialChars = True
+        o.Length = 50
+        Dim all As String = Many(o)
+        Expect.IsTrue Helpers.AllFrom(all, Helpers.SpecialChars), "every character of a special-characters-only recipe is one of the 20"
+        Expect.AreEqual 20, Len(Helpers.Without(Helpers.SpecialChars, Helpers.Without(Helpers.SpecialChars, all))), "different special characters seen"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Classes_CustomSpecialCharsReplaceTheDefault()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasSpecialChars = True
+        o.SpecialChars = "*?"
+        o.Length = 50
+        Expect.IsTrue Helpers.AllFrom(Many(o), "*?"), "every character is * or ? for SpecialChars *?"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Classes_AllFourTogether()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasUpperCase = True
+        o.HasLowerCase = True
+        o.HasDigits = True
+        o.HasSpecialChars = True
+        o.Length = 60
+        Dim all As String = Many(o)
+        Dim pool As String = Helpers.Without(Helpers.UpperChars & Helpers.LowerChars & Helpers.DigitChars, Helpers.AmbiguousChars) & Helpers.SpecialChars
+        Expect.IsTrue Helpers.AllFrom(all, pool), "every character is in the pool of 77"
+        Expect.AreEqual 77, Len(Helpers.Without(pool, Helpers.Without(pool, all))), "different characters of the pool seen in " & Helpers.Draws & " results of 60"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IsAmbiguousExcluded_False_KeepsTheLookAlikes()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.IsAmbiguousExcluded = False
+        o.Length = 60
+        Dim all As String = Many(o)
+        Expect.AreEqual 62, Len(Helpers.Without(Helpers.UpperChars & Helpers.LowerChars & Helpers.DigitChars, Helpers.Without(Helpers.UpperChars & Helpers.LowerChars & Helpers.DigitChars, all))), "different letters and digits seen when the look-alikes are kept"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub AmbiguousChars_CustomSetIsRemoved()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasLowerCase = True
+        o.AmbiguousChars = "ab"
+        o.Length = 100
+        Dim all As String = Many(o)
+        Expect.IsFalse Helpers.HasAnyOf(all, "ab"), "a or b in the results when AmbiguousChars is ab"
+        Expect.IsTrue InStr(1, all, "l", vbBinaryCompare) > 0, "l is drawn when AmbiguousChars is ab"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ExcludeChars_AreRemovedFromTheClasses()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.ExcludeChars = "abcdefghij2468!#"
+        o.Length = 60
+        Dim all As String = Many(o)
+        Expect.IsFalse Helpers.HasAnyOf(all, "abcdefghij2468!#"), "an excluded character in the results"
+        Expect.IsTrue Helpers.HasAnyOf(all, "klmnopqrstuvwxyz"), "the rest of the lowercase letters are drawn"
+        Dim pool As String = Helpers.Without(Helpers.Without(Helpers.UpperChars & Helpers.LowerChars & Helpers.DigitChars, Helpers.AmbiguousChars) & Helpers.SpecialChars, "abcdefghij2468!#")
+        Helpers.ExpectNear 60 * Log(Len(pool)) / Log(2), PwGen.Entropy(o), "Entropy with ExcludeChars"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ExcludeChars_AClassWithNoCharacterLeft_EmptyClass()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.ExcludeChars = "0123456789"
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with every digit excluded and HasDigits True"
+        Helpers.ExpectError "every digit excluded", "EmptyClass", "an enabled class is empty after exclusions.", "PwGen.Generate"
+        Dim s As PwGenOptions = PwGenOptions.Complex
+        s.SpecialChars = ""
+        Expect.AreEqual "", PwGen.Generate(s), "Generate with HasSpecialChars True and SpecialChars empty"
+        Helpers.ExpectError "empty SpecialChars", "EmptyClass", "an enabled class is empty after exclusions.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IncludeChars_AddCharactersToThePool()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasDigits = True
+        o.IncludeChars = "!"
+        o.Length = 300
+        Dim pw As String = PwGen.Generate(o)
+        Expect.IsTrue Helpers.AllFrom(pw, "23456789!"), "every character is a digit 2 to 9 or the included !"
+        Expect.IsTrue InStr(1, pw, "!", vbBinaryCompare) > 0, "the included ! is drawn in 300 characters"
+        Helpers.ExpectNear 300 * Log(9) / Log(2), PwGen.Entropy(o), "Entropy with the digits 2 to 9 and one included character"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IncludeChars_AreFilteredByExcludeChars()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasDigits = True
+        o.IncludeChars = "!?"
+        o.ExcludeChars = "!"
+        o.Length = 300
+        Dim pw As String = PwGen.Generate(o)
+        Expect.IsFalse InStr(1, pw, "!", vbBinaryCompare) > 0, "an included character that ExcludeChars names in the result"
+        Expect.IsTrue InStr(1, pw, "?", vbBinaryCompare) > 0, "the other included character is drawn"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IncludeChars_AreFilteredByTheLookAlikes()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasDigits = True
+        o.IncludeChars = "O?"
+        o.Length = 300
+        Dim pw As String = PwGen.Generate(o)
+        Expect.IsFalse InStr(1, pw, "O", vbBinaryCompare) > 0, "an included look-alike in the result"
+        Expect.IsTrue InStr(1, pw, "?", vbBinaryCompare) > 0, "the other included character is drawn"
+        o.IsAmbiguousExcluded = False
+        Expect.IsTrue InStr(1, PwGen.Generate(o), "O", vbBinaryCompare) > 0, "the included O is drawn when IsAmbiguousExcluded is False"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub IncludeChars_AlreadyInThePoolAreNotAddedTwice()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As PwGenOptions = Bare()
+        a.HasDigits = True
+        Dim b As PwGenOptions = a.Clone()
+        b.IncludeChars = "5555"
+        Helpers.ExpectNear PwGen.Entropy(a), PwGen.Entropy(b), "Entropy of the digits with IncludeChars 5555 against without"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MinPerClass_Default_EveryClassIsInEveryResult()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.Length = 8
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            Dim pw As String = PwGen.Generate(o)
+            If Not (Helpers.HasAnyOf(pw, Helpers.UpperChars) And Helpers.HasAnyOf(pw, Helpers.LowerChars) And Helpers.HasAnyOf(pw, Helpers.DigitChars) And Helpers.HasAnyOf(pw, Helpers.SpecialChars)) Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of 8 characters out of " & Helpers.Draws & " that lack a class"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MinPerClass_Three_ThreeOfEachClass()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.MinPerClass = 3
+        o.Length = 12
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            Dim pw As String = PwGen.Generate(o)
+            If Len(pw) <> 12 Then bad = bad + 1
+            If Helpers.CountOf(pw, Helpers.UpperChars) < 3 Or Helpers.CountOf(pw, Helpers.LowerChars) < 3 Or Helpers.CountOf(pw, Helpers.DigitChars) < 3 Or Helpers.CountOf(pw, Helpers.SpecialChars) < 3 Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of 12 characters out of " & Helpers.Draws & " that have fewer than three of a class"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MinPerClass_Zero_NoGuarantee()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.MinPerClass = 0
+        o.Length = 1
+        Dim pw As String = PwGen.Generate(o)
+        Expect.AreEqual 1, Len(pw), "Len of a result with MinPerClass 0 and Length 1"
+        Helpers.ExpectNoError "MinPerClass 0 with Length 1"
+        Dim missing As Long
+        Dim i As Long
+        o.Length = 2
+        For i = 1 To Helpers.Draws
+            If Not (Helpers.HasAnyOf(PwGen.Generate(o), Helpers.DigitChars)) Then missing = missing + 1
+        Next
+        Expect.IsTrue missing > 0, "results of two characters without a digit when MinPerClass is 0 (the guarantee is off)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MinPerClass_Negative_InvalidMinPerClass()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.MinPerClass = -1
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with MinPerClass -1"
+        Helpers.ExpectError "MinPerClass -1", "InvalidMinPerClass", "MinPerClass must be >= 0.", "PwGen.Generate"
+        Expect.AreEqual 0#, PwGen.Entropy(o), "Entropy with MinPerClass -1"
+        Helpers.ExpectError "Entropy with MinPerClass -1", "InvalidMinPerClass", "MinPerClass must be >= 0.", "PwGen.Entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MinPerClass_LengthBelowMinPerClassTimesClasses_LengthTooShort()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Length = 2
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with Length 2 and three classes"
+        Helpers.ExpectError "Length 2, three classes", "LengthTooShort", "Length is smaller than MinPerClass times the number of enabled classes.", "PwGen.Generate"
+        o.Length = 3
+        Expect.AreEqual 3, Len(PwGen.Generate(o)), "Len of a result with Length 3 and three classes"
+        Helpers.ExpectNoError "Length 3, three classes"
+        o.MinPerClass = 2
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with Length 3, MinPerClass 2 and three classes"
+        Helpers.ExpectError "Length 3, MinPerClass 2", "LengthTooShort", "Length is smaller than MinPerClass times the number of enabled classes.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MinPerClass_IncludeCharsBelongToNoClass()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        o.HasDigits = True
+        o.IncludeChars = "abcdefghijklmnopqrstuvwxyz"
+        o.MinPerClass = 5
+        o.Length = 5
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            If Helpers.CountOf(PwGen.Generate(o), "23456789") < 5 Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of 5 characters out of " & Helpers.Draws & " that are not 5 digits, with MinPerClass 5 and the letters only in IncludeChars"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StartsWithLetter_TheFirstCharacterIsAnAsciiLetter()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.StartsWithLetter = True
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            If Not Helpers.StartsWithAsciiLetter(PwGen.Generate(o)) Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of Complex with StartsWithLetter out of " & Helpers.Draws & " that do not start with a letter"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StartsWithLetter_ClassGuaranteesStillHold()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.StartsWithLetter = True
+        o.Length = 4
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            Dim pw As String = PwGen.Generate(o)
+            If Len(pw) <> 4 Then bad = bad + 1
+            If Not (Helpers.HasAnyOf(pw, Helpers.UpperChars) And Helpers.HasAnyOf(pw, Helpers.LowerChars) And Helpers.HasAnyOf(pw, Helpers.DigitChars) And Helpers.HasAnyOf(pw, Helpers.SpecialChars)) Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of Complex with StartsWithLetter and Length 4 out of " & Helpers.Draws & " that lack a class"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StartsWithLetter_AppliesToTheAlphabet()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "123a"
+        o.StartsWithLetter = True
+        o.Length = 4
+        Dim i As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            If Left$(PwGen.Generate(o), 1) <> "a" Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "results of the Alphabet 123a with StartsWithLetter out of " & Helpers.Draws & " that do not start with a"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub StartsWithLetter_PoolWithoutALetter_CannotStartWithLetter()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Pin
+        o.StartsWithLetter = True
+        Expect.AreEqual "", PwGen.Generate(o), "Generate of Pin with StartsWithLetter"
+        Helpers.ExpectError "Pin with StartsWithLetter", "CannotStartWithLetter", "the pool has no ASCII letter for StartsWithLetter.", "PwGen.Generate"
+        Expect.AreEqual 0#, PwGen.Entropy(o), "Entropy of Pin with StartsWithLetter"
+        Helpers.ExpectError "Entropy of Pin with StartsWithLetter", "CannotStartWithLetter", "the pool has no ASCII letter for StartsWithLetter.", "PwGen.Entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Length_Limits()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Length = 4096
+        Dim pw As String = PwGen.Generate(o)
+        Expect.AreEqual 4096, Len(pw), "Len of a result with Length 4096"
+        Helpers.ExpectNoError "Length 4096"
+        o.Length = 1
+        o.MinPerClass = 0
+        Expect.AreEqual 1, Len(PwGen.Generate(o)), "Len of a result with Length 1 and MinPerClass 0"
+        Dim bad As Variant
+        For Each bad In Array(0, -1, 4097)
+            o.Length = bad
+            Expect.AreEqual "", PwGen.Generate(o), "Generate with Length " & bad
+            Helpers.ExpectError "Length " & bad, "InvalidLength", "Length must be between 1 and 4096.", "PwGen.Generate"
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Length_IsNotCheckedWhenItIsSet()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        On Error Resume Next
+        o.Length = 0
+        o.MinPerClass = -5
+        o.Mode = 9
+        Expect.AreEqual 0, Err.Number, "run-time error number of assigning Length 0, MinPerClass -5 and Mode 9"
+        On Error GoTo 0
+        Expect.AreEqual 0, o.Length, "Length after the assignment of 0"
+        Helpers.ExpectNoError "assigning values that cannot be used"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NoCharset_NoClassAndNoAlphabet()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Bare()
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with no class enabled and an empty Alphabet"
+        Helpers.ExpectError "no class and no Alphabet", "NoCharset", "no character class is enabled and Alphabet is empty.", "PwGen.Generate"
+        o.IncludeChars = "abc"
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with no class enabled and IncludeChars abc"
+        Helpers.ExpectError "no class, IncludeChars abc", "NoCharset", "no character class is enabled and Alphabet is empty.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Mode_NotAMember_InvalidMode()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Mode = 7
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with Mode 7"
+        Helpers.ExpectError "Mode 7", "InvalidMode", "Mode is not a known ePwGenMode member.", "PwGen.Generate"
+        Expect.AreEqual 0#, PwGen.Entropy(o), "Entropy with Mode 7"
+        Helpers.ExpectError "Entropy with Mode 7", "InvalidMode", "Mode is not a known ePwGenMode member.", "PwGen.Entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RandomMode_DoesNotReadTheWordlistProperties()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.WordCount = 0
+        o.Wordlist = 9
+        Dim dup() As String
+        ReDim dup(0 To 1)
+        dup(0) = "same"
+        dup(1) = "same"
+        o.CustomWords = dup
+        Expect.AreEqual 16, Len(PwGen.Generate(o)), "Len of a random-mode result with WordCount 0, an invalid Wordlist and duplicate CustomWords"
+        Helpers.ExpectNoError "random mode with wordlist properties that cannot be used"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SeveralFaults_TheFirstFoundIsReported()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Length = 0
+        o.MinPerClass = -1
+        PwGen.Generate o
+        Expect.AreEqual "InvalidLength", PwGenError.Code, "Code with Length 0 and MinPerClass -1"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/RandomSourceTests.twin b/test/package-tests/tsPwGen/Sources/RandomSourceTests.twin
new file mode 100644
index 00000000..ada48ca1
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/RandomSourceTests.twin
@@ -0,0 +1,142 @@
+' tsPwGen: the random sources. PwGenRandom is the interface of a source, RandomSource names the source
+' of a recipe, and PwGenCryptoSource is the default one. A source that returns fixed values makes a
+' result predictable; a source that returns a number outside its bounds is an error (RngFailed); a
+' run-time error raised inside a source reaches the caller.
+[TestFixture]
+Module RandomSourceTests
+
+    [TestCase]
+    Public Sub LowestRandom_RandomMode_DrawsTheFirstCharacterOfThePool()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        o.Alphabet = "QR"
+        o.Length = 5
+        Set o.RandomSource = New LowestRandom
+        Expect.AreEqual "QQQQQ", PwGen.Generate(o), "Generate of Alphabet QR with a source that returns the lower bound"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub LowestRandom_WordlistMode_DrawsTheFirstWordLeft()
+        Expect.Begin
+        Helpers.Reset
+        Dim words(0 To 3) As String
+        words(0) = "alpha"
+        words(1) = "bravo"
+        words(2) = "charlie"
+        words(3) = "delta"
+        Dim p As PwGenOptions = PwGenOptions.Passphrase
+        p.CustomWords = words
+        p.WordCount = 4
+        Set p.RandomSource = New LowestRandom
+        Expect.AreEqual "alpha-alpha-alpha-alpha", PwGen.Generate(p), "Generate of 4 words with a source that returns the lower bound"
+        p.HasUniqueWords = True
+        Expect.AreEqual "alpha-delta-charlie-bravo", PwGen.Generate(p), "Generate of 4 different words with a source that returns the lower bound"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub OutOfRangeSource_RngFailed()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        Set o.RandomSource = New OutOfRangeRandom
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with a source that returns a number above the upper bound"
+        Helpers.ExpectError "an out-of-range source in random mode", "RngFailed", "random source returned a value outside the requested interval.", "PwGen.Generate"
+        Dim p As PwGenOptions = PwGenOptions.Passphrase
+        Set p.RandomSource = New OutOfRangeRandom
+        Expect.AreEqual "", PwGen.Generate(p), "Generate of a passphrase with a source that returns a number above the upper bound"
+        Helpers.ExpectError "an out-of-range source in wordlist mode", "RngFailed", "random source returned a value outside the requested interval.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RaisingSource_TheErrorReachesTheCaller()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Alphanumeric
+        Set o.RandomSource = New RaisingRandom
+        Dim pw As String = "unchanged"
+        On Error Resume Next
+        pw = PwGen.Generate(o)
+        Expect.AreEqual 5, Err.Number, "Err.Number of Generate with a source that raises error 5"
+        Expect.AreEqual "RaisingRandom", Err.Source, "Err.Source of Generate with a source that raises error 5"
+        Expect.AreEqual "unchanged", pw, "the result variable after the error"
+        On Error GoTo 0
+        Expect.IsFalse PwGenError.HasError, "PwGenError.HasError after an error raised inside the source"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Draws_LowerBoundIsZeroOrOneAndNeverAboveTheUpperBound()
+        Expect.Begin
+        Helpers.Reset
+        Dim rec As New RecordingRandom
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        o.StartsWithLetter = True
+        o.HasNoConsecutiveRepeats = True
+        o.MinPerClass = 2
+        o.Length = 20
+        Set o.RandomSource = rec
+        PwGen.Generate o
+        Expect.IsTrue rec.Calls > 0, "calls of the source for a recipe"
+        Expect.AreEqual 0, rec.Reversed, "draws whose lower bound is above the upper bound"
+        Expect.IsTrue rec.LowestLower >= 0 And rec.HighestLower <= 1, "the lower bounds of the draws lie between 0 and 1"
+        Dim one As PwGenOptions = PwGenOptions.Alphanumeric
+        one.Alphabet = "Z"
+        one.Length = 1
+        Dim rec2 As New RecordingRandom
+        Set one.RandomSource = rec2
+        Expect.AreEqual "Z", PwGen.Generate(one), "Generate of one character from a pool of one character"
+        Expect.IsTrue rec2.Calls > 0 And rec2.EqualBounds = rec2.Calls, "draws from a pool of one character with equal bounds"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Entropy_DoesNotUseTheSource()
+        Expect.Begin
+        Helpers.Reset
+        Dim rec As New RecordingRandom
+        Dim o As PwGenOptions = PwGenOptions.Complex
+        Set o.RandomSource = rec
+        PwGen.Entropy o
+        Expect.AreEqual 0, rec.Calls, "calls of the source by Entropy"
+        PwGen.Generate o
+        Expect.IsTrue rec.Calls > 0, "calls of the source by Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Clone_SharesTheRandomSource()
+        Expect.Begin
+        Helpers.Reset
+        Dim a As PwGenOptions = PwGenOptions.Alphanumeric
+        Dim rec As New RecordingRandom
+        Set a.RandomSource = rec
+        Dim b As PwGenOptions = a.Clone()
+        Expect.IsTrue b.RandomSource Is a.RandomSource, "the RandomSource of a Clone is the same object as the original's"
+        PwGen.Generate b
+        Expect.IsTrue rec.Calls > 0, "calls of the original's source by Generate on the Clone"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub RandomSource_Nothing_DrawsDifferentResults()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Hex
+        Expect.IsTrue o.RandomSource Is Nothing, "RandomSource of the Hex preset"
+        Dim seen As String = ","
+        Dim i As Long
+        Dim same As Long
+        For i = 1 To 50
+            Dim pw As String = PwGen.Generate(o)
+            If InStr(seen, "," & pw & ",") > 0 Then same = same + 1
+            seen = seen & pw & ","
+        Next
+        Expect.AreEqual 0, same, "128-bit tokens out of 50 that equal an earlier one"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/RecordingRandom.twin b/test/package-tests/tsPwGen/Sources/RecordingRandom.twin
new file mode 100644
index 00000000..0fb8b480
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/RecordingRandom.twin
@@ -0,0 +1,24 @@
+' RecordingRandom: a random source of the test cases that returns the lower bound and records each call:
+' Calls is how many, and Reversed, Lowest and Equal say what the bounds were.
+Class RecordingRandom
+    Implements PwGenRandom
+
+    Public Calls As Long
+    Public Reversed As Long
+    Public LowestLower As Long
+    Public HighestLower As Long
+    Public EqualBounds As Long
+
+    Private Function NextInRange(ByVal lowerBound As Long, ByVal upperBound As Long) As Long Implements PwGenRandom.NextInRange
+        If Calls = 0 Then
+            LowestLower = lowerBound
+            HighestLower = lowerBound
+        End If
+        Calls = Calls + 1
+        If lowerBound > upperBound Then Reversed = Reversed + 1
+        If lowerBound = upperBound Then EqualBounds = EqualBounds + 1
+        If lowerBound < LowestLower Then LowestLower = lowerBound
+        If lowerBound > HighestLower Then HighestLower = lowerBound
+        Return lowerBound
+    End Function
+End Class
diff --git a/test/package-tests/tsPwGen/Sources/RunAll.twin b/test/package-tests/tsPwGen/Sources/RunAll.twin
new file mode 100644
index 00000000..98f9daa4
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/RunAll.twin
@@ -0,0 +1,530 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package tsPwGen, version 1.0.8.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "tsPwGen 1.0.8.0: 129 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        ConsecutiveRepeatTests.DefaultPool_NoTwoEqualCharactersAreNeighbours
+        Expect.EndCase "ConsecutiveRepeatTests.DefaultPool_NoTwoEqualCharactersAreNeighbours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConsecutiveRepeatTests.SmallPool_ResultsHaveNoRepeats
+        Expect.EndCase "ConsecutiveRepeatTests.SmallPool_ResultsHaveNoRepeats", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConsecutiveRepeatTests.SmallPool_LengthThree_AlwaysGeneratesWhenAPasswordExists
+        Expect.EndCase "ConsecutiveRepeatTests.SmallPool_LengthThree_AlwaysGeneratesWhenAPasswordExists", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConsecutiveRepeatTests.SmallPool_LengthFour_AlwaysGeneratesWhenAPasswordExists
+        Expect.EndCase "ConsecutiveRepeatTests.SmallPool_LengthFour_AlwaysGeneratesWhenAPasswordExists", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConsecutiveRepeatTests.SmallPool_WithStartsWithLetter_AlwaysGeneratesWhenAPasswordExists
+        Expect.EndCase "ConsecutiveRepeatTests.SmallPool_WithStartsWithLetter_AlwaysGeneratesWhenAPasswordExists", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConsecutiveRepeatTests.FixedSource_DrawsThatCannotBeArranged_CannotAvoidRepeats
+        Expect.EndCase "ConsecutiveRepeatTests.FixedSource_DrawsThatCannotBeArranged_CannotAvoidRepeats", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ConsecutiveRepeatTests.OneCharacterPool_CannotAvoidRepeats
+        Expect.EndCase "ConsecutiveRepeatTests.OneCharacterPool_CannotAvoidRepeats", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.NextInRange_ReturnsANumberOfTheInterval
+        Expect.EndCase "CryptoSourceTests.NextInRange_ReturnsANumberOfTheInterval", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.NextInRange_EqualBounds_ReturnsThatNumber
+        Expect.EndCase "CryptoSourceTests.NextInRange_EqualBounds_ReturnsThatNumber", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.NextInRange_NegativeAndLargeBounds_StayInTheInterval
+        Expect.EndCase "CryptoSourceTests.NextInRange_NegativeAndLargeBounds_StayInTheInterval", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.NextInRange_ReversedBounds_InvalidRange
+        Expect.EndCase "CryptoSourceTests.NextInRange_ReversedBounds_InvalidRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.NextInRange_ReversedBounds_RaisesNoRunTimeError
+        Expect.EndCase "CryptoSourceTests.NextInRange_ReversedBounds_RaisesNoRunTimeError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.NextInRange_AfterAnEarlierFailure_StillReturnsANumberOfTheInterval
+        Expect.EndCase "CryptoSourceTests.NextInRange_AfterAnEarlierFailure_StillReturnsANumberOfTheInterval", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.NextInRange_AfterClear_ReturnsANumberOfTheInterval
+        Expect.EndCase "CryptoSourceTests.NextInRange_AfterClear_ReturnsANumberOfTheInterval", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.PwGenFunctions_AreNotAffectedByAnEarlierFailure
+        Expect.EndCase "CryptoSourceTests.PwGenFunctions_AreNotAffectedByAnEarlierFailure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        CryptoSourceTests.NewPwGenCryptoSource_CanBeCreatedWithNew
+        Expect.EndCase "CryptoSourceTests.NewPwGenCryptoSource_CanBeCreatedWithNew", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Random_LengthTimesLogTwoOfThePool
+        Expect.EndCase "EntropyTests.Random_LengthTimesLogTwoOfThePool", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Random_RepeatedCharactersOfTheAlphabetCountOnce
+        Expect.EndCase "EntropyTests.Random_RepeatedCharactersOfTheAlphabetCountOnce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Random_RepeatedCharactersOfSpecialCharsAndIncludeCharsCountOnce
+        Expect.EndCase "EntropyTests.Random_RepeatedCharactersOfSpecialCharsAndIncludeCharsCountOnce", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Random_RemovedCharactersDoNotCount
+        Expect.EndCase "EntropyTests.Random_RemovedCharactersDoNotCount", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Random_ConstraintsDoNotLowerTheFigure
+        Expect.EndCase "EntropyTests.Random_ConstraintsDoNotLowerTheFigure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Wordlist_WordCountTimesLogTwoOfTheListSize
+        Expect.EndCase "EntropyTests.Wordlist_WordCountTimesLogTwoOfTheListSize", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Wordlist_UniqueWords_SumOfLogTwoOfTheWordsLeft
+        Expect.EndCase "EntropyTests.Wordlist_UniqueWords_SumOfLogTwoOfTheWordsLeft", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Wordlist_SeparatorAndCapitalizeAddNothing
+        Expect.EndCase "EntropyTests.Wordlist_SeparatorAndCapitalizeAddNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Entropy_InvalidRecipe_ReturnsZeroAndSetsTheError
+        Expect.EndCase "EntropyTests.Entropy_InvalidRecipe_ReturnsZeroAndSetsTheError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Entropy_ClearsTheLastErrorWhenItStarts
+        Expect.EndCase "EntropyTests.Entropy_ClearsTheLastErrorWhenItStarts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Entropy_DoesNotChangeTheRecipe
+        Expect.EndCase "EntropyTests.Entropy_DoesNotChangeTheRecipe", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EntropyTests.Entropy_DoesNotFindTheErrorsThatArisePerDraw
+        Expect.EndCase "EntropyTests.Entropy_DoesNotFindTheErrorsThatArisePerDraw", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.Members_AfterAFailedGenerate
+        Expect.EndCase "ErrorTests.Members_AfterAFailedGenerate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.Members_WhenThereIsNoError_AreEmpty
+        Expect.EndCase "ErrorTests.Members_WhenThereIsNoError_AreEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.FailedFunctions_RaiseNoRunTimeError
+        Expect.EndCase "ErrorTests.FailedFunctions_RaiseNoRunTimeError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.EveryFunction_ClearsTheLastErrorWhenItStarts
+        Expect.EndCase "ErrorTests.EveryFunction_ClearsTheLastErrorWhenItStarts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.Clear_EmptiesTheLastError
+        Expect.EndCase "ErrorTests.Clear_EmptiesTheLastError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.Snapshot_KeepsTheErrorOfTheTimeOfTheCall
+        Expect.EndCase "ErrorTests.Snapshot_KeepsTheErrorOfTheTimeOfTheCall", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.Snapshot_WithNoError_IsEmpty
+        Expect.EndCase "ErrorTests.Snapshot_WithNoError_IsEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.NewPwGenError_ReportsTheSameError
+        Expect.EndCase "ErrorTests.NewPwGenError_ReportsTheSameError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.TryGenerate_Success_ReturnsTrueAndThePassword
+        Expect.EndCase "ErrorTests.TryGenerate_Success_ReturnsTrueAndThePassword", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.TryGenerate_Failure_ReturnsFalseAndAnEmptyString
+        Expect.EndCase "ErrorTests.TryGenerate_Failure_ReturnsFalseAndAnEmptyString", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ErrorTests.UnusedCodes_NoRecipeSetsEmptyCharsetOrEmptyWordlist
+        Expect.EndCase "ErrorTests.UnusedCodes_NoRecipeSetsEmptyCharsetOrEmptyWordlist", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FactoryTests.PredeclaredObject_AssigningAProperty_Raises5
+        Expect.EndCase "FactoryTests.PredeclaredObject_AssigningAProperty_Raises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FactoryTests.PredeclaredObject_ReadingAProperty_ReturnsTheEmptyValueOfTheType
+        Expect.EndCase "FactoryTests.PredeclaredObject_ReadingAProperty_ReturnsTheEmptyValueOfTheType", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FactoryTests.New_CreatesARecipeWithEveryPropertyEmpty
+        Expect.EndCase "FactoryTests.New_CreatesARecipeWithEveryPropertyEmpty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FactoryTests.Clone_CopiesEveryProperty
+        Expect.EndCase "FactoryTests.Clone_CopiesEveryProperty", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FactoryTests.Clone_IsIndependentOfTheOriginal
+        Expect.EndCase "FactoryTests.Clone_IsIndependentOfTheOriginal", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FactoryTests.Setters_CheckNothingWhenAValueIsSet
+        Expect.EndCase "FactoryTests.Setters_CheckNothingWhenAValueIsSet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FactoryTests.Generate_DoesNotChangeTheRecipe
+        Expect.EndCase "FactoryTests.Generate_DoesNotChangeTheRecipe", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackageCodeTests.PackageTests_RunAll_NoCheckFails
+        Expect.EndCase "PackageCodeTests.PackageTests_RunAll_NoCheckFails", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackageCodeTests.PackageTests_FailedCheckIsCounted
+        Expect.EndCase "PackageCodeTests.PackageTests_FailedCheckIsCounted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackageCodeTests.SetContinueOnFail_False_NoCheckRunsAfterTheFirstFailure
+        Expect.EndCase "PackageCodeTests.SetContinueOnFail_False_NoCheckRunsAfterTheFirstFailure", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PackageCodeTests.InternalModules_CanBeNamedByAProject
+        Expect.EndCase "PackageCodeTests.InternalModules_CanBeNamedByAProject", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Alphanumeric_Properties
+        Expect.EndCase "PresetTests.Alphanumeric_Properties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Alphanumeric_Results_SixteenCharsFromFiftySevenWithAllThreeClasses
+        Expect.EndCase "PresetTests.Alphanumeric_Results_SixteenCharsFromFiftySevenWithAllThreeClasses", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Complex_Properties
+        Expect.EndCase "PresetTests.Complex_Properties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Complex_Results_SixteenCharsFromSeventySevenWithAllFourClasses
+        Expect.EndCase "PresetTests.Complex_Results_SixteenCharsFromSeventySevenWithAllFourClasses", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Passphrase_Properties
+        Expect.EndCase "PresetTests.Passphrase_Properties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Passphrase_Results_FiveEnglishWordsJoinedByHyphens
+        Expect.EndCase "PresetTests.Passphrase_Results_FiveEnglishWordsJoinedByHyphens", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Pin_Properties
+        Expect.EndCase "PresetTests.Pin_Properties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Pin_Results_SixDigitsWithTheLookAlikesKept
+        Expect.EndCase "PresetTests.Pin_Results_SixDigitsWithTheLookAlikesKept", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Hex_Results_ThirtyTwoLowercaseHexDigits
+        Expect.EndCase "PresetTests.Hex_Results_ThirtyTwoLowercaseHexDigits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Presets_ReturnANewRecipeEachTime
+        Expect.EndCase "PresetTests.Presets_ReturnANewRecipeEachTime", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PresetTests.Nothing_MeansANewAlphanumericRecipe
+        Expect.EndCase "PresetTests.Nothing_MeansANewAlphanumericRecipe", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Alphabet_IsTheWholePool
+        Expect.EndCase "RandomModeTests.Alphabet_IsTheWholePool", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Alphabet_IgnoresTheClassSettingsIncludeAndExclude
+        Expect.EndCase "RandomModeTests.Alphabet_IgnoresTheClassSettingsIncludeAndExclude", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Alphabet_IgnoresTheLookAlikes
+        Expect.EndCase "RandomModeTests.Alphabet_IgnoresTheLookAlikes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Alphabet_RepeatedCharactersAreOneCharacter
+        Expect.EndCase "RandomModeTests.Alphabet_RepeatedCharactersAreOneCharacter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Alphabet_CharactersAreComparedByCode
+        Expect.EndCase "RandomModeTests.Alphabet_CharactersAreComparedByCode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Alphabet_SurrogatePairIsTwoCharacters
+        Expect.EndCase "RandomModeTests.Alphabet_SurrogatePairIsTwoCharacters", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Classes_UppercaseOnly
+        Expect.EndCase "RandomModeTests.Classes_UppercaseOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Classes_LowercaseOnly
+        Expect.EndCase "RandomModeTests.Classes_LowercaseOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Classes_DigitsOnly
+        Expect.EndCase "RandomModeTests.Classes_DigitsOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Classes_SpecialCharactersOnly
+        Expect.EndCase "RandomModeTests.Classes_SpecialCharactersOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Classes_CustomSpecialCharsReplaceTheDefault
+        Expect.EndCase "RandomModeTests.Classes_CustomSpecialCharsReplaceTheDefault", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Classes_AllFourTogether
+        Expect.EndCase "RandomModeTests.Classes_AllFourTogether", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.IsAmbiguousExcluded_False_KeepsTheLookAlikes
+        Expect.EndCase "RandomModeTests.IsAmbiguousExcluded_False_KeepsTheLookAlikes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.AmbiguousChars_CustomSetIsRemoved
+        Expect.EndCase "RandomModeTests.AmbiguousChars_CustomSetIsRemoved", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.ExcludeChars_AreRemovedFromTheClasses
+        Expect.EndCase "RandomModeTests.ExcludeChars_AreRemovedFromTheClasses", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.ExcludeChars_AClassWithNoCharacterLeft_EmptyClass
+        Expect.EndCase "RandomModeTests.ExcludeChars_AClassWithNoCharacterLeft_EmptyClass", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.IncludeChars_AddCharactersToThePool
+        Expect.EndCase "RandomModeTests.IncludeChars_AddCharactersToThePool", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.IncludeChars_AreFilteredByExcludeChars
+        Expect.EndCase "RandomModeTests.IncludeChars_AreFilteredByExcludeChars", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.IncludeChars_AreFilteredByTheLookAlikes
+        Expect.EndCase "RandomModeTests.IncludeChars_AreFilteredByTheLookAlikes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.IncludeChars_AlreadyInThePoolAreNotAddedTwice
+        Expect.EndCase "RandomModeTests.IncludeChars_AlreadyInThePoolAreNotAddedTwice", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.MinPerClass_Default_EveryClassIsInEveryResult
+        Expect.EndCase "RandomModeTests.MinPerClass_Default_EveryClassIsInEveryResult", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.MinPerClass_Three_ThreeOfEachClass
+        Expect.EndCase "RandomModeTests.MinPerClass_Three_ThreeOfEachClass", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.MinPerClass_Zero_NoGuarantee
+        Expect.EndCase "RandomModeTests.MinPerClass_Zero_NoGuarantee", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.MinPerClass_Negative_InvalidMinPerClass
+        Expect.EndCase "RandomModeTests.MinPerClass_Negative_InvalidMinPerClass", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.MinPerClass_LengthBelowMinPerClassTimesClasses_LengthTooShort
+        Expect.EndCase "RandomModeTests.MinPerClass_LengthBelowMinPerClassTimesClasses_LengthTooShort", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.MinPerClass_IncludeCharsBelongToNoClass
+        Expect.EndCase "RandomModeTests.MinPerClass_IncludeCharsBelongToNoClass", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.StartsWithLetter_TheFirstCharacterIsAnAsciiLetter
+        Expect.EndCase "RandomModeTests.StartsWithLetter_TheFirstCharacterIsAnAsciiLetter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.StartsWithLetter_ClassGuaranteesStillHold
+        Expect.EndCase "RandomModeTests.StartsWithLetter_ClassGuaranteesStillHold", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.StartsWithLetter_AppliesToTheAlphabet
+        Expect.EndCase "RandomModeTests.StartsWithLetter_AppliesToTheAlphabet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.StartsWithLetter_PoolWithoutALetter_CannotStartWithLetter
+        Expect.EndCase "RandomModeTests.StartsWithLetter_PoolWithoutALetter_CannotStartWithLetter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Length_Limits
+        Expect.EndCase "RandomModeTests.Length_Limits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Length_IsNotCheckedWhenItIsSet
+        Expect.EndCase "RandomModeTests.Length_IsNotCheckedWhenItIsSet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.NoCharset_NoClassAndNoAlphabet
+        Expect.EndCase "RandomModeTests.NoCharset_NoClassAndNoAlphabet", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.Mode_NotAMember_InvalidMode
+        Expect.EndCase "RandomModeTests.Mode_NotAMember_InvalidMode", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.RandomMode_DoesNotReadTheWordlistProperties
+        Expect.EndCase "RandomModeTests.RandomMode_DoesNotReadTheWordlistProperties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomModeTests.SeveralFaults_TheFirstFoundIsReported
+        Expect.EndCase "RandomModeTests.SeveralFaults_TheFirstFoundIsReported", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomSourceTests.LowestRandom_RandomMode_DrawsTheFirstCharacterOfThePool
+        Expect.EndCase "RandomSourceTests.LowestRandom_RandomMode_DrawsTheFirstCharacterOfThePool", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomSourceTests.LowestRandom_WordlistMode_DrawsTheFirstWordLeft
+        Expect.EndCase "RandomSourceTests.LowestRandom_WordlistMode_DrawsTheFirstWordLeft", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomSourceTests.OutOfRangeSource_RngFailed
+        Expect.EndCase "RandomSourceTests.OutOfRangeSource_RngFailed", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomSourceTests.RaisingSource_TheErrorReachesTheCaller
+        Expect.EndCase "RandomSourceTests.RaisingSource_TheErrorReachesTheCaller", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomSourceTests.Draws_LowerBoundIsZeroOrOneAndNeverAboveTheUpperBound
+        Expect.EndCase "RandomSourceTests.Draws_LowerBoundIsZeroOrOneAndNeverAboveTheUpperBound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomSourceTests.Entropy_DoesNotUseTheSource
+        Expect.EndCase "RandomSourceTests.Entropy_DoesNotUseTheSource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomSourceTests.Clone_SharesTheRandomSource
+        Expect.EndCase "RandomSourceTests.Clone_SharesTheRandomSource", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        RandomSourceTests.RandomSource_Nothing_DrawsDifferentResults
+        Expect.EndCase "RandomSourceTests.RandomSource_Nothing_DrawsDifferentResults", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.BuiltInWordCount_BothListsHave8192Words
+        Expect.EndCase "WordlistTests.BuiltInWordCount_BothListsHave8192Words", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.BuiltInWordCount_NotAList_InvalidWordlist
+        Expect.EndCase "WordlistTests.BuiltInWordCount_NotAList_InvalidWordlist", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.BuiltInWord_FirstAndLastWordsOfBothLists
+        Expect.EndCase "WordlistTests.BuiltInWord_FirstAndLastWordsOfBothLists", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.BuiltInWord_IndexOutsideTheList_IndexOutOfRange
+        Expect.EndCase "WordlistTests.BuiltInWord_IndexOutsideTheList_IndexOutOfRange", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.BuiltInWord_NotAList_InvalidWordlist
+        Expect.EndCase "WordlistTests.BuiltInWord_NotAList_InvalidWordlist", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.BuiltInLists_NoWordTwiceAndOnlyLettersAToZ
+        Expect.EndCase "WordlistTests.BuiltInLists_NoWordTwiceAndOnlyLettersAToZ", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.Passphrase_GermanList
+        Expect.EndCase "WordlistTests.Passphrase_GermanList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.WordCount_Limits
+        Expect.EndCase "WordlistTests.WordCount_Limits", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.Wordlist_NotAMember_InvalidWordlist
+        Expect.EndCase "WordlistTests.Wordlist_NotAMember_InvalidWordlist", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.Separator_AnyStringIncludingAnEmptyOne
+        Expect.EndCase "WordlistTests.Separator_AnyStringIncludingAnEmptyOne", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.Capitalize_TheFirstCharacterOfEachWordIsUppercase
+        Expect.EndCase "WordlistTests.Capitalize_TheFirstCharacterOfEachWordIsUppercase", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.UniqueWords_NoWordTwice
+        Expect.EndCase "WordlistTests.UniqueWords_NoWordTwice", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.UniqueWords_False_WordsCanRepeat
+        Expect.EndCase "WordlistTests.UniqueWords_False_WordsCanRepeat", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.UniqueWords_MoreWordsThanTheList_NotEnoughWords
+        Expect.EndCase "WordlistTests.UniqueWords_MoreWordsThanTheList_NotEnoughWords", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.CustomWords_ReplaceTheBuiltInList
+        Expect.EndCase "WordlistTests.CustomWords_ReplaceTheBuiltInList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.CustomWords_OneWordRepeats
+        Expect.EndCase "WordlistTests.CustomWords_OneWordRepeats", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.CustomWords_AnyLowerBound
+        Expect.EndCase "WordlistTests.CustomWords_AnyLowerBound", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.CustomWords_AreCopiedWhenAssignedAndWhenRead
+        Expect.EndCase "WordlistTests.CustomWords_AreCopiedWhenAssignedAndWhenRead", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.CustomWords_EmptyArray_BuiltInListAgain
+        Expect.EndCase "WordlistTests.CustomWords_EmptyArray_BuiltInListAgain", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.CustomWords_EmptyWord_EmptyWord
+        Expect.EndCase "WordlistTests.CustomWords_EmptyWord_EmptyWord", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.CustomWords_EqualWords_DuplicateWord
+        Expect.EndCase "WordlistTests.CustomWords_EqualWords_DuplicateWord", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.CustomWords_WordsThatDifferInCaseAreDifferent
+        Expect.EndCase "WordlistTests.CustomWords_WordsThatDifferInCaseAreDifferent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.WordlistMode_DoesNotReadTheRandomModeProperties
+        Expect.EndCase "WordlistTests.WordlistMode_DoesNotReadTheRandomModeProperties", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        WordlistTests.Draws_BoundsAreZeroToTheWordsLeftMinusOne
+        Expect.EndCase "WordlistTests.Draws_BoundsAreZeroToTheWordsLeftMinusOne", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/Sources/WordlistTests.twin b/test/package-tests/tsPwGen/Sources/WordlistTests.twin
new file mode 100644
index 00000000..817d2a98
--- /dev/null
+++ b/test/package-tests/tsPwGen/Sources/WordlistTests.twin
@@ -0,0 +1,412 @@
+' tsPwGen: wordlist mode and the built-in word lists. A passphrase is WordCount words, drawn from the
+' built-in list or from CustomWords and joined with WordSeparator; BuiltInWord and BuiltInWordCount
+' read the two lists of 8192 words.
+[TestFixture]
+Module WordlistTests
+
+    ' A recipe for a passphrase of Count words from the custom list w1, w2, ... of Size words.
+    Private Function Phrase(ByVal Size As Long, ByVal Count As Long) As PwGenOptions
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        o.CustomWords = Helpers.WordList(Size)
+        o.WordCount = Count
+        Return o
+    End Function
+
+    [TestCase]
+    Public Sub BuiltInWordCount_BothListsHave8192Words()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual 8192, PwGen.BuiltInWordCount(pgwEnglish), "BuiltInWordCount(pgwEnglish)"
+        Helpers.ExpectNoError "BuiltInWordCount(pgwEnglish)"
+        Expect.AreEqual 8192, PwGen.BuiltInWordCount(pgwGerman), "BuiltInWordCount(pgwGerman)"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BuiltInWordCount_NotAList_InvalidWordlist()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual 0, PwGen.BuiltInWordCount(99), "BuiltInWordCount(99)"
+        Helpers.ExpectError "BuiltInWordCount(99)", "InvalidWordlist", "Wordlist is not a known built-in list.", "PwGen.BuiltInWordCount"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BuiltInWord_FirstAndLastWordsOfBothLists()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual "abandon", PwGen.BuiltInWord(pgwEnglish, 0), "BuiltInWord(pgwEnglish, 0)"
+        Expect.AreEqual "zurich", PwGen.BuiltInWord(pgwEnglish, 8191), "BuiltInWord(pgwEnglish, 8191)"
+        Expect.AreEqual "aal", PwGen.BuiltInWord(pgwGerman, 0), "BuiltInWord(pgwGerman, 0)"
+        Expect.AreEqual "zypresse", PwGen.BuiltInWord(pgwGerman, 8191), "BuiltInWord(pgwGerman, 8191)"
+        Helpers.ExpectNoError "BuiltInWord of valid indexes"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BuiltInWord_IndexOutsideTheList_IndexOutOfRange()
+        Expect.Begin
+        Helpers.Reset
+        Dim index As Variant
+        For Each index In Array(-1, 8192, 100000)
+            Expect.AreEqual "", PwGen.BuiltInWord(pgwEnglish, index), "BuiltInWord(pgwEnglish, " & index & ")"
+            Helpers.ExpectError "BuiltInWord index " & index, "IndexOutOfRange", "word index is outside the list.", "PwGen.BuiltInWord"
+        Next
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BuiltInWord_NotAList_InvalidWordlist()
+        Expect.Begin
+        Helpers.Reset
+        Expect.AreEqual "", PwGen.BuiltInWord(99, 0), "BuiltInWord(99, 0)"
+        Helpers.ExpectError "BuiltInWord(99, 0)", "InvalidWordlist", "Wordlist is not a known built-in list.", "PwGen.BuiltInWord"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BuiltInLists_NoWordTwiceAndOnlyLettersAToZ()
+        Expect.Begin
+        Helpers.Reset
+        CheckList pgwEnglish, "English"
+        CheckList pgwGerman, "German"
+        Expect.Done
+    End Sub
+
+    ' Checks that a built-in list has 8192 words, none twice, each of the letters a to z only.
+    Private Sub CheckList(ByVal List As PwGen.ePwGenWordlist, ByVal Name As String)
+        Dim words() As String = PwGenWords.List(List, "test")
+        Expect.AreEqual 8191, UBound(words), "last index of the " & Name & " list"
+        Dim seen As New Collection
+        Dim i As Long
+        Dim twice As Long
+        Dim notLetters As Long
+        Dim w As String
+        On Error Resume Next
+        For i = 0 To UBound(words)
+            w = words(i)
+            If Not Helpers.AllFrom(w, Helpers.LowerChars) Or Len(w) = 0 Then notLetters = notLetters + 1
+            Err.Clear
+            seen.Add w, w
+            If Err.Number <> 0 Then twice = twice + 1
+        Next
+        On Error GoTo 0
+        Expect.AreEqual 0, twice, "words that appear twice in the " & Name & " list"
+        Expect.AreEqual 0, notLetters, "words of the " & Name & " list that are empty or have a character other than a to z"
+    End Sub
+
+    [TestCase]
+    Public Sub Passphrase_GermanList()
+        Expect.Begin
+        Helpers.Reset
+        Dim german As Collection = Helpers.WordSet(pgwGerman)
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        o.Wordlist = pgwGerman
+        Dim i As Long
+        Dim j As Long
+        Dim bad As Long
+        For i = 1 To 40
+            Dim parts() As String = Split(PwGen.Generate(o), "-")
+            If UBound(parts) <> 4 Then
+                bad = bad + 1
+            Else
+                For j = 0 To 4
+                    If Not Helpers.IsMember(german, parts(j)) Then bad = bad + 1
+                Next
+            End If
+        Next
+        Expect.AreEqual 0, bad, "passphrases out of 40 that are not five German words joined by hyphens"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WordCount_Limits()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        o.WordCount = 256
+        Expect.AreEqual 255, UBound(Split(PwGen.Generate(o), "-")), "separators in a passphrase of WordCount 256"
+        Helpers.ExpectNoError "WordCount 256"
+        o.WordCount = 1
+        Expect.AreEqual 0, UBound(Split(PwGen.Generate(o), "-")), "separators in a passphrase of WordCount 1"
+        Dim bad As Variant
+        For Each bad In Array(0, -1, 257)
+            o.WordCount = bad
+            Expect.AreEqual "", PwGen.Generate(o), "Generate with WordCount " & bad
+            Helpers.ExpectError "WordCount " & bad, "InvalidWordCount", "WordCount must be between 1 and 256.", "PwGen.Generate"
+        Next
+        Expect.AreEqual 0#, PwGen.Entropy(o), "Entropy with WordCount 257"
+        Helpers.ExpectError "Entropy with WordCount 257", "InvalidWordCount", "WordCount must be between 1 and 256.", "PwGen.Entropy"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Wordlist_NotAMember_InvalidWordlist()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        o.Wordlist = 5
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with Wordlist 5"
+        Helpers.ExpectError "Wordlist 5", "InvalidWordlist", "Wordlist is not a known built-in list.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Separator_AnyStringIncludingAnEmptyOne()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Phrase(3, 3)
+        o.HasUniqueWords = True
+        o.WordSeparator = " :: "
+        Dim parts() As String = Split(PwGen.Generate(o), " :: ")
+        Expect.AreEqual 2, UBound(parts), "separators in a passphrase of 3 words with the separator "" :: """
+        o.WordSeparator = ""
+        Dim pw As String = PwGen.Generate(o)
+        Expect.AreEqual 6, Len(pw), "Len of three of the words w1 to w3 joined with an empty separator"
+        Expect.IsTrue Helpers.AllFrom(pw, "w123"), "characters of a passphrase joined with an empty separator"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Capitalize_TheFirstCharacterOfEachWordIsUppercase()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        o.Capitalize = True
+        Dim english As Collection = Helpers.WordSet(pgwEnglish)
+        Dim i As Long
+        Dim j As Long
+        Dim bad As Long
+        For i = 1 To 40
+            Dim parts() As String = Split(PwGen.Generate(o), "-")
+            For j = 0 To UBound(parts)
+                Dim lowered As String = LCase$(Left$(parts(j), 1)) & Mid$(parts(j), 2)
+                If Left$(parts(j), 1) <> UCase$(Left$(parts(j), 1)) Or Not Helpers.IsMember(english, lowered) Then bad = bad + 1
+            Next
+        Next
+        Expect.AreEqual 0, bad, "words out of 200 whose first character is not uppercase or whose rest differs from a word of the list"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UniqueWords_NoWordTwice()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Phrase(12, 12)
+        o.HasUniqueWords = True
+        Dim i As Long
+        Dim j As Long
+        Dim bad As Long
+        For i = 1 To Helpers.Draws
+            Dim parts() As String = Split(PwGen.Generate(o), "-")
+            Dim seen As String = "-"
+            For j = 0 To UBound(parts)
+                If InStr(seen, "-" & parts(j) & "-") > 0 Then bad = bad + 1
+                seen = seen & parts(j) & "-"
+            Next
+            If UBound(parts) <> 11 Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "words out of " & Helpers.Draws & " passphrases that repeat a word, or passphrases that are not 12 words, from a list of 12 with HasUniqueWords"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UniqueWords_False_WordsCanRepeat()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Phrase(2, 12)
+        Dim repeated As Long
+        Dim i As Long
+        For i = 1 To 20
+            Dim parts() As String = Split(PwGen.Generate(o), "-")
+            If parts(0) = parts(1) Or parts(1) = parts(2) Or parts(2) = parts(3) Then repeated = repeated + 1
+        Next
+        Expect.IsTrue repeated > 0, "passphrases of 12 words from a list of 2 with a repeated word, out of 20"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub UniqueWords_MoreWordsThanTheList_NotEnoughWords()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Phrase(2, 3)
+        o.HasUniqueWords = True
+        Expect.AreEqual "", PwGen.Generate(o), "Generate of 3 different words from a list of 2"
+        Helpers.ExpectError "3 different words from 2", "NotEnoughWords", "WordCount is larger than the word list.", "PwGen.Generate"
+        Expect.AreEqual 0#, PwGen.Entropy(o), "Entropy of 3 different words from a list of 2"
+        Helpers.ExpectError "Entropy of 3 different words from 2", "NotEnoughWords", "WordCount is larger than the word list.", "PwGen.Entropy"
+        o.HasUniqueWords = False
+        Expect.AreEqual 2, UBound(Split(PwGen.Generate(o), "-")), "separators in 3 words from a list of 2 without HasUniqueWords"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomWords_ReplaceTheBuiltInList()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Phrase(5, 8)
+        Dim all As String = "-"
+        Dim i As Long
+        For i = 1 To 20
+            all = all & PwGen.Generate(o) & "-"
+        Next
+        Dim parts() As String = Split(all, "-")
+        Dim bad As Long
+        For i = 1 To UBound(parts) - 1
+            If InStr("-w1-w2-w3-w4-w5-", "-" & parts(i) & "-") = 0 Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "words that are not w1 to w5 in passphrases from the custom list w1 to w5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomWords_OneWordRepeats()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        Dim words(0 To 0) As String
+        words(0) = "tango"
+        o.CustomWords = words
+        o.WordCount = 3
+        o.WordSeparator = "+"
+        o.Capitalize = True
+        Expect.AreEqual "Tango+Tango+Tango", PwGen.Generate(o), "Generate of 3 words from the custom list tango with the separator + and Capitalize"
+        Helpers.ExpectNear 0, PwGen.Entropy(o), "Entropy of a custom list of one word"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomWords_AnyLowerBound()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        Dim words(5 To 7) As String
+        words(5) = "red"
+        words(6) = "green"
+        words(7) = "blue"
+        o.CustomWords = words
+        o.WordCount = 3
+        o.HasUniqueWords = True
+        Dim copy() As String = o.CustomWords
+        Expect.AreEqual 0, LBound(copy), "LBound of CustomWords read back"
+        Expect.AreEqual 2, UBound(copy), "UBound of CustomWords read back"
+        Expect.AreEqual "red", copy(0), "first word read back"
+        Expect.AreEqual "blue", copy(2), "last word read back"
+        Dim parts() As String = Split(PwGen.Generate(o), "-")
+        Expect.AreEqual 2, UBound(parts), "separators in a passphrase from three custom words"
+        Expect.IsTrue InStr("-red-green-blue-", "-" & parts(0) & "-") > 0 And InStr("-red-green-blue-", "-" & parts(1) & "-") > 0 And InStr("-red-green-blue-", "-" & parts(2) & "-") > 0, "words of the passphrase from the custom list of 3 with lower bound 5"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomWords_AreCopiedWhenAssignedAndWhenRead()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        Dim words() As String = Helpers.WordList(3)
+        o.CustomWords = words
+        words(0) = "changed"
+        Dim back() As String = o.CustomWords
+        Expect.AreEqual "w1", back(0), "first word read back after the assigned array was changed"
+        back(1) = "changed"
+        Dim again() As String = o.CustomWords
+        Expect.AreEqual "w2", again(1), "second word read back after the array that was read was changed"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomWords_EmptyArray_BuiltInListAgain()
+        Expect.Begin
+        Helpers.Reset
+        Dim english As Collection = Helpers.WordSet(pgwEnglish)
+        Dim o As PwGenOptions = Phrase(3, 5)
+        Dim none() As String
+        o.CustomWords = none
+        Dim parts() As String = Split(PwGen.Generate(o), "-")
+        Dim j As Long
+        Dim bad As Long
+        For j = 0 To UBound(parts)
+            If Not Helpers.IsMember(english, parts(j)) Then bad = bad + 1
+        Next
+        Expect.AreEqual 0, bad, "words that are not in the English list after CustomWords was assigned an unallocated array"
+        Dim o2 As PwGenOptions = Phrase(3, 5)
+        Dim blank() As String = Split("", ",")
+        o2.CustomWords = blank
+        Helpers.ExpectNear 5 * 13, PwGen.Entropy(o2), "Entropy after CustomWords was assigned an empty array"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomWords_EmptyWord_EmptyWord()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Phrase(3, 3)
+        Dim words() As String = Helpers.WordList(3)
+        words(1) = ""
+        o.CustomWords = words
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with an empty word in CustomWords"
+        Helpers.ExpectError "empty word", "EmptyWord", "CustomWords contains an empty string.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomWords_EqualWords_DuplicateWord()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = Phrase(3, 3)
+        Dim words() As String = Helpers.WordList(3)
+        words(2) = "w1"
+        o.CustomWords = words
+        Expect.AreEqual "", PwGen.Generate(o), "Generate with the word w1 twice in CustomWords"
+        Helpers.ExpectError "duplicate word", "DuplicateWord", "CustomWords contains a duplicate word.", "PwGen.Generate"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub CustomWords_WordsThatDifferInCaseAreDifferent()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        Dim words(0 To 1) As String
+        words(0) = "alpha"
+        words(1) = "Alpha"
+        o.CustomWords = words
+        o.WordCount = 2
+        o.HasUniqueWords = True
+        Dim pw As String = PwGen.Generate(o)
+        Helpers.ExpectNoError "alpha and Alpha in CustomWords"
+        Expect.IsTrue pw = "alpha-Alpha" Or pw = "Alpha-alpha", "the two words alpha and Alpha, each once, are the passphrase"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WordlistMode_DoesNotReadTheRandomModeProperties()
+        Expect.Begin
+        Helpers.Reset
+        Dim o As PwGenOptions = PwGenOptions.Passphrase
+        o.Length = 0
+        o.MinPerClass = -1
+        o.HasUpperCase = False
+        o.HasLowerCase = False
+        o.HasDigits = False
+        Expect.AreEqual 4, UBound(Split(PwGen.Generate(o), "-")), "separators in a passphrase when the random-mode properties cannot be used"
+        Helpers.ExpectNoError "wordlist mode with random-mode properties that cannot be used"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Draws_BoundsAreZeroToTheWordsLeftMinusOne()
+        Expect.Begin
+        Helpers.Reset
+        Dim rec As New RecordingRandom
+        Dim o As PwGenOptions = Phrase(10, 4)
+        o.HasUniqueWords = True
+        Set o.RandomSource = rec
+        PwGen.Generate o
+        Expect.AreEqual 4, rec.Calls, "calls of the random source for 4 words"
+        Expect.AreEqual 0, rec.HighestLower, "highest lower bound of the draws of words"
+        Expect.AreEqual 0, rec.Reversed, "draws whose lower bound is above the upper bound"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/compile/CompileTests.twin b/test/package-tests/tsPwGen/compile/CompileTests.twin
new file mode 100644
index 00000000..30e35e06
--- /dev/null
+++ b/test/package-tests/tsPwGen/compile/CompileTests.twin
@@ -0,0 +1,17 @@
+' tsPwGen: what the compiler refuses. Each line ends in a comment ' CASE <Name>: <code>.
+Module CompileTests
+
+    Public Sub Entropy_WithoutTheModuleName()
+        Debug.Print CLng(Entropy()) ' CASE UnqualifiedEntropy: TB5073
+    End Sub
+
+    Public Sub Generate_WithoutTheModuleName()
+        Debug.Print Generate() ' CASE UnqualifiedGenerate: TB5073
+    End Sub
+
+    Public Sub NextInRange_CalledOnTheClassVariable()
+        Dim s As New PwGenCryptoSource
+        Debug.Print s.NextInRange(1, 6) ' CASE PrivateNextInRange: TB5027
+    End Sub
+
+End Module
diff --git a/test/package-tests/tsPwGen/expect.json b/test/package-tests/tsPwGen/expect.json
new file mode 100644
index 00000000..7124d990
--- /dev/null
+++ b/test/package-tests/tsPwGen/expect.json
@@ -0,0 +1,20 @@
+{
+  "version": "1.0.8.0",
+  "cases": {
+    "ConsecutiveRepeatTests.SmallPool_LengthThree_AlwaysGeneratesWhenAPasswordExists": {
+      "fails": "1 of 1 checks failed: no call of 400 returns an empty string for the pool AB, Length 3 and HasNoConsecutiveRepeats, which has the valid passwords ABA and BAB: expected True, got False"
+    },
+    "ConsecutiveRepeatTests.SmallPool_LengthFour_AlwaysGeneratesWhenAPasswordExists": {
+      "fails": "1 of 1 checks failed: no call of 400 returns an empty string for the pool AB, Length 4 and HasNoConsecutiveRepeats, which has the valid passwords ABAB and BABA: expected True, got False"
+    },
+    "ConsecutiveRepeatTests.SmallPool_WithStartsWithLetter_AlwaysGeneratesWhenAPasswordExists": {
+      "fails": "1 of 1 checks failed: no call of 400 returns an empty string for the pool AB, Length 3, StartsWithLetter and HasNoConsecutiveRepeats: expected True, got False"
+    },
+    "CryptoSourceTests.NextInRange_AfterAnEarlierFailure_StillReturnsANumberOfTheInterval": {
+      "fails": "1 of 3 checks failed: NextInRange(1, 6) after PwGen.Generate failed with InvalidLength returns a number from 1 to 6, got 0: expected True, got False"
+    },
+    "PackageCodeTests.SetContinueOnFail_False_NoCheckRunsAfterTheFirstFailure": {
+      "fails": "1 of 1 checks failed: Tests.FailCount after two failed checks with SetContinueOnFail False (the run stops at the first): expected 1, got 2"
+    }
+  }
+}
diff --git a/test/package-tests/xCalendar/Sources/ColourTests.twin b/test/package-tests/xCalendar/Sources/ColourTests.twin
new file mode 100644
index 00000000..84e38110
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/ColourTests.twin
@@ -0,0 +1,314 @@
+' ColourTests: the colours the control draws, read from its pixels. The text is drawn in fonts
+' large enough that the middle of a stroke is the colour of the text, whatever smoothing does at
+' its edges. The form is shown wholly transparent (Rig.ShowHidden).
+[TestFixture]
+Module ColourTests
+
+    Private Const NoForm As String = "the form could not be made transparent, so the control cannot paint"
+
+    [TestCase]
+    Public Sub TitleFontColor_ColoursTheTitle()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.TitleFontColor = RGB(255, 0, 255)
+            Expect.IsTrue Rig.CountAll(f, RGB(255, 0, 255)) > 0, "the pixels of the colour given to TitleFontColor"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TitleFontColor_DefaultColoursTheTitle()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Expect.IsTrue Rig.CountAll(f, f.Cal.TitleFontColor) > 0, "the pixels of the default TitleFontColor, orange"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DayFontColor_ColoursTheDayNames()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.DayFont.Size = 18
+            f.Cal.DayFontColor = RGB(0, 255, 0)
+            Expect.IsTrue Rig.CountAll(f, RGB(0, 255, 0)) > 0, "the pixels of the colour given to DayFontColor"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridFontColor_ColoursTheDayNumbers()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.GridFont.Size = 18
+            f.Cal.GridFontColor = RGB(0, 0, 255)
+            Expect.IsTrue Rig.CountAll(f, RGB(0, 0, 255)) > 0, "the pixels of the colour given to GridFontColor"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridFont_DaysOfTheMonthsBeforeAndAfterAreGrey()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Rig.Rebase f, #10/15/2026#
+            f.Cal.GridFont.Size = 18
+            f.Cal.GridFontColor = RGB(0, 0, 255)
+            Expect.IsTrue Rig.CountAll(f, &HAAAAAA) > 0, "the pixels of grey (&HAAAAAA) for the days of September and November in the grid for October 2026"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridLinesColor_Flat_RGBValueIsDrawnAsGiven()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.GridCellEffect = GridCellEffectEnum.Flat
+            f.Cal.GridLinesColor = RGB(255, 0, 0)
+            Expect.AreEqual RGB(255, 0, 0), Rig.LineColour(f, 3), "the colour of a vertical line with GridLinesColor given as RGB(255, 0, 0) and GridCellEffect Flat"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridLinesColor_Flat_DefaultIsDrawnAsTheSystemColour()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.GridCellEffect = GridCellEffectEnum.Flat
+            Expect.AreEqual &H80000010, f.Cal.GridLinesColor, "GridLinesColor, the system colour vbButtonShadow"
+            Expect.AreEqual Win.SystemColour(Win.COLOR_BTNSHADOW), Rig.LineColour(f, 3), "the colour of a vertical line with the default GridLinesColor and GridCellEffect Flat"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridLinesColor_RaisedAndSunkenIgnoreIt()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.GridLinesColor = RGB(255, 0, 0)
+            f.Cal.GridCellEffect = GridCellEffectEnum.Raised
+            Expect.AreEqual 0, Rig.CountAll(f, RGB(255, 0, 0)), "the pixels of the colour given to GridLinesColor with GridCellEffect Raised"
+            f.Cal.GridCellEffect = GridCellEffectEnum.Sunken
+            Expect.AreEqual 0, Rig.CountAll(f, RGB(255, 0, 0)), "the pixels of the colour given to GridLinesColor with GridCellEffect Sunken"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    ' The number of places in the row y of the control where a pixel of colour A is followed by one of colour B.
+    Private Function Pairs(ByRef Bits() As Byte, ByVal Width As Long, ByVal y As Long, ByVal A As Long, ByVal B As Long) As Long
+        Dim x As Long
+        For x = 0 To Width - 2
+            If Win.Px(Bits, Width, x, y) = A And Win.Px(Bits, Width, x + 1, y) = B Then Pairs = Pairs + 1
+        Next
+    End Function
+
+    [TestCase]
+    Public Sub GridCellEffect_Raised_DrawsABlackLineWithAWhiteOneAfterIt()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim hd As Long = Rig.Header(f)
+            Dim w As Long
+            f.Cal.GridCellEffect = GridCellEffectEnum.Raised
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim y As Long = hd + 4 * (Win.ClientHeight(Rig.CalWindow(f)) - hd) \ 6 + 20
+            Expect.IsTrue Pairs(b, w, y, 0, &HFFFFFF) >= 5, "the places in a row of the grid where a black pixel is followed by a white one with GridCellEffect Raised"
+            Expect.AreEqual 0, Pairs(b, w, y, &HFFFFFF, 0), "the places in a row of the grid where a white pixel is followed by a black one with GridCellEffect Raised"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridCellEffect_Sunken_DrawsAWhiteLineWithABlackOneAfterIt()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim hd As Long = Rig.Header(f)
+            Dim w As Long
+            f.Cal.GridCellEffect = GridCellEffectEnum.Sunken
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim y As Long = hd + 4 * (Win.ClientHeight(Rig.CalWindow(f)) - hd) \ 6 + 20
+            Expect.IsTrue Pairs(b, w, y, &HFFFFFF, 0) >= 5, "the places in a row of the grid where a white pixel is followed by a black one with GridCellEffect Sunken"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowVerticalGrid_False_RemovesTheVerticalLines()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim hd As Long = Rig.Header(f)
+            Dim w As Long
+            f.Cal.GridCellEffect = GridCellEffectEnum.Flat
+            f.Cal.GridLinesColor = RGB(255, 0, 0)
+            Dim y As Long = hd + 4 * (Win.ClientHeight(Rig.CalWindow(f)) - hd) \ 6 + 20
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Expect.IsTrue Win.CountColour(b, w, RGB(255, 0, 0), 0, y, w - 1, y) >= 5, "the red pixels in a row of the grid with ShowVerticalGrid True"
+            f.Cal.ShowVerticalGrid = False
+            b = Rig.Pixels(f, w)
+            Expect.AreEqual 0, Win.CountColour(b, w, RGB(255, 0, 0), 0, y, w - 1, y), "the red pixels in a row of the grid with ShowVerticalGrid False"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowHorizontalGrid_False_RemovesTheHorizontalLines()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim hd As Long = Rig.Header(f)
+            Dim w As Long
+            f.Cal.GridCellEffect = GridCellEffectEnum.Flat
+            f.Cal.GridLinesColor = RGB(255, 0, 0)
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim x As Long = 3 * w \ 7 + 30
+            Dim ht As Long = UBound(b) \ (w * 4)
+            Expect.IsTrue Win.CountColour(b, w, RGB(255, 0, 0), x, hd, x, ht) >= 5, "the red pixels in a column of the grid with ShowHorizontalGrid True"
+            f.Cal.ShowHorizontalGrid = False
+            b = Rig.Pixels(f, w)
+            Expect.AreEqual 0, Win.CountColour(b, w, RGB(255, 0, 0), x, hd, x, ht), "the red pixels in a column of the grid with ShowHorizontalGrid False"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Frame_IsDrawnWhicheverLinesAreOn()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim hd As Long = Rig.Header(f)
+            Dim w As Long
+            f.Cal.GridCellEffect = GridCellEffectEnum.Flat
+            f.Cal.GridLinesColor = RGB(255, 0, 0)
+            f.Cal.ShowVerticalGrid = False
+            f.Cal.ShowHorizontalGrid = False
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim ht As Long = UBound(b) \ (w * 4)
+            Dim y As Long = hd + 60
+            Dim x As Long = w \ 2 + 3
+            Expect.AreEqual 0, Win.Px(b, w, 0, y), "the pixel at the left edge of the grid with both sets of lines off"
+            Expect.AreEqual 0, Win.Px(b, w, w - 1, y), "the pixel at the right edge of the grid with both sets of lines off"
+            Expect.AreEqual 0, Win.Px(b, w, x, ht), "the pixel at the bottom edge of the grid with both sets of lines off"
+            Expect.AreEqual 0, Win.Px(b, w, x, Rig.TitleHeight(b, w)), "the pixel at the top edge of the row of day names with both sets of lines off"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectedCell_IsFilledWithAWarmGrey()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim hd As Long = Rig.Header(f)
+            Dim w As Long
+            Rig.Rebase f, #6/15/2026#
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim ht As Long = UBound(b) \ (w * 4)
+            Dim cellArea As Double = (w / 7) * ((ht - hd) / 6)
+            Dim n As Long = Win.CountColour(b, w, &H82868E, 0, hd, w - 1, ht - 1)
+            Expect.IsTrue n > 0.6 * cellArea And n < cellArea, "the pixels of &H82868E in the grid with June 15, 2026 selected: " & n & " for a cell of about " & CLng(cellArea)
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub SelectedCell_WithATimeOfDayThereIsNone()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Rig.Rebase f, #6/15/2026#
+            f.Cal.Value = #6/15/2026 2:30:00 PM#
+            Expect.AreEqual 0, Rig.CountAll(f, &H82868E), "the pixels of the selected cell's colour with Value at 2:30 PM on June 15, 2026"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BackColor_FillsTheTitleAreaAndTheCells()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim w As Long
+            f.Cal.BackColor = RGB(10, 20, 30)
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim ht As Long = UBound(b) \ (w * 4)
+            Expect.AreEqual RGB(10, 20, 30), Win.Px(b, w, 2, 2), "the pixel in the title area after BackColor is set"
+            Expect.AreEqual RGB(10, 20, 30), Win.Px(b, w, w - 3, ht - 3), "the pixel in the last cell of the grid after BackColor is set"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DayBackColor_FillsTheRowOfDayNames()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim w As Long
+            f.Cal.DayBackColor = RGB(1, 2, 3)
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Expect.AreEqual RGB(1, 2, 3), Win.Px(b, w, 3, Rig.TitleHeight(b, w) + 3), "the pixel in the row of day names after DayBackColor is set"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/DefaultsTests.twin b/test/package-tests/xCalendar/Sources/DefaultsTests.twin
new file mode 100644
index 00000000..60adc909
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/DefaultsTests.twin
@@ -0,0 +1,98 @@
+' DefaultsTests: the start values of a control that is placed on a form, and of one that is not.
+[TestFixture]
+Module DefaultsTests
+
+    [TestCase]
+    Public Sub Defaults_Colours()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Expect.AreEqual &HE0E0E0, f.Cal.BackColor, "BackColor of a control placed on a form"
+        Expect.AreEqual &HDCA86F, f.Cal.DayBackColor, "DayBackColor of a control placed on a form"
+        Expect.AreEqual 0, f.Cal.DayFontColor, "DayFontColor of a control placed on a form"
+        Expect.AreEqual &HA00000, f.Cal.GridFontColor, "GridFontColor of a control placed on a form"
+        Expect.AreEqual &H80000010, f.Cal.GridLinesColor, "GridLinesColor of a control placed on a form"
+        Expect.AreEqual &H80FF&, f.Cal.TitleFontColor, "TitleFontColor of a control placed on a form"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_Fonts()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Expect.AreEqual "Arial", f.Cal.DayFont.Name, "DayFont name of a control placed on a form"
+        Expect.AreEqual 8, CLng(f.Cal.DayFont.Size), "DayFont size of a control placed on a form"
+        Expect.AreEqual "Arial", f.Cal.GridFont.Name, "GridFont name of a control placed on a form"
+        Expect.AreEqual 8, CLng(f.Cal.GridFont.Size), "GridFont size of a control placed on a form"
+        Expect.AreEqual "Arial", f.Cal.TitleFont.Name, "TitleFont name of a control placed on a form"
+        Expect.AreEqual 16, CLng(f.Cal.TitleFont.Size), "TitleFont size of a control placed on a form"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_Enumerations()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Expect.AreEqual DayLengthEnum.MediumLength, f.Cal.DayLength, "DayLength of a control placed on a form"
+        Expect.AreEqual MonthLengthEnum.LongLength, f.Cal.MonthLength, "MonthLength of a control placed on a form"
+        Expect.AreEqual WeekDaysEnum.Monday, f.Cal.FirstDay, "FirstDay of a control placed on a form"
+        Expect.AreEqual GridCellEffectEnum.Raised, f.Cal.GridCellEffect, "GridCellEffect of a control placed on a form"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_Margins()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Expect.AreEqual 5, f.Cal.DaysMargin, "DaysMargin of a control placed on a form"
+        Expect.AreEqual 5, f.Cal.TitleMargin, "TitleMargin of a control placed on a form"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_Flags()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Expect.IsTrue f.Cal.Enabled, "Enabled of a control placed on a form"
+        Expect.IsTrue f.Cal.ShowDateSelectors, "ShowDateSelectors of a control placed on a form"
+        Expect.IsTrue f.Cal.ShowDays, "ShowDays of a control placed on a form"
+        Expect.IsTrue f.Cal.ShowHorizontalGrid, "ShowHorizontalGrid of a control placed on a form"
+        Expect.IsTrue f.Cal.ShowTitle, "ShowTitle of a control placed on a form"
+        Expect.IsTrue f.Cal.ShowVerticalGrid, "ShowVerticalGrid of a control placed on a form"
+        Expect.IsFalse f.Cal.ValueIsNull, "ValueIsNull of a control placed on a form"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Defaults_DateIsToday()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Expect.AreEqual Date, f.Cal.Value, "Value of a control placed on a form"
+        Expect.AreEqual Year(Date), f.Cal.Year, "Year of a control placed on a form"
+        Expect.AreEqual Month(Date), f.Cal.Month, "Month of a control placed on a form"
+        Expect.AreEqual Day(Date), f.Cal.Day, "Day of a control placed on a form"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub New_WithoutForm_HasNoDefaults()
+        Expect.Begin
+        Dim c As xCalendar.xCalendar
+        Set c = New xCalendar.xCalendar
+        Expect.AreEqual 0, c.Year, "Year of a control made with New and not placed on a form"
+        Expect.AreEqual 0, CDbl(c.Value), "Value of a control made with New and not placed on a form"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/EnabledTests.twin b/test/package-tests/xCalendar/Sources/EnabledTests.twin
new file mode 100644
index 00000000..14e8d59c
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/EnabledTests.twin
@@ -0,0 +1,122 @@
+' EnabledTests: a control whose Enabled is set to False by the program.
+[TestFixture]
+Module EnabledTests
+
+    Private Const NoForm As String = "the form could not be made transparent, so the control cannot paint"
+
+    [TestCase]
+    Public Sub Enabled_False_DisablesTheControlAndTheTwoLists()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Expect.IsTrue Win.Enabled(Rig.CalWindow(f)) And Win.Enabled(Rig.YearList(f)) And Win.Enabled(Rig.MonthList(f)), "the windows of the control, enabled"
+        f.Cal.Enabled = False
+        Expect.IsFalse f.Cal.Enabled, "Enabled after it is set to False"
+        Expect.IsFalse Win.Enabled(Rig.CalWindow(f)), "the control's window after Enabled is set to False"
+        Expect.IsFalse Win.Enabled(Rig.YearList(f)), "the year list after Enabled is set to False"
+        Expect.IsFalse Win.Enabled(Rig.MonthList(f)), "the month list after Enabled is set to False"
+        f.Cal.Enabled = True
+        Expect.IsTrue Win.Enabled(Rig.CalWindow(f)) And Win.Enabled(Rig.YearList(f)) And Win.Enabled(Rig.MonthList(f)), "the windows of the control after Enabled is set to True again"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_False_CodeCanStillChangeTheDate()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        f.Cal.Enabled = False
+        f.Cal.NextDay
+        Expect.AreEqual #6/16/2026#, f.Cal.Value, "Value after NextDay on a disabled control"
+        f.Cal.Value = #3/15/2026#
+        Expect.AreEqual #3/15/2026#, f.Cal.Value, "Value after it is set on a disabled control"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_False_DrawsTheRowOfDayNamesOnALightGrey()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim w As Long
+            f.Cal.Enabled = False
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim y As Long = Rig.TitleHeight(b, w) + 3
+            Expect.AreEqual &HEEEEEE, Win.Px(b, w, 3, y), "the colour of the row of day names after Enabled is set to False"
+            f.Cal.Enabled = True
+            b = Rig.Pixels(f, w)
+            Expect.AreEqual f.Cal.DayBackColor, Win.Px(b, w, 3, y), "the colour of the row of day names after Enabled is set to True again"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_False_DrawsFlatGridLinesInDarkGrey()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.GridCellEffect = GridCellEffectEnum.Flat
+            f.Cal.GridLinesColor = RGB(255, 0, 0)
+            f.Cal.Enabled = False
+            Expect.AreEqual &H5B5B5B, Rig.LineColour(f, 3), "the colour of a vertical line with GridCellEffect Flat on a disabled control"
+            Expect.AreEqual 0, Rig.CountAll(f, RGB(255, 0, 0)), "the pixels of GridLinesColor with GridCellEffect Flat on a disabled control"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_False_LeavesBackColorAsItIs()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim w As Long
+            f.Cal.Enabled = False
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Expect.AreEqual f.Cal.BackColor, Win.Px(b, w, 2, 2), "the colour of the title area on a disabled control"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_False_DrawsTheTitleInGrey()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.Enabled = False
+            Expect.IsTrue Rig.CountAll(f, &HBCBCBC) > 0, "the pixels of the grey (&HBCBCBC) of a disabled title"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Enabled_False_DrawsTheDayNamesAndNumbersInGrey()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.DayFont.Size = 18
+            f.Cal.GridFont.Size = 18
+            f.Cal.Enabled = False
+            Expect.IsTrue Rig.CountAll(f, &H999999) > 0, "the pixels of the grey (&H999999) of disabled day names and day numbers"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/EnumTests.twin b/test/package-tests/xCalendar/Sources/EnumTests.twin
new file mode 100644
index 00000000..b40972ce
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/EnumTests.twin
@@ -0,0 +1,44 @@
+' EnumTests: the values of the four enumerations.
+[TestFixture]
+Module EnumTests
+
+    [TestCase]
+    Public Sub DayLengthEnum_Values()
+        Expect.Begin
+        Expect.AreEqual 0, CLng(DayLengthEnum.ShortLength), "DayLengthEnum.ShortLength"
+        Expect.AreEqual 1, CLng(DayLengthEnum.MediumLength), "DayLengthEnum.MediumLength"
+        Expect.AreEqual 2, CLng(DayLengthEnum.LongLength), "DayLengthEnum.LongLength"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridCellEffectEnum_Values()
+        Expect.Begin
+        Expect.AreEqual 0, CLng(GridCellEffectEnum.Flat), "GridCellEffectEnum.Flat"
+        Expect.AreEqual 1, CLng(GridCellEffectEnum.Raised), "GridCellEffectEnum.Raised"
+        Expect.AreEqual 2, CLng(GridCellEffectEnum.Sunken), "GridCellEffectEnum.Sunken"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MonthLengthEnum_Values()
+        Expect.Begin
+        Expect.AreEqual 0, CLng(MonthLengthEnum.ShortLength), "MonthLengthEnum.ShortLength"
+        Expect.AreEqual 1, CLng(MonthLengthEnum.LongLength), "MonthLengthEnum.LongLength"
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub WeekDaysEnum_Values()
+        Expect.Begin
+        Expect.AreEqual vbSunday, CLng(WeekDaysEnum.Sunday), "WeekDaysEnum.Sunday"
+        Expect.AreEqual vbMonday, CLng(WeekDaysEnum.Monday), "WeekDaysEnum.Monday"
+        Expect.AreEqual vbTuesday, CLng(WeekDaysEnum.Tuesday), "WeekDaysEnum.Tuesday"
+        Expect.AreEqual vbWednesday, CLng(WeekDaysEnum.Wednesday), "WeekDaysEnum.Wednesday"
+        Expect.AreEqual vbThursday, CLng(WeekDaysEnum.Thursday), "WeekDaysEnum.Thursday"
+        Expect.AreEqual vbFriday, CLng(WeekDaysEnum.Friday), "WeekDaysEnum.Friday"
+        Expect.AreEqual vbSaturday, CLng(WeekDaysEnum.Saturday), "WeekDaysEnum.Saturday"
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/FontTests.twin b/test/package-tests/xCalendar/Sources/FontTests.twin
new file mode 100644
index 00000000..fbf9cc01
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/FontTests.twin
@@ -0,0 +1,63 @@
+' FontTests: DayFont, GridFont and TitleFont keep the object that is assigned to them.
+[TestFixture]
+Module FontTests
+
+    Private Function NewFont(ByVal Size As Double) As StdFont
+        Dim fnt As New StdFont
+        fnt.Name = "Arial"
+        fnt.Size = Size
+        Set NewFont = fnt
+    End Function
+
+    [TestCase]
+    Public Sub DayFont_KeepsTheObjectThatIsAssigned()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim fnt As StdFont = NewFont(12)
+        Set f.Cal.DayFont = fnt
+        Expect.IsTrue f.Cal.DayFont Is fnt, "DayFont is the object that was assigned to it"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridFont_KeepsTheObjectThatIsAssigned()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim fnt As StdFont = NewFont(12)
+        Set f.Cal.GridFont = fnt
+        Expect.IsTrue f.Cal.GridFont Is fnt, "GridFont is the object that was assigned to it"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TitleFont_KeepsTheObjectThatIsAssigned()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim fnt As StdFont = NewFont(12)
+        Set f.Cal.TitleFont = fnt
+        Expect.IsTrue f.Cal.TitleFont Is fnt, "TitleFont is the object that was assigned to it"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TwoPropertiesAssignedTheSameFontShareIt()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim fnt As StdFont = NewFont(12)
+        Set f.Cal.DayFont = fnt
+        Set f.Cal.GridFont = fnt
+        f.Cal.DayFont.Size = 14
+        Expect.AreEqual 14, CLng(f.Cal.GridFont.Size), "GridFont.Size after DayFont.Size is changed, both assigned the same object"
+        Expect.AreEqual 14, CLng(fnt.Size), "the size of the object that was assigned"
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/GridTests.twin b/test/package-tests/xCalendar/Sources/GridTests.twin
new file mode 100644
index 00000000..3ee9de90
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/GridTests.twin
@@ -0,0 +1,217 @@
+' GridTests: the dates of the grid. The date of a cell is read by pressing the left mouse button in
+' it: the control selects the date it holds in its grid, and Value returns it.
+[TestFixture]
+Module GridTests
+
+    [TestCase]
+    Public Sub Grid_FirstCellIsTheLatestFirstDayOnOrBeforeTheMonthStart()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        ' June 1, 2026 is a Monday; October 1, 2026 is a Thursday.
+        Expect.AreEqual #6/1/2026#, Rig.GridDate(f, #6/15/2026#, hd, 0, 0), "the first cell of the grid for June 2026, Monday first"
+        Expect.AreEqual #9/28/2026#, Rig.GridDate(f, #10/15/2026#, hd, 0, 0), "the first cell of the grid for October 2026, Monday first"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Grid_FirstCellFollowsFirstDay()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.FirstDay = WeekDaysEnum.Sunday
+        Dim hd As Long = Rig.Header(f)
+        Expect.AreEqual #5/31/2026#, Rig.GridDate(f, #6/15/2026#, hd, 0, 0), "the first cell of the grid for June 2026, Sunday first"
+        Expect.AreEqual #9/27/2026#, Rig.GridDate(f, #10/15/2026#, hd, 0, 0), "the first cell of the grid for October 2026, Sunday first"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Grid_HasSixRowsOfSevenDays()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Dim r As Long, c As Long
+        Dim first As Date = #6/1/2026#
+        Dim bad As String
+        For r = 0 To 5
+            For c = 0 To 6
+                If Rig.GridDate(f, #6/15/2026#, hd, r, c) <> first + r * 7 + c Then bad = bad & "(" & r & "," & c & ") "
+            Next
+        Next
+        Expect.AreEqual "", bad, "the cells of the grid for June 2026 that do not hold the date 7 days a row and 1 day a column from June 1"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Grid_ClickOnDayOfAnotherMonthShowsThatMonth()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #10/15/2026#
+        Rig.Click f, 20, hd + 10
+        Expect.AreEqual #9/28/2026#, f.Cal.Value, "Value after a press on the first cell of the grid for October 2026"
+        Expect.AreEqual 9, f.Cal.Month, "Month after a press on a day of September"
+        Expect.AreEqual MonthName(9), Win.TextOf(Rig.MonthList(f)), "the month list after a press on a day of September"
+        Expect.AreEqual 0, Rig.CountOf("NewMonth"), "NewMonth events raised by a press on a day of another month"
+        Expect.AreEqual 0, Rig.CountOf("NewYear"), "NewYear events raised by a press on a day of another month"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_InAnotherMonth_PlacesTheGrid()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #10/15/2025#
+        f.Cal.Value = #3/15/2026#
+        ' March 1, 2026 is a Sunday, so the grid starts on Monday, February 23, and March 15 is in row 2, column 6.
+        Expect.AreEqual #3/15/2026#, Rig.CellDate(f, hd, 2, 6), "the date of row 2, column 6 after Value is set to March 15, 2026"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_InAnotherMonth_SelectsACell()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        If Not Rig.ShowHidden(f) Then
+            Expect.Fail "the form could not be made transparent"
+        Else
+            Dim h As LongPtr = Rig.CalWindow(f)
+            Dim w As Long = Win.ClientWidth(h)
+            Rig.Rebase f, #10/15/2025#
+            f.Cal.Value = #3/15/2026#
+            Dim b() As Byte = Win.Snapshot(h)
+            Expect.IsTrue Win.CountColour(b, w, &H82868E, 0, 0, w - 1, Win.ClientHeight(h) - 1) > 0, "the pixels of the selected cell's colour after Value is set to a date in another month"
+        End If
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_InAnotherMonth_RefreshPlacesTheGrid()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #10/15/2025#
+        f.Cal.Value = #3/15/2026#
+        f.Cal.Refresh
+        Expect.AreEqual #3/15/2026#, Rig.CellDate(f, hd, 2, 6), "the date of row 2, column 6 after Value is set to March 15, 2026 and Refresh is called"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_InAnotherMonth_NextMovePlacesTheGrid()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #10/15/2025#
+        f.Cal.Value = #3/15/2026#
+        f.Cal.NextDay
+        f.Cal.PreviousDay
+        Expect.AreEqual #3/15/2026#, Rig.CellDate(f, hd, 2, 6), "the date of row 2, column 6 after Value is set to March 15, 2026 and the selection moves"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FirstDay_PlacesTheDatesOfTheGrid()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #10/15/2026#
+        f.Cal.FirstDay = WeekDaysEnum.Sunday
+        Expect.AreEqual #9/27/2026#, Rig.CellDate(f, hd, 0, 0), "the first cell of the grid for October 2026 after FirstDay is set to Sunday"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FirstDay_RefreshPlacesTheDatesOfTheGrid()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #10/15/2026#
+        f.Cal.FirstDay = WeekDaysEnum.Sunday
+        f.Cal.Refresh
+        Expect.AreEqual #9/27/2026#, Rig.CellDate(f, hd, 0, 0), "the first cell of the grid for October 2026 after FirstDay is set to Sunday and Refresh is called"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FirstDay_NextMovePlacesTheDatesOfTheGrid()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #10/15/2026#
+        f.Cal.FirstDay = WeekDaysEnum.Sunday
+        f.Cal.NextDay
+        f.Cal.PreviousDay
+        Expect.AreEqual #9/27/2026#, Rig.CellDate(f, hd, 0, 0), "the first cell of the grid for October 2026 after FirstDay is set to Sunday and the selection moves"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Press_NearTheRightEdge_SelectsTheLastColumn()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim h As LongPtr = Rig.CalWindow(f)
+        Win.Resize h, f.hWnd, 255, 292
+        Rig.Rebase f, #6/15/2026#
+        Dim hd As Long = Rig.Header(f)
+        Dim w As Long = Win.ClientWidth(h)
+        Dim x As Long
+        Dim bad As String
+        For x = w - 3 To w - 1
+            Rig.Rebase f, #6/15/2026#
+            Rig.Click f, x, hd + 5
+            If f.Cal.Value < #6/1/2026# Or f.Cal.Value > #6/7/2026# Then bad = bad & x & ":" & Format$(f.Cal.Value, "yyyy-mm-dd") & " "
+        Next
+        Expect.AreEqual 255, w, "the width of the control after it is resized to 255 pixels"
+        Expect.AreEqual "", bad, "the presses near the right edge (x:selected date) that did not select a date of the first row, June 1 to 7, 2026"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Press_NearTheBottomEdge_SelectsTheLastRow()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim h As LongPtr = Rig.CalWindow(f)
+        Win.Resize h, f.hWnd, 255, 292
+        Rig.Rebase f, #6/15/2026#
+        Dim ht As Long = Win.ClientHeight(h)
+        Dim y As Long
+        Dim bad As String
+        For y = ht - 2 To ht - 1
+            Rig.Rebase f, #6/15/2026#
+            Rig.Click f, 3, y
+            If f.Cal.Value > #6/1/2026# + 35 + 6 Then bad = bad & y & ":" & Format$(f.Cal.Value, "yyyy-mm-dd") & " "
+        Next
+        Expect.AreEqual 292, ht, "the height of the control after it is resized to 292 pixels"
+        Expect.AreEqual "", bad, "the presses near the bottom edge (y:selected date) that selected a date below the last row of the grid"
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/HostForm.tbform b/test/package-tests/xCalendar/Sources/HostForm.tbform
new file mode 100644
index 00000000..1391664b
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/HostForm.tbform
@@ -0,0 +1,22 @@
+[
+	{
+		"Caption": "HostForm",
+		"FormDesignerId": "{7B247400-0000-4000-9000-7B2474000F40}",
+		"Height": 300,
+		"Name": "HostForm",
+		"Width": 300,
+		"_children": [
+			{
+				"Height": 192,
+				"Left": 20,
+				"Name": "Cal",
+				"Top": 10,
+				"Width": 256,
+				"_className": "xCalendar",
+				"_clsid": "{F178D13A-5115-463B-9A49-775B7D3B1A9D}"
+			}
+		],
+		"_className": "Form",
+		"_clsid": "{33AD4F38-6699-11CF-B70C-00AA0060D393}"
+	}
+]
diff --git a/test/package-tests/xCalendar/Sources/HostForm.twin b/test/package-tests/xCalendar/Sources/HostForm.twin
new file mode 100644
index 00000000..71f5fa22
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/HostForm.twin
@@ -0,0 +1,61 @@
+' HostForm: a form that is loaded and never shown. It holds one xCalendar control, Cal, and writes
+' every event the control raises, with its arguments, into Rig.Log.
+
+[Description("")]
+[FormDesignerId("7B247400-0000-4000-9000-7B2474000F40")]
+[PredeclaredId]
+Class HostForm
+
+    ' The value a handler of BeforeUpdate puts in Cancel; 0 lets the selection go on.
+    Public CancelValue As Integer
+
+    Private Sub Cal_Click() Handles Cal.Click
+        Rig.Ev "Click"
+    End Sub
+
+    Private Sub Cal_DblClick() Handles Cal.DblClick
+        Rig.Ev "DblClick"
+    End Sub
+
+    Private Sub Cal_KeyDown(KeyCode As Integer, Shift As Integer) Handles Cal.KeyDown
+        Rig.Ev "KeyDown " & KeyCode & "/" & Shift & " " & Format$(Cal.Value, "yyyy-mm-dd")
+    End Sub
+
+    Private Sub Cal_KeyPress(KeyAscii As Integer) Handles Cal.KeyPress
+        Rig.Ev "KeyPress " & KeyAscii
+    End Sub
+
+    Private Sub Cal_KeyUp(KeyCode As Integer, Shift As Integer) Handles Cal.KeyUp
+        Rig.Ev "KeyUp " & KeyCode & "/" & Shift
+    End Sub
+
+    Private Sub Cal_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Handles Cal.MouseDown
+        Rig.Ev "MouseDown " & Button & " " & CLng(X) & "," & CLng(Y)
+    End Sub
+
+    Private Sub Cal_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Handles Cal.MouseMove
+        Rig.Ev "MouseMove " & Button & " " & CLng(X) & "," & CLng(Y)
+    End Sub
+
+    Private Sub Cal_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Handles Cal.MouseUp
+        Rig.Ev "MouseUp " & Button & " " & CLng(X) & "," & CLng(Y)
+    End Sub
+
+    Private Sub Cal_BeforeUpdate(Cancel As Integer) Handles Cal.BeforeUpdate
+        Rig.Ev "BeforeUpdate " & Cancel & " " & Format$(Cal.Value, "yyyy-mm-dd")
+        Cancel = CancelValue
+    End Sub
+
+    Private Sub Cal_AfterUpdate() Handles Cal.AfterUpdate
+        Rig.Ev "AfterUpdate " & Format$(Cal.Value, "yyyy-mm-dd")
+    End Sub
+
+    Private Sub Cal_NewMonth() Handles Cal.NewMonth
+        Rig.Ev "NewMonth"
+    End Sub
+
+    Private Sub Cal_NewYear() Handles Cal.NewYear
+        Rig.Ev "NewYear"
+    End Sub
+
+End Class
diff --git a/test/package-tests/xCalendar/Sources/KeyTests.twin b/test/package-tests/xCalendar/Sources/KeyTests.twin
new file mode 100644
index 00000000..5de3d1c5
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/KeyTests.twin
@@ -0,0 +1,159 @@
+' KeyTests: the keys the control handles. A key is the window message WM_KEYDOWN sent to the
+' control's small picture box, the window that takes the keys; the modifier keys are set in the
+' thread's key table, which the control reads for the Shift argument.
+[TestFixture]
+Module KeyTests
+
+    Private Function Pressed(ByVal VKey As Long, Optional ByVal Mods As Long = 0) As HostForm
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        Win.KeyDown Rig.KeyWindow(f), VKey, Mods
+        Set Pressed = f
+    End Function
+
+    [TestCase]
+    Public Sub Key_Left_SelectsTheDayBefore()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_LEFT)
+        Expect.AreEqual #6/14/2026#, f.Cal.Value, "Value after the Left arrow with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_Right_SelectsTheDayAfter()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_RIGHT)
+        Expect.AreEqual #6/16/2026#, f.Cal.Value, "Value after the Right arrow with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_Up_SelectsTheDayOneWeekBefore()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_UP)
+        Expect.AreEqual #6/8/2026#, f.Cal.Value, "Value after the Up arrow with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_Down_SelectsTheDayOneWeekAfter()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_DOWN)
+        Expect.AreEqual #6/22/2026#, f.Cal.Value, "Value after the Down arrow with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_PageUp_SelectsTheSameDayOneMonthBefore()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_PRIOR)
+        Expect.AreEqual #5/15/2026#, f.Cal.Value, "Value after Page Up with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_PageDown_SelectsTheSameDayOneMonthAfter()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_NEXT)
+        Expect.AreEqual #7/15/2026#, f.Cal.Value, "Value after Page Down with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_ShiftPageUp_SelectsTheSameDayOneYearBefore()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_PRIOR, 1)
+        Expect.AreEqual #6/15/2025#, f.Cal.Value, "Value after Shift with Page Up with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_ShiftPageDown_SelectsTheSameDayOneYearAfter()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_NEXT, 1)
+        Expect.AreEqual #6/15/2027#, f.Cal.Value, "Value after Shift with Page Down with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_CtrlPageUp_SelectsTheSameDayOneYearBefore()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_PRIOR, 2)
+        Expect.AreEqual #6/15/2025#, f.Cal.Value, "Value after Ctrl with Page Up with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_AltPageDown_SelectsTheSameDayOneYearAfter()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_NEXT, 4)
+        Expect.AreEqual #6/15/2027#, f.Cal.Value, "Value after Alt with Page Down with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_Home_SelectsToday()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_HOME)
+        Expect.AreEqual Date, f.Cal.Value, "Value after Home"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_End_ChangesNothing()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_END)
+        Expect.AreEqual #6/15/2026#, f.Cal.Value, "Value after End with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_RaisesKeyDownOnceAfterTheSelectionMoved()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_RIGHT)
+        Expect.AreEqual "KeyDown 39/0 2026-06-16" & vbLf, Rig.Log, "the events raised by the Right arrow, with the Value that KeyDown sees"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_ThatIsNotHandledRaisesKeyDown()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_END)
+        Expect.AreEqual "KeyDown 35/0 2026-06-15" & vbLf, Rig.Log, "the events raised by End"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_ReportsTheShiftStateInKeyDown()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_PRIOR, 1 Or 2 Or 4)
+        Expect.AreEqual "KeyDown 33/7 2025-06-15" & vbLf, Rig.Log, "the events raised by Shift, Ctrl and Alt with Page Up"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Key_MovesTheSelectionWithoutOtherEvents()
+        Expect.Begin
+        Dim f As HostForm = Pressed(Win.VK_NEXT)
+        Expect.AreEqual "KeyDown", Rig.Events(), "the events raised by Page Down (no NewMonth, BeforeUpdate or AfterUpdate)"
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/LayoutTests.twin b/test/package-tests/xCalendar/Sources/LayoutTests.twin
new file mode 100644
index 00000000..86a4580d
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/LayoutTests.twin
@@ -0,0 +1,335 @@
+' LayoutTests: the three areas of the control, one above the other (title, day names, grid), and
+' their heights. The height of the title area is read from the pixels (the black frame starts
+' where the title area ends); the height of the title area and the day names together from where
+' a press selects a date (Rig.Header). The form is shown wholly transparent (Rig.ShowHidden).
+[TestFixture]
+Module LayoutTests
+
+    Private Const NoForm As String = "the form could not be made transparent, so the control cannot paint"
+
+    ' The column where the month list starts: the title is drawn to the left of it.
+    Private Function ListsLeft(ByVal f As HostForm) As Long
+        ListsLeft = Win.RectIn(Rig.MonthList(f), Rig.CalWindow(f)).Left
+    End Function
+
+    Private Function TitleH(ByVal f As HostForm) As Long
+        Dim w As Long
+        Dim b() As Byte = Rig.Pixels(f, w)
+        TitleH = Rig.TitleHeight(b, w)
+    End Function
+
+    ' Whether any pixel of the two leftmost columns of the title area is not its background.
+    Private Function TitleTouchesTheLeftEdge(ByVal f As HostForm) As Boolean
+        Dim w As Long
+        Dim b() As Byte = Rig.Pixels(f, w)
+        Dim t As Long = Rig.TitleHeight(b, w)
+        Dim y As Long
+        For y = 0 To t - 1
+            If Win.Px(b, w, 0, y) <> f.Cal.BackColor Or Win.Px(b, w, 1, y) <> f.Cal.BackColor Then
+                TitleTouchesTheLeftEdge = True
+                Exit Function
+            End If
+        Next
+    End Function
+
+    [TestCase]
+    Public Sub ShowDays_False_RemovesTheRowOfDayNames()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim withDays As Long = Rig.Header(f)
+            Expect.IsTrue withDays > TitleH(f), "the height above the grid with ShowDays True is more than the title area's"
+            f.Cal.ShowDays = False
+            Expect.AreEqual TitleH(f), Rig.Header(f), "the height above the grid with ShowDays False, against the height of the title area"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowTitle_OnlyDrawsTheTitleWhenItIsTrue()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim w As Long
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim t As Long = Rig.TitleHeight(b, w)
+            Expect.IsTrue Rig.Ink(b, w, ListsLeft(f) - 2, 0, t - 1, f.Cal.BackColor) > 0, "the pixels of the title area that are not its background with ShowTitle True"
+            f.Cal.ShowTitle = False
+            b = Rig.Pixels(f, w)
+            Expect.AreEqual 0, Rig.Ink(b, w, ListsLeft(f) - 2, 0, t - 1, f.Cal.BackColor), "the pixels of the title area that are not its background with ShowTitle False"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MonthLength_LongShowsMoreOfTheMonthNameThanShort()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim w As Long
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim t As Long = Rig.TitleHeight(b, w)
+            Dim longInk As Long = Rig.Ink(b, w, ListsLeft(f) - 2, 0, t - 1, f.Cal.BackColor)
+            f.Cal.MonthLength = MonthLengthEnum.ShortLength
+            b = Rig.Pixels(f, w)
+            Dim shortInk As Long = Rig.Ink(b, w, ListsLeft(f) - 2, 0, t - 1, f.Cal.BackColor)
+            Expect.IsTrue longInk > shortInk, "the pixels of the title with the whole month name (" & longInk & ") against the first three letters (" & shortInk & ")"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DayLength_ALongerLengthShowsMoreOfTheDayNames()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim w As Long
+            Dim b() As Byte
+            Dim t As Long
+            Dim hd As Long = Rig.Header(f)
+            Dim ink(0 To 2) As Long
+            Dim k As Long
+            For k = 0 To 2
+                f.Cal.DayLength = k
+                b = Rig.Pixels(f, w)
+                t = Rig.TitleHeight(b, w)
+                ink(k) = Rig.Ink(b, w, w - 3, t + 2, hd - 2, f.Cal.DayBackColor)
+            Next
+            Expect.IsTrue ink(0) < ink(1) And ink(1) < ink(2), "the pixels of the row of day names with one letter (" & ink(0) & "), three letters (" & ink(1) & ") and the whole name (" & ink(2) & ")"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowTitle_False_KeepsTheTitleAreaWhileTheListsAreShown()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim before As Long = TitleH(f)
+            f.Cal.ShowTitle = False
+            Expect.AreEqual before, TitleH(f), "the height of the title area with ShowTitle False and ShowDateSelectors True"
+            Expect.IsTrue before > 0, "the height of the title area before"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowTitleAndShowDateSelectors_BothFalse_RemoveTheTitleArea()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.ShowTitle = False
+            f.Cal.ShowDateSelectors = False
+            Expect.AreEqual 0, TitleH(f), "the height of the title area with ShowTitle and ShowDateSelectors False"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowTitle_True_GivesTheTitleAreaItsHeightBack()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.ShowTitle = False
+            f.Cal.ShowDateSelectors = False
+            f.Cal.ShowTitle = True
+            Expect.IsTrue TitleH(f) > 0, "the height of the title area after ShowTitle is set to True again with ShowDateSelectors False"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDateSelectors_True_GivesTheTitleAreaItsHeightBack()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.ShowTitle = False
+            f.Cal.ShowDateSelectors = False
+            f.Cal.ShowDateSelectors = True
+            Expect.IsTrue TitleH(f) > 0, "the height of the title area after ShowDateSelectors is set to True again with ShowTitle False"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TitleMargin_Set_GivesTheTitleAreaItsHeightBack()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.ShowTitle = False
+            f.Cal.ShowDateSelectors = False
+            f.Cal.ShowTitle = True
+            f.Cal.TitleMargin = 5
+            Expect.IsTrue TitleH(f) > 0, "the height of the title area after TitleMargin is set"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Resize_GivesTheTitleAreaItsHeightBack()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.ShowTitle = False
+            f.Cal.ShowDateSelectors = False
+            f.Cal.ShowTitle = True
+            Win.Resize Rig.CalWindow(f), f.hWnd, 400, 300
+            Expect.IsTrue TitleH(f) > 0, "the height of the title area after the control is resized"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TitleMargin_RaisedBy10_MovesTheDayNamesDownBy20()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim before As Long = TitleH(f)
+            f.Cal.TitleMargin = 15
+            Expect.AreEqual before + 20, TitleH(f), "the height of the title area after TitleMargin is raised from 5 to 15"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DaysMargin_RaisedBy10_MovesTheGridDownBy20()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim before As Long = Rig.Header(f)
+        f.Cal.DaysMargin = 15
+        Expect.AreEqual before + 20, Rig.Header(f), "the height above the grid after DaysMargin is raised from 5 to 15"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TitleFont_ChangeToTheObject_ChangesTheHeightOfTheTitleArea()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim before As Long = TitleH(f)
+            f.Cal.TitleFont.Size = 24
+            Expect.IsTrue TitleH(f) > before, "the height of the title area after TitleFont.Size is raised from 16 to 24: it was " & before & ", it is " & TitleH(f)
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub TitleFont_AssignedAgain_FitsTheTitleAreaToTheFont()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim before As Long = TitleH(f)
+            f.Cal.TitleFont.Size = 24
+            Set f.Cal.TitleFont = f.Cal.TitleFont
+            Expect.IsTrue TitleH(f) > before, "the height of the title area after TitleFont.Size is raised from 16 to 24 and the font is assigned again: it was " & before & ", it is " & TitleH(f)
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DayFont_Change_ChangesTheHeightOfTheRowOfDayNamesAtTheNextPaint()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim before As Long = Rig.Header(f)
+            f.Cal.DayFont.Size = 20
+            Win.PaintNow f.hWnd
+            Expect.IsTrue Rig.Header(f) > before, "the height above the grid after DayFont.Size is raised from 8 to 20 and the control paints"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub GridFont_Change_ChangesTheDayNumbersAtTheNextPaint()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Dim w As Long
+            Dim b() As Byte = Rig.Pixels(f, w)
+            Dim ht As Long = UBound(b) \ (w * 4)
+            Dim inkBefore As Long = w * ht - Win.CountColour(b, w, f.Cal.BackColor, 0, 0, w - 1, ht - 1)
+            f.Cal.GridFont.Size = 20
+            b = Rig.Pixels(f, w)
+            Dim inkAfter As Long = w * ht - Win.CountColour(b, w, f.Cal.BackColor, 0, 0, w - 1, ht - 1)
+            Expect.IsTrue inkAfter > inkBefore, "the pixels that are not the background after GridFont.Size is raised from 8 to 20: it was " & inkBefore & ", it is " & inkAfter
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Title_ThatIsWiderThanTheSpaceBesideTheLists_IsNotCutOff()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            Rig.Rebase f, #9/15/2026#
+            Expect.IsFalse TitleTouchesTheLeftEdge(f), "the title ""September 2026"" in the default font reaches the left edge of the control"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Title_WithoutTheLists_IsNotCutOff()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail NoForm
+        Else
+            f.Cal.ShowDateSelectors = False
+            Rig.Rebase f, #9/15/2026#
+            Expect.IsFalse TitleTouchesTheLeftEdge(f), "the title ""September 2026"" with ShowDateSelectors False reaches the left edge of the control"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/MethodTests.twin b/test/package-tests/xCalendar/Sources/MethodTests.twin
new file mode 100644
index 00000000..e9d04026
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/MethodTests.twin
@@ -0,0 +1,223 @@
+' MethodTests: the methods that move the selection.
+[TestFixture]
+Module MethodTests
+
+    Private Function On6_15() As HostForm
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        Set On6_15 = f
+    End Function
+
+    [TestCase]
+    Public Sub NextDay_SelectsTheDayAfter()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.NextDay
+        Expect.AreEqual #6/16/2026#, f.Cal.Value, "Value after NextDay with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PreviousDay_SelectsTheDayBefore()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.PreviousDay
+        Expect.AreEqual #6/14/2026#, f.Cal.Value, "Value after PreviousDay with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextWeek_SelectsTheDaySevenDaysAfter()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.NextWeek
+        Expect.AreEqual #6/22/2026#, f.Cal.Value, "Value after NextWeek with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PreviousWeek_SelectsTheDaySevenDaysBefore()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.PreviousWeek
+        Expect.AreEqual #6/8/2026#, f.Cal.Value, "Value after PreviousWeek with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextMonth_SelectsTheSameDayOneMonthAfter()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.NextMonth
+        Expect.AreEqual #7/15/2026#, f.Cal.Value, "Value after NextMonth with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PreviousMonth_SelectsTheSameDayOneMonthBefore()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.PreviousMonth
+        Expect.AreEqual #5/15/2026#, f.Cal.Value, "Value after PreviousMonth with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextYear_SelectsTheSameDayOneYearAfter()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.NextYear
+        Expect.AreEqual #6/15/2027#, f.Cal.Value, "Value after NextYear with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PreviousYear_SelectsTheSameDayOneYearBefore()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.PreviousYear
+        Expect.AreEqual #6/15/2025#, f.Cal.Value, "Value after PreviousYear with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextMonth_FromJanuary31_SelectsTheLastDayOfFebruary()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #1/31/2026#
+        f.Cal.NextMonth
+        Expect.AreEqual #2/28/2026#, f.Cal.Value, "Value after NextMonth with January 31, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PreviousMonth_FromMarch31_SelectsTheLastDayOfFebruary()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #3/31/2026#
+        f.Cal.PreviousMonth
+        Expect.AreEqual #2/28/2026#, f.Cal.Value, "Value after PreviousMonth with March 31, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextYear_FromFebruary29_SelectsFebruary28()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #2/29/2024#
+        f.Cal.NextYear
+        Expect.AreEqual #2/28/2025#, f.Cal.Value, "Value after NextYear with February 29, 2024 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub PreviousYear_FromFebruary29_SelectsFebruary28()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #2/29/2024#
+        f.Cal.PreviousYear
+        Expect.AreEqual #2/28/2023#, f.Cal.Value, "Value after PreviousYear with February 29, 2024 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub NextMonth_FromFebruary28_SelectsMarch28()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #2/28/2026#
+        f.Cal.NextMonth
+        Expect.AreEqual #3/28/2026#, f.Cal.Value, "Value after NextMonth with February 28, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Methods_RaiseNoEvent()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.NextDay
+        f.Cal.PreviousDay
+        f.Cal.NextWeek
+        f.Cal.PreviousWeek
+        f.Cal.NextMonth
+        f.Cal.PreviousMonth
+        f.Cal.NextYear
+        f.Cal.PreviousYear
+        f.Cal.Today
+        f.Cal.Refresh
+        Expect.AreEqual "", Rig.Events(), "the events raised by the methods that move the selection"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Methods_ShowTheMonthOfTheNewDateInTheLists()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.NextMonth
+        Expect.AreEqual 7, f.Cal.Month, "Month after NextMonth with June 15, 2026 selected"
+        Expect.AreEqual MonthName(7), Win.TextOf(Rig.MonthList(f)), "the month list after NextMonth"
+        f.Cal.NextYear
+        Expect.AreEqual 2027, f.Cal.Year, "Year after NextYear"
+        Expect.AreEqual "2027", Win.TextOf(Rig.YearList(f)), "the year list after NextYear"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Methods_DoNotStopAtTheEndOfTheYearList()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2100#
+        On Error Resume Next
+        f.Cal.NextYear
+        Expect.AreEqual 0, Rig.ErrNum(), "the error raised by NextYear with June 15, 2100 selected"
+        Expect.AreEqual #6/15/2101#, f.Cal.Value, "Value after NextYear with June 15, 2100 selected"
+        Expect.AreEqual 2101, f.Cal.Year, "Year after NextYear with June 15, 2100 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Today_SelectsTodayAndShowsItsMonth()
+        Expect.Begin
+        Dim f As HostForm = On6_15()
+        f.Cal.Today
+        Expect.AreEqual Date, f.Cal.Value, "Value after Today"
+        Expect.AreEqual MonthName(Month(Date)), Win.TextOf(Rig.MonthList(f)), "the month list after Today"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Today_KeepsTheTimeOfDay()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026 3:30:00 PM#
+        f.Cal.Today
+        Expect.AreEqual Date + TimeSerial(15, 30, 0), f.Cal.Value, "Value after Today with 3:30 PM on June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/MouseTests.twin b/test/package-tests/xCalendar/Sources/MouseTests.twin
new file mode 100644
index 00000000..314c0eda
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/MouseTests.twin
@@ -0,0 +1,176 @@
+' MouseTests: the events that a press of a mouse button raises, and what it selects. A press is
+' the window messages a mouse sends: the button down and the button up, sent to the control.
+[TestFixture]
+Module MouseTests
+
+    [TestCase]
+    Public Sub Press_LeftOnADay_RaisesTheEventsInOrder()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        Rig.Click f, 120, hd + 40
+        Expect.AreEqual "BeforeUpdate AfterUpdate MouseUp Click", Rig.Events(), "the events raised by a left press on a day"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Press_LeftOnADay_SelectsThatDay()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        Expect.AreEqual #6/17/2026#, Rig.CellDate(f, hd, 2, 2), "the date selected by a press on row 2, column 2 of the grid for June 2026"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Press_LeftOnADay_BeforeUpdateSeesTheOldValue()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        Rig.Click f, 120, hd + 40
+        Expect.IsTrue InStr(Rig.Log, "BeforeUpdate 0 2026-06-15") > 0, "BeforeUpdate is raised with Cancel 0 and Value still June 15, 2026"
+        Expect.IsTrue InStr(Rig.Log, "AfterUpdate 2026-06-15") = 0, "AfterUpdate sees the new Value"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Press_RightButton_RaisesMouseUpAndClickOnly()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        Rig.Click f, 120, hd + 40, 2
+        Expect.AreEqual "MouseUp Click", Rig.Events(), "the events raised by a right press on a day"
+        Expect.AreEqual #6/15/2026#, f.Cal.Value, "Value after a right press on a day"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Press_OnTheTitle_RaisesMouseUpAndClickOnly()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        Rig.Click f, 120, 5
+        Expect.AreEqual "MouseUp Click", Rig.Events(), "the events raised by a left press on the title area"
+        Expect.AreEqual #6/15/2026#, f.Cal.Value, "Value after a left press on the title area"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Press_OnADayName_RaisesMouseUpAndClickOnly()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        Rig.Click f, 120, hd - 5
+        Expect.AreEqual "MouseUp Click", Rig.Events(), "the events raised by a left press on the row of day names"
+        Expect.AreEqual #6/15/2026#, f.Cal.Value, "Value after a left press on the row of day names"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub DoubleClick_RaisesTheEventsInOrder()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        Dim h As LongPtr = Rig.CalWindow(f)
+        Dim lp As LongPtr = Win.MakeLParam(120, hd + 40)
+        Win.Send h, Win.WM_LBUTTONDOWN, Win.MK_LBUTTON, lp
+        Win.Send h, Win.WM_LBUTTONUP, 0, lp
+        Win.Send h, Win.WM_LBUTTONDBLCLK, Win.MK_LBUTTON, lp
+        Win.Send h, Win.WM_LBUTTONUP, 0, lp
+        Expect.AreEqual "BeforeUpdate AfterUpdate MouseUp Click DblClick MouseUp", Rig.Events(), "the events raised by a double-click on a day"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BeforeUpdate_CancelKeepsTheSelection()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        f.CancelValue = -1
+        Rig.Click f, 120, hd + 40
+        Expect.AreEqual #6/15/2026#, f.Cal.Value, "Value after a press on a day when BeforeUpdate sets Cancel to True"
+        Expect.AreEqual "BeforeUpdate MouseUp Click", Rig.Events(), "the events raised by a press on a day when BeforeUpdate sets Cancel to True"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub BeforeUpdate_CancelOfOneKeepsTheSelection()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        f.CancelValue = 1
+        Rig.Click f, 120, hd + 40
+        Expect.AreEqual #6/15/2026#, f.Cal.Value, "Value after a press on a day when BeforeUpdate sets Cancel to 1"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MouseDown_IsRaisedByAPress()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim hd As Long = Rig.Header(f)
+        Rig.Rebase f, #6/15/2026#
+        Rig.Click f, 120, hd + 40
+        Expect.AreEqual 1, Rig.CountOf("MouseDown"), "the MouseDown events raised by a left press on a day"
+        Rig.ClearLog
+        Rig.Click f, 120, 5, 2
+        Expect.AreEqual 1, Rig.CountOf("MouseDown"), "the MouseDown events raised by a right press on the title area"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MouseMove_IsRaisedWhenThePointerMoves()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Win.Send Rig.CalWindow(f), Win.WM_MOUSEMOVE, 0, Win.MakeLParam(120, 100)
+        Expect.AreEqual "MouseMove", Rig.Events(), "the events raised by a move of the pointer over the control"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MouseEvents_ReportThePositionInDevicePixels()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim h As LongPtr = Rig.CalWindow(f)
+        Win.Send h, Win.WM_MOUSEMOVE, 0, Win.MakeLParam(192, 100)
+        Expect.IsTrue InStr(Rig.Log, "MouseMove 0 192,100") > 0, "the position MouseMove reports for a pointer at 192, 100 of the control's window"
+        Rig.ClearLog
+        Win.Send h, Win.WM_LBUTTONDOWN, Win.MK_LBUTTON, Win.MakeLParam(192, 5)
+        Win.Send h, Win.WM_LBUTTONUP, 0, Win.MakeLParam(192, 5)
+        Expect.IsTrue InStr(Rig.Log, "MouseUp 1 192,5") > 0, "the position MouseUp reports for a press at 192, 5 of the control's window"
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/PartsTests.twin b/test/package-tests/xCalendar/Sources/PartsTests.twin
new file mode 100644
index 00000000..5e6760d4
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/PartsTests.twin
@@ -0,0 +1,227 @@
+' PartsTests: Day, Month, Year and FirstDay, and what they do with a value that makes an impossible date.
+[TestFixture]
+Module PartsTests
+
+    [TestCase]
+    Public Sub Day_SelectsThatDayOfTheShownMonth()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        f.Cal.Day = 20
+        Expect.AreEqual #6/20/2026#, f.Cal.Value, "Value after Day is set to 20 with June 15, 2026 selected"
+        Expect.AreEqual 20, f.Cal.Day, "Day after it is set to 20"
+        Expect.AreEqual "", Rig.Events(), "the events raised by setting Day"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Month_SelectsTheSameDayOfThatMonth()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        f.Cal.Month = 8
+        Expect.AreEqual #8/15/2026#, f.Cal.Value, "Value after Month is set to 8 with June 15, 2026 selected"
+        Expect.AreEqual MonthName(8), Win.TextOf(Rig.MonthList(f)), "the month list after Month is set to 8"
+        Expect.AreEqual "", Rig.Events(), "the events raised by setting Month"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Year_SelectsTheSameDayAndMonthOfThatYear()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        f.Cal.Year = 2027
+        Expect.AreEqual #6/15/2027#, f.Cal.Value, "Value after Year is set to 2027 with June 15, 2026 selected"
+        Expect.AreEqual "2027", Win.TextOf(Rig.YearList(f)), "the year list after Year is set to 2027"
+        Expect.AreEqual "", Rig.Events(), "the events raised by setting Year"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Day_ZeroRaises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        On Error Resume Next
+        f.Cal.Day = 0
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting Day to 0"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Day_32Raises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        On Error Resume Next
+        f.Cal.Day = 32
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting Day to 32"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Day_31InAMonthOf30DaysRaises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        On Error Resume Next
+        f.Cal.Day = 31
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting Day to 31 with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Day_FailedAssignmentChangesNothing()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        On Error Resume Next
+        f.Cal.Day = 31
+        Rig.ErrNum
+        Expect.AreEqual 15, f.Cal.Day, "Day after setting it to 31 failed with June 15, 2026 selected"
+        Expect.AreEqual #6/15/2026#, f.Cal.Value, "Value after setting Day to 31 failed with June 15, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Month_13Raises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        On Error Resume Next
+        f.Cal.Month = 13
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting Month to 13"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Month_0Raises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        On Error Resume Next
+        f.Cal.Month = 0
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting Month to 0"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Month_FebruaryWithDay31Raises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #7/31/2026#
+        On Error Resume Next
+        f.Cal.Month = 2
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting Month to 2 with July 31, 2026 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Month_FailedAssignmentChangesNothing()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        On Error Resume Next
+        f.Cal.Month = 13
+        Rig.ErrNum
+        Expect.AreEqual 6, f.Cal.Month, "Month after setting it to 13 failed with June 15, 2026 selected"
+        Expect.AreEqual #6/15/2026#, f.Cal.Value, "Value after setting Month to 13 failed with June 15, 2026 selected"
+        Expect.AreEqual MonthName(6), Win.TextOf(Rig.MonthList(f)), "the month list after setting Month to 13 failed"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Year_LeapDayInAYearThatIsNotLeapRaises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #2/29/2024#
+        On Error Resume Next
+        f.Cal.Year = 2025
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting Year to 2025 with February 29, 2024 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Year_FailedAssignmentChangesNothing()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #2/29/2024#
+        On Error Resume Next
+        f.Cal.Year = 2025
+        Rig.ErrNum
+        Expect.AreEqual 2024, f.Cal.Year, "Year after setting it to 2025 failed with February 29, 2024 selected"
+        Expect.AreEqual #2/29/2024#, f.Cal.Value, "Value after setting Year to 2025 failed with February 29, 2024 selected"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Refresh_AfterAMonthOf13RaisesNoError()
+        Expect.Begin
+        Dim f As HostForm = Rig.NewShown()
+        If f Is Nothing Then
+            Expect.Fail "the form could not be made transparent, so the control cannot paint"
+        Else
+            Rig.Rebase f, #6/15/2026#
+            On Error Resume Next
+            f.Cal.Month = 13
+            Rig.ErrNum
+            f.Cal.Refresh
+            Expect.AreEqual 0, Rig.ErrNum(), "the error raised by Refresh after setting Month to 13 failed"
+            Unload f
+        End If
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FirstDay_OutOfRangeRaises5()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        On Error Resume Next
+        f.Cal.FirstDay = 8
+        Expect.AreEqual 5, Rig.ErrNum(), "the error raised by setting FirstDay to 8"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub FirstDay_FailedAssignmentChangesNothing()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        On Error Resume Next
+        f.Cal.FirstDay = 8
+        Rig.ErrNum
+        Expect.AreEqual WeekDaysEnum.Monday, f.Cal.FirstDay, "FirstDay after setting it to 8 failed"
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/Rig.twin b/test/package-tests/xCalendar/Sources/Rig.twin
new file mode 100644
index 00000000..2f3b6cc7
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/Rig.twin
@@ -0,0 +1,263 @@
+' Rig: what the test cases of xCalendar set up. A case works on the control of a HostForm, which is
+' loaded and never seen: a case that needs the control's pixels shows the form with ShowHidden,
+' which makes it wholly transparent first.
+'
+' The control is on a form that has its default properties and today's date. A case that needs a
+' known month calls Rebase, because setting Value to a date in another month leaves the grid
+' with the dates of the old month (see the Known problems of the page).
+Module Rig
+
+    ' The events the control raised since the last call of ClearLog, one per line.
+    Public Log As String
+
+    Public Sub Ev(ByVal Text As String)
+        Log = Log & Text & vbLf
+    End Sub
+
+    Public Sub ClearLog()
+        Log = ""
+    End Sub
+
+    ' The events as one line, such as "BeforeUpdate AfterUpdate MouseUp Click": only each event's name.
+    Public Function Events() As String
+        Dim lines() As String = Split(Log, vbLf)
+        Dim i As Long
+        For i = 0 To UBound(lines)
+            If Len(lines(i)) > 0 Then Events = Events & IIf(Len(Events) > 0, " ", "") & Split(lines(i), " ")(0)
+        Next
+    End Function
+
+    ' The events of the log that carry the name Name.
+    Public Function CountOf(ByVal Name As String) As Long
+        Dim lines() As String = Split(Log, vbLf)
+        Dim i As Long
+        For i = 0 To UBound(lines)
+            If Split(lines(i) & " ", " ")(0) = Name Then CountOf = CountOf + 1
+        Next
+    End Function
+
+    ' A loaded form, not shown, with the control on its default properties.
+    Public Function NewForm() As HostForm
+        Dim f As New HostForm
+        Load f
+        Set NewForm = f
+        ClearLog
+    End Function
+
+    ' Shows the form so that the control can paint, and so that its pixels can be read. The form
+    ' is made wholly transparent first and shown without being activated, so that nothing appears
+    ' on the desktop; False when it could not be made transparent (the form is then not shown).
+    Public Function ShowHidden(ByVal f As HostForm) As Boolean
+        On Error Resume Next
+        f.Opacity = 0
+        On Error GoTo 0
+        If Not Win.IsFullyTransparent(f.hWnd) Then Exit Function
+        Win.ShowNoActivate f.hWnd
+        Win.PaintNow f.hWnd
+        ShowHidden = True
+    End Function
+
+    ' A form as NewForm makes it, shown as ShowHidden shows it; Nothing when it could not be made
+    ' transparent.
+    Public Function NewShown() As HostForm
+        Dim f As HostForm
+        Set f = NewForm()
+        If ShowHidden(f) Then
+            Set NewShown = f
+        Else
+            Unload f
+        End If
+    End Function
+
+    ' What the control has drawn now, after it has been asked to paint: a snapshot of its window,
+    ' and its width in Width.
+    Public Function Pixels(ByVal f As HostForm, ByRef Width As Long) As Byte()
+        Win.PaintNow f.hWnd
+        Dim h As LongPtr = CalWindow(f)
+        Width = Win.ClientWidth(h)
+        Pixels = Win.Snapshot(h)
+    End Function
+
+    ' The number of pixels of colour Colour in the whole control.
+    Public Function CountAll(ByVal f As HostForm, ByVal Colour As Long) As Long
+        Dim w As Long
+        Dim b() As Byte = Pixels(f, w)
+        CountAll = Win.CountColour(b, w, Colour, 0, 0, w - 1, UBound(b) \ (w * 4))
+    End Function
+
+    ' The window of the control: the form's child of the class the runtime gives a user control.
+    Public Function CalWindow(ByVal f As HostForm) As LongPtr
+        Dim c As LongPtr = Win.FirstChild(f.hWnd)
+        Do While c <> 0
+            If Win.ClassOf(c) Like "Thunder*UserControlDC" Then
+                CalWindow = c
+                Exit Function
+            End If
+            c = Win.NextSibling(c)
+        Loop
+    End Function
+
+    ' The control's small picture box, the window that takes the keys.
+    Public Function KeyWindow(ByVal f As HostForm) As LongPtr
+        Dim h As LongPtr = CalWindow(f)
+        Dim w As Long = Win.ClientWidth(h)
+        Dim c As LongPtr = Win.FirstChild(h)
+        Do While c <> 0
+            If Win.ClassOf(c) Like "Thunder*PictureBoxDC" And Win.ClientWidth(c) <> w Then KeyWindow = c
+            c = Win.NextSibling(c)
+        Loop
+    End Function
+
+    ' The year list (Which = 0) or the month list (Which = 1): the control's two combo boxes, in
+    ' that order.
+    Public Function SelectorWindow(ByVal f As HostForm, ByVal Which As Long) As LongPtr
+        Dim c As LongPtr = Win.FirstChild(CalWindow(f))
+        Dim n As Long
+        Do While c <> 0
+            If Win.ClassOf(c) Like "Thunder*ComboBox" Then
+                If n = Which Then
+                    SelectorWindow = c
+                    Exit Function
+                End If
+                n = n + 1
+            End If
+            c = Win.NextSibling(c)
+        Loop
+    End Function
+
+    Public Function YearList(ByVal f As HostForm) As LongPtr
+        YearList = SelectorWindow(f, 0)
+    End Function
+
+    Public Function MonthList(ByVal f As HostForm) As LongPtr
+        MonthList = SelectorWindow(f, 1)
+    End Function
+
+    ' Makes the grid show the month of d, with d selected: setting Value alone does not place the
+    ' dates of the grid again, and a move of the selection does.
+    Public Sub Rebase(ByVal f As HostForm, ByVal d As Date)
+        f.Cal.Value = d
+        f.Cal.PreviousDay
+        f.Cal.NextDay
+        ClearLog
+    End Sub
+
+    ' A press of a mouse button at (x, y) of the control: the button down and the button up.
+    ' Button 1 is the left button, 2 the right.
+    Public Sub Click(ByVal f As HostForm, ByVal x As Long, ByVal y As Long, Optional ByVal Button As Long = 1)
+        Dim h As LongPtr = CalWindow(f)
+        If Button = 1 Then
+            Win.Send h, Win.WM_LBUTTONDOWN, Win.MK_LBUTTON, Win.MakeLParam(x, y)
+            Win.Send h, Win.WM_LBUTTONUP, 0, Win.MakeLParam(x, y)
+        Else
+            Win.Send h, Win.WM_RBUTTONDOWN, Win.MK_RBUTTON, Win.MakeLParam(x, y)
+            Win.Send h, Win.WM_RBUTTONUP, 0, Win.MakeLParam(x, y)
+        End If
+    End Sub
+
+    ' The height of the title area and the row of day names together: the largest y at which a
+    ' left press does not select (it raises no BeforeUpdate). Found by pressing with the
+    ' selection cancelled.
+    Public Function Header(ByVal f As HostForm) As Long
+        Dim h As LongPtr = CalWindow(f)
+        Dim lo As Long = 0
+        Dim hi As Long = Win.ClientHeight(h)
+        Dim mid As Long
+        ' The control works out the heights of its areas when it draws, which a form that was never
+        ' shown has not done yet: setting Value to what it is makes it draw.
+        f.Cal.Value = f.Cal.Value
+        f.CancelValue = -1
+        Do While hi - lo > 1
+            mid = (lo + hi) \ 2
+            ClearLog
+            Win.Send h, Win.WM_LBUTTONDOWN, Win.MK_LBUTTON, Win.MakeLParam(10, mid)
+            Win.Send h, Win.WM_LBUTTONUP, 0, Win.MakeLParam(10, mid)
+            If CountOf("BeforeUpdate") > 0 Then hi = mid Else lo = mid
+        Loop
+        f.CancelValue = 0
+        ClearLog
+        Header = lo
+    End Function
+
+    ' The date of the cell at row Row (0 to 5) and column Col (0 to 6) of the grid, as the control
+    ' takes it: a press in the middle of the cell selects it, and the selected date is read.
+    ' Header is the value of Header(f). The press changes the selection.
+    Public Function CellDate(ByVal f As HostForm, ByVal Header As Long, ByVal Row As Long, ByVal Col As Long) As Date
+        Dim h As LongPtr = CalWindow(f)
+        Dim rowH As Double = (Win.ClientHeight(h) - Header) / 6
+        Dim colW As Double = Win.ClientWidth(h) / 7
+        Click f, CLng((Col + 0.5) * colW), Header + CLng((Row + 0.5) * rowH)
+        CellDate = f.Cal.Value
+        ClearLog
+    End Function
+
+    ' The date of a cell of the grid as it is placed after Value is set to Base: the grid is placed
+    ' again around Base first.
+    Public Function GridDate(ByVal f As HostForm, ByVal Base As Date, ByVal Header As Long, ByVal Row As Long, ByVal Col As Long) As Date
+        Rebase f, Base
+        GridDate = CellDate(f, Header, Row, Col)
+    End Function
+
+    ' The colour of the vertical line between the columns K - 1 and K of the grid (K from 1 to 6), read in
+    ' the lower part of a cell in row 4 where no day number is; -2 when there is none. The form must be
+    ' shown (ShowHidden).
+    Public Function LineColour(ByVal f As HostForm, ByVal K As Long) As Long
+        Dim hd As Long = Header(f)
+        Dim w As Long
+        Dim b() As Byte = Pixels(f, w)
+        Dim ht As Long = UBound(b) \ (w * 4) + 1
+        Dim y As Long = hd + CLng(4.8 * (ht - hd) / 6)
+        Dim x0 As Long = CLng(K * w / 7)
+        Dim x As Long
+        LineColour = -2
+        For x = x0 - 1 To x0 + 1
+            If Win.Px(b, w, x, y) <> f.Cal.BackColor Then
+                LineColour = Win.Px(b, w, x, y)
+                Exit Function
+            End If
+        Next
+    End Function
+
+    ' The number of pixels in the rows Y0 to Y1, from column 2 to column X1, that are not the colour
+    ' Background: the ink of what is drawn there.
+    Public Function Ink(ByRef Bits() As Byte, ByVal Width As Long, ByVal X1 As Long, ByVal Y0 As Long, ByVal Y1 As Long, ByVal Background As Long) As Long
+        Dim x As Long, y As Long
+        For y = Y0 To Y1
+            For x = 2 To X1
+                If Win.Px(Bits, Width, x, y) <> Background Then Ink = Ink + 1
+            Next
+        Next
+    End Function
+
+    ' The error number the statement last raised, 0 for none; Err is cleared.
+    Public Function ErrNum() As Long
+        ErrNum = Err.Number
+        Err.Clear
+    End Function
+
+    ' The height in pixels of the title area: the first row of the right edge that is the black
+    ' frame of the day names and the grid. Bits is a snapshot of the control, Width its width.
+    Public Function TitleHeight(ByRef Bits() As Byte, ByVal Width As Long) As Long
+        Dim y As Long
+        For y = 0 To UBound(Bits) \ (Width * 4)
+            If Win.Px(Bits, Width, Width - 1, y) = 0 Then
+                TitleHeight = y
+                Exit Function
+            End If
+        Next
+        TitleHeight = -1
+    End Function
+
+    ' The y of the first row of column 3 that is the colour Colour; -1 when there is none.
+    Public Function FirstRowOf(ByRef Bits() As Byte, ByVal Width As Long, ByVal Colour As Long) As Long
+        Dim y As Long
+        For y = 0 To UBound(Bits) \ (Width * 4)
+            If Win.Px(Bits, Width, 3, y) = Colour Then
+                FirstRowOf = y
+                Exit Function
+            End If
+        Next
+        FirstRowOf = -1
+    End Function
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/RunAll.twin b/test/package-tests/xCalendar/Sources/RunAll.twin
new file mode 100644
index 00000000..090b230d
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/RunAll.twin
@@ -0,0 +1,650 @@
+' Generated by scripts/package_tests.mjs from this project's [TestCase] Subs and expect.json:
+' do not edit. Run Sub Main: each case prints PASS, FAIL or SKIP in the DEBUG CONSOLE.
+' The cases are written for the package xCalendar, version 1.0.17.0. Each one checks what is
+' correct, so a case that fails names a defect of the package.
+Module RunAll
+
+    Public Sub Main()
+        Expect.StartRun "xCalendar 1.0.17.0: 159 test cases"
+        On Error Resume Next
+        Expect.StartCase
+        Err.Clear
+        ColourTests.TitleFontColor_ColoursTheTitle
+        Expect.EndCase "ColourTests.TitleFontColor_ColoursTheTitle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.TitleFontColor_DefaultColoursTheTitle
+        Expect.EndCase "ColourTests.TitleFontColor_DefaultColoursTheTitle", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.DayFontColor_ColoursTheDayNames
+        Expect.EndCase "ColourTests.DayFontColor_ColoursTheDayNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.GridFontColor_ColoursTheDayNumbers
+        Expect.EndCase "ColourTests.GridFontColor_ColoursTheDayNumbers", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.GridFont_DaysOfTheMonthsBeforeAndAfterAreGrey
+        Expect.EndCase "ColourTests.GridFont_DaysOfTheMonthsBeforeAndAfterAreGrey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.GridLinesColor_Flat_RGBValueIsDrawnAsGiven
+        Expect.EndCase "ColourTests.GridLinesColor_Flat_RGBValueIsDrawnAsGiven", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.GridLinesColor_Flat_DefaultIsDrawnAsTheSystemColour
+        Expect.EndCase "ColourTests.GridLinesColor_Flat_DefaultIsDrawnAsTheSystemColour", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.GridLinesColor_RaisedAndSunkenIgnoreIt
+        Expect.EndCase "ColourTests.GridLinesColor_RaisedAndSunkenIgnoreIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.GridCellEffect_Raised_DrawsABlackLineWithAWhiteOneAfterIt
+        Expect.EndCase "ColourTests.GridCellEffect_Raised_DrawsABlackLineWithAWhiteOneAfterIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.GridCellEffect_Sunken_DrawsAWhiteLineWithABlackOneAfterIt
+        Expect.EndCase "ColourTests.GridCellEffect_Sunken_DrawsAWhiteLineWithABlackOneAfterIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.ShowVerticalGrid_False_RemovesTheVerticalLines
+        Expect.EndCase "ColourTests.ShowVerticalGrid_False_RemovesTheVerticalLines", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.ShowHorizontalGrid_False_RemovesTheHorizontalLines
+        Expect.EndCase "ColourTests.ShowHorizontalGrid_False_RemovesTheHorizontalLines", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.Frame_IsDrawnWhicheverLinesAreOn
+        Expect.EndCase "ColourTests.Frame_IsDrawnWhicheverLinesAreOn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.SelectedCell_IsFilledWithAWarmGrey
+        Expect.EndCase "ColourTests.SelectedCell_IsFilledWithAWarmGrey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.SelectedCell_WithATimeOfDayThereIsNone
+        Expect.EndCase "ColourTests.SelectedCell_WithATimeOfDayThereIsNone", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.BackColor_FillsTheTitleAreaAndTheCells
+        Expect.EndCase "ColourTests.BackColor_FillsTheTitleAreaAndTheCells", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ColourTests.DayBackColor_FillsTheRowOfDayNames
+        Expect.EndCase "ColourTests.DayBackColor_FillsTheRowOfDayNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsTests.Defaults_Colours
+        Expect.EndCase "DefaultsTests.Defaults_Colours", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsTests.Defaults_Fonts
+        Expect.EndCase "DefaultsTests.Defaults_Fonts", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsTests.Defaults_Enumerations
+        Expect.EndCase "DefaultsTests.Defaults_Enumerations", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsTests.Defaults_Margins
+        Expect.EndCase "DefaultsTests.Defaults_Margins", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsTests.Defaults_Flags
+        Expect.EndCase "DefaultsTests.Defaults_Flags", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsTests.Defaults_DateIsToday
+        Expect.EndCase "DefaultsTests.Defaults_DateIsToday", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        DefaultsTests.New_WithoutForm_HasNoDefaults
+        Expect.EndCase "DefaultsTests.New_WithoutForm_HasNoDefaults", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnabledTests.Enabled_False_DisablesTheControlAndTheTwoLists
+        Expect.EndCase "EnabledTests.Enabled_False_DisablesTheControlAndTheTwoLists", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnabledTests.Enabled_False_CodeCanStillChangeTheDate
+        Expect.EndCase "EnabledTests.Enabled_False_CodeCanStillChangeTheDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnabledTests.Enabled_False_DrawsTheRowOfDayNamesOnALightGrey
+        Expect.EndCase "EnabledTests.Enabled_False_DrawsTheRowOfDayNamesOnALightGrey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnabledTests.Enabled_False_DrawsFlatGridLinesInDarkGrey
+        Expect.EndCase "EnabledTests.Enabled_False_DrawsFlatGridLinesInDarkGrey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnabledTests.Enabled_False_LeavesBackColorAsItIs
+        Expect.EndCase "EnabledTests.Enabled_False_LeavesBackColorAsItIs", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnabledTests.Enabled_False_DrawsTheTitleInGrey
+        Expect.EndCase "EnabledTests.Enabled_False_DrawsTheTitleInGrey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnabledTests.Enabled_False_DrawsTheDayNamesAndNumbersInGrey
+        Expect.EndCase "EnabledTests.Enabled_False_DrawsTheDayNamesAndNumbersInGrey", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnumTests.DayLengthEnum_Values
+        Expect.EndCase "EnumTests.DayLengthEnum_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnumTests.GridCellEffectEnum_Values
+        Expect.EndCase "EnumTests.GridCellEffectEnum_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnumTests.MonthLengthEnum_Values
+        Expect.EndCase "EnumTests.MonthLengthEnum_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        EnumTests.WeekDaysEnum_Values
+        Expect.EndCase "EnumTests.WeekDaysEnum_Values", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FontTests.DayFont_KeepsTheObjectThatIsAssigned
+        Expect.EndCase "FontTests.DayFont_KeepsTheObjectThatIsAssigned", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FontTests.GridFont_KeepsTheObjectThatIsAssigned
+        Expect.EndCase "FontTests.GridFont_KeepsTheObjectThatIsAssigned", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FontTests.TitleFont_KeepsTheObjectThatIsAssigned
+        Expect.EndCase "FontTests.TitleFont_KeepsTheObjectThatIsAssigned", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        FontTests.TwoPropertiesAssignedTheSameFontShareIt
+        Expect.EndCase "FontTests.TwoPropertiesAssignedTheSameFontShareIt", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Grid_FirstCellIsTheLatestFirstDayOnOrBeforeTheMonthStart
+        Expect.EndCase "GridTests.Grid_FirstCellIsTheLatestFirstDayOnOrBeforeTheMonthStart", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Grid_FirstCellFollowsFirstDay
+        Expect.EndCase "GridTests.Grid_FirstCellFollowsFirstDay", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Grid_HasSixRowsOfSevenDays
+        Expect.EndCase "GridTests.Grid_HasSixRowsOfSevenDays", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Grid_ClickOnDayOfAnotherMonthShowsThatMonth
+        Expect.EndCase "GridTests.Grid_ClickOnDayOfAnotherMonthShowsThatMonth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Value_InAnotherMonth_PlacesTheGrid
+        Expect.EndCase "GridTests.Value_InAnotherMonth_PlacesTheGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Value_InAnotherMonth_SelectsACell
+        Expect.EndCase "GridTests.Value_InAnotherMonth_SelectsACell", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Value_InAnotherMonth_RefreshPlacesTheGrid
+        Expect.EndCase "GridTests.Value_InAnotherMonth_RefreshPlacesTheGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Value_InAnotherMonth_NextMovePlacesTheGrid
+        Expect.EndCase "GridTests.Value_InAnotherMonth_NextMovePlacesTheGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.FirstDay_PlacesTheDatesOfTheGrid
+        Expect.EndCase "GridTests.FirstDay_PlacesTheDatesOfTheGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.FirstDay_RefreshPlacesTheDatesOfTheGrid
+        Expect.EndCase "GridTests.FirstDay_RefreshPlacesTheDatesOfTheGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.FirstDay_NextMovePlacesTheDatesOfTheGrid
+        Expect.EndCase "GridTests.FirstDay_NextMovePlacesTheDatesOfTheGrid", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Press_NearTheRightEdge_SelectsTheLastColumn
+        Expect.EndCase "GridTests.Press_NearTheRightEdge_SelectsTheLastColumn", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        GridTests.Press_NearTheBottomEdge_SelectsTheLastRow
+        Expect.EndCase "GridTests.Press_NearTheBottomEdge_SelectsTheLastRow", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_Left_SelectsTheDayBefore
+        Expect.EndCase "KeyTests.Key_Left_SelectsTheDayBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_Right_SelectsTheDayAfter
+        Expect.EndCase "KeyTests.Key_Right_SelectsTheDayAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_Up_SelectsTheDayOneWeekBefore
+        Expect.EndCase "KeyTests.Key_Up_SelectsTheDayOneWeekBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_Down_SelectsTheDayOneWeekAfter
+        Expect.EndCase "KeyTests.Key_Down_SelectsTheDayOneWeekAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_PageUp_SelectsTheSameDayOneMonthBefore
+        Expect.EndCase "KeyTests.Key_PageUp_SelectsTheSameDayOneMonthBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_PageDown_SelectsTheSameDayOneMonthAfter
+        Expect.EndCase "KeyTests.Key_PageDown_SelectsTheSameDayOneMonthAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_ShiftPageUp_SelectsTheSameDayOneYearBefore
+        Expect.EndCase "KeyTests.Key_ShiftPageUp_SelectsTheSameDayOneYearBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_ShiftPageDown_SelectsTheSameDayOneYearAfter
+        Expect.EndCase "KeyTests.Key_ShiftPageDown_SelectsTheSameDayOneYearAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_CtrlPageUp_SelectsTheSameDayOneYearBefore
+        Expect.EndCase "KeyTests.Key_CtrlPageUp_SelectsTheSameDayOneYearBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_AltPageDown_SelectsTheSameDayOneYearAfter
+        Expect.EndCase "KeyTests.Key_AltPageDown_SelectsTheSameDayOneYearAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_Home_SelectsToday
+        Expect.EndCase "KeyTests.Key_Home_SelectsToday", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_End_ChangesNothing
+        Expect.EndCase "KeyTests.Key_End_ChangesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_RaisesKeyDownOnceAfterTheSelectionMoved
+        Expect.EndCase "KeyTests.Key_RaisesKeyDownOnceAfterTheSelectionMoved", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_ThatIsNotHandledRaisesKeyDown
+        Expect.EndCase "KeyTests.Key_ThatIsNotHandledRaisesKeyDown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_ReportsTheShiftStateInKeyDown
+        Expect.EndCase "KeyTests.Key_ReportsTheShiftStateInKeyDown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        KeyTests.Key_MovesTheSelectionWithoutOtherEvents
+        Expect.EndCase "KeyTests.Key_MovesTheSelectionWithoutOtherEvents", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.ShowDays_False_RemovesTheRowOfDayNames
+        Expect.EndCase "LayoutTests.ShowDays_False_RemovesTheRowOfDayNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.ShowTitle_OnlyDrawsTheTitleWhenItIsTrue
+        Expect.EndCase "LayoutTests.ShowTitle_OnlyDrawsTheTitleWhenItIsTrue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.MonthLength_LongShowsMoreOfTheMonthNameThanShort
+        Expect.EndCase "LayoutTests.MonthLength_LongShowsMoreOfTheMonthNameThanShort", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.DayLength_ALongerLengthShowsMoreOfTheDayNames
+        Expect.EndCase "LayoutTests.DayLength_ALongerLengthShowsMoreOfTheDayNames", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.ShowTitle_False_KeepsTheTitleAreaWhileTheListsAreShown
+        Expect.EndCase "LayoutTests.ShowTitle_False_KeepsTheTitleAreaWhileTheListsAreShown", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.ShowTitleAndShowDateSelectors_BothFalse_RemoveTheTitleArea
+        Expect.EndCase "LayoutTests.ShowTitleAndShowDateSelectors_BothFalse_RemoveTheTitleArea", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.ShowTitle_True_GivesTheTitleAreaItsHeightBack
+        Expect.EndCase "LayoutTests.ShowTitle_True_GivesTheTitleAreaItsHeightBack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.ShowDateSelectors_True_GivesTheTitleAreaItsHeightBack
+        Expect.EndCase "LayoutTests.ShowDateSelectors_True_GivesTheTitleAreaItsHeightBack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.TitleMargin_Set_GivesTheTitleAreaItsHeightBack
+        Expect.EndCase "LayoutTests.TitleMargin_Set_GivesTheTitleAreaItsHeightBack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Resize_GivesTheTitleAreaItsHeightBack
+        Expect.EndCase "LayoutTests.Resize_GivesTheTitleAreaItsHeightBack", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.TitleMargin_RaisedBy10_MovesTheDayNamesDownBy20
+        Expect.EndCase "LayoutTests.TitleMargin_RaisedBy10_MovesTheDayNamesDownBy20", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.DaysMargin_RaisedBy10_MovesTheGridDownBy20
+        Expect.EndCase "LayoutTests.DaysMargin_RaisedBy10_MovesTheGridDownBy20", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.TitleFont_ChangeToTheObject_ChangesTheHeightOfTheTitleArea
+        Expect.EndCase "LayoutTests.TitleFont_ChangeToTheObject_ChangesTheHeightOfTheTitleArea", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.TitleFont_AssignedAgain_FitsTheTitleAreaToTheFont
+        Expect.EndCase "LayoutTests.TitleFont_AssignedAgain_FitsTheTitleAreaToTheFont", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.DayFont_Change_ChangesTheHeightOfTheRowOfDayNamesAtTheNextPaint
+        Expect.EndCase "LayoutTests.DayFont_Change_ChangesTheHeightOfTheRowOfDayNamesAtTheNextPaint", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.GridFont_Change_ChangesTheDayNumbersAtTheNextPaint
+        Expect.EndCase "LayoutTests.GridFont_Change_ChangesTheDayNumbersAtTheNextPaint", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Title_ThatIsWiderThanTheSpaceBesideTheLists_IsNotCutOff
+        Expect.EndCase "LayoutTests.Title_ThatIsWiderThanTheSpaceBesideTheLists_IsNotCutOff", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        LayoutTests.Title_WithoutTheLists_IsNotCutOff
+        Expect.EndCase "LayoutTests.Title_WithoutTheLists_IsNotCutOff", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.NextDay_SelectsTheDayAfter
+        Expect.EndCase "MethodTests.NextDay_SelectsTheDayAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.PreviousDay_SelectsTheDayBefore
+        Expect.EndCase "MethodTests.PreviousDay_SelectsTheDayBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.NextWeek_SelectsTheDaySevenDaysAfter
+        Expect.EndCase "MethodTests.NextWeek_SelectsTheDaySevenDaysAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.PreviousWeek_SelectsTheDaySevenDaysBefore
+        Expect.EndCase "MethodTests.PreviousWeek_SelectsTheDaySevenDaysBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.NextMonth_SelectsTheSameDayOneMonthAfter
+        Expect.EndCase "MethodTests.NextMonth_SelectsTheSameDayOneMonthAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.PreviousMonth_SelectsTheSameDayOneMonthBefore
+        Expect.EndCase "MethodTests.PreviousMonth_SelectsTheSameDayOneMonthBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.NextYear_SelectsTheSameDayOneYearAfter
+        Expect.EndCase "MethodTests.NextYear_SelectsTheSameDayOneYearAfter", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.PreviousYear_SelectsTheSameDayOneYearBefore
+        Expect.EndCase "MethodTests.PreviousYear_SelectsTheSameDayOneYearBefore", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.NextMonth_FromJanuary31_SelectsTheLastDayOfFebruary
+        Expect.EndCase "MethodTests.NextMonth_FromJanuary31_SelectsTheLastDayOfFebruary", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.PreviousMonth_FromMarch31_SelectsTheLastDayOfFebruary
+        Expect.EndCase "MethodTests.PreviousMonth_FromMarch31_SelectsTheLastDayOfFebruary", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.NextYear_FromFebruary29_SelectsFebruary28
+        Expect.EndCase "MethodTests.NextYear_FromFebruary29_SelectsFebruary28", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.PreviousYear_FromFebruary29_SelectsFebruary28
+        Expect.EndCase "MethodTests.PreviousYear_FromFebruary29_SelectsFebruary28", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.NextMonth_FromFebruary28_SelectsMarch28
+        Expect.EndCase "MethodTests.NextMonth_FromFebruary28_SelectsMarch28", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.Methods_RaiseNoEvent
+        Expect.EndCase "MethodTests.Methods_RaiseNoEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.Methods_ShowTheMonthOfTheNewDateInTheLists
+        Expect.EndCase "MethodTests.Methods_ShowTheMonthOfTheNewDateInTheLists", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.Methods_DoNotStopAtTheEndOfTheYearList
+        Expect.EndCase "MethodTests.Methods_DoNotStopAtTheEndOfTheYearList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.Today_SelectsTodayAndShowsItsMonth
+        Expect.EndCase "MethodTests.Today_SelectsTodayAndShowsItsMonth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MethodTests.Today_KeepsTheTimeOfDay
+        Expect.EndCase "MethodTests.Today_KeepsTheTimeOfDay", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.Press_LeftOnADay_RaisesTheEventsInOrder
+        Expect.EndCase "MouseTests.Press_LeftOnADay_RaisesTheEventsInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.Press_LeftOnADay_SelectsThatDay
+        Expect.EndCase "MouseTests.Press_LeftOnADay_SelectsThatDay", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.Press_LeftOnADay_BeforeUpdateSeesTheOldValue
+        Expect.EndCase "MouseTests.Press_LeftOnADay_BeforeUpdateSeesTheOldValue", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.Press_RightButton_RaisesMouseUpAndClickOnly
+        Expect.EndCase "MouseTests.Press_RightButton_RaisesMouseUpAndClickOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.Press_OnTheTitle_RaisesMouseUpAndClickOnly
+        Expect.EndCase "MouseTests.Press_OnTheTitle_RaisesMouseUpAndClickOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.Press_OnADayName_RaisesMouseUpAndClickOnly
+        Expect.EndCase "MouseTests.Press_OnADayName_RaisesMouseUpAndClickOnly", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.DoubleClick_RaisesTheEventsInOrder
+        Expect.EndCase "MouseTests.DoubleClick_RaisesTheEventsInOrder", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.BeforeUpdate_CancelKeepsTheSelection
+        Expect.EndCase "MouseTests.BeforeUpdate_CancelKeepsTheSelection", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.BeforeUpdate_CancelOfOneKeepsTheSelection
+        Expect.EndCase "MouseTests.BeforeUpdate_CancelOfOneKeepsTheSelection", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.MouseDown_IsRaisedByAPress
+        Expect.EndCase "MouseTests.MouseDown_IsRaisedByAPress", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.MouseMove_IsRaisedWhenThePointerMoves
+        Expect.EndCase "MouseTests.MouseMove_IsRaisedWhenThePointerMoves", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        MouseTests.MouseEvents_ReportThePositionInDevicePixels
+        Expect.EndCase "MouseTests.MouseEvents_ReportThePositionInDevicePixels", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Day_SelectsThatDayOfTheShownMonth
+        Expect.EndCase "PartsTests.Day_SelectsThatDayOfTheShownMonth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Month_SelectsTheSameDayOfThatMonth
+        Expect.EndCase "PartsTests.Month_SelectsTheSameDayOfThatMonth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Year_SelectsTheSameDayAndMonthOfThatYear
+        Expect.EndCase "PartsTests.Year_SelectsTheSameDayAndMonthOfThatYear", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Day_ZeroRaises13
+        Expect.EndCase "PartsTests.Day_ZeroRaises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Day_32Raises13
+        Expect.EndCase "PartsTests.Day_32Raises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Day_31InAMonthOf30DaysRaises13
+        Expect.EndCase "PartsTests.Day_31InAMonthOf30DaysRaises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Day_FailedAssignmentChangesNothing
+        Expect.EndCase "PartsTests.Day_FailedAssignmentChangesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Month_13Raises13
+        Expect.EndCase "PartsTests.Month_13Raises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Month_0Raises13
+        Expect.EndCase "PartsTests.Month_0Raises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Month_FebruaryWithDay31Raises13
+        Expect.EndCase "PartsTests.Month_FebruaryWithDay31Raises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Month_FailedAssignmentChangesNothing
+        Expect.EndCase "PartsTests.Month_FailedAssignmentChangesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Year_LeapDayInAYearThatIsNotLeapRaises13
+        Expect.EndCase "PartsTests.Year_LeapDayInAYearThatIsNotLeapRaises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Year_FailedAssignmentChangesNothing
+        Expect.EndCase "PartsTests.Year_FailedAssignmentChangesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.Refresh_AfterAMonthOf13RaisesNoError
+        Expect.EndCase "PartsTests.Refresh_AfterAMonthOf13RaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.FirstDay_OutOfRangeRaises5
+        Expect.EndCase "PartsTests.FirstDay_OutOfRangeRaises5", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        PartsTests.FirstDay_FailedAssignmentChangesNothing
+        Expect.EndCase "PartsTests.FirstDay_FailedAssignmentChangesNothing", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.YearList_HoldsTheYears1900To2100
+        Expect.EndCase "SelectorTests.YearList_HoldsTheYears1900To2100", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.MonthList_HoldsTheNamesOfTheTwelveMonths
+        Expect.EndCase "SelectorTests.MonthList_HoldsTheNamesOfTheTwelveMonths", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.MonthList_Choice_SelectsTheSameDayAndRaisesNewMonth
+        Expect.EndCase "SelectorTests.MonthList_Choice_SelectsTheSameDayAndRaisesNewMonth", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.YearList_Choice_SelectsTheSameDayAndRaisesNewYear
+        Expect.EndCase "SelectorTests.YearList_Choice_SelectsTheSameDayAndRaisesNewYear", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.Year_Before1900_IsShownInTheYearList
+        Expect.EndCase "SelectorTests.Year_Before1900_IsShownInTheYearList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.Year_After2100_IsShownInTheYearList
+        Expect.EndCase "SelectorTests.Year_After2100_IsShownInTheYearList", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.Year_Outside1900To2100_RaisesNoErrorAndValueFollows
+        Expect.EndCase "SelectorTests.Year_Outside1900To2100_RaisesNoErrorAndValueFollows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.Value_Outside1900To2100_RaisesNoErrorAndYearFollows
+        Expect.EndCase "SelectorTests.Value_Outside1900To2100_RaisesNoErrorAndYearFollows", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.ShowDateSelectors_SwitchesTheTwoListsOnAndOff
+        Expect.EndCase "SelectorTests.ShowDateSelectors_SwitchesTheTwoListsOnAndOff", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.Lists_AreScaledWithTheDpiOfTheDisplay
+        Expect.EndCase "SelectorTests.Lists_AreScaledWithTheDpiOfTheDisplay", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        SelectorTests.Lists_KeepTheirDistanceFromTheRightEdgeWhenTheControlIsResized
+        Expect.EndCase "SelectorTests.Lists_KeepTheirDistanceFromTheRightEdgeWhenTheControlIsResized", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.Value_SetsYearMonthAndDay
+        Expect.EndCase "ValueTests.Value_SetsYearMonthAndDay", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.Value_KeepsTheTimeOfDay
+        Expect.EndCase "ValueTests.Value_KeepsTheTimeOfDay", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.Value_RaisesNoEvent
+        Expect.EndCase "ValueTests.Value_RaisesNoEvent", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.Value_UpdatesTheTwoLists
+        Expect.EndCase "ValueTests.Value_UpdatesTheTwoLists", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.Value_StringThatIsADateIsConverted
+        Expect.EndCase "ValueTests.Value_StringThatIsADateIsConverted", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.Value_StringThatIsNotADateRaises13
+        Expect.EndCase "ValueTests.Value_StringThatIsNotADateRaises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.Value_NullRaises94
+        Expect.EndCase "ValueTests.Value_NullRaises94", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.Value_WithTimeOfDayDoesNotChangeTheDate
+        Expect.EndCase "ValueTests.Value_WithTimeOfDayDoesNotChangeTheDate", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.ValueStr_ReadsValueAsCStrDoes
+        Expect.EndCase "ValueTests.ValueStr_ReadsValueAsCStrDoes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.ValueStr_SetsValueAsCDateDoes
+        Expect.EndCase "ValueTests.ValueStr_SetsValueAsCDateDoes", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.ValueStr_StringThatIsNotADateRaises13
+        Expect.EndCase "ValueTests.ValueStr_StringThatIsNotADateRaises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.ValueStr_EmptyStringRaises13
+        Expect.EndCase "ValueTests.ValueStr_EmptyStringRaises13", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.ValueIsNull_SetToTrueRaisesNoError
+        Expect.EndCase "ValueTests.ValueIsNull_SetToTrueRaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.ValueIsNull_SetToFalseRaisesNoError
+        Expect.EndCase "ValueTests.ValueIsNull_SetToFalseRaisesNoError", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.ValueIsNull_IsStoredAllTheSame
+        Expect.EndCase "ValueTests.ValueIsNull_IsStoredAllTheSame", Err.Number, Err.Description
+        Expect.StartCase
+        Err.Clear
+        ValueTests.ValueIsNull_HasNoEffectOnValue
+        Expect.EndCase "ValueTests.ValueIsNull_HasNoEffectOnValue", Err.Number, Err.Description
+        On Error GoTo 0
+        Expect.EndRun
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/SelectorTests.twin b/test/package-tests/xCalendar/Sources/SelectorTests.twin
new file mode 100644
index 00000000..c90a2963
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/SelectorTests.twin
@@ -0,0 +1,164 @@
+' SelectorTests: the month list and the year list (the date selectors) of the title area. A choice
+' in a list is the Down arrow key sent to the list's window.
+[TestFixture]
+Module SelectorTests
+
+    [TestCase]
+    Public Sub YearList_HoldsTheYears1900To2100()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim h As LongPtr = Rig.YearList(f)
+        Expect.AreEqual 201, CLng(Win.Send(h, Win.CB_GETCOUNT, 0, 0)), "the number of years in the year list"
+        Expect.AreEqual "1900", Win.ItemText(h, 0), "the first year in the year list"
+        Expect.AreEqual "2100", Win.ItemText(h, 200), "the last year in the year list"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MonthList_HoldsTheNamesOfTheTwelveMonths()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim h As LongPtr = Rig.MonthList(f)
+        Expect.AreEqual 12, CLng(Win.Send(h, Win.CB_GETCOUNT, 0, 0)), "the number of months in the month list"
+        Dim k As Long
+        For k = 1 To 12
+            Expect.AreEqual MonthName(k), Win.ItemText(h, k - 1), "item " & (k - 1) & " of the month list"
+        Next
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub MonthList_Choice_SelectsTheSameDayAndRaisesNewMonth()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        Win.KeyDown Rig.MonthList(f), Win.VK_DOWN
+        Expect.AreEqual #7/15/2026#, f.Cal.Value, "Value after July is chosen in the month list with June 15, 2026 selected"
+        Expect.AreEqual "NewMonth", Rig.Events(), "the events raised by a choice in the month list"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub YearList_Choice_SelectsTheSameDayAndRaisesNewYear()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        Win.KeyDown Rig.YearList(f), Win.VK_DOWN
+        Expect.AreEqual #6/15/2027#, f.Cal.Value, "Value after 2027 is chosen in the year list with June 15, 2026 selected"
+        Expect.AreEqual "NewYear", Rig.Events(), "the events raised by a choice in the year list"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Year_Before1900_IsShownInTheYearList()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        f.Cal.Year = 1899
+        Expect.AreEqual "1899", Win.TextOf(Rig.YearList(f)), "the year list after Year is set to 1899"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Year_After2100_IsShownInTheYearList()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        f.Cal.Year = 2101
+        Expect.AreEqual "2101", Win.TextOf(Rig.YearList(f)), "the year list after Year is set to 2101"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Year_Outside1900To2100_RaisesNoErrorAndValueFollows()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Rig.Rebase f, #6/15/2026#
+        On Error Resume Next
+        f.Cal.Year = 1899
+        Expect.AreEqual 0, Rig.ErrNum(), "the error raised by setting Year to 1899"
+        Expect.AreEqual #6/15/1899#, f.Cal.Value, "Value after Year is set to 1899"
+        f.Cal.Year = 2101
+        Expect.AreEqual 0, Rig.ErrNum(), "the error raised by setting Year to 2101"
+        Expect.AreEqual #6/15/2101#, f.Cal.Value, "Value after Year is set to 2101"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_Outside1900To2100_RaisesNoErrorAndYearFollows()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        On Error Resume Next
+        f.Cal.Value = #6/15/1850#
+        Expect.AreEqual 0, Rig.ErrNum(), "the error raised by setting Value to a date in 1850"
+        Expect.AreEqual 1850, f.Cal.Year, "Year after Value is set to a date in 1850"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ShowDateSelectors_SwitchesTheTwoListsOnAndOff()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        If Not Rig.ShowHidden(f) Then
+            Expect.Fail "the form could not be made transparent"
+        Else
+            Expect.IsTrue Win.Visible(Rig.YearList(f)) And Win.Visible(Rig.MonthList(f)), "the lists with ShowDateSelectors True"
+            f.Cal.ShowDateSelectors = False
+            Expect.IsFalse Win.Visible(Rig.YearList(f)) Or Win.Visible(Rig.MonthList(f)), "the lists with ShowDateSelectors False"
+            f.Cal.ShowDateSelectors = True
+            Expect.IsTrue Win.Visible(Rig.YearList(f)) And Win.Visible(Rig.MonthList(f)), "the lists with ShowDateSelectors set to True again"
+        End If
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lists_AreScaledWithTheDpiOfTheDisplay()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim scale As Double = Win.Dpi(f.hWnd) / 96
+        Dim h As LongPtr = Rig.CalWindow(f)
+        Dim yr As Win.RECT = Win.RectIn(Rig.YearList(f), h)
+        Dim mo As Win.RECT = Win.RectIn(Rig.MonthList(f), h)
+        Expect.IsTrue Abs((yr.Right - yr.Left) - 50 * scale) <= 1, "the width of the year list: expected " & CLng(50 * scale) & ", got " & (yr.Right - yr.Left)
+        Expect.IsTrue Abs((mo.Right - mo.Left) - 80 * scale) <= 1, "the width of the month list: expected " & CLng(80 * scale) & ", got " & (mo.Right - mo.Left)
+        Expect.IsTrue Abs((Win.ClientWidth(h) - yr.Right) - 5 * scale) <= 1, "the distance of the year list from the right edge: expected " & CLng(5 * scale) & ", got " & (Win.ClientWidth(h) - yr.Right)
+        Expect.IsTrue Abs((yr.Left - mo.Right) - 5 * scale) <= 1, "the distance between the two lists: expected " & CLng(5 * scale) & ", got " & (yr.Left - mo.Right)
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Lists_KeepTheirDistanceFromTheRightEdgeWhenTheControlIsResized()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim h As LongPtr = Rig.CalWindow(f)
+        Dim before As Long = Win.ClientWidth(h) - Win.RectIn(Rig.YearList(f), h).Right
+        Win.Resize h, f.hWnd, 500, 300
+        Dim after As Long = Win.ClientWidth(h) - Win.RectIn(Rig.YearList(f), h).Right
+        Expect.AreEqual 500, Win.ClientWidth(h), "the width of the control after it is resized to 500 pixels"
+        Expect.AreEqual before, after, "the distance of the year list from the right edge after the control is resized"
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/ValueTests.twin b/test/package-tests/xCalendar/Sources/ValueTests.twin
new file mode 100644
index 00000000..791a11b6
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/ValueTests.twin
@@ -0,0 +1,212 @@
+' ValueTests: Value, ValueStr and ValueIsNull.
+[TestFixture]
+Module ValueTests
+
+    [TestCase]
+    Public Sub Value_SetsYearMonthAndDay()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.Value = #3/15/2026#
+        Expect.AreEqual #3/15/2026#, f.Cal.Value, "Value after it is set to March 15, 2026"
+        Expect.AreEqual 2026, f.Cal.Year, "Year after Value is set to March 15, 2026"
+        Expect.AreEqual 3, f.Cal.Month, "Month after Value is set to March 15, 2026"
+        Expect.AreEqual 15, f.Cal.Day, "Day after Value is set to March 15, 2026"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_KeepsTheTimeOfDay()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.Value = #3/15/2026 2:30:00 PM#
+        Expect.AreEqual #3/15/2026 2:30:00 PM#, f.Cal.Value, "Value after it is set to March 15, 2026 2:30 PM"
+        Expect.AreEqual 15, f.Cal.Day, "Day after Value is set to March 15, 2026 2:30 PM"
+        Expect.AreEqual 3, f.Cal.Month, "Month after Value is set to March 15, 2026 2:30 PM"
+        Expect.AreEqual 2026, f.Cal.Year, "Year after Value is set to March 15, 2026 2:30 PM"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_RaisesNoEvent()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.Value = #3/15/2026#
+        f.Cal.Value = #3/16/2026#
+        f.Cal.Value = #4/16/2027#
+        Expect.AreEqual "", Rig.Events(), "the events raised by setting Value to dates in the same month, another month and another year"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_UpdatesTheTwoLists()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.Value = #3/15/2024#
+        Expect.AreEqual "2024", Win.TextOf(Rig.YearList(f)), "the year list after Value is set to March 15, 2024"
+        Expect.AreEqual MonthName(3), Win.TextOf(Rig.MonthList(f)), "the month list after Value is set to March 15, 2024"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_StringThatIsADateIsConverted()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim s As String = "2026-03-15"
+        f.Cal.Value = s
+        Expect.AreEqual #3/15/2026#, f.Cal.Value, "Value after it is set to the String 2026-03-15"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_StringThatIsNotADateRaises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim s As String = "not a date"
+        On Error Resume Next
+        f.Cal.Value = s
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting Value to the String ""not a date"""
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_NullRaises94()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        Dim v As Variant = Null
+        On Error Resume Next
+        f.Cal.Value = v
+        Expect.AreEqual 94, Rig.ErrNum(), "the error raised by setting Value to Null"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub Value_WithTimeOfDayDoesNotChangeTheDate()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.Value = #3/15/2026 11:59:59 PM#
+        Expect.AreEqual 15, f.Cal.Day, "Day after Value is set to 11:59:59 PM on March 15, 2026"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueStr_ReadsValueAsCStrDoes()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.Value = #3/15/2026#
+        Expect.AreEqual CStr(#3/15/2026#), f.Cal.ValueStr, "ValueStr for a Value with no time of day"
+        f.Cal.Value = #3/15/2026 2:30:00 PM#
+        Expect.AreEqual CStr(#3/15/2026 2:30:00 PM#), f.Cal.ValueStr, "ValueStr for a Value with a time of day"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueStr_SetsValueAsCDateDoes()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.ValueStr = "2026-03-15"
+        Expect.AreEqual CDate("2026-03-15"), f.Cal.Value, "Value after ValueStr is set to 2026-03-15"
+        f.Cal.ValueStr = "2026-04-16 14:30:00"
+        Expect.AreEqual CDate("2026-04-16 14:30:00"), f.Cal.Value, "Value after ValueStr is set to 2026-04-16 14:30:00"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueStr_StringThatIsNotADateRaises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        On Error Resume Next
+        f.Cal.ValueStr = "not a date"
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting ValueStr to ""not a date"""
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueStr_EmptyStringRaises13()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        On Error Resume Next
+        f.Cal.ValueStr = ""
+        Expect.AreEqual 13, Rig.ErrNum(), "the error raised by setting ValueStr to an empty string"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueIsNull_SetToTrueRaisesNoError()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        On Error Resume Next
+        f.Cal.ValueIsNull = True
+        Expect.AreEqual 0, Rig.ErrNum(), "the error raised by setting ValueIsNull to True"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueIsNull_SetToFalseRaisesNoError()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        On Error Resume Next
+        f.Cal.ValueIsNull = False
+        Expect.AreEqual 0, Rig.ErrNum(), "the error raised by setting ValueIsNull to False"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueIsNull_IsStoredAllTheSame()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        On Error Resume Next
+        f.Cal.ValueIsNull = True
+        Rig.ErrNum
+        Expect.IsTrue f.Cal.ValueIsNull, "ValueIsNull after it is set to True"
+        f.Cal.ValueIsNull = False
+        Rig.ErrNum
+        Expect.IsFalse f.Cal.ValueIsNull, "ValueIsNull after it is set to False"
+        Unload f
+        Expect.Done
+    End Sub
+
+    [TestCase]
+    Public Sub ValueIsNull_HasNoEffectOnValue()
+        Expect.Begin
+        Dim f As HostForm
+        Set f = Rig.NewForm()
+        f.Cal.Value = #3/15/2026#
+        On Error Resume Next
+        f.Cal.ValueIsNull = True
+        Rig.ErrNum
+        Expect.AreEqual #3/15/2026#, f.Cal.Value, "Value after ValueIsNull is set to True"
+        Expect.AreEqual "", Rig.Events(), "the events raised by setting ValueIsNull"
+        Unload f
+        Expect.Done
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/Sources/Win.twin b/test/package-tests/xCalendar/Sources/Win.twin
new file mode 100644
index 00000000..ce412e99
--- /dev/null
+++ b/test/package-tests/xCalendar/Sources/Win.twin
@@ -0,0 +1,275 @@
+' Win: the Win32 calls the test cases of xCalendar make on the control's windows. Every window a
+' case makes belongs to a form that is loaded and never seen (HostForm; see Rig.ShowHidden): the
+' cases send window messages to the control and read what it has drawn.
+Module Win
+
+    Private Declare PtrSafe Function SendMessageW Lib "user32" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+    Private Declare PtrSafe Function GetWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal uCmd As Long) As LongPtr
+    Private Declare PtrSafe Function GetClassNameW Lib "user32" (ByVal hWnd As LongPtr, ByVal lpClassName As LongPtr, ByVal nMaxCount As Long) As Long
+    Private Declare PtrSafe Function GetClientRect Lib "user32" (ByVal hWnd As LongPtr, ByRef lpRect As RECT) As Long
+    Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As LongPtr, ByRef lpRect As RECT) As Long
+    Private Declare PtrSafe Function ScreenToClient Lib "user32" (ByVal hWnd As LongPtr, ByRef lpPoint As POINT) As Long
+    Private Declare PtrSafe Function MoveWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
+    Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function IsWindowEnabled Lib "user32" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr
+    Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long
+    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long
+    Private Declare PtrSafe Function RedrawWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal lprcUpdate As LongPtr, ByVal hrgnUpdate As LongPtr, ByVal flags As Long) As Long
+    Private Declare PtrSafe Function GetLayeredWindowAttributes Lib "user32" (ByVal hWnd As LongPtr, ByRef pcrKey As Long, ByRef pbAlpha As Byte, ByRef pdwFlags As Long) As Long
+    Private Declare PtrSafe Function GetDpiForWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
+    Private Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
+    Private Declare PtrSafe Function GetKeyboardState Lib "user32" (ByRef lpKeyState As Byte) As Long
+    Private Declare PtrSafe Function SetKeyboardState Lib "user32" (ByRef lpKeyState As Byte) As Long
+    Private Declare PtrSafe Function MapVirtualKeyW Lib "user32" (ByVal uCode As Long, ByVal uMapType As Long) As Long
+    Private Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As LongPtr) As LongPtr
+    Private Declare PtrSafe Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As LongPtr, ByVal nWidth As Long, ByVal nHeight As Long) As LongPtr
+    Private Declare PtrSafe Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As LongPtr
+    Private Declare PtrSafe Function SelectObject Lib "gdi32" (ByVal hDC As LongPtr, ByVal hObject As LongPtr) As LongPtr
+    Private Declare PtrSafe Function PatBlt Lib "gdi32" (ByVal hDC As LongPtr, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long
+    Private Declare PtrSafe Function BitBlt Lib "gdi32" (ByVal hDestDC As LongPtr, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As LongPtr, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
+    Private Declare PtrSafe Function DeleteDC Lib "gdi32" (ByVal hDC As LongPtr) As Long
+    Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long
+    Private Declare PtrSafe Function GetDIBits Lib "gdi32" (ByVal hDC As LongPtr, ByVal hBitmap As LongPtr, ByVal nStartScan As Long, ByVal nNumScans As Long, ByVal lpBits As LongPtr, ByRef lpBI As BITMAPINFOHEADER, ByVal wUsage As Long) As Long
+
+    Public Type RECT
+        Left As Long
+        Top As Long
+        Right As Long
+        Bottom As Long
+    End Type
+
+    Private Type POINT
+        x As Long
+        y As Long
+    End Type
+
+    Private Type BITMAPINFOHEADER
+        biSize As Long
+        biWidth As Long
+        biHeight As Long
+        biPlanes As Integer
+        biBitCount As Integer
+        biCompression As Long
+        biSizeImage As Long
+        biXPelsPerMeter As Long
+        biYPelsPerMeter As Long
+        biClrUsed As Long
+        biClrImportant As Long
+    End Type
+
+    Public Const WM_COMMAND As Long = &H111
+    Public Const WM_MOUSEMOVE As Long = &H200
+    Public Const WM_LBUTTONDOWN As Long = &H201
+    Public Const WM_LBUTTONUP As Long = &H202
+    Public Const WM_LBUTTONDBLCLK As Long = &H203
+    Public Const WM_RBUTTONDOWN As Long = &H204
+    Public Const WM_RBUTTONUP As Long = &H205
+    Public Const WM_KEYDOWN As Long = &H100
+    Public Const WM_KEYUP As Long = &H101
+    Public Const MK_LBUTTON As Long = 1
+    Public Const MK_RBUTTON As Long = 2
+    Public Const VK_PRIOR As Long = &H21
+    Public Const VK_NEXT As Long = &H22
+    Public Const VK_END As Long = &H23
+    Public Const VK_HOME As Long = &H24
+    Public Const VK_LEFT As Long = &H25
+    Public Const VK_UP As Long = &H26
+    Public Const VK_RIGHT As Long = &H27
+    Public Const VK_DOWN As Long = &H28
+    Public Const CB_GETCOUNT As Long = &H146
+    Public Const CB_GETCURSEL As Long = &H147
+    Public Const CB_GETLBTEXT As Long = &H148
+    Public Const CB_GETLBTEXTLEN As Long = &H149
+    Public Const COLOR_BTNSHADOW As Long = 16
+
+    Public Function Send(ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
+        Send = SendMessageW(hWnd, Msg, wParam, lParam)
+    End Function
+
+    Public Function MakeLParam(ByVal x As Long, ByVal y As Long) As LongPtr
+        MakeLParam = CLngPtr(((y And &HFFFF&) * &H10000) Or (x And &HFFFF&))
+    End Function
+
+    Public Function FirstChild(ByVal hWnd As LongPtr) As LongPtr
+        FirstChild = GetWindow(hWnd, 5)
+    End Function
+
+    Public Function NextSibling(ByVal hWnd As LongPtr) As LongPtr
+        NextSibling = GetWindow(hWnd, 2)
+    End Function
+
+    Public Function ClassOf(ByVal hWnd As LongPtr) As String
+        Dim s As String = String$(256, 0)
+        Dim n As Long = GetClassNameW(hWnd, StrPtr(s), 256)
+        ClassOf = Left$(s, n)
+    End Function
+
+    ' The window's text (WM_GETTEXT), which for a combo box is what its edit part shows.
+    Public Function TextOf(ByVal hWnd As LongPtr) As String
+        Dim n As Long = CLng(SendMessageW(hWnd, &HE, 0, 0))
+        Dim s As String = String$(n + 2, 0)
+        n = CLng(SendMessageW(hWnd, &HD, n + 1, StrPtr(s)))
+        TextOf = Left$(s, n)
+    End Function
+
+    ' The text of item Index of a list or combo box.
+    Public Function ItemText(ByVal hWnd As LongPtr, ByVal Index As Long) As String
+        Dim n As Long = CLng(SendMessageW(hWnd, CB_GETLBTEXTLEN, Index, 0))
+        If n <= 0 Then Exit Function
+        Dim s As String = String$(n + 2, 0)
+        n = CLng(SendMessageW(hWnd, CB_GETLBTEXT, Index, StrPtr(s)))
+        ItemText = Left$(s, n)
+    End Function
+
+    Public Function Visible(ByVal hWnd As LongPtr) As Boolean
+        Visible = IsWindowVisible(hWnd) <> 0
+    End Function
+
+    Public Function Enabled(ByVal hWnd As LongPtr) As Boolean
+        Enabled = IsWindowEnabled(hWnd) <> 0
+    End Function
+
+    Public Function ClientWidth(ByVal hWnd As LongPtr) As Long
+        Dim rc As RECT
+        GetClientRect hWnd, rc
+        ClientWidth = rc.Right - rc.Left
+    End Function
+
+    Public Function ClientHeight(ByVal hWnd As LongPtr) As Long
+        Dim rc As RECT
+        GetClientRect hWnd, rc
+        ClientHeight = rc.Bottom - rc.Top
+    End Function
+
+    ' The window's rectangle in the client coordinates of Parent.
+    Public Function RectIn(ByVal hWnd As LongPtr, ByVal Parent As LongPtr) As RECT
+        Dim rc As RECT
+        Dim p As POINT
+        GetWindowRect hWnd, rc
+        p.x = rc.Left
+        p.y = rc.Top
+        ScreenToClient Parent, p
+        RectIn.Left = p.x
+        RectIn.Top = p.y
+        RectIn.Right = p.x + (rc.Right - rc.Left)
+        RectIn.Bottom = p.y + (rc.Bottom - rc.Top)
+    End Function
+
+    ' Gives the window the client size Width x Height, keeping its place in the parent.
+    Public Sub Resize(ByVal hWnd As LongPtr, ByVal Parent As LongPtr, ByVal Width As Long, ByVal Height As Long)
+        Dim rc As RECT = RectIn(hWnd, Parent)
+        MoveWindow hWnd, rc.Left, rc.Top, Width, Height, 1
+    End Sub
+
+    Public Function Dpi(ByVal hWnd As LongPtr) As Long
+        Dpi = GetDpiForWindow(hWnd)
+    End Function
+
+    Public Function SystemColour(ByVal Index As Long) As Long
+        SystemColour = GetSysColor(Index)
+    End Function
+
+    ' True when the window is layered and wholly transparent (alpha 0).
+    Public Function IsFullyTransparent(ByVal hWnd As LongPtr) As Boolean
+        Dim key As Long
+        Dim alpha As Byte = 255
+        Dim flags As Long
+        If GetLayeredWindowAttributes(hWnd, key, alpha, flags) <> 0 Then
+            IsFullyTransparent = ((flags And 2) <> 0) And alpha = 0
+        End If
+    End Function
+
+    ' Shows the window without activating it.
+    Public Sub ShowNoActivate(ByVal hWnd As LongPtr)
+        ShowWindow hWnd, 4
+    End Sub
+
+    ' Paints the window and its children now (RDW_INVALIDATE Or RDW_UPDATENOW Or RDW_ALLCHILDREN).
+    Public Sub PaintNow(ByVal hWnd As LongPtr)
+        RedrawWindow hWnd, 0, 0, &H1 Or &H100 Or &H80
+    End Sub
+
+    ' What the window's client area looks like now, as the window's own device context has it:
+    ' 32-bit pixels, top row first, blue first. A pixel the window cannot draw (under a child
+    ' window) is &HFF00FF.
+    Public Function Snapshot(ByVal hWnd As LongPtr) As Byte()
+        Dim w As Long = ClientWidth(hWnd)
+        Dim h As Long = ClientHeight(hWnd)
+        Dim wdc As LongPtr = GetDC(hWnd)
+        Dim dc As LongPtr = CreateCompatibleDC(wdc)
+        Dim bmp As LongPtr = CreateCompatibleBitmap(wdc, w, h)
+        Dim oldBmp As LongPtr = SelectObject(dc, bmp)
+        Dim brush As LongPtr = CreateSolidBrush(&HFF00FF)
+        Dim oldBrush As LongPtr = SelectObject(dc, brush)
+        PatBlt dc, 0, 0, w, h, &HF00021
+        SelectObject dc, oldBrush
+        DeleteObject brush
+        BitBlt dc, 0, 0, w, h, wdc, 0, 0, &HCC0020
+        SelectObject dc, oldBmp
+        Dim bi As BITMAPINFOHEADER
+        bi.biSize = LenB(bi)
+        bi.biWidth = w
+        bi.biHeight = -h
+        bi.biPlanes = 1
+        bi.biBitCount = 32
+        Dim bits() As Byte
+        ReDim bits(0 To w * h * 4 - 1)
+        GetDIBits dc, bmp, 0, h, VarPtr(bits(0)), bi, 0
+        DeleteObject bmp
+        DeleteDC dc
+        ReleaseDC hWnd, wdc
+        Snapshot = bits
+    End Function
+
+    ' The colour of pixel (x, y) of a snapshot Width pixels wide, as a COLORREF (red in the low byte,
+    ' as RGB makes it); -1 outside the snapshot.
+    Public Function Px(ByRef Bits() As Byte, ByVal Width As Long, ByVal x As Long, ByVal y As Long) As Long
+        Dim i As Long = (y * Width + x) * 4
+        If x < 0 Or x >= Width Or y < 0 Or i + 3 > UBound(Bits) Then
+            Px = -1
+        Else
+            Px = CLng(Bits(i + 2)) Or (CLng(Bits(i + 1)) * &H100&) Or (CLng(Bits(i)) * &H10000)
+        End If
+    End Function
+
+    ' The number of pixels of the rectangle that are colour Colour.
+    Public Function CountColour(ByRef Bits() As Byte, ByVal Width As Long, ByVal Colour As Long, ByVal x0 As Long, ByVal y0 As Long, ByVal x1 As Long, ByVal y1 As Long) As Long
+        Dim x As Long, y As Long
+        For y = y0 To y1
+            For x = x0 To x1
+                If Px(Bits, Width, x, y) = Colour Then CountColour = CountColour + 1
+            Next
+        Next
+    End Function
+
+    ' Sets the modifier keys that GetKeyState reports for this thread: bit 0 Shift, bit 1 Ctrl,
+    ' bit 2 Alt.
+    Public Sub SetMods(ByVal Mods As Long)
+        Dim ks(0 To 255) As Byte
+        GetKeyboardState ks(0)
+        ks(&H10) = IIf((Mods And 1) <> 0, &H80, 0)
+        ks(&HA0) = ks(&H10)
+        ks(&H11) = IIf((Mods And 2) <> 0, &H80, 0)
+        ks(&HA2) = ks(&H11)
+        ks(&H12) = IIf((Mods And 4) <> 0, &H80, 0)
+        ks(&HA4) = ks(&H12)
+        SetKeyboardState ks(0)
+    End Sub
+
+    ' WM_KEYDOWN for a virtual key, sent to the window, with the modifiers Mods held.
+    Public Sub KeyDown(ByVal hWnd As LongPtr, ByVal VKey As Long, Optional ByVal Mods As Long = 0)
+        Dim scan As Long = MapVirtualKeyW(VKey, 0)
+        Dim lp As Long = 1 Or (scan * &H10000)
+        If VKey >= VK_PRIOR And VKey <= VK_DOWN Then lp = lp Or &H1000000
+        Dim msg As Long = WM_KEYDOWN
+        If (Mods And 4) <> 0 Then
+            msg = &H104
+            lp = lp Or &H20000000
+        End If
+        If Mods <> 0 Then SetMods Mods
+        SendMessageW hWnd, msg, VKey, CLngPtr(lp)
+        If Mods <> 0 Then SetMods 0
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/compile/CompileTests.twin b/test/package-tests/xCalendar/compile/CompileTests.twin
new file mode 100644
index 00000000..4195942e
--- /dev/null
+++ b/test/package-tests/xCalendar/compile/CompileTests.twin
@@ -0,0 +1,16 @@
+' xCalendar: what the compiler refuses. Each line ends in a comment ' CASE <Name>: <code>.
+Module CompileTests
+
+    Public Sub TypeName_ProjectAndClassShareTheName()
+        Dim a As xCalendar ' CASE ProjectNameIsNotAType: TB5139
+        Dim b As xCalendar.xCalendar ' CASE QualifiedClassNameIsAType: none
+    End Sub
+
+    Public Sub EnumMembers_ShortLengthAndLongLengthAreAmbiguous()
+        Dim a As DayLengthEnum = ShortLength ' CASE BareShortLengthIsAmbiguous: TB5073
+        Dim b As MonthLengthEnum = LongLength ' CASE BareLongLengthIsAmbiguous: TB5073
+        Dim c As DayLengthEnum = DayLengthEnum.LongLength ' CASE QualifiedDayLengthMemberIsAccepted: none
+        Dim d As MonthLengthEnum = MonthLengthEnum.ShortLength ' CASE QualifiedMonthLengthMemberIsAccepted: none
+    End Sub
+
+End Module
diff --git a/test/package-tests/xCalendar/expect.json b/test/package-tests/xCalendar/expect.json
new file mode 100644
index 00000000..cf49bace
--- /dev/null
+++ b/test/package-tests/xCalendar/expect.json
@@ -0,0 +1,101 @@
+{
+  "version": "1.0.17.0",
+  "cases": {
+    "ColourTests.TitleFontColor_ColoursTheTitle": {
+      "fails": "1 of 1 checks failed: the pixels of the colour given to TitleFontColor: expected True, got False"
+    },
+    "ColourTests.TitleFontColor_DefaultColoursTheTitle": {
+      "fails": "1 of 1 checks failed: the pixels of the default TitleFontColor, orange: expected True, got False"
+    },
+    "ColourTests.DayFontColor_ColoursTheDayNames": {
+      "fails": "1 of 1 checks failed: the pixels of the colour given to DayFontColor: expected True, got False"
+    },
+    "ColourTests.GridFontColor_ColoursTheDayNumbers": {
+      "fails": "1 of 1 checks failed: the pixels of the colour given to GridFontColor: expected True, got False"
+    },
+    "ColourTests.GridFont_DaysOfTheMonthsBeforeAndAfterAreGrey": {
+      "fails": "1 of 1 checks failed: the pixels of grey (&HAAAAAA) for the days of September and November in the grid for October 2026: expected True, got False"
+    },
+    "ColourTests.GridLinesColor_Flat_DefaultIsDrawnAsTheSystemColour": {
+      "fails": "1 of 2 checks failed: the colour of a vertical line with the default GridLinesColor and GridCellEffect Flat: expected 10526880, got 16"
+    },
+    "EnabledTests.Enabled_False_DrawsTheTitleInGrey": {
+      "fails": "1 of 1 checks failed: the pixels of the grey (&HBCBCBC) of a disabled title: expected True, got False"
+    },
+    "EnabledTests.Enabled_False_DrawsTheDayNamesAndNumbersInGrey": {
+      "fails": "1 of 1 checks failed: the pixels of the grey (&H999999) of disabled day names and day numbers: expected True, got False"
+    },
+    "GridTests.Value_InAnotherMonth_PlacesTheGrid": {
+      "fails": "1 of 1 checks failed: the date of row 2, column 6 after Value is set to March 15, 2026: expected 3/15/2026, got 10/19/2025"
+    },
+    "GridTests.Value_InAnotherMonth_SelectsACell": {
+      "fails": "1 of 1 checks failed: the pixels of the selected cell's colour after Value is set to a date in another month: expected True, got False"
+    },
+    "GridTests.Value_InAnotherMonth_RefreshPlacesTheGrid": {
+      "fails": "1 of 1 checks failed: the date of row 2, column 6 after Value is set to March 15, 2026 and Refresh is called: expected 3/15/2026, got 10/19/2025"
+    },
+    "GridTests.FirstDay_PlacesTheDatesOfTheGrid": {
+      "fails": "1 of 1 checks failed: the first cell of the grid for October 2026 after FirstDay is set to Sunday: expected 9/27/2026, got 9/28/2026"
+    },
+    "GridTests.FirstDay_RefreshPlacesTheDatesOfTheGrid": {
+      "fails": "1 of 1 checks failed: the first cell of the grid for October 2026 after FirstDay is set to Sunday and Refresh is called: expected 9/27/2026, got 9/28/2026"
+    },
+    "GridTests.Press_NearTheRightEdge_SelectsTheLastColumn": {
+      "fails": "1 of 2 checks failed: the presses near the right edge (x:selected date) that did not select a date of the first row, June 1 to 7, 2026: expected \"\", got \"252:2026-06-08 253:2026-06-08 254:2026-06-08 \""
+    },
+    "GridTests.Press_NearTheBottomEdge_SelectsTheLastRow": {
+      "fails": "1 of 2 checks failed: the presses near the bottom edge (y:selected date) that selected a date below the last row of the grid: expected \"\", got \"290:2026-07-13 291:2026-07-13 \""
+    },
+    "LayoutTests.ShowTitle_True_GivesTheTitleAreaItsHeightBack": {
+      "fails": "1 of 1 checks failed: the height of the title area after ShowTitle is set to True again with ShowDateSelectors False: expected True, got False"
+    },
+    "LayoutTests.TitleFont_ChangeToTheObject_ChangesTheHeightOfTheTitleArea": {
+      "fails": "1 of 1 checks failed: the height of the title area after TitleFont.Size is raised from 16 to 24: it was 46, it is 46: expected True, got False"
+    },
+    "LayoutTests.Title_ThatIsWiderThanTheSpaceBesideTheLists_IsNotCutOff": {
+      "fails": "1 of 1 checks failed: the title \"September 2026\" in the default font reaches the left edge of the control: expected False, got True"
+    },
+    "MethodTests.NextMonth_FromJanuary31_SelectsTheLastDayOfFebruary": {
+      "fails": "1 of 1 checks failed: Value after NextMonth with January 31, 2026 selected: expected 2/28/2026, got 3/3/2026"
+    },
+    "MethodTests.PreviousMonth_FromMarch31_SelectsTheLastDayOfFebruary": {
+      "fails": "1 of 1 checks failed: Value after PreviousMonth with March 31, 2026 selected: expected 2/28/2026, got 3/3/2026"
+    },
+    "MethodTests.NextYear_FromFebruary29_SelectsFebruary28": {
+      "fails": "1 of 1 checks failed: Value after NextYear with February 29, 2024 selected: expected 2/28/2025, got 3/1/2025"
+    },
+    "MethodTests.PreviousYear_FromFebruary29_SelectsFebruary28": {
+      "fails": "1 of 1 checks failed: Value after PreviousYear with February 29, 2024 selected: expected 2/28/2023, got 3/1/2023"
+    },
+    "MouseTests.MouseDown_IsRaisedByAPress": {
+      "fails": "2 of 2 checks failed: the MouseDown events raised by a left press on a day: expected 1, got 0; the MouseDown events raised by a right press on the title area: expected 1, got 0"
+    },
+    "PartsTests.Day_FailedAssignmentChangesNothing": {
+      "fails": "1 of 2 checks failed: Day after setting it to 31 failed with June 15, 2026 selected: expected 15, got 31"
+    },
+    "PartsTests.Month_FailedAssignmentChangesNothing": {
+      "fails": "1 of 3 checks failed: Month after setting it to 13 failed with June 15, 2026 selected: expected 6, got 13"
+    },
+    "PartsTests.Year_FailedAssignmentChangesNothing": {
+      "fails": "1 of 2 checks failed: Year after setting it to 2025 failed with February 29, 2024 selected: expected 2024, got 2025"
+    },
+    "PartsTests.Refresh_AfterAMonthOf13RaisesNoError": {
+      "fails": "1 of 1 checks failed: the error raised by Refresh after setting Month to 13 failed: expected 0, got 5"
+    },
+    "PartsTests.FirstDay_FailedAssignmentChangesNothing": {
+      "fails": "1 of 1 checks failed: FirstDay after setting it to 8 failed: expected 2, got 8"
+    },
+    "SelectorTests.Year_Before1900_IsShownInTheYearList": {
+      "fails": "1 of 1 checks failed: the year list after Year is set to 1899: expected \"1899\", got \"\""
+    },
+    "SelectorTests.Year_After2100_IsShownInTheYearList": {
+      "fails": "1 of 1 checks failed: the year list after Year is set to 2101: expected \"2101\", got \"2026\""
+    },
+    "ValueTests.ValueIsNull_SetToTrueRaisesNoError": {
+      "fails": "1 of 1 checks failed: the error raised by setting ValueIsNull to True: expected 0, got 438"
+    },
+    "ValueTests.ValueIsNull_SetToFalseRaisesNoError": {
+      "fails": "1 of 1 checks failed: the error raised by setting ValueIsNull to False: expected 0, got 438"
+    }
+  }
+}