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

avoid generating arbitrary MetaData with illegal fields

Browse source
This commit is contained in:
Joey Hess 2014-03-26 16:40:52 -04:00
parent eb3b6b7e09
commit 5c79fa0351
Failed to extract signature
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Types/MetaData.hs
View file

@ -264,7 +264,9 @@ parseMetaData p = (,)
instance Arbitrary MetaData where instance Arbitrary MetaData where
arbitrary = do arbitrary = do
size <- arbitrarySizedBoundedIntegral `suchThat` (< 500) size <- arbitrarySizedBoundedIntegral `suchThat` (< 500)
MetaData . M.fromList <$> vector size MetaData . M.filterWithKey legal . M.fromList <$> vector size
where
legal k _v = legalField $ fromMetaField k
instance Arbitrary MetaValue where instance Arbitrary MetaValue where
arbitrary = MetaValue <$> arbitrary <*> arbitrary arbitrary = MetaValue <$> arbitrary <*> arbitrary

3
doc/bugs/git_annex_test_under_windows_8.1.mdwn
View file

@ -62,3 +62,6 @@ e s tDse.t
# End of transcript or log. # End of transcript or log.
"""]] """]]
> A sort of windows-specific bug in the test suite. I've fixed it. [[done]]
> --[[Joey]]