module Main ( main ) where

import Control.DeepSeq
import Control.Exception
import Data.Set ( empty )
import Distribution.Nixpkgs.License
import Distribution.Nixpkgs.Meta
import Test.Hspec

main :: IO ()
main = do
  hspec $ do
    describe "DeepSeq instances work properly for" $ do
      it "License" $ mapM_ hitsBottom [Known undefined, Unknown (Just undefined)]
      it "Meta" $ do let meta = Meta "" "" (Unknown Nothing) empty empty empty False
                     mapM_ hitsBottom
                       [ meta { homepage = undefined }
                       , meta { description = undefined }
                       , meta { license = undefined }
                       , meta { platforms = undefined }
                       , meta { maintainers = undefined }
                       , meta { broken = undefined }
                       ]

hitsBottom :: NFData a => a -> Expectation
hitsBottom x = evaluate (rnf x) `shouldThrow` anyErrorCall