add ignore-runtime-tests

Author: aspeddro

package.json

@@ -6,7 +6,7 @@
     "build": "rescript",
     "watch": "rescript build -w",
     "test": "node test/TestSuite.mjs && node test/TempTests.mjs",
-    "test-doc-examples": "node scripts/DocTests.mjs"
+    "test-doc-examples": "node scripts/DocTests.mjs --ignore-runtime-tests 'RescriptCore.Array.toReversed, RescriptCore.Promise.withResolvers'"
   },
   "keywords": [
     "rescript"

scripts/DocTests.mjs

@@ -5,6 +5,7 @@ import * as Os from "os";
 import * as Url from "url";
 import * as Path from "path";
 import * as Belt_List from "rescript/lib/es6/belt_List.js";
+import * as Nodeutil from "node:util";
 import * as Belt_Array from "rescript/lib/es6/belt_Array.js";
 import * as Core__List from "../src/Core__List.mjs";
 import * as Caml_option from "rescript/lib/es6/caml_option.js";
@@ -28,14 +29,17 @@ var ChildProcess = {};
 
 var OS = {};
 
+var Util = {};
+
 var $$Node = {
   Path: Path$1,
   $$URL: $$URL,
   Process: Process,
   Fs: Fs$1,
   $$Buffer: $$Buffer,
   ChildProcess: ChildProcess,
-  OS: OS
+  OS: OS,
+  Util: Util
 };
 
 var dirname = Path.dirname(Url.fileURLToPath(import.meta.url));
@@ -73,7 +77,7 @@ function prepareCompiler() {
           RE_EXN_ID: "Assert_failure",
           _1: [
             "DocTests.res",
-            129,
+            145,
             9
           ],
           Error: new Error()
@@ -86,7 +90,7 @@ function prepareCompiler() {
             RE_EXN_ID: "Assert_failure",
             _1: [
               "DocTests.res",
-              127,
+              143,
               11
             ],
             Error: new Error()
@@ -99,7 +103,7 @@ function prepareCompiler() {
             RE_EXN_ID: "Assert_failure",
             _1: [
               "DocTests.res",
-              127,
+              143,
               11
             ],
             Error: new Error()
@@ -110,7 +114,7 @@ function prepareCompiler() {
           RE_EXN_ID: "Assert_failure",
           _1: [
             "DocTests.res",
-            129,
+            145,
             9
           ],
           Error: new Error()
@@ -130,6 +134,24 @@ function prepareCompiler() {
       });
 }
 
+var options = Object.fromEntries([[
+        "ignore-runtime-tests",
+        {
+          type: "string"
+        }
+      ]]);
+
+var match = Nodeutil.parseArgs({
+      args: process.argv.slice(2),
+      options: options
+    });
+
+var values = match.values;
+
+var v = values["ignore-runtime-tests"];
+
+var ignoreRuntimeTests = v !== undefined ? v.split(",") : [];
+
 prepareCompiler();
 
 async function run(command, args, options) {
@@ -437,7 +459,9 @@ async function compilerResults() {
                 ]
               ];
       });
-  var exampleErrors = await Promise.all(examples.map(async function (param) {
+  var exampleErrors = await Promise.all(examples.filter(function (param) {
+              return !ignoreRuntimeTests.includes(param[0].id);
+            }).map(async function (param) {
             var match = param[1];
             var nodeTests = await Promise.all(match[0].map(async function (param) {
                       var js = param[1];
@@ -513,6 +537,9 @@ export {
   makePackageJson ,
   rescriptJson ,
   prepareCompiler ,
+  options ,
+  values ,
+  ignoreRuntimeTests ,
   SpawnAsync ,
   createFileInTempDir ,
   compileTest ,

scripts/DocTests.res

@@ -15,6 +15,9 @@ module Node = {
     @scope("process") external exit: int => unit = "exit"
     @scope(("process", "stderr"))
     external stderrWrite: string => unit = "write"
+
+    @val @scope("process")
+    external argv: array<string> = "argv"
   }
 
   module Fs = {
@@ -56,6 +59,19 @@ module Node = {
     @module("os")
     external tmpdir: unit => string = "tmpdir"
   }
+
+  module Util = {
+    type arg = {@as("type") type_: string}
+    type config = {
+      args: array<string>,
+      options: Dict.t<arg>,
+    }
+    type parsed = {
+      values: Dict.t<string>,
+      positionals: array<string>,
+    }
+    @module("node:util") external parseArgs: config => parsed = "parseArgs"
+  }
 }
 
 open Node
@@ -143,6 +159,18 @@ let prepareCompiler = () => {
   ChildProcess.execFileSync(rescriptBin, ["build"], {cwd: compilerDir})->ignore
 }
 
+let options = Dict.fromArray([("ignore-runtime-tests", {Util.type_: "string"})])
+
+let {Util.values: values} = Util.parseArgs({
+  args: Process.argv->Array.sliceToEnd(~start=2),
+  options,
+})
+
+let ignoreRuntimeTests = switch values->Dict.get("ignore-runtime-tests") {
+| Some(v) => v->String.split(",")
+| None => []
+}
+
 prepareCompiler()
 
 type example = {
@@ -373,6 +401,7 @@ let compilerResults = async () => {
 
   let exampleErrors =
     await examples
+    ->Array.filter((({id}, _)) => !Array.includes(ignoreRuntimeTests, id))
     ->Array.map(async ((example, (compiled, errors))) => {
       let nodeTests =
         await compiled