yam-0.5.0: test/Spec.hs

{-# LANGUAGE FlexibleContexts    #-}
{-# LANGUAGE OverloadedStrings   #-}
{-# LANGUAGE ScopedTypeVariables #-}

module Main where


import           Control.Monad.IO.Class
import           Data.Aeson
import           Data.Maybe
import qualified Data.Salak              as S
import           Data.Text               (Text)
import qualified Data.Text               as T
import           Test.Hspec
import           Test.QuickCheck
import           Test.QuickCheck.Monadic
import           Yam

main = hspec spec

spec :: Spec
spec = do
  describe "Yam.Config" specConfig

specConfig = do
  context "configuration" $ do
    it "load" $ do
      p <- S.defaultPropertiesWithFile "yam_test.yml"
      let get :: S.FromProperties a => Text -> Maybe a
          get = flip S.lookup p
      -- let dsf = get "yam.datasource" :: Maybe DataSourceConfig
      -- shouldSatisfy dsf isJust
      let conf = get "yam.application" :: Maybe AppConfig
      shouldSatisfy conf isJust
      -- datasource <$> conf `shouldBe` dsf
  context "randomTest" $ do
    it "random" $ do
      monadicIO $ do
        s <- run $ randomString 14
        assert (T.length s == 14)