haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Spec for "reasonably random" appearance.

Browse Source
This commit is contained in:
Björn Buckwalter 2011-09-17 11:03:29 +08:00
parent 7b3d69f657
commit c9cb50b34b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-core/test/Test/InternalRequest.hs
View File

@ -12,9 +12,14 @@ import Test.Hspec
randomStringSpecs :: [Spec] randomStringSpecs :: [Spec]
randomStringSpecs = describe "Yesod.Internal.Request.randomString" randomStringSpecs = describe "Yesod.Internal.Request.randomString"
[ it "does not repeat itself" $ noRepeat 10 100 [ it "looks reasonably random" looksRandom
, it "does not repeat itself" $ noRepeat 10 100
] ]
-- NOTE: this testcase may break on other systems/architectures if
-- mkStdGen is not identical everywhere (is it?).
looksRandom = randomString 20 (mkStdGen 0) == "VH9SkhtptqPs6GqtofVg"
noRepeat len n = length (nub $ map (randomString len . mkStdGen) [1..n]) == n noRepeat len n = length (nub $ map (randomString len . mkStdGen) [1..n]) == n