gnu: qtwayland-5: Update to 5.15.8.

* gnu/packages/qt.scm (qtwayland-5): Update to 5.15.8.
[arguments]: Use gexps.
This commit is contained in:
Maxim Cournoyer 2023-03-27 16:09:50 -04:00
parent 4f884cff29
commit b7f1104f0f
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -1608,38 +1608,38 @@ (define-public qtmultimedia
(license (package-license qtbase)))) (license (package-license qtbase))))
(define-public qtwayland-5 (define-public qtwayland-5
(package (inherit qtsvg-5) (package
(inherit qtsvg-5)
(name "qtwayland") (name "qtwayland")
(version "5.15.5") (version "5.15.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (qt-urls name version)) (uri (qt-urls name version))
(patches (search-patches "qtwayland-gcc-11.patch" (patches (search-patches "qtwayland-gcc-11.patch"
"qtwayland-dont-recreate-callbacks.patch" "qtwayland-dont-recreate-callbacks.patch"
"qtwayland-cleanup-callbacks.patch")) "qtwayland-cleanup-callbacks.patch"))
(sha256 (sha256
(base32 (base32
"0yy8qf9kn15iqsxi2r7jbcsc0vsdyfz7bbxmfn4i9qmz1yvg0jgr")))) "0aa5jcvvap6qca6imdkhs1mhv5bnaxn466mmpl7x78jx1za7n3ps"))))
(arguments (arguments
(substitute-keyword-arguments (package-arguments qtsvg-5) (substitute-keyword-arguments (package-arguments qtsvg-5)
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases #~(modify-phases #$phases
(add-after 'unpack 'disable-failing-tests (add-after 'unpack 'disable-failing-tests
(lambda _ (lambda _
;; FIXME: tst_seatv4::animatedCursor() fails for no good ;; FIXME: tst_seatv4::animatedCursor() fails for no good
;; reason and breaks these two tests. ;; reason and breaks these two tests.
(substitute* "tests/auto/client/seatv4/tst_seatv4.cpp" (substitute* "tests/auto/client/seatv4/tst_seatv4.cpp"
(((string-append "QVERIFY\\(!cursorSurface\\(\\)->" (((string-append "QVERIFY\\(!cursorSurface\\(\\)->"
"m_waitingFrameCallbacks\\.empty\\(\\)\\);")) "m_waitingFrameCallbacks\\.empty\\(\\)\\);"))
"") "")
(("QTRY_COMPARE\\(bufferSpy\\.count\\(\\), 1\\);") (("QTRY_COMPARE\\(bufferSpy\\.count\\(\\), 1\\);")
"")))) ""))))
(add-before 'check 'set-test-environment (add-before 'check 'set-test-environment
(lambda _ (lambda _
;; Do not fail just because /etc/machine-id is missing. ;; Do not fail just because /etc/machine-id is missing.
(setenv "DBUS_FATAL_WARNINGS" "0"))))))) (setenv "DBUS_FATAL_WARNINGS" "0")))))))
(native-inputs (native-inputs (list glib perl pkg-config qtdeclarative-5))
(list glib perl pkg-config qtdeclarative-5))
(inputs (inputs
(list fontconfig (list fontconfig
freetype freetype