#!/usr/bin/env bash
# install-tui-test.sh — valida la capa NUEVA del instalador interactivo (takana-live-install.sh) SIN
# tocar disco: usa el gancho TAKANA_INSTALL_DRYRUN=1, un /sys/block falso y un rootfs de scratch.
# Ejercita (1) el modo interactivo (detección de discos + prompts + confirmación fuerte) y (2) el modo
# desatendido por env; en ambos verifica que apply_post_install_config escribe hostname/hosts/shadow/
# authorized_keys/localtime/install.conf correctamente. Las ramas EFI/BIOS reales (particionado) las
# cubre iso-install-test.sh / efi-install-test.sh en QEMU; acá validamos la lógica de UI + config.
set -euo pipefail
ROOT="$(cd "$(dirname "$0")/.." && pwd)"; cd "$ROOT"
INST="$ROOT/scripts/takana-live-install.sh"
W="$(mktemp -d)"; trap 'rm -rf "$W"' EXIT
fail() { echo "✗ FALLO: $*" >&2; exit 1; }

# --- sysfs falso: vda (montado = simula el medio live) + vdb (target) ---
SB="$W/sys-block"
mkdir -p "$SB/vda/device" "$SB/vdb/device"
echo $((8*1024*1024*1024/512))  > "$SB/vda/size"   # 8 GiB
printf 'LIVE-USB\n'             > "$SB/vda/device/model"
echo $((16*1024*1024*1024/512)) > "$SB/vdb/size"   # 16 GiB
printf 'TARGET-SSD\n'           > "$SB/vdb/device/model"
MOUNTS="$W/mounts"; printf '/dev/vda1 / ext4 ro 0 0\n' > "$MOUNTS"

# --- zoneinfo falso (hermético) ---
ZI="$W/zoneinfo"; mkdir -p "$ZI/America"; : > "$ZI/America/La_Paz"

# --- rootfs de scratch #1 (destino de la config del modo interactivo) ---
R1="$W/root1"; mkdir -p "$R1/etc" "$R1/usr/share/zoneinfo/America"
printf 'root:!:19000:0:99999:7:::\ndaemon:!:19000::::::\n' > "$R1/etc/shadow"
printf '127.0.0.1\tlocalhost\n' > "$R1/etc/hosts"
: > "$R1/usr/share/zoneinfo/America/La_Paz"

echo "== test 1: modo INTERACTIVO (TUI dry-run) =="
# Respuestas: disco #2 (vdb) · root 2048M · store 512M · hostname midistro · cred 2 (ssh) · authkeys ·
#             USUARIO ana · zona America/La_Paz · teclado (default us) · confirmación "/dev/vdb"
#
# ⚠ `ana` es la respuesta de la SECCIÓN DE CUENTA (lib/cuenta.sh, 2026-10-15). Este rootfs de
# scratch no trae `usr/bin/doas`, así que la librería NO pregunta por administración —y eso es
# determinista a propósito: mira el rootfs del test y no el de la máquina que corre el test—.
OUT1="$W/out1.txt"
BB=/nonexistent SYS_BLOCK="$SB" MOUNTS="$MOUNTS" ZONEINFO="$ZI" \
  TAKANA_INSTALL_INTERACTIVE=1 TAKANA_INSTALL_DRYRUN=1 TAKANA_INSTALL_TESTROOT="$R1" \
  sh "$INST" >"$OUT1" 2>&1 <<'ANSWERS' || { cat "$OUT1"; fail "el instalador salió con error"; }
2
2048
512
midistro
2
ssh-ed25519 AAAATESTKEY user@host
ana
America/La_Paz

/dev/vdb
ANSWERS

grep -q 'TARGET-SSD' "$OUT1" || { cat "$OUT1"; fail "no listó el disco vdb con su modelo"; }
grep -q 'montado' "$OUT1"    || { cat "$OUT1"; fail "no marcó vda como montado (medio live)"; }
grep -q 'DRYRUN' "$OUT1"     || { cat "$OUT1"; fail "no llegó al plan dry-run (¿se cortó antes?)"; }

[ "$(cat "$R1/etc/hostname")" = midistro ] || fail "hostname no quedó en midistro"
grep -q 'midistro' "$R1/etc/hosts"          || fail "hosts no menciona el hostname"
grep -q 'AAAATESTKEY' "$R1/root/.ssh/authorized_keys" || fail "authorized_keys no escrito"
[ -L "$R1/etc/localtime" ] || fail "localtime no es symlink"
case "$(readlink "$R1/etc/localtime")" in */America/La_Paz) : ;; *) fail "localtime no apunta a La_Paz"; esac
grep -q 'HOSTNAME=midistro' "$R1/etc/hammer/install.conf" || fail "install.conf sin hostname"
grep -q 'KEYMAP=us'         "$R1/etc/hammer/install.conf" || fail "install.conf sin keymap default"
# root en shadow debe seguir intacto (interactivo eligió ssh, no tocó la contraseña)
grep -q '^root:!:' "$R1/etc/shadow" || fail "shadow de root alterado sin querer"
# ── la cuenta (lib/cuenta.sh) ──────────────────────────────────────────────────────────────────
# Sin `cryptpw` (BB=/nonexistent) no se puede hashear nada, así que lo que se exige acá es que la
# cuenta EXISTA con su hogar y que el instalador DIGA que queda cerrada. Un instalador que la deja
# cerrada en silencio es el defecto que esta sección cierra.
grep -q "^ana:x:1000:1000:" "$R1/etc/passwd" || { cat "$R1/etc/passwd"; fail "el usuario ana no quedó en passwd con uid 1000"; }
grep -q "^ana:x:1000:" "$R1/etc/group"       || { cat "$R1/etc/group"; fail "el grupo ana no quedó en group"; }
[ -d "$R1/home/ana" ] || fail "/home/ana no se creó"
grep -q '^ana:!:' "$R1/etc/shadow" || { cat "$R1/etc/shadow"; fail "ana debía quedar con la cuenta cerrada (no hay cryptpw)"; }
grep -q 'SIN contraseña posible' "$OUT1" || { cat "$OUT1"; fail "no avisó que la cuenta queda sin contraseña"; }
grep -q 'INADMINISTRABLE' "$OUT1" || { cat "$OUT1"; fail "no avisó que la máquina queda inadministrable (root cerrado y nadie escala)"; }
[ ! -e "$R1/etc/doas.conf" ] || fail "escribió doas.conf en una imagen que no trae doas"
echo "  ✓ interactivo: disco elegido + confirmado, config escrita (hostname/hosts/ssh/tz/keymap)"
# ── /etc/profile: que exista, y que NO sea de NADIE EN PARTICULAR ─────────────────────────────
# El segundo control es el que importa para una imagen que instala un desconocido: la primera
# versión de este PATH llevaba `/home/sergio/.local/bin` escrito a mano, porque nació de arreglar
# UNA máquina. Un fichero de `/etc` con el hogar de una persona adentro es un defecto que no se ve
# hasta que lo instala otra.
[ -f "$R1/etc/profile" ] || fail "/etc/profile no se escribió (sin él nadie lee /etc/profile.d y /usr/local/bin no existe para el shell)"
grep -q '/usr/local/bin' "$R1/etc/profile" || fail "/etc/profile no garantiza /usr/local/bin"
grep -q '/etc/profile.d' "$R1/etc/profile" || fail "/etc/profile no sourcea profile.d"
grep -q '/home/[a-z]' "$R1/etc/profile" && { grep -n '/home/[a-z]' "$R1/etc/profile"; fail "/etc/profile lleva el hogar de UNA persona: no sirve para instalar en otra máquina"; }
echo "  ✓ la cuenta: usuario creado con uid 1000, su hogar, y los DOS avisos (cerrada / inadministrable)"
echo "  ✓ /etc/profile: los seis directorios, profile.d sourceado, y SIN el hogar de nadie escrito"

echo "== test 2: confirmación ERRÓNEA cancela sin tocar nada =="
OUT2="$W/out2.txt"
if BB=/nonexistent SYS_BLOCK="$SB" MOUNTS="$MOUNTS" ZONEINFO="$ZI" \
   TAKANA_INSTALL_INTERACTIVE=1 TAKANA_INSTALL_DRYRUN=1 TAKANA_INSTALL_TESTROOT="$W/root-none" \
   sh "$INST" >"$OUT2" 2>&1 <<'ANSWERS'
2
2048
512
h
3

us
sda-equivocado
ANSWERS
then fail "debió cancelar con confirmación errónea (exit != 0)"; fi
grep -qi 'Cancelado' "$OUT2" || { cat "$OUT2"; fail "no reportó cancelación"; }
[ ! -d "$W/root-none/etc" ] || fail "escribió config pese a cancelar"
echo "  ✓ confirmación errónea ⇒ aborta sin escribir"

echo "== test 3: modo DESATENDIDO por env (device + HAMMER_ROOT_HASH) =="
R3="$W/root3"; mkdir -p "$R3/etc"
printf 'root:!:19000:0:99999:7:::\n' > "$R3/etc/shadow"
OUT3="$W/out3.txt"
BB=/nonexistent TAKANA_INSTALL_DRYRUN=1 TAKANA_INSTALL_TESTROOT="$R3" \
  HAMMER_HOSTNAME=srv01 HAMMER_ROOT_HASH='$6$salt$deadbeefHASH' HAMMER_TZ=UTC HAMMER_KEYMAP=es \
  sh "$INST" /dev/vdb 3000 700 >"$OUT3" 2>&1 || { cat "$OUT3"; fail "desatendido salió con error"; }
grep -q 'DEV=/dev/vdb  ROOT_MB=3000  STORE_MB=700' "$OUT3" || { cat "$OUT3"; fail "no respetó device/tamaños posicionales"; }
grep -q '^root:\$6\$salt\$deadbeefHASH:' "$R3/etc/shadow" || { cat "$R3/etc/shadow"; fail "no reemplazó el hash de root"; }
[ "$(cat "$R3/etc/hostname")" = srv01 ] || fail "hostname desatendido incorrecto"
grep -q 'KEYMAP=es' "$R3/etc/hammer/install.conf" || fail "keymap por env no propagado"
echo "  ✓ desatendido: hash de root reemplazado + hostname/keymap por env"

echo "== test 4: sin device y sin TTY ⇒ error de uso (no cuelga) =="
if BB=/nonexistent sh "$INST" </dev/null >/dev/null 2>&1; then fail "debió fallar sin device ni TTY"; fi
echo "  ✓ uso inválido reportado"

echo "== test 5: LA CUENTA COMPLETA, con cryptpw de verdad =="
# Lo que los tests 1-4 no pueden mostrar: que la contraseña se hashea, que la regla de doas se
# escribe, y que el usuario entra a los grupos del hardware. Necesita un busybox con `cryptpw`; si
# no hay, se SALTA diciéndolo — un test que se calla cuando no puede medir es peor que ninguno.
BBREAL=$(command -v busybox 2>/dev/null || true)
if [ -n "$BBREAL" ] && printf x | "$BBREAL" cryptpw -m sha512 >/dev/null 2>&1; then
  R5="$W/root5"; mkdir -p "$R5/etc" "$R5/usr/bin" "$R5/usr/share/zoneinfo"
  printf 'root:!:19000:0:99999:7:::\n'  > "$R5/etc/shadow"
  printf 'root:x:0:0:root:/root:/bin/sh\n' > "$R5/etc/passwd"
  printf 'root:x:0:\nvideo:x:27:\ninput:x:97:\n'  > "$R5/etc/group"
  printf '127.0.0.1\tlocalhost\n'       > "$R5/etc/hosts"
  : > "$R5/usr/bin/doas"; chmod 755 "$R5/usr/bin/doas"   # con doas, la librería SÍ pregunta por admin
  OUT5="$W/out5.txt"
  # Respuestas: disco 2 · 2048 · 512 · hostname · cred 3 (root sin cambios) · usuario ana ·
  #             contraseña ×2 · admin 1 · zona (vacío) · teclado (default) · confirmación
  BB="$BBREAL" SYS_BLOCK="$SB" MOUNTS="$MOUNTS" ZONEINFO="$R5/usr/share/zoneinfo" \
    TAKANA_INSTALL_INTERACTIVE=1 TAKANA_INSTALL_DRYRUN=1 TAKANA_INSTALL_TESTROOT="$R5" \
    sh "$INST" >"$OUT5" 2>&1 <<'ANSWERS' || { cat "$OUT5"; fail "test 5 salió con error"; }
2
2048
512
midistro
3
ana
clave-de-prueba
clave-de-prueba
1


/dev/vdb
ANSWERS
  grep -qE '^ana:\$6\$' "$R5/etc/shadow" || { cat "$R5/etc/shadow"; fail "la contraseña de ana no quedó hasheada en SHA-512"; }
  grep -q 'clave-de-prueba' "$R5/etc/shadow" "$OUT5" && fail "LA CONTRASEÑA EN CLARO quedó escrita en algún sitio"
  grep -q '^permit persist ana$' "$R5/etc/doas.conf" || { cat "$R5/etc/doas.conf" 2>/dev/null; fail "la regla de doas no se escribió"; }
  [ "$(stat -c%a "$R5/etc/doas.conf")" = 640 ] || fail "doas.conf no quedó 640"
  grep -q '^video:x:27:ana$' "$R5/etc/group" || { grep '^video' "$R5/etc/group"; fail "ana no entró al grupo video (seatd lo exige por nombre)"; }
  grep -q '^input:x:97:ana$' "$R5/etc/group" || fail "ana no entró al grupo input"
  grep -q 'INADMINISTRABLE' "$OUT5" && fail "avisó inadministrable cuando ana SÍ puede escalar"
  echo "  ✓ cuenta completa: hash SHA-512, nada en claro, permit persist 640, grupos video+input"

  echo "== test 6: el usuario YA EXISTE (cosechado del /home conservado) ⇒ sólo su contraseña =="
  # Éste es el caso que vivió el operador: `--keep` cosecha `sergio` del /home con el uid de sus
  # archivos y `!` por contraseña. La sección NO debe crear un segundo usuario ni cambiarle el uid:
  # si le cambia el uid, sus archivos dejan de ser suyos — el único daño irreparable que hay acá.
  R6="$W/root6"; mkdir -p "$R6/etc" "$R6/usr/bin" "$R6/home/ana" "$R6/usr/share/zoneinfo"
  printf 'root:x:0:0:root:/root:/bin/sh\nana:x:1047:1047:ana:/home/ana:/bin/sh\n' > "$R6/etc/passwd"
  printf 'root:x:0:\nana:x:1047:\n' > "$R6/etc/group"
  printf 'root:!:19000:0:99999:7:::\nana:!:20000:0:99999:7:::\n' > "$R6/etc/shadow"
  printf '127.0.0.1\tlocalhost\n' > "$R6/etc/hosts"
  : > "$R6/usr/bin/doas"; chmod 755 "$R6/usr/bin/doas"
  : > "$R6/home/ana/lo-que-ya-tenia"
  OUT6="$W/out6.txt"
  BB="$BBREAL" SYS_BLOCK="$SB" MOUNTS="$MOUNTS" ZONEINFO="$R6/usr/share/zoneinfo" \
    TAKANA_INSTALL_INTERACTIVE=1 TAKANA_INSTALL_DRYRUN=1 TAKANA_INSTALL_TESTROOT="$R6" \
    sh "$INST" >"$OUT6" 2>&1 <<'ANSWERS' || { cat "$OUT6"; fail "test 6 salió con error"; }
2
2048
512
midistro
3
ana
otra-clave
otra-clave
1


/dev/vdb
ANSWERS
  [ "$(grep -c '^ana:' "$R6/etc/passwd")" = 1 ] || { grep '^ana:' "$R6/etc/passwd"; fail "duplicó el usuario ana"; }
  grep -q '^ana:x:1047:1047:' "$R6/etc/passwd" || { grep '^ana:' "$R6/etc/passwd"; fail "le CAMBIÓ el uid: sus archivos dejarían de ser suyos"; }
  grep -qE '^ana:\$6\$' "$R6/etc/shadow" || fail "no le puso contraseña al usuario cosechado"
  [ -f "$R6/home/ana/lo-que-ya-tenia" ] || fail "tocó el /home que ya existía"
  grep -q 'ya existe con uid 1047' "$OUT6" || { cat "$OUT6"; fail "no dijo que reusaba el usuario cosechado"; }
  echo "  ✓ usuario cosechado: uid 1047 intacto, sin duplicar, /home sin tocar, contraseña puesta"
else
  echo "  ⊘ SALTADO: no hay un busybox con cryptpw en esta máquina (los tests 5 y 6 no se midieron)"
fi

echo
echo "✓✓ install-tui-test: TODOS los casos verdes"