yam-0.5.6: 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

main = hspec spec

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

specConfig = do
  context "randomTest" $ do
    it "random" $ do
      monadicIO $ do
        s <- run $ randomString
        assert (B.length s == 16)