Add test for valid regexp character insertion.

creichert · Jul 24, 2015 · 7e6a418 · 7e6a418
1 parent 2c18a46
commit 7e6a418
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/test/ido-vertical-mode-test.el b/test/ido-vertical-mode-test.el
@@ -122,3 +122,16 @@
          (ido-vertical-show-count nil)
          (query (ido-vertical-completions "")))
     (should (string= "\n-> " (substring-no-properties query 0 4)))))
+
+
+;; Test that valid regexp characters are handled properly
+;;
+;; Before #2c18a46, invalid regexp chars would signal an error.
+;; e.g. this test would pass:
+;;
+;; (should-error (ido-vertical-completions "[") :type 'invalid-regexp)
+;;
+(ert-deftest ivm-should-allow-regexp ()
+  (ido-vertical-mode 1)
+  (let ((query (ido-vertical-completions "scratch")))
+    (should (string= "\n-> *Messages*\n" (substring-no-properties query 0 15)))))