claude-code
67f5f0fa5e
leo 2026-08-27：「現在每天都在追新的，所以要用 Routine 去消化舊的，可以有多個條件」
兩條線各用各的判準（他當場訂正的那件事）：
緊急線＝掛 open milestone 的，用「距離目標的遠近」排
還債線＝沒掛的那 188 張，用多條件排（事故／擋人／承諾／票齡／估工）← 本次做的
新增 scripts/debt-worklist（list／claim／forget）：
· 撈全 org 15 個 repo 的 open issue + open PR，逐一列出當作「我查了哪些」的證明
· 扣掉掛 open milestone 的（緊急線在管）、等 leo 的（Human／human-exec／s/stage，
那些要催不是要領，催辦是 inkstone/ISEP#93）、已領走的
· 每張票旁邊印出「為什麼排這裡」的分項，排錯可以指著某一項說它給太多
· 成包只認強訊號：互相指著、或 Gitea 原生相依（母子票）。
第一版用單向引用成包，190 張裡 121 張黏成一坨——一包沒有人領得動
· 空清單會明講「查詢跑過了，結果是零」，不默默結束
· claim 之後那些票不再出現在清單上，並在隔天的清單頂端交代它們關了沒
hooks/session-start-recall.sh 加一段（不打網路，只看狀態檔日期）：
今天還沒撈過就說一句，並給出要跑的那一行。開 session 自動去撈＝輪詢，紅線擋著。
測試 scripts/test-debt-worklist.sh：40 條全離線，票上四條驗收條件各一組。
真實資料唯讀實跑過：229 張 → 可領 188 張／185 包，領走兩張後隔天清單少掉它們。
192 lines
11 KiB
Bash
Executable File
192 lines
11 KiB
Bash
Executable File
#!/bin/bash
|
||
# 還債清單（scripts/debt-worklist）的測試——inkstone/ISEP#83 的四條驗收條件，一條一組。
|
||
#
|
||
# 全程離線：資料走 ISEP_DEBT_FIXTURE、時鐘走 ISEP_DEBT_NOW、狀態走 ISEP_DEBT_STATE_DIR。
|
||
# **不打 Gitea、不留任何測試票、不碰 $HOME**。
|
||
#
|
||
# 為什麼要能離線測：這支工具的判斷（誰排前面、誰算緊急線、領走的還在不在）
|
||
# 全都是純函式，只有「撈」那一步要網路。把撈的那一步換掉，其餘每一條都測得動——
|
||
# 否則就只剩「今天跑起來看起來對」，那不是測試（本 repo 心法：跑過 ≠ 驗過）。
|
||
cd "$(dirname "$0")/.." || exit 1
|
||
W=scripts/debt-worklist
|
||
PASS=0; FAIL=0
|
||
T=$(mktemp -d); trap 'rm -rf "$T"' EXIT
|
||
NOW=2026-08-28T00:00:00Z
|
||
|
||
ok(){ # $1=條件 $2=說明
|
||
if eval "$1"; then PASS=$((PASS+1)); printf ' ✅ %s\n' "$2"
|
||
else FAIL=$((FAIL+1)); printf ' ❌ %s\n 判準：%s\n' "$2" "$1"; fi
|
||
}
|
||
|
||
run(){ # 跑 list（或任何子命令），輸出留在 $OUT，離開碼留在 $RC
|
||
OUT=$(ISEP_DEBT_FIXTURE="$FX" ISEP_DEBT_STATE_DIR="$T/state" ISEP_DEBT_NOW="$NOW" \
|
||
python3 "$W" "$@" 2>&1); RC=$?
|
||
}
|
||
|
||
# ── 造資料：一份長得像 Gitea 回應的 fixture ─────────────────────────────────
|
||
mkfx(){ FX="$T/$1.json"; python3 - "$FX" "$1" <<'PY'
|
||
import json, sys
|
||
path, which = sys.argv[1], sys.argv[2]
|
||
|
||
def it(repo, n, title, labels=(), ms=None, ms_state="open", assignees=(),
|
||
updated="2026-08-01T00:00:00Z", body="", pr=False):
|
||
d = {"number": n, "title": title, "body": body, "updated_at": updated,
|
||
"created_at": "2026-07-01T00:00:00Z", "state": "open",
|
||
"labels": [{"name": l} for l in labels],
|
||
"assignees": [{"login": a} for a in assignees] or None,
|
||
"repository": {"full_name": repo},
|
||
"html_url": f"https://git.uncle6.me/{repo}/issues/{n}"}
|
||
if ms:
|
||
d["milestone"] = {"title": ms, "state": ms_state}
|
||
if pr:
|
||
d["pull_request"] = {"merged": False}
|
||
return d
|
||
|
||
repos = [{"name": "inkstone/A", "issues": 0, "prs": 0},
|
||
{"name": "inkstone/B", "issues": 0, "prs": 0}]
|
||
deps, items = {}, []
|
||
|
||
if which == "full":
|
||
items = [
|
||
# 事故＋擋住別人的 → 該排第一
|
||
it("inkstone/A", 1, "壞掉了", ["type/bug"], updated="2026-08-20T00:00:00Z",
|
||
body="x" * 2000),
|
||
it("inkstone/A", 2, "我等 A#1", updated="2026-08-27T00:00:00Z",
|
||
body="被 inkstone/A#1 擋住" + "y" * 2000),
|
||
it("inkstone/B", 9, "我也等 A#1", updated="2026-08-27T00:00:00Z",
|
||
body="要先解 inkstone/A#1" + "y" * 2000),
|
||
# 掛在 open milestone 上＝緊急線在管，不該出現
|
||
it("inkstone/A", 3, "緊急線的票", ["p/high", "type/bug"], ms="這週出貨"),
|
||
# milestone 已關但票還開著＝孤兒，該出現
|
||
it("inkstone/A", 4, "孤兒票", ms="上週", ms_state="closed", body="z" * 2000),
|
||
# 等 leo 的三種，都不該出現在可領清單
|
||
it("inkstone/A", 5, "等 leo 批", ["Human", "p/high", "type/bug"]),
|
||
it("inkstone/A", 6, "等 leo 動手", ["human/exec"]),
|
||
it("inkstone/A", 7, "等 leo 驗", ["s/stage", "p/high"]),
|
||
# 放很久沒人動 vs 昨天才動過：同條件下前者要排前面
|
||
it("inkstone/B", 10, "放了很久", updated="2026-06-01T00:00:00Z", body="w" * 2000),
|
||
it("inkstone/B", 11, "昨天才動過", updated="2026-08-27T00:00:00Z", body="w" * 2000),
|
||
# 躺著的 PR 也是債
|
||
it("inkstone/B", 12, "躺著的 PR", pr=True, updated="2026-08-10T00:00:00Z",
|
||
body="v" * 2000),
|
||
# p/low：往後排
|
||
it("inkstone/B", 13, "晚點沒關係", ["p/low"], body="u" * 2000),
|
||
# 互相指著＝必然同包
|
||
it("inkstone/B", 20, "雙胞胎甲", body="跟 inkstone/B#21 是同一件事" + "t" * 2000,
|
||
updated="2026-08-05T00:00:00Z"),
|
||
it("inkstone/B", 21, "雙胞胎乙", body="見 inkstone/B#20" + "t" * 2000,
|
||
updated="2026-08-05T00:00:00Z"),
|
||
# 母票／子票：只有原生相依看得出來（內文沒有互指）
|
||
it("inkstone/B", 30, "母票", body="s" * 2000, updated="2026-08-05T00:00:00Z"),
|
||
it("inkstone/B", 31, "子票", body="s" * 2000, updated="2026-08-05T00:00:00Z"),
|
||
]
|
||
deps = {"inkstone/B#30": ["inkstone/B#31"]}
|
||
|
||
elif which == "empty":
|
||
items = [it("inkstone/A", 3, "緊急線的票", ["p/high"], ms="這週出貨"),
|
||
it("inkstone/A", 5, "等 leo 批", ["Human"])]
|
||
|
||
elif which == "onedone":
|
||
# 「昨天領走的今天關掉了」——它從 open 清單消失
|
||
items = [it("inkstone/A", 2, "我等 A#1", body="y" * 2000)]
|
||
|
||
json.dump({"repos": repos, "items": items, "deps": deps}, open(path, "w"))
|
||
PY
|
||
}
|
||
|
||
mkfx full; FULL="$T/full.json"
|
||
mkfx empty
|
||
mkfx onedone
|
||
|
||
echo "── 驗收 1：跑一次要吐出排好序的清單＋「我查了哪些 repo」的證明 ──"
|
||
FX="$FULL"; run list --top 20
|
||
ok '[ "$RC" = 0 ]' '離開碼 0'
|
||
ok 'grep -q "查過的 repo：2 個" <<<"$OUT"' '證明段落列出查過的 repo 數'
|
||
ok 'grep -q "inkstone/A" <<<"$OUT" && grep -q "inkstone/B" <<<"$OUT"' '每個 repo 都列名（不是只給總數）'
|
||
ok 'grep -q "1\. \[.*\] inkstone/A#1" <<<"$OUT"' '事故＋擋住兩張 ⇒ 排第一名'
|
||
ok 'grep -q "事故+40" <<<"$OUT"' '每張票旁邊看得到「為什麼排這裡」的分項'
|
||
ok 'grep -q "擋住2張" <<<"$OUT"' '「擋住別人的」算得出來（兩張指著 A#1）'
|
||
|
||
echo "── 驗收 1b：排序的五個條件真的有作用 ──"
|
||
pos(){ grep -n "$1" <<<"$OUT" | head -1 | cut -d: -f1; }
|
||
ok '[ "$(pos "inkstone/B#10")" -lt "$(pos "inkstone/B#11")" ]' '放最久的排在昨天才動過的前面'
|
||
ok '[ "$(pos "inkstone/B#12")" -lt "$(pos "inkstone/B#13")" ]' '躺著的 PR 排在 p/low 前面'
|
||
ok 'grep -q "PR躺著+25" <<<"$OUT"' 'PR 被認出來（不是只算 issue）'
|
||
ok '! grep -q "inkstone/A#3" <<<"$OUT"' '掛 open milestone 的不進清單（那歸緊急線）'
|
||
ok 'grep -q "inkstone/A#4" <<<"$OUT"' 'milestone 已關但票還開著 ⇒ 是債，要進清單'
|
||
ok '! grep -q "inkstone/A#5" <<<"$OUT" && ! grep -q "inkstone/A#6" <<<"$OUT"' \
|
||
'Human／human-exec 不進可領清單（沒有人能替 leo 領）'
|
||
ok '! grep -q "inkstone/A#7" <<<"$OUT"' 's/stage＝等 leo 驗，要催不是要領'
|
||
ok 'grep -q "等 leo 的 3 張" <<<"$OUT"' '被扣掉的有講數字，不是靜靜消失'
|
||
|
||
echo "── 驗收 1c：成包——相關的要一起領，但不准黏成一坨 ──"
|
||
ok 'grep -A6 "inkstone/B#20（票）" <<<"$OUT" | grep -q "inkstone/B#21"' '互相指著的成同一包'
|
||
ok 'grep -A6 "inkstone/B#30（票）" <<<"$OUT" | grep -q "inkstone/B#31"' '原生相依（母票→子票）成同一包'
|
||
ok '! (grep -A6 "inkstone/A#1（票）" <<<"$OUT" | grep -q "同一包")' \
|
||
'單向引用不成包（A#2、B#9 都指著 A#1，但 A#1 沒指回來 ⇒ 不能黏成一坨）'
|
||
|
||
echo "── 驗收 2：清單是空的要說話，不能默默結束 ──"
|
||
FX="$T/empty.json"; run list
|
||
ok '[ "$RC" = 0 ]' '離開碼 0（沒東西可領不是錯誤）'
|
||
ok 'grep -q "查詢跑過了，結果是零" <<<"$OUT"' '明講「查過了，結果是零」'
|
||
ok 'grep -q "查過的 repo：2 個" <<<"$OUT"' '空清單一樣附查詢證明（分得出「沒東西」與「沒查」）'
|
||
|
||
echo "── 驗收 3：今天領走的，明天不在清單上 ──"
|
||
rm -rf "$T/state"; FX="$FULL"
|
||
run claim inkstone/B#20 inkstone/B#21
|
||
ok '[ "$RC" = 0 ]' '領走兩張成功'
|
||
run list --top 20
|
||
PICK=$(sed -n '/今天可以領的/,$p' <<<"$OUT")
|
||
ok '! grep -q "inkstone/B#21" <<<"$PICK"' '領走的不再出現在可領清單（只看清單那一段）'
|
||
ok 'grep -q "之前領走的 2 張" <<<"$OUT"' '第二天看得到「之前領走的」那一段'
|
||
ok 'grep -q "還開著 2" <<<"$OUT"' '還開著的照實說（沒關就是還沒做完）'
|
||
ok 'grep -q "已經領走的 2 張" <<<"$OUT"' '扣除數字對得上'
|
||
|
||
echo "── 驗收 3b：領走的票關掉之後，狀態要跟著變 ──"
|
||
FX="$T/onedone.json"; run list
|
||
ok 'grep -q "已關 2" <<<"$OUT"' '票已經不在 open 清單 ⇒ 認定它做完了'
|
||
|
||
echo "── 驗收 3c：放回去 ──"
|
||
FX="$FULL"; run forget inkstone/B#20 inkstone/B#21
|
||
ok '[ "$RC" = 0 ]' 'forget 成功'
|
||
run list --top 20
|
||
ok 'grep -q "inkstone/B#20" <<<"$OUT"' '放回去之後又回到可領清單'
|
||
|
||
echo "── 誤用：擋得住，而且說得出怎麼改 ──"
|
||
run claim B#20
|
||
ok '[ "$RC" = 2 ] && grep -q "owner/repo#N" <<<"$OUT"' '票號寫錯 ⇒ 擋下並示範正確寫法'
|
||
run claim inkstone/B#999
|
||
ok '[ "$RC" = 2 ]' '領一張不存在／已關的票 ⇒ 擋下'
|
||
run claim
|
||
ok '[ "$RC" = 2 ] && grep -q "用法" <<<"$OUT"' '沒給票號 ⇒ 印用法'
|
||
|
||
echo "── 機器可讀（要接進別的東西時不用 parse 中文）──"
|
||
run list --json
|
||
ok 'python3 -c "import json,sys;d=json.load(sys.stdin);sys.exit(0 if d[\"bundles\"] and d[\"repos\"] else 1)" <<<"$OUT"' \
|
||
'--json 吐得出合法 JSON，且有 bundles／repos'
|
||
|
||
echo "── 紅線：這支腳本自己不會醒（不准做成輪詢／fan-out）──"
|
||
ok '! grep -nE "time\\.sleep|crontab|sched|urlopen.*hooks" '"$W" \
|
||
'原始碼裡沒有等待／排程／裝 webhook 的動作（只有註解在談紅線，那不算）'
|
||
|
||
echo "── SessionStart 那一句：不用有人記得下指令，也不准偷偷打網路 ──"
|
||
# 把 session-start-recall.sh 裡「還債線」那一段切出來單獨跑（其餘段落會打雲端，這裡不要）。
|
||
FRAG="$T/frag.sh"
|
||
sed -n '/push 6：還債線/,/^echo ""$/p' hooks/session-start-recall.sh > "$FRAG"
|
||
ok '[ -s "$FRAG" ]' 'session-start-recall.sh 裡真的有那一段（被刪掉就會紅）'
|
||
rm -rf "$T/nudge"; mkdir -p "$T/nudge"
|
||
OUT=$(set -euo pipefail; ISEP_DEBT_STATE_DIR="$T/nudge" bash "$FRAG" 2>&1); RC=$?
|
||
ok '[ "$RC" = 0 ]' '沒有狀態檔也跑得過（第一次開 session）'
|
||
ok 'grep -q "今天還沒撈過" <<<"$OUT"' '今天沒撈過 ⇒ 開 session 就會說'
|
||
ok 'grep -q "debt-worklist list" <<<"$OUT"' '順手把要跑的那一行給出來'
|
||
printf '{"claims":{"a/b#1":{}},"last_run":"%sT00:00:00Z"}' "$(date -u +%Y-%m-%d)" > "$T/nudge/claimed.json"
|
||
OUT=$(ISEP_DEBT_STATE_DIR="$T/nudge" bash "$FRAG" 2>&1)
|
||
ok 'grep -q "今天撈過了" <<<"$OUT"' '今天撈過了 ⇒ 不再重複催'
|
||
ok 'grep -q "手上領著 1 張" <<<"$OUT"' '手上還領著幾張講出來'
|
||
ok '! grep -qE "curl|urlopen|http" <<<"$(cat "$FRAG")"' \
|
||
'SessionStart 那一段完全不打網路（撈是人決定的動作，不是開機自動去撈）'
|
||
|
||
echo
|
||
echo "通過 $PASS 條，失敗 $FAIL 條"
|
||
[ "$FAIL" = 0 ]
|