DRAFT: Debugging stdin encoding for FSI tests

src/fsi/fsimain.fs

@@ -357,8 +357,8 @@ let evaluateSession (argv: string[]) =
 [<LoaderOptimization(LoaderOptimization.MultiDomainHost)>]
 let MainMain argv =
     ignore argv
+    // let _ = Debugger.Launch()
     let argv = System.Environment.GetCommandLineArgs()
-
     let timesFlag = argv |> Array.exists (fun x -> x = "/times" || x = "--times")
 
     if timesFlag then

tests/FSharp.Test.Utilities/TestFramework.fs

@@ -515,7 +515,7 @@ module Command =
 
     let exec dir envVars (redirect:RedirectInfo) path args =
 
-#if !NETCOREAPP
+#if false
         let ensureConsole () =
             // Set UTF-8 encoding for console input/output to ensure FSI receives UTF-8 data.
             // This is needed because on net472 ProcessStartInfo.StandardInputEncoding is unavailable,

tests/scripts/scriptlib.fsx

@@ -168,6 +168,7 @@ module Scripting =
             | 0 ->
                 Success(string out)
             | errCode ->
+                System.Environment.FailFast($"Console input encoding is '{System.Console.InputEncoding}'. Child process redirects input? '{p.StartInfo.RedirectStandardInput}'. \r\nStdOut:\r\n{out}\r\n\r\nStdErr:\r\n{err}")
                 let msg = sprintf "Error running command '%s' with args '%s' in directory '%s'" exePath arguments workDir
                 ErrorLevel (msg, errCode)
 
@@ -207,7 +208,7 @@ module Scripting =
                         if n > 0 then System.Console.Error.Write(buffer, 0, n)
                     with _ -> () } |> Async.Start
             async { try 
-                      while true do 
+                      while true do
                         let c = System.Console.In.ReadLine()
                         p.StandardInput.WriteLine(c)
                     with _ -> () } |> Async.Start