Écran de première installation

Les migrations posent le schéma et rien d'autre : une instance neuve n'a
aucun compte et aucun utilisateur, donc personne ne peut se connecter. Le
seed n'y remédie pas — il installe une démonstration et refuse de tourner
en production, à raison.

La première visite est désormais redirigée vers `/installation` : nom de
l'entreprise, premier établissement avec son fuseau, et compte
administrateur. L'écran crée le compte, le catalogue des capacités, les
cinq rôles fournis, le propriétaire et son périmètre, puis ouvre la session
par le chemin ordinaire — le rôle propriétaire exige aussitôt un second
facteur, comme il se doit.

Il ne se rouvre pas. Une table `Installation` d'une seule ligne, contrainte
en base et protégée par un trigger append-only, marque l'instance. Elle est
délibérément hors RLS, et c'est sa raison d'être : la politique d'`Account`
ne laisse voir que le compte courant, si bien qu'une instance installée
paraîtrait vierge à qui n'a pas de session — et la création d'un
propriétaire se rouvrirait à tout venant. Le recensement des politiques
porte l'exception, affirmée dans les deux sens.

Deux défauts trouvés en éprouvant l'écran sur une base réellement vierge :

`INSERT ... RETURNING` sur `Account` était refusé. L'insertion est permise,
mais la relecture de la ligne écrite passe par la politique de lecture, qui
exige un compte courant. L'identifiant est donc tiré côté application et
annoncé avant la création — la règle de partout, appliquée à la
transaction qui crée le compte.

Et un défaut qui dépassait cet écran : React 19 vide les champs non
contrôlés dès qu'une action se termine, refus compris. Les champs vidés
portant `required`, le clic suivant était arrêté par la validation du
navigateur avant d'émettre un `submit` — le formulaire paraissait mort. Le
formulaire de connexion en souffrait aussi ; la suite l'avait manqué parce
qu'aucun test ne soumettait deux fois de suite. `PersistentForm`
photographie la saisie à l'envoi et la rétablit, mots de passe exclus.

Au passage, `Field` rattache son indication par `aria-describedby` : placée
dans le `<label>`, elle entrait dans le nom accessible du champ.

Éprouvé sur une base vierge, image de production, rôle NOSUPERUSER
NOBYPASSRLS : redirection, trois refus motivés, installation, second
facteur exigé, écran refermé pour le propriétaire comme pour un visiteur.
450 tests unitaires et d'intégration, 77 tests de bout en bout.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Cr9dkEHwbDgkWPnyGj1Rjv

tests/integration/rls.test.ts

@@ -178,6 +178,19 @@ describeIfDb('immutabilité du journal d’audit', () => {
   });
 });
 
+/**
+ * Tables qui portent `accountId` sans être soumises à la RLS.
+ *
+ * Une seule, et elle doit le rester : `Installation` répond à « cette instance
+ * a-t-elle déjà un compte ? » **avant** qu'un compte soit connu. La lui poser
+ * sous RLS reviendrait à demander à la politique du compte courant de parler
+ * d'un compte qu'on n'a pas — elle répondrait « rien », et l'écran de première
+ * installation, qui crée un propriétaire, se rouvrirait à tout venant.
+ *
+ * Ce qui la protège à la place est vérifié par le test suivant.
+ */
+const EXEMPT = new Set(['Installation']);
+
 describeIfDb('couverture des politiques', () => {
   let client: Client;
 
@@ -221,7 +234,8 @@ describeIfDb('couverture des politiques', () => {
 
     const unprotected = rows.filter(
       (row) =>
-        !row.relrowsecurity || !row.relforcerowsecurity || row.policies < 2,
+        !EXEMPT.has(row.table_name) &&
+        (!row.relrowsecurity || !row.relforcerowsecurity || row.policies < 2),
     );
 
     expect(
@@ -229,4 +243,31 @@ describeIfDb('couverture des politiques', () => {
       'tables sans RLS forcée ou sans politique de lecture et d’écriture',
     ).toEqual([]);
   });
+
+  it('la seule table exemptée l’est bien, et autrement protégée', async () => {
+    // Une exemption qui n'est que l'absence d'une règle finit par en couvrir
+    // d'autres. Celle-ci est donc affirmée dans les deux sens : `Installation`
+    // est hors RLS **et** ce qui la protège à la place existe réellement.
+    const { rows } = await client.query<{ relrowsecurity: boolean }>(
+      `SELECT relrowsecurity FROM pg_class WHERE relname = 'Installation'`,
+    );
+    expect(rows[0]?.relrowsecurity, 'Installation est hors RLS à dessein').toBe(
+      false,
+    );
+
+    // Ce qui tient lieu de protection : la ligne ne se réécrit pas, ne
+    // s'efface pas, et ne peut pas être doublée.
+    const { rows: guards } = await client.query<{
+      triggers: number;
+      checks: number;
+    }>(`
+      SELECT
+        (SELECT count(*)::int FROM pg_trigger
+          WHERE tgrelid = '"Installation"'::regclass AND NOT tgisinternal) AS triggers,
+        (SELECT count(*)::int FROM pg_constraint
+          WHERE conrelid = '"Installation"'::regclass AND contype = 'c') AS checks
+    `);
+    expect(guards[0]?.triggers, 'trigger append-only').toBeGreaterThan(0);
+    expect(guards[0]?.checks, 'contrainte de ligne unique').toBeGreaterThan(0);
+  });
 });