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

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