diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-12-20 18:34:42 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-12-20 18:34:42 +0100 |
commit | 89eb23589f9274c8531f291f3e8156f3d640dd27 (patch) | |
tree | fcee728d5c8f1c8fe7590aa07a10a3978c9feee9 /test/lisp/emacs-lisp | |
parent | de797bb853e85e3cc3c9ec71f51e4e78e41af4ab (diff) | |
download | emacs-89eb23589f9274c8531f291f3e8156f3d640dd27.tar.gz emacs-89eb23589f9274c8531f291f3e8156f3d640dd27.tar.bz2 emacs-89eb23589f9274c8531f291f3e8156f3d640dd27.zip |
Use declare-function instead of defun in eieio-tests.el
* test/lisp/emacs-lisp/eieio-tests/eieio-tests.el: Prefer
declare-function to defun.
Diffstat (limited to 'test/lisp/emacs-lisp')
-rw-r--r-- | test/lisp/emacs-lisp/eieio-tests/eieio-tests.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el index 802792567bc..c13d3ee6efa 100644 --- a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el +++ b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el @@ -139,8 +139,8 @@ ;; ))) ;; Silence byte-compiler. -(defun eitest-subordinate--eieio-childp ()) -(defun class-alloc-initarg--eieio-childp ()) +(declare-function eitest-subordinate--eieio-childp nil) +(declare-function class-alloc-initarg--eieio-childp nil) (ert-deftest eieio-test-01-mix-alloc-initarg () ;; Only run this test if the message framework thingy works. (skip-unless (and (message "foo") (string= "foo" (current-message)))) @@ -213,8 +213,8 @@ Argument C is the class bound to this static method." (oset-default c some-slot value))) ;; Silence byte-compiler. -(defun static-method-class-2 ()) -(defun static-method-class-2--eieio-childp ()) +(declare-function static-method-class-2 nil) +(declare-function static-method-class-2--eieio-childp nil) (ert-deftest eieio-test-04-static-method () ;; Call static method on a class and see if it worked (static-method-class-method 'static-method-class 'class) @@ -546,8 +546,8 @@ METHOD is the method that was attempting to be called." ;; Silence byte-compiler. (defvar eitest-tests nil) -(defun eitest-superior ()) -(defun eitest-superior--eieio-childp ()) +(declare-function eitest-superior nil) +(declare-function eitest-superior--eieio-childp nil) (ert-deftest eieio-test-22-init-forms-dont-match-runnable () ;; Init forms with types that don't match the runnable. (defclass eitest-subordinate nil @@ -597,8 +597,8 @@ METHOD is the method that was attempting to be called." ;; Silence byte-compiler. (defvar eitest-t1 nil) -(defun eieio-tests-initform-not-evaluated-when-initarg-is-present ()) -(defun eieio-tests-initform-not-evaluated-when-initarg-is-present--eieio-childp ()) +(declare-function eieio-tests-initform-not-evaluated-when-initarg-is-present nil) +(declare-function eieio-tests-initform-not-evaluated-when-initarg-is-present--eieio-childp nil) (ert-deftest eieio-test-25-slot-tests () (setq eitest-t1 (class-c)) ;; Slot initialization |