160 lines
12 KiB
Lua
160 lines
12 KiB
Lua
-- Kør: luajit tests/test_adFieldSiloPlanner.lua (fra repo-roden)
|
|
dofile("FS25_ADSmartPickup/adFieldSiloPlanner.lua")
|
|
local P = ADFieldSiloPlanner
|
|
local WHEAT, CANOLA = 1, 2
|
|
local failures = 0
|
|
local function check(name, actual, expected)
|
|
if actual == expected then print("OK " .. name) else
|
|
failures = failures + 1
|
|
print(string.format("FAIL %s: forventede %s, fik %s", name, tostring(expected), tostring(actual)))
|
|
end
|
|
end
|
|
local function silo(id, x, stock, markerId) return {id = id, name = id, markerId = markerId == nil and (id .. "m") or markerId or nil, x = x, z = 0, stock = stock} end
|
|
local function store(id, x, free) return {id = id, markerId = id .. "m", x = x, z = 0, free = free} end
|
|
local function vehicle(id, x, capacity, carries, cargo) return {id = id, x = x, z = 0, capacity = capacity, carries = carries or {[WHEAT] = true, [CANOLA] = true}, cargo = cargo} end
|
|
local function base(over)
|
|
local input = {silos = {}, stores = {store("farm", 0, {[WHEAT] = 1000000, [CANOLA] = 1000000})}, loans = {}, vehicles = {}, paused = {}, maxVehicles = 2, minLiters = 10000}
|
|
for k, v in pairs(over or {}) do input[k] = v end
|
|
return input
|
|
end
|
|
|
|
-- kvalificering
|
|
local r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 9999})}, vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("under tærskel -> ingen afsendelse", #r.dispatch, 0)
|
|
check("under tærskel -> ingen status", #r.status, 0)
|
|
r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 30000}, false)}, vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("uden markør -> noMarker", r.status[1].state, "noMarker")
|
|
check("uden markør -> ingen afsendelse", #r.dispatch, 0)
|
|
r = P.plan(base({stores = {store("farm", 0, {[CANOLA] = 1000000})}, silos = {silo("A", 500, {[WHEAT] = 30000})}, vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("ingen gård tager varen -> noFarmStore", r.status[1].state, "noFarmStore")
|
|
r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 30000})}, vehicles = {vehicle("v1", 400, 50000)}, paused = {[P.key("A", WHEAT)] = true}}))
|
|
check("pause -> paused, ingen afsendelse", r.status[1].state .. #r.dispatch, "paused0")
|
|
|
|
-- afsendelse, fuldeste først, x-loft
|
|
r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 20000}), silo("B", 900, {[WHEAT] = 80000})}, vehicles = {vehicle("v1", 400, 50000), vehicle("v2", 950, 50000), vehicle("v3", 1000, 50000)}}))
|
|
check("x=2 -> to afsendt", #r.dispatch, 2)
|
|
check("fuldeste silo først", r.dispatch[1].siloId, "B")
|
|
check("nærmeste vogn til B", r.dispatch[1].vehicleId, "v2")
|
|
check("B's rest (30000) får vogn nr. 2", r.dispatch[2].siloId, "B")
|
|
check("lager-markør med", r.dispatch[1].storeMarkerId, "farmm")
|
|
check("liter = vognens kapacitet", r.dispatch[1].liters, 50000)
|
|
check("anden tur = resten", r.dispatch[2].liters, 30000)
|
|
|
|
-- aktive lån tæller mod x og mod siloens rest
|
|
r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 60000})}, loans = {{siloId = "A", fillType = WHEAT, liters = 50000}}, vehicles = {vehicle("v1", 400, 50000), vehicle("v2", 400, 50000)}}))
|
|
check("lån på vej -> rest 10000 -> én ny vogn", #r.dispatch, 1)
|
|
check("status viser på vej", r.status[1].onWay, 50000)
|
|
r = P.plan(base({maxVehicles = 1, silos = {silo("A", 500, {[WHEAT] = 90000})}, loans = {{siloId = "Z", fillType = WHEAT, liters = 1}}, vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("x=1 med ét lån ude -> ingen", #r.dispatch, 0)
|
|
check("frie pladser 0", r.freeSlots, 0)
|
|
|
|
-- flere varer i én silo = hver sin opgave
|
|
r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 40000, [CANOLA] = 20000})}, vehicles = {vehicle("v1", 400, 50000), vehicle("v2", 410, 50000)}}))
|
|
check("to varer -> to afsendelser", #r.dispatch, 2)
|
|
check("fuldeste vare først", r.dispatch[1].fillType, WHEAT)
|
|
|
|
-- vogne der ikke kan
|
|
r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 40000})}, vehicles = {vehicle("v1", 400, 50000, {[CANOLA] = true}), vehicle("v2", 2000, 50000)}}))
|
|
check("vogn der ikke kan bære varen springes over", r.dispatch[1].vehicleId, "v2")
|
|
r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 40000})}, vehicles = {vehicle("v1", 400, 50000, nil, CANOLA), vehicle("v2", 2000, 50000)}}))
|
|
check("vogn med anden vare på springes over", r.dispatch[1].vehicleId, "v2")
|
|
r = P.plan(base({silos = {silo("A", 500, {[WHEAT] = 40000})}, vehicles = {vehicle("v1", 400, 0)}}))
|
|
check("vogn uden kapacitet -> ingen", #r.dispatch, 0)
|
|
|
|
-- lagervalg
|
|
r = P.plan(base({stores = {store("near", 400, {[WHEAT] = 20000}), store("far", 5000, {[WHEAT] = 900000})}, silos = {silo("A", 500, {[WHEAT] = 90000})}, vehicles = {vehicle("v1", 400, 50000), vehicle("v2", 400, 50000)}}))
|
|
check("nærmeste lager uden plads til læsset -> det med plads", r.dispatch[1].storeId, "far")
|
|
r = P.plan(base({stores = {store("small", 400, {[WHEAT] = 30000}), store("tiny", 300, {[WHEAT] = 15000})}, silos = {silo("A", 500, {[WHEAT] = 90000})}, vehicles = {vehicle("v1", 400, 50000), vehicle("v2", 400, 50000)}}))
|
|
check("intet har plads til hele læsset -> mest plads", r.dispatch[1].storeId, "small")
|
|
check("reserveret plads: vogn 2 til det andet lager", r.dispatch[2].storeId, "tiny")
|
|
r = P.plan(base({stores = {store("full", 400, {[WHEAT] = 5000})}, silos = {silo("A", 500, {[WHEAT] = 90000})}, vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("lager med under tærsklen -> noFarmStore", r.status[1].state, "noFarmStore")
|
|
|
|
-- input muteres ikke
|
|
local input = base({silos = {silo("A", 500, {[WHEAT] = 90000})}, vehicles = {vehicle("v1", 400, 50000)}})
|
|
P.plan(input)
|
|
check("input.stores urørt", input.stores[1].free[WHEAT], 1000000)
|
|
|
|
|
|
-- I1: lån på vej til et lager reserverer pladsen på tværs af planlægningsrunder
|
|
r = P.plan(base({stores = {store("s", 400, {[WHEAT] = 30000})}, silos = {silo("A", 500, {[WHEAT] = 90000})},
|
|
loans = {{siloId = "A", fillType = WHEAT, liters = 30000, storeId = "s"}}, vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("I1 lager fyldt af lån på vej -> ingen ny vogn dertil", #r.dispatch, 0)
|
|
r = P.plan(base({stores = {store("s", 400, {[WHEAT] = 30000}), store("t", 900, {[WHEAT] = 500000})}, silos = {silo("A", 500, {[WHEAT] = 90000})},
|
|
loans = {{siloId = "A", fillType = WHEAT, liters = 30000, storeId = "s"}}, vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("I1 næste vogn til det andet lager", r.dispatch[1] ~= nil and r.dispatch[1].storeId, "t")
|
|
|
|
-- kør til produktion: foder først, overskud til fabrik
|
|
local function factory(id, x, free) return {id = id, kind = "production", markerId = id .. "m", x = x, z = 0, free = free} end
|
|
local farmAndFactory = {store("farm", 5000, {[WHEAT] = 1000000}), factory("mill", 100, {[WHEAT] = 1000000})}
|
|
r = P.plan(base({stores = farmAndFactory, silos = {silo("A", 500, {[WHEAT] = 90000})}, vehicles = {vehicle("v1", 400, 50000)},
|
|
feedReserve = {[WHEAT] = 100000}, farmStock = {[WHEAT] = 20000}}))
|
|
check("P1 reserve ikke dækket -> gårdlager selv om fabrik er nærmere", r.dispatch[1].storeId, "farm")
|
|
r = P.plan(base({stores = farmAndFactory, silos = {silo("A", 500, {[WHEAT] = 90000})}, vehicles = {vehicle("v1", 400, 50000)},
|
|
feedReserve = {[WHEAT] = 100000}, farmStock = {[WHEAT] = 150000}}))
|
|
check("P2 reserve dækket -> fabrik", r.dispatch[1].storeId, "mill")
|
|
r = P.plan(base({stores = farmAndFactory, silos = {silo("A", 500, {[WHEAT] = 90000})}, vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("P3 ikke foder (ingen reserve) -> fabrik", r.dispatch[1].storeId, "mill")
|
|
r = P.plan(base({stores = farmAndFactory, silos = {silo("A", 500, {[WHEAT] = 100000})}, vehicles = {vehicle("v1", 400, 50000), vehicle("v2", 400, 50000)},
|
|
feedReserve = {[WHEAT] = 100000}, farmStock = {[WHEAT] = 70000}}))
|
|
check("P4 første læs dækker resten af reserven -> gård", r.dispatch[1].storeId, "farm")
|
|
check("P4 andet læs er overskud -> fabrik", r.dispatch[2].storeId, "mill")
|
|
r = P.plan(base({stores = farmAndFactory, silos = {silo("A", 500, {[WHEAT] = 90000})}, vehicles = {vehicle("v1", 400, 50000)},
|
|
feedReserve = {[WHEAT] = 100000}, farmStock = {[WHEAT] = 60000}, loans = {{siloId = "B", fillType = WHEAT, liters = 50000, storeId = "farm"}}}))
|
|
check("P5 læs på vej til gården tæller med i reserven -> fabrik", r.dispatch[1] ~= nil and r.dispatch[1].storeId, "mill")
|
|
r = P.plan(base({stores = {store("farm", 5000, {[WHEAT] = 1000000}), factory("mill", 100, {[CANOLA] = 1000000})}, silos = {silo("A", 500, {[WHEAT] = 90000})},
|
|
vehicles = {vehicle("v1", 400, 50000)}, farmStock = {[WHEAT] = 999999}}))
|
|
check("P6 ingen fabrik tager varen -> gårdlager", r.dispatch[1].storeId, "farm")
|
|
r = P.plan(base({stores = {store("farm", 5000, {[CANOLA] = 1000000}), factory("mill", 100, {[WHEAT] = 1000000})}, silos = {silo("A", 500, {[WHEAT] = 90000})},
|
|
vehicles = {vehicle("v1", 400, 50000)}, feedReserve = {[WHEAT] = 100000}}))
|
|
check("P7 reserve mangler men ingen gård tager varen -> fabrik", r.dispatch[1].storeId, "mill")
|
|
check("P7 status ok (ikke noFarmStore)", r.status[1].state, "ok")
|
|
check("P7 status viser destination", r.status[1].toProduction, true)
|
|
|
|
-- fabrik kun når hele læsset kan være der (in-game 28/9: vogn med 252.000 l ventede timevis ved en fuld fabrik)
|
|
r = P.plan(base({stores = {store("farm", 5000, {[WHEAT] = 1000000}), factory("mill", 100, {[WHEAT] = 30000})}, silos = {silo("A", 500, {[WHEAT] = 90000})},
|
|
vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("P8 fabrik uden plads til hele læsset -> gårdlager", r.dispatch[1].storeId, "farm")
|
|
r = P.plan(base({stores = {store("farm", 5000, {[CANOLA] = 1000000}), factory("mill", 100, {[WHEAT] = 30000})}, silos = {silo("A", 500, {[WHEAT] = 90000})},
|
|
vehicles = {vehicle("v1", 400, 50000)}}))
|
|
check("P9 kun fabrik uden plads til hele læsset -> ingen afsendelse", #r.dispatch, 0)
|
|
|
|
-- høsten først: tømmevogne holdes tilbage til høstere der arbejder
|
|
local vs = {vehicle("v1", 400, 50000), vehicle("v2", 400, 50000, {[CANOLA] = true}), vehicle("v3", 400, 50000)}
|
|
local left = P.withoutHarvestReserve(vs, {{fillType = WHEAT, count = 1}})
|
|
check("R1 én hvede-vogn holdt tilbage", #left, 2)
|
|
check("R1 raps-vognen er fri", left[1].id == "v2" or left[2].id == "v2", true)
|
|
left = P.withoutHarvestReserve(vs, {{fillType = WHEAT, count = 5}})
|
|
check("R2 alle hvede-vogne holdt tilbage", #left, 1)
|
|
check("R3 intet behov -> alle fri", #P.withoutHarvestReserve(vs, {}), 3)
|
|
check("R4 input muteres ikke", #vs, 3)
|
|
|
|
-- Tom silo: lånt vogn med last står ved en tom marksilo -> resten køres videre (AD venter ellers til fuld)
|
|
-- (in-game 28/9: Tømmevogn 2 og 4 stod ved tom F17 Unload med kartofler)
|
|
local restState = {atSilo = true, stillMs = 45000, siloStock = 0, cargo = 12000}
|
|
check("RS1 tom silo med last -> kør videre", P.restDue(restState), true)
|
|
check("RS2 siloen har stadig varer -> vent", P.restDue({atSilo = true, stillMs = 45000, siloStock = 30000, cargo = 12000}), false)
|
|
check("RS3 ikke ved siloen -> nej", P.restDue({atSilo = false, stillMs = 45000, siloStock = 0, cargo = 12000}), false)
|
|
check("RS4 lige ankommet -> vent", P.restDue({atSilo = true, stillMs = 5000, siloStock = 0, cargo = 12000}), false)
|
|
check("RS5 tom vogn -> nej", P.restDue({atSilo = true, stillMs = 45000, siloStock = 0, cargo = 0}), false)
|
|
local restStores = {
|
|
{id = "fab", kind = "production", markerId = 1, x = 10, z = 0, free = {[10] = 5000}},
|
|
{id = "gaard", kind = "silo", markerId = 2, x = 500, z = 0, free = {[10] = 900000}},
|
|
}
|
|
check("RS6 fabrik uden plads til hele resten -> gårdsilo", P.restStore(restStores, {x = 0, z = 0}, 10, 12000).id, "gaard")
|
|
check("RS7 fabrik med plads -> fabrik", P.restStore(restStores, {x = 0, z = 0}, 10, 4000).id, "fab")
|
|
check("RS8 intet tager varen", P.restStore(restStores, {x = 0, z = 0}, 99, 4000), nil)
|
|
-- Fuld fabrik: lånt vogn med last holder ved et lager uden plads -> resten til et andet lager (gård)
|
|
check("SF1 fuld fabrik -> videre", P.storeFullDue({atStore = true, stillMs = 70000, cargo = 12000, storeFree = 0}), true)
|
|
check("SF2 fabrikken tager stadig imod -> vent", P.storeFullDue({atStore = true, stillMs = 70000, cargo = 12000, storeFree = 8000}), false)
|
|
check("SF3 lige ankommet -> vent", P.storeFullDue({atStore = true, stillMs = 20000, cargo = 12000, storeFree = 0}), false)
|
|
check("SF4 ikke ved lageret -> nej", P.storeFullDue({atStore = false, stillMs = 70000, cargo = 12000, storeFree = 0}), false)
|
|
local fullStores = {
|
|
{id = "fab", kind = "production", markerId = 1, x = 10, z = 0, free = {[10] = 0}},
|
|
{id = "gaard", kind = "silo", markerId = 2, x = 500, z = 0, free = {[10] = 900000}},
|
|
}
|
|
check("SF5 andet lager end det fulde", P.restStore(fullStores, {x = 0, z = 0}, 10, 12000, "fab").id, "gaard")
|
|
check("SF6 kun det fulde tager varen -> intet", P.restStore({fullStores[1]}, {x = 0, z = 0}, 10, 12000, "fab"), nil)
|
|
print(failures == 0 and "\nALLE TESTS OK" or ("\n" .. failures .. " FEJL"))
|
|
os.exit(failures == 0 and 0 or 1)
|