@@ -13,7 +13,7 @@ module FsiExtension =
1313 " Release"
1414 #endif
1515
16- let pathToExtension = Path.Combine(__ SOURCE_ DIRECTORY__, " .." , " .." , " src" , " FSharp.DependencyManager.Paket" , " bin" , configuration, " netstandard2.0 " )
16+ let pathToExtension = Path.Combine(__ SOURCE_ DIRECTORY__, " .." , " .." , " src" , " FSharp.DependencyManager.Paket" , " bin" , configuration, " netstandard2.1 " )
1717 let extensionFileName = " FSharp.DependencyManager.Paket.dll"
1818
1919 [<Test>]
@@ -25,18 +25,19 @@ module FsiExtension =
2525 printfn " binding redirect for FSharp.Core..."
2626 typedefof< Map<_,_>>. Assembly
2727 else
28- e.RequestingAssembly
28+ e.RequestingAssembly
2929 )
30+
3031 let checker = FSharpChecker.Create( suggestNamesForErrors= true , keepAssemblyContents= true )
3132 let sourceText = """
3233 #r "paket: nuget FSharp.Data"
3334 let v = FSharp.Data.JsonValue.Boolean true
3435 """
35- let projectOptions =
36+ let projectOptions =
3637 checker.GetProjectOptionsFromScript( " test.fsx" , SourceText.ofString sourceText, otherFlags = [| " /langversion:preview" ; sprintf " /compilertool:%s " pathToExtension |] )
3738 |> Async.RunSynchronously
3839 |> fst
39-
40+
4041 let _ , answer = checker.ParseAndCheckFileInProject( " test.fsx" , 0 , SourceText.ofString sourceText, projectOptions) |> Async.RunSynchronously
4142 match answer with
4243 | FSharpCheckFileAnswer.Succeeded( result) ->
@@ -68,7 +69,7 @@ module FsiExtension =
6869 p.WaitForExit()
6970 standardOutput, errorOutput
7071 { file = fsxFile; stdOut = standardOutput; errOut = errorOutput; arguments = arguments }
71-
72+
7273 let runSingleFsxTest ( fsxFile : FileInfo ) =
7374
7475 let expectedOutput =
@@ -79,7 +80,7 @@ module FsiExtension =
7980 File.Create goldenFile |> ignore
8081 " "
8182 let result = runSingleFsxTestForOutput fsxFile
82-
83+
8384 let actualOutput =
8485 ( result.stdOut + result.errOut) .Split([| System.Environment.NewLine|], System.StringSplitOptions.None)
8586 |> Array.filter ( fun s -> not ( s.StartsWith " :paket>" ))
@@ -90,25 +91,24 @@ module FsiExtension =
9091 let actualOutput = normalizeCR actualOutput
9192 let expectedOutput = normalizeCR expectedOutput
9293 if actualOutput = expectedOutput then
93- Pass fsxFile.FullName
94- else
94+ Pass fsxFile.FullName
95+ else
9596 Failed( fsxFile.FullName, expectedOutput, actualOutput, result.arguments)
9697
9798 [<Test>]
9899 let ``run fsi integration tests that have deterministic output`` () =
99100 let fsxFiles = DirectoryInfo( fsxsFolder) .GetFiles( " *.fsx" , SearchOption.AllDirectories)
100- let failures =
101+ let failures =
101102 [|
102103 for fsx in fsxFiles do
103104 if not ( fsx.Name.StartsWith " skip." ) then
104-
105105 match runSingleFsxTest fsx with
106106 | Pass _ -> printfn " OK: %s " fsx.FullName
107107 | Failed( file,_,_, commandArguments) ->
108108 printfn " KO: %s " fsx.FullName
109109 yield file, commandArguments
110110 |]
111-
111+
112112 if failures.Length > 0 then
113113 failures
114114 |> Array.map ( fun ( fsxFile , arguments ) -> sprintf " file: %s \n command: %s " fsxFile arguments)
0 commit comments