[Xen-devel] [OSSTEST PATCH 13/17] toolstack: Provide guest_unpause

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

Only for xl (and xm) for now.

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 Osstest/TestSupport.pm  | 7 +++++++
 Osstest/Toolstack/xl.pm | 8 ++++++++
 2 files changed, 15 insertions(+)

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index 2e0e892..0c57dd7 100644
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -115,6 +115,7 @@ BEGIN {
                       guest_find_domid guest_check_up guest_check_up_quick
                       guest_get_state guest_await_reboot
                       guest_await_shutdown guest_await_destroy guest_destroy
+                     guest_unpause
                       guest_vncsnapshot_begin guest_vncsnapshot_stash
                      guest_check_remus_ok guest_editconfig
                       guest_prepare_disk guest_unprepare_disk
@@ -1689,6 +1690,12 @@ sub guest_destroy ($) {
     guest_unprepare_disk($gho);
 }
 
+sub guest_unpause ($) {
+    my ($gho) = @_;
+    my $ho = $gho->{Host};
+    toolstack($ho)->unpause($gho);
+}
+
 sub guest_await_destroy ($$) {
     my ($gho, $timeout) = @_;
     my $ho = $gho->{Host};
diff --git a/Osstest/Toolstack/xl.pm b/Osstest/Toolstack/xl.pm
index d3e3b0c..d31af8c 100644
--- a/Osstest/Toolstack/xl.pm
+++ b/Osstest/Toolstack/xl.pm
@@ -58,6 +58,14 @@ sub create_paused ($$) {
     my $cfg = $gho->{CfgPath};
 }
 
+sub unpause ($$) {
+    my ($self,$gho) = @_;
+    my $gn = $gho->{Name};
+    target_cmd_root($self->{Host},
+                   $self->{_VerboseCommand}." unpause $gn", 100);
+
+}
+
 sub consolecmd ($$) {
     my ($self,$gho) = @_;
     my $gn = $gho->{Name};
-- 
2.1.4


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