mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
83 lines
2.6 KiB
Lua
83 lines
2.6 KiB
Lua
-- ../pokecrystal/audio/engine.asm:105
|
|
local U = require("tests.drivers.util")
|
|
|
|
local ChipSynth = require("src.core.ChipSynth")
|
|
local Sound = require("src.core.Sound")
|
|
|
|
-- ../pokecrystal/data/pokemon/cries.asm:163
|
|
local EXPECT = {
|
|
{ species = "CYNDAQUIL", length = 128, channel = 1, frames = 20 },
|
|
{ species = "CYNDAQUIL", length = 128, channel = 2, frames = 20 },
|
|
{ species = "MARILL", length = 288, channel = 1, frames = 37 },
|
|
}
|
|
|
|
return function(game)
|
|
local fails = 0
|
|
local function say(line) print("[1945] " .. line) end
|
|
local function ok(cond, line)
|
|
if not cond then fails = fails + 1 end
|
|
say((cond and "PASS " or "FAIL ") .. line)
|
|
end
|
|
|
|
U.wait(60)
|
|
local world = game.world
|
|
if not (world and world.map) then
|
|
say("FAIL the crystal world did not boot")
|
|
love.event.quit(1)
|
|
return
|
|
end
|
|
world:warpToMapId("NEW_BARK_TOWN", 5, 6, "down")
|
|
U.wait(30)
|
|
|
|
local data = game.data
|
|
local cries = data.audio and data.audio.cries
|
|
if not cries then
|
|
say("FAIL no cry table in this cache")
|
|
love.event.quit(1)
|
|
return
|
|
end
|
|
|
|
for _, want in ipairs(EXPECT) do
|
|
local cry = cries[want.species]
|
|
if not cry then
|
|
ok(false, want.species .. " missing from the cry table")
|
|
else
|
|
ok(cry.length == want.length, ("%s length word is %s (want %d)")
|
|
:format(want.species, tostring(cry.length), want.length))
|
|
local engine = ChipSynth.newEngine(data, cry.header, {
|
|
sfx = true, allowLoops = false,
|
|
frequencyOffset = cry.pitch, cryLength = cry.length,
|
|
})
|
|
local channel = engine and engine.channels[want.channel]
|
|
if not channel then
|
|
ok(false, want.species .. " has no channel " .. want.channel)
|
|
else
|
|
local frames, events, dropped = 0, 0, 0
|
|
for _ = 1, 128 do
|
|
local event = channel:nextEvent()
|
|
if not event then break end
|
|
events = events + 1
|
|
if event.duration * 60 < 0.5 then dropped = dropped + 1 end
|
|
frames = frames + event.duration * 60
|
|
end
|
|
ok(dropped == 0, ("%s ch%d drops %d notes")
|
|
:format(want.species, want.channel + 4, dropped))
|
|
ok(math.floor(frames + 0.5) == want.frames,
|
|
("%s ch%d runs %.0f frames over %d events (want %d)")
|
|
:format(want.species, want.channel + 4, frames, events,
|
|
want.frames))
|
|
end
|
|
end
|
|
end
|
|
|
|
for _, species in ipairs({ "CYNDAQUIL", "MARILL", "CYNDAQUIL" }) do
|
|
say("playing " .. species)
|
|
local src = Sound.playCry(data, species)
|
|
ok(src ~= nil, species .. " cry source built")
|
|
U.wait(90)
|
|
end
|
|
|
|
say(fails == 0 and "ALL PASS" or (fails .. " FAILURES"))
|
|
love.event.quit(fails == 0 and 0 or 1)
|
|
end
|