git.iko.soy/typeable/bloodhound
on d6d4112 help sign in
typeable/bloodhound/tests/tests.hs
20 lines 625 B history raw
1module Main where
3import Database.Bloodhound.Client
4import Network.HTTP.Conduit
5import qualified Network.HTTP.Types.Status as NHTS
6import Test.Hspec
9testServer = Server "http://localhost:9200"
10testIndex = "twitter"
11validateStatus resp expected = (NHTS.statusCode $ responseStatus resp) `shouldBe` (expected :: Int)
13main :: IO ()
14main = hspec $ do
15 describe "index API" $ do
16 it "creates and then deletes the requested index" $ do
17 resp <- createIndex testServer defaultIndexSettings testIndex
18 deleteResp <- deleteIndex testServer testIndex
19 validateStatus resp 200
20 validateStatus deleteResp 200