{-# LANGUAGE LambdaCase #-}

module BNFC.Backend.Common.MakefileSpec where

import Test.Hspec

import BNFC.Backend.Base (GeneratedFile(..), execBackend)
import BNFC.Options (defaultOptions,optMake)
import BNFC.Backend.Common.Makefile -- SUT

spec :: Spec
spec = do
  describe "mkMakefile" $ do
    it "uses the names in the options dictionary" $
      let opts = defaultOptions { optMake = Just "MyMakefile" } in
      execBackend (mkMakefile (optMake opts) (const "")) >>=
        (`shouldSatisfy` \case
           [ GeneratedFile "MyMakefile" _ "" ] -> True
           _ -> False
        )