@@ -525,7 +525,6 @@ main = hspec $ do
525525 liftIO $
526526 myTweet `shouldBe` Right exampleTweet
527527
528−
529528 it "returns document for regexp filter" $ withTestEnv $ do
530529 _ <- insertData
531530 let filter = RegexpFilter (FieldName "user") (Regexp "bite.*app")
@@ -543,6 +542,20 @@ main = hspec $ do
543542 let search = mkSearch Nothing (Just filter)
544543 searchExpectNoResults search
545544
545+ it "returns document for query filter, uncached" $ withTestEnv $ do
546+ _ <- insertData
547+ let filter = QueryFilter (TermQuery (Term "user" "bitemyapp") Nothing) True
548+ search = mkSearch Nothing (Just filter)
549+ myTweet <- searchTweet search
550+ liftIO $ myTweet `shouldBe` Right exampleTweet
551+
552+ it "returns document for query filter, cached" $ withTestEnv $ do
553+ _ <- insertData
554+ let filter = QueryFilter (TermQuery (Term "user" "bitemyapp") Nothing) False
555+ search = mkSearch Nothing (Just filter)
556+ myTweet <- searchTweet search
557+ liftIO $ myTweet `shouldBe` Right exampleTweet
558+
546559 describe "Aggregation API" $ do
547560 it "returns term aggregation results" $ withTestEnv $ do
548561 _ <- insertData