yam-0.6.0: test/Spec.hs

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

module Main where

import qualified Data.ByteString         as B
import           Test.Hspec
import           Test.QuickCheck.Monadic
import           Yam.Prelude

main :: IO ()
main = hspec spec

spec :: Spec
spec = do
  describe "Yam.Config" specConfig
  where
    specConfig = do
      context "randomTest" $ do
        it "random" $ do
          monadicIO $ do
            s <- run $ randomString
            assert (B.length s == 16)