add test case for non-reduandant warning

Author: bobzhang

jscomp/bin/bsb.ml

@@ -9754,8 +9754,6 @@ type cxt = {
   cut_generators : bool
 }
 
-val find_first_lib_dir 
-  : file_group list -> string
 
 (** entry is to the 
     [sources] in the schema
@@ -9811,8 +9809,6 @@ type build_generator =
     output : string list;
     command : string}
 
-let is_input (xs : build_generator list) (x : string)  = 
-  List.exists (fun  ({input} : build_generator) -> List.exists (fun y -> y = x ) input ) xs 
 
 let is_input_or_output(xs : build_generator list) (x : string)  = 
   List.exists 
@@ -9846,17 +9842,6 @@ type t =
     globbed_dirs : string list ; 
   }
 
-exception No_lib_dir_found
-
-let rec find_first_lib_dir 
-    (file_groups : file_group list ) =
-  match file_groups with 
-  | [] -> raise No_lib_dir_found
-  | {dir ; dir_index } :: rest -> 
-    if Bsb_dir_index.is_lib_dir dir_index then dir 
-    else find_first_lib_dir rest 
-
-
 let (//) = Ext_filename.combine
 
 let (|?)  m (key, cb) =

jscomp/bsb/bsb_parse_sources.ml

@@ -37,8 +37,6 @@ type build_generator =
     output : string list;
     command : string}
 
-let is_input (xs : build_generator list) (x : string)  = 
-  List.exists (fun  ({input} : build_generator) -> List.exists (fun y -> y = x ) input ) xs 
 
 let is_input_or_output(xs : build_generator list) (x : string)  = 
   List.exists 
@@ -72,17 +70,6 @@ type t =
     globbed_dirs : string list ; 
   }
 
-exception No_lib_dir_found
-
-let rec find_first_lib_dir 
-    (file_groups : file_group list ) =
-  match file_groups with 
-  | [] -> raise No_lib_dir_found
-  | {dir ; dir_index } :: rest -> 
-    if Bsb_dir_index.is_lib_dir dir_index then dir 
-    else find_first_lib_dir rest 
-
-
 let (//) = Ext_filename.combine
 
 let (|?)  m (key, cb) =

jscomp/bsb/bsb_parse_sources.mli

@@ -67,8 +67,6 @@ type cxt = {
   cut_generators : bool
 }
 
-val find_first_lib_dir 
-  : file_group list -> string
 
 (** entry is to the 
     [sources] in the schema

jscomp/build_tests/generator/.gitignore

@@ -0,0 +1,25 @@
+*.exe
+*.obj
+*.out
+*.compile
+*.native
+*.byte
+*.cmo
+*.annot
+*.cmi
+*.cmx
+*.cmt
+*.cmti
+*.cma
+*.a
+*.cmxa
+*.obj
+*~
+*.annot
+*.cmj
+*.bak
+lib/bs
+*.mlast
+*.mliast
+.vscode
+.merlin

jscomp/build_tests/generator/README.md

@@ -0,0 +1,16 @@
+
+
+# Build
+```
+npm run build
+```
+
+# Watch
+
+```
+npm run watch
+```
+
+
+# Editor
+If you use `vscode`, Press `Windows + Shift + B` it will build automatically

jscomp/build_tests/generator/bsconfig.json

@@ -0,0 +1,27 @@
+{
+  "name": "generator",
+  "version": "0.1.0",
+  "sources": [
+    {
+      "dir": "src",
+      "generators": [
+        {
+          "name": "cpp",
+          "edge": [
+            "test.ml", ":", "test.cpp.ml"
+          ]
+        }
+      ]
+    }
+    
+  ],
+  "generators": [
+    {
+      "name" : "cpp",
+      "command": "sed 's/OCAML/3/' $in > $out"
+    }
+  ],
+  "bs-dependencies" : [
+      // add your bs-dependencies here 
+  ]
+}

jscomp/build_tests/generator/input.js

@@ -0,0 +1,19 @@
+
+
+var child_process = require('child_process')
+var assert = require('assert')
+var output = child_process.spawnSync(`bsb -clean-world && bsb -make-world`,
+    {
+        cwd: __dirname,
+        encoding: 'utf8',
+        stdio : ['pipe','pipe','pipe'],
+        shell : true
+    }
+)
+// console.log(output)
+// var matches = output.match(/IGNORED/g)
+// console.log(matches)
+
+assert.equal((output.stderr.match(/IGNORED/g)).length, 1)
+assert.equal(output.stderr.indexOf('a-b.ml') > 0, true)
+

jscomp/build_tests/generator/package.json

@@ -0,0 +1,16 @@
+{
+  "name": "generator",
+  "version": "0.1.0",
+  "scripts": {
+    "clean": "bsb -clean-world",
+    "build": "bsb -make-world",
+    "watch": "bsb -make-world -w"
+  },
+  "keywords": [
+    "BuckleScript"
+  ],
+  "license": "MIT",
+  "devDependencies": {
+    "bs-platform": "1.8.3"
+  }
+}

jscomp/build_tests/generator/src/a-b.ml

@@ -0,0 +1,3 @@
+
+
+let () = Js.log "Hello, BuckleScript"