mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-28 23:00:21 -04:00
bryanthaboi
57 lines
2.0 KiB
Lua
57 lines
2.0 KiB
Lua
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local T = require("tests.harness")
|
|
local check, eq = T.check, T.eq
|
|
|
|
local ROM_PATH = os.getenv("POKEPORT_EMERALD_ROM") or "../pokeemerald/pokeemerald.gba"
|
|
local f = io.open(ROM_PATH, "rb")
|
|
if not f then
|
|
print("emerald_rom_smoke_test: skipped (no ROM at " .. ROM_PATH .. ")")
|
|
os.exit(0)
|
|
end
|
|
local rom = f:read("*a")
|
|
f:close()
|
|
|
|
local function u8(off) return rom:byte(off + 1) end
|
|
local function u32(off)
|
|
local a, b, c, d = rom:byte(off + 1, off + 4)
|
|
return a + b * 256 + c * 65536 + d * 16777216
|
|
end
|
|
|
|
local CHARS = { [0x00] = " " }
|
|
for i = 0, 25 do CHARS[0xBB + i] = string.char(65 + i) end
|
|
for i = 0, 9 do CHARS[0xA1 + i] = string.char(48 + i) end
|
|
local function text(off, max)
|
|
local out = {}
|
|
for i = 0, max - 1 do
|
|
local b = u8(off + i)
|
|
if b == 0xFF then break end
|
|
out[#out + 1] = CHARS[b] or "?"
|
|
end
|
|
return table.concat(out)
|
|
end
|
|
|
|
eq(rom:sub(0xAD, 0xB0), "BPEE", "header game code")
|
|
eq(#rom, 16777216, "16 MiB ROM")
|
|
|
|
local V = require("src.import.gba.games.emerald")
|
|
eq(text(V.SPECIES_NAMES + 1 * (V.SPECIES_NAME_LENGTH), V.SPECIES_NAME_LENGTH), "BULBASAUR", "species 1 name")
|
|
eq(text(V.ITEMS + 1 * V.ITEM_STRIDE, 14), "MASTER BALL", "item 1 name")
|
|
eq(text(V.MOVE_NAMES + 1 * (V.MOVE_NAME_LENGTH + 1), V.MOVE_NAME_LENGTH + 1), "POUND", "move 1 name")
|
|
eq(V.NUM_MAP_GROUPS, 34, "34 map groups")
|
|
local pointers = 0
|
|
for i = 0, V.NUM_MAP_GROUPS - 1 do
|
|
local p = u32(V.G_MAP_GROUPS + i * 4)
|
|
if p >= 0x08000000 and p < 0x0A000000 then pointers = pointers + 1 end
|
|
end
|
|
eq(pointers, 34, "every map group entry is a ROM pointer")
|
|
local group0 = u32(V.G_MAP_GROUPS) - 0x08000000
|
|
local header0 = u32(group0) - 0x08000000
|
|
local layout = u32(header0) - 0x08000000
|
|
eq(u32(layout), 30, "group 0 map 0 (Petalburg City) layout is 30 wide")
|
|
eq(u32(layout + 4), 30, "group 0 map 0 layout is 30 tall")
|
|
local std0 = u32(V.STD_SCRIPTS)
|
|
check(std0 >= 0x08000000 and std0 < 0x0A000000, "gStdScripts[0] is a ROM pointer")
|
|
|
|
T.finish("emerald_rom_smoke_test")
|