# GNU Guix --- Functional package management for GNU
# Copyright © 2014, 2015 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 the daemon and its interaction with 'guix substitute-binary'.
#

set -e

guix system --version

tmpfile="t-guix-system-$$"
errorfile="t-guix-system-error-$$"
trap 'rm -f "$tmpfile" "$errorfile"' EXIT

# Reporting of syntax errors.

cat > "$tmpfile"<<EOF
;; This is line 1, and the next one is line 2.
   (operating-system)
;; The 'T' is at column 3.
EOF

if guix system vm "$tmpfile" 2> "$errorfile"
then
    # This must not succeed.
    exit 1
else
    grep "$tmpfile:2:3:.*missing.* initializers" "$errorfile"
fi


# Reporting of duplicate service identifiers.

cat > "$tmpfile" <<EOF
(use-modules (gnu))
(use-service-modules networking)

(operating-system
  (host-name "antelope")
  (timezone "Europe/Paris")
  (locale "en_US.UTF-8")

  (bootloader (grub-configuration (device "/dev/sdX")))
  (file-systems (cons (file-system
                        (device "root")
                        (title 'label)
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))

  (services (cons* (dhcp-client-service)
                   (dhcp-client-service) ;twice!
                   %base-services)))
EOF

if guix system vm "$tmpfile" 2> "$errorfile"
then
    # This must not succeed.
    exit 1
else
    grep "service 'networking'.*more than once" "$errorfile"
fi
487702280'>root</a>/<a href='/guix/log/gnu?id=55db762b31531609f43b32680298762487702280'>gnu</a>/<a href='/guix/log/gnu/tests?id=55db762b31531609f43b32680298762487702280'>tests</a>/<a href='/guix/log/gnu/tests/mail.scm?id=55db762b31531609f43b32680298762487702280'>mail.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/tests/mail.scm?id=55db762b31531609f43b32680298762487702280&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-11-05 16:13:50 +0100'>2020-11-05</span></td><td><a href='/guix/commit/gnu/tests/mail.scm?id=a4e7749e91c5ed9b96117e3bcda8802e8744841e'>services: Remove imports of (ice-9 …) modules.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/monitoring.scm (zabbix-server-activation): Remove (ice-9
rdelim) from the imported modules.
(zabbix-agent-activation): Likewise.
* gnu/tests/mail.scm (run-exim-test)[test]: Remove (ice-9 ftw) from the
imported modules.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-16 14:05:52 +0100'>2020-03-16</span></td><td><a href='/guix/commit/gnu/tests/mail.scm?id=a37e03d60e18dfcf119d0b92d9008e54fc350bf1'>tests: opensmtpd: Check /var/spool/mail instead of /var/mail.</a><span class='msg-avail'>...<span class='msg-tooltip'>The test had been failing since the upgrade to 6.6.3p1 in commit
2dbfd8eec43b602d23cee3fdd2842cc333e36c24.

* gnu/services/mail.scm (opensmtpd-activation): Create /var/spool/mail.
* gnu/tests/mail.scm (run-opensmtpd-test): Check /var/spool/mail instead
of /var/mail.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-16 14:05:52 +0100'>2020-03-16</span></td><td><a href='/guix/commit/gnu/tests/mail.scm?id=c215d9ec1ce108844b14c0c2952199a0da5f4176'>tests: opensmtpd: Gracefully handle test failure.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously the 'wait' loop would run for ~1024 seconds, at which point
we'd reach the file descriptor limit due to the leak in 'queue-empty?'.

* gnu/tests/mail.scm (run-opensmtpd-test)[test]("mail arrived"): In
'queue-empty?', close PIPE to avoid file descriptor leak.  In 'wait'
loop, arrange to run at most 20 times.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-09 23:46:36 +0100'>2020-03-09</span></td><td><a href='/guix/commit/gnu/tests/mail.scm?id=827abd5deb87c1ec15112d7cde1a03a4ba4b4983'>tests: getmail: Provide a pre-initialized user account password.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests/mail.scm (%getmail-os): Rewrite so that the "alice" account
has a password.
(run-getmail-test)[test]("set password for alice"): Remove.  This would
not work since commit 8b9cad01e9619f53dc5a65892ca6a09ca5de3447 since
'passwd' would no longer be in $PATH.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-01-31 00:42:48 +0100'>2020-01-31</span></td><td><a href='/guix/commit/gnu/tests/mail.scm?id=c3f146e79aca0efec5c0cbbf4e39c79e09268c15'>gnu: Update opensmtpd configuration grammar.</a><span class='msg-avail'>...<span class='msg-tooltip'>This follows up on commit 0d486909083c98d7c75cdfc027f89e69f9bf8f48.

* gnu/services/mail.scm (%default-opensmtpd-config-file): Adapt to ‘new’
≥6.4 grammar.
* gnu/tests/mail.scm (%opensmtpd-os): Likewise.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-01-20 19:13:17 +0000'>2020-01-20</span></td><td><a href='/guix/commit/gnu/tests/mail.scm?id=b3e28b5ef5e23e564eeac8823ad2c837f7c40650'>tests: mail: Remove %getmail-os from the bottom of the file.</a><span class='msg-avail'>...<span class='msg-tooltip'>This was left over when debugging the system test.

* gnu/tests/mail.scm: Remove %getmail-os from the bottom of the file.
</span></span></td><td>Christopher Baines</td></tr>