summaryrefslogtreecommitdiff
path: root/tests/tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tests.hs')
-rw-r--r--tests/tests.hs12
1 files changed, 0 insertions, 12 deletions
diff --git a/tests/tests.hs b/tests/tests.hs
deleted file mode 100644
index 60ab08e..0000000
--- a/tests/tests.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-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"
-
- 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"
-