couchdb-conduit-0.2.0: 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

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

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