# GNU Guix --- Functional package management for GNU
# Copyright © 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 style'.
#

set -e

guix style --version

tmpdir="guix-style-$$"
trap 'rm -r "$tmpdir"' EXIT

tmpfile="$tmpdir/os.scm"
mkdir "$tmpdir"
cat > "$tmpfile" <<EOF
;;; This is a header with three semicolons.
;;;

(define-module (foo bar)
  #:use-module (guix)
  #:use-module (gnu))

;; One blank line and a page break.


;; And now, the OS.
(operating-system
  (host-name "komputilo")
  (locale "eo_EO.UTF-8")

  ;; User accounts.
  (users (cons (user-account
                 (name "alice")
                 (comment "Bob's sister")
                 (group "users")

                 ;; Groups fit on one line.
                 (supplementary-groups '("wheel" "audio" "video")))
               %base-user-accounts))

  ;; The services.
  (services
   (cons (service mcron-service-type) %base-services)))
;; Incomplete package definitions in alphabetical order.

(define-public pkg
  (package
    (name "bar")
    (version "2")))

;; The comment below belongs to the foo package.
(define-public pkg
  (package
    (name "bar")
    (version "1")))
;; Incomplete package definitions in alphabetical order.

(define-public pkg
  (package
    (name "foo")
    (version "2")))
EOF

cp "$tmpfile" "$tmpfile.bak"

initial_hash="$(guix hash "$tmpfile")"

guix style -f "$tmpfile"
if test "$initial_hash" != "$(guix hash "$tmpfile")"
then
    cat "$tmpfile"
    diff -u "$tmpfile.bak" "$tmpfile"
    false
fi

# Introduce random changes and try again.
sed -i "$tmpfile" -e's/ \+/ /g'
test "$initial_hash" != "$(guix hash "$tmpfile")"

guix style -f "$tmpfile"
test "$initial_hash" = "$(guix hash "$tmpfile")"

# Swap foo and bar packages.
sed -i "$tmpfile" -e 's/"foo"/"bar"/g'
sed -i "$tmpfile" -e '0,/"bar"/{s//"foo"/}'
test "$initial_hash" != "$(guix hash "$tmpfile")"

guix style -fA "$tmpfile"
test "$initial_hash" = "$(guix hash "$tmpfile")"
9 +0100'>2024-11-12</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=9793403bc0f304053c6f1bd427814482273faa26'>tests: Fix gremlin.scm for GCC 14</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/gremlin.scm: Include stdio.h before using puts since GCC 14 no
longer allows implicit declarations.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Ting-Wei Lan</td></tr>
<tr><td><span title='2022-01-16 20:21:27 -0800'>2022-01-16</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=24c3485bb3ffc05e687ef6513ac287b8d3048bab'>tests: Fix file-needed/recursive on aarch64-linux.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes: &lt;https://issues.guix.gnu.org/52943&gt;.

* tests/gremlin.scm (file-needed/recursive)[ground-truth]: On aarch64-linux,
remove the dynamic linker from this list.
</span></span></td><td>Pierre Langlois</td></tr>
<tr><td><span title='2022-01-14 22:39:24 +0100'>2022-01-14</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=e7ad192de008a6a21638def6eb973b9cc0c91116'>gremlin: Adjust tests for i686 and beyond.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/52752&gt;.
Reported by Denis 'GNUtoo' Carikli &lt;GNUtoo@cyberdimension.org&gt;.

* tests/gremlin.scm ("file-needed/recursive"): Augment the list of vDSO
names.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-08 15:51:22 -0800'>2022-01-08</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=6a2050b1e1c7f09ef9b6af43044b7c0e4786d39d'>tests: Fix file-needed/recursive on powerpc64le-linux.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes: &lt;https://issues.guix.gnu.org/52940&gt;.

* tests/gremlin.scm (file-needed/recursive): Consider two entries to be
equivalent not when they are the same string, but rather when they refer to
the same file.
[ground-truth]: In addition to strings that begin with "linux-vdso.so", remove
strings that begin with "linux-vdso64.so".
</span></span></td><td>Chris Marusich</td></tr>