gnu: emacs-browse-at-remote: Simplify 'check' phase.

* gnu/packages/emacs.scm (emacs-browse-at-remote)[native-inputs]: Add
'ert-runner'.
[arguments]: Run it in the 'check' phase.
This commit is contained in:
Alex Kost 2017-09-04 22:40:18 +03:00
parent 77bb6c227b
commit 8505d34829
No known key found for this signature in database
GPG Key ID: 82460C082A0EE98F
1 changed files with 4 additions and 12 deletions

View File

@ -5489,22 +5489,14 @@ Idris.")
(propagated-inputs (propagated-inputs
`(("emacs-f" ,emacs-f) `(("emacs-f" ,emacs-f)
("emacs-s" ,emacs-s))) ("emacs-s" ,emacs-s)))
(native-inputs
`(("ert-runner" ,ert-runner)))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'install 'check (add-before 'install 'check
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(zero? (system* "emacs" "--batch" "-L" "." (zero? (system* "ert-runner")))))))
"-L" (string-append
(assoc-ref inputs "emacs-f")
"/share/emacs/site-lisp/guix.d/f-"
,(package-version emacs-f))
"-L" (string-append
(assoc-ref inputs "emacs-s")
"/share/emacs/site-lisp/guix.d/s-"
,(package-version emacs-s))
"-l" "test/api-basic-test.el"
"-f" "ert-run-tests-batch-and-exit")))))))
(home-page "https://github.com/rmuslimov/browse-at-remote") (home-page "https://github.com/rmuslimov/browse-at-remote")
(synopsis "Open github/gitlab/bitbucket/stash page from Emacs") (synopsis "Open github/gitlab/bitbucket/stash page from Emacs")
(description (description