mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
74 lines
3.1 KiB
Lua
74 lines
3.1 KiB
Lua
|
|
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local T = require("tests.harness")
|
|
local check, eq = T.check, T.eq
|
|
love = love or require("tests.love_stub")
|
|
|
|
local Game2 = require("src.core.Game2")
|
|
|
|
local function game(fields)
|
|
return setmetatable(fields or {}, { __index = Game2 })
|
|
end
|
|
|
|
eq(game():logicSpeed(), 1, "a bare game with no options at all is 1X")
|
|
eq(game({ options = {} }):logicSpeed(), 1, "options with no speed is 1X")
|
|
eq(game({ options = { speed = 4 } }):logicSpeed(), 4,
|
|
"the saved GAME SPEED option is the ordinary source")
|
|
eq(game({ options = { speed = 4 }, speedOverride = 10 }):logicSpeed(), 10,
|
|
"speedOverride (--speed/POKEPORT_SPEED) wins over the saved option")
|
|
eq(game({ options = { speed = "8" } }):logicSpeed(), 8,
|
|
"a string from the options file is coerced")
|
|
eq(game({ options = { speed = 0 } }):logicSpeed(), 1, "0X is floored to 1X")
|
|
eq(game({ options = { speed = -5 } }):logicSpeed(), 1,
|
|
"and so is a negative")
|
|
eq(game({ options = { speed = "fast" } }):logicSpeed(), 1,
|
|
"an unparseable option falls back rather than erroring")
|
|
|
|
local function stack(...) return { states = { ... } } end
|
|
local battle = { isBattle = true }
|
|
local world = {}
|
|
|
|
eq(game({ options = { speed = 10 }, stack = stack(world) }):logicSpeed(), 10,
|
|
"the overworld under a plain stack honors GAME SPEED")
|
|
eq(game({ options = { speed = 10 }, stack = stack(world, battle) }):logicSpeed(), 10,
|
|
"a local battle honors GAME SPEED")
|
|
eq(game({ options = { speed = 10 }, linkNet = { closed = false },
|
|
stack = stack(world, battle) }):logicSpeed(), 1,
|
|
"a link battle is locked to 1X")
|
|
eq(game({ options = { speed = 10 }, linkNet = { closed = false } }):logicSpeed(), 1,
|
|
"an open linkNet (online arena, LinkBattle2) is locked to 1X")
|
|
eq(game({ options = { speed = 10 }, linkNet = { closed = true } }):logicSpeed(), 10,
|
|
"a closed linkNet is not")
|
|
eq(game({ options = { speed = 10 }, linkSession = true }):logicSpeed(), 1,
|
|
"a link session (tournament, spectate) is locked to 1X")
|
|
eq(require("src.ui.gen2.BattleState").isBattle, true,
|
|
"the Gen 2 battle screen marks itself as a battle")
|
|
|
|
do
|
|
local persisted = 0
|
|
local g = game({ options = { speed = 1 }, stack = stack(world, battle),
|
|
linkNet = { closed = false },
|
|
persistOptions = function() persisted = persisted + 1 end })
|
|
g:_cycleSpeed(1)
|
|
eq(g.options.speed, 1, "SPEED + in a link battle is ignored")
|
|
eq(persisted, 0, "and persists nothing")
|
|
g.linkNet = nil
|
|
g.stack = stack(world)
|
|
g:_cycleSpeed(1)
|
|
eq(g.options.speed, 2, "SPEED + on the overworld still cycles")
|
|
end
|
|
|
|
local Gen2Compat = require("src.mods.Gen2Compat")
|
|
local live = game({ options = { speed = 4 } })
|
|
Gen2Compat.bind(function() return live end)
|
|
local Facade = Gen2Compat.resolve("src.core.Game", "bug1994")
|
|
eq(Facade.logicSpeed(), 4, "the Gen 1 facade reports the engine's own speed")
|
|
live.speedOverride = 10
|
|
eq(Facade.logicSpeed(), 10, "and follows it when it changes")
|
|
Gen2Compat.bind(function() return nil end)
|
|
eq(Facade.logicSpeed(), 1, "with no live game the facade still answers 1X")
|
|
check(Facade.logicSpeed() >= 1, "and never below 1")
|
|
|
|
T.finish("gen2 logic speed bug 1994")
|