diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-12-14 14:33:06 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-12-19 23:25:01 +0100 |
| commit | 77a1efed9e12ce0e2c470d7b0601ae70c72b010b (patch) | |
| tree | aea31245bb9f6efd7ec0789ea0f9c578b36a3abf /tests/store.scm | |
| parent | 9dfa20a22ae0be3d3b01a7b3d422af97428c627e (diff) | |
| download | guix-77a1efed9e12ce0e2c470d7b0601ae70c72b010b.tar.gz | |
tests: Check the mtime and permissions of substituted items.
* tests/store.scm ("substitute")
("substitute + build-things with output path")
("substitute + build-things with specific output"): Call 'canonical-file?'.
* tests/substitute.scm ("substitute, authorized key"): Check the mtime
and permissions of "substitute-retrieved".
Diffstat (limited to 'tests/store.scm')
| -rw-r--r-- | tests/store.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/store.scm b/tests/store.scm index 7f1ec51875..4dc125bcb9 100644 --- a/tests/store.scm +++ b/tests/store.scm @@ -715,6 +715,7 @@ #:substitute-urls (%test-substitute-urls)) (and (has-substitutes? s o) (build-derivations s (list d)) + (canonical-file? o) (equal? c (call-with-input-file o get-string-all))))))) (test-assert "substitute + build-things with output path" @@ -735,6 +736,7 @@ (and (has-substitutes? s o) (build-things s (list o)) ;give the output path (valid-path? s o) + (canonical-file? o) (equal? c (call-with-input-file o get-string-all))))))) (test-assert "substitute + build-things with specific output" @@ -755,6 +757,7 @@ (build-things s `((,(derivation-file-name d) . "out"))) (valid-path? s o) + (canonical-file? o) (equal? c (call-with-input-file o get-string-all))))))) (test-assert "substitute, corrupt output hash" |