diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-09-17 10:04:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-21 17:04:37 +0200 |
| commit | eee8b303f6d82c1400fd8fd3b097406358ed7875 (patch) | |
| tree | 425e55c2f106990c92606c770d958c461a46ec58 /tests | |
| parent | 6030396aec325b3c3287a472014bc2d530abb99d (diff) | |
| download | patches-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.scm | 9 |
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") |