Add tests

Author: fhammerschmidt

test/FloatTests.mjs

@@ -237,6 +237,16 @@ Test.run([
       "clamp - min -infinity, max -infinity"
     ], Core__Float.clamp(PervasivesU.neg_infinity, PervasivesU.neg_infinity, 4.2), eq, PervasivesU.neg_infinity);
 
+Test.run([
+      [
+        "FloatTests.res",
+        49,
+        20,
+        46
+      ],
+      "Float.equal optimization"
+    ], false, eq, false);
+
 export {
   eq ,
 }

test/FloatTests.res

@@ -45,3 +45,5 @@ Test.run(
   eq,
   neg_infinity,
 )
+
+Test.run(__POS_OF__("Float.equal optimization"), Float.equal(1., 3.), eq, false)

test/IntTests.mjs

@@ -548,6 +548,16 @@ Test.run([
       "clamp - > min, > max"
     ], Core__Int.clamp(40, 40, 42), eq, 40);
 
+Test.run([
+      [
+        "IntTests.res",
+        170,
+        20,
+        44
+      ],
+      "Int.equal optimization"
+    ], false, eq, false);
+
 export {
   eq ,
   $$catch ,

test/IntTests.res

@@ -166,3 +166,5 @@ Test.run(__POS_OF__("clamp - < min, < max"), Int.clamp(~min=50, ~max=60, 42), eq
 Test.run(__POS_OF__("clamp - < min, > max"), Int.clamp(~min=50, ~max=40, 42), eq, 50) // min wins
 Test.run(__POS_OF__("clamp - > min, < max"), Int.clamp(~min=40, ~max=60, 42), eq, 42)
 Test.run(__POS_OF__("clamp - > min, > max"), Int.clamp(~min=40, ~max=40, 42), eq, 40)
+
+Test.run(__POS_OF__("Int.equal optimization"), Int.equal(1, 3), eq, false)

test/StringTests.mjs

@@ -0,0 +1,21 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Test from "./Test.mjs";
+import * as Caml_obj from "rescript/lib/es6/caml_obj.js";
+
+var eq = Caml_obj.equal;
+
+Test.run([
+      [
+        "StringTests.res",
+        5,
+        20,
+        47
+      ],
+      "String.equal optimization"
+    ], false, eq, false);
+
+export {
+  eq ,
+}
+/*  Not a pure module */

test/StringTests.res

@@ -0,0 +1,5 @@
+open RescriptCore
+
+let eq = (a, b) => a == b
+
+Test.run(__POS_OF__("String.equal optimization"), String.equal("one", "three"), eq, false)