diff options
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/PreferredContent.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Logs/PreferredContent.hs b/Logs/PreferredContent.hs index 6c885041a..a81c16f26 100644 --- a/Logs/PreferredContent.hs +++ b/Logs/PreferredContent.hs @@ -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] |