diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2023-07-21 12:14:58 +0200 |
|---|---|---|
| committer | Janneke Nieuwenhuizen <janneke@gnu.org> | 2023-07-21 17:54:43 +0200 |
| commit | 56dece7ad6f31ab917ccbc4fd7cce5e2d11cfef5 (patch) | |
| tree | f16d71fb582c5871397c7f5a52a7b659582bd279 | |
| parent | c4713ad89d186ad51a439193d8cc775b4aef06d8 (diff) | |
| download | guix-56dece7ad6f31ab917ccbc4fd7cce5e2d11cfef5.tar.gz | |
tests: store-roots: Initial gc-roots should be empty.
* tests/store-roots.scm ("gc-roots, initial"): Set expected result to empty.
Also do not error out if /profiles doesn't exist.
| -rw-r--r-- | tests/store-roots.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/store-roots.scm b/tests/store-roots.scm index 9877987a65..d82a29e313 100644 --- a/tests/store-roots.scm +++ b/tests/store-roots.scm @@ -31,10 +31,11 @@ (test-begin "store-roots") (test-equal "gc-roots, initial" - (list (string-append %state-directory "/profiles")) + '() (begin ;; 'gc-roots' should gracefully handle lack of that directory. - (delete-file-recursively (string-append %state-directory "/profiles")) + (false-if-exception + (delete-file-recursively (string-append %state-directory "/profiles"))) (gc-roots))) ;; The 'open-connection' call below gets guix-daemon to create |