diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/regex-tests.el | 5 |
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 | ||