critbit-0.1.0.0: tests/Main.hs

{-# LANGUAGE CPP #-}
module Main (main) where

import Test.Framework

#if MIN_VERSION_base(4,5,0)
import qualified Properties.Map as Map
import qualified Properties.Set as Set

properties :: [Test]
properties = [ testGroup "map" Map.properties,
               testGroup "set" Set.properties ]
#else
import Test.Framework.Providers.QuickCheck2 (testProperty)

-- Don't run any tests on GHC < 7.4, but *do* generate a test output
-- file that a continuous build system can consume so that it won't
-- crash. The output file can't be devoid of tests, because then
-- instead of crashing Jenkins will fail because no tests were run.
-- Thanks for being so inflexible, Jenkins!
properties = [ testProperty "fuck you, jenkins" True ]
#endif

main :: IO ()
main = defaultMain [
         testGroup "properties" properties
       ]