diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-01-26 12:01:56 +0100 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-01-26 12:01:56 +0100 |
commit | 723e6a391eb5a93036048c74ac94a17fca12c02a (patch) | |
tree | b4000efa9ada7e734d08e7e645062c7855ae4c12 /test/runTests.hs | |
parent | 44c351c677c3361271862b461a9ab10220575ea0 (diff) |
refactoring: move ESC handling to Pretty.hs
Diffstat (limited to 'test/runTests.hs')
-rw-r--r-- | test/runTests.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index b8478f64..d23113fc 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
@@ -87,8 +87,8 @@ data Config | |||
87 | arguments :: Parser (Config, [String]) | 87 | arguments :: Parser (Config, [String]) |
88 | arguments = | 88 | arguments = |
89 | (,) <$> (Config <$> switch (short 'v' <> long "verbose" <> help "Verbose output during test runs") | 89 | (,) <$> (Config <$> switch (short 'v' <> long "verbose" <> help "Verbose output during test runs") |
90 | <*> switch (short 'r' <> long "reject" <> help "Reject new and different values inmediatelly") | 90 | <*> switch (short 'r' <> long "reject" <> help "Reject test cases with missing, new or different .out files") |
91 | <*> option (realToFrac <$> (auto :: ReadM Double)) (value 60 <> short 't' <> long "notimeout" <> help "Disable timeout for tests (in seconds)")) | 91 | <*> option (realToFrac <$> (auto :: ReadM Double)) (value 60 <> short 't' <> long "timeout" <> help "Timeout for tests in seconds")) |
92 | <*> many (strArgument idm) | 92 | <*> many (strArgument idm) |
93 | 93 | ||
94 | data Res = Passed | Accepted | New | TimedOut | Rejected | Failed | ErrorCatched | 94 | data Res = Passed | Accepted | New | TimedOut | Rejected | Failed | ErrorCatched |