me
/
guix
Archived
1
0
Fork 0
Code

tests: Remove one 'delete-paths' call in 'tests/store.scm'. 

This makes the test slightly less expensive.

* tests/store.scm ("add-text-to-store vs. delete-paths")
("add-to-store vs. delete-paths"): Delete and merge into...
("add-text-to-store/add-to-store vs. delete-paths"): ... this test.
master
Ludovic Courtès 2020-09-14 14:22:59 +02:00
parent 7d516c17da
commit 8eeeedcb35
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
tests/store.scm
View File

@ -223,30 +223,22 @@
;;(> 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.
(test-assert "add-text-to-store/add-to-store vs. delete-paths"
;; Before, 'add-text-to-store' and 'add-to-store' would return the same
;; store item 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)))))
(file (search-path %load-path "guix.scm"))
(path1 (add-text-to-store store "delete-me" text))
(path2 (add-to-store store "delete-me" #t "sha256" file))
(deleted (delete-paths store (list path1 path2))))
(and (string=? path1 (add-text-to-store store "delete-me" text))
(string=? path2 (add-to-store store "delete-me" #t "sha256" file))
(lset= string=? deleted (list path1 path2))
(valid-path? store path1)
(valid-path? store path2)
(file-exists? path1)
(file-exists? path2)))))
(test-equal "add-file-tree-to-store"
`(42