;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2019 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/>.


(define-module (test-scripts)
  #:use-module (guix scripts)
  #:use-module (guix tests)
  #:use-module ((guix scripts build)
                #:select (%standard-build-options))
  #:use-module (srfi srfi-64))

;; Test the (guix scripts) module.


(test-begin "scripts")

(test-equal "parse-command-line"
  '((argument . "bar") (argument . "foo")
    (cores . 10)                                  ;takes precedence
    (substitutes? . #f) (keep-failed? . #t)
    (max-jobs . 77) (cores . 42))

  (with-environment-variable "GUIX_BUILD_OPTIONS" "-c 42 -M 77"
    (parse-command-line '("--keep-failed" "--no-substitutes"
                          "--cores=10" "foo" "bar")
                        %standard-build-options
                        (list '()))))

(test-equal "parse-command-line and --no options"
  '((argument . "foo")
    (substitutes? . #f))                          ;takes precedence

  (with-environment-variable "GUIX_BUILD_OPTIONS" "--no-substitutes"
    (parse-command-line '("foo")
                        %standard-build-options
                        (list '((substitutes? . #t))))))

(test-end "scripts")

;;; Local Variables:
;;; eval: (put 'with-environment-variable 'scheme-indent-function 2)
;;; End:
iv class='path'>path: <a href='/guix/log/?id=28472b62d3cde979a04872c3e3c606742eaa2f73'>root</a>/<a href='/guix/log/tests?id=28472b62d3cde979a04872c3e3c606742eaa2f73'>tests</a>/<a href='/guix/log/tests/syscalls.scm?id=28472b62d3cde979a04872c3e3c606742eaa2f73'>syscalls.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/tests/syscalls.scm?id=28472b62d3cde979a04872c3e3c606742eaa2f73&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-02-25 11:29:35 +0100'>2021-02-25</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=7e9d9f28e997e7faad28cdd1c416be174d6986e7'>syscalls: Add 'mounts' and the &lt;mount&gt; record type.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (&lt;mount&gt;): New record type.
(option-string-&gt;mount-flags, mount-flags)
(octal-decode, mounts): New procedures.
(mount-points): Rewrite in terms of 'mount'.
* tests/syscalls.scm ("mounts"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-28 23:32:52 +0200'>2020-06-28</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=5e113cf4424b2746cbf3633cd2106c62b89e5b49'>tests: Do not fail when network interface aliases are present.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/42111&gt;.

* tests/syscalls.scm ("network-interface-names"): Filter interface names with
a colon.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-06-05 19:20:23 +0200'>2020-06-05</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=ea924134f819eef072ba7df9080d39de97fd73e6'>tests: syscall: Support file-systems without extended attributes.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/syscalls.scm (setxattr): Catch ENOTSUP that can be raised if the
file-system does not support extended user attributes.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-06-02 10:24:03 +0200'>2020-06-02</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=cb21c14b0ae1f4c9fcad4927e3b2eb0c06d7b018'>tests: Allow passing on systems without support for swap devices.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/syscalls.scm ("swapon", "swapoff"): Accept ENOSYS as a valid result.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Simon South</td></tr>
<tr><td><span title='2020-05-14 00:48:12 +0200'>2020-05-14</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=df05842332be80ed7f53022402b95cf711163b41'>syscalls: Add 'getxattr'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (getxattr): New procedure.
* tests/syscalls.scm ("getxattr, setxattr"): Test it, together with setxattr.
</span></span></td><td>Jan (janneke) Nieuwenhuizen</td></tr>
<tr><td><span title='2020-02-11 12:33:35 +0100'>2020-02-11</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=1deca767be1b84b96633e317f3fcdd5165f95df3'>syscalls: Re-enable 'pivot-root' test.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/25476&gt;.
Reported by Paul Garlick &lt;pgarlick@tourbillion-technology.com&gt;.

* tests/syscalls.scm ("pivot-root"): Skip only when
PERFORM-CONTAINER-TESTS? is true.  Rewrite to use a socket pair instead
of a pipe.  Synchronize parent and child so that the parent can
initialize the child's UID and GID mappings before continuing.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-10-05 22:05:02 +0200'>2019-10-05</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=5e5f7167943b408ae55736a44908a82056c87780'>syscalls: Add 'add-to-entropy-count'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (RNDADDTOENTCNT): New variable.
(add-to-entropy-count): New procedure.
* tests/syscalls.scm ("add-to-entropy-count"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-27 11:14:40 +0200'>2019-06-27</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=4593f5a654b4e59c5025cc4f99914e24e82515a4'>syscalls: Add 'terminal-rows'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (terminal-dimension): New procedure.
(terminal-columns): Rewrite in terms of 'terminal-dimension'.
(terminal-rows): New procedure.
* tests/syscalls.scm ("terminal-rows"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>