From 641f8d62df2d7ba0e80f3c8d78c3f8185dcf7048 Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Wed, 13 May 2009 19:57:58 +0200 Subject: Support reporting current time in selftest output. --- selftest/selftest.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'selftest/selftest.pl') diff --git a/selftest/selftest.pl b/selftest/selftest.pl index 7e64208ff3..b786c9a50f 100755 --- a/selftest/selftest.pl +++ b/selftest/selftest.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl # Bootstrap Samba and run a number of tests against it. -# Copyright (C) 2005-2008 Jelmer Vernooij +# Copyright (C) 2005-2009 Jelmer Vernooij # Copyright (C) 2007-2009 Stefan Metzmacher # This program is free software; you can redistribute it and/or modify @@ -254,6 +254,7 @@ sub run_testsuite($$$$$$) my ($envname, $name, $cmd, $i, $totalsuites, $msg_ops) = @_; my $pcap_file = setup_pcap($name); + $msg_ops->report_time(time()); $msg_ops->start_test([], $name); unless (open(RESULT, "$cmd 2>&1|")) { @@ -276,6 +277,7 @@ sub run_testsuite($$$$$$) my $exitcode = $? >> 8; + $msg_ops->report_time(time()); if ($ret == 1) { $msg_ops->end_test([], $name, "success", $expected_ret != $ret, undef); } else { @@ -692,7 +694,7 @@ if ($opt_format eq "buildfarm") { } else { die("Invalid output format '$opt_format'"); } - +$msg_ops->report_time(time()); foreach (@available) { my $name = $$_[0]; @@ -886,7 +888,8 @@ $envvarstr my $envvars = setup_env($envname); if (not defined($envvars)) { - $msg_ops->skip_testsuite($name, "unable to set up environment $envname"); + $msg_ops->skip_testsuite($name, + "unable to set up environment $envname"); next; } -- cgit v1.2.3