feat(udkørsel): kilder hvis læssestationer deler lager (mælketanke som udvidelser) regnes som ét stop (v1.17.3.0)

tests/test_adOutbound.lua

@@ -543,5 +543,23 @@ v24b.trailers[1].setAllTensionBeltsActive = function(self, active) self.beltsAct
 adEnv.LoadAtDestinationTask.finished(newTask(v24b, 1))
 check("O24 tipvogn uden tur: rører ikke stropper", v24b.trailers[1].beltsActive, nil)
 
+-- O-pool: to kilder hvis stationer deler lager (mælketanke som udvidelser) = ét stop i runden
+do
+    local pool = {}
+    local st1, st2 = sources[1].station, sources[2].station
+    sources[1].station = {name = "tankA", sourceStorages = {[pool] = pool}}
+    sources[2].station = {name = "tankB", sourceStorages = {[pool] = pool}}
+    local vPool = newVehicle("Tank", 0, 0, 10000)
+    runs[vPool] = outboundRun(77, {1, 2}, {{fillType = "SUGAR", policy = "sell"}}, {collectRound = true})
+    local inputPool = ADOutbound.buildPlanInput(adEnv, runs[vPool], vPool)
+    local ids = {}
+    for _, product in ipairs(inputPool.products) do
+        for _, source in ipairs(product.sources) do table.insert(ids, tostring(source.wayPointId)) end
+    end
+    check("O-pool kun første kilde", table.concat(ids, ","), "1")
+    check("O-pool logget", lastLog("deler lager") ~= nil, true)
+    sources[1].station, sources[2].station = st1, st2
+end
+
 print(failures == 0 and "\nALLE TESTS OK" or ("\n" .. failures .. " FEJL"))
 os.exit(failures == 0 and 0 or 1)