git.iko.soy/typeable/bloodhound
on master help sign in
Added tests for query filter
c403313Bjørn Nordbø
tests/tests.hs+14−1
compare with master
unifiedsplit
@@ -525,7 +525,6 @@ main = hspec $ do
525 liftIO $
525 liftIO $
526 myTweet `shouldBe` Right exampleTweet
526 myTweet `shouldBe` Right exampleTweet
527
527
528−
529 it "returns document for regexp filter" $ withTestEnv $ do
528 it "returns document for regexp filter" $ withTestEnv $ do
530 _ <- insertData
529 _ <- insertData
531 let filter = RegexpFilter (FieldName "user") (Regexp "bite.*app")
530 let filter = RegexpFilter (FieldName "user") (Regexp "bite.*app")
@@ -543,6 +542,20 @@ main = hspec $ do
543 let search = mkSearch Nothing (Just filter)
542 let search = mkSearch Nothing (Just filter)
544 searchExpectNoResults search
543 searchExpectNoResults search
545
544
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+
546 describe "Aggregation API" $ do
559 describe "Aggregation API" $ do
547 it "returns term aggregation results" $ withTestEnv $ do
560 it "returns term aggregation results" $ withTestEnv $ do
548 _ <- insertData
561 _ <- insertData