summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-09-17 10:04:15 +0200
committerLudovic Courtès <ludo@gnu.org>2018-09-21 17:04:37 +0200
commiteee8b303f6d82c1400fd8fd3b097406358ed7875 (patch)
tree425e55c2f106990c92606c770d958c461a46ec58 /tests
parent6030396aec325b3c3287a472014bc2d530abb99d (diff)
downloadpatches-eee8b303f6d82c1400fd8fd3b097406358ed7875.tar
patches-eee8b303f6d82c1400fd8fd3b097406358ed7875.tar.gz
inferior: Add 'inferior-package-search-paths' & co.
* guix/inferior.scm (%inferior-package-search-paths) (inferior-package-native-search-paths) (inferior-package-search-paths) (inferior-package-transitive-native-search-paths): New procedures. * tests/inferior.scm ("inferior-package-search-paths"): New test.
Diffstat (limited to 'tests')
-rw-r--r--tests/inferior.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/inferior.scm b/tests/inferior.scm
index 03170a19c9..99d736bd40 100644
--- a/tests/inferior.scm
+++ b/tests/inferior.scm
@@ -140,6 +140,15 @@
(close-inferior inferior)
result))
+(test-equal "inferior-package-search-paths"
+ (package-native-search-paths guile-2.2)
+ (let* ((inferior (open-inferior %top-builddir
+ #:command "scripts/guix"))
+ (guile (first (lookup-inferior-packages inferior "guile")))
+ (result (inferior-package-native-search-paths guile)))
+ (close-inferior inferior)
+ result))
+
(test-equal "inferior-package-derivation"
(map derivation-file-name
(list (package-derivation %store %bootstrap-guile "x86_64-linux")