mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
101 lines
4.6 KiB
Lua
101 lines
4.6 KiB
Lua
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local T = require("tests.harness")
|
|
local check, eq = T.check, T.eq
|
|
|
|
local Coll = require("src.core.CollPermissions")
|
|
local Permissions = require("src.world.gen2.Permissions")
|
|
local NativePack = require("src.import.gba.native_pack")
|
|
|
|
local function sourceOf(rel)
|
|
local f = io.open(rel, "r")
|
|
if not f then return nil end
|
|
local s = f:read("*a")
|
|
f:close()
|
|
return s
|
|
end
|
|
|
|
do
|
|
local pack = sourceOf("src/import/gba/native_pack.lua")
|
|
check(pack ~= nil, "native_pack.lua is readable")
|
|
check(pack:find('require("src.world', 1, true) == nil,
|
|
"native_pack no longer requires anything under src/world (I9 edge removed)")
|
|
|
|
local neutral = sourceOf("src/core/CollPermissions.lua")
|
|
check(neutral ~= nil, "CollPermissions.lua is readable")
|
|
check(neutral:find("require(", 1, true) == nil,
|
|
"CollPermissions has no requires at all (neutral module)")
|
|
check(neutral:find("src.world", 1, true) == nil, "CollPermissions never mentions src.world")
|
|
|
|
local island = sourceOf("src/import/gba/extract_island1.lua")
|
|
check(island ~= nil and island:find('require("src.world', 1, true) == nil,
|
|
"extract_island1 still has no src.world require (the edge was not moved here)")
|
|
|
|
local perms = sourceOf("src/world/gen2/Permissions.lua")
|
|
check(perms ~= nil and perms:find("local TABLE", 1, true) == nil,
|
|
"the permission table no longer lives in the gen2 world module")
|
|
end
|
|
|
|
eq(Coll.LAND, Permissions.LAND, "LAND matches")
|
|
eq(Coll.WATER, Permissions.WATER, "WATER matches")
|
|
eq(Coll.WALL, Permissions.WALL, "WALL matches")
|
|
check(Permissions.of == Coll.of, "Permissions.of is the re-exported function")
|
|
check(Permissions.isWalkable == Coll.isWalkable, "isWalkable is re-exported")
|
|
check(Permissions.isLedge == Coll.isLedge, "isLedge is re-exported")
|
|
|
|
local mismatches = 0
|
|
local cases = { -1, -256, 0 }
|
|
for b = 0, 255 do cases[#cases + 1] = b end
|
|
cases[#cases + 1] = 256
|
|
cases[#cases + 1] = 257
|
|
cases[#cases + 1] = 0x1FF
|
|
for _, c in ipairs(cases) do
|
|
if Coll.of(c) ~= Permissions.of(c) then mismatches = mismatches + 1 end
|
|
if Coll.isWalkable(c) ~= Permissions.isWalkable(c) then mismatches = mismatches + 1 end
|
|
if Coll.isLedge(c) ~= Permissions.isLedge(c) then mismatches = mismatches + 1 end
|
|
if Coll.isLand(c) ~= Permissions.isLand(c) then mismatches = mismatches + 1 end
|
|
if Coll.isWater(c) ~= Permissions.isWater(c) then mismatches = mismatches + 1 end
|
|
if Coll.isWall(c) ~= Permissions.isWall(c) then mismatches = mismatches + 1 end
|
|
end
|
|
if Coll.of(nil) ~= Permissions.of(nil) then mismatches = mismatches + 1 end
|
|
if Coll.isWalkable(nil) ~= Permissions.isWalkable(nil) then mismatches = mismatches + 1 end
|
|
if Coll.isLedge(nil) ~= Permissions.isLedge(nil) then mismatches = mismatches + 1 end
|
|
eq(mismatches, 0, "CollPermissions and Permissions agree on every tested byte")
|
|
|
|
eq(Coll.of(0), Coll.LAND, "coll 0 is LAND")
|
|
check(Coll.isWalkable(0) == true, "coll 0 is walkable")
|
|
eq(Coll.of(0x07), Coll.WALL, "coll 0x07 is WALL (row 1, index 8)")
|
|
check(Coll.isWalkable(0x07) == false, "a wall is not walkable")
|
|
eq(Coll.of(0x20), Coll.WATER, "coll 0x20 is WATER")
|
|
check(Coll.isWalkable(0x20) == false, "water is not walkable on foot")
|
|
check(Coll.isLedge(0xa0) == true, "0xa0 is a ledge tile")
|
|
eq(Coll.of(0xa0), Coll.LAND, "a ledge tile is LAND in the permission table")
|
|
check(Coll.isLedge(0x9f) == false, "0x9f is not a ledge")
|
|
check(Coll.isLedge(0xb0) == false, "0xb0 is not a ledge")
|
|
eq(Coll.of(nil), Coll.WALL, "nil reads as WALL")
|
|
eq(Coll.of(-1), Coll.WALL, "negative reads as WALL")
|
|
check(Coll.isLedge(nil) == false, "nil is not a ledge")
|
|
|
|
eq(Permissions.surfable(0x20), "water", "surfable still answers water (Permissions.of re-export)")
|
|
eq(Permissions.surfable(0), "land", "surfable still answers land")
|
|
check(type(Permissions.ledgeFacings(0xa0)) == "table",
|
|
"ledgeFacings still resolves (LEDGE_FACINGS + isLedge)")
|
|
|
|
local Seed = require("src.core.game3.scripting.collision")
|
|
local seeded = Seed.seed("BLOCKED")
|
|
|
|
eq(NativePack.resolveLayoutColl(5, 0, false), 5,
|
|
"mapColl 0: the layout's coll passes through (branch 1)")
|
|
eq(NativePack.resolveLayoutColl(0xa0, 1, false), 0xa0,
|
|
"a ledge keeps its layout coll (branch 2)")
|
|
eq(NativePack.resolveLayoutColl(0x60, 1, true), 0x60,
|
|
"a warp cell keeps its layout coll (branch 3, pokefirered field_control_avatar.c:987)")
|
|
eq(NativePack.resolveLayoutColl(0x07, 1, false), 0x07,
|
|
"a non-walkable layout coll keeps itself (branch 4)")
|
|
eq(NativePack.resolveLayoutColl(0, 1, false), seeded,
|
|
"a walkable layout coll under a blocking map coll seeds BLOCKED (branch 5)")
|
|
eq(NativePack.resolveLayoutColl(0, 1, true), seeded,
|
|
"0x00 is not in the warp range, so it still seeds")
|
|
|
|
T.finish("game3_coll_permissions_test")
|