sensei-0.8.0: test/OptionsSpec.hs

module OptionsSpec (main, spec) where

import           Helper

import           Options

main :: IO ()
main = hspec spec

spec :: Spec
spec = do
  describe "splitArgs" $ do
    it "returns longest matching list of Hspec options from end of given list" $ do
      splitArgs ["foo", "--bar", "-m", "FooSpec", "-a", "1000"] `shouldBe` (["foo", "--bar"], ["-m", "FooSpec", "-a", "1000"])

    it "assumes everything after the last '--' to be Hspec options" $ do
      splitArgs ["foo", "bar", "--", "foo", "baz"] `shouldBe` (["foo", "bar"], ["foo", "baz"])

    context "with -p" $ do
      it "recognizes -p as an Hspec option" $ do
        splitArgs ["-p"] `shouldBe` ([], ["-p"])

      it "recognizes -pN as an Hspec option" $ do
        splitArgs ["-p20"] `shouldBe` ([], ["-p20"])

      it "recognizes -packageNAME as a GHC option" $ do
        splitArgs ["-packagebase"] `shouldBe` (["-packagebase"], [])