# GNU Guix --- Functional package management for GNU
# Copyright © 2018, 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/>.

#
# Test the 'guix pack --localstatedir' command-line utility.
#

guix pack --version

# 'guix pack --localstatedir' produces derivations that depend on
# guile-sqlite3 and guile-gcrypt.  To make that relatively inexpensive, run
# the test in the user's global store if possible, on the grounds that
# binaries may already be there or can be built or downloaded inexpensively.

storedir="`guile -c '(use-modules (guix config))(display %storedir)'`"
localstatedir="`guile -c '(use-modules (guix config))(display %localstatedir)'`"
NIX_STORE_DIR="$storedir"
GUIX_DAEMON_SOCKET="$localstatedir/guix/daemon-socket/socket"
export NIX_STORE_DIR GUIX_DAEMON_SOCKET

if ! guile -c '(use-modules (guix)) (exit (false-if-exception (open-connection)))'
then
    exit 77
fi

# Build a tarball with '--localstatedir'
the_pack="`guix pack -C none --localstatedir --profile-name=current-guix \
            guile-bootstrap`"
test_directory="`mktemp -d`"
trap 'chmod -Rf +w "$test_directory"; rm -rf "$test_directory"' EXIT

cd "$test_directory"
tar -xf "$the_pack"

profile="`find -name current-guix`"
test "`readlink $profile`" = "current-guix-1-link"
test -s "`dirname $profile`/../../../db/db.sqlite"
test -x ".`guix build guile-bootstrap`/bin/guile"
cd -

# Make sure the store database is not completely bogus.
guile -c "(use-modules (sqlite3) (guix config) (ice-9 match))

  (define db
    (sqlite-open (string-append \"$test_directory\"
                                %localstatedir
                               \"/guix/db/db.sqlite\")
                 SQLITE_OPEN_READONLY))

  (define stmt
    (sqlite-prepare db \"SELECT * FROM ValidPaths;\"))

  (match (sqlite-fold cons '() stmt)
    ((#(ids paths hashes times derivers sizes) ...)
     (exit (member \"`guix build guile-bootstrap`\" paths))))"
cm?id=4203024e65925f322860d08cd6870ecf8203aba2&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-01-04 16:15:15 +0200'>2021-01-04</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=a2da6074d041afc22eb9258394c31681711fb16c'>gnu: suitesparse: Install libraries into /lib.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-12-31 14:50:34 +0200'>2020-12-31</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=75166b29f2b7521c99b036bb0a24ac59bd1d16df'>gnu: matio: Update to 1.5.19.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>
<tr><td><span title='2020-12-22 16:32:29 +0100'>2020-12-22</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=20cf7f75ff1a944726e8a4a264d7a087f039840e'>gnu: octave, octave-cli: Update to 6.1.0.</a><span class='msg-avail'>...</span></td><td>Greg Hogan</td></tr>
<tr><td><span title='2020-12-17 22:26:30 +0200'>2020-12-17</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=9a6cf550bd2d22107bd60e6f8e85b3064403956c'>gnu: glpk: Don't build static library.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-12-17 22:26:30 +0200'>2020-12-17</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=885fe927e7648e6a7349acff163c0015bc3ab732'>gnu: glpk: Update to 5.0.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-12-13 00:26:53 +0100'>2020-12-13</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=0313617f6585bc41cfab1c6f4455cffca0b4597d'>gnu: veusz: Update to 3.3.1.</a><span class='msg-avail'>...</span></td><td>Vinicius Monego</td></tr>
<tr><td><span title='2020-12-12 21:43:39 +0100'>2020-12-12</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=5f40ad9ae2a199609ee28640288a69769532dbf0'>gnu: sleef: Update to 3.5.1.</a><span class='msg-avail'>...</span></td><td>Vinicius Monego</td></tr>
<tr><td><span title='2020-12-09 13:42:05 -0600'>2020-12-09</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=2a23e3f582941aee3461aa7b52e0ccb78c9e540d'>gnu: dealii: Update to 9.2.0.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2020-12-08 09:21:50 +0000'>2020-12-08</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=b5c51ae0864e395f692fd78aa723109856914fff'>gnu: Add tiny-bignum.</a><span class='msg-avail'>...</span></td><td>Ryan Prior</td></tr>
<tr><td><span title='2020-12-05 11:14:56 -0600'>2020-12-05</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=705af5403b3a8d7e942820bdff74195a1c3d9c89'>gnu: superlu-dist: Update to 6.4.0.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2020-12-05 11:14:55 -0600'>2020-12-05</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=013cf93234ddc18f952c1af01545e1884dea9dd2'>gnu: scotch: Update to 6.1.0</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2020-12-01 20:55:42 +0100'>2020-12-01</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=2368225019418a53e1d286f63e9cce56e6895d33'>gnu: metamath: Update to 0.193.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-11-17 22:21:22 +0100'>2020-11-17</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=1b16727c18c926eb1bb69dffb55e5074f5c3a0a8'>gnu: units: Update to 2.21.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-11-16 21:19:45 +0000'>2020-11-16</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=dc2de508a38d8e0a3f93e8d6ded225d3a7e32548'>gnu: z3: Update to 4.8.9.</a><span class='msg-avail'>...</span></td><td>Martin Becze</td></tr>
<tr><td><span title='2020-11-15 00:38:32 +0100'>2020-11-15</span></td><td><a href='/guix/commit/gnu/packages/maths.scm?id=7ea957e2c5886c7b93c3ae31a1a5c41c2bf679dd'>gnu: superlu: Update to 5.2.2.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>