TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: emacs-ess: Fix build (part 2).

Browse source 
* gnu/packages/statistics.scm (emacs-ess)[arguments]<#:phases>: Use
a different process in order to disable two tests.

This is a followup to 3c1f25fc7b.

Change-Id: I78ee735ef7ee1dea86af602dc714d88bf8185da5
This commit is contained in:
Nicolas Goaziou 2024-01-05 10:55:25 +01:00
parent d2a6480e8e
commit cc0fb54f77
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 19 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/statistics.scm
View file

@ -6805,6 +6805,12 @@ (define-public emacs-ess
(arguments
(let ((base-directory "/share/emacs/site-lisp"))
(list
#:modules '((guix build gnu-build-system)
(guix build utils)
(guix build emacs-utils))
#:imported-modules `(,@%gnu-build-system-modules
(guix build emacs-build-system)
(guix build emacs-utils))
#:make-flags
#~(list (string-append "PREFIX=" #$output)
(string-append "ETCDIR=" #$output #$base-directory "/etc")
@ -6828,18 +6834,26 @@ (define-public emacs-ess
(string-append all "(skip-unless nil)\n"))
...)))))
(disable-tests (list "test/ess-test-inf.el"
"test/ess-test-r.el"
"test/ess-test-r-eval.el")
"test/ess-test-r.el")
("ess--derive-connection-path"
"ess-eval-line-test"
"ess-eval-region-test"
"ess-mock-remote-process"
"ess-r-load-ESSR-github-fetch-no"
"ess-r-load-ESSR-github-fetch-yes"
"ess-r-eval-ns-env-roxy-tracebug-test"
"ess-r-eval-sink-freeze-test"
"ess-set-working-directory-test"
"ess-test-r-startup-directory")))))
"ess-test-r-startup-directory")))
;; The two tests below use a different syntax.
(emacs-batch-edit-file "test/ess-test-r-eval.el"
'(progn
(mapc (lambda (test)
(goto-char (point-min))
(search-forward (format "etest-deftest %s " test))
(beginning-of-line)
(kill-sexp))
'("ess-r-eval-ns-env-roxy-tracebug-test"
"ess-r-eval-sink-freeze-test"))
(basic-save-buffer)))))
(replace 'check
(lambda _ (invoke "make" "test")))))))
(native-inputs