diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-12-11 12:03:25 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-12-15 17:32:11 +0100 |
| commit | 0682cc593688e7d9a435ca69f05320aa87df06d0 (patch) | |
| tree | f7046f09a0cfeaa7f52ad912cc906973fe3a3968 /tests/store-database.scm | |
| parent | cd6c5ddfc8a1a0a6f4085c8201fca20fd819bdfd (diff) | |
database: Remove #:deduplicate? and #:reset-timestamps? from 'register-path'.
* guix/store/database.scm (register-path): Remove #:deduplicate?
and #:reset-timestamps?.
* guix/scripts/system.scm (copy-item): Adjust accordingly.
* tests/store-database.scm ("register-path")
("register-path, directory"): Call 'reset-timestamps'.
Diffstat (limited to 'tests/store-database.scm')
| -rw-r--r-- | tests/store-database.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/store-database.scm b/tests/store-database.scm index 3b4ef43f6d..33fd6cfbad 100644 --- a/tests/store-database.scm +++ b/tests/store-database.scm @@ -34,8 +34,7 @@ (test-begin "store-database") -(test-equal "register-path" - '(1 1) +(test-assert "register-path" (let ((file (string-append (%store-prefix) "/" (make-string 32 #\f) "-fake"))) (when (valid-path? %store file) @@ -46,6 +45,7 @@ (drv (string-append file ".drv"))) (call-with-output-file file (cut display "This is a fake store item.\n" <>)) + (reset-timestamps file) (register-path file #:references (list ref) #:deriver drv) @@ -69,6 +69,7 @@ (mkdir-p (string-append file "/a")) (call-with-output-file (string-append file "/a/b") (const #t)) + (reset-timestamps file) (register-path file #:deriver drv) (and (valid-path? %store file) |