From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 12/13] ts-guest-destroy-hard: New script Date: Tue, 15 Jul 2014 16:22:26 +0100 Message-ID: <1405437747-12753-13-git-send-email-ian.jackson@eu.citrix.com> References: <1405437747-12753-1-git-send-email-ian.jackson@eu.citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from mail6.bemta3.messagelabs.com ([195.245.230.39]) by lists.xen.org with esmtp (Exim 4.72) (envelope-from ) id 1X74Yy-0005jL-Fl for xen-devel@lists.xenproject.org; Tue, 15 Jul 2014 15:22:40 +0000 In-Reply-To: <1405437747-12753-1-git-send-email-ian.jackson@eu.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.xenproject.org Cc: Ian Jackson , Ian Campbell List-Id: xen-devel@lists.xenproject.org This just calls xl destroy; it doesn't check that the guest is running, or on the network, or anything. (It also doesn't check that the guest is down afterwards.) We are going to want this to be able to destroy the rumpuserxen xenstorels domain, which is short-lived (and will normally have terminated by the time we want to destroy it). Signed-off-by: Ian Jackson --- ts-guest-destroy-hard | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100755 ts-guest-destroy-hard diff --git a/ts-guest-destroy-hard b/ts-guest-destroy-hard new file mode 100755 index 0000000..5c2430c --- /dev/null +++ b/ts-guest-destroy-hard @@ -0,0 +1,27 @@ +#!/usr/bin/perl -w +# This is part of "osstest", an automated testing framework for Xen. +# Copyright (C) 2009-2013 Citrix Inc. +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU Affero General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public License +# along with this program. If not, see . + +use strict qw(vars); +use DBI; +use Osstest; +use Osstest::TestSupport; + +tsreadconfig(); + +our ($ho,$gho) = ts_get_host_guest(@ARGV); + +guest_destroy($ho, $gho); -- 1.7.10.4