From bd7f0e70e1673ccec890bfa86c928c9af007601e Mon Sep 17 00:00:00 2001
From: Sven van Heugten <sven@memcmp.org>
Date: Tue, 12 May 2026 08:36:28 +0200
Subject: [PATCH] Run the test after mutating

---
 Mutannot/Program.fs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Mutannot/Program.fs b/Mutannot/Program.fs
index d3d9f06..13666be 100644
--- a/Mutannot/Program.fs
+++ b/Mutannot/Program.fs
@@ -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