nar: Add support for symlinks.
authorLudovic Courtès <ludo@gnu.org>
Fri, 12 Apr 2013 12:35:01 +0000 (14:35 +0200)
committerLudovic Courtès <ludo@gnu.org>
Fri, 12 Apr 2013 19:58:47 +0000 (21:58 +0200)
commitc7b62db614a40c7d7dc93b7e763e3741325486df
tree078791d3394dd65cb5a9219e8c57c4b3a9479e25
parent6f80c9d8f387f5b881a73cefdbbba91a40d8eec6
nar: Add support for symlinks.

* guix/nar.scm (write-file): Add case for type `symlink'.
  (restore-file): Likewise.
* tests/nar.scm (random-file-size, make-file-tree, delete-file-tree,
  with-file-tree, file-tree-equal?, make-random-bytevector,
  populate-file): New procedures.
  (%test-dir): New variable.
  ("write-file + restore-file"): Use `%test-dir' and `file-tree-equal?'.
  ("write-file + restore-file with symlinks"): New test.
guix/nar.scm
tests/nar.scm