@@ -1112,6 +1112,17 @@ main = hspec $ do
1112 liftIO $
1112 liftIO $
1113 myTweet `shouldBe` Right exampleTweet
1113 myTweet `shouldBe` Right exampleTweet
1115+ it "returns document for multi-match query with a custom tiebreaker" $ withTestEnv $ do
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
1124+ myTweet `shouldBe` Right exampleTweet
1115 it "returns document for bool query" $ withTestEnv $ do
1126 it "returns document for bool query" $ withTestEnv $ do
1116 _ <- insertData
1127 _ <- insertData
1117 let innerQuery = QueryMatchQuery $
1128 let innerQuery = QueryMatchQuery $