From 65c0b02b23a8b3125b0c10112d48c1a637f01cf9 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 21 Nov 2025 03:18:01 -0500 Subject: feat: implement t-rWacMb1av --- Omni/Task.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'Omni/Task.hs') diff --git a/Omni/Task.hs b/Omni/Task.hs index 24e528b..4a36dcf 100644 --- a/Omni/Task.hs +++ b/Omni/Task.hs @@ -352,7 +352,16 @@ unitTests = -- Create a new child, it should get .4, not .2 child4 <- createTask "Child 4" WorkTask (Just (taskId parent)) Nothing P2 [] - taskId child4 Test.@?= taskId parent <> ".4" + taskId child4 Test.@?= taskId parent <> ".4", + Test.unit "task lookup is case insensitive" <| do + task <- createTask "Case sensitive" WorkTask Nothing Nothing P2 [] + let tid = taskId task + upperTid = T.toUpper tid + tasks <- loadTasks + let found = findTask upperTid tasks + case found of + Just t -> taskId t Test.@?= tid + Nothing -> Test.assertFailure "Could not find task with upper case ID" ] -- | Test CLI argument parsing to ensure docopt string matches actual usage -- cgit v1.2.3