Remove tests with @deriving(jsConverter)

Author: cristianoc

jscomp/test/ast_abstract_test.js

@@ -76,144 +76,12 @@ idx("b");
 
 idx("c");
 
-var jsMapperConstantArray = [
-  0,
-  3,
-  4
-];
-
-function aToJs(param) {
-  return jsMapperConstantArray[param];
-}
-
-function aFromJs(param) {
-  return Js_mapperRt.fromIntAssert(3, jsMapperConstantArray, param);
-}
-
-function id(x) {
-  eq("File \"ast_abstract_test.ml\", line 49, characters 8-15", aFromJs(aToJs(x)), x);
-}
-
-var a0 = aToJs("A");
-
-var a1 = aToJs("B");
-
-id("A");
-
-id("B");
-
-id("C");
-
-function bToJs(param) {
-  return param + 0 | 0;
-}
-
-function bFromJs(param) {
-  if (!(param <= 3 && 0 <= param)) {
-    throw {
-          RE_EXN_ID: "Assert_failure",
-          _1: [
-            "_none_",
-            1,
-            -1
-          ],
-          Error: new Error()
-        };
-  }
-  return param - 0 | 0;
-}
-
-function idb(v) {
-  eq("File \"ast_abstract_test.ml\", line 71, characters 5-12", bFromJs(v + 0 | 0), v);
-}
-
-idb("D0");
-
-idb("D1");
-
-idb("D2");
-
-idb("D3");
-
-function cToJs(param) {
-  return param + 3 | 0;
-}
-
-function cFromJs(param) {
-  if (!(param <= 6 && 3 <= param)) {
-    throw {
-          RE_EXN_ID: "Assert_failure",
-          _1: [
-            "_none_",
-            1,
-            -1
-          ],
-          Error: new Error()
-        };
-  }
-  return param - 3 | 0;
-}
-
-function idc(v) {
-  eq("File \"ast_abstract_test.ml\", line 83, characters 15-22", cFromJs(v + 3 | 0), v);
-}
-
-idc("D0");
-
-idc("D1");
-
-idc("D2");
-
-idc("D3");
-
-function hToJs(param) {
-  return param + 0 | 0;
-}
-
-function hFromJs(param) {
-  if (!(param <= 1 && 0 <= param)) {
-    throw {
-          RE_EXN_ID: "Assert_failure",
-          _1: [
-            "_none_",
-            1,
-            -1
-          ],
-          Error: new Error()
-        };
-  }
-  return param - 0 | 0;
-}
-
-function zToJs(param) {
-  return param + 0 | 0;
-}
-
-function zFromJs(param) {
-  if (param <= 2 && 0 <= param) {
-    return param - 0 | 0;
-  }
-  
-}
-
 Mt.from_pair_suites("Ast_abstract_test", suites.contents);
 
 var x0 = "a";
 
 var x1 = "b";
 
-var b0 = 0;
-
-var b1 = 1;
-
-var c0 = 3;
-
-var jsMapperEraseType = "JsMapperEraseType";
-
-var b = "B";
-
-var zXx = "ZXx";
-
 exports.suites = suites;
 exports.test_id = test_id;
 exports.eq = eq;
@@ -226,25 +94,4 @@ exports.xFromJs = xFromJs;
 exports.idx = idx;
 exports.x0 = x0;
 exports.x1 = x1;
-exports.aToJs = aToJs;
-exports.aFromJs = aFromJs;
-exports.id = id;
-exports.a0 = a0;
-exports.a1 = a1;
-exports.bToJs = bToJs;
-exports.bFromJs = bFromJs;
-exports.b0 = b0;
-exports.b1 = b1;
-exports.idb = idb;
-exports.cToJs = cToJs;
-exports.cFromJs = cFromJs;
-exports.c0 = c0;
-exports.idc = idc;
-exports.jsMapperEraseType = jsMapperEraseType;
-exports.b = b;
-exports.hToJs = hToJs;
-exports.hFromJs = hFromJs;
-exports.zXx = zXx;
-exports.zToJs = zToJs;
-exports.zFromJs = zFromJs;
 /*  Not a pure module */

jscomp/test/ast_abstract_test.ml

@@ -39,7 +39,7 @@ let () =
   idx `c
 
 
-type a =
+(* type a =
   | A
   | B [@as 3]
   | C
@@ -48,15 +48,15 @@ type a =
 let id  x = 
     eq  __LOC__ (aFromJs (aToJs x ))  x 
 let a0 = aToJs A 
-let a1 = aToJs B 
+let a1 = aToJs B  *)
 
-let () = 
+(* let () = 
   id  A ;
   id  B ;
-  id  C 
+  id  C  *)
 
 
-type b = 
+(* type b = 
   | D0
   | D1
   | D2 
@@ -70,8 +70,9 @@ let b1 = bToJs D1
 let idb v = 
   eq __LOC__ (bFromJs (bToJs v )) v 
 
-let () = idb D0; idb D1; idb D2 ; idb D3   
-type c = 
+let () = idb D0; idb D1; idb D2 ; idb D3    *)
+
+(* type c = 
   | D0 [@bs.as 3]
   | D1
   | D2 
@@ -82,12 +83,13 @@ let c0 = cToJs D0
 
 let idc v = eq __LOC__ (cFromJs (cToJs v)) v
 
-let () = idc D0; idc D1 ; idc D2; idc D3 
-type h = 
-  | JsMapperEraseType
-  | B [@@bs.deriving {accessors; jsConverter = newType} ]
+let () = idc D0; idc D1 ; idc D2; idc D3  *)
 
+(* type h = 
+  | JsMapperEraseType
+  | B [@@bs.deriving {accessors; jsConverter = newType} ] *)
 
+(* 
 type z =    
   | ZFromJs 
   | ZToJs
@@ -96,6 +98,6 @@ type z =
   accessors;
   jsConverter
 }
-]
+] *)
 
 ;; Mt.from_pair_suites __MODULE__ !suites