diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-12-11 15:48:02 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-12-15 17:32:12 +0100 |
| commit | 7530e491b517497b7b8166b5ccecdc3d4cdb468d (patch) | |
| tree | f228a2bcadb518ba8e948652ec41f41aafed1c51 /tests/store-deduplication.scm | |
| parent | 9e6fe0e08fda67ab298ca33ef00ffbf078ce4dd9 (diff) | |
| download | guix-7530e491b517497b7b8166b5ccecdc3d4cdb468d.tar.gz | |
deduplicate: Create the '.links' directory lazily.
This avoids repeated (mkdir-p "/gnu/store/.links") calls when
deduplicating lots of files.
* guix/store/deduplication.scm (deduplicate): Remove initial call to
'mkdir-p'. Add ENOENT case in 'link' exception handler. Reindent.
* tests/store-deduplication.scm ("deduplicate, ENOSPC"): Check
for (<= links 4) to account for the initial 'link' call.
Diffstat (limited to 'tests/store-deduplication.scm')
| -rw-r--r-- | tests/store-deduplication.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/store-deduplication.scm b/tests/store-deduplication.scm index 7b01acae24..b1c2d93bbd 100644 --- a/tests/store-deduplication.scm +++ b/tests/store-deduplication.scm @@ -95,7 +95,7 @@ (lambda () (set! link (lambda (old new) (set! links (+ links 1)) - (if (<= links 3) + (if (<= links 4) (true-link old new) (throw 'system-error "link" "~A" '("Whaaat?!") (list ENOSPC)))))) |