lord-2.20131201: test/main.hs

{-# LANGUAGE OverloadedStrings #-}
import Data.Maybe (fromJust)
import Test.Hspec
import Test.HUnit

import Radio
import qualified Radio.Cmd as Cmd
import qualified Radio.EightTracks as ET
import Radio.Douban
import Radio.Jing
import qualified Radio.Reddit as Reddit


main :: IO ()
main = hspec spec

spec :: Spec
spec = describe "getPlaylist" $ do
    it "cmd: given genre" $ do
        ss <- Radio.getPlaylist (Cmd.Genre "Dream Pop")
        assert $ not $ null ss

    it "douban: given channel id" $ do
        ss <- Radio.getPlaylist (Cid 6)
        assert $ not $ null ss

    it "douban: given musician name" $ do
        ss <- Radio.getPlaylist (Musician "Sigur RóS")
        assert $ not $ null ss

    it "8tracks: given mix id" $ do
        tok <- readToken "14" :: IO (Maybe (Radio.Param ET.EightTracks))
        ss <- Radio.getPlaylist $ fromJust tok
        assert $ not $ null ss

    it "jing: given keywords" $ do
        tok <- readToken "postrock" :: IO (Maybe (Radio.Param Jing))
        ss <- Radio.getPlaylist $ fromJust tok
        assert $ not $ null ss

    it "reddit: given genre" $ do
        ss <- Radio.getPlaylist (Reddit.Genre "indie")
        assert $ not $ null ss