@@ -46,6 +46,15 @@ spec =
4646 liftIO $
4747 myTweet `shouldBe` Right exampleTweet
4848
49+ it "returns document for match query with fuzziness" $ withTestEnv $ do
50+ _ <- insertData
51+ let match = mkMatchQuery (FieldName "user") (QueryString "bidemyapp")
52+ let query = QueryMatchQuery $ match { matchQueryFuzziness = Just FuzzinessAuto }
53+ let search = mkSearch (Just query) Nothing
54+ myTweet <- searchTweet search
55+ liftIO $
56+ myTweet `shouldBe` Right exampleTweet
57+
4958 it "returns document for multi-match query" $ withTestEnv $ do
5059 _ <- insertData
5160 let flds = [FieldName "user", FieldName "message"]