src/Database/CouchDB/Tests.hs @@ -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 () Setup.lhs 5fef52b9afd40fe0cf6b3ff86d38989362d54fa5 Arjun Guha arjun@cs.brown.edu http://github.com/arjunguha/haskell-couchdb/commit/b73917a6818168e4278c64cb5dbc1d3ef85b6589 b73917a6818168e4278c64cb5dbc1d3ef85b6589 2008-11-19T07:31:05-08:00 2008-11-19T07:31:05-08:00 testing framework 053b9e8ab74f16196e257174a5cf896fda7a8e9c Arjun Guha arjun@cs.brown.edu