couchdb-conduit-0.7.3: test/Database/CouchDB/Conduit/Test/Util.hs

{-# LANGUAGE OverloadedStrings #-} 

module Database.CouchDB.Conduit.Test.Util where

import Data.ByteString

import Database.CouchDB.Conduit
import Database.CouchDB.Conduit.DB

import CouchDBAuth

setupDB :: ByteString -> IO ()
setupDB n = runCouch conn $ couchPutDB_ n

tearDB :: ByteString -> IO ()
tearDB n = runCouch conn $ couchDeleteDB n

-- | Connection connection. See readme
conn :: CouchConnection
conn = def {
    couchLogin = login,
    couchPass = pass,
    couchPrefix = "cct__"}