Sprint cleaning: convert tests to .res

Author: cristianoc

jscomp/test/406_primitive_test.js

@@ -16,14 +16,14 @@ function eq(loc, x, y) {
   Mt.eq_suites(test_id, suites, loc, x, y);
 }
 
-eq("File \"406_primitive_test.ml\", line 18, characters 6-13", 32, 32);
+eq("File \"406_primitive_test.res\", line 13, characters 3-10", 32, 32);
 
 var backend_type = {
   TAG: "Other",
   _0: "BS"
 };
 
-eq("File \"406_primitive_test.ml\", line 29, characters 6-13", backend_type, {
+eq("File \"406_primitive_test.res\", line 23, characters 3-10", backend_type, {
       TAG: "Other",
       _0: "BS"
     });

jscomp/test/406_primitive_test.ml

@@ -0,0 +1,36 @@
+let suites: ref<Mt.pair_suites> = ref(list{})
+
+let test_id = ref(0)
+
+let eq = (loc, x, y): unit => Mt.eq_suites(~test_id, loc, ~suites, x, y)
+
+external int_size: unit => int = "%int_size"
+
+external max_wosize: unit => int = "%max_wosize"
+
+let v = int_size() /* 32 on JS */
+
+eq(__LOC__, v, 32)
+type backend_type =
+  | Native
+  | Bytecode
+  | Other(string)
+
+external get_backend_type: unit => backend_type = "%backend_type"
+let backend_type = get_backend_type()
+
+let max_array_length = max_wosize()
+eq(__LOC__, backend_type, Other("BS"))
+
+let f = () => {
+  exception A(int)
+  try for i in 0 to 200 {
+    if i == 10 {
+      raise(A(0))
+    }
+  } catch {
+  | A(_) => ()
+  }
+}
+
+Mt.from_pair_suites(__MODULE__, suites.contents)

jscomp/test/406_primitive_test.res

@@ -0,0 +1,33 @@
+include (
+  {
+    module M = (
+      S: {
+        let add: (int, int) => int
+      },
+    ) => {
+      let u = S.add(1, 2)
+    }
+    module H = M({
+      let add = (x, y) => x + y
+    })
+
+    include List
+    module N = List
+    let v = N.length
+
+    module Make = (U: Set.OrderedType) => {
+      include U
+      let v = compare
+    }
+
+    module X = Make(String)
+    module U = Make(Test_order)
+
+    include N
+    /* let v = "xhg" */
+    /* let () = v.[0] <- 'a' */
+  }: {}
+)
+
+/* [%%bs.cast.x: 'a -> 'b  ] */
+/* external f : int -> (int -> int) = "%identity" */

jscomp/test/a.ml

@@ -34,7 +34,7 @@ function test(param, param$1) {
 }
 
 if (process.platform !== "win32") {
-  eq("File \"a_filename_test.ml\", line 15, characters 5-12", [
+  eq("File \"a_filename_test.res\", line 16, characters 4-11", [
         Ext_filename_test.combine("/tmp", "subdir/file.txt"),
         Ext_filename_test.combine("/tmp", "/a/tmp.txt"),
         Ext_filename_test.combine("/a/tmp.txt", "subdir/file.txt")
@@ -43,59 +43,59 @@ if (process.platform !== "win32") {
         "/a/tmp.txt",
         "/a/tmp.txt/subdir/file.txt"
       ]);
-  eq("File \"a_filename_test.ml\", line 27, characters 5-12", Ext_filename_test.node_relative_path(true, {
+  eq("File \"a_filename_test.res\", line 28, characters 5-12", Ext_filename_test.node_relative_path(true, {
             NAME: "File",
             VAL: "./a/b.c"
           }, {
             NAME: "File",
             VAL: "./a/u/g.c"
           }), "./u/g.c");
-  eq("File \"a_filename_test.ml\", line 32, characters 5-12", Ext_filename_test.node_relative_path(true, {
+  eq("File \"a_filename_test.res\", line 31, characters 4-11", Ext_filename_test.node_relative_path(true, {
             NAME: "File",
             VAL: "./a/b.c"
           }, {
             NAME: "File",
             VAL: "xxxghsoghos/ghsoghso/node_modules/buckle-stdlib/list.js"
           }), "buckle-stdlib/list.js");
-  eq("File \"a_filename_test.ml\", line 38, characters 5-12", Ext_filename_test.node_relative_path(true, {
+  eq("File \"a_filename_test.res\", line 37, characters 4-11", Ext_filename_test.node_relative_path(true, {
             NAME: "File",
             VAL: "./a/b.c"
           }, {
             NAME: "File",
             VAL: "xxxghsoghos/ghsoghso/node_modules//buckle-stdlib/list.js"
           }), "buckle-stdlib/list.js");
-  eq("File \"a_filename_test.ml\", line 44, characters 5-12", Ext_filename_test.node_relative_path(true, {
+  eq("File \"a_filename_test.res\", line 43, characters 4-11", Ext_filename_test.node_relative_path(true, {
             NAME: "File",
             VAL: "./a/b.c"
           }, {
             NAME: "File",
             VAL: "xxxghsoghos/ghsoghso/node_modules/./buckle-stdlib/list.js"
           }), "buckle-stdlib/list.js");
-  eq("File \"a_filename_test.ml\", line 50, characters 5-12", Ext_filename_test.node_relative_path(true, {
+  eq("File \"a_filename_test.res\", line 48, characters 5-12", Ext_filename_test.node_relative_path(true, {
             NAME: "File",
             VAL: "./a/c.js"
           }, {
             NAME: "File",
             VAL: "./a/b"
           }), "./b");
-  eq("File \"a_filename_test.ml\", line 55, characters 5-12", Ext_filename_test.node_relative_path(true, {
+  eq("File \"a_filename_test.res\", line 49, characters 5-12", Ext_filename_test.node_relative_path(true, {
             NAME: "File",
             VAL: "./a/c"
           }, {
             NAME: "File",
             VAL: "./a/b.js"
           }), "./b.js");
-  eq("File \"a_filename_test.ml\", line 60, characters 5-12", Ext_filename_test.node_relative_path(true, {
+  eq("File \"a_filename_test.res\", line 50, characters 5-12", Ext_filename_test.node_relative_path(true, {
             NAME: "Dir",
             VAL: "./a/"
           }, {
             NAME: "File",
             VAL: "./a/b.js"
           }), "./b.js");
-  eq("File \"a_filename_test.ml\", line 65, characters 5-12", Ext_filename_test.get_extension("a.txt"), ".txt");
-  eq("File \"a_filename_test.ml\", line 69, characters 5-12", Ext_filename_test.get_extension("a"), "");
-  eq("File \"a_filename_test.ml\", line 73, characters 5-12", Ext_filename_test.get_extension(".txt"), ".txt");
-  eq("File \"a_filename_test.ml\", line 78, characters 5-12", $$Array.map(Ext_filename_test.normalize_absolute_path, [
+  eq("File \"a_filename_test.res\", line 51, characters 5-12", Ext_filename_test.get_extension("a.txt"), ".txt");
+  eq("File \"a_filename_test.res\", line 52, characters 5-12", Ext_filename_test.get_extension("a"), "");
+  eq("File \"a_filename_test.res\", line 53, characters 5-12", Ext_filename_test.get_extension(".txt"), ".txt");
+  eq("File \"a_filename_test.res\", line 56, characters 4-11", $$Array.map(Ext_filename_test.normalize_absolute_path, [
             "/gsho/./..",
             "/a/b/../c../d/e/f",
             "/a/b/../c/../d/e/f",