@reventlessdev/reventless-gwt 1.0.0-alpha.100

package/src/FormatterJunit.res

@@ -0,0 +1,93 @@
+// JUnit XML emitter — one `<testsuite>` per file, one `<testcase>` per test.
+// Failures carry the human-readable mismatch + hint inside `<failure>` so
+// CI tools like Jenkins surface the ReScript-rendered expected/actual in
+// their test report UI.
+
+@val external processStdout: {"write": string => unit} = "process.stdout"
+let write = (s: string) => processStdout["write"](s)
+let writeLine = (s: string) => write(s ++ "\n")
+
+let escapeXml = (s: string) =>
+  s
+  ->String.replaceAll("&", "&amp;")
+  ->String.replaceAll("<", "&lt;")
+  ->String.replaceAll(">", "&gt;")
+  ->String.replaceAll("\"", "&quot;")
+  ->String.replaceAll("'", "&apos;")
+
+let emitFile = (f: RunnerTypes.fileResult) => {
+  let tests = f.tests->Array.length
+  let failures = ref(0)
+  let skipped = ref(0)
+  f.tests->Array.forEach(t =>
+    switch t.status {
+    | Fail => failures := failures.contents + 1
+    | Skip => skipped := skipped.contents + 1
+    | Pass => ()
+    }
+  )
+  let totalTime = f.tests->Array.reduce(0.0, (a, t) => a +. t.durationMs) /. 1000.0
+  writeLine(
+    `  <testsuite name="${escapeXml(f.path)}" tests="${Int.toString(
+        tests,
+      )}" failures="${Int.toString(failures.contents)}" skipped="${Int.toString(
+        skipped.contents,
+      )}" time="${Float.toString(totalTime)}">`,
+  )
+  f.tests->Array.forEach(t => {
+    let name = t.describePath->Array.join(" > ")
+    let classname = name == "" ? f.path : name
+    let time = t.durationMs /. 1000.0
+    write(
+      `    <testcase name="${escapeXml(t.name)}" classname="${escapeXml(
+          classname,
+        )}" time="${Float.toString(time)}"`,
+    )
+    switch t.status {
+    | Pass => writeLine(" />")
+    | Skip => {
+        writeLine(">")
+        writeLine(
+          `      <skipped message="${escapeXml(t.skipReason->Option.getOr("skipped"))}" />`,
+        )
+        writeLine(`    </testcase>`)
+      }
+    | Fail => {
+        writeLine(">")
+        switch t.mismatch {
+        | Some(m) => {
+            let hint = Hint.forMismatch(~slice=?t.slice, m)
+            let msg =
+              escapeXml(Outcome.kindName(m)) ++
+              ": " ++
+              escapeXml(Outcome.format(m)) ++
+              "\n\n" ++
+              escapeXml(Hint.format(hint))
+            writeLine(
+              `      <failure type="${escapeXml(Outcome.kindName(m))}" message="${escapeXml(
+                  Outcome.format(m),
+                )}">${msg}</failure>`,
+            )
+          }
+        | None =>
+          writeLine(`      <failure message="failed" type="unknown">failed</failure>`)
+        }
+        writeLine(`    </testcase>`)
+      }
+    }
+  })
+  writeLine(`  </testsuite>`)
+}
+
+let emit = (r: RunnerTypes.runResult) => {
+  writeLine(`<?xml version="1.0" encoding="UTF-8"?>`)
+  writeLine(
+    `<testsuites name="reventless-gwt" tests="${Int.toString(
+        r.summary.total,
+      )}" failures="${Int.toString(r.summary.failed)}" skipped="${Int.toString(
+        r.summary.skipped,
+      )}" time="${Float.toString(r.summary.durationMs /. 1000.0)}">`,
+  )
+  r.files->Array.forEach(emitFile)
+  writeLine(`</testsuites>`)
+}

package/src/FormatterJunit.res.mjs

@@ -0,0 +1,90 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Hint$ReventlessGwt from "./Hint.res.mjs";
+import * as Outcome$ReventlessGwt from "./Outcome.res.mjs";
+
+function write(s) {
+  process.stdout.write(s);
+}
+
+function writeLine(s) {
+  process.stdout.write(s + "\n");
+}
+
+function escapeXml(s) {
+  return s.replaceAll("&", "&amp;").replaceAll("<", "&lt;").replaceAll(">", "&gt;").replaceAll("\"", "&quot;").replaceAll("'", "&apos;");
+}
+
+function emitFile(f) {
+  let tests = f.tests.length;
+  let failures = {
+    contents: 0
+  };
+  let skipped = {
+    contents: 0
+  };
+  f.tests.forEach(t => {
+    let match = t.status;
+    switch (match) {
+      case "Pass" :
+        return;
+      case "Fail" :
+        failures.contents = failures.contents + 1 | 0;
+        return;
+      case "Skip" :
+        skipped.contents = skipped.contents + 1 | 0;
+        return;
+    }
+  });
+  let totalTime = Stdlib_Array.reduce(f.tests, 0.0, (a, t) => a + t.durationMs) / 1000.0;
+  let s = `  <testsuite name="` + escapeXml(f.path) + `" tests="` + tests.toString() + `" failures="` + failures.contents.toString() + `" skipped="` + skipped.contents.toString() + `" time="` + totalTime.toString() + `">`;
+  process.stdout.write(s + "\n");
+  f.tests.forEach(t => {
+    let name = t.describePath.join(" > ");
+    let classname = name === "" ? f.path : name;
+    let time = t.durationMs / 1000.0;
+    process.stdout.write(`    <testcase name="` + escapeXml(t.name) + `" classname="` + escapeXml(classname) + `" time="` + time.toString() + `"`);
+    let match = t.status;
+    switch (match) {
+      case "Pass" :
+        return process.stdout.write(" />\n");
+      case "Fail" :
+        process.stdout.write(">\n");
+        let m = t.mismatch;
+        if (m !== undefined) {
+          let hint = Hint$ReventlessGwt.forMismatch(t.slice, m);
+          let msg = escapeXml(Outcome$ReventlessGwt.kindName(m)) + ": " + escapeXml(Outcome$ReventlessGwt.format(m)) + "\n\n" + escapeXml(Hint$ReventlessGwt.format(hint));
+          let s = `      <failure type="` + escapeXml(Outcome$ReventlessGwt.kindName(m)) + `" message="` + escapeXml(Outcome$ReventlessGwt.format(m)) + `">` + msg + `</failure>`;
+          process.stdout.write(s + "\n");
+        } else {
+          process.stdout.write(`      <failure message="failed" type="unknown">failed</failure>` + "\n");
+        }
+        return process.stdout.write(`    </testcase>` + "\n");
+      case "Skip" :
+        process.stdout.write(">\n");
+        let s$1 = `      <skipped message="` + escapeXml(Stdlib_Option.getOr(t.skipReason, "skipped")) + `" />`;
+        process.stdout.write(s$1 + "\n");
+        return process.stdout.write(`    </testcase>` + "\n");
+    }
+  });
+  process.stdout.write(`  </testsuite>` + "\n");
+}
+
+function emit(r) {
+  process.stdout.write(`<?xml version="1.0" encoding="UTF-8"?>` + "\n");
+  let s = `<testsuites name="reventless-gwt" tests="` + r.summary.total.toString() + `" failures="` + r.summary.failed.toString() + `" skipped="` + r.summary.skipped.toString() + `" time="` + (r.summary.durationMs / 1000.0).toString() + `">`;
+  process.stdout.write(s + "\n");
+  r.files.forEach(emitFile);
+  process.stdout.write(`</testsuites>` + "\n");
+}
+
+export {
+  write,
+  writeLine,
+  escapeXml,
+  emitFile,
+  emit,
+}
+/* No side effect */

package/src/FormatterTap.res

@@ -0,0 +1,100 @@
+// TAP 14 emitter with YAML diagnostic blocks on failure. Streamed line-by-line
+// so `tap-spec` and GitHub Actions' `actions/test-reporter` can consume the
+// output live.
+
+@val external processStdout: {"write": string => unit} = "process.stdout"
+let write = (s: string) => processStdout["write"](s)
+let writeLine = (s: string) => write(s ++ "\n")
+
+let escapeYamlString = (s: string) =>
+  s
+  ->String.replaceAll("\\", "\\\\")
+  ->String.replaceAll("\"", "\\\"")
+  ->String.replaceAll("\n", "\\n")
+
+let yamlString = (s: string) => "\"" ++ escapeYamlString(s) ++ "\""
+
+let yamlLine = (~indent=2, key: string, value: string) =>
+  String.repeat(" ", indent) ++ key ++ ": " ++ value
+
+let renderMismatchYaml = (m: Outcome.mismatch) => {
+  let n = MismatchRender.normalize(m)
+  let lines = [yamlLine("kind", yamlString(n.kind))]
+  // `ExpectedNoEvents` is a Human-only literal (TAP simply omits `expected`);
+  // every other field maps to one yaml `key: "escaped-value"` line.
+  n.fields->Array.forEach(f =>
+    switch f {
+    | Expected(v) => lines->Array.push(yamlLine("expected", yamlString(v)))
+    | Actual(v) => lines->Array.push(yamlLine("actual", yamlString(v)))
+    | Key(k) => lines->Array.push(yamlLine("key", yamlString(k)))
+    | Error(e) => lines->Array.push(yamlLine("error", yamlString(e)))
+    | Stack(s) => lines->Array.push(yamlLine("stack", yamlString(s)))
+    | ExpectedNoEvents => ()
+    }
+  )
+  lines->Array.join("\n")
+}
+
+let emit = (r: RunnerTypes.runResult) => {
+  writeLine("TAP version 14")
+  writeLine(`1..${Int.toString(r.summary.total)}`)
+  let index = ref(0)
+  r.files->Array.forEach(f => {
+    writeLine("")
+    writeLine(`# ${f.path}`)
+    f.tests->Array.forEach(t => {
+      index := index.contents + 1
+      let n = index.contents
+      let path = t.describePath->Array.join(" > ")
+      let title = path == "" ? t.name : `${path} > ${t.name}`
+      let ms = ` # time=${Float.toString(t.durationMs)}ms`
+      switch t.status {
+      | Pass => writeLine(`ok ${Int.toString(n)} - ${title}${ms}`)
+      | Skip => {
+          let reason = t.skipReason->Option.getOr("skipped")
+          writeLine(`ok ${Int.toString(n)} - ${title} # SKIP ${reason}`)
+        }
+      | Fail => {
+          writeLine(`not ok ${Int.toString(n)} - ${title}${ms}`)
+          writeLine("  ---")
+          switch t.location {
+          | Some(loc) =>
+            writeLine(
+              yamlLine(
+                "location",
+                `{ file: "${loc.file}", line: ${Int.toString(loc.line)} }`,
+              ),
+            )
+          | None => ()
+          }
+          switch t.mismatch {
+          | Some(m) => writeLine(renderMismatchYaml(m))
+          | None => ()
+          }
+          switch t.mismatch {
+          | Some(m) => {
+              let hint = Hint.forMismatch(~slice=?t.slice, m)
+              writeLine(yamlLine("hint", ""))
+              writeLine(yamlLine(~indent=4, "locus", yamlString(hint.locus)))
+              writeLine(
+                yamlLine(
+                  ~indent=4,
+                  "branch",
+                  yamlString(hint.branch->Option.getOr("(none)")),
+                ),
+              )
+              writeLine(yamlLine(~indent=4, "message", yamlString(hint.message)))
+            }
+          | None => ()
+          }
+          writeLine("  ...")
+        }
+      }
+    })
+  })
+  writeLine("")
+  writeLine(`# tests ${Int.toString(r.summary.total)}`)
+  writeLine(`# pass ${Int.toString(r.summary.passed)}`)
+  writeLine(`# fail ${Int.toString(r.summary.failed)}`)
+  writeLine(`# skip ${Int.toString(r.summary.skipped)}`)
+}

package/src/FormatterTap.res.mjs

@@ -0,0 +1,131 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Hint$ReventlessGwt from "./Hint.res.mjs";
+import * as MismatchRender$ReventlessGwt from "./MismatchRender.res.mjs";
+
+function write(s) {
+  process.stdout.write(s);
+}
+
+function writeLine(s) {
+  process.stdout.write(s + "\n");
+}
+
+function escapeYamlString(s) {
+  return s.replaceAll("\\", "\\\\").replaceAll("\"", "\\\"").replaceAll("\n", "\\n");
+}
+
+function yamlString(s) {
+  return "\"" + escapeYamlString(s) + "\"";
+}
+
+function yamlLine(indentOpt, key, value) {
+  let indent = indentOpt !== undefined ? indentOpt : 2;
+  return " ".repeat(indent) + key + ": " + value;
+}
+
+function renderMismatchYaml(m) {
+  let n = MismatchRender$ReventlessGwt.normalize(m);
+  let lines = [yamlLine(undefined, "kind", yamlString(n.kind))];
+  n.fields.forEach(f => {
+    if (typeof f !== "object") {
+      return;
+    }
+    switch (f.TAG) {
+      case "Expected" :
+        lines.push(yamlLine(undefined, "expected", yamlString(f._0)));
+        return;
+      case "Actual" :
+        lines.push(yamlLine(undefined, "actual", yamlString(f._0)));
+        return;
+      case "Key" :
+        lines.push(yamlLine(undefined, "key", yamlString(f._0)));
+        return;
+      case "Error" :
+        lines.push(yamlLine(undefined, "error", yamlString(f._0)));
+        return;
+      case "Stack" :
+        lines.push(yamlLine(undefined, "stack", yamlString(f._0)));
+        return;
+    }
+  });
+  return lines.join("\n");
+}
+
+function emit(r) {
+  process.stdout.write("TAP version 14\n");
+  let s = `1..` + r.summary.total.toString();
+  process.stdout.write(s + "\n");
+  let index = {
+    contents: 0
+  };
+  r.files.forEach(f => {
+    process.stdout.write("\n");
+    process.stdout.write(`# ` + f.path + "\n");
+    f.tests.forEach(t => {
+      index.contents = index.contents + 1 | 0;
+      let n = index.contents;
+      let path = t.describePath.join(" > ");
+      let title = path === "" ? t.name : path + ` > ` + t.name;
+      let ms = ` # time=` + t.durationMs.toString() + `ms`;
+      let match = t.status;
+      switch (match) {
+        case "Pass" :
+          let s = `ok ` + n.toString() + ` - ` + title + ms;
+          return process.stdout.write(s + "\n");
+        case "Fail" :
+          let s$1 = `not ok ` + n.toString() + ` - ` + title + ms;
+          process.stdout.write(s$1 + "\n");
+          process.stdout.write("  ---\n");
+          let loc = t.location;
+          if (loc !== undefined) {
+            let s$2 = yamlLine(undefined, "location", `{ file: "` + loc.file + `", line: ` + loc.line.toString() + ` }`);
+            process.stdout.write(s$2 + "\n");
+          }
+          let m = t.mismatch;
+          if (m !== undefined) {
+            let s$3 = renderMismatchYaml(m);
+            process.stdout.write(s$3 + "\n");
+          }
+          let m$1 = t.mismatch;
+          if (m$1 !== undefined) {
+            let hint = Hint$ReventlessGwt.forMismatch(t.slice, m$1);
+            let s$4 = yamlLine(undefined, "hint", "");
+            process.stdout.write(s$4 + "\n");
+            let s$5 = yamlLine(4, "locus", yamlString(hint.locus));
+            process.stdout.write(s$5 + "\n");
+            let s$6 = yamlLine(4, "branch", yamlString(Stdlib_Option.getOr(hint.branch, "(none)")));
+            process.stdout.write(s$6 + "\n");
+            let s$7 = yamlLine(4, "message", yamlString(hint.message));
+            process.stdout.write(s$7 + "\n");
+          }
+          return process.stdout.write("  ...\n");
+        case "Skip" :
+          let reason = Stdlib_Option.getOr(t.skipReason, "skipped");
+          let s$8 = `ok ` + n.toString() + ` - ` + title + ` # SKIP ` + reason;
+          return process.stdout.write(s$8 + "\n");
+      }
+    });
+  });
+  process.stdout.write("\n");
+  let s$1 = `# tests ` + r.summary.total.toString();
+  process.stdout.write(s$1 + "\n");
+  let s$2 = `# pass ` + r.summary.passed.toString();
+  process.stdout.write(s$2 + "\n");
+  let s$3 = `# fail ` + r.summary.failed.toString();
+  process.stdout.write(s$3 + "\n");
+  let s$4 = `# skip ` + r.summary.skipped.toString();
+  process.stdout.write(s$4 + "\n");
+}
+
+export {
+  write,
+  writeLine,
+  escapeYamlString,
+  yamlString,
+  yamlLine,
+  renderMismatchYaml,
+  emit,
+}
+/* No side effect */