guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: hydra/services: Remove roots for system tests and


From: Ricardo Wurmus
Subject: branch master updated: hydra/services: Remove roots for system tests and VM launch scripts.
Date: Thu, 23 Apr 2020 02:11:32 -0400

This is an automated email from the git hooks/post-receive script.

rekado pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new 224fedb  hydra/services: Remove roots for system tests and VM launch 
scripts.
224fedb is described below

commit 224fedbef7d303581315ec8211139473a2b4dc8f
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Thu Apr 23 08:10:26 2020 +0200

    hydra/services: Remove roots for system tests and VM launch scripts.
    
    * hydra/modules/sysadmin/services.scm (cleanup-cuirass-roots): Remove
    roots ending on "-test" and "-run-vm.sh".
---
 hydra/modules/sysadmin/services.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 66e6f28..eb9792d 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -60,7 +60,9 @@
                     (define (handle-gc-root file stat _)
                       ;; Remove disk images, including *-installation (disk
                       ;; images of the targets of installation tests.)
-                      (when (and (or (string-suffix? "-disk-image" file)
+                      (when (and (or (string-suffix? "-test" file)
+                                     (string-suffix? "-run-vm.sh" file)
+                                     (string-suffix? "-disk-image" file)
                                      (string-suffix? "-qemu-image" file)
                                      (string-suffix? ".squashfs" file)
                                      (string-suffix? "docker-pack.tar.gz" file)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]