add test suite

heroku.cabal

@@ -23,3 +23,11 @@ Library
   Build-depends: base >= 4 && < 5
                , text
                , network
+
+Test-Suite test
+  Type:                 exitcode-stdio-1.0
+  Main-Is:              test.hs
+  Build-depends: base >= 4 && < 5
+               , text
+               , network
+               , hspec

test.hs

@@ -1,6 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
 module Main where
 
 import Web.Heroku
+import Test.Hspec
 
-main = print $ show $
-  parseDatabaseUrl "postgres://db:pass@ec2-1-1-1-1.compute-1.amazonaws.com:1234/db"
+main :: IO ()
+main = hspec $
+  describe "parseDatabaseUrl" $
+    it "extracts individual items" $
+      parseDatabaseUrl "postgres://db:pass@ec2-1-1-1-1.compute-1.amazonaws.com:1234/db" `shouldBe`
+        [ ("user","db")
+        , ("password","pass")
+        , ("host","ec2-1-1-1-1.compute-1.amazonaws.com")
+        , ("port","1234")
+        , ("dbname","db")
+        ]