feat(flows): flow-vogne — flowets vogn huskes pr. traktor, solo-traktor henter sin vogn ved start (venter hvis den er lånt ud), stop/slet/bygning væk sætter vognen på plads og kører traktoren hjem; stoppede flows er ledige i maskinpuljen (v1.51.0.0)

tests/test_adFlowWagons.lua

@@ -0,0 +1,54 @@
+-- Kør: luajit tests/test_adFlowWagons.lua   (fra repo-roden)
+dofile("FS25_ADSmartPickup/adRuns.lua")
+dofile("FS25_ADSmartPickup/adFlowWagons.lua")
+local W = ADFlowWagons
+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
+-- gem/indlæs: traktor -> vogn
+local text = W.serialize({vehicleB = "wagon2", vehicleA = "wagon1"})
+check("gem: sorteret", text, "vehicleA=wagon1;vehicleB=wagon2")
+local parsed = W.parse(text)
+check("indlæs: A", parsed.vehicleA, "wagon1")
+check("indlæs: B", parsed.vehicleB, "wagon2")
+check("indlæs: tom", next(W.parse("")), nil)
+check("indlæs: nil", next(W.parse(nil)), nil)
+check("indlæs: skrald springes over", next(W.parse("=x;;y=")), nil)
+-- husk vogn: ny tabel, gammel urørt
+local before = {t1 = "w1"}
+local after = W.remember(before, "t1", "w9")
+check("husk: ny vogn", after.t1, "w9")
+check("husk: original urørt", before.t1, "w1")
+check("husk: samme vogn -> samme tabel", W.remember(after, "t1", "w9"), after)
+-- start: hent / vent / start
+check("start: har redskab bagpå", W.startAction({hasRear = true, wagonId = "w1", wagonExists = true, hasConnect = true}), "start")
+check("start: ingen husket vogn", W.startAction({}), "start")
+check("start: vognen findes ikke", W.startAction({wagonId = "w1", wagonExists = false, hasConnect = true}), "start")
+check("start: vognen uden Connect", W.startAction({wagonId = "w1", wagonExists = true, hasConnect = false}), "start")
+check("start: vognen på en anden", W.startAction({wagonId = "w1", wagonExists = true, hasConnect = true, wagonAttached = true}), "wait")
+check("start: vognen lånt ud", W.startAction({wagonId = "w1", wagonExists = true, hasConnect = true, wagonBusy = true}), "wait")
+check("start: hent", W.startAction({wagonId = "w1", wagonExists = true, hasConnect = true}), "fetch")
+-- ejer: kun et ikke-stoppet flow holder vognen
+local runs = {{id = 1, stopped = false, wagons = {t1 = "w1"}}, {id = 2, stopped = true, wagons = {t2 = "w2"}}}
+check("ejer: kørende flow holder", W.isHeld(runs, "w1"), true)
+check("ejer: stoppet flow holder ikke", W.isHeld(runs, "w2"), false)
+check("ejer: ukendt vogn", W.isHeld(runs, "w3"), false)
+check("ejer: flowet findes", W.ownerOf(runs, "w2").id, 2)
+-- bygning væk: to tjek i træk
+local count, gone = W.missingStep(0, true)
+check("væk: første tjek -> ikke endnu", gone, false)
+count, gone = W.missingStep(count, true)
+check("væk: andet tjek -> væk", gone, true)
+count, gone = W.missingStep(1, false)
+check("væk: fundet igen nulstiller", count, 0)
+check("væk: fundet igen -> ikke væk", gone, false)
+-- manglende bygninger i et flow
+local exists = {a = true, b = true}
+check("mangler: alle findes", #W.missingBuildings({sourceBuildingIds = {"a"}, targetBuildingIds = {"b"}}, exists), 0)
+check("mangler: én væk", W.missingBuildings({targetBuildingIds = {"a", "c"}, storeBuildingIds = {}}, exists)[1], "c")
+print(failures == 0 and "\nALLE TESTS OK" or ("\n" .. failures .. " FEJL"))
+os.exit(failures == 0 and 0 or 1)

tests/test_adPool.lua

@@ -149,5 +149,8 @@ check("par-alle: antal (v2 reserveret, 2 traktorer)", #pairs3, 2)
 check("par-alle: v1 -> tA", pairs3[1].implement.id .. ">" .. pairs3[1].tractor.id, "v1>tA")
 check("par-alle: v3 -> tB (tA er brugt)", pairs3[2].implement.id .. ">" .. pairs3[2].tractor.id, "v3>tB")
 check("par-alle: ingen traktorer", #P.pairAll("unloader", wagons, {}, {}), 0)
+-- flow-vogne: vogn der hører til et kørende flow vises sådan (og er ikke i puljen)
+check("redskab: flowets vogn", ist({parkName = "P Cow Food vogn 1", hasConnect = true, flowName = "Cow Food"}), "flow|Cow Food")
+check("redskab: flowets vogn koblet på", ist({parkName = "P Cow Food vogn 1", hasConnect = true, flowName = "Cow Food", attachedTo = "Cow Food 1"}), "attached|Cow Food 1")
 print(failures == 0 and "\nALLE TESTS OK" or ("\n" .. failures .. " FEJL"))
 os.exit(failures == 0 and 0 or 1)

tests/test_adRuns.lua

@@ -322,5 +322,18 @@ do
     check("RS roundtrip", table.concat(ADRuns.getRun(back, run.id).storeBuildingIds, ","), "BGA500kw")
 end
 
+-- flow-vogne: stoppet + husket vogn pr. traktor følger med records frem og tilbage
+local wagonStore = ADRuns.newStore()
+local ws, wrun = ADRuns.createRun(wagonStore, "Fodring", "supply")
+wrun.stopped, wrun.wagons = true, {vehA = "wagonA"}
+local wrecords = ADRuns.toRecords(ws)
+check("vogne: record stoppet", wrecords[1].stopped, 1)
+check("vogne: record vogne", wrecords[1].wagons, "vehA=wagonA")
+local wback = ADRuns.fromRecords(wrecords).runs[1]
+check("vogne: stoppet tilbage", wback.stopped, true)
+check("vogne: vogn tilbage", wback.wagons.vehA, "wagonA")
+local wupdated = ADRuns.getRun(ADRuns.updateRun(ws, wrun.id, {name = "Fodring 2"}), wrun.id)
+check("vogne: overlever updateRun", wupdated.wagons.vehA, "wagonA")
+check("vogne: stoppet overlever updateRun", wupdated.stopped, true)
 print(failures == 0 and "\nALLE TESTS OK" or ("\n" .. failures .. " FEJL"))
 os.exit(failures == 0 and 0 or 1)