;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Peter Mikkelsen ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu tests audio) #:use-module (gnu tests) #:use-module (gnu system) #:use-module (gnu system vm) #:use-module (gnu services) #:use-module (gnu services audio) #:use-module (gnu packages mpd) #:use-module (guix gexp) #:export (%test-mpd)) (define %mpd-os (simple-operating-system (service mpd-service-type (mpd-configuration (user "root"))))) (define (run-mpd-test) "Run tests in %mpd-os, which has mpd running." (define os (marionette-operating-system %mpd-os #:imported-modules '((gnu services herd)))) (define vm (virtual-machine os)) (define test (with-imported-modules '((gnu build marionette)) #~(begin (use-modules (srfi srfi-64) (gnu build marionette)) (define marionette (make-marionette (list #$vm))) (mkdir #$output) (chdir #$output) (test-begin "mpd") (test-assert "service is running" (marionette-eval '(begin (use-modules (gnu services herd)) (start-service 'mpd)) marionette)) (test-assert "mpc connect" (marionette-eval '(zero? (system #$(file-append mpd-mpc "/bin/mpc"))) marionette)) (test-end) (exit (= (test-runner-fail-count (test-runner-current)) 0))))) (gexp->derivation "mpd-test" test)) (define %test-mpd (system-test (name "mpd") (description "Test that the mpd can run and be connected to.") (value (run-mpd-test)))) iv>
AgeCommit message (Expand)Author
2016-06-16gnu: openntpd: Update to 6.0p1....Efraim Flashner
2016-06-05gnu: ntp: Update to 4.2.8p8 [fixes CVE-2016-{4953, 4954, 4955, 4956, 4957}]....Leo Famulari
2016-06-05gnu: ntp: Add HTTPS URL....Leo Famulari
2016-05-09gnu: openntpd: Update to 5.9p1....Efraim Flashner
2016-05-05gnu: ntp: Update to 4.2.8p7 [security fixes]....Leo Famulari
2016-02-02gnu: ntp: Update to 4.2.8p6....Leo Famulari
2015-12-19gnu: Add tlsdate....Ludovic Courtès
2015-10-22gnu: ntp: Update to 4.2.8p4....Mark H Weaver
2015-07-18gnu packages: Clean up synopses and descriptions....Alex Kost
2015-07-11gnu: ntp: Update to 4.2.8p3; use system libevent....Mark H Weaver
2015-07-05gnu: Move content of openssl module into tls module....Andreas Enge
2015-04-18gnu: ntp: Update to 4.2.8p2....Mark H Weaver
2015-03-04gnu: Move 'which' to (gnu packages base)....Ludovic Courtès
2015-02-10gnu: Add openntpd....Taylan Ulrich Bayırlı/Kammer
2015-02-06gnu: ntp: Update to 4.2.8p1....Mark H Weaver
2014-12-25gnu: ntp: Update to 4.2.8....Mark H Weaver
2014-11-05gnu: ntp: Build with POSIX capabilities support on GNU/Linux....Ludovic Courtès
2014-10-19gnu: Add ntp...John Darrington