Add CircleCI build and Jest (integration) test

Author: andywhite37

.circleci/config.yml

@@ -0,0 +1,42 @@
+# Javascript Node CircleCI 2.0 configuration file
+#
+# Check https://circleci.com/docs/2.0/language-javascript/ for more details
+#
+version: 2
+jobs:
+  build:
+    docker:
+      # specify the version you desire here
+      - image: circleci/node:10.15.1
+
+      # Specify service dependencies here if necessary
+      # CircleCI maintains a library of pre-built images
+      # documented at https://circleci.com/docs/2.0/circleci-images/
+      # - image: circleci/mongo:3.4.4
+
+    working_directory: ~/repo
+
+    steps:
+      - checkout
+
+      # Download and cache dependencies
+      - restore_cache:
+          keys:
+            - v1-dependencies-{{ checksum "package.json" }}
+            # fallback to using the latest cache if no exact match is found
+            - v1-dependencies-
+
+      - run:
+          name: "npm install"
+          command: |
+            npm install
+
+      - save_cache:
+          paths:
+            - node_modules
+          key: v1-dependencies-{{ checksum "package.json" }}
+
+      - run:
+          name: Build & test
+          command: |
+            npm run cleantest

__tests__/ReludeFetch_test.re

@@ -0,0 +1,88 @@
+open Jest;
+open Expect;
+open Relude.Js.Json.DSL;
+
+[%raw "require('isomorphic-fetch')"];
+
+module Error = ReludeFetch.Error;
+module Headers = ReludeFetch.Headers;
+
+module ResultE =
+  Relude.Result.WithError({
+    type t = string;
+  });
+
+module IOE =
+  Relude.IO.WithError({
+    type t = Error.t(string);
+  });
+
+let (>>=) = IOE.Infix.(>>=);
+
+module Data = {
+  let baseURL = "https://jsonplaceholder.typicode.com";
+
+  module Todo = {
+    type t = {
+      userId: int,
+      id: int,
+      title: string,
+      completed: bool,
+    };
+
+    let todo1URL = baseURL ++ "/todos/1";
+
+    let make = (userId, id, title, completed) => {
+      userId,
+      id,
+      title,
+      completed,
+    };
+
+    let decode: Js.Json.t => Belt.Result.t(t, string) =
+      json => {
+        make
+        <$> JD.intFor("userId", json)
+        <*> JD.intFor("id", json)
+        <*> JD.stringFor("title", json)
+        <*> JD.boolFor("completed", json)
+        |> Relude.Result.fromValidation
+        |> Relude.Result.mapError(_ => "Decode failed");
+      };
+  };
+};
+
+describe("ReludeFetch integration tests", () => {
+  test("sync sanity check", () =>
+    expect(true) |> toBe(true)
+  );
+
+  testAsync("async sanity check", onDone =>
+    onDone(expect(true) |> toBe(true))
+  );
+
+  testAsync("fetch sample TODO", onDone => {
+    let expectedTodo: Data.Todo.t = {
+      userId: 1,
+      id: 1,
+      title: "delectus aut autem",
+      completed: false,
+    };
+
+    ReludeFetch.fetchWith(
+      ~headers=
+        Headers.authorizationBearer("mytoken")
+        |> Headers.combine(Headers.acceptJson),
+      Data.Todo.todo1URL,
+    )
+    >>= ReludeFetch.Response.Json.decode(Data.Todo.decode)
+    |> Relude.IO.tap(json => Js.log(json))
+    |> Relude.IO.unsafeRunAsync(
+         fun
+         | Ok(actualTodo) =>
+           onDone(expect(actualTodo) |> toEqual(expectedTodo))
+         | Error(error) =>
+           onDone(fail("Failed: " ++ Error.show(e => e, error))),
+       );
+  });
+});

bsconfig.json

@@ -7,7 +7,7 @@
       "subdirs": true
     },
     {
-      "dir": "examples",
+      "dir": "__tests__",
       "subdirs": true,
       "type": "dev"
     }
@@ -22,6 +22,9 @@
     "bs-fetch",
     "relude"
   ],
+  "bs-dev-dependencies": [
+    "@glennsl/bs-jest",
+  ],
   "warnings": {
     "error": "+101"
   },