mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
123feef3a1
CLOSES #2425, CLOSES #2428, CLOSES #2431, CLOSES #2432, CLOSES #2433, CLOSES #2435, CLOSES #2436, CLOSES #2437, CLOSES #2440
85 lines
2.9 KiB
Lua
85 lines
2.9 KiB
Lua
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local S = require("tests.harness").suite("game3 cli_extract cache root")
|
|
local check = S.check
|
|
|
|
local function sh(s)
|
|
return "'" .. tostring(s):gsub("'", "'\\''") .. "'"
|
|
end
|
|
|
|
local function run(env, args)
|
|
local cmd = "env -u POKEPORT_IDENTITY -u GBA_CACHE_ROOT -u XDG_DATA_HOME " .. env
|
|
.. " luajit src/import/gba/cli_extract.lua " .. args .. " 2>&1; echo EXIT=$?"
|
|
local pipe = io.popen(cmd)
|
|
if not pipe then return "", nil end
|
|
local out = pipe:read("*a") or ""
|
|
pipe:close()
|
|
return out, tonumber(out:match("EXIT=(%d+)%s*$"))
|
|
end
|
|
|
|
local probe = io.popen("luajit -v 2>&1")
|
|
local pv = probe and probe:read("*a") or ""
|
|
if probe then probe:close() end
|
|
if not pv:find("LuaJIT", 1, true) then
|
|
check(true, "luajit not on PATH : SKIP")
|
|
S.finish()
|
|
return
|
|
end
|
|
|
|
local tmp = os.getenv("TMPDIR") or "/tmp/"
|
|
if tmp:sub(-1) ~= "/" then tmp = tmp .. "/" end
|
|
tmp = tmp .. "cli-extract-test-" .. tostring(os.time())
|
|
local home = tmp .. "/home"
|
|
local rom = tmp .. "/missing.gba"
|
|
|
|
local function cacheLine(out)
|
|
return out:match("CacheFS:\t([^\n]*)")
|
|
end
|
|
|
|
local function saveDir(identity)
|
|
local os_ = jit and jit.os or "Linux"
|
|
if os_ == "OSX" then return home .. "/Library/Application Support/LOVE/" .. identity end
|
|
if os_ == "Windows" then return (os.getenv("APPDATA") or (home .. "/AppData/Roaming")) .. "/LOVE/" .. identity end
|
|
return home .. "/.local/share/love/" .. identity
|
|
end
|
|
|
|
do
|
|
local out, code = run("HOME=" .. sh(home), "--items " .. sh(rom))
|
|
S.eq(code, 2, "no cache root and no identity exits 2")
|
|
check(out:find("usage:", 1, true) ~= nil, "no cache root prints usage")
|
|
check(cacheLine(out) == nil, "no cache root never picks a CacheFS dir")
|
|
check(not out:find("pokemon-love2d", 1, true), "no cache root never names the owner identity")
|
|
end
|
|
|
|
do
|
|
local out, code = run("HOME=" .. sh(home), "--help")
|
|
S.eq(code, 0, "--help exits 0")
|
|
check(out:find("usage:", 1, true) ~= nil, "--help prints usage")
|
|
end
|
|
|
|
do
|
|
local out = run("HOME=" .. sh(home) .. " POKEPORT_IDENTITY=cli-probe", "--items " .. sh(rom))
|
|
S.eq(cacheLine(out), saveDir("cli-probe") .. "/firered/data/generated/gba",
|
|
"POKEPORT_IDENTITY resolves to that identity's firered dir")
|
|
end
|
|
|
|
do
|
|
local out = run("HOME=" .. sh(home) .. " POKEPORT_IDENTITY=cli-probe",
|
|
"--cache " .. sh(tmp .. "/explicit") .. " --items " .. sh(rom))
|
|
S.eq(cacheLine(out), tmp .. "/explicit/data/generated/gba", "--cache wins over POKEPORT_IDENTITY")
|
|
end
|
|
|
|
do
|
|
local out = run("HOME=" .. sh(home) .. " GBA_CACHE_ROOT=" .. sh(tmp .. "/envroot"), "--pokemon " .. sh(rom))
|
|
S.eq(cacheLine(out), tmp .. "/envroot/data/generated/gba", "GBA_CACHE_ROOT is honored")
|
|
end
|
|
|
|
do
|
|
local f = assert(io.open("src/import/gba/cli_extract.lua", "rb"))
|
|
local src = f:read("*a")
|
|
f:close()
|
|
check(not src:find("pokemon-love2d", 1, true), "cli_extract has no owner-identity default")
|
|
end
|
|
|
|
S.finish()
|