diff --git a/NightLight.Core.Tests/NightLightTests.fs b/NightLight.Core.Tests/NightLightTests.fs
index e2c9606..d0889b6 100644
--- a/NightLight.Core.Tests/NightLightTests.fs
+++ b/NightLight.Core.Tests/NightLightTests.fs
@@ -103,14 +103,14 @@ type NightLightTests() =
     let ``After a new day starts, all lights that have power should be on as long as the 'Off' button isn't pressed``
         ()
         =
-        let genInitialTransitionToDay =
+        let genInitialInteractionsListThatEndsWithTransitionToDay =
             concatGens
                 [ Gen.bind genInteractionListThatStartsWithTimeChangedAndEndsWith genTimeChangedToNight
                   genInteractionListExcept isTimeChangedToDay
                   Gen.map List.singleton genTimeChangedToDay ]
 
         concatGens
-            [ genInitialTransitionToDay
+            [ genInitialInteractionsListThatEndsWithTransitionToDay
               genInteractionListExcept ((=) (HumanInteraction RemotePressedOffButton)) ]
         |> Arb.fromGen
         |> Prop.forAll