jlamothe/passman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

better tests for newSalt

This commit is contained in:
Jonathan Lamothe 2018-12-17 20:20:08 -05:00
parent ceb9d77bfd
commit 72d8609674
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
test/Spec/NewSalt.hs
View File

@ -24,12 +24,21 @@ module Spec.NewSalt (tests) where
import qualified Data.ByteString as B
import System.Random (mkStdGen)
import Test.HUnit (Test(..), (~?=))
import Test.HUnit (Test(..), assertBool, (~?=))
import Password
tests = TestLabel "newSalt" $ B.length salt ~?= 256 where
(salt, _) = newSalt g
g = mkStdGen 1
tests = TestLabel "newSalt" $ TestList
[ testLength salt
, testDiff salt salt'
] where
(salt, g') = newSalt g
(salt', _) = newSalt g'
g = mkStdGen 1
testLength x = TestLabel "salt length" $ B.length x ~?= 256
testDiff x y = TestLabel "different generators" $ TestCase $
assertBool "salts match" $ x /= y
--jl