01/04: tests: Use the same source as ci.guix.gnu.org.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8b18f5cb309f670b08ad35df6425f4e9e19d8a82
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sun Mar 22 18:47:48 2020 +0100

    tests: Use the same source as ci.guix.gnu.org.
    
    * etc/system-tests.scm (system-test-manifest): In 'local-file' call, use
    a name that is a function of COMMIT to match what Cuirass does.
---
 etc/system-tests.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/etc/system-tests.scm b/etc/system-tests.scm
index ab2827e..1085dee 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)