diff options
author | Brian Leung <leungbk@mailfence.com> | 2019-09-21 05:57:19 +0200 |
---|---|---|
committer | Brian Leung <leungbk@mailfence.com> | 2019-09-21 05:57:19 +0200 |
commit | 38f549f28d73098dc31b879ff3dd73ecb5ab043f (patch) | |
tree | a289b709c883b470d698f8efc3d92197af5153ee | |
parent | ab74b365ee19c035816ff77f515ac2c7cc31317b (diff) | |
download | guix-38f549f28d73098dc31b879ff3dd73ecb5ab043f.tar guix-38f549f28d73098dc31b879ff3dd73ecb5ab043f.tar.gz |
gnu: emacs-lispy: Enable tests.
* gnu/packages/emacs-xyz.scm (emacs-lispy): Enable tests.
-rw-r--r-- | gnu/packages/emacs-xyz.scm | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 7f0adaedc3..ad53ebaea0 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -5293,8 +5293,32 @@ navigate code in a tree-like fashion.") ("emacs-ivy" ,emacs-ivy) ("emacs-hydra" ,emacs-hydra) ("emacs-zoutline" ,emacs-zoutline))) + (native-inputs + `(("emacs-clojure-mode" ,emacs-clojure-mode) + ("emacs-undercover" ,emacs-undercover))) (arguments - `(#:include (cons* "\\.clj$" "\\.edn$" "\\.py$" %default-include))) + `(#:include (cons* "\\.clj$" "\\.edn$" "\\.py$" %default-include) + #:phases + ;; XXX: one failing test involving python evaluation + (modify-phases %standard-phases + (add-before 'check 'make-test-writable + (lambda _ + (make-file-writable "lispy-test.el") + #t)) + (add-before 'check 'remove-python-eval-test + (lambda _ + (emacs-batch-edit-file "lispy-test.el" + `(progn + (progn + (goto-char (point-min)) + (re-search-forward + "ert-deftest lispy-eval-python-str") + (beginning-of-line) + (kill-sexp)) + (basic-save-buffer))) + #t))) + #:tests? #t + #:test-command '("make" "test"))) (synopsis "Modal S-expression editing") (description "Due to the structure of Lisp syntax it's very rare for the programmer |