jsons-to-schema-0.1.0.0: test/Main.hs

module Main where

import           Protolude

import qualified Spec
import           Test.Hspec.Runner
import System.Environment

main :: IO ()
main = do
  environment <- lookupEnv "JSON_ENVIRONMENT"
  let isLocal = fromMaybe "" environment == "local"
  hspecWith defaultConfig {configQuickCheckMaxSuccess = if isLocal then Just 10000 else Nothing} Spec.spec