{- passman Copyright (C) 2018-2021 Jonathan Lamothe 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 . -} module Spec.PWHasService (tests) where import qualified Data.Map as M import System.Random (mkStdGen, StdGen) import Test.HUnit (Test (..), (~?=)) import Password tests :: Test tests = TestLabel "pwHasService" $ TestList $ map test' [ ( "empty database", "foo", newPWDatabase, False ) , ( "in database", "foo", database, True ) , ( "not found", "quux", database, False ) ] test' :: (String, String, PWDatabase, Bool) -> Test test' (label, x, db, expect) = TestLabel label $ pwHasService x db ~?= expect database :: M.Map String PWData database = M.fromList [ ( "foo", foo ) , ( "bar", bar ) , ( "baz", baz ) ] foo :: PWData g' :: StdGen (foo, g') = newPWData g bar :: PWData g'' :: StdGen (bar, g'') = newPWData g' baz :: PWData (baz, _) = newPWData g'' g :: StdGen g = mkStdGen 1 --jl