hexagoxel
/
butcher
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Add more tests for params with/without defaults

pull/6/head
Lennart Spitzner 2020-04-10 23:29:24 +02:00
parent 707050f881
commit d4b3555b77
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src-tests/TestMain.hs
View File

@ -118,6 +118,18 @@ simpleRunTest = do
it "case 4" $ testRun' testCmd7 "abc -f" `shouldBe` Right (Just (["abc"], 1)) it "case 4" $ testRun' testCmd7 "abc -f" `shouldBe` Right (Just (["abc"], 1))
it "case 5" $ testRun' testCmd7 "-g abc -f" `shouldBe` Right (Just (["abc"], 3)) it "case 5" $ testRun' testCmd7 "-g abc -f" `shouldBe` Right (Just (["abc"], 3))
it "case 6" $ testRun' testCmd7 "abc -g def" `shouldBe` Right (Just (["abc", "def"], 2)) it "case 6" $ testRun' testCmd7 "abc -g def" `shouldBe` Right (Just (["abc", "def"], 2))
describe "defaultParam" $ do
it "case 1" $ testRun testCmdParam "" `shouldSatisfy` Data.Either.isLeft
it "case 2" $ testRun testCmdParam "n" `shouldSatisfy` Data.Either.isLeft
it "case 3" $ testRun testCmdParam "y" `shouldSatisfy` Data.Either.isLeft
it "case 4" $ testRun testCmdParam "False n" `shouldBe` Right (Just 110)
it "case 5" $ testRun testCmdParam "False y" `shouldBe` Right (Just 310)
it "case 6" $ testRun testCmdParam "True n" `shouldBe` Right (Just 1110)
it "case 7" $ testRun testCmdParam "True y" `shouldBe` Right (Just 1310)
it "case 8" $ testRun testCmdParam "1 False y" `shouldBe` Right (Just 301)
it "case 9" $ testRun testCmdParam "1 False y def" `shouldBe` Right (Just 201)
it "case 10" $ testRun testCmdParam "1 False 2 y def" `shouldBe` Right (Just 203)
it "case 11" $ testRun testCmdParam "1 True 2 y def" `shouldBe` Right (Just 1203)
describe "completions" $ do describe "completions" $ do
it "case 1" $ testCompletion completionTestCmd "" `shouldBe` "" it "case 1" $ testCompletion completionTestCmd "" `shouldBe` ""
it "case 2" $ testCompletion completionTestCmd "a" `shouldBe` "bc" it "case 2" $ testCompletion completionTestCmd "a" `shouldBe` "bc"
@ -215,6 +227,21 @@ testCmd7 = do
when g $ WriterS.tell 2 when g $ WriterS.tell 2
pure args pure args
testCmdParam :: CmdParser Identity (WriterS.Writer (Sum Int) ()) ()
testCmdParam = do
p :: Int <- addParamRead "INT" (paramDefault 10)
b <- addParamRead "MANDR" mempty
r <- addParamReadOpt "MAY1" (paramDefault 20)
s <- addParamString "MAND" mempty
q <- addParamString "STR" (paramDefault "abc")
addCmdImpl $ do
WriterS.tell (Sum p)
when (q=="abc") $ WriterS.tell 100
r `forM_` (WriterS.tell . Sum)
when b $ WriterS.tell $ Sum 1000
when (s=="y") $ WriterS.tell 200
pure ()
completionTestCmd :: CmdParser Identity () () completionTestCmd :: CmdParser Identity () ()
completionTestCmd = do completionTestCmd = do
addCmd "abc" $ do addCmd "abc" $ do