gnu: emacs-ledger-mode: Update to 4.0.0.

* gnu/packages/finance.scm (emacs-ledger-mode): Update to 4.0.0.
[arguments]<#:tests?>: Remove argument.
[phases] check: Replace with working check phase.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>

gnu/packages/finance.scm

@@ -355,21 +355,18 @@ in ability, and easy to use.")
                     "See src/wcwidth.cc in the distribution.")))))
 
 (define-public emacs-ledger-mode
-  ;; There have been no new releases since 2016.
-  (let ((commit "253a20dc62e137ed0ed8e1dd8614ecba116610ea")
-        (revision "1"))
   (package
     (name "emacs-ledger-mode")
-      (version (git-version "3.1.1" revision commit))
+    (version "4.0.0")
     (source
      (origin
        (method git-fetch)
        (uri (git-reference
              (url "https://github.com/ledger/ledger-mode")
-               (commit commit)))
+             (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-          (base32 "06wrgkqpgvk17vibrk2qikdlqn8y63jg86marp1wgmram92mb3jk"))))
+        (base32 "1r5rcyxd6d1rqwamzpvqdbkbdf1zbj75aaciqijrklnm59ps244y"))))
     (build-system cmake-build-system)
     (arguments
      `(#:modules ((guix build cmake-build-system)
@@ -377,7 +374,6 @@ in ability, and easy to use.")
                   (guix build emacs-utils))
        #:imported-modules (,@%cmake-build-system-modules
                            (guix build emacs-utils))
-         #:tests? #f ; there are none
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'patch-site-dir
@@ -406,7 +402,11 @@ in ability, and easy to use.")
              (let* ((site-dir (string-append (assoc-ref outputs "out")
                                              "/share/emacs/site-lisp")))
                (emacs-generate-autoloads ,name site-dir))
-               #t)))))
+             #t))
+         (replace 'check
+           (lambda _
+             (with-directory-excursion "../source/test"
+               (invoke "make" "test-batch")))))))
     (inputs
      `(("ledger" ,ledger)))
     (native-inputs
@@ -429,7 +429,7 @@ a graph or html instead.  Ledger is simple in concept, surprisingly rich
 in ability, and easy to use.
 
 This package provides the Emacs mode.")
-      (license license:gpl2+))))
+    (license license:gpl2+)))
 
 (define-public geierlein
   (package