# GNU Guix --- Functional package management for GNU
# Copyright © 2018, 2019, 2020 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 'guix build --with-branch'.
#

guix build --version

# 'guix build --with-branch' requires access to the network to clone the
# Git repository below.

if ! guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null
then
    # Skipping.
    exit 77
fi

orig_drv="`guix build guile-gcrypt -d`"
latest_drv="`guix build guile-gcrypt --with-branch=guile-gcrypt=master -d`"
test -n "$latest_drv"
test "$orig_drv" != "$latest_drv"

# FIXME: '-S' currently doesn't work with non-derivation source.
# checkout="`guix build guile-gcrypt --with-branch=guile-gcrypt=master -S`"
checkout="`guix gc --references "$latest_drv" | grep guile-gcrypt | grep -v -E '(-builder|\.drv)'`"
test -d "$checkout"
test -f "$checkout/COPYING"

orig_drv="`guix build guix -d`"
latest_drv="`guix build guix --with-branch=guile-gcrypt=master -d`"
guix gc -R "$latest_drv" | grep guile-gcrypt-git.master
test "$orig_drv" != "$latest_drv"

v0_1_0_drv="`guix build guix --with-commit=guile-gcrypt=9e3eacdec1d -d`"
guix gc -R "$v0_1_0_drv" | grep guile-gcrypt-git.9e3eacd
test "$v0_1_0_drv" != "$latest_drv"
test "$v0_1_0_drv" != "$orig_drv"

v0_1_0_drv="`guix build guix --with-commit=guile-gcrypt=v0.1.0 -d`"
guix gc -R "$v0_1_0_drv" | grep guile-gcrypt-0.1.0
guix gc -R "$v0_1_0_drv" | grep guile-gcrypt-8fe64e8 # this is the tag ID
test "$v0_1_0_drv" != "$latest_drv"
test "$v0_1_0_drv" != "$orig_drv"

! guix build guix --with-commit=guile-gcrypt=000 -d
926dd95ae67b0db7b68a2fb4ef3048db824'>grafts.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/tests/grafts.scm?id=0eab5926dd95ae67b0db7b68a2fb4ef3048db824&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-04-15 03:22:55 -0400'>2021-04-15</span></td><td><a href='/guix/commit/tests/grafts.scm?id=1bab9b9f17256a9e4f45f5b0cceb8b52e0a1b1ed'>grafts: Support rewriting UTF-16 and UTF-32 store references.</a><span class='msg-avail'>...<span class='msg-tooltip'>Partially fixes &lt;https://bugs.gnu.org/33848&gt;.

* guix/build/graft.scm (replace-store-references): Add support for
finding and rewriting UTF-16 and UTF-32 store references.
* tests/grafts.scm: Add tests.
</span></span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2019-06-27 23:33:48 +0200'>2019-06-27</span></td><td><a href='/guix/commit/tests/grafts.scm?id=5cc1075a76392666d3d733837f5c6252b1e48002'>Merge branch 'master' into core-updates</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-27 11:14:41 +0200'>2019-06-27</span></td><td><a href='/guix/commit/tests/grafts.scm?id=c89985d91d2b44704fbcaebd7a097dee0c0e3e4a'>derivations: Add 'derivation-input'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/derivations.scm (derivation-input): New procedure.
* tests/grafts.scm (make-derivation-input): Remove.
("graft-derivation, unused outputs not depended on"): Use
'derivation-input'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-14 21:57:39 +0200'>2019-06-14</span></td><td><a href='/guix/commit/tests/grafts.scm?id=1ba0b1e6ec41afd94a3c5f907b1122204dcb5d9d'>packages: Remove 'search-bootstrap-binary'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages.scm (%bootstrap-binaries-path, search-bootstrap-binary):
Remove.
* gnu/packages/bootstrap.scm (bootstrap-executable): Export.
* guix/tests.scm (bootstrap-binary-file, search-bootstrap-binary):
Export.
* tests/derivations.scm: Remove (gnu packages) import.
* tests/grafts.scm: Likewise.
* tests/guix-daemon.sh: Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-28 10:39:58 +0100'>2018-11-28</span></td><td><a href='/guix/commit/tests/grafts.scm?id=64fd1c01bc6f1be6ffcafc08789d5dafb9850c2e'>grafts: Record metadata as derivation properties.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/grafts.scm (graft-derivation/shallow): Pass #:properties to
'build-expression-&gt;derivation'.
* tests/grafts.scm ("graft-derivation, grafted item is a direct
dependency"): Check the value returned by 'derivation-properties'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-08-24 23:55:51 +0200'>2017-08-24</span></td><td><a href='/guix/commit/tests/grafts.scm?id=94e86a6b67c7a02f5f11358743f3b9f11997059c'>graft: Correctly replace references near the end of the scan buffer.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;http://bugs.gnu.org/28212&gt;.
Reported by Leo Famulari &lt;leo@famulari.name&gt;.

* guix/build/graft.scm (replace-store-references): When I &gt;= END, check
whether WRITTEN &gt; END and call 'get-bytevector-n!' when it is.
* tests/grafts.scm (buffer-size): New variable.
("replace-store-references, &lt;http://bugs.gnu.org/28212&gt;"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>