js_exception_catch_test.js

// Generated by ReScript, PLEASE EDIT WITH CARE
'use strict';

let Mt = require("./mt.js");
let Js_exn = require("../../lib/js/js_exn.js");
let Caml_exceptions = require("../../lib/js/caml_exceptions.js");
let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js");

let suites = {
  contents: /* [] */0
};

let counter = {
  contents: 0
};

function add_test(loc, test) {
  counter.contents = counter.contents + 1 | 0;
  let id = loc + (" id " + String(counter.contents));
  suites.contents = {
    hd: [
      id,
      test
    ],
    tl: suites.contents
  };
}

function eq(loc, x, y) {
  add_test(loc, (function () {
    return {
      TAG: "Eq",
      _0: x,
      _1: y
    };
  }));
}

function false_(loc) {
  add_test(loc, (function () {
    return {
      TAG: "Ok",
      _0: false
    };
  }));
}

function true_(loc) {
  add_test(loc, (function () {
    return {
      TAG: "Ok",
      _0: true
    };
  }));
}

let exit = 0;

let e;

try {
  e = JSON.parse(" {\"x\"}");
  exit = 1;
} catch (raw_x) {
  let x = Caml_js_exceptions.internalToOCamlException(raw_x);
  if (x.RE_EXN_ID === Js_exn.$$Error) {
    add_test("File \"js_exception_catch_test.res\", line 18, characters 37-44", (function () {
      return {
        TAG: "Ok",
        _0: true
      };
    }));
  } else {
    throw new Error(x.RE_EXN_ID, {
      cause: x
    });
  }
}

if (exit === 1) {
  add_test("File \"js_exception_catch_test.res\", line 19, characters 14-21", (function () {
    return {
      TAG: "Ok",
      _0: false
    };
  }));
}

let A = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.A");

let B = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.B");

let C = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.C");

function test(f) {
  try {
    f();
    return "No_error";
  } catch (raw_e) {
    let e = Caml_js_exceptions.internalToOCamlException(raw_e);
    if (e.RE_EXN_ID === "Not_found") {
      return "Not_found";
    } else if (e.RE_EXN_ID === "Invalid_argument") {
      if (e._1 === "x") {
        return "Invalid_argument";
      } else {
        return "Invalid_any";
      }
    } else if (e.RE_EXN_ID === A) {
      if (e._1 !== 2) {
        return "A_any";
      } else {
        return "A2";
      }
    } else if (e.RE_EXN_ID === B) {
      return "B";
    } else if (e.RE_EXN_ID === C) {
      if (e._1 !== 1 || e._2 !== 2) {
        return "C_any";
      } else {
        return "C";
      }
    } else if (e.RE_EXN_ID === Js_exn.$$Error) {
      return "Js_error";
    } else {
      return "Any";
    }
  }
}

eq("File \"js_exception_catch_test.res\", line 44, characters 5-12", test(function () {
  
}), "No_error");

eq("File \"js_exception_catch_test.res\", line 45, characters 5-12", test(function () {
  throw new Error("Not_found", {
    cause: {
      RE_EXN_ID: "Not_found"
    }
  });
}), "Not_found");

eq("File \"js_exception_catch_test.res\", line 46, characters 5-12", test(function () {
  throw new Error("Invalid_argument", {
    cause: {
      RE_EXN_ID: "Invalid_argument",
      _1: "x"
    }
  });
}), "Invalid_argument");

eq("File \"js_exception_catch_test.res\", line 47, characters 5-12", test(function () {
  throw new Error("Invalid_argument", {
    cause: {
      RE_EXN_ID: "Invalid_argument",
      _1: ""
    }
  });
}), "Invalid_any");

eq("File \"js_exception_catch_test.res\", line 48, characters 5-12", test(function () {
  throw new Error(A, {
    cause: {
      RE_EXN_ID: A,
      _1: 2
    }
  });
}), "A2");

eq("File \"js_exception_catch_test.res\", line 49, characters 5-12", test(function () {
  throw new Error(A, {
    cause: {
      RE_EXN_ID: A,
      _1: 3
    }
  });
}), "A_any");

eq("File \"js_exception_catch_test.res\", line 50, characters 5-12", test(function () {
  throw new Error(B, {
    cause: {
      RE_EXN_ID: B
    }
  });
}), "B");

eq("File \"js_exception_catch_test.res\", line 51, characters 5-12", test(function () {
  throw new Error(C, {
    cause: {
      RE_EXN_ID: C,
      _1: 1,
      _2: 2
    }
  });
}), "C");

eq("File \"js_exception_catch_test.res\", line 52, characters 5-12", test(function () {
  throw new Error(C, {
    cause: {
      RE_EXN_ID: C,
      _1: 0,
      _2: 2
    }
  });
}), "C_any");

eq("File \"js_exception_catch_test.res\", line 53, characters 5-12", test(function () {
  Js_exn.raiseError("x");
}), "Js_error");

eq("File \"js_exception_catch_test.res\", line 54, characters 5-12", test(function () {
  throw new Error("Failure", {
    cause: {
      RE_EXN_ID: "Failure",
      _1: "x"
    }
  });
}), "Any");

Mt.from_pair_suites("Js_exception_catch_test", suites.contents);

exports.suites = suites;
exports.add_test = add_test;
exports.eq = eq;
exports.false_ = false_;
exports.true_ = true_;
exports.A = A;
exports.B = B;
exports.C = C;
exports.test = test;
/*  Not a pure module */