[Xen-devel] [OSSTEST PATCH 03/11] sg-run-job: Allow suppression of consequences of per-host-ts fail

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 sg-run-job | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/sg-run-job b/sg-run-job
index aa97ee6..e1dc2d2 100755
--- a/sg-run-job
+++ b/sg-run-job
@@ -216,7 +216,8 @@ proc testid_matches_globs {testid globs} {
 #       where STATUS is the job/step status to be used if the step
 #       status is not as expected, and the special meanings are:
 #
-#           -      Only for run-ts; suprresses exception on failure.
+#           -      for run-ts; suprresses exception on failure.
+#                  for per-host-ts; suppresses consequences of failure.
 #           !      Run this even if the job is being truncated.
 #                  (for per-host-ts, even if the job is no longer $ok)
 #           .      Shorthand for "fail"
@@ -286,6 +287,10 @@ proc iffail-check {iffail okexpr iffail_status_var} {
     global ok
     upvar 1 $iffail_status_var iffail_status
 
+    if {[regexp {^-} $iffail]} {
+       # move - to the end, since docs say it should have come first
+       regsub {^-} "$iffail-" {} iffail
+    }
     if {[regexp {^!?\.$} $iffail]} {
         regsub {\.$} $iffail fail iffail
     }
@@ -444,8 +449,10 @@ proc per-host-ts {iffail ident script args} {
     foreach host $need_xen_hosts await $awaitl {
         if {![reap-ts $await]} {
             jobdb::logputs stderr "$flight.$jobinfo(job) @$host $args failed"
-            set failed 1
-            set ok 0
+           if {[string compare - $iffail_status]} {
+               set failed 1
+               set ok 0
+           }
         }
     }
 
-- 
2.1.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxxx
https://lists.xenproject.org/mailman/listinfo/xen-devel