07/08: gnu: emacs-rjsx-mode: Fix build.

[guix-commits]

lilyp pushed a commit to branch emacs-team
in repository guix.

commit 10664c0f1c351eae24629127d97fe23f5e18a93c
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Fri Sep 15 21:11:56 2023 +0200

    gnu: emacs-rjsx-mode: Fix build.
    
    * gnu/packages/emacs-xyz.scm (emacs-rjsx-mode)[#:phases]: Add
    ‘js2-number-tests’.
---
 gnu/packages/emacs-xyz.scm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 6b4c23290c..6ca833b484 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -31014,7 +31014,25 @@ definition-jumping and type-checking on demand.")
      (list emacs-js2-mode))
     (arguments
      `(#:tests? #t
-       #:test-command '("make" "test")))
+       #:test-command '("make" "test")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'js2-number-tests
+           (lambda _
+             ((lambda (file test-name)     ; variant of ert-number-tests
+                (emacs-batch-edit-file file
+                  `(let ((i 0))
+                     (while (re-search-forward
+                             ,(string-append "js2-deftest-parse "
+                                             test-name)
+                             nil t)
+                       (goto-char (match-beginning 0))
+                       (kill-region (match-beginning 0) (match-end 0))
+                       (insert (format "xt-deftest %s-%d" ,test-name i))
+                       (setq i (+ i 1)))
+                     (basic-save-buffer))))
+                "rjsx-tests.el.el"
+                "no-attr-no-children-self-closing"))))))
     (home-page "https://github.com/felipeochoa/rjsx-mode";)
     (synopsis "Major mode for JSX files")
     (description "This package extends the parser of @code{js2-mode} to