summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-22 23:17:37 +0100
committerLudovic Courtès <ludo@gnu.org>2015-03-22 23:18:33 +0100
commit1123759b4549bedc1a44b5d59a30c886e58ff6bc (patch)
treeceb5057c973ca543c5eadbe79bb767132ebc4dd4 /tests
parent607e1b51f4b473e69373b9887555d7f6abd4cf10 (diff)
downloadguix-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.scm6
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)))))