{-# LANGUAGE QuasiQuotes #-} module Test.Script ( scriptSpec ) where import NeatInterpolation (text) import Test.Hspec (Spec, describe, it, shouldBe) import Summoner.GhcVer (GhcVer (..)) import Summoner.Settings (Tool (..)) import Summoner.Template.Script (scriptFile) scriptSpec :: Spec scriptSpec = describe "script golden tests" $ do it "correctly creates cabal script" $ scriptFile Ghc844 Cabal `shouldBe` cabalScript it "correctly creates stack script" $ scriptFile Ghc865 Stack `shouldBe` stackScript cabalScript :: Text cabalScript = [text| #!/usr/bin/env cabal {- cabal: build-depends: , base ^>= 4.11.1.0 -} main :: IO () main = putStrLn "Hello, World!" |] stackScript :: Text stackScript = [text| #!/usr/bin/env stack {- stack --resolver lts-14.18 script --package base -} main :: IO () main = putStrLn "Hello, World!" |]