diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-28 20:27:04 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-28 20:27:04 +0530 |
| commit | b305546950a6742f25023e2ffece423905e1bda8 (patch) | |
| tree | 279f16bc685d4d3ac90b947dbaa1bfd8ef17265f /specs/Specs/ArgsSpec.hs | |
| parent | 568923344f0941b2771459dd8dbe935ac971a968 (diff) | |
| download | chelleport-b305546950a6742f25023e2ffece423905e1bda8.tar.gz chelleport-b305546950a6742f25023e2ffece423905e1bda8.zip | |
Refactor mode data type
Diffstat (limited to '')
| -rw-r--r-- | specs/Specs/ArgsSpec.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/specs/Specs/ArgsSpec.hs b/specs/Specs/ArgsSpec.hs index caaab75..8a97623 100644 --- a/specs/Specs/ArgsSpec.hs +++ b/specs/Specs/ArgsSpec.hs @@ -20,10 +20,10 @@ test = do context "when args contains -m or --mode with a valid mode" $ do it "parses configuration with mode" $ do - parseArgs ["-m", "search"] `shouldBe` Right (def {configMode = defaultSearchMode}) - parseArgs ["--mode", "search"] `shouldBe` Right (def {configMode = defaultSearchMode}) - parseArgs ["-m", "hints"] `shouldBe` Right (def {configMode = defaultHintsMode}) - parseArgs ["--mode", "hints"] `shouldBe` Right (def {configMode = defaultHintsMode}) + parseArgs ["-m", "search"] `shouldBe` Right (def {configMode = ModeSearch def}) + parseArgs ["--mode", "search"] `shouldBe` Right (def {configMode = ModeSearch def}) + parseArgs ["-m", "hints"] `shouldBe` Right (def {configMode = ModeHints def}) + parseArgs ["--mode", "hints"] `shouldBe` Right (def {configMode = ModeHints def}) context "when args contains -m or --mode with an invalid mode" $ do it "returns with error message" $ do |