mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
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 = LogLine
<$> arbitrary <$> arbitrary
<*> elements [minBound..maxBound] <*> 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 :: [LogLine] -> Bool
prop_parse_show_log l = parseLog (showLog l) == l prop_parse_show_log l = parseLog (showLog l) == l