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())) Output(new StreamWriter(Console.OpenStandardOutput()))
} }
|> Command.execute |> Command.execute
|> ignore |> Output.toExitCode
let getAssemblyPath projectPath = let getAssemblyPath projectPath =
cli { cli {
@ -133,7 +133,13 @@ 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
match runTest projectPath mutationCase.TestName with
| 0 ->
eprintfn "Expected tested to fail, but it succeeded"
exit 3
| _ -> printfn "Mutant killed\n"
restore () restore ()
0 0