diff --git a/services/galley/test/unit/Test/Galley/API/One2One.hs b/services/galley/test/unit/Test/Galley/API/One2One.hs index d3f6f0332fe..913a0ed8390 100644 --- a/services/galley/test/unit/Test/Galley/API/One2One.hs +++ b/services/galley/test/unit/Test/Galley/API/One2One.hs @@ -47,5 +47,6 @@ one2OneConvIdNonCollision = do let len = 10_000 -- A generator of lists of length 'len' of qualified user ID pairs let gen = vectorOf len arbitrary - quids <- head <$> sample' gen - anySame (fmap (uncurry one2OneConvId) quids) @?= False + quids <- nubOrd <$> generate gen + let hashes = nubOrd (fmap (uncurry one2OneConvId) quids) + length hashes @?= length quids