Add support for the Strip unknownKeys strategy

Author: DZakh

__tests__/JsonSchema_test.res

@@ -115,6 +115,29 @@ test("Schema of record struct with one string field", t => {
   )
 })
 
+test("Schema of record struct with Strip unknownKeys strategy allows additionalProperties", t => {
+  let struct =
+    S.record1(
+      ~fields=("field", S.string()),
+      ~constructor=field => {field: field}->Ok,
+      (),
+    )->S.Record.strip
+
+  t->Assert.deepEqual(
+    JsonSchema.make(struct),
+    Ok(
+      %raw(`{
+        "$schema": "http://json-schema.org/draft-07/schema#",
+        "type": "object",
+        "properties": {"field": {"type": "string"}},
+        "required": ["field"],
+        "additionalProperties": true,
+      }`),
+    ),
+    (),
+  )
+})
+
 test("Schema of record struct with one optional string field", t => {
   let struct = S.record1(
     ~fields=("optionalField", S.option(S.string())),

package-lock.json

@@ -1,6 +1,6 @@
 {
   "name": "rescript-json-schema",
-  "version": "0.16.0",
+  "version": "0.17.0",
   "description": "Typesafe JSON Schema for ReScript",
   "keywords": [
     "ReScript",
@@ -42,9 +42,9 @@
   "devDependencies": {
     "rescript": "9.1.4",
     "rescript-ava": "github:DZakh/rescript-ava#007d9f63e17310f73fabab1223eb75a0c9c36035",
-    "rescript-struct": "^0.8.0"
+    "rescript-struct": "0.9.0"
   },
   "peerDependencies": {
-    "rescript-struct": "^0.8.x"
+    "rescript-struct": "0.9.x"
   }
 }

package.json

@@ -99,7 +99,7 @@ let rec makeNode:
           Error(JsonSchema_Error.UnsupportedNestedOptional.make())
         }
       })
-    | S.Record(fields) =>
+    | S.Record({fields, unknownKeys}) =>
       fields
       ->RescriptStruct_ResultX.Array.mapi((field, _) => {
         let (fieldName, fieldStruct) = field
@@ -119,7 +119,14 @@ let rec makeNode:
             }
             properties->Js.Dict.set(fieldName, fieldNode.rawSchema)
           })
-          Raw.record(~additionalProperties=false, ~properties, ~required)
+          Raw.record(
+            ~additionalProperties=switch unknownKeys {
+            | Strict => false
+            | Strip => true
+            },
+            ~properties,
+            ~required,
+          )
         }
         {
           rawSchema: rawSchema,