devlog-tracker 0.33.5 → 1.0.0

package/core/scripts/tests/test-enforce-devlog.sh

@@ -6,6 +6,8 @@
 set -uo pipefail
 
 SCRIPT_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd)"
+# shellcheck source=lib/xml-fixture.sh
+. "$SCRIPT_DIR/tests/lib/xml-fixture.sh"
 TMP_ROOT="$(mktemp -d)"
 trap 'rm -rf "$TMP_ROOT"' EXIT
 
@@ -82,6 +84,7 @@ fixture
 ### Status
 DONE
 EOF
+  xml_fixture "$DEVLOG_DIR/.round-current.md"
 }
 
 # Seeds *prior, already-closed* history directly into devlog.md — content
@@ -361,6 +364,7 @@ DONE
 
 ## Checkpoint（Round 2 摘要）
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "genuine checkpoint write above the corrected stored value -> allowed" 0 $?
 assert_round_merged "genuine checkpoint write above the corrected stored value" "## Checkpoint（Round 2 摘要）"
@@ -429,6 +433,7 @@ missing summary
 ### Status
 DONE
 DEVEOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "last Round missing ### Summary -> blocked" 2 $?
 
@@ -446,6 +451,7 @@ has reply
 ### Status
 DONE
 DEVEOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 HEADING_MISS_MSG="$(echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" 2>&1)"
 assert_exit "last Round missing ### Handoff -> blocked" 2 $?
 case "$HEADING_MISS_MSG" in
@@ -468,6 +474,7 @@ cat > "$DEVLOG_DIR/.round-current.md" <<'DEVEOF'
 ### Status
 DONE
 DEVEOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "both headings present with empty bodies -> blocked" 2 $?
 EMPTY_MSG="$(echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" 2>&1 >/dev/null)"
@@ -571,6 +578,7 @@ complete
 ### Status
 DONE
 DEVEOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo "## Checkpoint（Round 6 摘要）" >> "$DEVLOG_DIR/devlog.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "Checkpoint-only append after a complete last Round -> allowed" 0 $?
@@ -600,6 +608,7 @@ complete
 ### Status
 DONE
 DEVEOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 cat > "$DEVLOG_DIR/.span-open" <<'SPANEOF'
 {
   "round": 6,
@@ -635,6 +644,7 @@ cat > "$DEVLOG_DIR/.round-current.md" <<'DEVEOF'
 ## Round 7 — 2026-09-09T10:30:00+08:00
 incomplete new round
 DEVEOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "span at max, new Round missing headings -> blocked" 2 $?
 SPAN_TICKS_HELD="$(grep -o '"ticks_since_checkin"[[:space:]]*:[[:space:]]*[0-9]\+' "$DEVLOG_DIR/.span-open" | grep -o '[0-9]\+$')"
@@ -675,6 +685,7 @@ fixture reply.
 ### Status
 DONE
 DEVEOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "last Round complete, fenced ## Round 15 and ## 安裝 in body -> allowed" 0 $?
 assert_round_merged "last Round complete, fenced ## Round 15 and ## 安裝 in body" "已回覆格式問題"
@@ -713,6 +724,7 @@ complete last Round
 ### Status
 DONE
 DEVEOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "older Round still uses ### Response, complete last Round -> allowed" 0 $?
 assert_round_merged "older Round still uses ### Response, complete last Round" "complete last Round"
@@ -759,6 +771,7 @@ done
 ### Status
 DONE
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 printf '%s\n' '{"round": 1, "opened_at": "2026-09-09T12:00:00+08:00"}' > "$DEVLOG_DIR/.round-open"
 printf '%s\n' 'main @ deadbeef，工作樹乾淨' > "$DEVLOG_DIR/.workspace-mismatch"
 cksum < "$DEVLOG_DIR/.round-current.md" > "$DEVLOG_DIR/.turn-start"
@@ -808,6 +821,7 @@ esc
 ### Status
 IN_PROGRESS
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 printf '%s\n' '{"round": 1, "opened_at": "2026-09-09T12:00:00+08:00"}' > "$DEVLOG_DIR/.round-open"
 cksum < "$DEVLOG_DIR/.round-current.md" > "$DEVLOG_DIR/.turn-start"
 touch "$DEVLOG_DIR/.interrupted"
@@ -862,6 +876,7 @@ round finished normally
 ### Status
 DONE
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 printf '%s\n' '{"round": 1, "opened_at": "2026-09-09T12:00:00+08:00"}' > "$DEVLOG_DIR/.round-open"
 cksum < "$DEVLOG_DIR/.round-current.md" > "$DEVLOG_DIR/.turn-start"
 printf '\n' >> "$DEVLOG_DIR/.round-current.md"
@@ -894,6 +909,7 @@ mkdir -p "$RECOVER_DIR/.devlog"
 touch "$RECOVER_DIR/.devlog/.enabled"
 : > "$RECOVER_DIR/.devlog/devlog.md"
 printf '## Round 1 — 2026-09-17T09:00:00+0800\n\n### User Input\n```text\nX\n```\n\n### Summary\n完成\n\n### Handoff\n#### 現況\nok\n\n### Status\nDONE\n' > "$RECOVER_DIR/.devlog/.round-current.md"
+xml_fixture "$RECOVER_DIR/.devlog/.round-current.md"
 printf '{"round": 1}\n' > "$RECOVER_DIR/.devlog/.round-open"
 echo "stale" > "$RECOVER_DIR/.devlog/.turn-start"
 touch "$RECOVER_DIR/.devlog/.interrupted"
@@ -936,6 +952,7 @@ stale interrupt
 ### Status
 IN_PROGRESS
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 cksum < "$DEVLOG_DIR/.round-current.md" > "$DEVLOG_DIR/.turn-start"
 rm -f "$DEVLOG_DIR/.round-open"
 touch "$DEVLOG_DIR/.interrupted"
@@ -1016,6 +1033,7 @@ fixture reply.
 ### Status
 DONE
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "DONE with bodies and no 下一步 -> allowed" 0 $?
 assert_round_merged "DONE with bodies and no 下一步" "做完了"
@@ -1050,9 +1068,51 @@ fixture reply.
 ### Status
 IN_PROGRESS
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "IN_PROGRESS without 下一步 -> blocked" 2 $?
 
+# --- Heading Scenario 13b: IN_PROGRESS with <done-when> but no <next> ------
+bash "$SCRIPT_DIR/round-start.sh" < /dev/null
+cat > "$DEVLOG_DIR/.round-current.md" <<'EOF'
+## Round 91 — 2026-09-09T10:41:00+08:00
+
+### Summary
+還在做。
+
+### Reply
+fixture reply.
+
+### Handoff
+<handoff>
+<state>
+做到一半。
+</state>
+<done-when>
+observable done via test.
+</done-when>
+</handoff>
+
+### Session Handoff
+<session-handoff>
+<decisions>
+- （無）
+</decisions>
+<open-questions>
+- fixture open
+</open-questions>
+<failed-attempts>
+- （無）
+</failed-attempts>
+</session-handoff>
+
+### Status
+IN_PROGRESS
+EOF
+MSG="$(echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" 2>&1)"
+assert_exit "IN_PROGRESS with <done-when> but no <next> -> blocked" 2 $?
+assert_contains "missing <next> message names <next>" "<next>" "$MSG"
+
 # --- Heading Scenario 14: IN_PROGRESS with 下一步 -> allowed --------------
 bash "$SCRIPT_DIR/round-start.sh" < /dev/null
 cat > "$DEVLOG_DIR/.round-current.md" <<'EOF'
@@ -1089,6 +1149,7 @@ fixture reply.
 ### Status
 IN_PROGRESS
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "IN_PROGRESS with 下一步 -> allowed" 0 $?
 assert_round_merged "IN_PROGRESS with 下一步" "打開 foo.ts 繼續"
@@ -1111,6 +1172,7 @@ y
 ### Status
 WIP
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "illegal Status -> blocked" 2 $?
 
@@ -1149,6 +1211,7 @@ fixture reply.
 ### Status
 IN_PROGRESS
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 BLACKLIST_MSG="$(echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" 2>&1 >/dev/null)"
 assert_exit "下一步 is pure filler phrase '繼續完成' -> blocked" 2 $?
 case "$BLACKLIST_MSG" in
@@ -1190,6 +1253,7 @@ fixture reply.
 ### Status
 BLOCKED
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "下一步 is '持續優化。' with trailing punctuation -> blocked (BLOCKED status too)" 2 $?
 
@@ -1230,6 +1294,7 @@ fixture reply.
 ### Status
 IN_PROGRESS
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "下一步 contains 繼續完成 inside a concrete sentence -> allowed" 0 $?
 assert_round_merged "下一步 contains 繼續完成 inside a concrete sentence" "錯誤處理"
@@ -1273,6 +1338,7 @@ fixture reply.
 ### Status
 IN_PROGRESS
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "下一步 multi-line body including a filler line -> allowed" 0 $?
 assert_round_merged "下一步 multi-line body including a filler line" "bar.ts"
@@ -1292,6 +1358,7 @@ y
 ### Status
 DONE
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 REPLY_MISS_MSG="$(echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" 2>&1 >/dev/null)"
 assert_exit "last Round missing ### Reply -> blocked" 2 $?
 case "$REPLY_MISS_MSG" in
@@ -1335,6 +1402,7 @@ cat > "$DEVLOG_DIR/.round-current.md" <<'EOF'
 ### Status
 IN_PROGRESS
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 ACTION_MSG="$(echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" 2>&1 >/dev/null)"
 assert_exit "IN_PROGRESS 下一步 without path/cmd/skill -> blocked" 2 $?
 case "$ACTION_MSG" in
@@ -1378,6 +1446,7 @@ cat > "$DEVLOG_DIR/.round-current.md" <<'EOF'
 ### Status
 BLOCKED
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 BLOCKED_MSG="$(echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" 2>&1 >/dev/null)"
 assert_exit "BLOCKED without 缺件句式 -> blocked" 2 $?
 case "$BLOCKED_MSG" in
@@ -1421,6 +1490,7 @@ cat > "$DEVLOG_DIR/.round-current.md" <<'EOF'
 ### Status
 BLOCKED
 EOF
+xml_fixture "$DEVLOG_DIR/.round-current.md"
 echo '{}' | bash "$SCRIPT_DIR/enforce-devlog.sh" >/dev/null 2>&1
 assert_exit "BLOCKED with 缺件句式 -> allowed" 0 $?
 

package/core/scripts/tests/test-handoff-fields.sh

@@ -0,0 +1,171 @@
+#!/usr/bin/env bash
+# Self-check for handoff-fields.sh (docs/design/handoff-xml.md).
+set -uo pipefail
+SCRIPT_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd)"
+# shellcheck source=../handoff-fields.sh
+. "$SCRIPT_DIR/handoff-fields.sh"
+FAIL=0
+eq() {
+  if [ "$2" = "$3" ]; then echo "PASS: $1"; else printf 'FAIL: %s\n--- expected\n%s\n--- actual\n%s\n' "$1" "$2" "$3"; FAIL=1; fi
+}
+check_fails() {
+  local desc="$1" body="$2" kind="$3" want="$4" out
+  if out="$(handoff_xml_check "$body" "$kind")"; then
+    echo "FAIL: $desc (expected check to fail)"; FAIL=1; return
+  fi
+  case "$out" in
+    *"$want"*) echo "PASS: $desc" ;;
+    *) echo "FAIL: $desc (message lacks '$want': $out)"; FAIL=1 ;;
+  esac
+}
+
+XML='
+<handoff>
+<decisions>
+pick A
+</decisions>
+<workspace>
+main @ abc1234，工作樹乾淨
+</workspace>
+<next>
+edit `core/scripts/x.sh`
+```sh
+### not a heading
+```
+</next>
+</handoff>
+'
+MD='
+#### 決策
+pick A
+#### 工作區
+main @ abc1234，工作樹乾淨
+#### 下一步
+edit `core/scripts/x.sh`
+'
+
+eq "format xml" xml "$(handoff_format "$XML")"
+eq "format md" md "$(handoff_format "$MD")"
+eq "format none" none "$(handoff_format 'just prose')"
+eq "xml field decisions" "pick A" "$(handoff_field "$XML" decisions)"
+eq "xml field workspace" "main @ abc1234，工作樹乾淨" "$(handoff_field "$XML" workspace)"
+eq "xml field keeps fenced content" 'edit `core/scripts/x.sh`
+```sh
+### not a heading
+```' "$(handoff_field "$XML" next)"
+eq "xml missing field empty" "" "$(handoff_field "$XML" state)"
+eq "md field workspace" "main @ abc1234，工作樹乾淨" "$(handoff_field "$MD" workspace)"
+eq "md field next" 'edit `core/scripts/x.sh`' "$(handoff_field "$MD" next)"
+eq "md heading exact match only" "" "$(handoff_field '#### 工作區（舊）
+x' workspace)"
+eq "md fenced heading ignored" "" "$(handoff_field '```
+#### 工作區
+fake
+```' workspace)"
+
+if handoff_xml_check "$XML" handoff >/dev/null; then echo "PASS: valid xml passes"; else echo "FAIL: valid xml"; FAIL=1; fi
+check_fails "must open with tag" 'prose
+<handoff>
+</handoff>' handoff "<handoff>"
+check_fails "text after block" '<handoff>
+<state>
+x
+</state>
+</handoff>
+trailing' handoff "外面"
+check_fails "unknown tag" '<handoff>
+<done_when>
+x
+</done_when>
+</handoff>' handoff "done_when"
+check_fails "inline tag" '<handoff>
+<next>做 X</next>
+</handoff>' handoff "自己一行"
+check_fails "unclosed field" '<handoff>
+<state>
+x
+</handoff>' handoff "</state>"
+check_fails "missing block close" '<handoff>
+<state>
+x
+</state>' handoff "</handoff>"
+check_fails "duplicate" '<handoff>
+<state>
+x
+</state>
+<state>
+y
+</state>
+</handoff>' handoff "超過一次"
+check_fails "order" '<handoff>
+<next>
+x
+</next>
+<state>
+y
+</state>
+</handoff>' handoff "順序"
+check_fails "empty field" '<handoff>
+<state>
+</state>
+</handoff>' handoff "是空的"
+check_fails "session requires all three" '<session-handoff>
+<decisions>
+- （無）
+</decisions>
+</session-handoff>' session-handoff "open-questions"
+check_fails "session tag not allowed in handoff" '<handoff>
+<open-questions>
+x
+</open-questions>
+</handoff>' handoff "open-questions"
+
+ROUND='## Round 1 — t
+
+### Handoff
+<handoff>
+<state>
+s
+</state>
+</handoff>
+
+### Session Handoff
+<session-handoff>
+<decisions>
+- d
+</decisions>
+</session-handoff>
+
+### Status
+DONE'
+eq "section_of Handoff" "<handoff>
+<state>
+s
+</state>
+</handoff>" "$(handoff_section_of "$ROUND" Handoff | awk 'NF')"
+eq "section_of Session Handoff" "<session-handoff>
+<decisions>
+- d
+</decisions>
+</session-handoff>" "$(handoff_section_of "$ROUND" 'Session Handoff' | awk 'NF')"
+
+SKILL="$(cat "$SCRIPT_DIR/../../skills/devlog-tracker/SKILL.md")"
+for kind in handoff session-handoff; do
+  case "$SKILL" in
+    *"$(handoff_xml_template "$kind")"*) echo "PASS: SKILL.md carries $kind template" ;;
+    *) echo "FAIL: SKILL.md template for $kind differs from handoff_xml_template"; FAIL=1 ;;
+  esac
+done
+
+MSG="$(handoff_legacy_message /abs/core/scripts/migrate-handoff.sh /abs/proj)"
+case "$MSG" in
+  *'DEVLOG_PROJECT_DIR="/abs/proj" bash "/abs/core/scripts/migrate-handoff.sh"'*) echo "PASS: legacy message has migrate command" ;;
+  *) echo "FAIL: legacy message lacks migrate command: $MSG"; FAIL=1 ;;
+esac
+case "$MSG" in
+  *"npx devlog-tracker init"*"/devlog-tracker:start"*) echo "PASS: legacy message has init/start hint" ;;
+  *) echo "FAIL: legacy message lacks init/start hint"; FAIL=1 ;;
+esac
+
+[ "$FAIL" -eq 0 ] || exit 1
+echo "All handoff-fields checks passed."

package/core/scripts/tests/test-handoff-file.sh

@@ -16,80 +16,102 @@ s
 r
 
 ### Handoff
-#### 現況
+<handoff>
+<state>
 c
-#### 完成條件
+</state>
+<done-when>
 done when tests pass
-#### 下一步
+</done-when>
+<next>
 edit core/scripts/handoff-file.sh
+</next>
+</handoff>
 
 ### Session Handoff
-
-#### 決策
+<session-handoff>
+<decisions>
 - pick route A
-
-#### 待解問題
+</decisions>
+<open-questions>
 - （無）
-
-#### 失敗嘗試
+</open-questions>
+<failed-attempts>
 - tried parse-in-place
+</failed-attempts>
+</session-handoff>
 
 ### Status
 IN_PROGRESS
 '
 
+EXPECTED='<session-handoff>
+<decisions>
+- pick route A
+</decisions>
+<open-questions>
+- （無）
+</open-questions>
+<failed-attempts>
+- tried parse-in-place
+</failed-attempts>
+</session-handoff>'
+
 BAD_ORDER='### Session Handoff
-#### 待解問題
+<session-handoff>
+<open-questions>
 - x
-#### 決策
+</open-questions>
+<decisions>
 - y
-#### 失敗嘗試
+</decisions>
+<failed-attempts>
 - z
+</failed-attempts>
+</session-handoff>
 '
 
 MISSING='### Session Handoff
+<session-handoff>
+<decisions>
+- x
+</decisions>
+</session-handoff>
+'
+
+LEGACY='### Session Handoff
 #### 決策
 - x
+#### 待解問題
+- y
 #### 失敗嘗試
 - z
 '
 
-if handoff_session_section_ok "$GOOD_ROUND"; then
-  echo "PASS: good round validates"
-else
-  echo "FAIL: good round should validate"; FAIL=1
-fi
-
-if handoff_session_section_ok "$BAD_ORDER"; then
-  echo "FAIL: bad order should fail"; FAIL=1
-else
-  echo "PASS: bad order rejected"
-fi
-
-if handoff_session_section_ok "$MISSING"; then
-  echo "FAIL: missing 待解問題 should fail"; FAIL=1
-else
-  echo "PASS: missing subsection rejected"
-fi
-
-OUT="$(handoff_extract_file_body "$GOOD_ROUND")" || { echo "FAIL: extract exited $?"; FAIL=1; OUT=""; }
-if printf '%s\n' "$OUT" | grep -q '^## Session Handoff' \
-  && printf '%s\n' "$OUT" | grep -q '^### 決策' \
-  && printf '%s\n' "$OUT" | grep -q 'pick route A' \
-  && printf '%s\n' "$OUT" | grep -q '^### 待解問題' \
-  && printf '%s\n' "$OUT" | grep -q '（無）' \
-  && printf '%s\n' "$OUT" | grep -q '^### 失敗嘗試' \
-  && printf '%s\n' "$OUT" | grep -q 'tried parse-in-place'; then
-  echo "PASS: extract shape"
+TARGET="$TMP/handoff.md"
+if handoff_write "$TARGET" "$GOOD_ROUND"; then
+  if [ "$(cat "$TARGET")" = "$EXPECTED" ]; then
+    echo "PASS: write stores <session-handoff> block verbatim"
+  else
+    echo "FAIL: handoff.md content, got:"; cat "$TARGET"; FAIL=1
+  fi
 else
-  echo "FAIL: extract shape, got: $OUT"; FAIL=1
+  echo "FAIL: write good round returned non-zero"; FAIL=1
 fi
 
-TARGET="$TMP/handoff.md"
-handoff_write "$TARGET" "$GOOD_ROUND" || { echo "FAIL: write"; FAIL=1; }
-[ -s "$TARGET" ] && grep -q 'pick route A' "$TARGET" \
-  && echo "PASS: write creates file" \
-  || { echo "FAIL: write"; FAIL=1; }
+expect_rejected() {
+  local name="$1" blob="$2" bad_target="$TMP/bad-$1.md"
+  if handoff_write "$bad_target" "$blob"; then
+    echo "FAIL: $name should be rejected"; FAIL=1
+  elif [ -e "$bad_target" ]; then
+    echo "FAIL: $name left a file behind"; FAIL=1
+  else
+    echo "PASS: $name rejected, no file written"
+  fi
+}
+expect_rejected BAD_ORDER "$BAD_ORDER"
+expect_rejected MISSING "$MISSING"
+expect_rejected LEGACY "$LEGACY"
 
 handoff_clear "$TARGET"
 [ ! -f "$TARGET" ] && echo "PASS: clear removes file" \