summaryrefslogtreecommitdiff
path: root/Logs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-06-17 13:44:19 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-06-17 13:44:19 -0400
commit12a12a33789a6d191617d031963a998a479f49ba (patch)
tree0394f4b9356e7e9ae3f89f353a1fcc9fb13a056c /Logs
parentb662946a474d9a616dd7af68f9893a68191b9300 (diff)
add test case that all standard group preferred content expressions parse
Diffstat (limited to 'Logs')
-rw-r--r--Logs/PreferredContent.hs6
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]