diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-03-17 10:19:36 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-04-04 13:50:52 -0400 |
| commit | 533d1768f47520ac7010adc550b0dd9783ebb011 (patch) | |
| tree | 6b329f3d97c95f75bb5d9e00f485f0ba5cc4ae4c /tests/store.scm | |
| parent | 4cd27cd60ab2e8246fff1372a469f2a0d6b41bb2 (diff) | |
| download | guix-533d1768f47520ac7010adc550b0dd9783ebb011.tar guix-533d1768f47520ac7010adc550b0dd9783ebb011.tar.gz | |
store: Add query-path-info operation.
* guix/store.scm (<path-info>): New record type.
(read-path-info): New procedure.
(read-arg): Add 'path-info' syntax.
(query-path-info): New variable.
* tests/store.scm ("query-path-info"): New test.
Diffstat (limited to 'tests/store.scm')
| -rw-r--r-- | tests/store.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/store.scm b/tests/store.scm index f778c2086d..eeceed45c1 100644 --- a/tests/store.scm +++ b/tests/store.scm @@ -606,6 +606,16 @@ (file (add %store "foo" "Lowered."))) (call-with-input-file file get-string-all))) +(test-assert "query-path-info" + (let* ((ref (add-text-to-store %store "ref" "foo")) + (item (add-text-to-store %store "item" "bar" (list ref))) + (info (query-path-info %store item))) + (and (equal? (path-info-references info) (list ref)) + (equal? (path-info-hash info) + (sha256 + (string->utf8 + (call-with-output-string (cut write-file item <>)))))))) + (test-end "store") |