implemented newSalt

test/Spec.hs

@@ -26,6 +26,7 @@ import Control.Monad (when)
 import System.Exit (exitFailure)
 import Test.HUnit (errors, failures, runTestTT, Test(TestList))
 
+import qualified Spec.NewSalt as NewSalt
 import qualified Spec.PWPolicy as PWPolicy
 import qualified Spec.ValidatePWPolicy as ValidatePWPolicy
 
@@ -37,6 +38,7 @@ main = do
 tests = TestList
   [ PWPolicy.tests
   , ValidatePWPolicy.tests
+  , NewSalt.tests
   ]
 
 --jl