summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/gexp.scm10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm
index fcc269d75a7..2715a46ae5f 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -194,6 +194,16 @@
194 (package-derivation %store coreutils))) 194 (package-derivation %store coreutils)))
195 (gexp->sexp* exp))))) 195 (gexp->sexp* exp)))))
196 196
197(test-assert "one input package, vector"
198 (let ((exp (gexp #((ungexp coreutils)))))
199 (and (gexp? exp)
200 (match (gexp-inputs exp)
201 ((input)
202 (eq? (gexp-input-thing input) coreutils)))
203 (equal? (vector (derivation->output-path
204 (package-derivation %store coreutils)))
205 (gexp->sexp* exp)))))
206
197(test-assert "one input origin" 207(test-assert "one input origin"
198 (let ((exp (gexp (display (ungexp (package-source coreutils)))))) 208 (let ((exp (gexp (display (ungexp (package-source coreutils))))))
199 (and (gexp? exp) 209 (and (gexp? exp)