feat: implement t-PpYZt2

1 files changed, 8 insertions, 1 deletions

diff --git a/Omni/Task.hs b/Omni/Task.hs
index 9b89a1d..6624b31 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -323,7 +323,14 @@ unitTests =
         parent <- createTask "Grandparent" Epic Nothing Nothing P2 []
         child <- createTask "Parent" Epic (Just (taskId parent)) Nothing P2 []
         grandchild <- createTask "Grandchild" WorkTask (Just (taskId child)) Nothing P2 []
-        taskId grandchild Test.@?= taskId parent <> ".1.1"
+        taskId grandchild Test.@?= taskId parent <> ".1.1",
+      Test.unit "siblings of grandchild task get sequential ID" <| do
+        parent <- createTask "Grandparent" Epic Nothing Nothing P2 []
+        child <- createTask "Parent" Epic (Just (taskId parent)) Nothing P2 []
+        grandchild1 <- createTask "Grandchild 1" WorkTask (Just (taskId child)) Nothing P2 []
+        grandchild2 <- createTask "Grandchild 2" WorkTask (Just (taskId child)) Nothing P2 []
+        taskId grandchild1 Test.@?= taskId parent <> ".1.1"
+        taskId grandchild2 Test.@?= taskId parent <> ".1.2"
     ]
 
 -- | Test CLI argument parsing to ensure docopt string matches actual usage