;;; 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))))
09:02 +0300'>2016-04-18</span></td><td><a href='/guix/commit/NEWS?id=b4b9975d4abf8ee7d4f3762e5e6aea656cbeb61f'>emacs: Add interface for package locations.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2016-03-28 22:51:18 +0200'>2016-03-28</span></td><td><a href='/guix/commit/NEWS?id=34bf416e4a61324db80c5cea4ea5463f687057f9'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-03-27 19:23:26 +0200'>2016-03-27</span></td><td><a href='/guix/commit/NEWS?id=c8786834ef53501e4ef0090b95520e4cefbe5b7b'>Update 'NEWS'.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-03-02 21:41:41 +0100'>2016-03-02</span></td><td><a href='/guix/commit/NEWS?id=1b846da8c372bee78851439fd9e72b2499115e5a'>utils: Use '@' for separating package names and version numbers.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2016-01-25 22:11:47 +0300'>2016-01-25</span></td><td><a href='/guix/commit/NEWS?id=687c9bc0233facde4068ea7f9fed2b2ae931adab'>emacs: Add interface for licenses.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2016-01-25 22:11:47 +0300'>2016-01-25</span></td><td><a href='/guix/commit/NEWS?id=0a2a2b3387199c374c23912c0acfdf4156a0a84f'>emacs: Rename 'file-path' to 'file-name'.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2016-01-16 13:02:21 +0300'>2016-01-16</span></td><td><a href='/guix/commit/NEWS?id=67cedc4ba69ec90b2d9d94646b861ba6821f342d'>emacs: Add interface for system generations.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2016-01-02 17:25:35 +0300'>2016-01-02</span></td><td><a href='/guix/commit/NEWS?id=1ae858f33313ff6e74cfad2b7ecd1d271938e775'>Update NEWS.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2015-11-06 22:20:03 +0300'>2015-11-06</span></td><td><a href='/guix/commit/NEWS?id=4daa31270a3059e260787d9bf240469b40ec21a5'>Update NEWS.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2015-11-04 11:12:03 +0100'>2015-11-04</span></td><td><a href='/guix/commit/NEWS?id=f6082affda1dc598199a4bad85dba2d79826159d'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-11-04 10:54:39 +0100'>2015-11-04</span></td><td><a href='/guix/commit/NEWS?id=316d65be0ca41c277349c4f0127513f98dbec680'>doc: Back up on the claim of encrypted root partitions.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-11-04 00:12:19 +0100'>2015-11-04</span></td><td><a href='/guix/commit/NEWS?id=f194445a65d8f2798c23528d4be8e8ed06f34d79'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-21 21:32:29 +0200'>2015-07-21</span></td><td><a href='/guix/commit/NEWS?id=e9ade3eeef5e79a48e83be7847cb39eee497f862'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-21 00:40:08 +0200'>2015-07-21</span></td><td><a href='/guix/commit/NEWS?id=617372ef70ca8a0630070c5d7d66a599ea0cd3d4'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-05-13 23:41:08 +0200'>2015-05-13</span></td><td><a href='/guix/commit/NEWS?id=ec6b5a9942c4ce7b368514c4c9e388dee4f7343a'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-05-13 12:31:18 -0400'>2015-05-13</span></td><td><a href='/guix/commit/NEWS?id=d423ac6047b9fec17314ea0e6351e174b0074f61'>NEWS: Mention new postgresql service in 0.8.2.</a></td><td>David Thompson</td></tr>
<tr><td><span title='2015-05-13 11:48:12 +0200'>2015-05-13</span></td><td><a href='/guix/commit/NEWS?id=6b832e4d7bdb51aaf90b192b2c6d4c4ccdbf75fd'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-28 22:01:29 +0100'>2015-01-28</span></td><td><a href='/guix/commit/NEWS?id=983c082a747c76bfefcfa0258d804f94c1f5afed'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-28 21:32:58 +0100'>2015-01-28</span></td><td><a href='/guix/commit/NEWS?id=d31721464e6a19897d137994996eb829fcfbd130'>nls: Update 'vi' translation.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-28 10:56:04 +0100'>2015-01-28</span></td><td><a href='/guix/commit/NEWS?id=43faf869b943f87ee20d438ee6134acf5fd2f1c2'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>