mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
bryanthaboi
89 lines
3.8 KiB
Lua
89 lines
3.8 KiB
Lua
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local T = require("tests.harness")
|
|
local check, eq = T.check, T.eq
|
|
|
|
local VirtualObjects = require("src.core.game3.virtual_objects")
|
|
|
|
VirtualObjects.reset()
|
|
|
|
check(package.loaded["src.core.game3.objects"] == nil,
|
|
"the registry does not drag in objects.lua")
|
|
check(package.loaded["src.core.game3.collision"] == nil,
|
|
"the registry does not drag in collision (virtual objects never collide)")
|
|
eq(VirtualObjects.DIR_SOUTH, 1, "DIR_SOUTH matches pret include/constants/global.h:110")
|
|
|
|
eq(VirtualObjects.count(), 0, "starts empty")
|
|
|
|
local rec = VirtualObjects.spawn(1, 42, 6, 8, 3, 2)
|
|
check(type(rec) == "table", "spawn returns a record")
|
|
eq(rec.id, 1, "id stored")
|
|
eq(rec.graphicsId, 42, "graphicsId stored")
|
|
eq(rec.x, 6, "x stored")
|
|
eq(rec.y, 8, "y stored")
|
|
eq(rec.elevation, 3, "elevation stored")
|
|
eq(rec.direction, 2, "direction stored")
|
|
eq(VirtualObjects.count(), 1, "one live object")
|
|
|
|
-- event.inc:1346
|
|
local dflt = VirtualObjects.spawn(2, 7, 0, 0, nil, nil)
|
|
eq(dflt.elevation, 3, "default elevation is 3")
|
|
eq(dflt.direction, VirtualObjects.DIR_SOUTH, "default direction is DIR_SOUTH")
|
|
eq(VirtualObjects.count(), 2, "two live objects")
|
|
|
|
check(VirtualObjects.get(1) == rec, "get finds the record")
|
|
check(VirtualObjects.get(99) == nil, "get misses cleanly")
|
|
|
|
local list = VirtualObjects.list()
|
|
eq(#list, 2, "list returns both records")
|
|
eq(list[1].id, 1, "list preserves spawn order (first)")
|
|
eq(list[2].id, 2, "list preserves spawn order (second)")
|
|
|
|
check(VirtualObjects.turn(1, 5) == true, "turn on a live id succeeds")
|
|
eq(VirtualObjects.get(1).direction, 5, "turn updates direction")
|
|
eq(VirtualObjects.get(2).direction, VirtualObjects.DIR_SOUTH,
|
|
"turn on one id leaves the other alone")
|
|
|
|
-- src/event_object_movement.c:9248-9257
|
|
check(VirtualObjects.turn(99, 1) == false, "turn on a missing id is a no-op")
|
|
check(VirtualObjects.turn(99, 1) == false, "still a no-op on a repeat")
|
|
check(VirtualObjects.turn(nil, 1) == false, "turn(nil) is a no-op")
|
|
eq(VirtualObjects.get(99), nil, "a missed turn creates nothing")
|
|
|
|
check(VirtualObjects.turn(2, "sideways") == true, "non-numeric direction is accepted")
|
|
eq(VirtualObjects.get(2).direction, VirtualObjects.DIR_SOUTH,
|
|
"a non-numeric direction does not clobber the stored one")
|
|
|
|
local replaced = VirtualObjects.spawn(1, 99, 12, 14, 5, 6)
|
|
check(replaced == VirtualObjects.get(1), "re-spawning an id replaces the entry")
|
|
eq(VirtualObjects.count(), 2, "a replace does not duplicate the id")
|
|
eq(VirtualObjects.get(1).graphicsId, 99, "the replacement's graphics wins")
|
|
eq(#VirtualObjects.list(), 2, "list has no duplicate id")
|
|
|
|
local coerced = VirtualObjects.spawn("3", 1, 1, 1, 1, 1)
|
|
check(coerced ~= nil, "a numeric-string id is accepted")
|
|
check(VirtualObjects.get(3) == coerced, "and resolves to the same record")
|
|
check(VirtualObjects.turn("3", 4) == true, "turn accepts the same coercion")
|
|
|
|
eq(VirtualObjects.spawn(nil, 1, 0, 0, 1, 1), nil, "a nil id is refused")
|
|
eq(VirtualObjects.spawn("badge", 1, 0, 0, 1, 1), nil, "a non-numeric id is refused")
|
|
eq(VirtualObjects.count(), 3, "refused spawns add nothing")
|
|
|
|
VirtualObjects.clear()
|
|
eq(VirtualObjects.count(), 0, "clear empties the registry (map unload)")
|
|
eq(#VirtualObjects.list(), 0, "list is empty after clear")
|
|
check(VirtualObjects.get(1) == nil, "records are gone")
|
|
check(VirtualObjects.turn(1, 1) == false, "turn after clear is a no-op")
|
|
|
|
local fresh = VirtualObjects.spawn(1, 5, 2, 2, 3, 1)
|
|
check(fresh ~= nil, "ids are reusable after clear")
|
|
eq(VirtualObjects.count(), 1, "one object after re-spawn")
|
|
eq(#VirtualObjects.list(), 1, "no ghost entries from the pre-clear spawn")
|
|
|
|
VirtualObjects.reset()
|
|
eq(VirtualObjects.count(), 0, "reset clears everything")
|
|
VirtualObjects.reset()
|
|
eq(VirtualObjects.count(), 0, "reset is safe to repeat")
|
|
|
|
T.finish("game3_virtual_objects_test")
|