(#168) added once to engine test that was constantly failing

hjwylde · Apr 20, 2016 · 6bac66e · 6bac66e
1 parent c71b4f0
commit 6bac66e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/src/Game/Werewolf/Test/Engine.hs b/test/src/Game/Werewolf/Test/Engine.hs
@@ -40,7 +40,7 @@ prop_startGameErrorsUnlessUniquePlayerNames game =
         players' = game ^. players
 
 prop_startGameErrorsWhenLessThan7Players :: [Player] -> Property
-prop_startGameErrorsWhenLessThan7Players players =
+prop_startGameErrorsWhenLessThan7Players players = once $
     length players < 7
     ==> isLeft . runExcept . runWriterT $ startGame "" players