From 6bac66e908be02cd7f062b9a8c1952efc7ed0354 Mon Sep 17 00:00:00 2001 From: "Henry J. Wylde" Date: Wed, 20 Apr 2016 20:13:47 +1200 Subject: [PATCH] (#168) added `once` to engine test that was constantly failing --- test/src/Game/Werewolf/Test/Engine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/src/Game/Werewolf/Test/Engine.hs b/test/src/Game/Werewolf/Test/Engine.hs index 3c645dd..acafc24 100644 --- 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