summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/packages/glib.scm48
1 files changed, 48 insertions, 0 deletions
diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index 5e1b55019b..12ba6e939b 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -12,6 +12,7 @@
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2020 Nicolò Balzarotti <nicolo@nixo.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -54,6 +55,7 @@
#:use-module (gnu packages perl-check)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
+ #:use-module (gnu packages python-xyz)
#:use-module (gnu packages selinux)
#:use-module (gnu packages web)
#:use-module (gnu packages xml)
@@ -1074,3 +1076,49 @@ simple methods via GObject-Introspection.")
used to create D-Bus sockets inside a Linux container that forwards requests
to the host system, optionally with filters applied.")
(license license:lgpl2.1+)))
+
+(define-public dbus-test-runner
+ (package
+ (name "dbus-test-runner")
+ (version "19.04.0")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://launchpad.net/dbus-test-runner/"
+ (version-major+minor version) "/" version
+ "/+download/dbus-test-runner-" version ".tar.gz"))
+ (sha256
+ (base32
+ "0xnbay58xn0hav208mdsg8dd176w57dcpw1q2k0g5fh9v7xk4nk4"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-before 'configure 'fix-test-paths
+ ;; add missing space
+ (lambda* (#:key outputs #:allow-other-keys)
+ (substitute* "Makefile.in"
+ (("#!/bin/bash") (string-append "#!" (which "bash"))))
+ (substitute* "tests/Makefile.in"
+ (("/bin/sh") (which "sh"))
+ (("#!/bin/bash") (string-append "#!" (which "bash")))
+ (("echo cat") (string-append "echo " (which "cat")))
+ (("/bin/true") (which "true")))
+ #t)))))
+ (inputs
+ `(("gtk+" ,gtk+)
+ ("glib" ,glib)
+ ("dbus-glib" ,dbus-glib)))
+ (native-inputs
+ `(("glib:bin" ,glib "bin")
+ ("intltool" ,intltool)
+ ("pkg-config" ,pkg-config)
+ ;; following used for tests
+ ("python" ,python)
+ ("python-dbusmock" ,python-dbusmock)
+ ("xvfb" ,xorg-server-for-tests)))
+ (home-page "https://launchpad.net/dbus-test-runner")
+ (synopsis "Run a executables under a new DBus session for testing")
+ (description "A small little utility to run a couple of executables under a
+new DBus session for testing.")
+ (license license:gpl3)))