summaryrefslogtreecommitdiff
path: root/tests/tests.hs
blob: 2964df0cf387034af29af4eda9a714ae179ba9fe (plain)
1
2
3
4
5
6
7
import Network.Gravatar

main = do
    print $ gravatar "dons@galois.com" == "http://www.gravatar.com/avatar.php?gravatar_id=f21827076a1d0725c4f4bd5a640102e9"

    print $ (gravatarWith "dons@galois.com" (Just R) Nothing (Just "http://haskell.org") ) == "http://www.gravatar.com/avatar.php?gravatar_id=f21827076a1d0725c4f4bd5a640102e9&rating=R&default=http%3A%2F%2Fhaskell.org"