diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2024-04-11 10:29:29 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2024-04-11 10:29:29 +0200 |
| commit | d564e04dedbba18744f1071b48b09f190ef4d5ad (patch) | |
| tree | 58d8872a5c1fae7dc411eebeda2ed9cfc0e7d2d4 /gnu/packages/statistics.scm | |
| parent | c1c9d6b3cdf5955f1bf5fded2a0c496ce2e631f1 (diff) | |
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
Diffstat (limited to 'gnu/packages/statistics.scm')
| -rw-r--r-- | gnu/packages/statistics.scm | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index a55d931d12..ba8ff10059 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -6888,19 +6888,35 @@ Java package that provides routines for various statistical distributions.") (((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")))))))) |