Add regression test for unused open. (#16228)

dotnet · Nov 6, 2023 · 046ff38 · 046ff38
1 parent 70bd177
commit 046ff38
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/tests/FSharp.Compiler.ComponentTests/TypeChecks/Graph/Scenarios.fs b/tests/FSharp.Compiler.ComponentTests/TypeChecks/Graph/Scenarios.fs
@@ -772,4 +772,32 @@ type DiGraph = obj
 """
                     (set [| 0 |])
             ]
+        scenario
+            "Unused namespace should be detected"
+            [
+                sourceFile
+                    "File1.fs"
+                    """
+namespace My.Great.Namespace
+"""
+                    Set.empty
+
+                sourceFile
+                    "File2.fs"
+                    """
+namespace My.Great.Namespace
+
+open My.Great.Namespace
+
+type Foo = class end
+"""
+                    (set [| 0 |])
+
+                sourceFile
+                    "Program"
+                    """
+printfn "Hello"
+"""
+                    Set.empty
+            ]
     ]