From f72c8a8c63b4be8d8ccd726432a8dd559d2d880d Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 21 Nov 2025 02:48:23 -0500
Subject: feat: implement t-1fKn9o

---
 Omni/Task/RaceTest.hs | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 Omni/Task/RaceTest.hs

(limited to 'Omni/Task/RaceTest.hs')

diff --git a/Omni/Task/RaceTest.hs b/Omni/Task/RaceTest.hs
new file mode 100644
index 0000000..d4780fd
--- /dev/null
+++ b/Omni/Task/RaceTest.hs
@@ -0,0 +1,55 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+
+module Omni.Task.RaceTest where
+
+import Alpha
+import Omni.Task.Core
+import qualified Omni.Test as Test
+import System.Directory (doesFileExist, removeFile)
+import System.Environment (setEnv)
+import Control.Concurrent.Async (mapConcurrently)
+import qualified Data.Text as T
+import Data.List (nub)
+
+test :: Test.Tree
+test = Test.group "Omni.Task.Race" [raceTest]
+
+raceTest :: Test.Tree
+raceTest =
+  Test.unit "concurrent child creation (race condition)" <| do
+    -- Set up test mode
+    setEnv "TASK_TEST_MODE" "1"
+    setEnv "TASK_DB_PATH" ".tasks/race-test.jsonl"
+    
+    -- Clean up test database
+    let testFile = ".tasks/race-test.jsonl"
+    exists <- doesFileExist testFile
+    when exists <| removeFile testFile
+    initTaskDb
+    
+    -- Create a parent epic
+    parent <- createTask "Parent Epic" Epic Nothing Nothing P2 []
+    let parentId = taskId parent
+    
+    -- Create multiple children concurrently
+    -- We'll create 10 children in parallel
+    let childCount = 10
+        indices = [1..childCount]
+    
+    -- Run concurrent creations
+    children <- mapConcurrently
+      (\i -> createTask ("Child " <> tshow i) WorkTask (Just parentId) Nothing P2 [])
+      indices
+    
+    -- Check for duplicates in generated IDs
+    let ids = map taskId children
+        uniqueIds = nub ids
+    
+    -- If there was a race condition, we'd have fewer unique IDs than children
+    length uniqueIds Test.@?= length children
+    length uniqueIds Test.@?= childCount
+    
+    -- Verify IDs follow the pattern parentId.N
+    for_ ids <| \tid -> do
+        (parentId `T.isPrefixOf` tid) Test.@?= True
-- 
cgit v1.2.3