gnu: emacs-dumb-jump: Update to 0.5.4-0.1ff02c7.

* gnu/packages/emacs-xyz.scm (emacs-dumb-jump): Update to
0.5.4-0.1ff02c7.
[arguments]: Enable #:tests?.
<#:phases>: Remove ’set-shell; add ’skip-failing-tests.
[propagated-inputs]: Remove emacs-f; add emacs-dash and emacs-s.
[native-inputs]: Add emacs-f.

Merges guix/guix!5502

Change-Id: Id0499353ca3a48ebf4894ffa3d78b6bde6a60828

gnu/packages/emacs-xyz.scm

@@ -31821,41 +31821,80 @@ through the symbol: @command{this-fn}.")
       (license license:gpl3+))))
 
 (define-public emacs-dumb-jump
-  (package
+  ;; Last release in 2021.
-    (name "emacs-dumb-jump")
+  (let ((commit "1ff02c77769716e93ba808f723558409a93d0fcd")
-    (version "0.5.4")
+        (revision "0"))
-    (source
+    (package
-     (origin
+      (name "emacs-dumb-jump")
-       (method git-fetch)
+      (version (git-version "0.5.4" revision commit))
-       (uri (git-reference
+      (source
-             (url "https://github.com/jacktasia/dumb-jump")
+       (origin
-             (commit (string-append "v" version))))
+         (method git-fetch)
-       (file-name (git-file-name name version))
+         (uri (git-reference
-       (sha256
+                (url "https://github.com/jacktasia/dumb-jump")
-        (base32 "18d2ll5wlll6pm909hiw8w9ijdbrjvy86q6ljzx8yyrjphgn0y1y"))))
+                (commit commit)))
-    (build-system emacs-build-system)
+         (file-name (git-file-name name version))
-    (arguments
+         (sha256
-     `(#:tests? #f                      ; FIXME: Tests freeze when run.
+          (base32 "1ip2mnr0i8rwj0ygj3sd455lkrb0jpjm4ib4rchrv4qzcc4krasq"))))
-       #:phases
+      (build-system emacs-build-system)
-       (modify-phases %standard-phases
+      (arguments
-         (add-after 'unpack 'set-shell
+       (list
-           (lambda _
+        #:test-command
-             ;; Setting the SHELL environment variable is required for the
+        #~(list "emacs" "--batch" "-L" "." "-L" "test"
-             ;; tests to find sh.
+                "-l" "test/test-helper.el"
-             (setenv "SHELL" (which "sh")))))))
+                "-l" "test/dumb-jump-test.el"
-    (native-inputs
+                "-f" "ert-run-tests-batch-and-exit")
-     (list emacs-el-mock emacs-ert-runner emacs-noflet emacs-undercover))
+        #:phases
-    (propagated-inputs
+        #~(modify-phases %standard-phases
-     (list emacs-f emacs-popup))
+            (add-before 'check 'skip-failing-tests
-    (home-page "https://github.com/jacktasia/dumb-jump")
+              (lambda _
-    (synopsis "Jump to definition for multiple languages without configuration")
+                (let ((skip-tests
-    (description "Dumb Jump is an Emacs \"jump to definition\" package with
+                       '(;; these tests hang
+                         "a-back-test"
+                         "cpp-test1"
+                         "go-current-window-test"
+                         "go-other-window-test"
+                         "go-test"
+                         ;; these tests fail
+                         "go-var-arg-test"
+                         "org-issue135"
+                         "org-test1"
+                         "org-test2"
+                         "pick-grep-variant-git-grep-in-git-repo"
+                         "prefer-external"
+                         "prefer-external-only-current"
+                         "prefer-external-other-window"
+                         "prefer-only-external"
+                         "quick-look-test"
+                         "react-test1"
+                         "react-test2"
+                         "react-test3"
+                         "react-test4"
+                         "react-test5"
+                         "run-cmd-test"
+                         "test-grep-rules-not-test")))
+                  (substitute* "test/dumb-jump-test.el"
+                    (("\\(ert-deftest dumb-jump-([a-z0-9-]*) \\(\\)" all test)
+                     (if (member test skip-tests)
+                         (string-append all "(skip-unless nil)")
+                         all)))))))))
+      (native-inputs
+       (list emacs-el-mock
+             emacs-ert-runner
+             emacs-f
+             emacs-noflet
+             emacs-undercover))
+      (propagated-inputs
+       (list emacs-dash emacs-s emacs-popup))
+      (home-page "https://github.com/jacktasia/dumb-jump")
+      (synopsis "Jump to definition for multiple languages without configuration")
+      (description "Dumb Jump is an Emacs \"jump to definition\" package with
 support for multiple programming languages that favors \"just working\" over
 speed or accuracy.  This means minimal --- and ideally zero --- configuration
 with absolutely no stored indexes (tags) or persistent background processes.
 Dumb Jump performs best with The Silver Searcher @command{ag} or ripgrep
 @command{rg} installed.")
-    (license license:gpl3+)))
+      (license license:gpl3+))))
 
 (define-public emacs-dts-mode
   (package