diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-08-19 01:37:20 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-08-19 01:37:20 +0200 |
| commit | 50b2db40ea03d8b3c78b3a774e057ebab0f98790 (patch) | |
| tree | b964fbe527b2d74128a4cdc8af2ad26c36e45178 | |
| parent | 1fcf9c0d7de956e7029090bdcc5b921932e95082 (diff) | |
| download | guix-50b2db40ea03d8b3c78b3a774e057ebab0f98790.tar.gz guix-50b2db40ea03d8b3c78b3a774e057ebab0f98790.zip | |
guix: emacs-utils: Add ert-number-tests.
* guix/build/utils.scm (ert-number-tests): New variable.
| -rw-r--r-- | guix/build/emacs-utils.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/guix/build/emacs-utils.scm b/guix/build/emacs-utils.scm index 850b1f5f2a..ac3dac57d1 100644 --- a/guix/build/emacs-utils.scm +++ b/guix/build/emacs-utils.scm @@ -40,6 +40,7 @@ emacs-byte-compile-directory emacs-compile-directory emacs-header-parse + ert-number-tests as-display emacs-substitute-sexps @@ -183,6 +184,19 @@ If native code is not supported, compile to bytecode instead." (insert " ") (insert ,(format #f "~s" replacement)))))) +(define (ert-number-tests file test-name) + "Add a numerically increasing suffix to tests of the same name. +This fixes test errors of the pattern \"Test TEST_NAME redefined\"." + (emacs-batch-edit-file file + `(let ((i 0)) + (while (re-search-forward ,(string-append "ert-deftest " test-name) + nil t) + (goto-char (match-beginning 0)) + (kill-region (match-beginning 0) (match-end 0)) + (insert (format "ert-deftest %s-%d" ,test-name i)) + (setq i (+ i 1))) + (basic-save-buffer)))) + (define-syntax emacs-substitute-sexps (syntax-rules () "Substitute the S-expression immediately following the first occurrence of |