diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index bf3f57a85e3..fffc72015b8 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -393,7 +393,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." | |||
| 393 | 393 | ||
| 394 | (defvar comp-test-primitive-advice) | 394 | (defvar comp-test-primitive-advice) |
| 395 | (comp-deftest primitive-advice () | 395 | (comp-deftest primitive-advice () |
| 396 | "Test effectiveness of primitve advicing." | 396 | "Test effectiveness of primitive advicing." |
| 397 | (let (comp-test-primitive-advice | 397 | (let (comp-test-primitive-advice |
| 398 | (f (lambda (&rest args) | 398 | (f (lambda (&rest args) |
| 399 | (setq comp-test-primitive-advice args)))) | 399 | (setq comp-test-primitive-advice args)))) |
| @@ -406,7 +406,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." | |||
| 406 | 406 | ||
| 407 | (defvar comp-test-primitive-redefine-args) | 407 | (defvar comp-test-primitive-redefine-args) |
| 408 | (comp-deftest primitive-redefine () | 408 | (comp-deftest primitive-redefine () |
| 409 | "Test effectiveness of primitve redefinition." | 409 | "Test effectiveness of primitive redefinition." |
| 410 | (cl-letf ((comp-test-primitive-redefine-args nil) | 410 | (cl-letf ((comp-test-primitive-redefine-args nil) |
| 411 | ((symbol-function #'-) | 411 | ((symbol-function #'-) |
| 412 | (lambda (&rest args) | 412 | (lambda (&rest args) |