branch: externals/objed
commit 1054cd893a4c2c6cc93ab6f37aedce014634fa05
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Compile tests like elpa does, and fix the compile errors in tests
---
Makefile | 2 ++
test/make-compile.el | 6 +++++-
test/make-lint.el | 12 ++++++------
3 files changed, 13 insertions(+), 7 deletions(-)
diff --git a/Makefile b/Makefile
index 605ca19..2bb0651 100644
--- a/Makefile
+++ b/Makefile
@@ -15,5 +15,7 @@ test: compile lint
clean:
rm -f *.elc
+ rm -f test/*.elc
+
.PHONY: update lint compile test clean
diff --git a/test/make-compile.el b/test/make-compile.el
index e7bff0f..72dc831 100644
--- a/test/make-compile.el
+++ b/test/make-compile.el
@@ -4,8 +4,12 @@
(setq byte-compile-error-on-warn t)
(setq byte-compile--use-old-handlers nil)
-
;; compile *.el files
(dolist (file (file-expand-wildcards "*.el"))
(unless (byte-compile-file file)
(kill-emacs 1)))
+
+(let ((default-directory (expand-file-name "test" default-directory)))
+ (dolist (file (file-expand-wildcards "*.el"))
+ (unless (byte-compile-file file)
+ (kill-emacs 1))))
diff --git a/test/make-lint.el b/test/make-lint.el
index b2b362e..d645db8 100644
--- a/test/make-lint.el
+++ b/test/make-lint.el
@@ -18,16 +18,16 @@
;; package lint
+(declare-function package-lint--get-package-prefix@objed "ext:package-lint")
+(declare-function package-lint--test-keyseq "ext:package-lint")
+(declare-function package-lint--check-eval-after-load "ext:package-lint")
+(declare-function package-lint-buffer "ext:package-lint")
(when (require 'package-lint nil t)
(define-advice package-lint--get-package-prefix (:override () objed)
"Use objed as prefix for all files."
"objed")
- (define-advice package-lint--check-eval-after-load
- (:override () ignore)
- nil)
- (define-advice package-lint--test-keyseq
- (:override (_) ignore)
- nil)
+ (fset #'package-lint--test-keyseq #'ignore)
+ (fset #'package-lint--check-eval-after-load #'ignore)
(let ((success t))
(dolist (file (file-expand-wildcards "*.el"))
(with-temp-buffer
