Fetch PR body inside checker

Authored-By: Codex (GPT-5) <noreply@openai.com>

tests/bin/curl

@@ -4,6 +4,7 @@ set -euo pipefail
 
 connect_timeout=0
 total_timeout=0
+url=""
 while [ "$#" -gt 0 ]; do
   case "$1" in
     --connect-timeout)
@@ -16,20 +17,38 @@ while [ "$#" -gt 0 ]; do
       total_timeout=1
       shift 2
       ;;
+    --header|--data-binary)
+      shift 2
+      ;;
+    http*)
+      url="$1"
+      shift
+      ;;
     *) shift ;;
   esac
 done
 [ "${connect_timeout}" -eq 1 ] && [ "${total_timeout}" -eq 1 ] || exit 2
 
-if printf '%s\n' "${PR_BODY}" | grep -Fq '[[stall-renderer]]'; then
-  exit 28
-fi
-
-if printf '%s\n' "${PR_BODY}" | grep -Fq '<!--'; then
+if [[ "${url}" == */api/v1/repos/action/check-naming/pulls/1 ]]; then
+  if [ -n "${TEST_PR_BODY_FILE:-}" ]; then
+    jq -Rs '{body: .}' < "${TEST_PR_BODY_FILE}"
+  else
+    printf '%s' "${PR_BODY:-}" | jq -Rs '{body: .}'
+  fi
   exit 0
 fi
 
-printf '%s\n' "${PR_BODY}" | awk '
+BODY=$(jq -r '.Text')
+
+if printf '%s\n' "${BODY}" | grep -Fq '[[stall-renderer]]'; then
+  exit 28
+fi
+
+if printf '%s\n' "${BODY}" | grep -Fq '<!--'; then
+  exit 0
+fi
+
+printf '%s\n' "${BODY}" | awk '
   {
     line=$0
     lower=tolower(line)

tests/run

@@ -29,7 +29,8 @@ check() {
   body=$(canonical_body "${bug:-bug-test}")
   local out rc=0
   out=$(cd "${FIXTURES}" && HEAD_BRANCH="$branch" PR_TITLE="$title" PR_AUTHOR="$author" \
-    PR_BODY="$body" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" PATH="${TEST_BIN}:$PATH" \
+    PR_BODY="$body" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" \
+    GITEA_REPOSITORY="action/check-naming" GITEA_PR_NUMBER=1 PATH="${TEST_BIN}:$PATH" \
     BASE_SHA="$BASE" HEAD_SHA="$GOOD_HEAD" bash "$SCRIPT" 2>&1) || rc=$?
   local got_lines=0
   echo "$out" | grep -qE "^FAIL" && got_lines=1 || true
@@ -48,7 +49,8 @@ check_contract() {
   local out rc=0
   out=$(cd "${FIXTURES}" && HEAD_BRANCH="architect/bug-x7k2m9/contract" \
     PR_TITLE="[bug-x7k2m9] Enforce contract" PR_AUTHOR="architect" \
-    PR_BODY="$body" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" PATH="${TEST_BIN}:$PATH" \
+    PR_BODY="$body" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" \
+    GITEA_REPOSITORY="action/check-naming" GITEA_PR_NUMBER=1 PATH="${TEST_BIN}:$PATH" \
     BASE_SHA="$base" HEAD_SHA="$head" bash "$SCRIPT" 2>&1) || rc=$?
   if [ "$rc" -eq 1 ] && printf '%s\n' "$out" | grep -Fq "$diagnostic"; then
     echo "PASS [$desc]"
@@ -65,7 +67,8 @@ check_contract_pass() {
   local out rc=0
   out=$(cd "${FIXTURES}" && HEAD_BRANCH="architect/bug-x7k2m9/contract" \
     PR_TITLE="[bug-x7k2m9] Enforce contract" PR_AUTHOR="architect" \
-    PR_BODY="$body" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" PATH="${TEST_BIN}:$PATH" \
+    PR_BODY="$body" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" \
+    GITEA_REPOSITORY="action/check-naming" GITEA_PR_NUMBER=1 PATH="${TEST_BIN}:$PATH" \
     BASE_SHA="$base" HEAD_SHA="$head" bash "$SCRIPT" 2>&1) || rc=$?
   if [ "$rc" -eq 0 ] && printf '%s\n' "$out" | grep -Fq "check-naming: ok"; then
     echo "PASS [$desc]"
@@ -82,7 +85,8 @@ check_chore_contract() {
   local out rc=0
   out=$(cd "${FIXTURES}" && HEAD_BRANCH="chore/contract" \
     PR_TITLE="Improve delivery contract" PR_AUTHOR="dev" \
-    PR_BODY="$body" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" PATH="${TEST_BIN}:$PATH" \
+    PR_BODY="$body" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" \
+    GITEA_REPOSITORY="action/check-naming" GITEA_PR_NUMBER=1 PATH="${TEST_BIN}:$PATH" \
     BASE_SHA="$base" HEAD_SHA="$head" bash "$SCRIPT" 2>&1) || rc=$?
   if [ "$rc" -eq 1 ] && printf '%s\n' "$out" | grep -Fq "$diagnostic"; then
     echo "PASS [$desc]"
@@ -204,6 +208,25 @@ check_contract "stalled renderer fails closed at the curl timeout" \
   "$(canonical_body bug-x7k2m9)"$'\n[[stall-renderer]]' \
   "$BASE" "$GOOD_HEAD" "Gitea could not render the PR body"
 
+LARGE_BODY="${FIXTURES}/large-pr-body"
+awk 'BEGIN { for (i=0; i<150000; i++) printf "x"; print "" }' > "${LARGE_BODY}"
+canonical_body bug-x7k2m9 >> "${LARGE_BODY}"
+large_out=""
+large_rc=0
+large_out=$(cd "${FIXTURES}" && HEAD_BRANCH="architect/bug-x7k2m9/contract" \
+  PR_TITLE="[bug-x7k2m9] Enforce contract" PR_AUTHOR="architect" \
+  TEST_PR_BODY_FILE="${LARGE_BODY}" GITEA_SERVER_URL="https://code.test" GITEA_TOKEN="test-token" \
+  GITEA_REPOSITORY="action/check-naming" GITEA_PR_NUMBER=1 PATH="${TEST_BIN}:$PATH" \
+  BASE_SHA="$BASE" HEAD_SHA="$GOOD_HEAD" bash "$SCRIPT" 2>&1) || large_rc=$?
+if [ "${large_rc}" -eq 0 ] && printf '%s\n' "${large_out}" | grep -Fq "check-naming: ok"; then
+  echo "PASS [large PR body loads without environment transport]"
+  PASS=$((PASS + 1))
+else
+  echo "FAIL [large PR body loads without environment transport]: expected exit=0 and check-naming: ok, got exit=${large_rc}"
+  echo "  output: ${large_out}"
+  FAIL=$((FAIL + 1))
+fi
+
 git -C "${FIXTURES}" commit --allow-empty -q -m "unwatermarked change"
 BAD_HEAD=$(git -C "${FIXTURES}" rev-parse HEAD)
 check_contract "agenthub 779 commits reject missing watermark" "$BODY" "$GOOD_HEAD" "$BAD_HEAD" "must end with an Authored-By"