fakedata-0.4.0: test/BossaNovaSpec.hs

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

module BossaNovaSpec where

import Config
import qualified Data.Map as M
import Data.Text hiding (all, map)
import qualified Data.Text as T
import qualified Data.Vector as V
import Faker
import Faker.BossaNova
import Test.Hspec

spec :: Spec
spec = do
  describe "BossaNova" $ do
    it "generates BossaNova artist (sanity TH check)" $ do
      aname <- generate artists
      aname `shouldBe` "Johnny Alf"