@reventlessdev/reventless-gwt 1.0.0-alpha.114 → 1.0.0-alpha.116

package/src/FormatterJunit.res

@@ -1,93 +0,0 @@
-// 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

@@ -1,90 +0,0 @@
-// 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

@@ -1,100 +0,0 @@
-// 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

@@ -1,131 +0,0 @@
-// 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 */