add a test

rescript-lang · Jun 21, 2016 · 3b6e32b · 3b6e32b
1 parent e868d6b
commit 3b6e32b
Show file tree

Hide file tree

Showing 4 changed files with 61 additions and 11 deletions.
diff --git a/jscomp/test/.depend b/jscomp/test/.depend
@@ -82,8 +82,8 @@ caml_format_test.cmj : ../stdlib/printf.cmi mt.cmi ../stdlib/int64.cmi \
     ../stdlib/format.cmi ../stdlib/buffer.cmi ../stdlib/array.cmi
 caml_format_test.cmx : ../stdlib/printf.cmx mt.cmx ../stdlib/int64.cmx \
     ../stdlib/format.cmx ../stdlib/buffer.cmx ../stdlib/array.cmx
-chain_code_test.cmj : ../runtime/js.cmj
-chain_code_test.cmx : ../runtime/js.cmx
+chain_code_test.cmj : mt.cmi ../runtime/js.cmj
+chain_code_test.cmx : mt.cmx ../runtime/js.cmx
 class3_test.cmj : mt.cmi ../stdlib/list.cmi ../runtime/js.cmj \
     ../stdlib/array.cmi
 class3_test.cmx : mt.cmx ../stdlib/list.cmx ../runtime/js.cmx \
@@ -388,6 +388,8 @@ printf_sim.cmj : ../stdlib/printf.cmi
 printf_sim.cmx : ../stdlib/printf.cmx
 printf_test.cmj : ../stdlib/printf.cmi mt.cmi ../stdlib/format.cmi
 printf_test.cmx : ../stdlib/printf.cmx mt.cmx ../stdlib/format.cmx
+promise.cmj : ../runtime/js.cmj
+promise.cmx : ../runtime/js.cmx
 qcc.cmj : ../stdlib/sys.cmi ../stdlib/string.cmi ../stdlib/printf.cmi \
     ../stdlib/list.cmi ../stdlib/char.cmi ../stdlib/bytes.cmi \
     ../stdlib/array.cmi
@@ -752,8 +754,8 @@ caml_format_test.cmo : ../stdlib/printf.cmi mt.cmi ../stdlib/int64.cmi \
     ../stdlib/format.cmi ../stdlib/buffer.cmi ../stdlib/array.cmi
 caml_format_test.cmj : ../stdlib/printf.cmj mt.cmj ../stdlib/int64.cmj \
     ../stdlib/format.cmj ../stdlib/buffer.cmj ../stdlib/array.cmj
-chain_code_test.cmo : ../runtime/js.cmo
-chain_code_test.cmj : ../runtime/js.cmj
+chain_code_test.cmo : mt.cmi ../runtime/js.cmo
+chain_code_test.cmj : mt.cmj ../runtime/js.cmj
 class3_test.cmo : mt.cmi ../stdlib/list.cmi ../runtime/js.cmo \
     ../stdlib/array.cmi
 class3_test.cmj : mt.cmj ../stdlib/list.cmj ../runtime/js.cmj \
@@ -1058,6 +1060,8 @@ printf_sim.cmo : ../stdlib/printf.cmi
 printf_sim.cmj : ../stdlib/printf.cmj
 printf_test.cmo : ../stdlib/printf.cmi mt.cmi ../stdlib/format.cmi
 printf_test.cmj : ../stdlib/printf.cmj mt.cmj ../stdlib/format.cmj
+promise.cmo : ../runtime/js.cmo
+promise.cmj : ../runtime/js.cmj
 qcc.cmo : ../stdlib/sys.cmi ../stdlib/string.cmi ../stdlib/printf.cmi \
     ../stdlib/list.cmi ../stdlib/char.cmi ../stdlib/bytes.cmi \
     ../stdlib/array.cmi

diff --git a/jscomp/test/chain_code_test.ml b/jscomp/test/chain_code_test.ml
@@ -1,3 +1,10 @@
+let suites :  Mt.pair_suites ref  = ref []
+let test_id = ref 0
+let eq loc x y = 
+  incr test_id ; 
+  suites := 
+    (loc ^" id " ^ (string_of_int !test_id), (fun _ -> Mt.Eq(x,y))) :: !suites
+
 let f h = 
   let open Js.Unsafe in 
   !(!(!h#x)#y)#z
@@ -16,4 +23,7 @@ let f4 h x y =
 (*   h##(draw (x,y)) *)
 (*   ##(draw (x,y)) *)
 (*   ##(draw(x,y)) *)
+let () = 
+  eq __LOC__ 32  (f2 ({ x = {y = {z = 32}}} [@bs.obj]))
 
+let () = Mt.from_pair_suites __FILE__ !suites
diff --git a/lib/js/test/chain_code_test.js b/lib/js/test/chain_code_test.js
@@ -1,6 +1,29 @@
-// GENERATED CODE BY BUCKLESCRIPT VERSION 0.5.5 , PLEASE EDIT WITH CARE
+// GENERATED CODE BY BUCKLESCRIPT VERSION 0.6.0 , PLEASE EDIT WITH CARE
 'use strict';
 
+var Mt    = require("./mt");
+var Block = require("../block");
+
+var suites = [/* [] */0];
+
+var test_id = [0];
+
+function eq(loc, x, y) {
+  test_id[0] = test_id[0] + 1 | 0;
+  suites[0] = /* :: */[
+    /* tuple */[
+      loc + (" id " + test_id[0]),
+      function () {
+        return /* Eq */Block.__(0, [
+                  x,
+                  y
+                ]);
+      }
+    ],
+    suites[0]
+  ];
+  return /* () */0;
+}
 
 function f(h) {
   return h.x.y.z;
@@ -26,8 +49,21 @@ function f4(h, x, y) {
         ];
 }
 
-exports.f  = f;
-exports.f2 = f2;
-exports.f3 = f3;
-exports.f4 = f4;
-/* No side effect */
+eq('File "chain_code_test.ml", line 27, characters 5-12', 32, f2({
+          x: {
+            y: {
+              z: 32
+            }
+          }
+        }));
+
+Mt.from_pair_suites("chain_code_test.ml", suites[0]);
+
+exports.suites  = suites;
+exports.test_id = test_id;
+exports.eq      = eq;
+exports.f       = f;
+exports.f2      = f2;
+exports.f3      = f3;
+exports.f4      = f4;
+/*  Not a pure module */
diff --git a/lib/js/test/gpr_459_test.js b/lib/js/test/gpr_459_test.js
@@ -1,4 +1,4 @@
-// GENERATED CODE BY BUCKLESCRIPT VERSION 0.5.5 , PLEASE EDIT WITH CARE
+// GENERATED CODE BY BUCKLESCRIPT VERSION 0.6.0 , PLEASE EDIT WITH CARE
 'use strict';
 
 var Mt    = require("./mt");