diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-03-22 23:17:37 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-03-22 23:18:33 +0100 |
| commit | 1123759b4549bedc1a44b5d59a30c886e58ff6bc (patch) | |
| tree | ceb5057c973ca543c5eadbe79bb767132ebc4dd4 /tests | |
| parent | 607e1b51f4b473e69373b9887555d7f6abd4cf10 (diff) | |
| download | patches-1123759b4549bedc1a44b5d59a30c886e58ff6bc.tar patches-1123759b4549bedc1a44b5d59a30c886e58ff6bc.tar.gz | |
gexp: Fix handling of nativeness in nested gexps.
* guix/gexp.scm (gexp-inputs): Remove 'references' parameter; add
#:native? and honor it.
[add-reference-inputs]: Distinguish between native gexp inputs, and
non-native gexp inputs. Honor 'native?' field of list inputs.
* tests/gexp.scm ("ungexp + ungexp-native, nested"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gexp.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index 27c08467e7..0540969503 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -160,6 +160,12 @@ (equal? `(list ,guile ,cu ,libc ,bu) (gexp->sexp* exp target))))) +(test-equal "ungexp + ungexp-native, nested" + (list `((,%bootstrap-guile "out")) '<> `((,coreutils "out"))) + (let* ((exp (gexp (list (ungexp-native (gexp (ungexp coreutils))) + (ungexp %bootstrap-guile))))) + (list (gexp-inputs exp) '<> (gexp-native-inputs exp)))) + (test-assert "input list" (let ((exp (gexp (display '(ungexp (list %bootstrap-guile coreutils))))) |