diff options
| -rw-r--r-- | Types/MetaData.hs | 5 | ||||
| -rw-r--r-- | Types/View.hs | 6 |
2 files changed, 5 insertions, 6 deletions
diff --git a/Types/MetaData.hs b/Types/MetaData.hs index bc7c3eea3e..fce941c576 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -337,9 +337,8 @@ fromRemoteMetaData (RemoteMetaData u (MetaData m)) = MetaData $ - the seriaization test slow due to the sheer amount of data. - It's unlikely that more than 100 fields of metadata will be used. -} instance Arbitrary MetaData where - arbitrary = do - size <- arbitrarySizedBoundedIntegral `suchThat` (< 500) - MetaData . M.filterWithKey legal . M.fromList <$> vector size + arbitrary = MetaData . M.filterWithKey legal . M.fromList + <$> resize 10 (listOf arbitrary) where legal k _v = legalField $ fromMetaField k diff --git a/Types/View.hs b/Types/View.hs index a6c52b3d28..f18647371d 100644 --- a/Types/View.hs +++ b/Types/View.hs @@ -23,7 +23,8 @@ data View = View deriving (Eq, Read, Show) instance Arbitrary View where - arbitrary = View <$> pure (Git.Ref "master") <*> arbitrary + arbitrary = View (Git.Ref "master") + <$> resize 10 (listOf arbitrary) data ViewComponent = ViewComponent { viewField :: MetaField @@ -43,8 +44,7 @@ data ViewFilter instance Arbitrary ViewFilter where arbitrary = do - size <- arbitrarySizedBoundedIntegral `suchThat` (< 100) - s <- S.fromList <$> vector size + s <- S.fromList <$> resize 10 (listOf arbitrary) ifM arbitrary ( return (FilterValues s) , return (ExcludeValues s) |