lord-1.20131115: test/main.hs

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

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


main :: IO ()
main = do
    hspec spec

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

        it "douban: given channel id" $ do
            ss <- Radio.getPlaylist (Cid 6)
            assert $ length ss > 0
    
        it "douban: given musician name" $ do
            ss <- Radio.getPlaylist (Musician "Sigur RóS")
            assert $ length ss > 0

        it "jing" $ do
            tok <- readToken "postrock"
            ss <- Radio.getPlaylist $ fromJust tok
            assert $ length ss > 0

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