# A router configured by settings.json, changed and rebuilt on the device:
# install it (its configuration directory travels with the secrets), boot it
# without network, then
#   - rebuilding the unchanged settings gives exactly the installed system,
#   - a changed setting is built offline, activated and confirmed,
#   - an unconfirmed change is rolled back,
#   - and the same through the web UI from a LAN client: discard the
#     unapplied change, edit the DHCP pool and add a reservation, apply,
#     confirm.
# The rest of the web UI (dashboard, backup, forms) is tested in webui.nix,
# which needs no installed system.
{ self, pkgs }:
let
  inherit (pkgs) lib;
  common = import ./common.nix;

  settings = pkgs.writeText "settings.json" (
    builtins.toJSON {
      # The schema of this source: the number of migrations.
      version = lib.count (lib.hasSuffix ".jq") (builtins.attrNames (builtins.readDir ../migrations));
      system = {
        hostName = "router";
        stateVersion = "26.11";
        sshKeys = [
          "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFakeKeyForTestsOnlyXXXXXXXXXXXXXXXXXXXXXXXXXX test"
        ];
      };
      router = {
        wan.interface = "eth1";
        lans.main = {
          interface = "eth2";
          internet = true;
          ipv4.address = "192.168.10.1";
          dhcp.pool = {
            start = "192.168.10.100";
            end = "192.168.10.199";
          };
        };
      };
    }
  );

  # Only so the test driver can talk to the installed system.
  local = pkgs.writeText "local.nix" ''
    { modulesPath, ... }:
    {
      imports = [ (modulesPath + "/testing/test-instrumentation.nix") ];
    }
  '';

  configDir = self.lib.mkConfigDir { inherit pkgs settings local; };

  # What the device evaluates from configDir.
  toplevel =
    (self.lib.mkRouterSystem {
      settings = "${configDir}/settings.json";
      modules = [ "${configDir}/local.nix" ];
    }).config.system.build.toplevel;

  sharedDisk = {
    virtualisation.diskImage = "./target.qcow2";
    virtualisation.diskSize = 8192;
  };
in
pkgs.testers.runNixOSTest {
  name = "router-apply";

  nodes = {
    installer =
      { lib, ... }:
      {
        imports = [
          sharedDisk
          self.nixosModules.installer
          common.tools
        ];
        router.installer.system = toplevel;
        virtualisation.memorySize = 2048;
        virtualisation.fileSystems."/".autoFormat = true;
        virtualisation.emptyDiskImages = [ 1024 ];
        virtualisation.rootDevice = "/dev/vdb";
        nix.settings.substituters = lib.mkForce [ ];
      };

    client =
      { lib, ... }:
      {
        imports = [ common.tools ];
        virtualisation.vlans = [ 2 ];
        networking.interfaces.eth1.ipv4.addresses = lib.mkForce [
          {
            address = "192.168.10.50";
            prefixLength = 24;
          }
        ];
      };

    target = {
      imports = [ sharedDisk ];
      # Evaluating a NixOS system takes memory.
      virtualisation.memorySize = 3072;
      virtualisation.vlans = [
        1
        2
      ];
      virtualisation.useBootLoader = true;
      virtualisation.useEFIBoot = true;
      virtualisation.useDefaultFilesystems = false;
      virtualisation.efi.keepVariables = false;
      virtualisation.fileSystems."/" = {
        device = "/dev/disk/by-label/this-is-not-real-and-will-never-be-used";
        fsType = "ext4";
      };
    };
  };

  testScript = ''
    installer.start()
    installer.wait_for_unit("multi-user.target")
    installer.succeed("mkdir -p /root/secrets && cp -r ${configDir} /root/secrets/config")
    installer.succeed("router-install --yes --secrets /root/secrets /dev/vda >&2")
    installer.shutdown()

    target.state_dir = installer.state_dir
    target.start()
    target.wait_for_unit("multi-user.target")

    def current():
        return target.succeed("readlink -f /run/current-system").strip()

    def pool_end():
        return target.succeed("grep -o '192.168.10.100 - 192.168.10.[0-9]*' /etc/kea/dhcp4-server.conf").split()[-1]

    with subtest("the installed system is the one built from the settings"):
        assert current() == "${toplevel}"
        target.succeed("test -f /var/lib/router/config/settings.json")

    with subtest("rebuilding unchanged settings on the device changes nothing"):
        out = target.succeed("router-apply 2>&1")
        assert "no changes" in out, out

    with subtest("a changed setting is built offline, activated and confirmed"):
        target.succeed("sed -i 's/192.168.10.199/192.168.10.150/' /var/lib/router/config/settings.json")
        target.succeed("router-apply 5min >&2")
        assert current() != "${toplevel}"
        assert pool_end() == "192.168.10.150"
        target.succeed("systemctl is-active router-rollback.timer")
        target.succeed("router-confirm >&2")
        target.fail("systemctl is-active router-rollback.timer")
        confirmed = current()
        assert target.succeed("readlink -f /nix/var/nix/profiles/system").strip() == confirmed

    with subtest("an unconfirmed change is rolled back"):
        target.succeed("sed -i 's/192.168.10.150/192.168.10.120/' /var/lib/router/config/settings.json")
        target.succeed("router-apply 20s >&2")
        assert pool_end() == "192.168.10.120"
        target.wait_until_succeeds(f"test $(readlink -f /run/current-system) = {confirmed}", timeout=120)
        assert pool_end() == "192.168.10.150"

    ui = "https://192.168.10.1"

    def curl(args):
        return client.succeed(f"curl -sk -b /tmp/jar -c /tmp/jar {args}")

    def csrf(path):
        return curl(f"{ui}{path} | grep -o 'name=\"csrf\" value=\"[^\"]*' | head -1 | cut -d'\"' -f4").strip()

    with subtest("the web UI is reachable from the LAN and wants the password"):
        target.succeed("echo hunter2hunter2 | router-webui passwd /var/lib/router/webui-password")
        target.wait_for_unit("router-webui.service")
        client.start()
        client.wait_until_succeeds(f"curl -sk -o /dev/null {ui}/login", timeout=60)
        assert curl(f"-o /dev/null -w '%{{http_code}}' -d password=wrong {ui}/login") == "401"
        assert curl(f"-o /dev/null -w '%{{http_code}}' -d password=hunter2hunter2 {ui}/login") == "303"

    with subtest("the web UI shows the rolled back change as unapplied and discards it"):
        page = curl(f"{ui}/")
        assert "not part of the confirmed system" in page, page
        token = csrf("/")
        curl(f"-d csrf={token} {ui}/discard")
        assert "192.168.10.150" in target.succeed("cat /var/lib/router/config/settings.json")
        assert "match the confirmed system" in curl(f"{ui}/")

    with subtest("a pool change and a reservation made in the web UI are applied and confirmed"):
        token = csrf("/network")
        form = " ".join(f"--data-urlencode '{k}={v}'" for k, v in {
            "csrf": token, "hostName": "router", "wan.interface": "eth1", "wan.type": "dhcp",
            "lans": "1", "lan.0.name": "main", "lan.0.interface": "eth2", "lan.0.address": "192.168.10.1",
            "lan.0.internet": "on", "lan.0.dhcp": "on",
            "lan.0.poolStart": "192.168.10.100", "lan.0.poolEnd": "192.168.10.130",
        }.items())
        assert curl(f"-o /dev/null -w '%{{http_code}}' -X POST {ui}/network") == "403"
        assert curl(f"-o /dev/null -w '%{{http_code}}' {form} {ui}/network") == "303"
        # A reservation too: one apply for both changes.
        reservation = " ".join(f"--data-urlencode '{k}={v}'" for k, v in {
            "csrf": csrf("/dhcp"), "rows": "1", "res.0.lan": "main", "res.0.name": "printer",
            "res.0.mac": "AA:BB:CC:00:11:22", "res.0.address": "192.168.10.60",
        }.items())
        assert curl(f"-o /dev/null -w '%{{http_code}}' {reservation} {ui}/dhcp") == "303"
        curl(f"-d csrf={csrf('/')} {ui}/apply")
        target.wait_until_succeeds("test $(systemctl show -p ActiveState --value router-apply.service) = inactive"
                                   " && test $(systemctl show -p Result --value router-apply.service) = success", timeout=600)
        assert pool_end() == "192.168.10.130"
        target.succeed("grep -q 'aa:bb:cc:00:11:22' /etc/kea/dhcp4-server.conf && grep -q '192.168.10.60' /etc/kea/dhcp4-server.conf")
        assert "Waiting for confirmation" in curl(f"{ui}/")
        curl(f"-d csrf={csrf('/')} {ui}/confirm")
        target.wait_until_fails("systemctl is-active router-rollback.timer", timeout=60)
        target.wait_until_succeeds("test $(systemctl show -p ActiveState --value router-confirm.service) = inactive")
        assert target.succeed("readlink -f /nix/var/nix/profiles/system").strip() == current()
        assert "match the confirmed system" in curl(f"{ui}/")

    with subtest("naming the network cards in the web UI is staged for the next boot"):
        before = current()
        mac = {n: target.succeed(f"cat /sys/class/net/{n}/address").strip() for n in ("eth1", "eth2")}
        names = " ".join(f"--data-urlencode '{k}={v}'" for k, v in {
            "csrf": csrf("/network"), "rows": "2",
            "dev.0": "eth1", "mac.0": mac["eth1"], "from.0": "eth1", "name.0": "wan",
            "dev.1": "eth2", "mac.1": mac["eth2"], "from.1": "eth2", "name.1": "lan",
        }.items())
        assert curl(f"-o /dev/null -w '%{{http_code}}' {names} {ui}/interfaces") == "303"
        # The settings follow the names at once; the system does not.
        saved = target.succeed("cat /var/lib/router/config/settings.json")
        assert '"interface": "lan"' in saved and '"interface": "wan"' in saved and mac["eth2"] in saved, saved
        assert "after the next reboot" in curl(f"{ui}/network")
        curl(f"-d csrf={csrf('/')} {ui}/apply")
        target.wait_until_succeeds("test $(systemctl show -p ActiveState --value router-apply.service) = inactive"
                                   " && test $(systemctl show -p Result --value router-apply.service) = success", timeout=600)
        assert current() == before
        target.fail("systemctl is-active router-rollback.timer")
        staged = target.succeed("readlink -f /nix/var/nix/profiles/system").strip()
        assert staged != before
        target.succeed(f"grep -q '^nic {mac['eth2']} lan$' {staged}/etc/router/interface-names")
        target.succeed("ip link show eth2")
        # The overview samples the system every few seconds.
        client.wait_until_succeeds(f"curl -sk -b /tmp/jar {ui}/ | grep -c 'starts at the next reboot' >/dev/null", timeout=60)

    with subtest("after the reboot the cards have their names and the router works"):
        target.shutdown()
        target.start()
        target.wait_for_unit("multi-user.target")
        target.succeed("ip link show wan && ip link show lan")
        target.fail("ip link show eth1")
        target.wait_until_succeeds("ip -4 addr show dev lan | grep -q 192.168.10.1/24")
        target.wait_for_unit("kea-dhcp4-server.service")
        target.wait_for_unit("router-webui.service")
        client.wait_until_succeeds(f"curl -sk -o /dev/null {ui}/login", timeout=120)
        assert "match the confirmed system" in curl(f"-d password=hunter2hunter2 -L {ui}/login")
        assert "starts at the next reboot" not in curl(f"{ui}/")

    with subtest("an assistant with a change token edits and checks the settings through MCP"):
        secret = curl(f"-d csrf={csrf('/tokens')} -d name=assistant -d scope=change {ui}/tokens | grep -o 'rtr_[A-Za-z0-9_-]*' | sed -n 1p").strip()
        assert secret.startswith("rtr_"), secret
        import json

        def mcp(tool, args=None, token=secret):
            body = json.dumps({"jsonrpc": "2.0", "id": 1, "method": "tools/call", "params": {"name": tool, "arguments": args or {}}})
            out = client.succeed(f"curl -sk -H 'Authorization: Bearer {token}' -d '{body}' {ui}/mcp")
            res = json.loads(out)["result"]
            return res["content"][0]["text"], res.get("isError", False)

        assert client.succeed(f"curl -sk -o /dev/null -w '%{{http_code}}' -d '{{}}' {ui}/mcp").strip() == "401"
        text, failed = mcp("get_settings")
        got = json.loads(text)
        assert not failed and got["settings"]["router"]["lans"]["main"], text
        assert "WAN" in mcp("list_interfaces")[0]
        assert json.loads(mcp("get_status")[0])["uplink"] is not None
        # A bad pool: saved, not applied, and the check reports the router's assertion.
        text, failed = mcp("update_settings", {"etag": got["etag"], "patch": {"router": {"lans": {"main": {"dhcp": {"pool": {"end": "10.9.9.9"}}}}}}})
        assert not failed and '"applied": false' in text, text
        text, failed = mcp("check_settings")
        for _ in range(20):
            if "running" not in text:
                break
            text, failed = mcp("check_settings")
        res = json.loads(text)
        assert res["ok"] is False and "pool is not inside" in res["error"], text
        assert current() == target.succeed("readlink -f /nix/var/nix/profiles/system").strip()
        assert "10.9.9.9" in mcp("get_pending_changes")[0]
        # Discarded, the settings evaluate again.
        assert not mcp("discard_changes")[1]
        text, failed = mcp("check_settings")
        for _ in range(20):
            if "running" not in text:
                break
            text, failed = mcp("check_settings")
        assert json.loads(text)["ok"] is True, text
        # The journal can be read, through MCP and through the REST API (same tokens).
        text, failed = mcp("get_logs", {"unit": "router-webui", "lines": 5})
        assert not failed and "router-webui" in text, text
        text, failed = mcp("get_logs", {"unit": "--vacuum-time=1s"})
        assert failed, text
        rest = f"curl -sk -H 'Authorization: Bearer {secret}'"
        assert "router-webui" in client.succeed(f"{rest} '{ui}/api/v1/logs?unit=router-webui&lines=5'")
        assert json.loads(client.succeed(f"{rest} {ui}/api/v1/status"))["uplink"] is not None
        assert client.succeed(f"{rest} -o /dev/null -w '%{{http_code}}' -X PATCH -d '{{}}' {ui}/api/v1/settings").strip() == "400"
        assert client.succeed(f"curl -sk -o /dev/null -w '%{{http_code}}' {ui}/api/v1/status").strip() == "401"
        spec = json.loads(client.succeed(f"curl -sk {ui}/api/openapi.json"))
        assert spec["openapi"].startswith("3.") and "/api/v1/logs" in spec["paths"]
        # The log shows what was done, by whom.
        assert "update_settings" in curl(f"{ui}/tokens") and "assistant" in curl(f"{ui}/tokens")
  '';
}