base-orphans-0.4.4: test/Data/Bits/OrphansSpec.hs

{-# LANGUAGE CPP #-}
module Data.Bits.OrphansSpec (main, spec) where

import Test.Hspec

#if MIN_VERSION_base(4,6,0)
import Data.Bits
import Data.Orphans ()
#endif

main :: IO ()
main = hspec spec

spec :: Spec
spec =
#if MIN_VERSION_base(4,6,0)
  describe "Bits Bool instance" $
    it "allows bitwise operations on Bools" $ do
      True  .&. True  `shouldBe` True
      True  .&. False `shouldBe` False
      False .&. True  `shouldBe` False
      False .&. False `shouldBe` False
#else
  return ()
#endif