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

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 8505d34829b99744a36d72dd583768f1e49210a6
Author: Alex Kost <address@hidden>
Date:   Mon Sep 4 22:40:18 2017 +0300

    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.
---
 gnu/packages/emacs.scm | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index be89790..b233637 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -5489,22 +5489,14 @@ Idris.")
       (propagated-inputs
        `(("emacs-f" ,emacs-f)
          ("emacs-s" ,emacs-s)))
+      (native-inputs
+       `(("ert-runner" ,ert-runner)))
       (arguments
        `(#:phases
          (modify-phases %standard-phases
            (add-before 'install 'check
-             (lambda* (#:key inputs #:allow-other-keys)
-               (zero? (system* "emacs" "--batch" "-L" "."
-                               "-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")))))))
+             (lambda _
+               (zero? (system* "ert-runner")))))))
       (home-page "https://github.com/rmuslimov/browse-at-remote";)
       (synopsis "Open github/gitlab/bitbucket/stash page from Emacs")
       (description