Cleanup jscomp/test (#6910)

removed empty test files, outdated, dangling files.

Author: cometkim

jscomp/test/a.res

@@ -28,6 +28,3 @@ include (
     /* let () = v.[0] <- 'a' */
   }: {}
 )
-
-/* [%%bs.cast.x: 'a -> 'b  ] */
-/* external f : int -> (int -> int) = "%identity" */

jscomp/test/arith_parser.mly

@@ -33,64 +33,4 @@ let () = {
   idx(#c)
 }
 
-/* type a =
-  | A
-  | B [@as 3]
-  | C
-[@@deriving {jsConverter = newType}]      
-
-let id  x = 
-    eq  __LOC__ (aFromJs (aToJs x ))  x 
-let a0 = aToJs A 
-let a1 = aToJs B */
-
-/* let () = 
-  id  A ;
-  id  B ;
-  id  C */
-
-/* type b = 
-  | D0
-  | D1
-  | D2 
-  | D3 
-[@@deriving {jsConverter = newType }]       
-
-
-let b0 = bToJs D0 
-let b1 = bToJs D1 
-
-let idb v = 
-  eq __LOC__ (bFromJs (bToJs v )) v 
-
-let () = idb D0; idb D1; idb D2 ; idb D3 */
-
-/* type c = 
-  | D0 [@as 3]
-  | D1
-  | D2 
-  | D3 
-[@@deriving {jsConverter = {newType }}]       
-
-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 [@@deriving {accessors; jsConverter = newType} ] */
-
-/*
-type z =    
-  | ZFromJs 
-  | ZToJs
-  | ZXx (* not overridden *)
-[@@deriving {
-  accessors;
-  jsConverter
-}
-] */
-
 Mt.from_pair_suites(__MODULE__, suites.contents)

jscomp/test/ast_abstract_test.res

@@ -1,18 +1,8 @@
-/* https://nodejs.org/api/globals.html */
+/* Reserved in CommonJS */
 
 let (
   __dirname,
   __filename,
-  clearImmediate,
-  clearInterval,
-  clearTimeout,
-  console,
   exports,
-  global,
-  _module,
-  process,
   require,
-  setImmediate,
-  setInterval,
-  setTimeout,
-) = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14)
+) = (1, 2, 3, 4)

jscomp/test/async_ideas.js

@@ -115,87 +115,3 @@ let f = children =>
       }
     }
   }
-
-/*
-                                    match children with 
-                                    | [] ->   [|a0;a1;a2;a3;a4;a5;a6;a7;a8;a9;a10;a11;a12;a13;a14;a15;a16|]
-                                    | a17::children -> 
-                                    match children with 
-                                    | [] ->   [|a0;a1;a2;a3;a4;a5;a6;a7;a8;a9;a10;a11;a12;a13;a14;a15;a16;a17|]
-                                    | a18::children -> 
-                                        match children with 
-                                        | [] ->   [|a0;a1;a2;a3;a4;a5;a6;a7;a8;a9;a10;a11;a12;a13;a14;a15;a16;a17;a18|]
-                                        | a19::children -> 
-                                        match children with 
-                                        | [] ->   [|a0;a1;a2;a3;a4;a5;a6;a7;a8;a9;a10;a11;a12;a13;a14;a15;a16;a17;a18;a19|]
-                                        | _ -> assert false 
-
-*/
-
-/* This function seems to trigger quadratice behavior with the length of [children] 
-                                          memory consumption is okay
-                                          17 -> 4s
-                                          18 -> 9s
-                                          19 -> 19s
-                                          20 -> 40s
-                                      */
-/*
-let f children = 
-  match children with
-  | [] ->   [||]
-  | a::[] ->   [|a|]
-  | a::b::[] ->   [|a;b|]
-  | a::b::c::[] ->   [|a;b;c|]
-  | a::b::c::d::[] ->
-        [|a;b;c;d|]
-  | a::b::c::d::e::[] ->
-        [|a;b;c;d;e|]
-  | a::b::c::d::e::f::[] ->
-        [|a;b;c;d;e;f|]
-  | a::b::c::d::e::f::g::[] ->
-        [|a;b;c;d;e;f;g|]
-  | a::b::c::d::e::f::g::h::[] ->
-        [|a;b;c;d;e;f;g;h|]
-  | a::b::c::d::e::f::g::h::i::[] ->
-        [|a;b;c;d;e;f;g;h;i|]
-  | a::b::c::d::e::f::g::h::i::j::[] ->
-        [|a;b;c;d;e;f;g;h;i;j|]
-  | a::b::c::d::e::f::g::h::i::j::k::[] ->
-        [|a;b;c;d;e;f;g;h;i;j;k|]
-  | a::b::c::d::e::f::g::h::i::j::k::l::[] ->
-       
-        [|a;b;c;d;e;f;g;h;i;j;k;l|]
-  | a::b::c::d::e::f::g::h::i::j::k::l::m::[] ->
-       
-        [|a;b;c;d;e;f;g;h;i;j;k;l;m|]
-  | a::b::c::d::e::f::g::h::i::j::k::l::m::n::[] ->
-       
-        [|a;b;c;d;e;f;g;h;i;j;k;l;m;n|]
-  | a::b::c::d::e::f::g::h::i::j::k::l::m::n::o::[] ->
-       
-        [|a;b;c;d;e;f;g;h;i;j;k;l;m;n;o|]
-  | a::b::c::d::e::f::g::h::i::j::k::l::m::n::o::p::[] ->
-       
-        [|a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p|]
-  | a::b::c::d::e::f::g::h::i::j::k::l::m::n::o::p::q::[] ->
-       
-        [|a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q|] 
-  | a0::a1::a2::a3::a4::a5::a6::a7::a8::a9::a10::a11::a12::a13::a14::a15::a16::a17::[] ->
-       
-        [|a0;a1;a2;a3;a4;a5;a6;a7;a8;a9;a10;a11;a12;a13;a14;a15;a16;a17|] 
-  | a0::a1::a2::a3::a4::a5::a6::a7::a8::a9::a10::a11::a12::a13::a14::a15::a16::a17::a18::[] ->
-       
-        [|a0;a1;a2;a3;a4;a5;a6;a7;a8;a9;a10;a11;a12;a13;a14;a15;a16;a17;a18|] 
-  | a0::a1::a2::a3::a4::a5::a6::a7::a8::a9::a10::a11::a12::a13::a14::a15::a16::a17::a18::a19::[] ->
-       
-        [|a0;a1;a2;a3;a4;a5;a6;a7;a8;a9;a10;a11;a12;a13;a14;a15;a16;a17;a18;a19|] 
-
-  | _ ->
-      let msg =
-        "Reason allows up to 17 static children (but dynamic children in an array can be unlimited in size); You have "
-          ^
-          ((string_of_int (List.length children)) ^
-             ", please put them in an array and assign key to the elements. Sorry for the inconvenience!") in
-      raise ((Invalid_argument (msg))[@explicit_arity ])
-
-*/

jscomp/test/async_ideas.res

@@ -8,23 +8,13 @@ let eq = (loc, x, y) => {
 
 let () = eq(
   __LOC__,
-  Js.Array2.reduce([1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14], \"+", 0),
+  Js.Array2.reduce([1, 2, 3, 4], \"+", 0),
   {
     open Global_mangles
     __dirname +
     __filename +
-    clearImmediate +
-    clearInterval +
-    clearTimeout +
-    console +
     exports +
-    global +
-    _module +
-    process +
-    require +
-    setImmediate +
-    setInterval +
-    setTimeout
+    require
   },
 )