fix tests

.github/workflows/doc-examples.yml

@@ -17,4 +17,5 @@ jobs:
         with:
           node-version: 18
       - run: npm install
+      - run: npm build
       - run: npm run test-doc-examples

bindings/Node.res

@@ -17,16 +17,10 @@ module Fs = {
   @module("fs") external readdirSync: string => array<string> = "readdirSync"
   @module("fs") external writeFileSync: (string, string) => unit = "writeFileSync"
   @module("fs") external mkdirSync: string => option<string> = "mkdirSync"
+  @module("fs") external existsSync: string => bool = "existsSync"
   @module("node:fs/promises") external writeFile: (string, string) => promise<unit> = "writeFile"
   @module("node:fs/promises") external unlink: string => promise<unit> = "unlink"
-  @module("fs") external existsSync: string => bool = "existsSync"
-
-  type statSync
-  @module("fs") external statSync: string => statSync = "statSync"
-
   @module("node:fs/promises") external lstat: string => promise<'a> = "lstat"
-
-  @send external isDirectory: statSync => bool = "isDirectory"
 }
 
 module Buffer = {

package.json

@@ -6,7 +6,7 @@
     "build": "rescript",
     "watch": "rescript build -w",
     "test": "node test/TestSuite.mjs && node test/TempTests.mjs",
-    "test-doc-examples": "rescript && node scripts/ExamplesTest.mjs"
+    "test-doc-examples": "node scripts/ExamplesTest.mjs"
   },
   "keywords": [
     "rescript"

scripts/ExamplesTest.mjs

@@ -137,32 +137,24 @@ async function testCodeBlock(id, _kind, code) {
                   resolve(stderr);
                 }));
         }));
-  var fileExists = async function (file) {
+  var removeFile = async function (file) {
     return await Core__Promise.$$catch(Promises.lstat(file).then(function (param) {
-                    return true;
+                    Promises.unlink(file);
                   }), (function (param) {
-                  return Promise.resolve(false);
+                  return Promise.resolve();
                 }));
   };
-  await Promise.all([
-          ".res",
-          ".cmj",
-          ".cmt",
-          ".cmi"
-        ].map(async function (extension) {
-            var path = tempFileName + extension;
-            var exists = await fileExists(path);
-            if (!exists) {
-              return ;
-            }
-            try {
-              Promises.unlink(path);
-              return ;
-            }
-            catch (exn){
-              return ;
-            }
-          }));
+  var buildFilesExtensions = [
+    ".res",
+    ".cmj",
+    ".cmt",
+    ".cmi"
+  ];
+  await Promise.all(buildFilesExtensions.map(async function (extension) {
+              return await removeFile(tempFileName + extension);
+            })).then(function (param) {
+
+      });
   if (promise.length <= 0) {
     return {
             TAG: "Ok",
@@ -307,10 +299,12 @@ function getCodeBlocks(example) {
 }
 
 var tests = getDocstrings(extractDoc("src/RescriptCore.res")).map(function (doc) {
-      return [
-              doc,
-              getCodeBlocks(doc)
-            ];
+        return [
+                doc,
+                getCodeBlocks(doc)
+              ];
+      }).filter(function (param) {
+      return param[1].length > 0;
     });
 
 var moduleTestsResults = await Promise.all(tests.map(async function (param) {

scripts/ExamplesTest.res

@@ -123,21 +123,20 @@ let testCodeBlock = async (id, _kind, code) => {
     })
   })
 
-  let fileExists = async file =>
-    await Fs.lstat(file)->Promise.thenResolve(_ => true)->Promise.catch(_ => Promise.resolve(false))
-
-  let _ =
-    await [".res", ".cmj", ".cmt", ".cmi"]
-    ->Array.map(async extension => {
-      let path = tempFileName ++ extension
-      let exists = await fileExists(path)
-      if exists {
-        try {Fs.unlink(path)->ignore} catch {
-        | _ => ()
-        }
-      }
+  let removeFile = async file =>
+    await Fs.lstat(file)
+    ->Promise.thenResolve(_ => {
+      Fs.unlink(file)->ignore
     })
-    ->Promise.all
+    ->Promise.catch(_ => Promise.resolve())
+
+  let buildFilesExtensions = [".res", ".cmj", ".cmt", ".cmi"]
+
+  await Array.map(buildFilesExtensions, async extension => {
+    await removeFile(tempFileName ++ extension)
+  })
+  ->Promise.all
+  ->Promise.thenResolve(_ => ())
 
   switch Array.length(promise) > 0 {
   | true =>
@@ -237,6 +236,7 @@ let tests =
   extractDoc("src/RescriptCore.res")
   ->getDocstrings
   ->Array.map(doc => (doc, doc->getCodeBlocks))
+  ->Array.filter(((_, b)) => Array.length(b) > 0)
 
 let moduleTestsResults =
   await tests