add test case that all standard group preferred content expressions parse

This commit is contained in:
Joey Hess 2015-06-17 13:44:19 -04:00
parent 2b311eebe4
commit 6e829939e9
2 changed files with 8 additions and 0 deletions

View file

@ -20,6 +20,7 @@ module Logs.PreferredContent (
setStandardGroup,
defaultStandardGroup,
preferredRequiredMapsLoad,
prop_standardGroups_parse,
) where
import qualified Data.Map as M
@ -151,3 +152,8 @@ defaultStandardGroup u g =
where
hasgroup = not . S.null <$> lookupGroups u
haspc = isJust . M.lookup u <$> preferredContentMap
prop_standardGroups_parse :: Bool
prop_standardGroups_parse =
all (isNothing . checkPreferredContentExpression . standardPreferredContent)
[ minBound .. maxBound]