testsuite/tests/typing-core-bugs/repeated_did_you_mean.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

(* TEST
 expect;
*)

(* MPR 7864 *)

let foo = 12
module M = struct
  let foo = 13
end
open M

let _ = fox;;
[%%expect{|
val foo : int = 12
module M : sig val foo : int end
Line 7, characters 8-11:
7 | let _ = fox;;
            ^^^
Error: Unbound value fox
Hint: Did you mean foo?
|}]