infer-license-0.1.0: test/Data/License/InferSpec.hs

module Data.License.InferSpec (spec) where
import           Test.Hspec

import           Control.Monad

import           Data.License.Infer

spec :: Spec
spec = do
  describe "inferLicense" $ do
    forM_ [minBound .. maxBound] $ \ l -> do
      let license = show l
      it ("infers " ++ license) $ do
        inferLicense <$> readFile ("test/resources/" ++ license) `shouldReturn` Just l

    it "rejects unknown licenses" $ do
      inferLicense (unwords $ replicate 10000 "unknown") `shouldBe` Nothing