mirror of
https://github.com/bryanthaboi/gen1recomp.git
synced 2026-08-12 08:21:02 +02:00
MaxTomahawk
86 lines
3.6 KiB
Lua
86 lines
3.6 KiB
Lua
-- Battle checkpoints are exposed only at a settled, reconstructable player
|
|
-- decision boundary. This suite is ROM-free and exercises the public engine
|
|
-- checkpoint capability against the fixture battle implementation.
|
|
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
love = love or require("tests.love_stub")
|
|
|
|
local T = require("tests.harness").suite("battle checkpoint boundary")
|
|
local Fixtures = require("tests.modkit").fixtures
|
|
local BattleState = require("src.battle.BattleState")
|
|
local Checkpoint = require("src.core.Checkpoint")
|
|
local Pokemon = require("src.pokemon.Pokemon")
|
|
local SaveData = require("src.core.SaveData")
|
|
local StateStack = require("src.core.StateStack")
|
|
|
|
local Data = Fixtures.fresh()
|
|
|
|
local function makeGame()
|
|
local save = SaveData.newGame()
|
|
save.meta.playthroughId = "battle-playthrough"
|
|
save.party = { Pokemon.new(Data, "FIXMON_A", 20) }
|
|
local stack = setmetatable({ states = {} }, { __index = StateStack })
|
|
local overworld = {
|
|
map = { id = save.player.map },
|
|
player = {
|
|
cellX = save.player.x, cellY = save.player.y,
|
|
facing = save.player.facing, surfing = false,
|
|
},
|
|
runner = { isRunning = function() return false end },
|
|
parallelRunners = {}, pendingScripts = {}, parallelQueue = {}, scriptMoves = {},
|
|
}
|
|
local game = { data = Data, save = save, stack = stack, overworld = overworld }
|
|
stack.states[1] = overworld
|
|
local battle = BattleState.newWild(game, "FIXMON_B", 12)
|
|
battle.phase = "menu"
|
|
battle.queue = {}
|
|
battle.checkpointOrigin = { kind = "wild_encounter" }
|
|
battle.onFinish = function() end
|
|
stack.states[2] = battle
|
|
return game, overworld, battle
|
|
end
|
|
|
|
local game, overworld, battle = makeGame()
|
|
T.same(Checkpoint.inspect(game), {
|
|
canCapture = true, canRestore = true, kind = "battle",
|
|
}, "settled standard wild battle is a checkpoint boundary")
|
|
|
|
local function refused(mutator, code, label)
|
|
local game2, ow2, battle2 = makeGame()
|
|
mutator(game2, ow2, battle2)
|
|
local capability = Checkpoint.inspect(game2)
|
|
T.check(capability.canCapture == false and capability.reason == code,
|
|
label .. ": " .. tostring(capability.reason))
|
|
end
|
|
|
|
refused(function(_, _, b) b.phase = "messages" end,
|
|
"battle_phase_busy", "message phase is rejected")
|
|
refused(function(_, _, b) b.queue = { { text = "busy" } } end,
|
|
"battle_phase_busy", "nonempty action queue is rejected")
|
|
refused(function(_, _, b) b.waitFrames = 1 end,
|
|
"battle_phase_busy", "partial wait is rejected")
|
|
refused(function(_, _, b) b.enemy.mon.hp = b.enemy.mon.hp - 1 end,
|
|
"battle_phase_busy", "unfinished HP display synchronization is rejected")
|
|
refused(function(_, _, b) b.player.mustRecharge = true end,
|
|
"battle_phase_busy", "automatic locked action is rejected")
|
|
refused(function(_, ow) ow.runner = { isRunning = function() return true end } end,
|
|
"script_busy", "suspended script beneath battle is rejected")
|
|
refused(function(_, _, b) b.checkpointOrigin = nil end,
|
|
"battle_origin_unsupported", "unknown completion closure is rejected")
|
|
refused(function(_, _, b) b.safari = { balls = 30, steps = 10 } end,
|
|
"battle_variant_unsupported", "Safari battle is rejected")
|
|
refused(function(_, _, b) b.ghost = true end,
|
|
"battle_variant_unsupported", "ghost battle is rejected")
|
|
refused(function(_, _, b) b.demo = true end,
|
|
"battle_variant_unsupported", "old-man demo is rejected")
|
|
refused(function(_, _, b) b.kind = "link" end,
|
|
"link_battle_unsupported", "link battle is rejected")
|
|
|
|
-- Ordinary overworld behavior remains unchanged by the battle branch.
|
|
game.stack.states[2] = nil
|
|
T.same(Checkpoint.inspect(game), {
|
|
canCapture = true, canRestore = true, kind = "overworld",
|
|
}, "settled overworld remains supported")
|
|
|
|
T.finish()
|