gnu: kio: Add more inputs.

* gnu/packages/kde-frameworks.scm (kio)[inputs]: Add kded and
qtdeclarative-5.
[propagated-inputs]: Add libacl.
[arguments]: Enable 2 passing tests.  Use gexp.

Signed-off-by: Marius Bakke <marius@gnu.org>
This commit is contained in:
Petr Hodina 2022-09-27 23:14:34 +02:00 committed by Marius Bakke
parent afbb65243d
commit 5f3c3d53eb
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA

View file

@ -2641,7 +2641,8 @@ (define-public kio
(patches (search-patches "kio-search-smbd-on-PATH.patch")))) (patches (search-patches "kio-search-smbd-on-PATH.patch"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(propagated-inputs (propagated-inputs
(list kbookmarks (list acl
kbookmarks
kconfig kconfig
kcompletion kcompletion
kcoreaddons kcoreaddons
@ -2653,14 +2654,14 @@ (define-public kio
solid)) solid))
(native-inputs (native-inputs
(list extra-cmake-modules dbus kdoctools qttools-5)) (list extra-cmake-modules dbus kdoctools qttools-5))
(inputs (list ;; TODO: LibACL , <ftp://oss.sgi.com/projects/xfs/cmd_tars> (inputs (list mit-krb5
mit-krb5
karchive karchive
kauth kauth
kcodecs kcodecs
kconfigwidgets kconfigwidgets
kcrash kcrash
kdbusaddons kdbusaddons
kded
kguiaddons kguiaddons
kiconthemes kiconthemes
ki18n ki18n
@ -2671,14 +2672,15 @@ (define-public kio
libxml2 libxml2
libxslt libxslt
qtbase-5 qtbase-5
qtdeclarative-5
qtscript qtscript
qtx11extras qtx11extras
sonnet sonnet
`(,util-linux "lib") ; libmount `(,util-linux "lib") ; libmount
zlib)) zlib))
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch (add-after 'unpack 'patch
(lambda _ (lambda _
;; Better error message (taken from NixOS) ;; Better error message (taken from NixOS)
@ -2693,10 +2695,10 @@ (define-public kio
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "DBUS_FATAL_WARNINGS" "0") (setenv "DBUS_FATAL_WARNINGS" "0")
(invoke "dbus-launch" "ctest" (invoke "dbus-launch" "ctest"
"-E" ; FIXME: 19/67 tests fail. "-E" ; FIXME: 17/69 tests fail.
(string-append "(kiocore-jobtest" (string-append "(kiocore-jobtest"
"|fileitemtest"
"|kiocore-kmountpointtest" "|kiocore-kmountpointtest"
"|kiocore-kfileitemtest"
"|kiocore-ktcpsockettest" "|kiocore-ktcpsockettest"
"|kiocore-mimetypefinderjobtest" "|kiocore-mimetypefinderjobtest"
"|kiocore-krecentdocumenttest" "|kiocore-krecentdocumenttest"
@ -2708,18 +2710,15 @@ (define-public kio
"|commandlauncherjob_forkingtest" "|commandlauncherjob_forkingtest"
"|commandlauncherjob_scopetest" "|commandlauncherjob_scopetest"
"|commandlauncherjob_servicetest" "|commandlauncherjob_servicetest"
"|kiowidgets-kdirlistertest"
"|kiowidgets-kdirmodeltest" "|kiowidgets-kdirmodeltest"
"|kiowidgets-kurifiltertest-colon-separator" "|kiowidgets-kurifiltertest-colon-separator"
"|kiowidgets-kurifiltertest-space-separator" "|kiowidgets-kurifiltertest-space-separator)")))))
"|kiofilewidgets-knewfilemenutest)")))))
(add-after 'install 'add-symlinks (add-after 'install 'add-symlinks
;; Some package(s) (e.g. bluedevil) refer to these service types by ;; Some package(s) (e.g. bluedevil) refer to these service types by
;; the wrong name. I would prefer to patch those packages, but I ;; the wrong name. I would prefer to patch those packages, but I
;; cannot find the files! ;; cannot find the files!
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((kst5 (string-append (assoc-ref outputs "out") (let ((kst5 (string-append #$output "/share/kservicetypes5/")))
"/share/kservicetypes5/")))
(symlink (string-append kst5 "kfileitemactionplugin.desktop") (symlink (string-append kst5 "kfileitemactionplugin.desktop")
(string-append kst5 "kfileitemaction-plugin.desktop")))))))) (string-append kst5 "kfileitemaction-plugin.desktop"))))))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")