File tree Expand file tree Collapse file tree 1 file changed +27
-0
lines changed
tests/ParallelTypeCheckingTests/Tests Expand file tree Collapse file tree 1 file changed +27
-0
lines changed Original file line number Diff line number Diff line change @@ -194,13 +194,40 @@ let d (c: CType) =
194194 ]
195195 |> FProject.Make CompileOutput.Library
196196
197+ let failingIlGenShadowedStaticMethods =
198+ [
199+ " Bar.fsi" ,
200+ """
201+ module Bar
202+
203+ type Bar =
204+ new: unit -> Bar
205+ static member Foo: unit -> unit
206+
207+ val Foo: unit -> unit
208+ """
209+ " Bar.fs" ,
210+ """
211+ module Bar
212+
213+ type Bar() =
214+ static member Foo () : unit =
215+ failwith ""
216+
217+ let Foo () : unit =
218+ Bar.Foo ()
219+ """
220+ ]
221+ |> FProject.Make CompileOutput.Library
222+
197223 let all =
198224 [
199225 encodeDecodeSimple
200226 diamondBroken1
201227 fsFsi
202228 emptyNamespace
203229 dependentSignatures
230+ failingIlGenShadowedStaticMethods
204231 ]
205232
206233type Case =
You can’t perform that action at this time.
0 commit comments