diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-resources/comp-test-funcs.el | 2 | ||||
| -rw-r--r-- | test/src/comp-tests.el | 10 |
2 files changed, 7 insertions, 5 deletions
diff --git a/test/src/comp-resources/comp-test-funcs.el b/test/src/comp-resources/comp-test-funcs.el index 0a60f4d6cc4..9092f040c80 100644 --- a/test/src/comp-resources/comp-test-funcs.el +++ b/test/src/comp-resources/comp-test-funcs.el | |||
| @@ -515,6 +515,8 @@ | |||
| 515 | (defun comp-test-47868-4-f () | 515 | (defun comp-test-47868-4-f () |
| 516 | #(" " 0 1 (face font-lock-keyword-face))) | 516 | #(" " 0 1 (face font-lock-keyword-face))) |
| 517 | 517 | ||
| 518 | (defun comp-test-48029-nonascii-žžž-f (arg) | ||
| 519 | (when arg t)) | ||
| 518 | 520 | ||
| 519 | 521 | ||
| 520 | ;;;;;;;;;;;;;;;;;;;; | 522 | ;;;;;;;;;;;;;;;;;;;; |
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index e7b534d00ec..1b239cec795 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -508,11 +508,6 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." | |||
| 508 | (should (string= (comp-test-45635-f :height 180 :family "PragmataPro Liga") | 508 | (should (string= (comp-test-45635-f :height 180 :family "PragmataPro Liga") |
| 509 | "PragmataPro Liga"))) | 509 | "PragmataPro Liga"))) |
| 510 | 510 | ||
| 511 | (comp-deftest 45603-1 () | ||
| 512 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-12/msg01994.html>" | ||
| 513 | (load (native-compile (ert-resource-file "comp-test-45603.el"))) | ||
| 514 | (should (fboundp 'comp-test-45603--file-local-name))) | ||
| 515 | |||
| 516 | (comp-deftest 46670-1 () | 511 | (comp-deftest 46670-1 () |
| 517 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-02/msg01413.html>" | 512 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-02/msg01413.html>" |
| 518 | (should (string= (comp-test-46670-2-f "foo") "foo")) | 513 | (should (string= (comp-test-46670-2-f "foo") "foo")) |
| @@ -532,6 +527,11 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." | |||
| 532 | (should (eq (comp-test-47868-1-f) (comp-test-47868-3-f))) | 527 | (should (eq (comp-test-47868-1-f) (comp-test-47868-3-f))) |
| 533 | (should (eq (comp-test-47868-2-f) (comp-test-47868-4-f)))) | 528 | (should (eq (comp-test-47868-2-f) (comp-test-47868-4-f)))) |
| 534 | 529 | ||
| 530 | (comp-deftest 48029-1 () | ||
| 531 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2022-07/msg00666.html>" | ||
| 532 | (should (subr-native-elisp-p | ||
| 533 | (symbol-function 'comp-test-48029-nonascii-žžž-f)))) | ||
| 534 | |||
| 535 | 535 | ||
| 536 | ;;;;;;;;;;;;;;;;;;;;; | 536 | ;;;;;;;;;;;;;;;;;;;;; |
| 537 | ;; Tromey's tests. ;; | 537 | ;; Tromey's tests. ;; |