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 :|