diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/regex-tests.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/test/src/regex-tests.el b/test/src/regex-tests.el index 1407441965a..97b9633bada 100644 --- a/test/src/regex-tests.el +++ b/test/src/regex-tests.el | |||
| @@ -20,7 +20,6 @@ | |||
| 20 | ;;; Code: | 20 | ;;; Code: |
| 21 | 21 | ||
| 22 | (require 'ert) | 22 | (require 'ert) |
| 23 | (require 'cl) | ||
| 24 | 23 | ||
| 25 | (ert-deftest regex-word-cc-fallback-test () | 24 | (ert-deftest regex-word-cc-fallback-test () |
| 26 | "Test that ‘[[:cc:]]*x’ matches ‘x’ (bug#24020). | 25 | "Test that ‘[[:cc:]]*x’ matches ‘x’ (bug#24020). |
| @@ -516,9 +515,9 @@ differences in behavior.") | |||
| 516 | ('invalid-regexp 'compilation-failed)) | 515 | ('invalid-regexp 'compilation-failed)) |
| 517 | 516 | ||
| 518 | matches-observed | 517 | matches-observed |
| 519 | (loop for x from 0 to 20 | 518 | (cl-loop for x from 0 to 20 |
| 520 | collect (and (not what-failed) | 519 | collect (and (not what-failed) |
| 521 | (or (match-string x string) "<unset>"))))) | 520 | (or (match-string x string) "<unset>"))))) |
| 522 | nil) | 521 | nil) |
| 523 | 522 | ||
| 524 | ;; verification line: failed match | 523 | ;; verification line: failed match |