# 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
b685384199b7a4'>graphviz.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/packages/graphviz.scm?id=a2cfd9f8c9bc85aabf1638bdcfb685384199b7a4&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-10-22 00:06:14 +0300'>2024-10-22</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=e8a3f50fb0edfe61abe180544dbc4789884337d5'>gnu: xdot: Update to 1.4.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graphviz.scm (xdot): Update to 1.4.
[native-inputs]: Add python-packaging.

Change-Id: Ifc06ab8fddfd23d0273d134efec610750bf2a462
</span></span></td><td>Artyom V. Poptsov</td></tr>
<tr><td><span title='2024-05-16 23:20:42 +0100'>2024-05-16</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=0846eaecd45783bf40e8dc67b0c16f71068524b7'>gnu: xdot: Bugfix: Add the directory containing "dot" to the PATH.</a><span class='msg-avail'>...<span class='msg-tooltip'>"xdot" would always fail to run when graphviz "dot" binary is not available
directly in the user system.  This patch fixes it by adding graphviz binaries
from the inputs to the PATH environment variable in "xdot" wrapping script.

Reported by Ada Stevenson &lt;adanskana@gmail.com&gt; in
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=70910

* gnu/packages/graphviz.scm (xdot) [arguments]: Add the "bin" directory from
  the graphviz input to the xdot wrapping.

Change-Id: Iba4bbc37daf07407ad4c18b822956fbb730c0033
Signed-off-by: Sharlatan Hellseher &lt;sharlatanus@gmail.com&gt;
</span></span></td><td>Artyom V. Poptsov</td></tr>
<tr><td><span title='2024-05-01 22:24:49 +0200'>2024-05-01</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=a47fe0fdc4b13c850da29c0e11ab63d2041534c1'>gnu: xdot: Update to 1.3.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graphviz.scm (xdot): Update to 1.3.
  [source]: Download the sources from GitHub as the PyPI tarbal is missing
  some test files.
  [arguments]: Use Gexps.  Add "start-xserver" and "set-test-environment"
  to setup test environment properly.  Simplify "wrap" phase.  Replace "check"
  phase to run "test.py".
  [native-inputs]: Add "gobject-introspection" and "xorg-server-for-tests".
  [inputs]: Add "bash-minimal", "mesa", "mesa-opencl", "python-numpy"
  and "vulkan-loader".

Change-Id: I7a68e9f5c1b66a6539b83623a457e16edacff012
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Artyom V. Poptsov</td></tr>