@@ -101,6 +101,15 @@ main = hspec $ do
101101 (responseBody docInserted) :: Either String (EsResult Tweet)
102102 fmap _source newTweet `shouldBe` Right exampleTweet
103103
104+ describe "query API" $ do
105+ it "returns document for term query and identity filter" $ do
106+ _ <- insertData
107+ let query = TermQuery (Term "user" "bitemyapp") Nothing
108+ let filter = IdentityFilter <&&> IdentityFilter
109+ let search = mkSearch (Just query) (Just filter)
110+ myTweet <- searchTweet search
111+ myTweet `shouldBe` Right exampleTweet
112+
104113 describe "filtering API" $ do
105114 it "returns document for composed boolmatch and identity" $ do
106115 _ <- insertData