G#$R+ZrqFv#}$$MORuK%~Ko9YQbk7
zo8Jk=oG#Yj>HblD#}wIXF&ePnLP(rPFOn})pYY%rNO>u735RjiW}^eZx@b1%kmsakTkR#3b@pJP(jagt*_
z&f6f5kUOxonob>36MskOG1Fum5LqKf]
+ []
let ``array-FSI`` () = singleTestBuildAndRun "core/array" FSI
````
This test case builds and runs the test case in the folder core/array
@@ -20,7 +20,7 @@ __#if !NETCOREAPP__
There are some older tests in this section that looks similar to:
````
- []
+ []
let events () =
let cfg = testConfig "core/events"
fsc cfg "%s -a -o:test.dll -g" cfg.fsc_flags ["test.fs"]
@@ -34,11 +34,11 @@ There are some older tests in this section that looks similar to:
````
These tests build, compile, peverify and run fsi.
-Below the Compiler directory there is a set of tests built on the compiler service. They are nunit and instead of executing the compiler and fsi using files on disk the tests are built from memory. These tests use the CompilerAssert framework and look similar to:
+Below the Compiler directory there is a set of tests built on the compiler service. They are xUnit and instead of executing the compiler and fsi using files on disk the tests are built from memory. These tests use the CompilerAssert framework and look similar to:
This test verifies that a warning is produces when a value is implicitly discarded. The line ````x = 20``` looks like an assignment but in F# is a test for equality it yields and discards the value false.
````
- []
+ []
let ``Unused compare with immutable when assignment might be intended``() =
CompilerAssert.TypeCheckSingleError
"""
@@ -62,4 +62,4 @@ When a test is run, .err/.vserr output files are created and compared to their m
Refer to [Test Guide](../../TESTGUIDE.md#baselines) to know more about how to update them.
-Tests are organized under modules as functions bearing NUnit `[]` attribute and can be run from an IDE or the command line (see the [Test Guide](../../TESTGUIDE.md)).
+Tests are organized under modules as functions bearing xUnit `[]` attribute and can be run from an IDE or the command line (see the [Test Guide](../../TESTGUIDE.md)).
diff --git a/tests/fsharp/xunit.runner.json b/tests/fsharp/xunit.runner.json
new file mode 100644
index 00000000000..4e5a48343ec
--- /dev/null
+++ b/tests/fsharp/xunit.runner.json
@@ -0,0 +1,5 @@
+{
+ "$schema": "https://xunit.net/schema/current/xunit.runner.schema.json",
+ "appDomain": "ifAvailable",
+ "shadowCopy": false
+}
\ No newline at end of file
From eaf5bdce2f3747130c6d811e2f8be5b8149e11bc Mon Sep 17 00:00:00 2001
From: Petr
Date: Tue, 3 Sep 2024 18:01:53 +0200
Subject: [PATCH 2/2] Update SpanTests.fs
---
tests/fsharp/Compiler/Language/SpanTests.fs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tests/fsharp/Compiler/Language/SpanTests.fs b/tests/fsharp/Compiler/Language/SpanTests.fs
index bd89f0fcbfe..5e4d39af8dd 100644
--- a/tests/fsharp/Compiler/Language/SpanTests.fs
+++ b/tests/fsharp/Compiler/Language/SpanTests.fs
@@ -176,7 +176,7 @@ type T(span: Span) = struct end
"""
[| |]
- []
+ []
let ``A byref struct with custom attr can be passed as typar``() =
CompilerAssert.TypeCheckWithErrors """
namespace System.Runtime.CompilerServices
@@ -193,4 +193,4 @@ module WhatEver =
let processT (a: Action, ie: seq, asList: list) = ()
"""
[| FSharpDiagnosticSeverity.Error, 3300, (13, 45, 13, 51), "The parameter 'asList' has an invalid type 'T list'. This is not permitted by the rules of Common IL." |]
-#endif
\ No newline at end of file
+#endif