chore: added tests for email

Author: vmarcosp

__tests__/Schema_Test.res

@@ -1,22 +1,24 @@
 open! Jest
 
 module Lenses = {
-  type state = {name: string}
+  type state = {name: string, email: string}
 
-  type rec field<_> = Name: field<string>
+  type rec field<_> = Name: field<string> | Email: field<string>
 
   let get:
     type value. (state, field<value>) => value =
     (state, field) =>
       switch field {
       | Name => state.name
+      | Email => state.email
       }
 
   let set:
     type value. (state, field<value>, value) => state =
-    (_, field, value) =>
+    (state, field, value) =>
       switch field {
-      | Name => {name: value}
+      | Name => {...state, name: value}
+      | Email => {...state, email: value}
       }
 }
 
@@ -27,19 +29,40 @@ describe("Schema", (. ()) => {
     let schema = {
       open CustomSchema.Validation
 
-      schema([string(~min=12, ~minError="Invalid name.", Name)])
+      schema([
+        string(~min=12, ~minError="Invalid name.", Name),
+        email(~error="Invalid email", Email),
+      ])
     }
 
-    let result = CustomSchema.validateOne(~field=Field(Name), ~values={name: "Alonzo"}, schema)
+    let nameResult = CustomSchema.validateOne(
+      ~field=Field(Name),
+      ~values={name: "Alonzo", email: "[email protected]"},
+      schema,
+    )
 
-    expect(result)->not->toBe(None)
+    expect(nameResult)->not->toBe(None)
 
-    switch result {
+    switch nameResult {
     | None => ()
     | Some((field, error)) => {
         expect(field)->toStrictEqual(Field(Name))->ignore
         expect(error)->toStrictEqual(Error("Invalid name."))->ignore
       }
     }
+
+    let emailResult = CustomSchema.validateOne(
+      ~field=Field(Email),
+      ~values={name: "Alonzo", email: "test.."},
+      schema,
+    )
+
+    switch emailResult {
+    | None => ()
+    | Some((field, error)) => {
+        expect(field)->toStrictEqual(Field(Email))->ignore
+        expect(error)->toStrictEqual(Error("Invalid email."))->ignore
+      }
+    }
   })
 })

package.json

@@ -16,7 +16,7 @@
   },
   "license": "MIT",
   "devDependencies": {
-    "jest": "27.5.1"
+    "jest": "28.1.3"
   },
   "dependencies": {
     "rescript": "^9.0.2"