aboutsummaryrefslogtreecommitdiff
path: root/tests/store.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/store.scm')
-rw-r--r--tests/store.scm25
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/store.scm b/tests/store.scm
index 88a8877d80..cb5370d5cc 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -158,6 +158,31 @@
(> freed 0)
(not (file-exists? p))))))
+(test-assert "add-text-to-store vs. delete-paths"
+ ;; Before, 'add-text-to-store' would return PATH2 without noticing that it
+ ;; is no longer valid.
+ (with-store store
+ (let* ((text (random-text))
+ (path (add-text-to-store store "delete-me" text))
+ (deleted (delete-paths store (list path)))
+ (path2 (add-text-to-store store "delete-me" text)))
+ (and (string=? path path2)
+ (equal? deleted (list path))
+ (valid-path? store path)
+ (file-exists? path)))))
+
+(test-assert "add-to-store vs. delete-paths"
+ ;; Same as above.
+ (with-store store
+ (let* ((file (search-path %load-path "guix.scm"))
+ (path (add-to-store store "delete-me" #t "sha256" file))
+ (deleted (delete-paths store (list path)))
+ (path2 (add-to-store store "delete-me" #t "sha256" file)))
+ (and (string=? path path2)
+ (equal? deleted (list path))
+ (valid-path? store path)
+ (file-exists? path)))))
+
(test-assert "references"
(let* ((t1 (add-text-to-store %store "random1"
(random-text)))