Cabal-tests/tests/UnitTests/Distribution/PkgconfigVersion.hs

   1 module UnitTests.Distribution.PkgconfigVersion (pkgconfigVersionTests) where
   2
   3 import Test.Tasty
   4 import Test.Tasty.QuickCheck
   5
   6 import Distribution.Parsec                      (eitherParsec)
   7 import Distribution.Pretty
   8 import Distribution.Types.PkgconfigVersionRange
   9
  10 import Test.QuickCheck.Instances.Cabal ()
  11
  12 pkgconfigVersionTests :: [TestTree]
  13 pkgconfigVersionTests =
  14     [ testProperty "simpleParsec . prettyShow = Just" prop_parse_disp
  15     ]
  16
  17 prop_parse_disp :: PkgconfigVersionRange -> Property
  18 prop_parse_disp vr = counterexample (show (prettyShow vr)) $
  19     eitherParsec (prettyShow vr) === Right vr