implemented default password policy

test/Spec.hs

@@ -26,11 +26,13 @@ import Control.Monad (when)
 import System.Exit (exitFailure)
 import Test.HUnit (errors, failures, runTestTT, Test(TestList))
 
+import qualified Spec.PWPolicy as PWPolicy
+
 main = do
   counts <- runTestTT tests
   when (failures counts > 0 || errors counts > 0)
     exitFailure
 
-tests = TestList []
+tests = TestList [PWPolicy.tests]
 
 --jl