gnu: mgba: Update to 0.10.5-0.c6aa8f5.

* gnu/packages/emulators.scm (mgba): Update to 0.10.5-0.c6aa8f5.
[#:test-exclude]: New argument.

Fixes: #2804
Change-Id: I0352200c4e410f658f25150b17d933b32358f4c1

gnu/packages/emulators.scm

@@ -1088,67 +1088,74 @@ The following systems are supported:
     (license (list license:gpl2+ license:bsd-3))))
 
 (define-public mgba
-  (package
+  ;; Use the latest commit, as the last release does not support Qt 6 yet.
-    (name "mgba")
+  (let ((commit "c6aa8f5523b21fd84336c9855b7f4df54a606a32")
-    (version "0.10.5")
+        (revision "0"))
-    (source
+    (package
-     (origin
+      (name "mgba")
-       (method git-fetch)
+      (version (git-version "0.10.5" revision commit))
-       (uri (git-reference
+      (source
-              (url "https://github.com/mgba-emu/mgba")
+       (origin
-              (commit version)))
+         (method git-fetch)
-       (file-name (git-file-name name version))
+         (uri (git-reference
-       (sha256
+                (url "https://github.com/mgba-emu/mgba")
-        (base32
+                (commit commit)))
-         "1scyvcp8l5z1sy1hcr0wgdf8zrirg07fzqjdmhkjnyhxmb9sibb5"))
+         (file-name (git-file-name name version))
-       (modules '((guix build utils)
+         (sha256
-                  (ice-9 ftw)
+          (base32
-                  (srfi srfi-26)))
+           "0dfsz4dsh49dc9xx9rjhfzfkg4h91i2ksgp2inlr9yhgldw9q8h3"))
-       (snippet
+         (modules '((guix build utils)
-        #~(begin
+                    (ice-9 ftw)
-            (define (delete-all-but directory . preserve)
+                    (srfi srfi-26)))
-              (with-directory-excursion directory
+         (snippet
-                (let* ((pred (negate (cut member <> (cons* "." ".." preserve))))
+          #~(begin
-                       (items (scandir "." pred)))
+              (define (delete-all-but directory . preserve)
-                  (for-each (cut delete-file-recursively <>) items))))
+                (with-directory-excursion directory
+                  (let* ((pred (negate (cut member <> (cons* "." ".." preserve))))
+                         (items (scandir "." pred)))
+                    (for-each (cut delete-file-recursively <>) items))))
 
-            (delete-all-but "src/third-party"
+              (delete-all-but "src/third-party"
-                            "blip_buf"
+                              "blip_buf"
-                            "inih")))))
+                              "inih")))))
-    (build-system qt-build-system)
+      (build-system qt-build-system)
-    (arguments
+      (arguments
-     (list
+       (list
-      #:qtbase qtbase
+        #:qtbase qtbase
-      #:configure-flags
+        #:configure-flags
-      #~(list "-DBUILD_SUITE=ON"
+        #~(list "-DBUILD_SUITE=ON"
-              "-DUSE_DISCORD_RPC=OFF"   ;avoid bundled copy
+                "-DUSE_DISCORD_RPC=OFF" ;avoid bundled copy
-              "-DUSE_LIBZIP=OFF"        ;use "zlib" instead
+                "-DUSE_LIBZIP=OFF"      ;use "zlib" instead
-              "-DUSE_LZMA=OFF")))       ;do not use bundled LZMA
+                "-DUSE_LZMA=OFF")       ;do not use bundled LZMA
-    (native-inputs (list cmocka pkg-config qttools))
+        ;; The platform-qt-autoscript and platform-qt-library tests fails due
-    (inputs
+        ;; to 'LibraryModelTest::testList' not returning the expected value
-     (list ffmpeg
+        ;; (see: <https://github.com/mgba-emu/mgba/issues/3593>).
-           libedit
+        #:test-exclude "(platform-qt-autoscript|platform-qt-library)"))
-           elfutils
+      (native-inputs (list cmocka pkg-config qttools))
-           libepoxy
+      (inputs
-           libpng
+       (list ffmpeg
-           mesa
+             libedit
-           minizip
+             elfutils
-           ncurses
+             libepoxy
-           qtbase
+             libpng
-           qtmultimedia
+             mesa
-           sdl2
+             minizip
-           sqlite
+             ncurses
-           zlib))
+             qtbase
-    (home-page "https://mgba.io")
+             qtmultimedia
-    (synopsis "Game Boy Advance emulator")
+             sdl2
-    (description
+             sqlite
-     "mGBA is an emulator for running Game Boy Advance games.  It aims to be
+             zlib))
-faster and more accurate than many existing Game Boy Advance emulators, as
+      (home-page "https://mgba.io")
-well as adding features that other emulators lack.  It also supports Game Boy
+      (synopsis "Game Boy Advance emulator")
-and Game Boy Color games")
+      (description
-    (license (list license:mpl2.0       ;mgba itself
+       "mGBA is an emulator for running Game Boy Advance games.  It aims to be
-                   license:lgpl2.1+     ;blip_buf bundled library
+        faster and more accurate than many existing Game Boy Advance emulators, as
-                   license:bsd-3))))    ;inih bundled library
+        well as adding features that other emulators lack.  It also supports Game Boy
+        and Game Boy Color games")
+      (license (list license:mpl2.0     ;mgba itself
+                     license:lgpl2.1+   ;blip_buf bundled library
+                     license:bsd-3)))))    ;inih bundled library
 
 (define-public mgba-for-dolphin
   ;; The commit should match that of the mgba git submodule in dolphin (see: