organize 'Stream" tests; add tests for 'Stream.Writable.make';

Author: austindd

.gitignore

@@ -8,14 +8,7 @@ bsb
 *.bs.js
 package-lock.json
 
-src/ScratchPad.re
 src/ScratchPadJs.js
+src/ScratchRE.re
+src/ScratchML.ml
 src/Events.re
-
-src/Errors__2.re
-src/Process__2.re
-src/Stream__2.re
-src/Stream__3.re
-src/Fs__2.re
-src/Crypto__2.re
-

__tests__/Stream_test.re

@@ -7,7 +7,7 @@
       "subdirs": true
     },
     {
-      "dir": "__tests__",
+      "dir": "test",
       "subdirs": true,
       "type": "dev"
     },

bsconfig.json

@@ -0,0 +1,45 @@
+open Jest;
+
+describe("Stream", () => {
+  testAsync("Stream.Readable.make should return a defined value", resolve => {
+    open! ExpectJs;
+    open StreamTestLib;
+    let readable = makeReadableEmpty();
+    expect(readable->Js.Undefined.return) |> toBeDefined |> resolve;
+  });
+
+  testAsync(
+    "Stream.Readable.make should return an instance of 'Readable'", resolve => {
+    open! ExpectJs;
+    open StreamTestLib;
+    let readable = makeReadableEmpty();
+    expect(readable->Internal__JsTypeReflection.constructorName)
+    |> toBe("Readable")
+    |> resolve;
+  });
+
+  testAsync("Stream.Writable.make should return a defined value", resolve => {
+    open! ExpectJs;
+    open StreamTestLib;
+    let writable = makeWritableEmpty();
+    expect(writable->Js.Undefined.return) |> toBeDefined |> resolve;
+  });
+
+  testAsync(
+    "Stream.Writable.make should return an instance of 'Writable'", resolve => {
+    open! ExpectJs;
+    open StreamTestLib;
+    let writable = makeWritableEmpty();
+    expect(writable->Internal__JsTypeReflection.constructorName)
+    |> toBe("Writable")
+    |> resolve;
+  });
+
+  testAsync("Stream.Readable.pipe returns a writable stream", resolve => {
+    open! ExpectJs;
+    open StreamTestLib;
+    let readable = makeReadableEmpty();
+    let writable = makeWritableEmpty();
+    expect(Stream.pipe(readable, writable)) |> toBe(writable) |> resolve;
+  });
+});

__tests__/BinaryLike_test.re test/__tests__/BinaryLike_test.re__tests__/BinaryLike_test.re renamed to test/__tests__/BinaryLike_test.re

@@ -0,0 +1,25 @@
+/** Creates a readable stream with no functionality */
+let makeReadableEmpty = () => {
+  open Stream.Readable;
+  let options =
+    makeOptions(
+      ~destroy=[@bs.this] (_, _, done_) => {done_(~err=None)},
+      ~read=[@bs.this] (_, _) => (),
+      ~autoDestroy=true,
+      (),
+    );
+  make(options);
+};
+
+/** Creates a writable stream with no functionality */
+let makeWritableEmpty = () => {
+  open Stream.Writable;
+  let options =
+    makeOptions(
+      ~destroy=[@bs.this] (_, _, done_) => {done_(~err=None)},
+      ~write=[@bs.this] (_, _, _) => (),
+      ~autoDestroy=true,
+      (),
+    );
+  make(options);
+};