~ruther/guix-local: gnu: emacs-browse-at-remote: Simplify 'check' phase.

8505d34829b99744a36d72dd583768f1e49210a6 — Alex Kost 8 years ago 77bb6c2

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.

patch browse .tar.gz

1 files changed, 4 insertions(+), 12 deletions(-)

M gnu/packages/emacs.scm

M gnu/packages/emacs.scm => gnu/packages/emacs.scm +4 -12

@@ 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