;;; 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)))

(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 "mpd listening"
            ;; Wait until mpd is actually listening before spawning 'mpc'.
            (wait-for-tcp-port 6600 marionette))

          (test-equal "mpc connect"
            0
            (marionette-eval
             '(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))))
a498a346d867083540242e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-05-05 23:47:48 +0200'>2023-05-05</span></td><td><a href='/guix/commit/tests/read-print.scm?id=8749f31485888c587c6f88a0a7bdd48cc9e8c9b8'>read-print: Correctly read "(. x)".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-04-24 10:27:13 +0200'>2023-04-24</span></td><td><a href='/guix/commit/tests/read-print.scm?id=7931ac810b8feaadcbbfa3a31786087da2d5ee73'>read-print: 'pretty-print-with-comments' keeps newlines on long strings.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-16 23:03:18 +0100'>2023-03-16</span></td><td><a href='/guix/commit/tests/read-print.scm?id=83128f00e9149f3c1bcd4450eb0ed3620a37149c'>read-print: 'read-with-comments' reads comments within gexps.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-07 11:39:50 +0100'>2023-03-07</span></td><td><a href='/guix/commit/tests/read-print.scm?id=0a37921d851b94aef6900214098dc5bd62b46e26'>read-print: Correctly handle comments that follow a list head.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-01-09 17:40:54 +0100'>2023-01-09</span></td><td><a href='/guix/commit/tests/read-print.scm?id=6c343d0d0f6b8560e9eb594ce1d4f984753a35fb'>read-print: Do not use extended notation when printing '1+', '1-', etc.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-20 19:24:31 +0200'>2022-09-20</span></td><td><a href='/guix/commit/tests/read-print.scm?id=7a698da0d04d75f1c49f9ae9f358070acab0f781'>read-print: Correctly support multiple same-named newline forms.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-02 10:49:35 +0200'>2022-09-02</span></td><td><a href='/guix/commit/tests/read-print.scm?id=82968362ead0ed59c64ee8a21fec346c9265a149'>read-print: Define forms for which \n, \t, etc. are not escaped.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-01 18:31:26 +0200'>2022-09-01</span></td><td><a href='/guix/commit/tests/read-print.scm?id=c3b1cfe76b7038f4030d7d207ffc417fed9a7ead'>read-print: Guess the base to use for integers being printed.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-10 16:53:58 +0200'>2022-08-10</span></td><td><a href='/guix/commit/tests/read-print.scm?id=ebda12e1d2c64480bb7d5977e580d8b2eabeb503'>read-print: Report missing closing parens instead of looping.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:54:25 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=6db3b34d7203639ef4286c237a6e536259f92352'>read-print: Add 'case' and 'cond' special forms.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:54:24 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=445a0d134ce735577d1e22f210c2e5ceafc56762'>read-print: Support printing multi-line comments.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=90ef692e9b48732ae2e3921ff5d101e186506a85'>read-print: 'canonicalize-comment' leaves top-level comments unchanged.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=9b00c97de41165beefe3eff936470f8e081ca600'>read-print: Add code to read and write sequences of expressions/blanks.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=077324a16fd6c7d2307bfa52a9863ca25cfc6a52'>read-print: Recognize page breaks.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=f687e27e0385c7f9bab8d967293061158fc3f504'>read-print: Read and render vertical space.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:31 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=5817e222faf46f76fbdb66ba8fd6c8cd643aefb5'>style: Move reader and printer to (guix read-print).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>