git.iko.soy/typeable/bloodhound
on master help sign in
Test _update API
f20a8b7Dmitry Dzhus
tests/tests.hs+24−2
compare with master
unifiedsplit
@@ -180,6 +180,21 @@ exampleTweet = Tweet { user = "bitemyapp"
180 , age = 10000
180 , age = 10000
181 , location = Location 40.12 (-71.34) }
181 , location = Location 40.12 (-71.34) }
182
182
183+newAge :: Int
184+newAge = 31337
185+
186+newUser :: Text
187+newUser = "someotherapp"
188+
189+tweetPatch :: Value
190+tweetPatch =
191+ object [ "age" .= newAge
192+ , "user" .= newUser
193+ ]
194+
195+patchedTweet :: Tweet
196+patchedTweet = exampleTweet{age = newAge, user = newUser}
197+
183otherTweet :: Tweet
198otherTweet :: Tweet
184otherTweet = Tweet { user = "notmyapp"
199otherTweet = Tweet { user = "notmyapp"
185 , postDate = UTCTime
200 , postDate = UTCTime
@@ -207,6 +222,12 @@ insertData' ids = do
207 _ <- refreshIndex testIndex
222 _ <- refreshIndex testIndex
208 return r
223 return r
209
224
225+updateData :: BH IO Reply
226+updateData = do
227+ r <- updateDocument testIndex testMapping defaultIndexDocumentSettings tweetPatch (DocId "1")
228+ _ <- refreshIndex testIndex
229+ return r
230+
210insertOther :: BH IO ()
231insertOther :: BH IO ()
211insertOther = do
232insertOther = do
212 _ <- indexDocument testIndex testMapping defaultIndexDocumentSettings otherTweet (DocId "2")
233 _ <- indexDocument testIndex testMapping defaultIndexDocumentSettings otherTweet (DocId "2")
@@ -761,12 +782,13 @@ main = hspec $ do
761 liftIO (errorResp `shouldBe` Right (EsError 404 "IndexMissingException[[bogus] missing]"))
782 liftIO (errorResp `shouldBe` Right (EsError 404 "IndexMissingException[[bogus] missing]"))
762
783
763 describe "document API" $ do
784 describe "document API" $ do
764− it "indexes, gets, and then deletes the generated document" $ withTestEnv $ do
785+ it "indexes, updates, gets, and then deletes the generated document" $ withTestEnv $ do
765 _ <- insertData
786 _ <- insertData
787+ _ <- updateData
766 docInserted <- getDocument testIndex testMapping (DocId "1")
788 docInserted <- getDocument testIndex testMapping (DocId "1")
767 let newTweet = eitherDecode
789 let newTweet = eitherDecode
768 (responseBody docInserted) :: Either String (EsResult Tweet)
790 (responseBody docInserted) :: Either String (EsResult Tweet)
769− liftIO $ (fmap getSource newTweet `shouldBe` Right (Just exampleTweet))
791+ liftIO $ (fmap getSource newTweet `shouldBe` Right (Just patchedTweet))
770
792
771 it "indexes, gets, and then deletes the generated document with a DocId containing a space" $ withTestEnv $ do
793 it "indexes, gets, and then deletes the generated document with a DocId containing a space" $ withTestEnv $ do
772 _ <- insertWithSpaceInId
794 _ <- insertWithSpaceInId