debug

Author: aspeddro

tests/docstrings_examples/DocTest.res

@@ -131,6 +131,12 @@ let compileTest = async (~id, ~code) => {
     ~args=["-w", "-3-109-44", "-e", code],
   )
 
+  switch Null.toOption(code) {
+  | Some(v) if v != 0.0 => panic(id)
+  | None => panic(`${id} exit code is None`)
+  | _ => ()
+  }
+
   Console.log({
     "id": id,
     "code": code,

tests/docstrings_examples/DocTest.res.mjs

@@ -102,11 +102,20 @@ async function compileTest(id, code) {
     "-e",
     code
   ], undefined);
+  let code$1 = match.code;
   let stderr = match.stderr;
   let stdout = match.stdout;
+  if (code$1 !== null) {
+    if (code$1 !== 0.0) {
+      Pervasives.panic(id);
+    }
+    
+  } else {
+    Pervasives.panic(id + " exit code is None");
+  }
   console.log({
     id: id,
-    code: match.code,
+    code: code$1,
     signal: match.signal,
     stderr: stderr.map(e => e.toString()).join(""),
     stdout: stdout.map(e => e.toString()).join("")
@@ -202,7 +211,7 @@ function extractDocFromFile(file) {
       RE_EXN_ID: "Assert_failure",
       _1: [
         "DocTest.res",
-        219,
+        225,
         9
       ],
       Error: new Error()