aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
Diffstat (limited to 'test/src')
-rw-r--r--test/src/comp-tests.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 317a6113af2..79bac3f711f 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -359,7 +359,7 @@ Check that the resulting binaries do not differ."
359 (interactive) 359 (interactive)
360 3) 360 3)
361 t) 361 t)
362 (load (native-compile #'comp-tests-free-fun-f)) 362 (native-compile #'comp-tests-free-fun-f)
363 363
364 (should (subr-native-elisp-p (symbol-function #'comp-tests-free-fun-f))) 364 (should (subr-native-elisp-p (symbol-function #'comp-tests-free-fun-f)))
365 (should (= (comp-tests-free-fun-f) 3)) 365 (should (= (comp-tests-free-fun-f) 3))
@@ -692,7 +692,7 @@ CHECKER should always return nil to have a pass."
692 b 692 b
693 (comp-tests-tco-f (+ a b) a (- count 1)))) 693 (comp-tests-tco-f (+ a b) a (- count 1))))
694 t) 694 t)
695 (load (native-compile #'comp-tests-tco-f)) 695 (native-compile #'comp-tests-tco-f)
696 (should (subr-native-elisp-p (symbol-function #'comp-tests-tco-f))) 696 (should (subr-native-elisp-p (symbol-function #'comp-tests-tco-f)))
697 (should (= (comp-tests-tco-f 1 0 10) 55)))) 697 (should (= (comp-tests-tco-f 1 0 10) 55))))
698 698
@@ -714,7 +714,7 @@ CHECKER should always return nil to have a pass."
714 (c (concat a b))) ; <= has to optimize 714 (c (concat a b))) ; <= has to optimize
715 (length c))) ; <= has to optimize 715 (length c))) ; <= has to optimize
716 t) 716 t)
717 (load (native-compile #'comp-tests-fw-prop-1-f)) 717 (native-compile #'comp-tests-fw-prop-1-f)
718 (should (subr-native-elisp-p (symbol-function #'comp-tests-fw-prop-1-f))) 718 (should (subr-native-elisp-p (symbol-function #'comp-tests-fw-prop-1-f)))
719 (should (= (comp-tests-fw-prop-1-f) 6)))) 719 (should (= (comp-tests-fw-prop-1-f) 6))))
720 720