# 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)"
e263e8ef99ea5ddf97110abb35e9c42'>graph.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/graph.scm?id=e2093c0f3e263e8ef99ea5ddf97110abb35e9c42&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-04-25 14:49:57 -0400'>2021-04-25</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=76fb1a5cf29c3ecf189776eb16db4fcb89bb1939'>gnu: Add python-louvain 0.15.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (python-louvain): Rename variable to
python-louvain-0.6.
(python-louvain): New variable.
* gnu/packages/bioinformatics.scm (python-scanpy)[propagated-inputs]: Use
python-louvain-0.6.

Co-authored-by: Leo Famulari &lt;leo@famulari.name&gt;
</span></span></td><td>Vinicius Monego</td></tr>
<tr><td><span title='2021-03-04 14:48:43 +0200'>2021-03-04</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=e9096ef105c8f3d4667e55b4d94a1b1493659e2d'>gnu: python-plotly: Allow test phase to be skipped.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (python-plotly)[arguments]: Wrap custom 'check
phase tests with test with tests? keyword.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-03-04 14:48:43 +0200'>2021-03-04</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=3e5d811387d8cd6a3eca0f50b55d728c5f6382f5'>gnu: python-plotly: Update to 4.14.3.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (python-plotly): Update to 4.14.3.
[propagated-inputs]: Remove python-decorator. Add python-ipython,
python-pillow. Move python-ipywidgets, python-xarray ...
[native-inputs]: ... to here.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-11-26 04:22:50 +0100'>2020-11-26</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=4491c624dd4a0af52873e9884ab8240cf09936e3'>gnu: igraph: Omit static library.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (igraph)[arguments]: Add "--disable-static"
to #:configure-flags.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-11-26 04:22:50 +0100'>2020-11-26</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=13e55e6eeba5fda7bfee491bce15e52a22fbe91c'>gnu: igraph: Update to 0.8.4.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (igraph): Update to 0.8.4.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-09-14 21:39:16 +0200'>2020-09-14</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=b3a998374c37964820a51182fa7be7a546fc4d46'>gnu: r-rgraphviz: Move to (gnu packages bioconductor).</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (r-rgraphviz): Move from here...
* gnu/packages/bioconductor.scm (r-rgraphviz): ...to here.

Signed-off-by: Ricardo Wurmus &lt;rekado@elephly.net&gt;
</span></span></td><td>zimoun</td></tr>
<tr><td><span title='2020-09-14 21:25:17 +0200'>2020-09-14</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=62881beb4d63a9910b2d640779b7705c120d643f'>gnu: r-rgraphviz: Build reproducibly.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/43398&gt;.

* gnu/packages/graph.scm (r-rgraphviz)[arguments]: Add phase
"make-reproducible".
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2020-09-11 21:58:55 +0200'>2020-09-11</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=c23ff34423bec6982d59cddd295018ae5f4c68b2'>gnu: r-igraph: Move to (gnu packages cran).</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (r-igraph): Move from here...
* gnu/packages/cran.scm (r-igraph): ...to here.

Signed-off-by: Ricardo Wurmus &lt;rekado@elephly.net&gt;
</span></span></td><td>zimoun</td></tr>
<tr><td><span title='2020-09-11 21:58:49 +0200'>2020-09-11</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=1dc50e419044e7ecacef137b1f8d7daae306017b'>gnu: r-diffusionmap: Move to (gnu packages cran).</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (r-diffusionmap): Move from here...
* gnu/packages/cran.scm (r-diffusionmap): ...to here.

Signed-off-by: Ricardo Wurmus &lt;rekado@elephly.net&gt;
</span></span></td><td>zimoun</td></tr>
<tr><td><span title='2020-08-18 05:38:39 +0200'>2020-08-18</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=fe55ff3851564d9bb72c007d1fe1aac9ea980ac1'>gnu: python-igraph: Update to 0.8.2.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (python-igraph): Update to 0.8.2.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-08-18 05:38:38 +0200'>2020-08-18</span></td><td><a href='/guix/commit/gnu/packages/graph.scm?id=2b1c4a5c5283599ac2b1fc5d0263c9a8280da308'>gnu: igraph: Update to 0.8.2.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graph.scm (igraph): Update to 0.8.2.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>