gnu: emacs-ess: Fix build.

* gnu/packages/statistics.scm (emacs-ess)[arguments]<#:phases>: Re-instate
DISABLE-ETESTS function, which properly disables some tests in the
"ess-test-r-eval.el" file.

Change-Id: I71a6683e9e561f03658f871cabd0cbb36c298199
This commit is contained in:
Nicolas Goaziou 2024-04-11 10:29:29 +02:00
parent c1c9d6b3cd
commit d564e04ded
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D

View file

@ -6888,19 +6888,35 @@ (define-public emacs-ess
(((string-append "^\\(ert-deftest " test-name ".*")
all)
(string-append all "(skip-unless nil)\n"))
...)))))
...))))
(disable-etests ;different test syntax
(syntax-rules ()
((_ file ())
(syntax-error "test names list must not be empty"))
((_ file (test-name ...))
(emacs-batch-edit-file file
'(progn
(mapc (lambda (test)
(goto-char (point-min))
(search-forward
(format "etest-deftest %s " test))
(beginning-of-line)
(kill-sexp))
(list test-name ...))
(basic-save-buffer)))))))
(disable-tests (list "test/ess-test-inf.el"
"test/ess-test-r.el")
("ess--derive-connection-path"
"ess-eval-line-test"
"ess-eval-region-test"
"ess-mock-remote-process"
"ess-r-eval-sink-freeze-test"
"ess-r-eval-ns-env-roxy-tracebug-test"
"ess-r-load-ESSR-github-fetch-no"
"ess-r-load-ESSR-github-fetch-yes"
"ess-set-working-directory-test"
"ess-test-r-startup-directory")))))
"ess-test-r-startup-directory"))
(disable-etests "test/ess-test-r-eval.el"
("ess-r-eval-ns-env-roxy-tracebug-test"
"ess-r-eval-sink-freeze-test")))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests? (invoke "make" "test"))))))))