add docstrings compiler tests

biome.json

@@ -25,6 +25,7 @@
       "tests/tests/**",
       "tests/tools_tests/**",
       "tests/analysis_tests/**",
+      "tests/docstrings_examples/**",
       "analysis/examples/**",
       "analysis/reanalyze/examples/**",
       "lib/**",

lib/es6/Pervasives.js

@@ -1,6 +1,7 @@
 
 
 import * as $$Error from "./Error.js";
+import * as Primitive_object from "./Primitive_object.js";
 import * as Primitive_exceptions from "./Primitive_exceptions.js";
 
 function failwith(s) {
@@ -116,6 +117,21 @@ function $at(l1, l2) {
   }
 }
 
+function assert_eq(a, b) {
+  if (!Primitive_object.notequal(a, b)) {
+    return;
+  }
+  throw {
+    RE_EXN_ID: "Assert_failure",
+    _1: [
+      "Pervasives.res",
+      596,
+      4
+    ],
+    Error: new Error()
+  };
+}
+
 let max_int = 2147483647;
 
 let infinity = Infinity;
@@ -151,5 +167,6 @@ export {
   int_of_string_opt,
   $at,
   panic,
+  assert_eq,
 }
 /* No side effect */

lib/js/Pervasives.js

@@ -1,6 +1,7 @@
 'use strict';
 
 let $$Error = require("./Error.js");
+let Primitive_object = require("./Primitive_object.js");
 let Primitive_exceptions = require("./Primitive_exceptions.js");
 
 function failwith(s) {
@@ -116,6 +117,21 @@ function $at(l1, l2) {
   }
 }
 
+function assert_eq(a, b) {
+  if (!Primitive_object.notequal(a, b)) {
+    return;
+  }
+  throw {
+    RE_EXN_ID: "Assert_failure",
+    _1: [
+      "Pervasives.res",
+      596,
+      4
+    ],
+    Error: new Error()
+  };
+}
+
 let max_int = 2147483647;
 
 let infinity = Infinity;
@@ -150,4 +166,5 @@ exports.bool_of_string_opt = bool_of_string_opt;
 exports.int_of_string_opt = int_of_string_opt;
 exports.$at = $at;
 exports.panic = panic;
+exports.assert_eq = assert_eq;
 /* No side effect */