negative validation regexp filter
commit94604c565fe362907974a8a93a68a5346ec2820d
authorChris Allen <cma@bitemyapp.com>
dateFri 11 Apr 2014, 01:10 (13 years ago)
parent833e1eb
tests/tests.hs+6
@@ -203,3 +203,9 @@ main = hspec $ do
203203 let search = Search Nothing (Just filter)
204204 myTweet <- searchTweet search
205205 myTweet `shouldBe` Right exampleTweet
206+
207+ it "doesn't return document for non-matching regexp filter" $ do
208+ _ <- insertData
209+ let filter = RegexpFilter "user" (Regexp "boy") RegexpAll "test" False "key"
210+ let search = Search Nothing (Just filter)
211+ searchExpectNoResults search