From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dario Faggioli Subject: [PATCH 16/27] ts-unixbench-reslts: retrieve and stash kernbench results Date: Wed, 10 Dec 2014 19:11:04 +0100 Message-ID: <20141210181104.26400.72266.stgit@Abyss.station> References: <20141210180651.26400.13356.stgit@Abyss.station> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: In-Reply-To: <20141210180651.26400.13356.stgit@Abyss.station> 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 , Wei Liu , Ian Campbell List-Id: xen-devel@lists.xenproject.org in a file named according to the following convention: $hostname--$benchname-$benchparams i.e., something like this: debian--kernbench-n2 Signed-off-by: Dario Faggioli Cc: Wei Liu Cc: Ian Campbell Cc: Ian Jackson --- ts-kernbench-reslts | 60 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100755 ts-kernbench-reslts diff --git a/ts-kernbench-reslts b/ts-kernbench-reslts new file mode 100755 index 0000000..dcb279d --- /dev/null +++ b/ts-kernbench-reslts @@ -0,0 +1,60 @@ +#!/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 Osstest; +use DBI; +use IO::File; +use POSIX; +use Osstest::TestSupport; + +tsreadconfig(); + +# what we expect as argument list is: +# host= [] +our ($whhost,$gn) = @ARGV; +$whhost ||= 'host'; +our $ho= selecthost($whhost); + +our $gho= $ho; +if (defined $gn and $gn ne "") { + $gho= selectguest($gn, $ho); + my $err= guest_check_ip($gho); + die "$err $gho->{Name}" if defined $err; +} + +our $lresfile= $r{'kernbench_params'}; +$lresfile =~ tr/ //ds; +$lresfile .= (defined($r{'kernbench_run_suffix'})) ? + $r{'kernbench_run_suffix'} : ''; +$lresfile = "kernbench$lresfile"; + +# Kernbench stores results in the linux kernel tree it +# built, in a file called kernbench.log +sub results() { + my $rresults_dir= "/root/linux-kernbench"; + my $rresfile= "$rresults_dir/kernbench.log"; + + my $gho_hostname= target_cmd_output_root($gho, 'hostname'); + target_cmd_root($gho, "chmod a+r $rresfile", 60); + + logm("Fetching $rresfile from $gho_hostname"); + target_getfile_root_stash($gho, 60, "$rresfile", + "$lresfile"); +} + +results();