ilyakooo0/optparse-applicative
1
0
Fork 0
mirror of https://github.com/ilyakooo0/optparse-applicative.git synced 2024-09-11 10:45:25 +03:00
Code Issues Projects Releases Wiki Activity

Fix suggestions test

Browse Source
This commit is contained in:
Huw Campbell 2018-06-05 14:07:25 +10:00
parent d1c8396f59
commit 7b2175bfc6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test.hs
View File

@ -649,16 +649,16 @@ prop_many_pairs_lazy_progress = once $
prop_suggest :: Property
prop_suggest = once $
let p2 = subparser (command "reachable" (info (pure ()) idm))
p1 = subparser (command "unreachable" (info (pure ()) idm))
p = (,) <$> p2 <*> p1
let p2 = subparser (command "first" (info (pure ()) idm))
p1 = subparser (command "fst" (info (pure ()) idm))
p3 = subparser (command "far-off" (info (pure ()) idm))
p = p2 *> p1 *> p3
i = info p idm
result = run i ["ureachable"]
result = run i ["fist"]
in assertError result $ \failure ->
let (msg, _) = renderFailure failure "prog"
in counterexample msg
$ isInfixOf "Did you mean this?\n reachable" msg
.&. not (isInfixOf "unreachable" msg)
$ isInfixOf "Did you mean one of these?\n first\n fst" msg
prop_bytestring_reader :: Property
prop_bytestring_reader = once $