mirror of
https://github.com/kiddin9/op-packages.git
synced 2026-10-27 06:12:51 +08:00
88 lines
2.6 KiB
Bash
88 lines
2.6 KiB
Bash
#!/bin/sh
|
|
# LuCI 基本设置页面渲染与变量拼接契约测试。
|
|
# 覆盖:
|
|
# 1. service_ctl_url 与 ctl_url 变量定义完整性，避免 nil 拼接崩溃
|
|
# 2. XHR post 请求 URL 必须非空且有效
|
|
# 3. Lua 解释器环境下实际执行 act.cfgvalue() 渲染无报错
|
|
# 4. LF 换行符约束
|
|
set -eu
|
|
|
|
SCRIPT_DIR=$(CDPATH= cd -- "$(dirname "$0")" && pwd)
|
|
REPO_ROOT=$(CDPATH= cd -- "$SCRIPT_DIR/.." && pwd)
|
|
BASIC_MODEL="$REPO_ROOT/luasrc/model/cbi/openclaw/basic.lua"
|
|
|
|
fail() {
|
|
echo "FAIL: $1" >&2
|
|
exit 1
|
|
}
|
|
|
|
[ -f "$BASIC_MODEL" ] || fail "missing $BASIC_MODEL"
|
|
|
|
# ── 1. 变量定义完整性 ──
|
|
grep -Fq "local ctl_url =" "$BASIC_MODEL" || fail "basic.lua must define ctl_url"
|
|
grep -Fq "local service_ctl_url =" "$BASIC_MODEL" || fail "basic.lua must define service_ctl_url"
|
|
grep -Fq 'service_ctl_url' "$BASIC_MODEL" || fail "basic.lua must reference service_ctl_url"
|
|
|
|
# ── 2. Lua 运行时执行契约 ──
|
|
lua_bin=""
|
|
for cand in lua5.1 lua; do
|
|
command -v "$cand" >/dev/null 2>&1 && { lua_bin="$cand"; break; }
|
|
done
|
|
|
|
if [ -n "$lua_bin" ]; then
|
|
"$lua_bin" -e '
|
|
package.path = "./luasrc/?.lua;" .. package.path
|
|
_G.luci = {
|
|
sys = { exec = function() return "" end },
|
|
dispatcher = {
|
|
build_url = function(...) return "/" .. table.concat({...}, "/") end,
|
|
context = { authtoken = "dummy-csrf-token" }
|
|
}
|
|
}
|
|
package.loaded["luci.sys"] = _G.luci.sys
|
|
package.loaded["luci.dispatcher"] = _G.luci.dispatcher
|
|
_G.Map = function(...)
|
|
return {
|
|
section = function(...)
|
|
return {
|
|
option = function(self, opt, name)
|
|
local o = {}
|
|
if name == "_actions" then _G.act = o end
|
|
return o
|
|
end
|
|
}
|
|
end
|
|
}
|
|
end
|
|
_G.SimpleSection = {}
|
|
_G.DummyValue = {}
|
|
|
|
dofile("'"$BASIC_MODEL"'")
|
|
|
|
if not _G.act or type(_G.act.cfgvalue) ~= "function" then
|
|
error("act.cfgvalue function not exported")
|
|
end
|
|
|
|
local rendered = _G.act.cfgvalue({}, {})
|
|
if type(rendered) ~= "string" or #rendered < 1000 then
|
|
error("cfgvalue rendered content too short or invalid type: " .. type(rendered))
|
|
end
|
|
|
|
if not rendered:find("/admin/services/openclaw/service_ctl") then
|
|
error("rendered output missing service_ctl endpoint URL")
|
|
end
|
|
|
|
if rendered:find("post%(\"\",") or rendered:find("post%(undefined,") or rendered:find("post%(null,") then
|
|
error("rendered output has empty or undefined XHR post URL")
|
|
end
|
|
' || fail "basic.lua failed to execute or render cleanly in Lua"
|
|
fi
|
|
|
|
# ── 3. 换行符约束 (LF only) ──
|
|
cr=$(printf '\r')
|
|
if LC_ALL=C grep -q "$cr" "$BASIC_MODEL"; then
|
|
fail "$(basename "$BASIC_MODEL") must use LF line endings"
|
|
fi
|
|
|
|
echo "ok"
|