diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-12-09 21:50:21 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-12-15 17:32:09 +0100 |
commit | 465d2cb286170933577de045e6e6dad7205bfe10 (patch) | |
tree | 7dba0ec00536a6fa8483f88e11e3adbe682ccbf4 /tests/nar.scm | |
parent | 7a2897149d60816c33c63b7b7254ad283f8c3602 (diff) | |
download | guix-465d2cb286170933577de045e6e6dad7205bfe10.tar.gz guix-465d2cb286170933577de045e6e6dad7205bfe10.zip |
serialization: 'fold-archive' notifies about directory processing completion.
* guix/serialization.scm (fold-archive): Call PROC with a
'directory-complete tag when done with a directory.
(restore-file): Handle it.
* guix/scripts/archive.scm (list-contents): Likewise.
* guix/scripts/challenge.scm (archive-contents): Likewise.
* tests/nar.scm ("write-file-tree + fold-archive"): Adjust accordingly.
Diffstat (limited to 'tests/nar.scm')
-rw-r--r-- | tests/nar.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/nar.scm b/tests/nar.scm index aeff3d3330..b542ebd47c 100644 --- a/tests/nar.scm +++ b/tests/nar.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -218,8 +218,10 @@ '(("R" directory #f) ("R/dir" directory #f) ("R/dir/exe" executable "1234") + ("R/dir" directory-complete #f) ("R/foo" regular "abcdefg") - ("R/lnk" symlink "foo")) + ("R/lnk" symlink "foo") + ("R" directory-complete #f)) (let () (define-values (port get-bytevector) |