Signed-off-by: Wei Liu <wei.l...@citrix.com>
Cc: Ian Campbell <ian.campb...@citrix.com>
Cc: Ian Jackson <ian.jack...@eu.citrix.com>
---
Osstest/Toolstack/libvirt.pm | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/Osstest/Toolstack/libvirt.pm b/Osstest/Toolstack/libvirt.pm
index a804ed5..d7d5154 100644
--- a/Osstest/Toolstack/libvirt.pm
+++ b/Osstest/Toolstack/libvirt.pm
@@ -93,17 +93,22 @@ sub saverestore_check ($) {
sub migrate ($) {
my ($self,$gho,$dst,$timeout) = @_;
- die "Migration is not yet supported on libvirt.";
+ my $ho = $self->{Host};
+ my $gn = $gho->{Name};
+ target_cmd_root($ho, "virsh migrate $gn $dst", $timeout);
}
sub save ($$$$) {
my ($self,$gho,$f,$timeout) = @_;
- die "Save is not yet supported on libvirt.";
+ my $ho = $self->{Host};
+ my $gn = $gho->{Name};
+ target_cmd_root($ho, "virsh save $gn $f", $timeout);
}
sub restore ($$$$) {
my ($self,$gho,$f,$timeout) = @_;
- die "Restore is not yet supported on libvirt.";
+ my $ho = $self->{Host};
+ target_cmd_root($ho, "virsh restore $f", $timeout);
}
1;
--
1.9.1
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
