[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index] [Xen-devel] [PATCH 08/27] ts-unixbench-reslts: for retrieving the results
and store them in $c{Stash}, in a file named according to the following convention: $hostname--$benchname-$benchparams i.e., something like this: debian--unixbench-i3-c2 Signed-off-by: Dario Faggioli <dario.faggioli@xxxxxxxxxx> Cc: Wei Liu <wei.liu2@xxxxxxxxxx> Cc: Ian Campbell <Ian.Campbell@xxxxxxxxxx> Cc: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx> --- Changes from RFCv1: * use target_getfile_root_stash, as suggested during review; --- ts-unixbench-reslts | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100755 ts-unixbench-reslts diff --git a/ts-unixbench-reslts b/ts-unixbench-reslts new file mode 100755 index 0000000..6e5a9a8 --- /dev/null +++ b/ts-unixbench-reslts @@ -0,0 +1,67 @@ +#!/usr/bin/perl -w +# This is part of "osstest", an automated testing framework for Xen. +# Copyright (C) 2009-2014 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 <http://www.gnu.org/licenses/>. + +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=<somehost> [<someguest>] +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 $run_id= (defined($r{'unixbench_run_id'})) ? + $r{'unixbench_run_id'} : '01'; + +our $lresfile= $r{'unixbench_params'}; +$lresfile =~ tr/ //ds; +$lresfile .= (defined($r{'unixbench_run_suffix'})) ? + $r{'unixbench_run_suffix'} : ''; +$lresfile = "unixbench$lresfile"; + +# Unixbench stores results in a subdirectory called 'results'. The file name +# is made up out of the box's hostname, today's date and a progressive id +# (e.g., results/benny-2014-07-02-01). +sub fetch() { + my $rresults_dir= "/root/unixbench/results"; + my $gho_hostname= target_cmd_output_root($gho, 'hostname'); + my $resultspat= "$rresults_dir/$gho_hostname*-$run_id"; + + my $rresfile= target_cmd_output_root($gho, <<END); + chmod a+r $resultspat 2>&1 ||: + echo $resultspat +END + + logm("Fetching $rresfile from $gho_hostname"); + target_getfile_root_stash($gho, 60, "$rresfile", + "$lresfile"); +} + +fetch(); _______________________________________________ Xen-devel mailing list Xen-devel@xxxxxxxxxxxxx http://lists.xen.org/xen-devel
|
Lists.xenproject.org is hosted with RackSpace, monitoring our |