From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 29 May 2018 17:56:05 +0000 (+0100)
Subject: toolstack: Provide guest_create_paused
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=f328d75ef6c98fc3b6bad9c64fb1a9ab5d49e6ab;p=people%2Faperard%2Fosstest.git

toolstack: Provide guest_create_paused

Only for xl (and xm) for now.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index c8439021..2e0e8926 100644
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -119,7 +119,7 @@ BEGIN {
 		      guest_check_remus_ok guest_editconfig
                       guest_prepare_disk guest_unprepare_disk
                       host_involves_pcipassthrough host_get_pcipassthrough_devs
-                      toolstack guest_create
+                      toolstack guest_create guest_create_paused
 
                       await_webspace_fetch_byleaf create_webfile
                       file_link_contents get_timeout
@@ -1702,6 +1702,13 @@ sub guest_create ($) {
     toolstack($ho,$gho)->create($gho);
 }
 
+sub guest_create_paused ($) {
+    my ($gho) = @_;
+    my $ho = $gho->{Host};
+    guest_prepare_disk($gho);
+    toolstack($ho,$gho)->create_paused($gho);
+}
+
 sub guest_prepare_disk ($) {
     my ($gho) = @_;
 
diff --git a/Osstest/Toolstack/xl.pm b/Osstest/Toolstack/xl.pm
index e179217c..d3e3b0ce 100644
--- a/Osstest/Toolstack/xl.pm
+++ b/Osstest/Toolstack/xl.pm
@@ -40,10 +40,22 @@ sub destroy ($$) {
     target_cmd_root($self->{Host}, $self->{_Command}." destroy $gn", 40);
 }
 
+sub _create ($$$) {
+    my ($self,$gho,$options) = @_;
+    my $cfg = $gho->{CfgPath};
+    target_cmd_root($self->{Host},
+		    $self->{_VerboseCommand}." create $options $cfg", 100);
+}
+
 sub create ($$) {
     my ($self,$gho) = @_;
+    return $self->_create($gho,'');
+}
+
+sub create_paused ($$) {
+    my ($self,$gho) = @_;
+    return $self->_create($gho,'-p');
     my $cfg = $gho->{CfgPath};
-    target_cmd_root($self->{Host}, $self->{_VerboseCommand}." create $cfg", 100);
 }
 
 sub consolecmd ($$) {