diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-10-24 17:03:45 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-10-24 23:52:15 +0200 |
| commit | 82058eff591866085633679ecfc108020dd99820 (patch) | |
| tree | 270924f4ee4f8e8ca3e980604e205769f96c6fd6 /tests | |
| parent | e6cc3d86543581288239f58db02ca01a0f132562 (diff) | |
| download | patches-82058eff591866085633679ecfc108020dd99820.tar patches-82058eff591866085633679ecfc108020dd99820.tar.gz | |
store: Add `query-path-hash'.
* guix/store.scm (write-arg, read-arg): Add `base16' literal and
corresponding rule.
(query-path-hash): New operation.
* tests/derivations.scm ("fixed-output derivation"): Check whether
`query-path-hash' returns a bytevector.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/derivations.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm index 95507aa780..a0cca9386b 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -124,8 +124,9 @@ (succeeded? (build-derivations %store (list drv-path)))) (and succeeded? (let ((p (derivation-path->output-path drv-path))) - (equal? (string->utf8 "hello") - (call-with-input-file p get-bytevector-all)))))) + (and (equal? (string->utf8 "hello") + (call-with-input-file p get-bytevector-all)) + (bytevector? (query-path-hash %store p))))))) (test-assert "multiple-output derivation" (let* ((builder (add-text-to-store %store "my-fixed-builder.sh" |