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


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

;; Test the (guix scripts) module.

(define-syntax-rule (with-environment-variable variable value body ...)
  "Run BODY with VARIABLE set to VALUE."
  (let ((orig (getenv variable)))
    (dynamic-wind
      (lambda ()
        (setenv variable value))
      (lambda ()
        body ...)
      (lambda ()
        (if orig
            (setenv variable orig)
            (unsetenv variable))))))


(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:
eft'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/bootloader?id=ec8eef5e7e4b6c871bd8a9938ae64f6dd1277a3c&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-03-31 22:26:21 +0200'>2024-03-31</span></td><td><a href='/guix/commit/gnu/bootloader?id=64187b65d3acb13b91dd83fc8e7209c8ef538078'>bootloader: Add u-boot-qemu-riscv64-bootloader.</a><span class='msg-avail'>...</span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-01-14 23:00:03 +0100'>2024-01-14</span></td><td><a href='/guix/commit/gnu/bootloader?id=086850e5b2b4a1744565fe83624d256524b64a49'>bootloader: grub: Add support for loading an additional initrd.</a><span class='msg-avail'>...</span></td><td>Tomas Volf</td></tr>
<tr><td><span title='2023-12-22 16:06:03 -0800'>2023-12-22</span></td><td><a href='/guix/commit/gnu/bootloader?id=88fb95903c1d94b3be7e8a811d943af988041e4e'>gnu: bootloader: Add orangepi-r1-plus-lts-rk3328 bootloader.</a><span class='msg-avail'>...</span></td><td>Herman Rimm</td></tr>
<tr><td><span title='2023-07-13 18:59:13 +0200'>2023-07-13</span></td><td><a href='/guix/commit/gnu/bootloader?id=c22c29b0c4821ebe2c66a6c76562a41d33ff8392'>bootloader: grub: Use rumpdisk-style root when booting with "noide".</a><span class='msg-avail'>...</span></td><td>Janneke Nieuwenhuizen</td></tr>
<tr><td><span title='2023-06-14 14:52:21 +0300'>2023-06-14</span></td><td><a href='/guix/commit/gnu/bootloader?id=39250fc6229d60b7ae397749caf1e4c99e49b419'>gnu: bootloader: Add u-boot-sifive-unmatched-bootloader.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-01-18 21:25:25 -0500'>2023-01-18</span></td><td><a href='/guix/commit/gnu/bootloader?id=9530ee9f9c89cbbf35589727e9fdb373ed7f47fa'>gnu: Add u-boot-ts7970-q-2g-1000mhz-c-bootloader.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-12-28 22:14:16 -0500'>2022-12-28</span></td><td><a href='/guix/commit/gnu/bootloader?id=d6ea9f8b38df7de1194d8106488a8c33cce64fd1'>gnu: u-boot-am335x-boneblack: Revert to old name.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-12-20 21:29:25 -0500'>2022-12-20</span></td><td><a href='/guix/commit/gnu/bootloader?id=c04528d2a2597d79278833f3607c806278253446'>gnu: u-boot-am335x-evm-boneblack: Fix variable name.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-12-07 23:19:56 -0500'>2022-12-07</span></td><td><a href='/guix/commit/gnu/bootloader?id=f76ed96f934fc83bb0f974396941c6a90a90e9fc'>bootloaders: grub: Fix comment.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-12-01 14:31:28 -0500'>2022-12-01</span></td><td><a href='/guix/commit/gnu/bootloader?id=a9acbf919a7668e26863d2d26d48c5fd41b57fcd'>gnu: bootloader: Rework chaining, add grub-efi-netboot-removable-bootloader.</a><span class='msg-avail'>...</span></td><td>Stefan</td></tr>
<tr><td><span title='2022-09-08 22:30:09 +0200'>2022-09-08</span></td><td><a href='/guix/commit/gnu/bootloader?id=1fc20e4c86697e9d112b9fed8079334c818dd78e'>gnu: bootloader: grub: Add support for chain-loader.</a><span class='msg-avail'>...</span></td><td>tiantian</td></tr>
<tr><td><span title='2022-08-30 08:50:44 +0200'>2022-08-30</span></td><td><a href='/guix/commit/gnu/bootloader?id=f126f23b132148192b2c9a89032a5831af0b3c52'>bootloader: Add device-tree-support? option.</a><span class='msg-avail'>...</span></td><td>Reza Alizadeh Majd</td></tr>
<tr><td><span title='2022-06-24 10:21:06 +0200'>2022-06-24</span></td><td><a href='/guix/commit/gnu/bootloader?id=62c86c8391ceb8953ca972498fd75ea9298b85ff'>image: Add support for 32bit UEFI.</a><span class='msg-avail'>...</span></td><td>Denis 'GNUtoo' Carikli</td></tr>
<tr><td><span title='2022-06-06 22:43:30 +0200'>2022-06-06</span></td><td><a href='/guix/commit/gnu/bootloader?id=618f665a5ffc6330bc99c4ac2b1077c1e1a7506c'>bootloader: grub: Add removable grub-efi bootloader option.</a><span class='msg-avail'>...</span></td><td>Karl Hallsby</td></tr>
<tr><td><span title='2022-01-13 11:11:02 +0100'>2022-01-13</span></td><td><a href='/guix/commit/gnu/bootloader?id=ea71ec1630e06503c14c6e7f4570b69de4e42123'>bootloader: grub: Fix serial mode.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-12-01 17:51:37 +0100'>2021-12-01</span></td><td><a href='/guix/commit/gnu/bootloader?id=adce91a3ec0cb2912daa6eefe9324c15ff3126f7'>gnu: system: Add LUKS2 support for the root file system.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/gnu/bootloader?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-05-29 21:25:13 -0700'>2021-05-29</span></td><td><a href='/guix/commit/gnu/bootloader?id=d7d6c9e4e697c33634c89628d10995d0f070db96'>gnu: bootloader: Fix install-allwinner64-u-boot.</a><span class='msg-avail'>...</span></td><td>Vagrant Cascadian</td></tr>