kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

tests: Check the mtime and permissions of substituted items.

Browse Source 
* 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".
This commit is contained in:
Ludovic Courtès 2020-12-14 14:33:06 +01:00
parent 9dfa20a22a
commit 77a1efed9e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/store.scm
View File

@ -715,6 +715,7 @@
#:substitute-urls (%test-substitute-urls)) #:substitute-urls (%test-substitute-urls))
(and (has-substitutes? s o) (and (has-substitutes? s o)
(build-derivations s (list d)) (build-derivations s (list d))
(canonical-file? o)
(equal? c (call-with-input-file o get-string-all))))))) (equal? c (call-with-input-file o get-string-all)))))))
(test-assert "substitute + build-things with output path" (test-assert "substitute + build-things with output path"
@ -735,6 +736,7 @@
(and (has-substitutes? s o) (and (has-substitutes? s o)
(build-things s (list o)) ;give the output path (build-things s (list o)) ;give the output path
(valid-path? s o) (valid-path? s o)
(canonical-file? o)
(equal? c (call-with-input-file o get-string-all))))))) (equal? c (call-with-input-file o get-string-all)))))))
(test-assert "substitute + build-things with specific output" (test-assert "substitute + build-things with specific output"
@ -755,6 +757,7 @@
(build-things s `((,(derivation-file-name d) . "out"))) (build-things s `((,(derivation-file-name d) . "out")))
(valid-path? s o) (valid-path? s o)
(canonical-file? o)
(equal? c (call-with-input-file o get-string-all))))))) (equal? c (call-with-input-file o get-string-all)))))))
(test-assert "substitute, corrupt output hash" (test-assert "substitute, corrupt output hash"

6
tests/substitute.scm
View File

@ -378,7 +378,7 @@ System: mips64el-linux\n")))
(guix-substitute "--substitute"))))) (guix-substitute "--substitute")))))
(test-equal "substitute, authorized key" (test-equal "substitute, authorized key"
"Substitutable data." '("Substitutable data." 1 #o444)
(with-narinfo (string-append %narinfo "Signature: " (with-narinfo (string-append %narinfo "Signature: "
(signature-field %narinfo)) (signature-field %narinfo))
(dynamic-wind (dynamic-wind
@ -387,7 +387,9 @@ System: mips64el-linux\n")))
(request-substitution (string-append (%store-prefix) (request-substitution (string-append (%store-prefix)
"/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo") "/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo")
"substitute-retrieved") "substitute-retrieved")
(call-with-input-file "substitute-retrieved" get-string-all)) (list (call-with-input-file "substitute-retrieved" get-string-all)
(stat:mtime (lstat "substitute-retrieved"))
(stat:perms (lstat "substitute-retrieved"))))
(lambda () (lambda ()
(false-if-exception (delete-file "substitute-retrieved")))))) (false-if-exception (delete-file "substitute-retrieved"))))))