feat: implement t-PpYZt2

1 files changed, 7 insertions, 1 deletions

diff --git a/Omni/Task.hs b/Omni/Task.hs
index d1e672a..10136c9 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -312,7 +312,13 @@ unitTests =
         ready <- getReadyTasks
         -- Both should be ready since Related doesn't block
         (taskId task1 `elem` map taskId ready) Test.@?= True
-        (taskId task2 `elem` map taskId ready) Test.@?= True
+        (taskId task2 `elem` map taskId ready) Test.@?= True,
+      Test.unit "child task gets sequential ID" <| do
+        parent <- createTask "Parent" Epic Nothing Nothing P2 []
+        child1 <- createTask "Child 1" WorkTask (Just (taskId parent)) Nothing P2 []
+        child2 <- createTask "Child 2" WorkTask (Just (taskId parent)) Nothing P2 []
+        taskId child1 Test.@?= taskId parent <> ".1"
+        taskId child2 Test.@?= taskId parent <> ".2"
     ]
 
 -- | Test CLI argument parsing to ensure docopt string matches actual usage