mirror of
https://github.com/typeable/bloodhound.git
synced 2024-12-15 18:12:41 +03:00
21 lines
625 B
Haskell
21 lines
625 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import Database.Bloodhound.Client
|
||
|
|
import Network.HTTP.Conduit
|
||
|
|
import qualified Network.HTTP.Types.Status as NHTS
|
||
|
|
import Test.Hspec
|
||
|
|
|
||
|
|
|
||
|
|
testServer = Server "http://localhost:9200"
|
||
|
|
testIndex = "twitter"
|
||
|
|
validateStatus resp expected = (NHTS.statusCode $ responseStatus resp) `shouldBe` (expected :: Int)
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = hspec $ do
|
||
|
|
describe "index API" $ do
|
||
|
|
it "creates and then deletes the requested index" $ do
|
||
|
|
resp <- createIndex testServer defaultIndexSettings testIndex
|
||
|
|
deleteResp <- deleteIndex testServer testIndex
|
||
|
|
validateStatus resp 200
|
||
|
|
validateStatus deleteResp 200
|