temp

Author: KevinRansom

tests/FSharp.Compiler.ComponentTests/Scripting/Interactive.fs

@@ -7,6 +7,8 @@ open Xunit
 open System
 open FSharp.Test.Compiler
 open FSharp.Test.ScriptHelpers
+open FSharp.Compiler.Interactive.Shell
+open FSharp.Compiler.Diagnostics
 
 module ``Interactive tests`` =
 
@@ -40,29 +42,44 @@ module ``Interactive tests`` =
     [<InlineData(false, true)>]
     let ``Evaluation of multiple sessions should succeed`` (useMultiEmit1, useMultiEmit2) =
 
+        // This test is to check that we can have multiple sessions and that they can access each other
+
+        // Initialize
         let args useMultiEmit : string array = [| if useMultiEmit then "--multiemit+" else "--multiemit-"|]
         use sessionOne = new FSharpScript(additionalArgs = args useMultiEmit1)
         use sessionTwo = new FSharpScript(additionalArgs = args useMultiEmit2)
+        use sessionThree = new FSharpScript(additionalArgs = args useMultiEmit2)
 
-        sessionOne.Eval("""
-module Test1 =
-
-    let test1 obj = sprintf "Execute - Test1.test1 - %A" obj""") |> ignore
-
-        let result1 = sessionOne.Eval("""Test1.test1 18""") |> getValue
+        // First session
+        sessionOne.Eval("""module Test1 = let test1 obj = sprintf "Execute - Test1.test1 - %A" obj""") |> ignore
+        let result1 = sessionOne.Eval("Test1.test1 18") |> getValue
         let value1 = result1.Value
         Assert.Equal(typeof<string>, value1.ReflectionType)
         Assert.Equal("Execute - Test1.test1 - 18", value1.ReflectionValue :?> string)
 
-        sessionTwo.Eval("""
-module Test2 =
-    let test2 obj = sprintf "Execute - Test2.test2 - %A" obj""") |> ignore
-
+        // Second session
+        sessionTwo.Eval("""module Test2 = let test2 obj = sprintf "Execute - Test2.test2 - %A" obj""") |> ignore
         let result2 = sessionTwo.Eval("""Test2.test2 27""") |> getValue
         let value2 = result2.Value
         Assert.Equal(typeof<string>, value2.ReflectionType)
         Assert.Equal("Execute - Test2.test2 - 27", value2.ReflectionValue :?> string)
 
+        // Can I access the other session
+        let result: Result<FsiValue option, exn> * FSharpDiagnostic[] =  sessionOne.Eval("""Test2.test2 19""")
+        match result with
+        | Result.Ok _, errors -> Assert.True(false, $"""Failed in line: {String.Join(", ", errors)}""")
+        | Result.Error ex, _diagnostics -> Assert.True(false, $"""Failed in line: {ex.Message}""")
+
+
+
+
+        //let result4 = sessionTwo.Eval("""Test1.test1 21""") |> getValue
+        //let value4 = result4.Value
+        //Assert.Equal(typeof<string>, value4.ReflectionType)
+        //Assert.Equal("Execute - Test1.test1 - 21", value4.ReflectionValue :?> string)
+
+        ()
+
 module ``External FSI tests`` =
     [<Fact>]
     let ``Eval object value``() =