feat: implement t-PpYZt2

1 files changed, 6 insertions, 1 deletions

diff --git a/Omni/Task.hs b/Omni/Task.hs
index 10136c9..9b89a1d 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -318,7 +318,12 @@ unitTests =
         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"
+        taskId child2 Test.@?= taskId parent <> ".2",
+      Test.unit "grandchild task gets sequential ID" <| do
+        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"
     ]
 
 -- | Test CLI argument parsing to ensure docopt string matches actual usage