implemented validatePWDatabase

src/Password.hs

@@ -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

test/Spec.hs

@@ -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

test/Spec/ValidatePWDatabase.hs

@@ -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