aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-04-19 16:11:25 +0200
committerLudovic Courtès <ludo@gnu.org>2017-04-19 17:51:39 +0200
commit2363bdd707ba382d89c96e03c04038c047d7228c (patch)
tree2c9fc5f5ff556bf426b652ec792ad2f53f22e742 /tests
parentf2767d3e8956cdd728e80c0d86805ec5badff15a (diff)
downloadguix-2363bdd707ba382d89c96e03c04038c047d7228c.tar
guix-2363bdd707ba382d89c96e03c04038c047d7228c.tar.gz
gexp: 'gexp-modules' accepts plain Scheme objects.
* guix/gexp.scm (gexp-modules): Return '() when not (gexp? GEXP). * tests/gexp.scm ("gexp-modules and literal Scheme object"): New test.
Diffstat (limited to 'tests')
-rw-r--r--tests/gexp.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm
index 41a53ae5a4..cf88a9db80 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -627,6 +627,10 @@
#~(foo #$@(list (with-imported-modules '((foo)) #~+)
(with-imported-modules '((bar)) #~-)))))
+(test-equal "gexp-modules and literal Scheme object"
+ '()
+ (gexp-modules #t))
+
(test-assertm "gexp->derivation #:modules"
(mlet* %store-monad
((build -> #~(begin