@colisweb/rescript-toolkit 5.11.0 → 5.12.0

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@colisweb/rescript-toolkit",
-  "version": "5.11.0",
+  "version": "5.12.0",
   "type": "module",
   "scripts": {
     "clean": "rescript clean",

package/src/form/Toolkit__FormValidationFunctions.res

@@ -48,6 +48,15 @@ module Msg = {
   }
   let optionNonEmpty = {defaultMessage: "Champ requis"}
   let invalidValue = {defaultMessage: "Valeur non valide."}
+  let passwordTooShort = {
+    defaultMessage: "Le mot de passe doit contenir au moins 10 caractères, avoir au moins 1 minuscule, 1 majuscule et un chiffre.",
+  }
+  let passwordCantBeEqualLogin = {
+    defaultMessage: "Veuillez ne pas utiliser votre idenfiant comme mot de passe",
+  }
+  let passwordCantContainLogin = {
+    defaultMessage: "Le mot de passe ne peut pas contenir l'identifiant.",
+  }
 }
 
 let toReSchemaResult = (opt: option<string>): ReSchema.fieldState<'a> =>
@@ -395,3 +404,14 @@ let required14Digits = (intl, value) => {
     }
   }
 }
+let password = (intl, ~login, value) => {
+  switch value {
+  | "" => Some(Intl.formatMessage(intl, Msg.requiredValue))
+  | p if !Js.Re.test_(%re("/(?=.*[a-z])(?=.*[A-Z])(?=.*\d).{10,}/"), p) =>
+    Some(intl->Intl.formatMessage(Msg.passwordTooShort))
+  | p if p === login => Some(intl->Intl.formatMessage(Msg.passwordCantBeEqualLogin))
+  | p if p->Js.String2.toLowerCase->Js.String2.includes(login->Js.String2.toLowerCase) =>
+    Some(intl->Intl.formatMessage(Msg.passwordCantContainLogin))
+  | _ => None
+  }
+}