Add a test case

Author: bobzhang

jscomp/test/bigarray_test.js

@@ -1,5 +1,6 @@
 'use strict';
 
+var Bigarray = require("../../lib/js/bigarray.js");
 var Caml_int32 = require("../../lib/js/caml_int32.js");
 var Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js");
 
@@ -42,4 +43,4 @@ exports.sum = sum;
 exports.init = init;
 exports.init2 = init2;
 exports.init3 = init3;
-/* No side effect */
+/* Bigarray Not a pure module */

jscomp/test/build.ninja

@@ -1,6 +1,6 @@
 
 bsc = ../lib/bsc.exe
-bsc_flags = -absname -no-alias-deps -bs-no-version-header -bs-diagnose -bs-cross-module-opt -bs-package-name bs-platform -bs-package-output commonjs:jscomp/test  -w -40-52 -warn-error A+8-3-30-26+101-102-103-104-52 -bin-annot -I runtime -I $stdlib -I others
+bsc_flags = -absname -bs-no-version-header -bs-diagnose -bs-cross-module-opt -bs-package-name bs-platform -bs-package-output commonjs:jscomp/test  -w -40-52 -warn-error A+8-3-30-26+101-102-103-104-52 -bin-annot -I runtime -I $stdlib -I others
 
 rule cc
     command = $bsc -bs-cmi -bs-cmj $bsc_flags   -I test  $in
@@ -297,6 +297,10 @@ build test/gpr_3609_test.cmi test/gpr_3609_test.cmj : cc test/gpr_3609_test.ml |
 build test/gpr_3697_test.cmi test/gpr_3697_test.cmj : cc test/gpr_3697_test.ml | $stdlib
 build test/gpr_373_test.cmi test/gpr_373_test.cmj : cc test/gpr_373_test.ml | $stdlib
 build test/gpr_3770_test.cmi test/gpr_3770_test.cmj : cc test/gpr_3770_test.ml | $stdlib
+build test/gpr_3852_alias.cmi test/gpr_3852_alias.cmj : cc test/gpr_3852_alias.ml | test/gpr_3852_effect.cmj $stdlib
+build test/gpr_3852_alias_reify.cmj : cc_cmi test/gpr_3852_alias_reify.ml | test/gpr_3852_alias_reify.cmi test/gpr_3852_effect.cmj $stdlib
+build test/gpr_3852_alias_reify.cmi : cc test/gpr_3852_alias_reify.mli | $stdlib
+build test/gpr_3852_effect.cmi test/gpr_3852_effect.cmj : cc test/gpr_3852_effect.ml | $stdlib
 build test/gpr_3865.cmi test/gpr_3865.cmj : cc test/gpr_3865.re | test/gpr_3865_bar.cmj test/gpr_3865_foo.cmj $stdlib
 build test/gpr_3865_bar.cmi test/gpr_3865_bar.cmj : cc test/gpr_3865_bar.re | $stdlib
 build test/gpr_3865_foo.cmi test/gpr_3865_foo.cmj : cc test/gpr_3865_foo.re | $stdlib

jscomp/test/gpr_3852_alias.js

@@ -0,0 +1,8 @@
+'use strict';
+
+var Gpr_3852_effect = require("./gpr_3852_effect.js");
+
+var A = 0;
+
+exports.A = A;
+/* Gpr_3852_effect Not a pure module */

jscomp/test/gpr_3852_alias.ml

@@ -0,0 +1,5 @@
+
+
+module A = Gpr_3852_effect
+
+(* It should generate a dummy JS file *)

jscomp/test/gpr_3852_alias_reify.js

@@ -0,0 +1,8 @@
+'use strict';
+
+var Gpr_3852_effect = require("./gpr_3852_effect.js");
+
+var A = Gpr_3852_effect;
+
+exports.A = A;
+/* Gpr_3852_effect Not a pure module */

jscomp/test/gpr_3852_alias_reify.ml

@@ -0,0 +1 @@
+module A = Gpr_3852_effect

jscomp/test/gpr_3852_alias_reify.mli

@@ -0,0 +1,3 @@
+module A : sig 
+  val v : int 
+end 

jscomp/test/gpr_3852_effect.js

@@ -0,0 +1,9 @@
+'use strict';
+
+
+console.log("hello");
+
+var v = 0;
+
+exports.v = v;
+/*  Not a pure module */

jscomp/test/gpr_3852_effect.ml

@@ -0,0 +1,3 @@
+
+let v = 0
+let () = Js.log "hello"

scripts/ninja.js

@@ -1229,7 +1229,7 @@ async function testNinja() {
   var ninjaCwd = `test`;
   var templateTestRules = `
 ${BSC_COMPILER}
-bsc_flags = -absname -no-alias-deps -bs-no-version-header -bs-diagnose -bs-cross-module-opt -bs-package-name bs-platform -bs-package-output commonjs:jscomp/test  -w -40-52 -warn-error A+8-3-30-26+101-102-103-104-52 -bin-annot -I runtime -I $stdlib -I others
+bsc_flags = -absname -bs-no-version-header -bs-diagnose -bs-cross-module-opt -bs-package-name bs-platform -bs-package-output commonjs:jscomp/test  -w -40-52 -warn-error A+8-3-30-26+101-102-103-104-52 -bin-annot -I runtime -I $stdlib -I others
 ${ruleCC(ninjaCwd)}