File: Eldev

package info (click to toggle)
with-simulated-input-el 3.0-4
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 212 kB
  • sloc: lisp: 970; sh: 11; makefile: 9
file content (34 lines) | stat: -rw-r--r-- 1,274 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
;; -*- mode: emacs-lisp; lexical-binding: t; no-byte-compile: t -*-

(eldev-use-plugin 'undercover)

(eldev-use-package-archive 'gnu)
(eldev-use-package-archive 'melpa)

(setq eldev-test-framework 'buttercup)

;; Tell checkdoc not to demand two spaces after a period.
(setq sentence-end-double-space nil)

;; Disable eager macro expansion during test loading, so that macros
;; get expanded *during* test execution, not before.
(defvar internal-macroexpand-for-load-original-symbol-function
  (symbol-function 'internal-macroexpand-for-load))

(add-hook
 'eldev-before-loading-dependencies-hook
 (lambda (type additional-sets)
   ;; Execute before loading test deps. This hook is the closest I can
   ;; find to "right before loading the test files".
   (when (and type
              (memq 'test (if (listp additional-sets)
                              additional-sets
                            (list additional-sets))))
     (fmakunbound 'internal-macroexpand-for-load))))

;; In order to minimize the possibility of disruption, put the
;; function back after loading the tests.
(add-hook 'eldev-test-buttercup-hook
          (lambda (&rest _)
            (fset 'internal-macroexpand-for-load
                   internal-macroexpand-for-load-original-symbol-function)))