;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2019 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/>.

(define-module (test-search-paths)
  #:use-module (guix search-paths)
  #:use-module (ice-9 match)
  #:use-module (srfi srfi-64))

(define %top-srcdir
  (dirname (search-path %load-path "guix.scm")))


(test-begin "search-paths")

(test-equal "evaluate-search-paths, separator is #f"
  (string-append %top-srcdir
                 "/gnu/packages/aux-files/linux-libre")

  ;; The following search path spec should evaluate to a single item: the
  ;; first directory that matches the "-linux$" pattern in
  ;; gnu/packages/bootstrap.
  (let ((spec (search-path-specification
               (variable "CHBOUIB")
               (files '("gnu/packages/aux-files"))
               (file-type 'directory)
               (separator #f)
               (file-pattern "^linux"))))
    (match (evaluate-search-paths (list spec)
                                  (list %top-srcdir))
      (((spec* . value))
       (and (eq? spec* spec) value)))))

(test-end "search-paths")
t name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=b56d076a17369ce15e627da66a39dbce68b8fff4'>root</a>/<a href='/guix/log/gnu?id=b56d076a17369ce15e627da66a39dbce68b8fff4'>gnu</a>/<a href='/guix/log/gnu/services?id=b56d076a17369ce15e627da66a39dbce68b8fff4'>services</a>/<a href='/guix/log/gnu/services/databases.scm?id=b56d076a17369ce15e627da66a39dbce68b8fff4'>databases.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/databases.scm?id=b56d076a17369ce15e627da66a39dbce68b8fff4&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-03-30 01:01:32 +0100'>2024-03-30</span></td><td><a href='/guix/commit/gnu/services/databases.scm?id=6b138626e4dfed219941cc9e9466ec827493723d'>services: postgresql: Simplify execution of ‘initdb’.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/databases.scm (postgresql-activation): Replace
‘primitive-exit’ + ‘system*’ with ‘execl’.

Change-Id: I491fd3093f67af59f240438d7d6123e769e4ec1e
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-03-30 01:01:32 +0100'>2024-03-30</span></td><td><a href='/guix/commit/gnu/services/databases.scm?id=ed03a0aa9b353434bbd6dce47f1b82cbe6d14000'>services: postgresql: Don't initdb when directory exists.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/databases.scm (postgresql-activation): Check if
directory exists.

Reviewed-by: Dale Mellor &lt;guix-devel-0brg6b@rdmp.org&gt;
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
Change-Id: Id563a3e8df2cb5b805e64cd8319303c65d308c69
</span></span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2023-12-22 00:31:41 +0100'>2023-12-22</span></td><td><a href='/guix/commit/gnu/services/databases.scm?id=3d6583727ec90732ad7bd97808fd4fca8f6d8bdc'>services: Remove unnecessary references to (gnu build shepherd).</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/databases.scm (memcached-shepherd-service): Remove
‘with-imported-modules’ form and ‘modules’ field.
* gnu/services/security-token.scm (pcscd-shepherd-service): Remove
‘with-imported-modules’ form.
* gnu/services/web.scm (hpcguix-web-shepherd-service): Likewise.

Change-Id: Ieb817508f1751e0c1ff551a0e078789a4a813c1c
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-08-16 22:37:52 +0200'>2023-08-16</span></td><td><a href='/guix/commit/gnu/services/databases.scm?id=9dda7479755ba709bb9bb96614ea09ded566b6d3'>services: posgresql: Add option to specify UID/GID for postgres user.</a><span class='msg-avail'>...<span class='msg-tooltip'>Add 'createAccount?', 'uid' and 'gid' to &lt;postgresql-configuation&gt;.

Unlike other system daemons, the PostgreSQL data directory is typically
meant to persist across 'guix system reconfigure' and once created, you
don't want it's UID or GID to change anymore.

Furthermore, if you want to place the data directory on a network share
and use NFSv4 with idmap, then the 'postgres' user must exist when the
'rpc.idmapd' daemon is launched; prior to mounting the share.  And it
needs to be possible to mount the share without configuring PostgreSQL.

With NFSv3, the UID and GID typically needs to match those on the
server.

The added options allow for both of these scenarios:

You can either create the user in (operating-system (users)) completely
independently of the 'postgresql-service-type' (for instance to get your
NFS setup working first prior to configuring your databases) - or "pin"
it's UID / GID values.

* gnu/services/databases.scm (&lt;postgresql-configuration&gt;)[create-account?]
[uid, gid]: New fields.
(%postgresql-accounts): Remove.
(create-postgresql-account): New procedure.
(postgresql-service-type)[extensions]: Use it.
* doc/guix.texi (Database Services): Update accordingly.

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