more tests

Author: Hongbo Zhang

jscomp/test/caml_format_test.js

@@ -187,6 +187,21 @@ var pairs = Caml_obj.caml_obj_dup(/* array */[
       ]
     ]);
 
+var pairs$1 = /* array */[
+  /* tuple */[
+    3232,
+    "32_32.0"
+  ],
+  /* tuple */[
+    1.000,
+    "1.000"
+  ],
+  /* tuple */[
+    12.000,
+    "12.000"
+  ]
+];
+
 Mt.from_pair_suites("caml_format_test.ml", Pervasives.$at(from_of_string(of_string), Pervasives.$at(/* :: */[
               /* tuple */[
                 "isnan_of_string",
@@ -231,21 +246,52 @@ Mt.from_pair_suites("caml_format_test.ml", Pervasives.$at(from_of_string(of_stri
                                           };
                                   }
                                 ];
-                        }, pairs)), /* :: */[
-                  /* tuple */[
-                    "throw",
-                    function () {
-                      return /* ThrowAny */{
-                              0: function () {
-                                return Caml_format.caml_float_of_string("");
-                              },
-                              length: 1,
-                              tag: 3
-                            };
-                    }
-                  ],
-                  /* [] */0
-                ]))));
+                        }, pairs)), Pervasives.$at(/* :: */[
+                      /* tuple */[
+                        "throw",
+                        function () {
+                          return /* ThrowAny */{
+                                  0: function () {
+                                    return Caml_format.caml_float_of_string("");
+                                  },
+                                  length: 1,
+                                  tag: 3
+                                };
+                        }
+                      ],
+                      /* [] */0
+                    ], $$Array.to_list($$Array.mapi(function (i, param) {
+                              var b = param[1];
+                              var a = param[0];
+                              return /* tuple */[
+                                      Caml_curry.app1(Printf.sprintf(/* Format */{
+                                                0: /* String_literal */{
+                                                  0: "normal_float_of_string ",
+                                                  1: /* Int */{
+                                                    0: /* Int_d */0,
+                                                    1: /* No_padding */0,
+                                                    2: /* No_precision */0,
+                                                    3: /* End_of_format */0,
+                                                    length: 4,
+                                                    tag: 4
+                                                  },
+                                                  length: 2,
+                                                  tag: 11
+                                                },
+                                                1: "normal_float_of_string %d",
+                                                length: 2,
+                                                tag: 0
+                                              }), i),
+                                      function () {
+                                        return /* Eq */{
+                                                0: a,
+                                                1: Caml_format.caml_float_of_string(b),
+                                                length: 2,
+                                                tag: 0
+                                              };
+                                      }
+                                    ];
+                            }, pairs$1)))))));
 
 exports.of_string            = of_string;
 exports.from_float_of_string = from_float_of_string;

jscomp/test/caml_format_test.ml

@@ -46,5 +46,19 @@ let v = Printf.sprintf "%3d" 3333
           (fun _ -> Mt.Eq(a,
                           classify_float @@ float_of_string b))) 
      |> Array.to_list ) @ 
-     [ "throw", (fun _ -> Mt.ThrowAny (fun _ -> ignore @@ float_of_string ""))]
+     [ "throw", (fun _ -> Mt.ThrowAny (fun _ -> ignore @@ float_of_string ""))] @
+     (let pairs =
+       [| 3232., "32_32.0";
+          1.000, "1.000";
+          12.000, "12.000"
+       |] 
+     in 
+     pairs 
+     |> Array.mapi 
+       (fun i (a,b) ->
+          (Printf.sprintf "normal_float_of_string %d" i ),
+          (fun _ -> Mt.Eq(a,
+                          float_of_string b))) 
+     |> Array.to_list )
+
     )