guix - tests/guix-build-branch.sh

63 lines · 2.2 KiB

1	# GNU Guix --- Functional package management for GNU
2	# Copyright © 2018, 2019, 2020, 2022 Ludovic Courtès <[email protected]>
3	#
4	# This file is part of GNU Guix.
5	#
6	# GNU Guix is free software; you can redistribute it and/or modify it
7	# under the terms of the GNU General Public License as published by
8	# the Free Software Foundation; either version 3 of the License, or (at
9	# your option) any later version.
10	#
11	# GNU Guix is distributed in the hope that it will be useful, but
12	# WITHOUT ANY WARRANTY; without even the implied warranty of
13	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14	# GNU General Public License for more details.
15	#
16	# You should have received a copy of the GNU General Public License
17	# along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
18
19	#
20	# Test 'guix build --with-branch'.
21	#
22
23	guix build --version
24
25	# 'guix build --with-branch' requires access to the network to clone the
26	# Git repository below.
27
28	if ! guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null
29	then
30	# Skipping.
31	exit 77
32	fi
33
34	orig_drv="`guix build guile-gcrypt -d`"
35	latest_drv="`guix build guile-gcrypt --with-branch=guile-gcrypt=main -d`"
36	test -n "$latest_drv"
37	test "$orig_drv" != "$latest_drv"
38
39	# FIXME: '-S' currently doesn't work with non-derivation source.
40	# checkout="`guix build guile-gcrypt --with-branch=guile-gcrypt=main -S`"
41	checkout="`guix gc --references "$latest_drv" \| grep guile-gcrypt \| grep -v -E '(-builder\|\.drv)'`"
42	test -d "$checkout"
43	test -f "$checkout/COPYING"
44
45	orig_drv="`guix build guix -d`"
46	latest_drv="`guix build guix --with-branch=guile-gcrypt=main -d`"
47	guix gc -R "$latest_drv" \| grep guile-gcrypt-git.main
48	test "$orig_drv" != "$latest_drv"
49
50	v0_1_0_drv="`guix build guix --with-commit=guile-gcrypt=9e3eacdec1d -d`"
51	guix gc -R "$v0_1_0_drv" \| grep guile-gcrypt-git.9e3eacd
52	test "$v0_1_0_drv" != "$latest_drv"
53	test "$v0_1_0_drv" != "$orig_drv"
54
55	v0_1_0_drv="`guix build guix --with-commit=guile-gcrypt=v0.1.0 -d`"
56	guix gc -R "$v0_1_0_drv" \| grep guile-gcrypt-0.1.0
57	guix gc -R "$v0_1_0_drv" \| grep guile-gcrypt-9e3eacd
58	test "$v0_1_0_drv" != "$latest_drv"
59	test "$v0_1_0_drv" != "$orig_drv"
60
61	guix build guix --with-commit=guile-gcrypt=000 -d && false
62
63	exit 0