From: Ian Jackson <iwj@xenproject.org>
Date: Fri, 16 Oct 2020 16:48:04 +0000 (+0100)
Subject: sg-run-job: Allow per-job control of test host reuse
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=470269b7ec0d454979ea8563ce9ecf74910f7c2a;p=osstest.git

sg-run-job: Allow per-job control of test host reuse

Signed-off-by: Ian Jackson <iwj@xenproject.org>
---

diff --git a/sg-run-job b/sg-run-job
index c64ae02..69ee715 100755
--- a/sg-run-job
+++ b/sg-run-job
@@ -42,10 +42,11 @@ proc per-host-finish {} {
 }
 
 proc run-job {job} {
-    global jobinfo builds flight ok truncate need_xen_hosts
+    global jobinfo builds flight ok reuse_ok truncate need_xen_hosts
     global nested_layers_hosts truncate_globs skip_globs anyskipped
 
     set ok 1
+    set reuse_ok 1
     set truncate 0
     set anyskipped 0
     jobdb::prepare $job
@@ -128,7 +129,7 @@ proc run-job {job} {
 	run-ts !broken =                  ts-host-reuse final host
     }
     set reuse {}
-    if {$ok} { lappend reuse --post-test-ok }
+    if {$ok && $reuse_ok} { lappend reuse --post-test-ok }
     eval [list per-host-ts !broken  = { ts-host-reuse final }] $reuse
 
     if {$ok} { setstatus pass                                             }