Few more tests

itkovian · Dec 24, 2012 · 3cb1311 · 3cb1311
1 parent 2abd7a3
commit 3cb1311
Show file tree

Hide file tree

Showing 5 changed files with 62 additions and 5 deletions.
diff --git a/src/NumberSix/Handlers/Google.hs b/src/NumberSix/Handlers/Google.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module NumberSix.Handlers.Google
-    ( handler
-    , google
+    ( google
+    , handler
     ) where
 
 

diff --git a/src/NumberSix/Handlers/TryRuby.hs b/src/NumberSix/Handlers/TryRuby.hs
@@ -1,7 +1,8 @@
 --------------------------------------------------------------------------------
 {-# LANGUAGE OverloadedStrings #-}
 module NumberSix.Handlers.TryRuby
-    ( handler
+    ( ruby
+    , handler
     ) where
 
 

diff --git a/tests/NumberSix/Handlers/Google/Tests.hs b/tests/NumberSix/Handlers/Google/Tests.hs
@@ -0,0 +1,26 @@
+--------------------------------------------------------------------------------
+{-# LANGUAGE OverloadedStrings #-}
+module NumberSix.Handlers.Google.Tests
+    ( tests
+    ) where
+
+
+--------------------------------------------------------------------------------
+import           Test.Framework            (Test, testGroup)
+import           Test.HUnit                ((@=?))
+
+
+--------------------------------------------------------------------------------
+import           NumberSix.Handlers.Google
+import           NumberSix.Tests.Util
+
+
+--------------------------------------------------------------------------------
+tests :: Test
+tests = testGroup "NumberSix.Handlers.Google.Tests"
+    [ cases "google"
+        [ do
+            result <- google "jaspervdj"
+            result @=? "jaspervdj - Home >> http://jaspervdj.be/"
+        ]
+    ]
diff --git a/tests/NumberSix/Handlers/TryRuby/Tests.hs b/tests/NumberSix/Handlers/TryRuby/Tests.hs
@@ -0,0 +1,26 @@
+--------------------------------------------------------------------------------
+{-# LANGUAGE OverloadedStrings #-}
+module NumberSix.Handlers.TryRuby.Tests
+    ( tests
+    ) where
+
+
+--------------------------------------------------------------------------------
+import           Test.Framework             (Test, testGroup)
+import           Test.HUnit                 ((@=?))
+
+
+--------------------------------------------------------------------------------
+import           NumberSix.Handlers.TryRuby
+import           NumberSix.Tests.Util
+
+
+--------------------------------------------------------------------------------
+tests :: Test
+tests = testGroup "NumberSix.Handlers.TryRuby.Tests"
+    [ cases "ruby"
+        [ do
+            result <- ruby "1 + 1"
+            result @=? "=> 2"
+        ]
+    ]
diff --git a/tests/TestSuite.hs b/tests/TestSuite.hs
@@ -1,15 +1,19 @@
 --------------------------------------------------------------------------------
-import           Test.Framework                 (defaultMain)
+import           Test.Framework                   (defaultMain)
 
 
 --------------------------------------------------------------------------------
+import qualified NumberSix.Handlers.Google.Tests
 import qualified NumberSix.Handlers.Imdb.Tests
+import qualified NumberSix.Handlers.TryRuby.Tests
 import qualified NumberSix.Message.Decode.Tests
 
 
 --------------------------------------------------------------------------------
 main :: IO ()
 main = defaultMain
-    [ NumberSix.Handlers.Imdb.Tests.tests
+    [ NumberSix.Handlers.Google.Tests.tests
+    , NumberSix.Handlers.Imdb.Tests.tests
+    , NumberSix.Handlers.TryRuby.Tests.tests
     , NumberSix.Message.Decode.Tests.tests
     ]