;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(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))))
th class='left'>Commit message (<a href='/guix/log/tests/profiles.scm?id=928e9aa236e665572a3564a4da76358d5700dbab&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-10-22 01:46:55 +0200'>2022-10-22</span></td><td><a href='/guix/commit/tests/profiles.scm?id=a3619079f95213c4f983e69210ed12b38fd31022'>Remove now unnecessary uses of (guix grafts).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-08 23:58:11 +0200'>2022-07-08</span></td><td><a href='/guix/commit/tests/profiles.scm?id=89e22887510ba5d546a4d7e391462e648942a7b6'>profiles: Support the creation of profiles with version 3 manifests.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-01 23:29:16 +0200'>2022-07-01</span></td><td><a href='/guix/commit/tests/profiles.scm?id=4ff12d1de7cd617b791996ee7ca1240660b4c20e'>profiles: Do not repeat entries in 'manifest' file.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-01 23:29:16 +0200'>2022-07-01</span></td><td><a href='/guix/commit/tests/profiles.scm?id=9b8c442b254b82196fe2492142b3c3bbbd891a1b'>tests: Augment profile collision test.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-05-31 14:53:34 -0400'>2022-05-31</span></td><td><a href='/guix/commit/tests/profiles.scm?id=4f18b13436f52c107e66056a9dd3a13bb99c8030'>gnu: Remove python2-matplotlib.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-02-11 23:51:39 +0100'>2022-02-11</span></td><td><a href='/guix/commit/tests/profiles.scm?id=bc1ad69605b6c3e2744694758d63dfc216107a82'>tests: Pass #:guile to 'computed-file' &amp; co.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-10-25 15:29:42 +0200'>2021-10-25</span></td><td><a href='/guix/commit/tests/profiles.scm?id=23f99f1a299ed0e19d926a0f719980b3c151c9c0'>profiles: Add 'package-&gt;development-manifest'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-06-22 17:55:05 +0200'>2021-06-22</span></td><td><a href='/guix/commit/tests/profiles.scm?id=b9a95420abdf4ae7fe9a347031278a44ad6a1cce'>profiles: Build union of inputs in the right order.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-06-18 14:18:07 +0200'>2021-06-18</span></td><td><a href='/guix/commit/tests/profiles.scm?id=ee61777a326c3395518dee5e50ffc9c35ae53f3d'>profiles: Add 'load-profile'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>