svenvanheugten/mutannot
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

Run the test after mutating

Browse source
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
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Mutannot/Program.fs
View file

@ -48,6 +48,15 @@ let ensureBuilt projectPath =
|> Output.throwIfErrored |> Output.throwIfErrored
|> ignore |> 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 = let getAssemblyPath projectPath =
cli { cli {
Exec "dotnet" Exec "dotnet"
@ -124,6 +133,7 @@ let main argv =
for mutationCase in getMutationCases projectPath do for mutationCase in getMutationCases projectPath do
printfn "MUTATION\n\n%s" <| mutationCase.Patch printfn "MUTATION\n\n%s" <| mutationCase.Patch
applyPatch mutationCase.Patch applyPatch mutationCase.Patch
runTest projectPath mutationCase.TestName
restore () restore ()
0 0