add script mode test

Author: majocha

tests/FSharp.Compiler.ComponentTests/TypeChecks/Graph/CompilationTests.fs

@@ -48,7 +48,7 @@ let compileScenario (scenario: Scenario) (method: Method) =
     |> withMethod method
     |> compile
 
-let scenarios = scenarios |> List.map (fun c -> [| box c |])
+let scenarios = scriptCompilationScenario :: scenarios |> List.map (fun c -> [| box c |])
 
 [<Theory>]
 [<MemberData(nameof scenarios)>]

tests/FSharp.Compiler.ComponentTests/TypeChecks/Graph/DependencyResolutionTests.fs

@@ -5,7 +5,7 @@ open Xunit
 open FSharp.Compiler.GraphChecking
 open Scenarios
 
-let scenarios = scenarios |> Seq.map (fun p -> [| box p |])
+let scenarios = scriptCompilationScenario :: misorderedScenario :: scenarios |> Seq.map (fun p -> [| box p |])
 
 [<Theory>]
 [<MemberData(nameof scenarios)>]

tests/FSharp.Compiler.ComponentTests/TypeChecks/Graph/Scenarios.fs

@@ -1119,4 +1119,71 @@ let internal misorderedScenario =
     val a: int -> int
     """
                 (set [| 0 |])
+        ]
+
+let internal scriptCompilationScenario =
+    scenario
+        "Script compilation with #load and downstream files"
+        [
+            sourceFile
+                "A.fs"
+                """
+module LibA
+
+type A = { Value: int }
+
+let inc x = x + 1
+"""
+                Set.empty
+            sourceFile
+                "B.fs"
+                """
+module LibB
+
+let append s i = s + string i
+"""
+                (set [| 0 |])
+            sourceFile
+                "Run.fsx"
+                """
+namespace Script
+
+#load "A.fs"
+#load "B.fs"
+
+open LibA
+open LibB
+
+module ScriptModule =
+    let compute s =
+        let a = inc 41
+        append s a
+"""
+                (set [| 1 |])
+            sourceFile
+                "Independent.fs"
+                """
+module Independent
+
+let z = 0
+"""
+                Set.empty
+            sourceFile
+                "DependsOnScript.fs"
+                """
+module Consumer
+
+open Script.ScriptModule
+
+let result = compute "ok"
+"""
+                (set [| 2 |])
+            sourceFile
+                "AlsoDependsOnScript.fs"
+                """
+module AnotherConsumer
+
+let value = Script.ScriptModule.compute "hi"
+"""
+                (set [| 2 |])
         ]