summaryrefslogtreecommitdiff
path: root/tests/tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tests.hs')
-rw-r--r--tests/tests.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/tests.hs b/tests/tests.hs
index 2964df0..60ab08e 100644
--- a/tests/tests.hs
+++ b/tests/tests.hs
@@ -5,3 +5,8 @@ main = do
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"
+ print $ (gravatarWith "dons@galois.com" (Just R) (size 20) (Just "http://haskell.org") ) == "http://www.gravatar.com/avatar.php?gravatar_id=f21827076a1d0725c4f4bd5a640102e9&rating=R&size=20&default=http%3A%2F%2Fhaskell.org"
+
+ -- illegal size
+ print $ (gravatarWith "dons@galois.com" (Just R) (size 200) (Just "http://haskell.org") ) == "http://www.gravatar.com/avatar.php?gravatar_id=f21827076a1d0725c4f4bd5a640102e9&rating=R&default=http%3A%2F%2Fhaskell.org"
+