From a6412522b16109496738e90ff9a26d29c80c55c0 Mon Sep 17 00:00:00 2001 From: "github-actions[bot]" <41898282+github-actions[bot]@users.noreply.github.com> Date: Tue, 5 Nov 2024 17:52:08 -0600 Subject: [PATCH] Restyled by fourmolu (#2203) Co-authored-by: Restyled.io --- test/unit/TestContext.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/unit/TestContext.hs b/test/unit/TestContext.hs index fa4373100..694035aaf 100644 --- a/test/unit/TestContext.hs +++ b/test/unit/TestContext.hs @@ -16,7 +16,7 @@ import Swarm.Util (showT) import Test.QuickCheck.Instances.Text () import Test.Tasty (TestTree, testGroup) import Test.Tasty.HUnit (Assertion, assertBool, assertEqual, testCase) -import Test.Tasty.QuickCheck (testProperty, Gen, generate, withMaxSuccess, Arbitrary(..)) +import Test.Tasty.QuickCheck (Arbitrary (..), Gen, generate, testProperty, withMaxSuccess) testContext :: TestTree testContext = @@ -47,11 +47,11 @@ testContext = "no paired hash collisions" (withMaxSuccess 10000 (hashConsistent @Int)) , testCase - "no hash collisions in a large pool" $ - do + "no hash collisions in a large pool" + $ do ctxs <- generate (replicateM 100000 (arbitrary :: Gen (Ctx Int))) let m = M.fromListWith (++) (map (\ctx -> (ctxHash ctx, [unCtx ctx])) ctxs) - assertBool "foo" $ all ((==1) . length . nub) m + assertBool "foo" $ all ((== 1) . length . nub) m ] where ctx1 = singleton "x" 3