diff options
Diffstat (limited to 'Omni/Task.hs')
| -rw-r--r-- | Omni/Task.hs | 33 |
1 files changed, 28 insertions, 5 deletions
diff --git a/Omni/Task.hs b/Omni/Task.hs index 663cc02..c078a3e 100644 --- a/Omni/Task.hs +++ b/Omni/Task.hs @@ -81,7 +81,7 @@ Options: --type=<type> Task type: epic, task, or human (default: task) --parent=<id> Parent epic ID --priority=<p> Priority: 0-4 (0=critical, 4=backlog, default: 2) - --status=<status> Filter by status: open, in-progress, review, approved, done + --status=<status> Filter by status: draft, open, in-progress, review, approved, done --epic=<id> Filter stats by epic (recursive) --deps=<ids> Comma-separated list of dependency IDs --dep-type=<type> Dependency type: blocks, discovered-from, parent-child, related @@ -99,7 +99,7 @@ Options: Arguments: <title> Task title <id> Task ID - <status> Task status (open, in-progress, review, approved, done) + <status> Task status (draft, open, in-progress, review, approved, done) <file> JSONL file to import |] @@ -208,11 +208,12 @@ move' args Just other -> panic <| "Invalid priority: " <> T.pack other <> ". Use: 0-4" maybeStatus <- case Cli.getArg args (Cli.longOption "status") of Nothing -> pure Nothing + Just "draft" -> pure <| Just Draft Just "open" -> pure <| Just Open Just "in-progress" -> pure <| Just InProgress Just "review" -> pure <| Just Review Just "done" -> pure <| Just Done - Just other -> panic <| "Invalid status: " <> T.pack other <> ". Use: open, in-progress, review, or done" + Just other -> panic <| "Invalid status: " <> T.pack other <> ". Use: draft, open, in-progress, review, or done" maybeNamespace <- case Cli.getArg args (Cli.longOption "namespace") of Nothing -> pure Nothing Just ns -> do @@ -270,12 +271,13 @@ move' args Just p -> pure <| Just (T.pack p) maybeStatus <- case Cli.getArg args (Cli.longOption "status") of Nothing -> pure Nothing + Just "draft" -> pure <| Just Draft Just "open" -> pure <| Just Open Just "in-progress" -> pure <| Just InProgress Just "review" -> pure <| Just Review Just "approved" -> pure <| Just Approved Just "done" -> pure <| Just Done - Just other -> panic <| "Invalid status: " <> T.pack other <> ". Use: open, in-progress, review, approved, or done" + Just other -> panic <| "Invalid status: " <> T.pack other <> ". Use: draft, open, in-progress, review, approved, or done" maybeNamespace <- case Cli.getArg args (Cli.longOption "namespace") of Nothing -> pure Nothing Just ns -> do @@ -323,12 +325,13 @@ move' args pure (map (\d -> Dependency {depId = d, depType = dtype}) ids) let newStatus = case statusStr of + "draft" -> Draft "open" -> Open "in-progress" -> InProgress "review" -> Review "approved" -> Approved "done" -> Done - _ -> panic "Invalid status. Use: open, in-progress, review, approved, or done" + _ -> panic "Invalid status. Use: draft, open, in-progress, review, approved, or done" -- Show verification checklist warning when marking Done without --verified when (newStatus == Done && not isVerified && not (isJsonMode args)) <| do @@ -449,6 +452,11 @@ unitTests = task <- createTask "Human Task" HumanTask Nothing Nothing P2 [] Nothing ready <- getReadyTasks (taskId task `notElem` map taskId ready) Test.@?= True, + Test.unit "ready tasks exclude draft tasks" <| do + task <- createTask "Draft Task" WorkTask Nothing Nothing P2 [] Nothing + updateTaskStatus (taskId task) Draft [] + ready <- getReadyTasks + (taskId task `notElem` map taskId ready) Test.@?= True, Test.unit "can create task with description" <| do task <- createTask "Test task" WorkTask Nothing Nothing P2 [] (Just "My description") taskDescription task Test.@?= Just "My description", @@ -772,6 +780,13 @@ cliTests = Right args -> do args `Cli.has` Cli.command "list" Test.@?= True Cli.getArg args (Cli.longOption "status") Test.@?= Just "approved", + Test.unit "list with --status=draft filter" <| do + let result = Docopt.parseArgs help ["list", "--status=draft"] + case result of + Left err -> Test.assertFailure <| "Failed to parse 'list --status=draft': " <> show err + Right args -> do + args `Cli.has` Cli.command "list" Test.@?= True + Cli.getArg args (Cli.longOption "status") Test.@?= Just "draft", Test.unit "ready command" <| do let result = Docopt.parseArgs help ["ready"] case result of @@ -800,6 +815,14 @@ cliTests = args `Cli.has` Cli.command "update" Test.@?= True Cli.getArg args (Cli.argument "id") Test.@?= Just "t-abc123" Cli.getArg args (Cli.argument "status") Test.@?= Just "approved", + Test.unit "update command with draft" <| do + let result = Docopt.parseArgs help ["update", "t-abc123", "draft"] + case result of + Left err -> Test.assertFailure <| "Failed to parse 'update ... draft': " <> show err + Right args -> do + args `Cli.has` Cli.command "update" Test.@?= True + Cli.getArg args (Cli.argument "id") Test.@?= Just "t-abc123" + Cli.getArg args (Cli.argument "status") Test.@?= Just "draft", Test.unit "update with --json flag" <| do let result = Docopt.parseArgs help ["update", "t-abc123", "done", "--json"] case result of |