curl-runnings-0.2.0: test/Spec.hs

module Main where

import           System.Directory
import           Test.Hspec
import           Testing.CurlRunnings

isRight :: Either a b -> Bool
isRight (Right _) = True
isRight _         = False

main :: IO ()
main = hspec $
  describe "Curl Runnings" $ do
  it "should provide valid example yaml specs" $
    testValidSpec "/examples/example-spec.yaml"

  it "should provide valid example json specs" $
    testValidSpec "/examples/example-spec.json"

testValidSpec :: String -> IO ()
testValidSpec file = do
  currentDirectory <- getCurrentDirectory
  spec <- decodeFile (currentDirectory ++ file)
  spec `shouldSatisfy` isRight