@colisweb/rescript-toolkit 4.19.0 → 4.20.0

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@colisweb/rescript-toolkit",
-  "version": "4.19.0",
+  "version": "4.20.0",
   "type": "module",
   "scripts": {
     "clean": "rescript clean",
@@ -46,6 +46,7 @@
     "lenses-ppx": "6.1.10",
     "list-selectors": "2.0.1",
     "lodash": "4.17.21",
+    "msw": "^2.0.0",
     "postcss": "8.4.31",
     "postcss-preset-env": "8.0.1",
     "prismjs": "1.29.0",

package/src/vendors/Msw.res

@@ -4,7 +4,7 @@ type worker
 @module("msw") @variadic
 external setupWorker: array<mock> => worker = "setupWorker"
 
-type rec startOptions = {serviceWorker?: serviceWorker}
+type rec startOptions = {serviceWorker?: serviceWorker, quiet?: bool}
 and serviceWorker = {url: string}
 
 @send
@@ -12,24 +12,49 @@ external start: (worker, startOptions) => unit = "start"
 @send
 external stop: worker => unit = "stop"
 
-module Ctx = {
+@module("msw")
+external passthrough: unit => mock = "passthrough"
+
+@module("msw")
+external delay: unit => Promise.Js.t<unit, unit> = "delay"
+@module("msw")
+external delayCustom: int => Promise.Js.t<unit, unit> = "delay"
+
+module HttpResponse = {
   type t
+  type options = {
+    status?: int,
+    statusText?: string,
+    headers?: Js.Dict.t<string>,
+  }
+
+  @module("msw") @scope("HttpResponse")
+  external json: Js.Json.t => t = "json"
+
+  @module("msw") @scope("HttpResponse")
+  external jsonWithOptions: (Js.Json.t, options) => t = "json"
+}
+
+type request = {
+  method: string,
+  url: string,
+}
 
-  @send
-  external json: (t, 'a) => 'b = "json"
-  @send
-  external status: (t, 'a) => 'b = "status"
+type httpRequest = {
+  request: request,
+  params: Js.Dict.t<string>,
+  cookies: Js.Dict.t<string>,
 }
 
-module Rest = {
-  type req<'params> = {params: 'params}
-
-  @module("msw") @scope("rest")
-  external get: (string, (req<'params>, @uncurry ('z => 't), Ctx.t) => 'a) => mock = "get"
-  @module("msw") @scope("rest")
-  external put: (string, (req<'params>, @uncurry ('z => 't), Ctx.t) => 'a) => mock = "put"
-  @module("msw") @scope("rest")
-  external post: (string, (req<'params>, @uncurry ('z => 't), Ctx.t) => 'a) => mock = "post"
-  @module("msw") @scope("rest")
-  external delete: (string, (req<'params>, @uncurry ('z => 't), Ctx.t) => 'a) => mock = "delete"
+module Http = {
+  @module("msw") @scope("http")
+  external get: (string, httpRequest => HttpResponse.t) => mock = "get"
+  @module("msw") @scope("http")
+  external put: (string, httpRequest => HttpResponse.t) => mock = "put"
+  @module("msw") @scope("http")
+  external post: (string, httpRequest => HttpResponse.t) => mock = "post"
+  @module("msw") @scope("http")
+  external delete: (string, httpRequest => HttpResponse.t) => mock = "delete"
+  @module("msw") @scope("http")
+  external all: (string, httpRequest => HttpResponse.t) => mock = "all"
 }