@@ -203,3 +203,9 @@ main = hspec $ do
203 let search = Search Nothing (Just filter)
203 let search = Search Nothing (Just filter)
204 myTweet <- searchTweet search
204 myTweet <- searchTweet search
205 myTweet `shouldBe` Right exampleTweet
205 myTweet `shouldBe` Right exampleTweet
207+ it "doesn't return document for non-matching regexp filter" $ do
209+ let filter = RegexpFilter "user" (Regexp "boy") RegexpAll "test" False "key"
210+ let search = Search Nothing (Just filter)
211+ searchExpectNoResults search