@@ -1028,20 +1028,26 @@ main = hspec $ do
10281028 _ <- insertData
10291029 let firstTest = BulkTest "blah"
10301030 let secondTest = BulkTest "bloo"
1031+ let thirdTest = BulkTest "graffle"
10311032 let firstDoc = BulkIndex testIndex
10321033 testMapping (DocId "2") (toJSON firstTest)
10331034 let secondDoc = BulkCreate testIndex
10341035 testMapping (DocId "3") (toJSON secondTest)
1035− let stream = V.fromList [firstDoc, secondDoc]
1036+ let thirdDoc = BulkCreateEncoding testIndex
1037+ testMapping (DocId "4") (toEncoding thirdTest)
1038+ let stream = V.fromList [firstDoc, secondDoc, thirdDoc]
10361039 _ <- bulk stream
10371040 _ <- refreshIndex testIndex
10381041 fDoc <- getDocument testIndex testMapping (DocId "2")
10391042 sDoc <- getDocument testIndex testMapping (DocId "3")
1043+ tDoc <- getDocument testIndex testMapping (DocId "4")
10401044 let maybeFirst = eitherDecode $ responseBody fDoc :: Either String (EsResult BulkTest)
10411045 let maybeSecond = eitherDecode $ responseBody sDoc :: Either String (EsResult BulkTest)
1046+ let maybeThird = eitherDecode $ responseBody tDoc :: Either String (EsResult BulkTest)
10421047 liftIO $ do
10431048 fmap getSource maybeFirst `shouldBe` Right (Just firstTest)
10441049 fmap getSource maybeSecond `shouldBe` Right (Just secondTest)
1050+ fmap getSource maybeThird `shouldBe` Right (Just thirdTest)
10451051
10461052
10471053 describe "query API" $ do