about summary refs log blame commit diff
path: root/third_party/bazel/rules_haskell/tests/package-name/Main.hs
blob: b1e73dcbf7165134f9d6a797896fba5c1bf35676 (plain) (tree)
































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

import Control.Monad (when)

-- Test the PackageImports extension.
import "lib-a-Z" Lib

-- Test macros that GHC creates automatically based on the package version.
versionHighEnoughTest, versionTooLowTest :: Bool
#if MIN_VERSION_lib_a_Z(1,2,3)
versionHighEnoughTest = True
#else
versionHighEnoughTest = False
#endif

#if MIN_VERSION_lib_a_Z(1,2,4)
versionTooLowTest = False
#else
versionTooLowTest = True
#endif

check :: (Show a, Eq a) => a -> a -> IO ()
check x y = when (x /= y) $ error $ "Failed check: " ++ show (x, y)

main :: IO ()
main = do
    check foo 42
    check VERSION_lib_a_Z "1.2.3.4"
    check libPackageKey "testsZSpackage-nameZSlib-a-ZZ"
    check versionHighEnoughTest True
    check versionTooLowTest True