@@ -1112,6 +1112,17 @@ main = hspec $ do
11121112 liftIO $
11131113 myTweet `shouldBe` Right exampleTweet
11141114
1115+ it "returns document for multi-match query with a custom tiebreaker" $ withTestEnv $ do
1116+ _ <- insertData
1117+ let tiebreaker = Just $ Tiebreaker 0.3
1118+ flds = [FieldName "user", FieldName "message"]
1119+ multiQuery' = mkMultiMatchQuery flds (QueryString "bitemyapp")
1120+ query = QueryMultiMatchQuery $ multiQuery' { multiMatchQueryTiebreaker = tiebreaker }
1121+ search = mkSearch (Just query) Nothing
1122+ myTweet <- searchTweet search
1123+ liftIO $
1124+ myTweet `shouldBe` Right exampleTweet
1125+
11151126 it "returns document for bool query" $ withTestEnv $ do
11161127 _ <- insertData
11171128 let innerQuery = QueryMatchQuery $