Add failing test for option optimisation

Author: mediremi

tests/tests/src/incorrect_option_optimisation.mjs

@@ -0,0 +1,11 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function bla(val1, val2) {
+  return "a";
+}
+
+export {
+  bla,
+}
+/* No side effect */

tests/tests/src/incorrect_option_optimisation.res

@@ -0,0 +1,10 @@
+let bla = (~val1: bool, ~val2: bool) => {
+  let a = Some(val1)
+  let b = Some(val2)
+
+  switch (a, b) {
+  | (_, Some(true))
+  | (Some(true), _) => "a"
+  | _ => "b"
+  }
+}