dogfooding more

Author: bobzhang

jscomp/test/int_poly_var.js

@@ -159,7 +159,11 @@ function hh1(x) {
 }
 
 function f(x) {
-  return x;
+  if (x.NAME === 1) {
+    return x.VAL;
+  } else {
+    return String(x.VAL);
+  }
 }
 
 Mt.from_pair_suites("int_poly_var.res", suites.contents);

jscomp/test/int_poly_var.res

@@ -90,4 +90,12 @@ type t0 = [#a | #b]
 
 let f = (x: list<t0>) => (x :> list<Test2.U.H.t>)
 
+type u = [#0(int) | #1(string)]
+
+let f = (x: u) => {
+  switch x {
+  | #0(x) => string_of_int(x)
+  | #1(x) => x
+  }
+}
 Mt.from_pair_suites(__FILE__, suites.contents)