@@ -46,6 +46,15 @@ spec =
47 myTweet `shouldBe` Right exampleTweet
47 myTweet `shouldBe` Right exampleTweet
49+ it "returns document for match query with fuzziness" $ withTestEnv $ do
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
56+ myTweet `shouldBe` Right exampleTweet
49 it "returns document for multi-match query" $ withTestEnv $ do
58 it "returns document for multi-match query" $ withTestEnv $ do
50 _ <- insertData
59 _ <- insertData
51 let flds = [FieldName "user", FieldName "message"]
60 let flds = [FieldName "user", FieldName "message"]