feat(pulje): hjemtur — puljeredskaber sættes af på deres parkering, traktoren kører til sin egen; optaget imens

tests/test_adHitch.lua

@@ -83,5 +83,11 @@ check("connect med vogn: stadig kobl på (ingen vending)", H.resolveAction("atta
 check("vognens parkering: kobl af", H.resolveAction("arrive", true), "detach")
 check("almindelig markør", H.resolveAction("arrive", false), "arrive")
 check("afkobl forbliver afkobl", H.resolveAction("detach", false), "detach")
+-- hjemtur: hvert puljeredskabs parkering (afkobles der), så traktorens egen parkering
+local home = H.homeRoute({4}, 2)
+check("hjem: to trin", #home, 2); check("hjem: redskab først", home[1], 4); check("hjem: traktor sidst", home[2], 2)
+check("hjem: uden redskab kun traktor", #H.homeRoute({}, 2), 1)
+check("hjem: samme parkering to gange tæller én", #H.homeRoute({4, 4}, 2), 2)
+check("hjem: uden traktorparkering", #H.homeRoute({4}, nil), 1)
 print(failures == 0 and "\nALLE TESTS OK" or ("\n" .. failures .. " FEJL"))
 os.exit(failures == 0 and 0 or 1)

tests/test_adPool.lua

@@ -72,5 +72,12 @@ local infos = {{id = 5}, {id = 3}, {id = 9}, {id = 1}}
 local ordered = P.queueOrder(infos, {[9] = 100, [3] = 50, [1] = 50})
 check("kø: 1.", ordered[1].id, 1); check("kø: 2.", ordered[2].id, 3); check("kø: 3.", ordered[3].id, 9); check("kø: 4.", ordered[4].id, 5)
 check("kø: rører ikke input", infos[1].id, 5)
+-- på hjemtur: optaget indtil hjemme
+local tractorObject = {}
+check("hjemtur: ikke fra start", P.isReturning(tractorObject), false)
+P.setReturning(tractorObject, true)
+check("hjemtur: markeret", P.isReturning(tractorObject), true)
+P.setReturning(tractorObject, false)
+check("hjemtur: hjemme", P.isReturning(tractorObject), false)
 print(failures == 0 and "\nALLE TESTS OK" or ("\n" .. failures .. " FEJL"))
 os.exit(failures == 0 and 0 or 1)