implemented pwSearch

test/Spec.hs

@@ -33,6 +33,7 @@ import qualified Spec.NewPWSalt as NewPWSalt
 import qualified Spec.PWGenerate as PWGenerate
 import qualified Spec.PWGetService as PWGetService
 import qualified Spec.PWHasService as PWHasService
+import qualified Spec.PWSearch as PWSearch
 import qualified Spec.PWSetService as PWSetService
 import qualified Spec.ValidatePWData as ValidatePWData
 import qualified Spec.ValidatePWDatabase as ValidatePWDatabase
@@ -55,6 +56,7 @@ tests = TestList
   , PWHasService.tests
   , PWSetService.tests
   , PWGetService.tests
+  , PWSearch.tests
   ]
 
 --jl

test/Spec/PWSearch.hs

@@ -0,0 +1,57 @@
+{-
+
+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.PWSearch (tests) where
+
+import qualified Data.Map as M
+import System.Random (mkStdGen)
+import Test.HUnit (Test (..), assertBool, (~?=))
+
+import Password
+
+tests = TestLabel "pwSearch" $ TestList $ map test'
+  [ ( "no results",   "quux", []                    )
+  , ( "some results", "A",    ["bar", "baz"]        )
+  , ( "all results",  "",     ["foo", "bar", "baz"] )
+  ]
+
+test' (label, str, expect) = TestLabel label $ TestList $
+  TestLabel "length" (length result ~?= length expect) :
+  map (\x -> TestLabel ("has " ++ x) $ TestCase $
+    assertBool "not found" $ elem x expect) result
+  where result = pwSearch str db
+
+db = M.fromList
+  [ ( "foo", foo )
+  , ( "bar", bar )
+  , ( "baz", baz )
+  ]
+
+(foo, g') = newPWData g
+
+(bar, g'') = newPWData g'
+
+(baz, _) = newPWData g''
+
+g = mkStdGen 1
+
+--jl