Lots of content

tests/model_spec.lua

@@ -40,6 +40,14 @@ test("shelter dries while exposed rain wets", function()
 	assert(dry.wet < initial.wet and wet.wet > initial.wet)
 	assert(initial.wet == 20) -- no hidden mutation
 end)
+test("rain cloak slows wetting, adds warmth, and a rack accelerates sheltered drying", function()
+	local cold = {food = 80, water = 80, warmth = 68, wet = 20, stamina = 70}
+	local bare = M.needs(cold, {temperature = 5, shelter = 0, rain = true}, 1)
+	local coated = M.needs(cold, {temperature = 5, shelter = 0, rain = true, clothing = true}, 1)
+	assert(coated.wet < bare.wet and coated.warmth > bare.warmth)
+	local rack = M.needs(initial, {temperature = 5, shelter = 1, rain = true, drying = true}, 1)
+	assert(rack.wet < M.needs(initial, {temperature = 5, shelter = 1, rain = true}, 1).wet)
+end)
 test("rest recovers sprint reserve", function()
 	local rest = M.needs(initial, {temperature = 20}, 1)
 	local run = M.needs(initial, {temperature = 20, sprinting = true}, 1)