forked from minetest-mods/mesecons
Add automated tests for some mods (#605)
Depends on mineunit from https://github.com/S-S-X/mineunit mesecons, mesecons_mvps, mesecons_fpga, and mesecons_luacontroller are now tested.
This commit is contained in:
Jude Melton-Houghton
committed by
GitHub
GitHub
parent
2ede29df9c
commit
c10ce2dbc5
176
mesecons_luacontroller/spec/luac_spec.lua
Normal file
176
mesecons_luacontroller/spec/luac_spec.lua
Normal file
@@ -0,0 +1,176 @@
|
||||
require("mineunit")
|
||||
|
||||
fixture("mesecons_luacontroller")
|
||||
|
||||
-- Digiline is not tested, since that would require the digiline mod.
|
||||
|
||||
describe("LuaController", function()
|
||||
local pos = {x = 0, y = 0, z = 0}
|
||||
local pos_a = {x = -1, y = 0, z = 0}
|
||||
|
||||
before_each(function()
|
||||
mesecon._test_place(pos, "mesecons_luacontroller:luacontroller0000")
|
||||
mineunit:execute_globalstep() -- Execute receptor_on action
|
||||
end)
|
||||
|
||||
after_each(function()
|
||||
mesecon._test_reset()
|
||||
world.clear()
|
||||
end)
|
||||
|
||||
it("rejects binary code", function()
|
||||
local ok = mesecon._test_program_luac(pos, string.dump(function() end))
|
||||
assert.is_false(ok)
|
||||
end)
|
||||
|
||||
it("I/O", function()
|
||||
mesecon._test_place(pos_a, "mesecons:test_receptor_on")
|
||||
mineunit:execute_globalstep() -- Execute receptor_on action
|
||||
mineunit:execute_globalstep() -- Execute activate/change actions
|
||||
mesecon._test_program_luac(pos, [[
|
||||
port.a = not pin.a
|
||||
port.b = not pin.b
|
||||
port.c = not pin.c
|
||||
port.d = not pin.d
|
||||
]])
|
||||
assert.equal("mesecons_luacontroller:luacontroller1110", world.get_node(pos).name)
|
||||
mesecon._test_dig(pos_a)
|
||||
mineunit:execute_globalstep() -- Execute receptor_off action
|
||||
mineunit:execute_globalstep() -- Execute deactivate/change actions
|
||||
assert.equal("mesecons_luacontroller:luacontroller0001", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("memory", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
if not mem.x then
|
||||
mem.x = {}
|
||||
mem.x[mem.x] = {true, "", 1.2}
|
||||
else
|
||||
local b, s, n = unpack(mem.x[mem.x])
|
||||
if b == true and s == "" and n == 1.2 then
|
||||
port.d = true
|
||||
end
|
||||
end
|
||||
]])
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
mesecon._test_place(pos_a, "mesecons:test_receptor_on")
|
||||
mineunit:execute_globalstep() -- Execute receptor_on action
|
||||
mineunit:execute_globalstep() -- Execute activate/change actions
|
||||
assert.equal("mesecons_luacontroller:luacontroller1000", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("interrupts without IDs", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
if event.type == "program" then
|
||||
interrupt(4)
|
||||
interrupt(8)
|
||||
elseif event.type == "interrupt" then
|
||||
port.a = not pin.a
|
||||
end
|
||||
]])
|
||||
mineunit:execute_globalstep(0.1)
|
||||
mineunit:execute_globalstep(3)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
mineunit:execute_globalstep(1)
|
||||
mineunit:execute_globalstep(0.1)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0001", world.get_node(pos).name)
|
||||
mineunit:execute_globalstep(3)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0001", world.get_node(pos).name)
|
||||
mineunit:execute_globalstep(1)
|
||||
mineunit:execute_globalstep(0.1)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("interrupts with IDs", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
if event.type == "program" then
|
||||
interrupt(2, "a")
|
||||
interrupt(4, "a")
|
||||
interrupt(16, "b")
|
||||
elseif event.type == "interrupt" then
|
||||
if event.iid == "a" then
|
||||
interrupt(5, "b")
|
||||
interrupt(4, "b")
|
||||
end
|
||||
port.a = not pin.a
|
||||
end
|
||||
]])
|
||||
mineunit:execute_globalstep(0.1)
|
||||
mineunit:execute_globalstep(3)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
mineunit:execute_globalstep(1)
|
||||
mineunit:execute_globalstep(0.1)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0001", world.get_node(pos).name)
|
||||
mineunit:execute_globalstep(3)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0001", world.get_node(pos).name)
|
||||
mineunit:execute_globalstep(1)
|
||||
mineunit:execute_globalstep(0.1)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("limits interrupt ID size", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
if event.type == "program" then
|
||||
interrupt(0, (" "):rep(257))
|
||||
elseif event.type == "interrupt" then
|
||||
port.a = not pin.a
|
||||
end
|
||||
]])
|
||||
mineunit:execute_globalstep(3)
|
||||
mineunit:execute_globalstep(3)
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("string.rep", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
(" "):rep(64000)
|
||||
port.a = true
|
||||
]])
|
||||
assert.equal("mesecons_luacontroller:luacontroller0001", world.get_node(pos).name)
|
||||
mesecon._test_program_luac(pos, [[
|
||||
(" "):rep(64001)
|
||||
port.b = true
|
||||
]])
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("string.find", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
port.a = (" a"):find("a", nil, true) == 2
|
||||
]])
|
||||
assert.equal("mesecons_luacontroller:luacontroller0001", world.get_node(pos).name)
|
||||
mesecon._test_program_luac(pos, [[
|
||||
(" a"):find("a", nil)
|
||||
port.b = true
|
||||
]])
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("overheats", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
interrupt(0)
|
||||
interrupt(0)
|
||||
]])
|
||||
mineunit:execute_globalstep() -- Execute 2 interrupts
|
||||
mineunit:execute_globalstep() -- Execute 4 interrupts
|
||||
mineunit:execute_globalstep() -- Execute 8 interrupts
|
||||
mineunit:execute_globalstep() -- Execute 16 interrupts
|
||||
assert.equal("mesecons_luacontroller:luacontroller_burnt", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("limits memory", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
port.a = true
|
||||
mem.x = (" "):rep(50000) .. (" "):rep(50000)
|
||||
]])
|
||||
assert.equal("mesecons_luacontroller:luacontroller_burnt", world.get_node(pos).name)
|
||||
end)
|
||||
|
||||
it("limits run time", function()
|
||||
mesecon._test_program_luac(pos, [[
|
||||
port.a = true
|
||||
for i = 1, 1000000 do end
|
||||
]])
|
||||
assert.equal("mesecons_luacontroller:luacontroller0000", world.get_node(pos).name)
|
||||
end)
|
||||
end)
|
||||
Reference in New Issue
Block a user