diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-06-17 13:44:19 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-06-17 13:44:19 -0400 |
| commit | 12a12a33789a6d191617d031963a998a479f49ba (patch) | |
| tree | 0394f4b9356e7e9ae3f89f353a1fcc9fb13a056c /Logs | |
| parent | b662946a474d9a616dd7af68f9893a68191b9300 (diff) | |
add test case that all standard group preferred content expressions parse
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] |