test(error): test panic

Author: glennsl

Diff for: package.json

@@ -5,11 +5,9 @@
     "clean": "rescript clean",
     "build": "rescript",
     "watch": "rescript build -w",
-    "test": "node test/PromiseTest.mjs && node test/TempTests.mjs"
+    "test": "node test/TestSuite.mjs && node test/TempTests.mjs"
   },
-  "keywords": [
-    "rescript"
-  ],
+  "keywords": ["rescript"],
   "homepage": "https://github.com/rescript-association/rescript-core",
   "author": "ReScript Team",
   "license": "MIT",

Diff for: test/ErrorTests.mjs

@@ -0,0 +1,39 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Test from "./Test.mjs";
+import * as Js_exn from "rescript/lib/es6/js_exn.js";
+import * as RescriptCore from "../src/RescriptCore.mjs";
+import * as Caml_js_exceptions from "rescript/lib/es6/caml_js_exceptions.js";
+
+function panicTest(param) {
+  var caught;
+  try {
+    caught = RescriptCore.panic("uh oh");
+  }
+  catch (raw_err){
+    var err = Caml_js_exceptions.internalToOCamlException(raw_err);
+    if (err.RE_EXN_ID === Js_exn.$$Error) {
+      caught = err._1.message;
+    } else {
+      throw err;
+    }
+  }
+  Test.run([
+        [
+          "ErrorTests.res",
+          8,
+          22,
+          43
+        ],
+        "Should resolve test"
+      ], caught, (function (prim0, prim1) {
+          return prim0 === prim1;
+        }), "Panic! uh oh");
+}
+
+panicTest(undefined);
+
+export {
+  panicTest ,
+}
+/*  Not a pure module */

Diff for: test/ErrorTests.res

@@ -0,0 +1,11 @@
+open RescriptCore
+
+let panicTest = () => {
+  let caught = try panic("uh oh") catch {
+  | Exn.Error(err) => Error.message(err)
+  }
+
+  Test.run(__POS_OF__("Should resolve test"), caught, \"==", Some("Panic! uh oh"))
+}
+
+panicTest()

Diff for: test/TestSuite.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ErrorTests from "./ErrorTests.mjs";
+import * as PromiseTest from "./PromiseTest.mjs";
+
+var TestError = PromiseTest.TestError;
+
+var fail = PromiseTest.fail;
+
+var equal = PromiseTest.equal;
+
+var Creation = PromiseTest.Creation;
+
+var ThenChaining = PromiseTest.ThenChaining;
+
+var Rejection = PromiseTest.Rejection;
+
+var Catching = PromiseTest.Catching;
+
+var Concurrently = PromiseTest.Concurrently;
+
+var panicTest = ErrorTests.panicTest;
+
+export {
+  TestError ,
+  fail ,
+  equal ,
+  Creation ,
+  ThenChaining ,
+  Rejection ,
+  Catching ,
+  Concurrently ,
+  panicTest ,
+}
+/* ErrorTests Not a pure module */

Diff for: test/TestSuite.res

@@ -0,0 +1,2 @@
+include PromiseTest
+include ErrorTests