diff --git a/NightLight.Core.Tests/NightLightTests.fs b/NightLight.Core.Tests/NightLightTests.fs index c76ee9c..8529f1c 100644 --- a/NightLight.Core.Tests/NightLightTests.fs +++ b/NightLight.Core.Tests/NightLightTests.fs @@ -37,10 +37,9 @@ type NightLightTests() = match partOfDay with | Day -> color = White || color = Yellow | Night -> color = Red) - |> Prop.classify (partOfDay = Day) "day" - |> Prop.classify (partOfDay = Night) "night" - |> Prop.trivial (fakeHome.LightsThatAreOn.Length = 0) + |> Prop.collect partOfDay |> Prop.collect $"{fakeHome.LightsThatAreOn.Length} light(s) on" + |> Prop.trivial (fakeHome.LightsThatAreOn.Length = 0) [ |])>] let ``All non-remotely controlled lights that have power should be on`` (interactions: Interaction list) =