# GNU Guix --- Functional package management for GNU
# Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com>
# Copyright © 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
#
# 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 `guix repl' command-line utility.
#

guix repl --version

test_directory="`mktemp -d`"
export test_directory
trap 'chmod -Rf +w "$test_directory"; rm -rf "$test_directory"' EXIT

tmpfile="$test_directory/foo.scm"
rm -f "$tmpfile"
trap 'rm -f "$tmpfile"' EXIT

module_dir="t-guix-repl-$$"
mkdir "$module_dir"
trap 'rm -rf "$module_dir"' EXIT


cat > "$tmpfile"<<EOF
(use-modules (guix packages)
             (gnu packages base))

(format #t "~a\n" (package-name coreutils))
EOF

test "`guix repl "$tmpfile"`" = "coreutils"

# Make sure that the file can also be loaded when passed as a relative file
# name.
(cd "$(dirname "$tmpfile")"; test "$(guix repl "$(basename "$tmpfile")")" = "coreutils")


cat > "$module_dir/foo.scm"<<EOF
(define-module (foo)
  #:use-module (guix packages)
  #:use-module (gnu packages base))

(define-public dummy
  (package (inherit hello)
    (name "dummy")
    (version "42")
    (synopsis "dummy package")
    (description "dummy package. Only used for testing purposes.")))
EOF

cat > "$tmpfile"<<EOF
(use-modules (guix packages)
             (foo))

(format #t "~a\n" (package-version dummy))
EOF

test "`guix repl "$tmpfile" -L "$module_dir"`" = "42"

cat > "$tmpfile"<<EOF
(format #t "~a\n" (cdr (command-line)))
EOF

test "`guix repl -- "$tmpfile" -a b --input=foo.txt`" = "(-a b --input=foo.txt)"

cat > "$tmpfile"<<EOF
#!$(type -P env) -S guix repl --
!#
(format #t "~a\n" (cdr (command-line)))
EOF
chmod 755 $tmpfile

test "`"$tmpfile" -a b --input=foo.txt`" = "(-a b --input=foo.txt)"
db2c736c6f39d7011f6d147'>xorg.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/services/xorg.scm?id=3972c32f71005d0cddb2c736c6f39d7011f6d147&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-03-20 14:54:26 +0000'>2024-03-20</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=8fa07612644339a2bf21be9ee924e6ff1e0ec81d'>Merge remote-tracking branch 'savannah/master' into gnome-team</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2024-03-19 18:52:16 +0800'>2024-03-19</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=3ea55fada0593cd05c686cef2f6a59ba65933ef5'>services: sddm: Add extension for localed-service-type.</a><span class='msg-avail'>...</span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-02-24 06:36:24 +0100'>2024-02-24</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=06d01c610e3bee61e38a177aecda5982d5b338ae'>services: gdm: Enable wayland by default.</a><span class='msg-avail'>...</span></td><td>Vivien Kraus</td></tr>
<tr><td><span title='2024-01-05 17:28:54 +0100'>2024-01-05</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=65af293c3736b2147c0af764414f2efe720e521e'>services: xorg: ‘dbus-daemon-wrapper’ handles Home profile.</a><span class='msg-avail'>...</span></td><td>Feng Shu</td></tr>
<tr><td><span title='2023-06-04 10:33:55 +0200'>2023-06-04</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=f4f5ee6ad6e2432f52e37c549211df8f1cdbb571'>services: screen-locker-service-type: Configurable PAM and setuid.</a><span class='msg-avail'>...</span></td><td>muradm</td></tr>
<tr><td><span title='2023-05-11 13:21:45 +0200'>2023-05-11</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=2df5d4fd18a2fbcb8066a50e2da8ec64635f5162'>system: pam: Let PAM extensions add shepherd requirements.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2023-03-25 10:06:36 +0800'>2023-03-25</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=a7f118d062db4408b23505750c44a1f996496c43'>services: xorg-wrapper: Support xorg server input rewriting.</a><span class='msg-avail'>...</span></td><td>r0man</td></tr>
<tr><td><span title='2023-03-10 14:49:58 +0100'>2023-03-10</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=5627c73a9e410c7e28d67df517bd275d8c5f5d8d'>services: xorg: Deprecate 'screen-locker-service' procedure.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2022-11-18 15:44:39 +0100'>2022-11-18</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=8d9647d8a77a67013c48166561134d92b5224264'>services: Add Shepherd 'configuration' action to various services.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-11 11:29:03 +0000'>2022-10-11</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=683558e2ed8fd40ce29453b8136a95bedf55991a'>services: slim-service-type: Do not extend profile with xterm.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-10-07 10:11:13 -0400'>2022-10-07</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=aad4e4fc6bed1209479970f1bcd2f08ee2b53d12'>services: xorg: Add auto-suspend? field to &lt;gdm-configuration&gt;.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-10-07 10:11:12 -0400'>2022-10-07</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=7b896a26b8a911231d606b4fe664b03b95b27b39'>services: Add dconf-service-type.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-10-07 10:11:11 -0400'>2022-10-07</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=1936668f5b7837104de4a091c8f6adf907ff9273'>services: gdm: Add a configuration field to enable XDMCP.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-09-16 16:27:08 -0400'>2022-09-16</span></td><td><a href='/guix/commit/gnu/services/xorg.scm?id=d7e56aebec4535f3567c362b6084818873e54b0d'>services: desktop: Mount /var/lib/gdm on a tmpfs file system.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>