From 000c59b6719250ee94a597418765c2f7f0ad3969 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 4 Nov 2014 20:55:48 +0100 Subject: store: Invalidate caches once GC has run. * guix/store.scm (run-gc): Add calls to 'hash-clear!'. * tests/store.scm ("add-text-to-store vs. delete-paths", "add-to-store vs. delete-paths"): New tests. --- tests/store.scm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'tests') 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))) -- cgit 1.4.1