# GNU Guix --- Functional package management for GNU
# Copyright © 2018, 2019, 2020, 2022 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-9e3eacd
test "$v0_1_0_drv" != "$latest_drv"
test "$v0_1_0_drv" != "$orig_drv"

guix build guix --with-commit=guile-gcrypt=000 -d && false

exit 0
2b75fca8775920c2db88a0e395da7c'>doc</a>/<a href='/guix/commit/doc/contributing.texi?id=853b49c4192b75fca8775920c2db88a0e395da7c'>contributing.texi</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='id' value='853b49c4192b75fca8775920c2db88a0e395da7c'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Julien Lepiller &lt;julien@lepiller.eu&gt;</td><td class='right'>2022-10-15 09:19:38 +0200</td></tr>
<tr><th>committer</th><td>Julien Lepiller &lt;julien@lepiller.eu&gt;</td><td class='right'>2022-11-02 16:57:36 +0100</td></tr>
<tr><th>commit</th><td colspan='2' class='oid'><a href='/guix/commit/doc/contributing.texi?id=853b49c4192b75fca8775920c2db88a0e395da7c'>853b49c4192b75fca8775920c2db88a0e395da7c</a> (<a href='/guix/patch/doc/contributing.texi?id=853b49c4192b75fca8775920c2db88a0e395da7c'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='oid'><a href='/guix/tree/?id=853b49c4192b75fca8775920c2db88a0e395da7c'>ef9490b5163e14c3f2ea9143c987fada76651be1</a> /<a href='/guix/tree/doc/contributing.texi?id=853b49c4192b75fca8775920c2db88a0e395da7c'>doc/contributing.texi</a></td></tr>
<tr><th>parent</th><td colspan='2' class='oid'><a href='/guix/commit/doc/contributing.texi?id=62a3756bd90c922c701e899a6c01c556d8e3c75a'>62a3756bd90c922c701e899a6c01c556d8e3c75a</a> (<a href='/guix/diff/doc/contributing.texi?id=853b49c4192b75fca8775920c2db88a0e395da7c&amp;id2=62a3756bd90c922c701e899a6c01c556d8e3c75a'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='oid'><a href='/guix/snapshot/guix-853b49c4192b75fca8775920c2db88a0e395da7c.tar.gz'>guix-853b49c4192b75fca8775920c2db88a0e395da7c.tar.gz</a><br/><a href='/guix/snapshot/guix-853b49c4192b75fca8775920c2db88a0e395da7c.zip'>guix-853b49c4192b75fca8775920c2db88a0e395da7c.zip</a><br/></td></tr></table>
<div class='commit-subject'>gnu: dovecot: Use standard mkdir-p/perms.</div><div class='commit-msg'>* gnu/services/mail.scm (%dovecot-activation): Use (gnu build utils).
</div><div class='diffstat-header'><a href='/guix/diff/?id=853b49c4192b75fca8775920c2db88a0e395da7c'>Diffstat</a> (limited to 'doc/contributing.texi')</div><table summary='diffstat' class='diffstat'></table><div class='diffstat-summary'>0 files changed, 0 insertions, 0 deletions</div><table summary='diff' class='diff'><tr><td></td></tr></table></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>