toolstack: Provide guest_unpause

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 2e0e8926d69088f3e246f9ec54f78d33712b919c..0c57dd7ce8327357023c2c40fe9cffe175276c56 100644 (file)
--- 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 d3e3b0ce57c8f6d67db6190f1e30dad3e7b6a056..d31af8c020bb1933455cba2da01acc8ecce4dc19 100644 (file)
--- 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};