From 12a12a33789a6d191617d031963a998a479f49ba Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 17 Jun 2015 13:44:19 -0400 Subject: add test case that all standard group preferred content expressions parse --- Logs/PreferredContent.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Logs/PreferredContent.hs') 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] -- cgit v1.2.3