@@ -113,3 +113,11 @@ spec =
113 search = mkSearch (Just templateQuery) Nothing
113 search = mkSearch (Just templateQuery) Nothing
114 myTweet <- searchTweet search
114 myTweet <- searchTweet search
115 liftIO $ myTweet `shouldBe` Right exampleTweet
115 liftIO $ myTweet `shouldBe` Right exampleTweet
117+ it "returns document for wildcard query" $ withTestEnv $ do
119+ let query = QueryWildcardQuery $ WildcardQuery (FieldName "user") "bitemy*" (Nothing)
120+ let search = mkSearch (Just query) Nothing
121+ myTweet <- searchTweet search
123+ myTweet `shouldBe` Right exampleTweet