From: Ian Jackson <ian.jack...@eu.citrix.com>
This is a simple test case for substeps.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
CC: Wei Liu <wei.l...@citrix.com>
---
make-flight-substep-test | 14 ++++++++++++++
sg-run-job | 7 +++++++
2 files changed, 21 insertions(+)
create mode 100755 make-flight-substep-test
diff --git a/make-flight-substep-test b/make-flight-substep-test
new file mode 100755
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 01c57aa..314019c 100755
--- a/sg-run-job
+++ b/sg-run-job
@@ -459,6 +459,13 @@ proc run-job/test-rumprun {} {
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
}
--
2.1.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
https://lists.xen.org/xen-devel
