# 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
283a8308f26e1234cad097e230a'>gnu</a>/<a href='/guix/log/gnu/build?id=344619bbf6fbf283a8308f26e1234cad097e230a'>build</a>/<a href='/guix/log/gnu/build/linux-initrd.scm?id=344619bbf6fbf283a8308f26e1234cad097e230a'>linux-initrd.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/build/linux-initrd.scm?id=344619bbf6fbf283a8308f26e1234cad097e230a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-09-25 12:18:25 +0900'>2019-09-25</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=91e633f0430c8c26e6915f79365a49d8a4327c96'>build: initrd: Fix "write-cpio-archive" return value.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-initrd.scm (write-cpio-archive): Really return OUTPUT on
success, even when compression is disabled.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2018-11-21 23:26:59 +0100'>2018-11-21</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=d422cbb3d6a1cc7e4553a2335b113475a05d68ad'>linux-initrd: 'expression-&gt;initrd' returns the complete file name.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously 'expression-&gt;initrd' would return the directory that contains
the 'initrd' file; now it returns the complete file name for that file.

* gnu/system/linux-initrd.scm (expression-&gt;initrd)[builder]: Change
output file name to "initrd.cpio.gz".  Tail-call 'file-append' to return
the complete file name.
* gnu/system.scm (operating-system-initrd-file): Remove 'file-append'
call.
* gnu/build/linux-initrd.scm (write-cpio-archive): Check whether OUTPUT
already has the ".gz" suffix; rename if before invoking GZIP if it does,
and otherwise after.
* gnu/system/vm.scm (expression-&gt;derivation-in-linux-vm)[builder]: Do
not append "/initrd" to #$initrd.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-07 16:06:42 +0100'>2018-11-07</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=970c9993f124789cb181f399d4981cdcf5d3fc26'>linux-initrd: Make sure 'build-initrd' can delete files.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/33297&gt;.
Reported by Mark H Weaver &lt;mhw@netris.org&gt;.

This fixes a regression introduced in
72dc64f8f720268930eed448abfc15d2a0eca3cf, which made files read-only.

* gnu/build/linux-initrd.scm (build-initrd): Call 'make-file-writable'
on all the files under contents/.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-09-09 23:27:10 +0200'>2015-09-09</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=0334ef2ab06952df5c6a7582781d16d807e09ea7'>linux-initrd: Compress cpio archives deterministically.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-initrd.scm (write-cpio-archive): Use '--no-name'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-06-24 18:05:03 +0200'>2015-06-24</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=eae5b3fff54e6f0a38d03d01187142accbed1eb8'>linux-initrd: Produce cpio archives with zeroed timestamps, etc.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/cpio.scm (file-&gt;cpio-header*): New procedure.
* gnu/build/linux-initrd.scm (write-cpio-archive): Add #:file-&gt;header argument
  to 'cpio:write-cpio-archive'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-06-24 18:05:03 +0200'>2015-06-24</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=583323ca1d1af5462f1b45f4be50f96bc8f1e46b'>linux-initrd: Populate cpio archives in a deterministic order.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-initrd.scm (write-cpio-archive)[files]: Use 'sort' instead
  of 'reverse'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-06-24 18:05:03 +0200'>2015-06-24</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=e8277f90c88be9d65b948c299620fd9d6d9b28ae'>linux-initrd: Use (guix cpio) instead of GNU cpio.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/linux-initrd.scm (write-cpio-archive): Remove 'open-pipe*' and
  related calls.  Compute list of files in 'files' variable.  Use
  'cpio:write-cpio-archive'.  Remove #:cpio parameter.
  (build-initrd): Remove #:cpio parameter.
* gnu/system/linux-initrd.scm (expression-&gt;initrd): Likewise, and adjust
  BUILDER accordingly.  Add (guix cpio) to #:modules.
</span></span></td><td>Ludovic Courtès</td></tr>