@@ -238,7 +238,7 @@ searchExpectNoResults search = do
238238
239239searchExpectAggs :: Search -> BH IO ()
240240searchExpectAggs search = do
241− reply <- searchAll search
241+ reply <- searchByIndex testIndex search
242242 let isEmpty x = return (M.null x)
243243 let result = decode (responseBody reply) :: Maybe (SearchResult Tweet)
244244 liftIO $
@@ -247,7 +247,7 @@ searchExpectAggs search = do
247247searchValidBucketAgg :: (BucketAggregation a, FromJSON a, Show a) =>
248248 Search -> Text -> (Text -> AggregationResults -> Maybe (Bucket a)) -> BH IO ()
249249searchValidBucketAgg search aggKey extractor = do
250− reply <- searchAll search
250+ reply <- searchByIndex testIndex search
251251 let bucketDocs = docCount . head . buckets
252252 let result = decode (responseBody reply) :: Maybe (SearchResult Tweet)
253253 let count = result >>= aggregations >>= extractor aggKey >>= \x -> return (bucketDocs x)
@@ -272,8 +272,8 @@ searchExpectSource src expected = do
272272 _ <- insertData
273273 let query = QueryMatchQuery $ mkMatchQuery (FieldName "_all") (QueryString "haskell")
274274 let search = (mkSearch (Just query) Nothing) { source = Just src }
275− reply <- searchAll search
276− result <- parseEsResponse reply-- :: Either EsError (SearchResult Value)
275+ reply <- searchByIndex testIndex search
276+ result <- parseEsResponse reply
277277 let value = grabFirst result
278278 liftIO $
279279 value `shouldBe` expected