diff --git a/NightLight.Core.Tests/InteractionListGenerators.fs b/NightLight.Core.Tests/InteractionListGenerators.fs
index 6e1d439..b7810c3 100644
--- a/NightLight.Core.Tests/InteractionListGenerators.fs
+++ b/NightLight.Core.Tests/InteractionListGenerators.fs
@@ -17,7 +17,7 @@ let private genRemoteInteraction =
     |> Gen.map RemoteInteraction
 
 let private genInteraction =
-    Gen.oneof [ genTimeChanged; genHumanInteraction; genRemoteInteraction ]
+    Gen.frequency [ 4, genTimeChanged; 1, genHumanInteraction; 1, genRemoteInteraction ]
 
 type ArbitraryInteractions() =
     static member Interactions() =