Run the test after mutating

This commit is contained in:
Sven van Heugten 2026-05-12 08:36:28 +02:00
parent c93f87d282
commit bd7f0e70e1
No known key found for this signature in database
GPG key ID: D612F88666F4F660

View file

@ -48,6 +48,15 @@ let ensureBuilt projectPath =
|> Output.throwIfErrored
|> ignore
let runTest projectPath testName =
cli {
Exec "dotnet"
Arguments [ "test"; projectPath; "--filter"; $"FullyQualifiedName={testName}" ]
Output(new StreamWriter(Console.OpenStandardOutput()))
}
|> Command.execute
|> ignore
let getAssemblyPath projectPath =
cli {
Exec "dotnet"
@ -124,6 +133,7 @@ let main argv =
for mutationCase in getMutationCases projectPath do
printfn "MUTATION\n\n%s" <| mutationCase.Patch
applyPatch mutationCase.Patch
runTest projectPath mutationCase.TestName
restore ()
0