@colisweb/rescript-toolkit 5.11.0 → 5.13.0

package/locale/fr.json

@@ -24,6 +24,11 @@
     "defaultMessage": "Format requis : 14 chiffres",
     "message": "Format requis : 14 chiffres"
   },
+  {
+    "id": "_1a17bbef",
+    "defaultMessage": "Le mot de passe doit contenir au moins 10 caractères, avoir au moins 1 minuscule, 1 majuscule et un chiffre.",
+    "message": "Le mot de passe doit contenir au moins 10 caractères, avoir au moins 1 minuscule, 1 majuscule et un chiffre."
+  },
   {
     "id": "_242e1892",
     "defaultMessage": "Cette valeur ne peut être supérieure à {value}.",
@@ -64,6 +69,11 @@
     "defaultMessage": "Samedi",
     "message": "Samedi"
   },
+  {
+    "id": "_4c9b77dc",
+    "defaultMessage": "Le mot de passe ne peut pas contenir l'identifiant.",
+    "message": "Le mot de passe ne peut pas contenir l'identifiant."
+  },
   {
     "id": "_4df46058",
     "defaultMessage": "Semaine {number}",
@@ -124,6 +134,11 @@
     "defaultMessage": "Ce mois",
     "message": "Ce mois"
   },
+  {
+    "id": "_7fca1009",
+    "defaultMessage": "Veuillez ne pas utiliser votre idenfiant comme mot de passe",
+    "message": "Veuillez ne pas utiliser votre idenfiant comme mot de passe"
+  },
   {
     "id": "_8f8eb0df",
     "defaultMessage": "Vendredi",

package/package.json

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

package/src/form/ReSchema.res

@@ -28,6 +28,7 @@ module Make = (Lenses: Lenses) => {
     type rec t =
       | Email({field: Lenses.field<string>, error: option<string>}): t
       | Phone({field: Lenses.field<string>, error: option<string>}): t
+      | Password({field: Lenses.field<string>, error: option<string>}): t
       | NoValidation({field: Lenses.field<'a>}): t
       | StringNonEmpty({field: Lenses.field<string>, error: option<string>}): t
       | StringRegExp({field: Lenses.field<string>, matches: string, error: option<string>}): t
@@ -83,6 +84,7 @@ module Make = (Lenses: Lenses) => {
 
     let email = (~error=?, field) => [Email({field, error})]
     let phone = (~error=?, field) => [Phone({field, error})]
+    let password = (~error=?, field) => [Phone({field, error})]
 
     let nonEmpty = (~error=?, field) => [StringNonEmpty({field, error})]
 
@@ -216,6 +218,19 @@ module Make = (Lenses: Lenses) => {
           }
         },
       )
+    | Validation.Password({field, error}) => {
+        let value = Lenses.get(values, field)
+
+        (
+          Field(field),
+          switch value {
+          | "" => Error(i18n.stringNonEmpty(~value=""))
+          | password if !Js.Re.test_(%re("/(?=.*[a-z])(?=.*[A-Z])(?=.*\d).{10,}/"), password) =>
+            Error(error->Option.getWithDefault(i18n.passwordTooShort))
+          | _ => Valid
+          },
+        )
+      }
     | Validation.NoValidation({field}) => (Field(field), Valid)
     | Validation.StringNonEmpty({field, error}) =>
       let value = Lenses.get(values, field)
@@ -314,6 +329,7 @@ module Make = (Lenses: Lenses) => {
       | Validation.FloatMin({field}) => Field(field) == fieldName
       | Validation.FloatMax({field}) => Field(field) == fieldName
       | Validation.Email({field}) => Field(field) == fieldName
+      | Validation.Password({field}) => Field(field) == fieldName
       | Validation.NoValidation({field}) => Field(field) == fieldName
       | Validation.StringNonEmpty({field}) => Field(field) == fieldName
       | Validation.StringRegExp({field}) => Field(field) == fieldName
@@ -334,6 +350,7 @@ module Make = (Lenses: Lenses) => {
       | Validation.False({field}) => Field(field) == fieldName
       | Validation.Phone({field}) => Field(field) == fieldName
       | Validation.True({field}) => Field(field) == fieldName
+      | Validation.Password({field}) => Field(field) == fieldName
       | Validation.IntMin({field}) => Field(field) == fieldName
       | Validation.IntMax({field}) => Field(field) == fieldName
       | Validation.FloatMin({field}) => Field(field) == fieldName

package/src/form/ReSchemaI18n.res

@@ -11,6 +11,7 @@ type t = {
   stringMin: (~value: string, ~min: int) => string,
   stringMax: (~value: string, ~max: int) => string,
   phone: string,
+  passwordTooShort: string,
 }
 
 let default = {
@@ -33,4 +34,5 @@ let default = {
   stringMax: (~value as _value, ~max) =>
     `Le champ doit avoir au maximum ${max->Int.toString} caractères.`,
   phone: "Format du numéro invalide. Ex : +33612345678",
+  passwordTooShort: "Le mot de passe doit contenir au moins 10 caractères, avoir au moins 1 minuscule, 1 majuscule et un chiffre.",
 }

package/src/form/Reform.res

@@ -112,6 +112,7 @@ module Make = (Config: Config) => {
       | Validation.FloatMax({field}) => (Field(field), Pristine)
       | Validation.Email({field}) => (Field(field), Pristine)
       | Validation.Phone({field}) => (Field(field), Pristine)
+      | Validation.Password({field}) => (Field(field), Pristine)
       | Validation.NoValidation({field}) => (Field(field), Pristine)
       | Validation.StringNonEmpty({field}) => (Field(field), Pristine)
       | Validation.StringRegExp({field}) => (Field(field), Pristine)

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
+  }
+}