diff options
Diffstat (limited to 'Omni/Task.hs')
| -rw-r--r-- | Omni/Task.hs | 9 |
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 |