From 348b6bc44ddbbfc1120b81ea36b1137f06566b24 Mon Sep 17 00:00:00 2001
From: Aaron Hodgen <ahodgen@mynetwatchman.com>
Date: Fri, 4 May 2018 09:39:42 -0400
Subject: [PATCH] Add a test and changelog history.

---
 changelog.md           | 2 ++
 tests/V5/Test/Query.hs | 8 ++++++++
 2 files changed, 10 insertions(+)

diff --git a/changelog.md b/changelog.md
index 9849a64..a64c253 100644
--- a/changelog.md
+++ b/changelog.md
@@ -16,6 +16,8 @@
 - @rvl
   - Add [character filters][] to the `AnalyzerDefinition` type.
   - Add the "stemmer" and "stop" [token filters][] to `TokenFilterDefinition`.
+- @ahodgen
+  - Add support for wildcard queries
 
 [Character Filters]: https://www.elastic.co/guide/en/elasticsearch/reference/5.6/analysis-charfilters.html
 [Token Filters]: https://www.elastic.co/guide/en/elasticsearch/reference/5.6/analysis-tokenfilters.html
diff --git a/tests/V5/Test/Query.hs b/tests/V5/Test/Query.hs
index 364a836..e50e15d 100644
--- a/tests/V5/Test/Query.hs
+++ b/tests/V5/Test/Query.hs
@@ -113,3 +113,11 @@ spec =
           search = mkSearch (Just templateQuery) Nothing
       myTweet <- searchTweet search
       liftIO $ myTweet `shouldBe` Right exampleTweet
+
+    it "returns document for wildcard query" $ withTestEnv $ do
+      _ <- insertData
+      let query = QueryWildcardQuery $ WildcardQuery (FieldName "user") "bitemy*" (Nothing)
+      let search = mkSearch (Just query) Nothing
+      myTweet <- searchTweet search
+      liftIO $
+        myTweet `shouldBe` Right exampleTweet