File tree Expand file tree Collapse file tree 1 file changed +33
-5
lines changed
tests/ParallelTypeCheckingTests/Tests Expand file tree Collapse file tree 1 file changed +33
-5
lines changed Original file line number Diff line number Diff line change @@ -229,7 +229,7 @@ module B
229229
230230let b = A.a 42
231231"""
232- ( set [| 1 |])
232+ ( set [| 0 |])
233233 ]
234234 scenario
235235 " A partial open statement still links to a file as a last resort"
@@ -388,7 +388,7 @@ open A
388388
389389val b: AType -> unit
390390"""
391- ( set [| 1 |])
391+ ( set [| 0 |])
392392 sourceFile // 3
393393 " B.fs"
394394 """
@@ -398,7 +398,7 @@ open A
398398
399399let b (a:AType) = ()
400400"""
401- ( set [| 1 ; 2 |])
401+ ( set [| 0 ; 2 |])
402402 sourceFile // 4
403403 " C.fsi"
404404 """
@@ -425,7 +425,7 @@ open C
425425
426426val d: CType -> unit
427427 """
428- ( set [| 1 ; 5 |])
428+ ( set [| 0 ; 4 |])
429429 sourceFile // 7
430430 " D.fs"
431431 """
@@ -439,6 +439,34 @@ let d (c: CType) =
439439 let a : AType = failwith "todo"
440440 b a
441441 """
442- ( set [| 1 ; 3 ; 5 ; 6 |])
442+ ( set [| 0 ; 2 ; 4 ; 6 |])
443+ ]
444+ scenario
445+ " Module abbreviations with shared namespace"
446+ [
447+ sourceFile
448+ " A.fsi"
449+ """
450+ module internal FSharp.Compiler.CheckExpressions
451+
452+ exception BakedInMemberConstraintName of string
453+ """
454+ Set.empty
455+ sourceFile
456+ " A.fs"
457+ """
458+ module internal FSharp.Compiler.CheckExpressions
459+
460+ exception BakedInMemberConstraintName of string
461+ """
462+ ( set [| 0 |])
463+ sourceFile
464+ " B.fs"
465+ """
466+ namespace FSharp.Compiler.CodeAnalysis
467+
468+ module Tc = CheckExpressions
469+ """
470+ ( set [| 0 |])
443471 ]
444472 ]
You can’t perform that action at this time.
0 commit comments