DO NOT APPLY make-flight-substep-test

This is a simple test case for substeps.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
CC: Wei Liu <wei.liu2@citrix.com>

diff --git a/make-flight-substep-test b/make-flight-substep-test
new file mode 100755 (executable)
index 0000000..44b0451
--- /dev/null
+++ b/make-flight-substep-test
@@ -0,0 +1,14 @@
+#!/bin/sh
+set -e
+
+flight=`./cs-flight-create play xen-unstable`
+
+runvars=bogus=0
+
+for j in test-1 test-2; do
+    ./cs-job-create $flight $j test-substeps \
+       $runvars
+    runvars=bogus=1
+done
+
+echo $flight

diff --git a/sg-run-job b/sg-run-job
index 24a0e8c7f04dcdc30760da3952079693f0a66176..259fc3b53c1960647640d4d9195c2066407ffa3b 100755 (executable)
--- a/sg-run-job
+++ b/sg-run-job
@@ -463,6 +463,13 @@ proc run-job/test-rumpuserxen {} {
                  ts-guest-destroy-hard            host   $g   +
 }
 
+proc need-hosts/test-substeps {} { }
+proc run-job/test-substeps {} {
+    run-ts . =   ts-substep-test suba:foo 1 subb:wombat suba=pass
+    run-ts . =.2 ts-substep-test subx:foo 1             subx=fail
+    run-ts . =.3 ts-substep-test ,bogus     subb=pass
+}
+
 if {[file exists sg-run-job-adhoc]} {
     source sg-run-job-adhoc
 }