diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-04-19 16:11:25 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-04-19 17:51:39 +0200 |
| commit | 2363bdd707ba382d89c96e03c04038c047d7228c (patch) | |
| tree | 2c9fc5f5ff556bf426b652ec792ad2f53f22e742 /tests | |
| parent | f2767d3e8956cdd728e80c0d86805ec5badff15a (diff) | |
| download | gnu-guix-2363bdd707ba382d89c96e03c04038c047d7228c.tar gnu-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.scm | 4 |
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 |