# 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)))
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")"
arch'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=25522d52f13fd1814b4b9abbb21b8e3d418f5d0e'>root</a>/<a href='/guix/log/gnu?id=25522d52f13fd1814b4b9abbb21b8e3d418f5d0e'>gnu</a>/<a href='/guix/log/gnu/packages?id=25522d52f13fd1814b4b9abbb21b8e3d418f5d0e'>packages</a>/<a href='/guix/log/gnu/packages/php.scm?id=25522d52f13fd1814b4b9abbb21b8e3d418f5d0e'>php.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/packages/php.scm?id=25522d52f13fd1814b4b9abbb21b8e3d418f5d0e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-07-01 23:38:25 +0200'>2023-07-01</span></td><td><a href='/guix/commit/gnu/packages/php.scm?id=d6ca51d82ac04bfe88404184a1305172dc662e20'>gnu: php: Enable sysvsem module.</a><span class='msg-avail'>...<span class='msg-tooltip'>Nextcloud 26 strongly recommends installing this module.

* gnu/packages/php.scm: (php)[arguments]: Add "--enable-sysvsem" configure
  flag.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Timo Wilken</td></tr>
<tr><td><span title='2023-03-04 18:46:37 +0100'>2023-03-04</span></td><td><a href='/guix/commit/gnu/packages/php.scm?id=0d6c5e0ba1bd6800712e79964f7b9f5c6043f249'>gnu: Remove and deprecate tidy for tidy-html</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/web.scm (tidy): Change to deprecated alias for tidy-html
* gnu/packages/pumpio.scm (pumpa): Use tidy-html instead of tidy and correct
header name.
* gnu/packages/markup.scm (hoedown):
* gnu/packages/photo.scm (enblend-enfuse):
* gnu/packages/php.scm (php):
* gnu/packages/python-xyz.scm (python-pytidylib):
Use tidy-html instead of tidy.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2023-02-19 10:09:16 +0100'>2023-02-19</span></td><td><a href='/guix/commit/gnu/packages/php.scm?id=819aaca9d524d2fde3ed82c688d3731ca1797f87'>gnu: php: Drop a failed test for riscv64.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/php (php): Drop a failed test for riscv64.
[source, arguments, description]: Fix formatting.
</span></span></td><td>Aleksandr Vityazev</td></tr>
<tr><td><span title='2023-02-11 21:13:36 +0100'>2023-02-11</span></td><td><a href='/guix/commit/gnu/packages/php.scm?id=4d4fad681983a1a44da3a7a5c032cb26febd3ef2'>gnu: php: Update to 8.2.2.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/php.scm (php): Update to 8.2.2.
* gnu/packages/patches/php-curl-compat.patch: Remove file.
* gnu/packages/patches/php-bug-74093-test.patch: Remove file.
* gnu/packages/patches/php-fix-streams-copy-length.patch: New file.
* gnu/local.mk (dist_patch_DATA): Remove them.  Add it.
</span></span></td><td>Julien Lepiller</td></tr>