1 files changed, 15 insertions, 0 deletions
diff --git a/Omni/Task.hs b/Omni/Task.hs
index b0dbe89..663cc02 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -483,6 +483,21 @@ unitTests =
         epic <- createTask "Epic task" Epic Nothing Nothing P2 [] Nothing
         ready <- getReadyTasks
         (taskId epic `notElem` map taskId ready) Test.@?= True,
+      Test.unit "ready tasks exclude tasks needing intervention (retry >= 3)" <| do
+        task <- createTask "Failing task" WorkTask Nothing Nothing P2 [] Nothing
+        ready1 <- getReadyTasks
+        (taskId task `elem` map taskId ready1) Test.@?= True
+        setRetryContext
+          RetryContext
+            { retryTaskId = taskId task,
+              retryOriginalCommit = "abc123",
+              retryConflictFiles = [],
+              retryAttempt = 3,
+              retryReason = "test_failure",
+              retryNotes = Nothing
+            }
+        ready2 <- getReadyTasks
+        (taskId task `notElem` map taskId ready2) Test.@?= True,
       Test.unit "child task gets sequential ID" <| do
         parent <- createTask "Parent" Epic Nothing Nothing P2 [] Nothing
         child1 <- createTask "Child 1" WorkTask (Just (taskId parent)) Nothing P2 [] Nothing