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

Move ensureCleanWorkingDirectory to own function

Browse source
This commit is contained in:
Sven van Heugten 2026-05-12 08:08:58 +02:00
parent 2dc2c288fb
commit c6996d5bbf
No known key found for this signature in database
GPG key ID: D612F88666F4F660
1 changed files with 15 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Mutannot/Program.fs
View file

@ -6,6 +6,19 @@ open Fli
type MutationCase = { TestName: string; Patch: string } type MutationCase = { TestName: string; Patch: string }
let ensureCleanWorkingDirectory () =
let gitState =
cli {
Exec "git"
Arguments [ "status"; "--porcelain" ]
}
|> Command.execute
|> Output.throwIfErrored
if gitState.Text <> None then
eprintfn "Uncommitted changes. Refusing to run."
exit 2
let ensureBuilt projectPath = let ensureBuilt projectPath =
cli { cli {
Exec "dotnet" Exec "dotnet"
@ -70,20 +83,10 @@ let main argv =
eprintfn "Usage: mutannot <path/to/project.csproj|fsproj>" eprintfn "Usage: mutannot <path/to/project.csproj|fsproj>"
exit 1 exit 1
ensureCleanWorkingDirectory ()
let projectPath = argv[0] let projectPath = argv[0]
let gitState =
cli {
Exec "git"
Arguments [ "status"; "--porcelain" ]
}
|> Command.execute
|> Output.throwIfErrored
if gitState.Text <> None then
eprintfn "Uncommitted changes. Refusing to run."
exit 2
for mutationCase in getMutationCases projectPath do for mutationCase in getMutationCases projectPath do
printfn "%s" <| mutationCase.ToString() printfn "%s" <| mutationCase.ToString()