add more tests for tagged templates

Author: tsnobip

jscomp/test/build.ninja

@@ -571,7 +571,8 @@ o test/submodule.cmi test/submodule.cmj : cc test/submodule.res | $bsc $stdlib r
 o test/submodule_call.cmi test/submodule_call.cmj : cc test/submodule_call.res | test/submodule.cmj $bsc $stdlib runtime
 o test/switch_case_test.cmi test/switch_case_test.cmj : cc test/switch_case_test.res | test/mt.cmj $bsc $stdlib runtime
 o test/switch_string.cmi test/switch_string.cmj : cc test/switch_string.res | $bsc $stdlib runtime
-o test/tagged_template_test.cmi test/tagged_template_test.cmj : cc test/tagged_template_test.res | test/mt.cmj $bsc $stdlib runtime
+o test/tagged_template_test.cmj : cc_cmi test/tagged_template_test.res | test/mt.cmj test/tagged_template_test.cmi $bsc $stdlib runtime
+o test/tagged_template_test.cmi : cc test/tagged_template_test.resi | $bsc $stdlib runtime
 o test/tailcall_inline_test.cmi test/tailcall_inline_test.cmj : cc test/tailcall_inline_test.res | test/mt.cmj $bsc $stdlib runtime
 o test/template.cmi test/template.cmj : cc test/template.res | $bsc $stdlib runtime
 o test/test.cmi test/test.cmj : cc test/test.res | $bsc $stdlib runtime

jscomp/test/tagged_template_test.js

@@ -1,14 +1,36 @@
-@module("./tagged_template_lib.js") @variadic external sql: (array<string>, array<string>) => string = "sql"
+@module("./tagged_template_lib.js") @variadic
+external sql: (array<string>, array<string>) => string = "sql"
 
 let table = "users"
 let id = "5"
 
 let query = sql`SELECT * FROM ${table} WHERE id = ${id}`
 
+let foo = (strings, values) => {
+  let res = ref("")
+  let valueCount = Array.length(values)
+  for i in 0 to valueCount - 1 {
+    res := res.contents ++ strings[i] ++ string_of_int(values[i] * 10)
+  }
+  res.contents ++ strings[valueCount]
+}
+
+let res = foo`| 5 * 10 = ${5} |`
+
 Mt.from_pair_suites(
-    "tagged template", 
-    list{
-        ("it should return a string with the correct interpolations", () => 
-            Eq(query, "SELECT * FROM users WHERE id = 5")),
-    }
+  "tagged templates",
+  list{
+    (
+      "with externals, it should return a string with the correct interpolations",
+      () => Eq(query, "SELECT * FROM users WHERE id = 5"),
+    ),
+    (
+      "with rescript function, it should return a string with the correct interpolations",
+      () => Eq(res, "| 5 * 10 = 50 |"),
+    ),
+    (
+      "a template literal tagged with json should generate a regular string interpolation for now",
+      () => Eq(json`some random ${"string"}`, "some random string"),
+    ),
+  },
 )