implemented validatePWDatabase
This commit is contained in:
parent
7f28229722
commit
e08b10a586
@ -36,7 +36,7 @@ module Password (
|
||||
-- ** Default Instances
|
||||
newPWDatabase, newPWData, newPWPolicy, newPWSalt,
|
||||
-- ** Validations
|
||||
validatePWData, validatePWPolicy
|
||||
validatePWDatabase, validatePWData, validatePWPolicy
|
||||
) where
|
||||
|
||||
import Control.Lens (makeLenses, (^.))
|
||||
@ -113,6 +113,14 @@ newPWSalt g = (result, g2) where
|
||||
result = B.pack $ take 256 $ randoms g1
|
||||
(g1, g2) = split g
|
||||
|
||||
-- | validates a password database
|
||||
validatePWDatabase
|
||||
:: PWDatabase
|
||||
-- ^ the database to be validated
|
||||
-> Bool
|
||||
-- ^ @"True"@ if valid; @"False"@ otherwise
|
||||
validatePWDatabase = all validatePWData
|
||||
|
||||
-- | validates password data
|
||||
validatePWData
|
||||
:: PWData
|
||||
|
@ -31,6 +31,7 @@ import qualified Spec.NewPWDatabase as NewPWDatabase
|
||||
import qualified Spec.NewPWPolicy as NewPWPolicy
|
||||
import qualified Spec.NewPWSalt as NewPWSalt
|
||||
import qualified Spec.ValidatePWData as ValidatePWData
|
||||
import qualified Spec.ValidatePWDatabase as ValidatePWDatabase
|
||||
import qualified Spec.ValidatePWPolicy as ValidatePWPolicy
|
||||
|
||||
main = do
|
||||
@ -45,6 +46,7 @@ tests = TestList
|
||||
, NewPWSalt.tests
|
||||
, ValidatePWPolicy.tests
|
||||
, ValidatePWData.tests
|
||||
, ValidatePWDatabase.tests
|
||||
]
|
||||
|
||||
--jl
|
||||
|
54
test/Spec/ValidatePWDatabase.hs
Normal file
54
test/Spec/ValidatePWDatabase.hs
Normal file
@ -0,0 +1,54 @@
|
||||
{-
|
||||
|
||||
passman
|
||||
Copyright (C) 2018 Jonathan Lamothe
|
||||
<jlamothe1980@gmail.com>
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU Lesser General Public License as
|
||||
published by the Free Software Foundation, either version 3 of the
|
||||
License, or (at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but
|
||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with this program. If not, see
|
||||
<https://www.gnu.org/licenses/>.
|
||||
|
||||
-}
|
||||
|
||||
module Spec.ValidatePWDatabase (tests) where
|
||||
|
||||
import Control.Lens (set)
|
||||
import qualified Data.Map as M
|
||||
import System.Random (mkStdGen)
|
||||
import Test.HUnit (Test (..), (~?=))
|
||||
|
||||
import Password
|
||||
|
||||
tests = TestLabel "validatePWDatabase" $ TestList $ map test'
|
||||
[ ( "empty", newPWDatabase, True )
|
||||
, ( "valid", validDB, True )
|
||||
, ( "foo invalid", fooInvalid, False )
|
||||
, ( "bar invalid", barInvalid, False )
|
||||
]
|
||||
|
||||
test' (label, x, expect) = TestLabel label $
|
||||
validatePWDatabase x ~?= expect
|
||||
|
||||
validDB = M.fromList [("foo", validData), ("bar", validData)]
|
||||
|
||||
fooInvalid = M.insert "foo" invalidData validDB
|
||||
|
||||
barInvalid = M.insert "bar" invalidData validDB
|
||||
|
||||
(validData, _) = newPWData g
|
||||
|
||||
invalidData = set (pwPolicy.pwLength) (-1) validData
|
||||
|
||||
g = mkStdGen 1
|
||||
|
||||
--jl
|
Loading…
x
Reference in New Issue
Block a user