From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dario Faggioli Subject: [PATCH RFC 4/9] ts-unixbench-reslts: for retrieving the results Date: Thu, 26 Jun 2014 15:02:47 +0200 Message-ID: <20140626130247.20110.86820.stgit@Solace> References: <20140626124540.20110.24159.stgit@Solace> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: In-Reply-To: <20140626124540.20110.24159.stgit@Solace> 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@citrix.com, Wei Liu , Ian.Campbell@citrix.com, Stefano Stabellini List-Id: xen-devel@lists.xenproject.org and store them in $c{Stash}/$flight/$job/results. XXX: - I think $c{Stash}///results is a fine place (very similar to what build jobs do, IMO). If a different location should be used, please advise. - This is, for now, only fetching the results. Of course we'd like to do something with them (printing, plotting, storing for long term usage or comparison, etc.). Let's have a discussion about this and I'll implementi it too Signed-off-by: Dario Faggioli --- ts-unixbench-reslts | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) create mode 100755 ts-unixbench-reslts diff --git a/ts-unixbench-reslts b/ts-unixbench-reslts new file mode 100755 index 0000000..37bcfc6 --- /dev/null +++ b/ts-unixbench-reslts @@ -0,0 +1,56 @@ +#!/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; +use File::Basename; + +tsreadconfig(); + +# what we expect as argument list is: +# host= [] +our $ho= selecthost($ARGV[0]); shift @ARGV; +our $gho= $ho; +if ( (0+@ARGV) == 1) { + $gho= selectguest($ARGV[0], $ho); + my $err= guest_check_ip($gho); + die "$err $gho->{Name}" if defined $err; +} + +my $lresults_dir= "$stash/results"; +my $rresults_dir= "/root/unixbench/results"; +ensuredir($lresults_dir); + +my $resultspat= "$rresults_dir/$gho->{Guest}*-01*"; + +my $rresfiles_str= target_cmd_output_root($gho, <&1 ||: + echo $resultspat +END + +my @rresfiles= split(' ', $rresfiles_str); + +foreach (@rresfiles) { + my ($name, $dir, $ext) = fileparse($_, qr/\.[^.]*/); + target_getfile_root($gho, 60, "$_", "$lresults_dir/$gho->{Name}-unixbench$ext"); +} + +logm("results captured to $lresults_dir");