aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
authorStefan Kangas2021-04-27 18:54:37 +0200
committerStefan Kangas2021-04-27 18:54:37 +0200
commit233c0af31e2c018043bd9abfa5acbeafbb535a94 (patch)
treeeca3bcbc8d1d8d588f8b51ebbc996263c426d9b1 /test/src
parentd8e037eeaa7eef26349bc0fb3fa00e10a5c4b894 (diff)
downloademacs-233c0af31e2c018043bd9abfa5acbeafbb535a94.tar.gz
emacs-233c0af31e2c018043bd9abfa5acbeafbb535a94.zip
; Fix typos
Diffstat (limited to 'test/src')
-rw-r--r--test/src/comp-tests.el8
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))))