made validatePWPolicy return Bool

2018-12-13 11:15:26 -05:00
parent 3a92469554
commit 36e2ac9883
2 changed files with 7 additions and 10 deletions
--- a/test/Spec/ValidatePWPolicy.hs
+++ b/test/Spec/ValidatePWPolicy.hs
@@ -40,8 +40,8 @@ tests = TestLabel "validatePWPolicy" $ TestList $ map test'
  , ( "short invalid",    shortInvalid,          False )
  ]

-test' (label, f, valid) = TestLabel label $
-  validatePWPolicy x ~?= if valid then Just x else Nothing where
+test' (label, f, expect) = TestLabel label $
+  validatePWPolicy x ~?= expect where
  x = f newPWPolicy

 validMins = setAll 1