diff --git a/test/optparse-test/ListTest.hs b/test/optparse-test/ListTest.hs index 670426d..722e53b 100644 --- a/test/optparse-test/ListTest.hs +++ b/test/optparse-test/ListTest.hs @@ -1,4 +1,5 @@ module ListTest where + import Test.Tasty import GHCup.OptParse import Utils @@ -28,6 +29,15 @@ listCheckList = , ("list -c available", defaultOptions{lCriteria = Just $ ListAvailable True}) , ("list -c +available", defaultOptions{lCriteria = Just $ ListAvailable True}) , ("list -c -available", defaultOptions{lCriteria = Just $ ListAvailable False}) + , ("list -s 2023-07-22", defaultOptions{lFrom = Just $ read "2023-07-22"}) + , ("list -u 2023-07-22", defaultOptions{lTo = Just $ read "2023-07-22"}) + , ("list --since 2023-07-22 --until 2023-07-22", defaultOptions{lFrom = Just $ read "2023-07-22", lTo = Just $ read "2023-07-22"}) + , ("list -o", defaultOptions{lHideOld = True}) + , ("list --hide-old", defaultOptions{lHideOld = True}) + , ("list -n", defaultOptions{lShowNightly = True}) + , ("list --show-nightly", defaultOptions{lShowNightly = True}) + , ("list -r", defaultOptions{lRawFormat = True}) + , ("list --raw-format", defaultOptions{lRawFormat = True}) ] listParseWith :: [String] -> IO ListOptions