password policy validation

2018-12-12 18:41:34 -05:00
parent 63105399b8
commit 3a92469554
3 changed files with 80 additions and 3 deletions
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -27,12 +27,13 @@ import System.Exit (exitFailure)
 import Test.HUnit (errors, failures, runTestTT, Test(TestList))

 import qualified Spec.PWPolicy as PWPolicy
+import qualified Spec.ValidatePWPolicy as ValidatePWPolicy

 main = do
  counts <- runTestTT tests
  when (failures counts > 0 || errors counts > 0)
    exitFailure

-tests = TestList [PWPolicy.tests]
+tests = TestList [PWPolicy.tests, ValidatePWPolicy.tests]

 --jl