# GNU Guix --- Functional package management for GNU
# Copyright © 2023 Antoine R. Dumont <antoine.romain.dumont@gmail.com>
# Copyright © 2023 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/>.

#
# Test the 'guix locate' command-line utility.
#

set -x

RUN_EXPENSIVE_TESTS="${RUN_EXPENSIVE_TESTS:-false}"

tmpdir="guix-index-$$"
# In the following tests, we use two different databases, one for each
# indexation method.
tmpdb_manifests="$tmpdir/manifests/db.sqlite"
tmpdb_store="$tmpdir/store/db.sqlite"
trap 'rm -rf "$tmpdir" "$tmpdb_store" "$tmpdb_manifests"' EXIT

guix locate --version

# Preparing db locations for both indexation methods.
mkdir -p "$(dirname "$tmpdb_manifests")" "$(dirname "$tmpdb_store")"

cmd_manifests="guix locate --database=$tmpdb_manifests --method=manifests"
cmd_store="guix locate --database=$tmpdb_store --method=store"

# Lookup without any db should fail.
guix locate --database="$tmpdb_manifests" guile && false
guix locate --database="$tmpdb_store" guile && false

# Lookup without anything in db should yield no results because the indexer
# didn't stumble upon any profile.
test -z "$(guix locate --database="$tmpdb_manifests" guile)"

# Install a package.
guix package --bootstrap --install guile-bootstrap \
     --profile="$tmpdir/profile"

# Look for 'guile'.
$cmd_manifests --update
$cmd_manifests guile | grep "$(guix build guile-bootstrap)/bin/guile"
$cmd_manifests boot-9.scm | grep ^guile-bootstrap

# Using a glob pattern.
$cmd_manifests -g '*.scm' | grep "^guile-bootstrap.*boot-9"

# Statistics.
$cmd_manifests --stats

if $RUN_EXPENSIVE_TESTS
then
    $cmd_store --update
    $cmd_store guile
    $cmd_store guile | grep "$(guix build guile-bootstrap)/bin/guile"
    $cmd_store boot-9.scm | grep ^guile-bootstrap
fi

# The command below is an error: "no files to search for"...
guix locate && false

# ... but this one is fine.
guix locate --clear
 class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/system/linux-container.scm?id=f8ce73c5e29af418d1d575493e616edee4f2b0b0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-02-05 22:29:45 +0100'>2024-02-05</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=841fd4880a03d04bf20cc51fcc1a4c956d28d74c'>linux-container: Inherit essential services.</a><span class='msg-avail'>...<span class='msg-tooltip'>Currently it's not possible to set `essential-services' when building
operating systems for containers, since `container-essential-services'
always uses the defaults.

It's possible to reference `essential-services' from the operating
system that's passed in, but since it's thunked, the operating system
needs to be defined in two passes to avoid an infinite loop.

* gnu/system/linux-container.scm (container-essential-services): Use
operating-system-essential-services instead of the defaults to allow
overriding the base services.
(containerized-operating-system): Update accordingly.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
Change-Id: I81452487ef1ad01d3fa874c26d93a67d58ce6062
</span></span></td><td>Leo Nikkilä</td></tr>
<tr><td><span title='2023-06-24 16:13:05 +0200'>2023-06-24</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=ed5a9f5260666679289c3d20d5068e374084a50c'>linux-container: Pass '--disable-chroot' to 'guix-daemon'.</a><span class='msg-avail'>...<span class='msg-tooltip'>This allows for the use of Guix within a non-privileged Docker container
produced by 'guix system image -t docker'.

* gnu/system/linux-container.scm (containerized-operating-system):
Change 'guix-configuration' to add "--disable-chroot".
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-06-09 18:15:07 +0200'>2023-06-09</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=44bbfc24e4bcc48d0e3343cd3d83452721af8c36'>linux-container: Adjust to 'modify-services' semantic change.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to dbbc7e946131ba257728f1d05b96c4339b7ee88b:
'nscd-service-type' isn't necessarily present in OS, so we cannot use
the 'modify-services' as it would now error out.  This was happening
with the "guix system docker-image" test in 'tests/guix-system.sh'.

* gnu/system/linux-container.scm (containerized-operating-system): Use
'filter-map' instead of 'remove' + 'modify-services'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-26 14:15:16 +0100'>2023-03-26</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=42fbe62d52a82d1003c3d7039d3c4a46806c5cee'>linux-container: Remove hosts-service-type when network is shared.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/61627&gt;.

* gnu/system/linux-container.scm (container-essential-services): When
shared-network? is true, remove the hosts-service-type service kind.
</span></span></td><td>Pierre Langlois</td></tr>
<tr><td><span title='2022-12-01 19:52:13 +0100'>2022-12-01</span></td><td><a href='/guix/commit/gnu/system/linux-container.scm?id=1a63aea94340f6a24ac09e1c348401e9dfd05395'>linux-container: Do not replace nscd-service-type.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/linux-container.scm (containerized-operating-system): Respect
customizations to the nscd-service-type and only modify the caches field.
</span></span></td><td>Ricardo Wurmus</td></tr>