summaryrefslogtreecommitdiff
path: root/tests/tests.hs
diff options
context:
space:
mode:
authorDonaldStewart <>2008-03-04 18:23:05 (GMT)
committerLuite Stegeman <luite@luite.com>2008-03-04 18:23:05 (GMT)
commitbdf6d48c6817e547c0ce82a5a2e35120aec01404 (patch)
tree97bb5e3472400dbd11dbacf473baae214af34b83 /tests/tests.hs
parenta16a3af579df098a308860b9c00fea4ff1f8cc31 (diff)
version 0.30.3
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"
+