1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
{-# LANGUAGE DeriveGeneric #-}
module ModifiersSpec where
import Data.Char
import Data.List
import Test.Hspec
import Util
import WithCli.Pure
import WithCli.Pure.RecordSpec
spec :: Spec
spec = do
describe "AddShortOption" $ do
it "allows modifiers for short options" $ do
modsParse [AddShortOption "camelCase" 'x'] "-x foo"
`shouldBe` Success (CamelCaseOptions "foo")
it "allows modifiers in camelCase" $ do
modsParse [AddShortOption "camelCase" 'x'] "-x foo"
`shouldBe` Success (CamelCaseOptions "foo")
let parse' :: String -> Result CamelCaseOptions
parse' = modsParse [AddShortOption "camelCase" 'x']
it "includes the short option in the help" $ do
let OutputAndExit output = parse' "--help"
output `shouldContain` "-x STRING"
describe "RenameOption" $ do
it "allows renaming options" $ do
modsParse [RenameOption "camelCase" "bla"] "--bla foo"
`shouldBe` Success (CamelCaseOptions "foo")
context "when shadowing earlier modifiers with later modifiers" $ do
let parse' = modsParse
[RenameOption "camelCase" "foo", RenameOption "camelCase" "bar"]
it "uses the later renaming" $ do
parse' "--bar foo" `shouldBe` Success (CamelCaseOptions "foo")
it "disregards the earlier renaming" $ do
let Errors errs = parse' "--foo foo"
errs `shouldContain` "unrecognized option `--foo'\n"
it "contains renamed options in error messages" $ do
let Errors errs = modsParse
[RenameOption "camelCase" "foo"]
"" :: Result CamelCaseOptions
show errs `shouldNotContain` "camelCase"
show errs `shouldNotContain` "camel-case"
show errs `shouldContain` "foo"
it "" $ do
modsParse [RenameOption "bar" "one", RenameOption "baz" "two"] "--one 1 --two foo"
`shouldBe` Success (Foo (Just 1) "foo" False)
describe "AddVersionFlag" $ do
it "implements --version" $ do
let OutputAndExit output = modsParse [AddVersionFlag "1.0.0"] "--version" :: Result Foo
output `shouldBe` "prog-name version 1.0.0\n"
it "--help takes precedence over --version" $ do
let OutputAndExit output = modsParse [AddVersionFlag "1.0.0"] "--version --help" :: Result Foo
output `shouldSatisfy` ("show help and exit" `isInfixOf`)
it "--version shows up in help output" $ do
let OutputAndExit output = modsParse [AddVersionFlag "1.0.0"] "--help" :: Result Foo
output `shouldSatisfy` ("show version and exit" `isInfixOf`)
describe "AddOptionHelp" $ do
it "allows specifying a flag specific help" $ do
let mods = [AddOptionHelp "baz" "baz help text"]
OutputAndExit output =
modsParse mods "--help" :: Result Foo
barLine =
map (dropWhile isSpace) $
filter ("--baz" `isInfixOf`) $ lines output
barLine `shouldBe` ["--baz=STRING baz help text"]
it "uses the last AddOptionHelp if multiple are given" $ do
let mods =
AddOptionHelp "baz" "baz help text" :
AddOptionHelp "baz" "later baz help text" :
[]
OutputAndExit output =
modsParse mods "--help" :: Result Foo
barLine =
map (dropWhile isSpace) $
filter ("--baz" `isInfixOf`) $ lines output
barLine `shouldBe` ["--baz=STRING later baz help text"]
|
