diff options
author | Marius Bakke <mbakke@fastmail.com> | 2018-11-29 15:56:49 +0100 |
---|---|---|
committer | Marius Bakke <mbakke@fastmail.com> | 2018-11-29 15:56:49 +0100 |
commit | 25ca46985ccb26880f98b479d2a3ac862b20006e (patch) | |
tree | b52670028a36c5815f16311438c4c5f1f0f3e759 /tests/inferior.scm | |
parent | e2b9ed7fcc019df290f0f5bbe221803efb031123 (diff) | |
parent | 7af6e5daa4ffb1bbda48a4e990815066f21bdadc (diff) | |
download | patches-25ca46985ccb26880f98b479d2a3ac862b20006e.tar patches-25ca46985ccb26880f98b479d2a3ac862b20006e.tar.gz |
Merge branch 'master' into core-updates
Diffstat (limited to 'tests/inferior.scm')
-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 d1d5c00a77..d5a894ca8f 100644 --- a/tests/inferior.scm +++ b/tests/inferior.scm @@ -157,6 +157,15 @@ (close-inferior inferior) result)) +(test-equal "inferior-eval-with-store" + (add-text-to-store %store "foo" "Hello, world!") + (let* ((inferior (open-inferior %top-builddir + #:command "scripts/guix"))) + (inferior-eval-with-store inferior %store + '(lambda (store) + (add-text-to-store store "foo" + "Hello, world!"))))) + (test-equal "inferior-package-derivation" (map derivation-file-name (list (package-derivation %store %bootstrap-guile "x86_64-linux") |