;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2018-2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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/>.

(use-modules (gnu tests)
             (gnu packages package-management)
             (guix monads)
             (guix store)
             ((guix git-download) #:select (git-predicate))
             ((guix utils) #:select (current-source-directory))
             (git)
             (ice-9 match))

(define (source-commit directory)
  "Return the commit of the head of DIRECTORY or #f if it could not be
determined."
  (let ((repository #f))
    (catch 'git-error
      (lambda ()
        (set! repository (repository-open directory))
        (let* ((head   (repository-head repository))
               (target (reference-target head))
               (commit (oid->string target)))
          (repository-close! repository)
          commit))
      (lambda _
        (when repository
          (repository-close! repository))
        #f))))

(define (tests-for-current-guix source commit)
  "Return a list of tests for perform, using Guix built from SOURCE, a channel
instance."
  ;; Honor the 'TESTS' environment variable so that one can select a subset
  ;; of tests to run in the usual way:
  ;;
  ;;   make check-system TESTS=installed-os
  (let ((guix (channel-source->package source #:commit commit)))
    (map (lambda (test)
           (system-test
            (inherit test)
            (value (mparameterize %store-monad ((current-guix-package guix))
                     (system-test-value test)))))
         (match (getenv "TESTS")
           (#f
            (all-system-tests))
           ((= string-tokenize (tests ...))
            (filter (lambda (test)
                      (member (system-test-name test) tests))
                    (all-system-tests)))))))

(define (system-test->manifest-entry test)
  "Return a manifest entry for TEST, a system test."
  (manifest-entry
    (name (string-append "test." (system-test-name test)))
    (version "0")
    (item test)))

(define (system-test-manifest)
  "Return a manifest containing all the system tests, or all those selected by
the 'TESTS' environment variable."
  (define source
    (string-append (current-source-directory) "/.."))

  (define commit
    ;; Fetch the current commit ID so we can potentially build the same
    ;; derivation as ci.guix.gnu.org.
    (source-commit source))

  ;; Intern SOURCE so that 'build-from-source' in (guix channels) sees
  ;; "fresh" file names and thus doesn't find itself loading .go files
  ;; from ~/.cache/guile when it loads 'build-aux/build-self.scm'.
  (let* ((source (local-file source
                             (if commit
                                 (string-append "guix-"
                                                (string-take commit 7))
                                 "guix-source")
                             #:recursive? #t
                             #:select?
                             (or (git-predicate source)
                                 (const #t))))
         (tests  (tests-for-current-guix source commit)))
    (format (current-error-port) "Selected ~a system tests...~%"
            (length tests))

    (manifest (map system-test->manifest-entry tests))))

;; Return the manifest.
(system-test-manifest)
ab1'>services: mpd: Always create the "mpd" user account.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm (%mpd-accounts): New variable.
(mpd-service-type)[extensions]: Add ACCOUNT-SERVICE-TYPE extension.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-06 08:54:27 -0500'>2020-11-06</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=0c5d0c57d370b34f3ba677838deaa8baf7bca58a'>services: mpd: Do not eagerly look for a user.</a><span class='msg-avail'>...<span class='msg-tooltip'>Running 'guix system search mpd' would throw a backtrace because the
mpd-shepherd-service service start Gexp contained an unquoted call to
'getpwnam', which would look for a missing 'mpd' user and fail.

* gnu/services/audio.scm (mpd-shepherd-service): gexp-unquote only the
relevant variable rather than the whole expression.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-05-13 23:35:57 +0200'>2020-05-13</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=ad263045b9bf016d6f4fbb1f7fde0f51d3194944'>services: Add missing import.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm: Import (ice-9 format).
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-08 21:32:45 +0100'>2019-11-08</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=970cb5ceceaa85765230a9f896a43783cdcb4e6c'>services: mpd: Connect to the user's PulseAudio socket.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm (mpd-shepherd-service): Set the XDG_RUNTIME_DIR
environment variable.

Signed-off-by: Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
</span></span></td><td>Robert Smith</td></tr>
<tr><td><span title='2019-10-29 15:14:22 +0100'>2019-10-29</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=878e0e1bb0d15809c6582436d53498f3e6385524'>gnu: mpd-service-type: Support configuration of outputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm (&lt;mpd-output&gt;): New record type.
(&lt;mpd-configuration&gt;)[outputs]: New field.
(mpd-output, mpd-output?, mpd-output-&gt;string): New procedures.
(mpd-config-&gt;file): Use mpd-output-&gt;string.
* doc/guix.texi (Audio Services): Document mpd-output fields.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-03-15 23:27:59 +0100'>2019-03-15</span></td><td><a href='/guix/commit/gnu/services/audio.scm?id=c71b7b5b3740177f0df6d3565dcc356ceda1acba'>services: mpd: add more configuration options</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/audio.scm (&lt;mpd-configuration&gt;): Add 'db-file', 'state-file'
  and 'sticker-file' fields.
* doc/guix.texi (Music Player Daemon): Document it.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>nixo</td></tr>