Test: method lookup failure

Author: vouillon

compiler/tests-wasm_of_ocaml/dune

@@ -1,5 +1,5 @@
 (tests
- (names gh38 gh46 gh107 gh112 gh1904)
+ (names gh38 gh46 gh107 gh112 gh1904 gh2034)
  (modes js wasm)
  (js_of_ocaml
   (flags :standard --disable optcall --no-inline))

compiler/tests-wasm_of_ocaml/gh2034.ml

@@ -0,0 +1,17 @@
+let f x = x#b
+
+let o1 =
+  object
+    method a = ()
+
+    method b = ()
+  end
+
+let o2 =
+  object
+    method b = ()
+  end
+
+let () =
+  f o1;
+  f o2