# 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")"
15907b9eb558&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-06-09 14:19:14 +0200'>2023-06-09</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=56ad923f47d352e1bee1a94da1a246ae21c03569'>system: account: Fix default value.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes a regression introduced in
66ecffbeba0685ff2f1071db8aeb2393986afb97.

* gnu/system/shadow.scm (account-service-type)[default-value]: Change to
the empty list.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-16 19:45:27 +0400'>2023-05-16</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=66ecffbeba0685ff2f1071db8aeb2393986afb97'>services: Add default values.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services.scm (boot-service-type, activation-service-type,
etc-service-type, profile-service-type): Add default-value.
* gnu/system/shadow.scm (account-service-type): Add default-value.
</span></span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2023-05-12 20:27:06 +0800'>2023-05-12</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=40310efde9b4a4f2cf98081d6cd10f843685ebb6'>system: default-skeletons: Merge search-paths of multiple profiles.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/20255&gt;.

* gnu/system/shadow.scm (default-skeletons)[bash_profile, zprofile]:
Merge search-paths from multiple profiles via "guix package".
</span></span></td><td>宋文武</td></tr>
<tr><td><span title='2023-03-07 16:35:20 +0200'>2023-03-07</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=723fc5df3e964fcecb09c7c6fd48f00f97e2e806'>system: Update skeleton gdbinit.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/shadow.scm (default-skeleton): Update gdbinit to search for
more debug packages in guix-home and the system profile.
(skeleton-directory): Move .gdbinit to .config/gdb/gdbinit.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-02-08 18:13:08 +0400'>2023-02-08</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=a4dfbead19a785cb7a25b53798757b39ad10b828'>system: Source .profile in skeleton bash_profile.</a><span class='msg-avail'>...<span class='msg-tooltip'>Make it consistent with bash_profile generated by Guix Home.

* gnu/system/shadow.scm (default-skeletons)[bash_profile]: Source .profile in
skeleton bash_profile.
</span></span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2023-01-05 15:00:27 +0100'>2023-01-05</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=086df6ef213d44d4b75c263033552eef6b2bd868'>system: Define default 'PS1' in /etc/bashrc rather than ~/.bashrc.</a><span class='msg-avail'>...<span class='msg-tooltip'>Users can override 'PS1' in ~/.bashrc if they wish.

Previously, on Guix Home, the "default" 'PS1' would be set in ~/.bashrc
when 'home-bash-configuration-guix-defaults?' is true, preventing users
from overriding it via the 'environment-variables' field of
'home-bash-extension'.

* gnu/system/shadow.scm (%default-bashrc): Remove 'PS1' setting.
* gnu/system.scm (operating-system-etc-service): Define PS1 in
/etc/bashrc.
* gnu/home/services/shells.scm (add-bash-configuration): When
'home-bash-configuration-guix-defaults?' is true, add a default 'PS1' to
~/.bash_profile.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-01-05 14:21:19 +0100'>2023-01-05</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=2127e56bd8b3ee8ae5b6cde1b7ed5bf50cf7127b'>system, home: Factorize default '.bashrc'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/shadow.scm (%default-bashrc): New variable.  Source
/etc/bashrc only if it exists.
(default-skeletons): Use it.
* gnu/home/services/shells.scm (guix-bashrc): Remove.
(add-bash-configuration): Refer to '%default-bashrc' instead.
</span></span></td><td>Ludovic Courtès</td></tr>