From mboxrd@z Thu Jan 1 00:00:00 1970 From: Wei Liu Subject: [PATCH OSSTEST 06/12] toolstack/libvirt: guest migrate, save and restore support Date: Mon, 9 Feb 2015 11:10:00 +0000 Message-ID: <1423480206-9729-7-git-send-email-wei.liu2@citrix.com> References: <1423480206-9729-1-git-send-email-wei.liu2@citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: In-Reply-To: <1423480206-9729-1-git-send-email-wei.liu2@citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: xen-devel@lists.xen.org Cc: ian.jackson@eu.citrix.com, jfehlig@suse.com, Wei Liu , ian.campbell@citrix.com List-Id: xen-devel@lists.xenproject.org Signed-off-by: Wei Liu Cc: Ian Campbell Cc: Ian Jackson --- 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