feat(marker): model for høst, klargøring, pleje og multi-tool (1-5 sæt, aflæsningsvogne)

tests/test_adFieldModel.lua

@@ -13,7 +13,9 @@ end
 local f = M.newField(109)
 check("M1 stage", f.stage, "idle")
 check("M1 mode", f.plan.mode, "manual")
-check("M1 product", f.plan.product, "silage")
+check("M1 product auto", f.plan.product, "auto")
+check("M1 auto = ensilage på slåafgrøde", M.product(f.plan, "mowable"), "silage")
+check("M1 auto = høst ellers", M.product(f.plan, "harvest"), "harvest")
 check("M1 rake", f.plan.rake, false)
 
 -- M2: klar ved >= 90 %
@@ -60,7 +62,7 @@ check("M6 stop -> klar", M.stop(started).stage, "ready")
 check("M7 rolle slå", M.roleFor("mowing"), "mower")
 check("M7 rolle saml", M.roleFor("collecting"), "collector")
 check("M7 rolle klar = ingen", M.roleFor("ready"), nil)
-check("M7 maks læssevogne", M.maxRigs("collecting"), 2)
+check("M7 maks læssevogne = planens sæt", M.maxRigs("collecting", {rigs = 2}), 2)
 check("M7 maks slå", M.maxRigs("mowing"), 1)
 local okWide, whyWide = M.checkWidth("mower", 60, nil)
 check("M7 over 50 m", okWide, false); check("M7 grund", whyWide, "tooWide")
@@ -71,11 +73,11 @@ check("M7 lige bred ok (tolerance)", (M.checkWidth("collector", 40.76, 40.8)), t
 check("M7 ukendt slåbredde ok", (M.checkWidth("tedder", 10, nil)), true)
 
 -- wantsRig: kun arbejdende trin, under maks, efter pause
-check("M7 wantsRig slå", M.wantsRig(started, 0, 0), "mower")
+check("M7 wantsRig slå", M.wantsRig(started, 0, 0).role, "mower")
 check("M7 wantsRig fuld", M.wantsRig(started, 1, 0), nil)
 local paused = M.start(M.onReadiness(M.newField(8), 1)); paused.retryAt = 1000
 check("M7 wantsRig i pause", M.wantsRig(paused, 0, 500), nil)
-check("M7 wantsRig efter pause", M.wantsRig(paused, 0, 1000), "mower")
+check("M7 wantsRig efter pause", M.wantsRig(paused, 0, 1000).role, "mower")
 check("M7 wantsRig klar = nil", M.wantsRig(ready, 0, 0), nil)
 
 -- M8: gem/indlæs bevarer trin, plan og slåbredde
@@ -98,7 +100,7 @@ local base = M.start(M.onReadiness(M.newField(1), 1))
 local noted = M.with(base, {reason = {text = "x"}, retryAt = 5, plan = {product = "hay"}})
 check("M9 grund", noted.reason.text, "x"); check("M9 pause", noted.retryAt, 5)
 check("M9 plan flettet", noted.plan.product, "hay"); check("M9 mode bevaret", noted.plan.mode, "manual")
-check("M9 trin bevaret", noted.stage, "mowing"); check("M9 original urørt", base.plan.product, "silage")
+check("M9 trin bevaret", noted.stage, "mowing"); check("M9 original urørt", base.plan.product, "auto")
 
 -- M10: Start nu på en mark der ikke er helt klar -> klar; arbejdende mark røres ikke
 check("M10 venter -> klar", M.forceReady(M.newField(2)).stage, "ready")
@@ -142,5 +144,88 @@ check("M13 bageri ikke", M.isFermenter({{inputs = {{type = GRASS_W}}, outputs =
 check("M13 ingen produktioner", M.isFermenter(nil, GRASS_W, SILAGE), false)
 check("M13 ukendt ensilage-type", M.isFermenter(fermenter, GRASS_W, nil), false)
 
+-- M14: høstkæde + klargøring efter behov
+local plan = {mode = "manual", product = "auto", rake = false, rigs = 1, unloaders = 1, mulch = false, lime = true,
+    soil = "auto", sow = true, sowFruit = "", roll = true, fertilize = true, weed = true, storeBuildingIds = {}}
+check("M14 høst + kultivér + så + tromle", table.concat(M.workStages(plan, "harvest", {}), ","), "harvesting,cultivating,sowing,rolling")
+check("M14 kalk + pløj når jorden trænger", table.concat(M.workStages(plan, "harvest", {lime = true, plow = true}), ","), "harvesting,liming,plowing,sowing,rolling")
+local noSoil = {soil = "none", sow = false, lime = false, mulch = true}
+check("M14 kun stubbehakning", table.concat(M.workStages(noSoil, "harvest", {}), ","), "harvesting,mulching")
+check("M14 bar mark = kun klargøring", table.concat(M.workStages(plan, "bare", {plow = true}), ","), "plowing,sowing,rolling")
+check("M14 tvunget pløj", table.concat(M.prepStages({soil = "plow"}, {}), ","), "plowing")
+local harvestField = M.start(M.with(M.newField(20), {plan = {sow = true, soil = "cultivate"}}), "harvest", {})
+check("M14 start = høst", harvestField.stage, "harvesting")
+check("M14 husker art", harvestField.kind, "harvest")
+local afterHarvest = M.advance(harvestField, {})
+check("M14 høst -> kultivér", afterHarvest.stage, "cultivating")
+check("M14 -> så", M.advance(afterHarvest, {}).stage, "sowing")
+check("M14 så -> færdig", M.advance(M.advance(afterHarvest, {}), {}).stage, "done")
+check("M14 kalk springes over når jorden er kalket", M.advance(M.with(harvestField, {plan = {lime = true}}), {lime = false}).stage, "cultivating")
+check("M14 tom kæde -> færdig", M.start(M.with(M.newField(21), {plan = {soil = "none", sow = false, lime = false}}), "bare", {}).stage, "done")
+
+-- M15: hjælpere under høst og multi-tool-baner
+check("M15 aflæsningsvogn efter høsteren", M.wantsRig(harvestField, {primary = 1, helpers = 0}, 0).role, "unloader")
+check("M15 hjælper-flag", M.wantsRig(harvestField, {primary = 1, helpers = 0}, 0).helper, true)
+check("M15 alle vogne på plads -> intet", M.wantsRig(harvestField, {primary = 1, helpers = 1}, 0), nil)
+local multi = M.with(harvestField, {plan = {rigs = 3, unloaders = 2}})
+check("M15 multi: 3 høstere samlet", M.wantsRig(multi, {primary = 0, helpers = 0}, 0).count, 3)
+check("M15 multi: 2 vogne", M.maxHelpers("harvesting", multi.plan), 2)
+check("M15 ingen hjælper ved slåning", M.maxHelpers("mowing", multi.plan), 0)
+check("M15 baner 2", table.concat(M.lanePositions(2), ","), "-1,1")
+check("M15 baner 3", table.concat(M.lanePositions(3), ","), "-1,0,1")
+check("M15 baner 4", table.concat(M.lanePositions(4), ","), "-2,-1,1,2")
+check("M15 baner 5", table.concat(M.lanePositions(5), ","), "-2,-1,0,1,2")
+check("M15 over 5 -> 5", #M.lanePositions(9), 5)
+check("M15 maxRigs holdes 1-5", M.maxRigs("mowing", {rigs = 7}), 5)
+
+-- M16: pleje under vækst
+local growing = {kind = "harvest", growing = true, fert = 1, fertMax = 2, lime = 2, weed = 0}
+local idleField = M.newField(30)
+check("M16 gødning", M.careNeed(idleField, growing), "fertilizing")
+check("M16 ukrudt før gødning", M.careNeed(idleField, {kind = "harvest", growing = true, fert = 1, fertMax = 2, lime = 2, weed = 3}), "weeding")
+check("M16 græs ukrudtsbehandles ikke", M.careNeed(idleField, {kind = "mowable", growing = true, fert = 2, fertMax = 2, lime = 2, weed = 3}), nil)
+check("M16 kalk", M.careNeed(idleField, {kind = "harvest", growing = true, fert = 2, fertMax = 2, lime = 0, weed = 0}), "careLiming")
+check("M16 intet behov", M.careNeed(idleField, {kind = "harvest", growing = true, fert = 2, fertMax = 2, lime = 1, weed = 1}), nil)
+check("M16 ikke voksende", M.careNeed(idleField, {kind = "harvest", growing = false, fert = 0, fertMax = 2}), nil)
+check("M16 gødning slået fra", M.careNeed(M.with(idleField, {plan = {fertilize = false}}), growing), nil)
+check("M16 arbejdende mark", M.careNeed(harvestField, growing), nil)
+local cared = M.startCare(idleField, "fertilizing")
+check("M16 pleje-trin", cared.stage, "fertilizing")
+check("M16 rolle", M.roleFor(cared.stage), "fertilizer")
+check("M16 kalk-pleje rolle", M.roleFor("careLiming"), "limer")
+check("M16 pleje -> idle", M.advance(cared, {}).stage, "idle")
+local twice = M.startCare(M.advance(cared, {}), "fertilizing")
+check("M16 højst 2 gange", M.careNeed(M.advance(twice, {}), growing), nil)
+check("M16 ny cyklus nulstiller", M.careNeed(M.advance(M.start(M.advance(twice, {}), "harvest", {}), {}), growing) ~= "x", true)
+check("M16 start nulstiller pleje-tæller", next(M.start(twice, "harvest", {}).careRuns), nil)
+check("M16 stop af pleje -> idle", M.stop(cared).stage, "idle")
+check("M16 stop af høst -> klar", M.stop(harvestField).stage, "ready")
+
+-- M17: såafgrøde og gem/indlæs af den udvidede plan
+check("M17 så samme afgrøde", M.sowFruit(M.with(M.newField(40), {lastFruit = "WHEAT"})), "WHEAT")
+check("M17 planens afgrøde vinder", M.sowFruit(M.with(M.newField(40), {lastFruit = "WHEAT", plan = {sowFruit = "CANOLA"}})), "CANOLA")
+local full = M.with(M.startCare(M.newField(41), "weeding"), {kind = "harvest", lastFruit = "BARLEY",
+    plan = {rigs = 3, unloaders = 2, mulch = true, lime = false, soil = "plow", sow = true, sowFruit = "WHEAT", roll = true, fertilize = false, weed = false, product = "harvest"}})
+local round = M.fromRecord(M.toRecord(full))
+check("M17 trin", round.stage, "weeding")
+check("M17 sæt", round.plan.rigs, 3)
+check("M17 vogne", round.plan.unloaders, 2)
+check("M17 stub", round.plan.mulch, true)
+check("M17 kalk fra", round.plan.lime, false)
+check("M17 jord", round.plan.soil, "plow")
+check("M17 så", round.plan.sow, true)
+check("M17 såafgrøde", round.plan.sowFruit, "WHEAT")
+check("M17 tromle", round.plan.roll, true)
+check("M17 gødning fra", round.plan.fertilize, false)
+check("M17 ukrudt fra", round.plan.weed, false)
+check("M17 art", round.kind, "harvest")
+check("M17 sidste afgrøde", round.lastFruit, "BARLEY")
+check("M17 pleje-tæller", round.careRuns.weeding, 1)
+check("M17 produkt", round.plan.product, "harvest")
+local legacy = M.fromRecord({id = 5, stage = "collecting", mode = "auto", product = "hay", rake = 1})
+check("M17 etape 1-post: hø", legacy.plan.product, "hay")
+check("M17 etape 1-post: standard kalk til", legacy.plan.lime, true)
+check("M17 etape 1-post: 1 sæt", legacy.plan.rigs, 1)
+
 print(failures == 0 and "\nALLE TESTS OK" or ("\n" .. failures .. " FEJL"))
 os.exit(failures == 0 and 0 or 1)