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

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