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

[Guido Günther]

On Thu, Oct 13, 2011 at 12:12:10PM +0100, Daniel P. Berrange wrote:
> 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
Pushed. Thanks!
 -- Guido