diff options
| author | Gerd Möllmann | 2023-07-24 08:50:03 +0200 |
|---|---|---|
| committer | Gerd Möllmann | 2023-07-24 08:50:03 +0200 |
| commit | ea11fbb5ae7eb96c6a67dede090d1fdc1b0102f4 (patch) | |
| tree | 1a6b368c73f445ee7559242b73c890d917b4a87a /test/src | |
| parent | ca9d513fefe57e3cae33db429a7501209fcd182b (diff) | |
| parent | acebaa793f1b18ad54bccffe7ad07fef8e1cebe1 (diff) | |
| download | emacs-ea11fbb5ae7eb96c6a67dede090d1fdc1b0102f4.tar.gz emacs-ea11fbb5ae7eb96c6a67dede090d1fdc1b0102f4.zip | |
Merge remote-tracking branch 'origin/master' into scratch/pkg
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/regex-emacs-tests.el | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test/src/regex-emacs-tests.el b/test/src/regex-emacs-tests.el index 08a93dbf30e..4e2c0f67a44 100644 --- a/test/src/regex-emacs-tests.el +++ b/test/src/regex-emacs-tests.el | |||
| @@ -949,4 +949,20 @@ This evaluates the TESTS test cases from glibc." | |||
| 949 | (should (equal (smatch "a\\=*b" "ab") 0)) | 949 | (should (equal (smatch "a\\=*b" "ab") 0)) |
| 950 | )) | 950 | )) |
| 951 | 951 | ||
| 952 | (ert-deftest regex-emacs-syntax-properties () | ||
| 953 | ;; Verify absence of character class syntax property ghost matching bug. | ||
| 954 | (let ((re "\\s-[[:space:]]") | ||
| 955 | (s (concat "a" | ||
| 956 | (propertize "b" 'syntax-table '(0)) ; whitespace | ||
| 957 | "éz")) | ||
| 958 | (parse-sexp-lookup-properties t)) | ||
| 959 | ;; Test matching in a string... | ||
| 960 | (should (equal (string-match re s) nil)) | ||
| 961 | ;; ... and in a buffer. | ||
| 962 | (should (equal (with-temp-buffer | ||
| 963 | (insert s) | ||
| 964 | (goto-char (point-min)) | ||
| 965 | (re-search-forward re nil t)) | ||
| 966 | nil)))) | ||
| 967 | |||
| 952 | ;;; regex-emacs-tests.el ends here | 968 | ;;; regex-emacs-tests.el ends here |