mirror of
https://github.com/bryanthaboi/gen1recomp.git
synced 2026-08-17 19:24:01 +02:00
bryanthaboi
87 lines
3.8 KiB
Lua
87 lines
3.8 KiB
Lua
-- Launcher SKINS tab (#1386): the tab next to Find that lists skins, imports
|
|
-- a dropped .zip and opens the desktop Skin Studio. The rendered panel is
|
|
-- exercised by tests/drivers/launcher_skins_tab_shot.lua; this pins the
|
|
-- archive installer and the launcher wiring around it.
|
|
-- luajit tests/engine/launcher_skins_tab.lua
|
|
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
if not _G.love then _G.love = require("tests.love_stub") end
|
|
|
|
local T = require("tests.harness")
|
|
local check, eq = T.check, T.eq
|
|
|
|
local TouchSkin = require("src.core.TouchSkin")
|
|
|
|
local function read(path)
|
|
local f = assert(io.open(path, "r"))
|
|
local src = f:read("*a")
|
|
f:close()
|
|
return src
|
|
end
|
|
|
|
-- ------------------------------------------------------ archive installer
|
|
|
|
eq(select(1, TouchSkin.installArchive("skin.zip", nil)), nil,
|
|
"an empty archive is refused")
|
|
eq(select(1, TouchSkin.installArchive("skin.zip", "")), nil,
|
|
"a zero-byte archive is refused")
|
|
eq(select(1, TouchSkin.installArchive("notes.txt", "data")), nil,
|
|
"a non-zip is refused")
|
|
eq(select(1, TouchSkin.installArchive("", "data")), nil,
|
|
"a nameless drop is refused")
|
|
|
|
-- A zip carrying no skin file must not leave a stray archive behind: the
|
|
-- list would keep trying to mount it on every visit to the tab.
|
|
local junk = "PK\3\4 not really a skin"
|
|
local id, err = TouchSkin.installArchive("bogus.zip", junk)
|
|
eq(id, nil, "a zip with no skin.lua or .cfg is refused")
|
|
check(tostring(err):find("bogus.zip", 1, true) ~= nil,
|
|
"and the error names the file")
|
|
eq(love.filesystem.read(TouchSkin.USER_ROOT .. "/bogus.zip"), nil,
|
|
"the rejected archive is cleaned up, not left to fail on every listing")
|
|
|
|
-- the id a good archive would land under is the file name without .zip
|
|
check(TouchSkin.find("bogus") == nil, "a refused archive lists nothing")
|
|
|
|
-- ------------------------------------------------------- launcher wiring
|
|
|
|
local view = read("src/import/LauncherView.lua")
|
|
local imp = read("src/import/RomImporter.lua")
|
|
|
|
check(view:find('id = "skins"', 1, true) ~= nil,
|
|
"LauncherView registers a skins tab")
|
|
check(view:find("drawSkinGlyph", 1, true) ~= nil,
|
|
"the skins tab draws its own glyph rather than shipping an asset")
|
|
-- the tab has to be next to Find, which is what the request was
|
|
local order = view:match("local HEADER_TABS = %{(.-)%}\n")
|
|
check(order ~= nil, "HEADER_TABS found")
|
|
if order then
|
|
local findAt = order:find('id = "find"', 1, true)
|
|
local skinsAt = order:find('id = "skins"', 1, true)
|
|
check(findAt and skinsAt and skinsAt > findAt,
|
|
"the skins tab sits immediately after Find")
|
|
end
|
|
check(view:find('imp.tab == "skins"', 1, true) ~= nil,
|
|
"the panel dispatch routes the skins tab")
|
|
check(view:find("buildSkinsPanel", 1, true) ~= nil, "and a panel builds it")
|
|
-- the panel must not offer the studio when the host did not supply it
|
|
check(view:find("if imp.onOpenSkinStudio then", 1, true) ~= nil,
|
|
"the Studio button is hidden without a host hook (mobile)")
|
|
-- the studio boots a game on Play, so it needs a cartridge, not the tab id
|
|
check(view:find("imp.modScope or \"red\"", 1, true) ~= nil,
|
|
"the studio is handed a real game version, never the skins tab id")
|
|
|
|
check(imp:find('if self.tab == "skins" then', 1, true) ~= nil,
|
|
"a dropped zip on the skins tab installs a skin")
|
|
check(imp:find("_installSkinZip", 1, true) ~= nil, "skin zip installer exists")
|
|
check(imp:find("_installMod", 1, true) ~= nil,
|
|
"and a zip elsewhere still installs a mod")
|
|
local cycle = imp:match("local order = %{(.-)%}")
|
|
check(cycle and cycle:find('"skins"', 1, true) ~= nil,
|
|
"shoulder-button tab cycling reaches the skins tab")
|
|
local switch = imp:match("function RomImporter:_switchTab%(id%)(.-)\nend")
|
|
check(switch and switch:find("_ensureSkins(true)", 1, true) ~= nil,
|
|
"switching to the tab re-reads the skin list")
|
|
|
|
T.finish("launcher_skins_tab")
|