mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove \r from Arbitrary for log tests

Browse source
This commit is contained in:
Joey Hess 2016-05-27 12:04:49 -04:00
parent 5418c8a23a
commit 176cd98293
Failed to extract signature
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Logs/Presence/Pure.hs
View file

@ -99,7 +99,8 @@ instance Arbitrary LogLine where
arbitrary = LogLine
<$> arbitrary
<*> elements [minBound..maxBound]
<*> arbitrary `suchThat` ('\n' `notElem`)
<*> arbitrary `suchThat`
(\c -> '\n' `notElem` c && '\r' `notElem` c)
prop_parse_show_log :: [LogLine] -> Bool
prop_parse_show_log l = parseLog (showLog l) == l