fix mocha, disable coverall ci

Author: Hongbo Zhang

.travis.yml

@@ -4,5 +4,6 @@ env:
 node_js:
   - "4.0"
 
-script: npm run coveralls
+# Not a very reliable service..  
+# script: npm run coveralls
 

jscomp/test/mt.js

@@ -1,16 +1,39 @@
 'use strict';
 
-var Assert                  = require("assert");
-var Path                    = require("path");
 var Caml_builtin_exceptions = require("../../lib/js/caml_builtin_exceptions");
-var Curry                   = require("../../lib/js/curry");
 var Process                 = require("process");
+var Assert                  = require("assert");
+var Curry                   = require("../../lib/js/curry");
+var Path                    = require("path");
 var $$Array                 = require("../../lib/js/array");
 var List                    = require("../../lib/js/list");
 
+function is_mocha() {
+  var match = $$Array.to_list(Process.argv);
+  if (match) {
+    var exec = Path.basename(match[0]);
+    if (exec === "mocha") {
+      return /* true */1;
+    }
+    else {
+      return +(exec === "_mocha");
+    }
+  }
+  else {
+    throw [
+          Caml_builtin_exceptions.match_failure,
+          [
+            "mt.ml",
+            30,
+            2
+          ]
+        ];
+  }
+}
+
 function from_suites(name, suite) {
   var match = $$Array.to_list(Process.argv);
-  if (match && Path.basename(match[0]) === "mocha") {
+  if (match && is_mocha(/* () */0)) {
     describe(name, function () {
           return List.iter(function (param) {
                       it(param[0], param[1]);
@@ -30,7 +53,7 @@ function close_enough(x, y) {
 
 function from_pair_suites(name, suites) {
   var match = $$Array.to_list(Process.argv);
-  if (match && Path.basename(match[0]) === "mocha") {
+  if (match && is_mocha(/* () */0)) {
     describe(name, function () {
           return List.iter(function (param) {
                       var code = param[1];
@@ -52,7 +75,7 @@ function from_pair_suites(name, suites) {
                                           Caml_builtin_exceptions.assert_failure,
                                           [
                                             "mt.ml",
-                                            64,
+                                            71,
                                             20
                                           ]
                                         ];
@@ -76,4 +99,4 @@ function from_pair_suites(name, suites) {
 
 exports.from_suites      = from_suites;
 exports.from_pair_suites = from_pair_suites;
-/* assert Not a pure module */
+/* process Not a pure module */

jscomp/test/mt.ml

@@ -25,15 +25,22 @@ external throws : (unit -> unit) -> unit = "throws" [@@bs.val] [@@bs.module "ass
 
 let assert_equal = eq 
 let assert_notequal = neq
+
+let is_mocha () =
+  match Array.to_list Bs_node.Process.process##argv with
+  | cmd :: _ ->
+    let exec = Bs_node.Path.basename cmd in     
+    exec = "mocha" || exec = "_mocha"
+  
 (* assert -- raises an AssertionError which mocha handls better
 *)
 let from_suites name (suite :  (string * ('a -> unit)) list) =
   match Array.to_list Bs_node.Process.process##argv with
   | cmd :: _ ->
-    if Bs_node.Path.basename cmd  = "mocha" then  
+    if is_mocha () then
       describe name (fun _ -> 
           List.iter (fun (name, code) -> it name code) suite)
-    else ()
+
   | _ -> ()         
 
 type eq = 
@@ -51,7 +58,7 @@ let close_enough x y =
 let from_pair_suites name (suites :  pair_suites) =
   match Array.to_list Bs_node.Process.process##argv with
   | cmd :: _ ->
-    if Bs_node.Path.basename cmd  = "mocha" then
+    if is_mocha () then
       describe name (fun _ -> 
           suites |> 
           List.iter (fun (name, code) -> 
@@ -66,7 +73,6 @@ let from_pair_suites name (suites :  pair_suites) =
                 )
             ) 
         ) 
-    else ()
   | _ -> ()         
 
 (*