projects/guix·blob python-team · refs

112 lines · 2.7 KiB

1# GNU Guix --- Functional package management for GNU
2# Copyright © 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 style'.
21#
22
23set -e
24
25guix style --version
26
27tmpdir="guix-style-$$"
28trap 'rm -r "$tmpdir"' EXIT
29
30tmpfile="$tmpdir/os.scm"
31mkdir "$tmpdir"
32cat > "$tmpfile" <<EOF
33;;; This is a header with three semicolons.
34;;;
35
36(define-module (foo bar)
37 #:use-module (guix)
38 #:use-module (gnu))
39
40;; One blank line and a page break.
41
42
43;; And now, the OS.
44(operating-system
45 (host-name "komputilo")
46 (locale "eo_EO.UTF-8")
47
48 ;; User accounts.
49 (users (cons (user-account
50 (name "alice")
51 (comment "Bob's sister")
52 (group "users")
53
54 ;; Groups fit on one line.
55 (supplementary-groups '("wheel" "audio" "video")))
56 %base-user-accounts))
57
58 ;; The services.
59 (services
60 (cons (service mcron-service-type) %base-services)))
61;; Incomplete package definitions in alphabetical order.
62
63(define-public pkg
64 (package
65 (name "bar")
66 (version "2")))
67
68(define-public pkg-baz
69 (let ()
70 (package
71 (name "baz")
72 (version "2"))))
73
74;; The comment below belongs to the foo package.
75(define-public pkg
76 (package/inherit pkg-baz
77 (name "baz")
78 (version "1")))
79;; Incomplete package definitions in alphabetical order.
80
81(define-public pkg
82 (package
83 (name "foo")
84 (version "2")))
85EOF
86
87cp "$tmpfile" "$tmpfile.bak"
88
89initial_hash="$(guix hash "$tmpfile")"
90
91guix style -f "$tmpfile"
92if test "$initial_hash" != "$(guix hash "$tmpfile")"
93then
94 cat "$tmpfile"
95 diff -u "$tmpfile.bak" "$tmpfile"
96 false
97fi
98
99# Introduce random changes and try again.
100sed -i "$tmpfile" -e's/ \+/ /g'
101test "$initial_hash" != "$(guix hash "$tmpfile")"
102
103guix style -f "$tmpfile"
104test "$initial_hash" = "$(guix hash "$tmpfile")"
105
106# Swap foo and bar packages.
107sed -i "$tmpfile" -e 's/"foo"/"bar"/g'
108sed -i "$tmpfile" -e '0,/"bar"/{s//"foo"/}'
109test "$initial_hash" != "$(guix hash "$tmpfile")"
110
111guix style -fA "$tmpfile"
112test "$initial_hash" = "$(guix hash "$tmpfile")"