testing framework

Author: Arjun Guha

Setup.lhs

@@ -1,8 +1,13 @@
 #!/usr/bin/env runhaskell
 > import Distribution.Simple
-> import qualified Data.List as L
-> import System.Directory
+> import System.Directory (setCurrentDirectory)
 > import System.Process (runCommand,waitForProcess)
 
 
-> main = defaultMainWithHooks simpleUserHooks
+> main = defaultMainWithHooks simpleUserHooks { runTests = tests }
+
+> tests _ _ _ _ = do
+> setCurrentDirectory "src"
+> h <- runCommand "/usr/bin/env runhaskell Database.CouchDB.Tests" 
+> waitForProcess h
+> return ()

src/Database/CouchDB/Tests.hs

@@ -0,0 +1,21 @@
+module Database.CouchDB.Tests where
+
+import Test.HUnit
+import Database.CouchDB
+
+assertDBEqual :: (Eq a, Show a) => String -> a -> CouchMonad a -> Assertion
+assertDBEqual msg v m = do
+ v' <- runCouchDB' m
+ assertEqual msg v' v
+
+testCreate = TestCase $ assertDBEqual "create/drop database" True $ do
+ createDB "test1"
+ dropDB "test1" -- returns True since the database exists.
+
+allTests = TestList [ testCreate ]
+
+main = do
+ putStrLn "Running CouchDB test suite..."
+ runTestTT allTests
+ putStrLn "Testing complete."
+ return ()