[libvirt] [PATCH] [libvirt-tck] Allow to pass --timer to prove

[Daniel P. Berrange]

On Thu, Oct 13, 2011 at 01:05:59PM +0200, Guido Günther wrote:
> so execution times can be reported too.
> ---
>  bin/libvirt-tck |   11 ++++++++++-
>  1 files changed, 10 insertions(+), 1 deletions(-)
> 
> diff --git a/bin/libvirt-tck b/bin/libvirt-tck
> index dcb053c..816234b 100644
> --- a/bin/libvirt-tck
> +++ b/bin/libvirt-tck
> @@ -109,6 +109,10 @@ Generate an archive containing all the raw test results. The
>  filename given should end in either C<.bz>, C<.tar.gz> or
>  C<.tgz>
>  
> +=item --timer
> +
> +Print elapsed time after each test.
> +
>  =back
>  
>  =cut
> @@ -136,6 +140,7 @@ my $quiet = 0;
>  my $help = 0;
>  my $force = 0;
>  my $debug = 0;
> +my $timer = 0;
>  my $archive;
>  my $config = catfile($confdir, "default.cfg");
>  my $format = "text";
> @@ -149,7 +154,8 @@ if (!GetOptions("verbose" => \$verbose,
>  		"config=s" => \$config,
>  		"force" => \$force,
>  		"format=s" => \$format,
> -		"testdir=s" => \$testdir) || $help) {
> +		"testdir=s" => \$testdir,
> +		"timer" => \$timer) || $help) {
>      pod2usage(-verbose => $help,
>  	      -output => $help ? \*STDOUT : \*STDERR,
>  	      -exitval => $help ? 0 : 1);
> @@ -204,6 +210,9 @@ if ($format eq "xml") {
>  	      -output => \*STDERR);
>  }
>  
> +if ($timer) {
> +    push @newargv, "--timer";
> +}
>  
>  # This env variable is the only way to pass config into
>  # the Sys::Virt::TCK module from here

ACK


Daniel
-- 
|: http://berrange.com      -o-    http://www.flickr.com/photos/dberrange/ :|
|: http://libvirt.org              -o-             http://virt-manager.org :|
|: http://autobuild.org       -o-         http://search.cpan.org/~danberr/ :|
|: http://entangle-photo.org       -o-       http://live.gnome.org/gtk-vnc :|