From 7131ac8df4e2c28e3f82391c078f9f0c7643dbe6 Mon Sep 17 00:00:00 2001
From: Ashutosh Rishi Ranjan <ashutoshrishi92@gmail.com>
Date: Tue, 19 Jun 2018 18:23:26 +1000
Subject: [PATCH] Added test for Auto fuzziness

---
 tests/V5/Test/Query.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tests/V5/Test/Query.hs b/tests/V5/Test/Query.hs
index e50e15d..e5abe30 100644
--- a/tests/V5/Test/Query.hs
+++ b/tests/V5/Test/Query.hs
@@ -46,6 +46,15 @@ spec =
       liftIO $
         myTweet `shouldBe` Right exampleTweet
 
+    it "returns document for match query with fuzziness" $ withTestEnv $ do
+      _ <- insertData
+      let match = mkMatchQuery (FieldName "user") (QueryString "bidemyapp")
+      let query = QueryMatchQuery $ match { matchQueryFuzziness = Just FuzzinessAuto }
+      let search = mkSearch (Just query) Nothing
+      myTweet <- searchTweet search
+      liftIO $
+        myTweet `shouldBe` Right exampleTweet
+
     it "returns document for multi-match query" $ withTestEnv $ do
       _ <- insertData
       let flds = [FieldName "user", FieldName "message"]