diff options
| author | Stefan Kangas | 2021-04-27 18:54:37 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2021-04-27 18:54:37 +0200 |
| commit | 233c0af31e2c018043bd9abfa5acbeafbb535a94 (patch) | |
| tree | eca3bcbc8d1d8d588f8b51ebbc996263c426d9b1 /test/src | |
| parent | d8e037eeaa7eef26349bc0fb3fa00e10a5c4b894 (diff) | |
| download | emacs-233c0af31e2c018043bd9abfa5acbeafbb535a94.tar.gz emacs-233c0af31e2c018043bd9abfa5acbeafbb535a94.zip | |
; Fix typos
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index a1893fde5c0..ba8b8b00936 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -293,7 +293,7 @@ Check that the resulting binaries do not differ." | |||
| 293 | (comp-tests-throw-f 3))))) | 293 | (comp-tests-throw-f 3))))) |
| 294 | 294 | ||
| 295 | (comp-deftest gc () | 295 | (comp-deftest gc () |
| 296 | "Try to do some longer computation to let the gc kick in." | 296 | "Try to do some longer computation to let the GC kick in." |
| 297 | (dotimes (_ 100000) | 297 | (dotimes (_ 100000) |
| 298 | (comp-tests-cons-cdr-f 3)) | 298 | (comp-tests-cons-cdr-f 3)) |
| 299 | (should (= (comp-tests-cons-cdr-f 3) 3))) | 299 | (should (= (comp-tests-cons-cdr-f 3) 3))) |
| @@ -317,7 +317,7 @@ Check that the resulting binaries do not differ." | |||
| 317 | (should (string= (comp-tests-string-trim-f "dsaf ") "dsaf"))) | 317 | (should (string= (comp-tests-string-trim-f "dsaf ") "dsaf"))) |
| 318 | 318 | ||
| 319 | (comp-deftest trampoline-removal () | 319 | (comp-deftest trampoline-removal () |
| 320 | ;; This tests that we can can call primitives with no dedicated bytecode. | 320 | ;; This tests that we can call primitives with no dedicated bytecode. |
| 321 | ;; At speed >= 2 the trampoline will not be used. | 321 | ;; At speed >= 2 the trampoline will not be used. |
| 322 | (should (hash-table-p (comp-tests-trampoline-removal-f)))) | 322 | (should (hash-table-p (comp-tests-trampoline-removal-f)))) |
| 323 | 323 | ||
| @@ -399,7 +399,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." | |||
| 399 | (should (string= " ➊" (comp-test-45342-f 1)))) | 399 | (should (string= " ➊" (comp-test-45342-f 1)))) |
| 400 | 400 | ||
| 401 | (comp-deftest assume-double-neg () | 401 | (comp-deftest assume-double-neg () |
| 402 | "In fwprop assumtions (not (not (member x))) /= (member x)." | 402 | "In fwprop assumptions (not (not (member x))) /= (member x)." |
| 403 | (should-not (comp-test-assume-double-neg-f "bar" "foo"))) | 403 | (should-not (comp-test-assume-double-neg-f "bar" "foo"))) |
| 404 | 404 | ||
| 405 | (comp-deftest assume-in-loop-1 () | 405 | (comp-deftest assume-in-loop-1 () |
| @@ -416,7 +416,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." | |||
| 416 | 416 | ||
| 417 | (defvar comp-test-primitive-advice) | 417 | (defvar comp-test-primitive-advice) |
| 418 | (comp-deftest primitive-advice () | 418 | (comp-deftest primitive-advice () |
| 419 | "Test effectiveness of primitive advicing." | 419 | "Test effectiveness of primitive advising." |
| 420 | (let (comp-test-primitive-advice | 420 | (let (comp-test-primitive-advice |
| 421 | (f (lambda (&rest args) | 421 | (f (lambda (&rest args) |
| 422 | (setq comp-test-primitive-advice args)))) | 422 | (setq comp-test-primitive-advice args)))) |