UserSpec.hs

{-# LANGUAGE CPP, OverloadedStrings #-}
module Sound.Freesound.UserSpec (spec) where

import           Data.Default (def)
import           Data.List (find)
import           Data.Maybe (fromJust)
import qualified Data.Set as Set
import           Sound.Freesound
import qualified Sound.Freesound.Bookmark as Bookmark
import qualified Sound.Freesound.Pack as Pack
import           Sound.Freesound.Search
import qualified Sound.Freesound.Sound as Sound
import qualified Sound.Freesound.User as User
import           Sound.Freesound.Test
import           Test.Hspec

#if __GLASGOW_HASKELL__ < 710
import           Control.Applicative
#endif

k0s :: Freesound User.User
k0s = User.getUserByName "k0s"

spec :: Spec
spec = do
  describe "k0s" $ do
    it "can be retrieved by name" $ do
      u <- fs k0s
      User.username u `shouldBe` "k0s"
    it "has the correct date" $ do
      u <- fs k0s
      User.dateJoined u `shouldBe` read "2007-02-02 17:32:34 UTC"
    it "has the correct number of sounds" $ do
      u <- fs k0s
      sounds <- fs $ get $ User.sounds u
      numElems sounds `shouldBe` User.numSounds u
    it "has the correct set of sounds" $ do
      sounds <- fs $ getAll =<< get . User.sounds =<< k0s
      sounds' <- fs $ getAll =<< search def def (username "k0s") def
      Set.fromList (map Sound.id sounds) `shouldBe` Set.fromList (map Sound.id sounds')
    it "has a pack called \"Nokia 2600\" containing 2 sounds" $ do
      u <- fs k0s
      l <- fs . get . User.packs $ u
      numElems l `shouldSatisfy` (>=1)
      r <- fs $ find (\p -> Pack.name p == "Nokia 2600") <$> getAll l
      r `shouldNotBe` Nothing
      let p = fromJust r
      Pack.numSounds p `shouldBe` 2
      Pack.username p `shouldBe` User.username u
      sounds <- fs . get . Pack.sounds $ p
      numElems sounds `shouldBe` 2
      length (elems sounds) `shouldBe` 2
    it "has haskell-freesound bookmark category" $ do
      l <- fs $ get . User.bookmarkCategories =<< k0s
      -- More than one category
      numElems l `shouldSatisfy` (>=1)
      -- Test bookmark category
      b <- fs $ find (\b -> Bookmark.name b == "haskell-freesound-tests") <$> getAll l
      b `shouldNotBe` Nothing
      -- Number of sounds in category
      Bookmark.numSounds (fromJust b) `shouldBe` 1
      sounds <- fs . get . Bookmark.sounds . fromJust $ b
      numElems sounds `shouldBe` 1
      -- Correct sound in category
      elems sounds `shouldSatisfy` (not.null)
      Sound.id (head (elems sounds)) `shouldBe` Sound.SoundId 250719