summaryrefslogtreecommitdiff
path: root/etc/system-tests.scm
diff options
context:
space:
mode:
Diffstat (limited to 'etc/system-tests.scm')
-rw-r--r--etc/system-tests.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/etc/system-tests.scm b/etc/system-tests.scm
index ab2827e70a..1085deed24 100644
--- a/etc/system-tests.scm
+++ b/etc/system-tests.scm
@@ -79,7 +79,11 @@ the 'TESTS' environment variable."
;; Intern SOURCE so that 'build-from-source' in (guix channels) sees
;; "fresh" file names and thus doesn't find itself loading .go files
;; from ~/.cache/guile when it loads 'build-aux/build-self.scm'.
- (let* ((source (local-file source "guix-source"
+ (let* ((source (local-file source
+ (if commit
+ (string-append "guix-"
+ (string-take commit 7))
+ "guix-source")
#:recursive? #t
#:select?
(or (git-predicate source)