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

Rewrite #1

Open
svenvanheugten wants to merge 23 commits from mutannot-rewrite into main
pull from: mutannot-rewrite
merge into: svenvanheugten:main
Conversation 0 Commits 23 Files changed 17 +8 -2
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 5a521e7bfc - Show all commits

10
Mutannot/Program.fs
View file

@ -55,7 +55,7 @@ let runTest projectPath testName =
Output(new StreamWriter(Console.OpenStandardOutput()))
}
|> Command.execute
|> ignore
|> Output.toExitCode
let getAssemblyPath projectPath =
cli {
@ -133,7 +133,13 @@ let main argv =
for mutationCase in getMutationCases projectPath do
printfn "MUTATION\n\n%s" <| mutationCase.Patch
applyPatch mutationCase.Patch
runTest projectPath mutationCase.TestName
match runTest projectPath mutationCase.TestName with
| 0 ->
eprintfn "Expected tested to fail, but it succeeded"
exit 3
| _ -> printfn "Mutant killed\n"
restore ()
0