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
|
module OptionsSpec (spec) where
import Prelude ()
import Prelude.Compat
import Test.Hspec
import Test.DocTest.Internal.Options
import Test.DocTest.Internal.Logging (LogLevel(..))
spec :: Spec
spec = do
describe "parseOptions" $ do
describe "--preserve-it" $ do
context "without --preserve-it" $ do
it "does not preserve the `it` variable" $ do
cfgPreserveIt . cfgModuleConfig <$>
parseOptions [] `shouldBe` Result False
context "with --preserve-it" $ do
it "preserves the `it` variable" $ do
cfgPreserveIt . cfgModuleConfig <$>
parseOptions ["--preserve-it"] `shouldBe` Result True
context "with --no-preserve-it" $ do
it "preserves the `it` variable" $ do
cfgPreserveIt . cfgModuleConfig <$>
parseOptions ["--no-preserve-it"] `shouldBe` Result False
describe "--randomize-order" $ do
context "without --randomize-order" $ do
it "does not set randomize order" $ do
cfgRandomizeOrder . cfgModuleConfig <$>
parseOptions [] `shouldBe` Result False
context "with --randomize-order" $ do
it "sets randomize order" $ do
cfgRandomizeOrder . cfgModuleConfig <$>
parseOptions ["--randomize-order"] `shouldBe` Result True
context "with --no-randomize-order" $ do
it "unsets randomize order" $ do
cfgRandomizeOrder . cfgModuleConfig <$>
parseOptions ["--no-randomize-order"] `shouldBe` Result False
context "with --help" $ do
it "outputs usage information" $ do
parseOptions ["--help"] `shouldBe` ResultStdout usage
context "with --version" $ do
it "outputs version information" $ do
parseOptions ["--version"] `shouldBe` ResultStdout versionInfo
context "with --info" $ do
it "outputs machine readable version information" $ do
parseOptions ["--info"] `shouldBe` ResultStdout info
describe "--verbose" $ do
context "without --verbose" $ do
it "is not verbose by default" $ do
cfgLogLevel <$> parseOptions [] `shouldBe` Result Info
context "with --verbose" $ do
it "parses verbose option" $ do
cfgLogLevel <$> parseOptions ["--verbose"] `shouldBe` Result Verbose
|
