@@ -25,18 +25,18 @@ module FsiExtension =
2525 printfn " binding redirect for FSharp.Core..."
2626 typedefof< Map<_,_>>. Assembly
2727 else
28- e.RequestingAssembly
28+ e.RequestingAssembly
2929 )
3030 let checker = FSharpChecker.Create( suggestNamesForErrors= true , keepAssemblyContents= true )
3131 let sourceText = """
3232 #r "paket: nuget FSharp.Data"
3333 let v = FSharp.Data.JsonValue.Boolean true
3434 """
35- let projectOptions =
35+ let projectOptions =
3636 checker.GetProjectOptionsFromScript( " test.fsx" , SourceText.ofString sourceText, otherFlags = [| " /langversion:preview" ; sprintf " /compilertool:%s " pathToExtension |] )
3737 |> Async.RunSynchronously
3838 |> fst
39-
39+
4040 let _ , answer = checker.ParseAndCheckFileInProject( " test.fsx" , 0 , SourceText.ofString sourceText, projectOptions) |> Async.RunSynchronously
4141 match answer with
4242 | FSharpCheckFileAnswer.Succeeded( result) ->
@@ -67,7 +67,7 @@ module FsiExtension =
6767 p.WaitForExit()
6868 standardOutput, errorOutput
6969 { file = fsxFile; stdOut = standardOutput; errOut = errorOutput; arguments = arguments }
70-
70+
7171 let runSingleFsxTest ( fsxFile : FileInfo ) =
7272
7373 let expectedOutput =
@@ -78,7 +78,7 @@ module FsiExtension =
7878 File.Create goldenFile |> ignore
7979 " "
8080 let result = runSingleFsxTestForOutput fsxFile
81-
81+
8282 let actualOutput =
8383 ( result.stdOut + result.errOut) .Split([| System.Environment.NewLine|], System.StringSplitOptions.None)
8484 |> Array.filter ( fun s -> not ( s.StartsWith " :paket>" ))
@@ -89,25 +89,25 @@ module FsiExtension =
8989 let actualOutput = normalizeCR actualOutput
9090 let expectedOutput = normalizeCR expectedOutput
9191 if actualOutput = expectedOutput then
92- Pass fsxFile.FullName
93- else
92+ Pass fsxFile.FullName
93+ else
9494 Failed( fsxFile.FullName, expectedOutput, actualOutput, result.arguments)
9595
9696 [<Test>]
9797 let ``run fsi integration tests that have deterministic output`` () =
9898 let fsxFiles = DirectoryInfo( fsxsFolder) .GetFiles( " *.fsx" , SearchOption.AllDirectories)
99- let failures =
99+ let failures =
100100 [|
101101 for fsx in fsxFiles do
102102 if not ( fsx.Name.StartsWith " skip." ) then
103-
103+
104104 match runSingleFsxTest fsx with
105105 | Pass _ -> printfn " OK: %s " fsx.FullName
106106 | Failed( file,_,_, commandArguments) ->
107107 printfn " KO: %s " fsx.FullName
108108 yield file, commandArguments
109109 |]
110-
110+
111111 if failures.Length > 0 then
112112 failures
113113 |> Array.map ( fun ( fsxFile , arguments ) -> sprintf " file: %s \n command: %s " fsxFile arguments)
0 commit comments