changes

Author: safesparrow

tests/ParallelTypeCheckingTests/Code/ASTVisit.fs

@@ -1183,7 +1183,7 @@ module TopModulesExtraction =
                 [|LongIdent.Empty|]
             else
                 // 'module A.B' is equivalent to 'namespace A; module B', meaning that 'A' is opened implicitly 
-                if synModuleOrNamespaceKind.IsModule then
+                if synModuleOrNamespaceKind.IsModule && longId.Length > 1 then
                     [|longId.GetSlice(None, Some <| longId.Length-2); longId|]
                 else
                     [|longId|]

tests/ParallelTypeCheckingTests/Tests/TestCompilationFromCmdlineArgs.fs

@@ -17,7 +17,7 @@ type Codebase =
 
 let codebases =
     [|
-        { WorkDir = $@"{__SOURCE_DIRECTORY__}\.checkouts\fcs\src\compiler"; Path = $@"{__SOURCE_DIRECTORY__}\FCS.args.txt"; Limit = Some 211 }
+        { WorkDir = $@"{__SOURCE_DIRECTORY__}\.checkouts\fcs\src\compiler"; Path = $@"{__SOURCE_DIRECTORY__}\FCS.args.txt"; Limit = None }
         { WorkDir = $@"{__SOURCE_DIRECTORY__}\.checkouts\fcs\tests\FSharp.Compiler.ComponentTests"; Path = $@"{__SOURCE_DIRECTORY__}\ComponentTests.args.txt"; Limit = None }
     |]
 

tests/ParallelTypeCheckingTests/Tests/TestDependencyResolution.fs

@@ -121,16 +121,46 @@ type X = Y
 let ``Test error``() =
     let files =
         [|
-            "pppars.fs", File.ReadAllText @"C:\projekty\fsharp\heuristic\tests\ParallelTypeCheckingTests\Tests\.checkouts\fcs\artifacts\obj\FSharp.Compiler.Service\Debug\netstandard2.0\pppars.fs"
-            "pplex.fs", File.ReadAllText @"C:\projekty\fsharp\heuristic\tests\ParallelTypeCheckingTests\Tests\.checkouts\fcs\artifacts\obj\FSharp.Compiler.Service\Debug\netstandard2.0\pplex.fs"
+            "A.fs", """
+module A.B1
+let x = 3
+"""
+            "C.fs", """
+module A.B2
+let x = 4
+"""
+        |]
+        |> buildFiles
+        
+    let deps = DependencyResolution.detectFileDependencies files
+    
+    let expectedEdges =
+        [
+            "C.fs", ["A.fs"]
+        ]
+    assertGraphEqual deps expectedEdges
+
+
+[<Test>]
+let ``Test error 2``() =
+    let files =
+        [|
+            "A.fs", """
+module A.B1
+let x = 3
+"""
+            "C.fs", """
+module A.B2
+let x = 4
+"""
         |]
         |> buildFiles
 
     let deps = DependencyResolution.detectFileDependencies files
 
     let expectedEdges =
         [
-            "pplex.fs", ["pppars.fs"]
+            "C.fs", ["A.fs"]
         ]
     assertGraphEqual deps expectedEdges