add float operation test for pervasives module

Author: bobzhang

jscomp/test/test_pervasive.js

@@ -125,8 +125,98 @@ var Pervasives$1 = /* module */[
   /* do_at_exit */Pervasives.do_at_exit
 ];
 
+function a0(prim) {
+  return Math.abs(prim);
+}
+
+function a2(prim) {
+  return Math.tan(prim);
+}
+
+function a3(prim) {
+  return Math.tanh(prim);
+}
+
+function a4(prim) {
+  return Math.asin(prim);
+}
+
+function a5(prim, prim$1) {
+  return Math.atan2(prim, prim$1);
+}
+
+function a6(prim) {
+  return Math.atan(prim);
+}
+
+function a7(prim) {
+  return Math.ceil(prim);
+}
+
+function a8(prim) {
+  return Math.cos(prim);
+}
+
+function a9(prim) {
+  return Math.cosh(prim);
+}
+
+function a10(prim) {
+  return Math.exp(prim);
+}
+
+function a11(prim) {
+  return Math.sin(prim);
+}
+
+function a12(prim) {
+  return Math.sinh(prim);
+}
+
+function a13(prim) {
+  return Math.sqrt(prim);
+}
+
+function a14(prim) {
+  return Math.floor(prim);
+}
+
+function a15(prim) {
+  return Math.log(prim);
+}
+
+function a16(prim) {
+  return Math.log10(prim);
+}
+
+function a17(prim) {
+  return Math.log1p(prim);
+}
+
+function a1(prim, prim$1) {
+  return Math.pow(prim, prim$1);
+}
+
 var f = Pervasives.$at;
 
 exports.Pervasives = Pervasives$1;
 exports.f = f;
+exports.a0 = a0;
+exports.a2 = a2;
+exports.a3 = a3;
+exports.a4 = a4;
+exports.a5 = a5;
+exports.a6 = a6;
+exports.a7 = a7;
+exports.a8 = a8;
+exports.a9 = a9;
+exports.a10 = a10;
+exports.a11 = a11;
+exports.a12 = a12;
+exports.a13 = a13;
+exports.a14 = a14;
+exports.a15 = a15;
+exports.a16 = a16;
+exports.a17 = a17;
+exports.a1 = a1;
 /* No side effect */

jscomp/test/test_pervasive.ml

@@ -4,6 +4,26 @@ module Pervasives = struct include List  include Pervasives end
 
 let f = Pervasives.(@)
 
+
+let a0 = abs_float
+let a1 = acos 
+let a2 = tan
+let a3 = tanh
+let a4 = asin
+let a5 = atan2
+let a6 = atan
+let a7 = ceil 
+let a8 = cos 
+let a9 = cosh
+let a10 = exp 
+let a11 = sin 
+let a12 = sinh
+let a13 = sqrt
+let a14 = floor
+let a15 = log 
+let a16 = log10
+let a17 = log1p
+let a18 = ( ** )
 (* local variables: *)
 (* compile-command: "ocamlc -dlambda -c test_pervasive.ml" *)
 (* end: *)