From 9a256f5c8232713ee99cb78093434a32c304e192 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 20 Nov 2025 19:12:52 -0500 Subject: feat: implement t-PpYZt2 --- Omni/Task.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'Omni') 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 -- cgit v1.2.3