aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-03-24 00:10:51 +0100
committerLudovic Courtès <ludo@gnu.org>2019-03-24 00:13:53 +0100
commit9c2e58564f3c8b53ce86d5791e3ea5818e1a4fd6 (patch)
treeaffd7882b3fea547a59146cddd503e6ae2e47c29
parent94aeec0aef03ab44e41bfc3e77c3b623cb3d607c (diff)
downloadguix-9c2e58564f3c8b53ce86d5791e3ea5818e1a4fd6.tar
guix-9c2e58564f3c8b53ce86d5791e3ea5818e1a4fd6.tar.gz
tests: Adjust 'guix pack -f squashfs' test.
This is a followup to 427c87d0bdc06cc3ee7fc220fd3ad36084412533. * tests/pack.scm ("squashfs-image + localstatedir"): Expect "bin" to be a relative symlink.
-rw-r--r--tests/pack.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/pack.scm b/tests/pack.scm
index 40473a9fe9..ea88cd89f2 100644
--- a/tests/pack.scm
+++ b/tests/pack.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
@@ -206,7 +206,11 @@
(file-exists? "var/guix/db/db.sqlite")
(string=? (string-append #$%bootstrap-guile "/bin")
(pk 'binlink (readlink bin)))
- (string=? (string-append #$profile "/bin")
+
+ ;; This is a relative symlink target.
+ (string=? (string-drop
+ (string-append #$profile "/bin")
+ 1)
(pk 'guilelink (readlink "bin"))))
(mkdir #$output))))))))
(built-derivations (list check)))))