package repo

import (
	"context"
	"strings"
	"testing"
)

/*
「欠账还清」必须是一条**可判的事件**，不是"我们都改完了"（pi 2026-09-14 裁定 §2）。

欠账本身：`GetMailByID` / `GetThread` 把**行级** `m.status` 放进邮件 JSON，
而列表路径（`CountUnread`/`ListInbox`）给的是**按读者**派生的值 —— 同一个字段两种语义。
收口顺序是"先迁读者、再删写入"（先删写入会让 JSON 里的 status 永远是 unread，是另一种错误事实）。

形状（三态，与套件的探针同族）：

- **欠账未清 ⇒ `t.Skip`**，跳过信息写明还欠什么（**不假红也不假绿**）；
- **还清 ⇒ 实跑**并断言"详情路径的 status == 按读者派生的值"，**转绿即可测事件**；
- 迁一半（只改 `GetMailByID`、漏 `GetThread`）⇒ 红。

为什么不写成"现在就是红的"：**恒红的门 = 挂在错误相位的门** —— 这轮已经为它付过三次学费
（`check-shared-libs`、`packaging`、`HOME`），见 `client/electron/test/CRITERIA.md` §11。
改成 Skip 之后又必须补两件事（pi 2026-09-14 §1）：**跳过条件必须是测量结果**（不是常量），
以及**"跳过"必须进可数的余额**（否则"不假红也不假绿"会变成"不显形"）——
余额登记在 `docs/DEBTS.json`（两端同源），常态可见的那份打在 electron 套件的 RESULT 行
（`go test` 跑通时不打印包的输出，把余额只打在 TestMain 里等于没人看得见）。
*/

/*
measureMailStatusDebt：**自足**的测量 —— 谁调用谁测，不依赖"别的测试先跑过"。

第一版把债务标记写在 Skip 那一支、余额由另一条判据去读，于是产生**排序依赖**
（Go 在同一包内按源文件顺序跑，登记那条先跑就读到 0）。排序依赖是隐蔽的假绿来源，
所以把测量抽成一个函数，每条判据各自调用。

返回 outstanding = 详情路径与"按读者派生"是否**实测**不一致（不一致 = 欠账未清）。
*/
func measureMailStatusDebt(t *testing.T) (outstanding bool, detail, derived string) {
	t.Helper()
	setupTestDB(t)
	ctx := context.Background()
	id := seedMailTo(t, "alice", "bob")
	// 让 bob 读掉：行级写入会把整封标 'read'，而 alice 的按读者派生仍是 'unread'
	if err := MarkMailRead(ctx, id, "bob"); err != nil {
		t.Fatal(err)
	}
	m, err := GetMailByID(ctx, id)
	if err != nil {
		t.Fatal(err)
	}
	list, err := ListInbox(ctx, "alice", "all", "", 50)
	if err != nil {
		t.Fatal(err)
	}
	for _, x := range list {
		if x.ID == id {
			derived = x.Status
		}
	}
	if derived == "" {
		t.Fatalf("自检：列表路径里应当能看到这封邮件（id=%s）", id)
	}
	return m.Status != derived, m.Status, derived
}

func TestMailStatusInJSONIsDerivedWhenDebtCleared(t *testing.T) {
	outstanding, detail, derived := measureMailStatusDebt(t)
	if outstanding {
		// 欠账还在：**实测**（不是常量）⇒ 记进余额，然后再跳过
		debtMark("mails-status-derived")
		t.Skipf("欠账未清（还清那天本判据自动转实跑并转绿）：详情路径返回行级 status=%q，"+
			"而按读者派生说 %q —— 差在 GetMailByID/GetThread 仍带出行级列；"+
			"迁完那两处（改用 readStateFor）后本判据会实跑。收口顺序：先迁读者、再删写入。"+
			"（余额见 docs/DEBTS.json；常态可见的那份在 electron 套件的 RESULT 行。）", detail, derived)
	}
	// 已还清：断言更强的性质 —— 详情与列表必须一致（都对同一个 reader 派生）
	if !strings.EqualFold(detail, derived) {
		t.Fatalf("详情 %q 与列表 %q 不一致", detail, derived)
	}
}