Cabal-tests/tests/UnitTests/Distribution/PackageDescription/Check.hs

   1 module UnitTests.Distribution.PackageDescription.Check (tests) where
   2
   3 import Distribution.Compat.Prelude.Internal
   4 import Prelude ()
   5
   6 import Distribution.PackageDescription.Check
   7
   8 import Test.Tasty
   9 import Test.Tasty.HUnit
  10
  11 -- instances
  12 import Test.QuickCheck.Instances.Cabal ()
  13
  14
  15 tests :: [TestTree]
  16 tests =
  17     [ testCase "Unique ignore strings" (uniqueNames @?= True)
  18     , testCase "Short ignore identifiers" (longerThan @?= [])
  19     , testCase "Parsimonious '-' use" (usingTooManyDashes @?= [])
  20     ]
  21   where
  22     allExplanationIdStrings :: [CheckExplanationIDString]
  23     allExplanationIdStrings = map ppCheckExplanationId [minBound..maxBound]
  24
  25     uniqueNames :: Bool
  26     uniqueNames = length allExplanationIdStrings == length (nub allExplanationIdStrings)
  27
  28     longerThan :: [CheckExplanationIDString]
  29     longerThan = filter ((>25). length) allExplanationIdStrings
  30
  31     usingTooManyDashes :: [CheckExplanationIDString]
  32     usingTooManyDashes = filter ((>2) . length . filter (=='-'))
  33                            allExplanationIdStrings
  34