//! §7 multi-repo ownership — the claim, end to end via `pic`.
//!
//! A `[project]` claims a group node on first apply; the SAME project re-applies
//! freely; a DIFFERENT project applying to that node is refused (409) unless it
//! `--takeover`s (which requires group-admin). An app inherits ownership from
//! its nearest claimed ancestor group. `pic groups ls` shows the owning
//! project's slug. The pure claim policy is unit-tested in manager-core; this
//! journey pins the wire + CLI + authz interaction.

use std::fs;
use std::path::Path;

use tempfile::TempDir;

use crate::common;
use crate::common::cleanup::{AppGuard, GroupGuard, ScriptGuard};

fn manifest_dir() -> TempDir {
    let dir = TempDir::new().expect("tempdir");
    fs::create_dir_all(dir.path().join("scripts")).expect("scripts dir");
    fs::write(
        dir.path().join("scripts/shared.rhai"),
        r#"log::info("shared"); "ok""#,
    )
    .unwrap();
    dir
}

/// A `[project]` + `[group]` manifest (with one group script) in `dir`.
fn write_group_manifest(dir: &Path, project: &str, group: &str) {
    let m = format!(
        "[project]\nslug = \"{project}\"\nname = \"Proj\"\n\n\
         [group]\nslug = \"{group}\"\nname = \"Grp\"\n\n\
         [[scripts]]\nname = \"shared\"\nfile = \"scripts/shared.rhai\"\n"
    );
    fs::write(dir.join("picloud.toml"), m).unwrap();
}

fn group_script_id(env: &common::TestEnv, group: &str) -> String {
    let ls = common::pic_as(env)
        .args(["scripts", "ls", "--group", group])
        .output()
        .expect("scripts ls");
    let table = String::from_utf8(ls.stdout).unwrap();
    table
        .lines()
        .map(common::cells)
        .find(|c| c.get(2) == Some(&"shared"))
        .and_then(|c| c.first().map(|s| (*s).to_string()))
        .unwrap_or_else(|| panic!("group script not found:\n{table}"))
}

/// The `owner` cell (index 3: slug, name, parent, OWNER, created_at) for
/// `group` in `pic groups ls`.
fn owner_cell(env: &common::TestEnv, group: &str) -> String {
    let ls = common::pic_as(env)
        .args(["groups", "ls"])
        .output()
        .expect("groups ls");
    let table = String::from_utf8(ls.stdout).unwrap();
    table
        .lines()
        .map(common::cells)
        .find(|c| c.first() == Some(&group))
        .and_then(|c| c.get(3).map(|s| (*s).to_string()))
        .unwrap_or_else(|| panic!("group `{group}` not in groups ls:\n{table}"))
}

#[ignore = "needs DATABASE_URL pointing at a running Postgres"]
#[test]
fn claim_conflict_takeover_and_app_inheritance() {
    let Some(fx) = common::fixture_or_skip() else {
        return;
    };
    let env = common::admin_env(fx);
    let group = common::unique_slug("own-grp");
    let proj_a = common::unique_slug("plat");
    let proj_b = common::unique_slug("teamb");

    // The group must pre-exist (groups pre-exist; the manifest owns content).
    let _g = GroupGuard::new(&env.url, &env.token, &group);
    common::pic_as(&env)
        .args(["groups", "create", &group])
        .assert()
        .success();

    // (1) First apply by project A CLAIMS the group.
    let dir_a = manifest_dir();
    write_group_manifest(dir_a.path(), &proj_a, &group);
    common::pic_as(&env)
        .args(["apply", "--file"])
        .arg(dir_a.path().join("picloud.toml"))
        .assert()
        .success();
    let _gs = ScriptGuard::new(&env.url, &env.token, &group_script_id(&env, &group));
    assert_eq!(
        owner_cell(&env, &group),
        proj_a,
        "the owner column must show the claiming project"
    );

    // (2) The SAME project re-applies with no conflict (idempotent).
    common::pic_as(&env)
        .args(["apply", "--file"])
        .arg(dir_a.path().join("picloud.toml"))
        .assert()
        .success();

    // (3) A DIFFERENT project applying to the owned group is refused (409),
    // naming the current owner.
    let dir_b = manifest_dir();
    write_group_manifest(dir_b.path(), &proj_b, &group);
    let out = common::pic_as(&env)
        .args(["apply", "--file"])
        .arg(dir_b.path().join("picloud.toml"))
        .output()
        .expect("apply B");
    assert!(!out.status.success(), "a second project must be refused");
    let err = String::from_utf8_lossy(&out.stderr).to_lowercase();
    assert!(
        err.contains("owned by project") && err.contains(&proj_a),
        "the conflict must name the owner `{proj_a}`:\n{err}"
    );

    // (4) --takeover (admin holds group-admin implicitly) reassigns to B.
    common::pic_as(&env)
        .args(["apply", "--file"])
        .arg(dir_b.path().join("picloud.toml"))
        .arg("--takeover")
        .assert()
        .success();
    assert_eq!(
        owner_cell(&env, &group),
        proj_b,
        "takeover must reassign the owner"
    );

    // (5) An app under the claimed group INHERITS ownership: the owning project
    // applies fine; a foreign or absent project is refused.
    let app = common::unique_slug("own-app");
    let _a = AppGuard::new(&env.url, &env.token, &app);
    common::pic_as(&env)
        .args(["apps", "create", &app, "--group", &group])
        .assert()
        .success();
    let app_dir = manifest_dir();
    let app_manifest = |proj: Option<&str>| -> String {
        let head = proj
            .map(|p| format!("[project]\nslug = \"{p}\"\n\n"))
            .unwrap_or_default();
        format!("{head}[app]\nslug = \"{app}\"\nname = \"App\"\n")
    };
    // Project B owns the group → ok.
    fs::write(
        app_dir.path().join("picloud.toml"),
        app_manifest(Some(&proj_b)),
    )
    .unwrap();
    common::pic_as(&env)
        .args(["apply", "--file"])
        .arg(app_dir.path().join("picloud.toml"))
        .assert()
        .success();
    // Project A no longer owns the group → refused.
    fs::write(
        app_dir.path().join("picloud.toml"),
        app_manifest(Some(&proj_a)),
    )
    .unwrap();
    let out = common::pic_as(&env)
        .args(["apply", "--file"])
        .arg(app_dir.path().join("picloud.toml"))
        .output()
        .expect("apply app A");
    assert!(
        !out.status.success(),
        "an app under a claimed group must match its owner"
    );
    // No [project] under a claimed subtree → refused.
    fs::write(app_dir.path().join("picloud.toml"), app_manifest(None)).unwrap();
    let out = common::pic_as(&env)
        .args(["apply", "--file"])
        .arg(app_dir.path().join("picloud.toml"))
        .output()
        .expect("apply app none");
    assert!(
        !out.status.success(),
        "a no-project app under a claimed subtree is refused"
    );

    // (6) --takeover is capability-gated: a member with only EDITOR on the group
    // can reconcile it but must NOT be able to take it over (needs group-admin).
    let mem = common::member::member_user(fx, &common::unique_slug("own-mem"));
    common::member::grant_group_membership(fx, &group, &mem.id, "editor");
    let menv = common::custom_env(&env.url, &mem.token);
    common::seed_credentials(&menv, &mem.username);
    let proj_c = common::unique_slug("teamc");
    let dir_c = manifest_dir();
    write_group_manifest(dir_c.path(), &proj_c, &group);
    let out = common::pic_as(&menv)
        .args(["apply", "--file"])
        .arg(dir_c.path().join("picloud.toml"))
        .arg("--takeover")
        .output()
        .expect("member takeover");
    assert!(
        !out.status.success(),
        "a member without group-admin must not be able to --takeover"
    );
    // The owner is unchanged — the failed takeover rolled back.
    assert_eq!(
        owner_cell(&env, &group),
        proj_b,
        "a refused takeover must not change ownership"
    );
}

/// §6/§7 M2 — `[project] parent_group` is the ceiling: applies are refused for
/// any node not strictly within the attach point's subtree.
#[ignore = "needs DATABASE_URL pointing at a running Postgres"]
#[test]
fn attach_point_ceiling_bounds_the_subtree() {
    let Some(fx) = common::fixture_or_skip() else {
        return;
    };
    let env = common::admin_env(fx);
    // acme (root) → team (child); plus a sibling `outsider` root.
    let acme = common::unique_slug("acme");
    let team = common::unique_slug("team");
    let outsider = common::unique_slug("outsider");
    let _a = GroupGuard::new(&env.url, &env.token, &acme);
    let _t = GroupGuard::new(&env.url, &env.token, &team);
    let _o = GroupGuard::new(&env.url, &env.token, &outsider);
    common::pic_as(&env)
        .args(["groups", "create", &acme])
        .assert()
        .success();
    common::pic_as(&env)
        .args(["groups", "create", &team, "--parent", &acme])
        .assert()
        .success();
    common::pic_as(&env)
        .args(["groups", "create", &outsider])
        .assert()
        .success();

    let proj = common::unique_slug("attach-p");
    let dir = manifest_dir();
    let apply = |m: &str| -> std::process::Output {
        fs::write(dir.path().join("picloud.toml"), m).unwrap();
        common::pic_as(&env)
            .args(["apply", "--file"])
            .arg(dir.path().join("picloud.toml"))
            .output()
            .expect("apply")
    };

    // A group node strictly BELOW the attach point → ok.
    let out = apply(&format!(
        "[project]\nslug = \"{proj}\"\nparent_group = \"{acme}\"\n\n\
         [group]\nslug = \"{team}\"\nname = \"Team\"\n"
    ));
    assert!(
        out.status.success(),
        "a node below the attach point applies: {}",
        String::from_utf8_lossy(&out.stderr)
    );

    // The attach point ITSELF → refused (you can't apply above your local root).
    let out = apply(&format!(
        "[project]\nslug = \"{proj}\"\nparent_group = \"{acme}\"\n\n\
         [group]\nslug = \"{acme}\"\nname = \"Acme\"\n"
    ));
    assert!(
        !out.status.success(),
        "applying the attach point itself must be refused"
    );
    let err = String::from_utf8_lossy(&out.stderr).to_lowercase();
    assert!(
        err.contains("attach point"),
        "the refusal must mention the attach point:\n{err}"
    );

    // A SIBLING subtree (not under acme) → refused.
    let out = apply(&format!(
        "[project]\nslug = \"{proj}\"\nparent_group = \"{acme}\"\n\n\
         [group]\nslug = \"{outsider}\"\nname = \"Out\"\n"
    ));
    assert!(
        !out.status.success(),
        "a sibling subtree is outside the attach point"
    );
}