aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
Diffstat (limited to 'test/src')
-rw-r--r--test/src/regex-tests.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/test/src/regex-tests.el b/test/src/regex-tests.el
index cce0108f24b..898548d7650 100644
--- a/test/src/regex-tests.el
+++ b/test/src/regex-tests.el
@@ -399,7 +399,7 @@ differences in behavior.")
399;; - if no "REG_BASIC" is found, with have an extended regex 399;; - if no "REG_BASIC" is found, with have an extended regex
400;; - These set a flag: 400;; - These set a flag:
401;; - REG_ICASE 401;; - REG_ICASE
402;; - REG_NEWLINE 402;; - REG_NEWLINE (ignored by this function)
403;; - REG_NOTBOL 403;; - REG_NOTBOL
404;; - REG_NOTEOL 404;; - REG_NOTEOL
405;; 405;;
@@ -415,13 +415,12 @@ differences in behavior.")
415;; - end is the 0-based index of the first character past the group 415;; - end is the 0-based index of the first character past the group
416(defun regex-tests-BOOST () 416(defun regex-tests-BOOST ()
417 (let (failures 417 (let (failures
418 basic icase newline notbol noteol) 418 basic icase notbol noteol)
419 (regex-tests-generic-line 419 (regex-tests-generic-line
420 ?; "BOOST.tests" regex-tests-BOOST-whitelist 420 ?; "BOOST.tests" regex-tests-BOOST-whitelist
421 (if (save-excursion (re-search-forward "^-" nil t)) 421 (if (save-excursion (re-search-forward "^-" nil t))
422 (setq basic (save-excursion (re-search-forward "REG_BASIC" nil t)) 422 (setq basic (save-excursion (re-search-forward "REG_BASIC" nil t))
423 icase (save-excursion (re-search-forward "REG_ICASE" nil t)) 423 icase (save-excursion (re-search-forward "REG_ICASE" nil t))
424 newline (save-excursion (re-search-forward "REG_NEWLINE" nil t))
425 notbol (save-excursion (re-search-forward "REG_NOTBOL" nil t)) 424 notbol (save-excursion (re-search-forward "REG_NOTBOL" nil t))
426 noteol (save-excursion (re-search-forward "REG_NOTEOL" nil t))) 425 noteol (save-excursion (re-search-forward "REG_NOTEOL" nil t)))
427 426