[compiler] [build-fs] Test for #1694

Author: ejgallego

compiler/tests-full/dune

@@ -26,3 +26,24 @@
   (= %{ocaml_version} "5.2.0"))
  (action
   (diff stdlib.cma.expected.js stdlib.cma.output.js)))
+
+(rule
+ (targets fs.output.js)
+ ; (enabled_if
+ ;  (= %{ocaml_version} "5.2.0"))
+ (deps file1 file2)
+ (action
+  (run
+   %{bin:js_of_ocaml}
+   build-fs
+   -o
+   %{targets}
+   file1:/static/file1
+   file2:/static/dir/file2)))
+
+(rule
+ (alias runtest)
+ ; (enabled_if
+ ;  (= %{ocaml_version} "5.2.0"))
+ (action
+  (diff fs.expected.js fs.output.js)))

compiler/tests-full/file1

@@ -0,0 +1 @@
+This is file 1

compiler/tests-full/file2

@@ -0,0 +1 @@
+This is file 2

compiler/tests-full/fs.expected.js

@@ -0,0 +1,31 @@
+(function(a){
+   typeof globalThis !== "object"
+   &&
+    (this
+      ? b()
+      : (a.defineProperty
+         (a.prototype, "_T_", {configurable: true, get: b}),
+        _T_));
+   function b(){
+    var b = this || self;
+    b.globalThis = b;
+    delete a.prototype._T_;
+   }
+  }
+  (Object));
+(function(c){
+   "use strict";
+   function a(a, b){
+    if(c.jsoo_create_file)
+     c.jsoo_create_file(a, b);
+    else{
+     if(! c.caml_fs_tmp) c.caml_fs_tmp = [];
+     c.caml_fs_tmp.push({name: a, content: b});
+    }
+    return 0;
+   }
+   a("/static/file1", "This is file 1\n");
+   a("/static/dir/file2", "This is file 2\n");
+   return;
+  }
+  (globalThis));