diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-10-26 21:25:43 +0200 |
---|---|---|
committer | Stefan Metzmacher <metze@samba.org> | 2007-12-21 05:43:39 +0100 |
commit | 9d4addadc089b52867c98d714894192e832a27d2 (patch) | |
tree | cf1ada317b35402de51d74df570fde5d61b2d6ae /source4/selftest/output/buildfarm.pm | |
parent | e690c56ab7180f135ba0e67a24f53282c3f0d144 (diff) | |
download | samba-9d4addadc089b52867c98d714894192e832a27d2.tar.gz samba-9d4addadc089b52867c98d714894192e832a27d2.tar.bz2 samba-9d4addadc089b52867c98d714894192e832a27d2.zip |
r25742: Start trimming down hash size for start_testsuite.
(This used to be commit f2319fbe9be76966c81f3d4279f6bc2a631a3a5a)
Diffstat (limited to 'source4/selftest/output/buildfarm.pm')
-rw-r--r-- | source4/selftest/output/buildfarm.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/source4/selftest/output/buildfarm.pm b/source4/selftest/output/buildfarm.pm index b5971e47ad..f3ad9319b4 100644 --- a/source4/selftest/output/buildfarm.pm +++ b/source4/selftest/output/buildfarm.pm @@ -16,21 +16,21 @@ sub new($$$$) { bless($self, $class); } -sub start_testsuite($$) +sub start_testsuite($$$) { - my ($self, $state) = @_; + my ($self, $name, $state) = @_; my $out = ""; my $duration = $state->{START_TIME} - $self->{statistics}->{START_TIME}; $out .= "--==--==--==--==--==--==--==--==--==--==--\n"; - $out .= "Running test $state->{NAME} (level 0 stdout)\n"; + $out .= "Running test $name (level 0 stdout)\n"; $out .= "--==--==--==--==--==--==--==--==--==--==--\n"; $out .= scalar(localtime())."\n"; $out .= "SELFTEST RUNTIME: " . $duration . "s\n"; - $out .= "NAME: $state->{NAME}\n"; + $out .= "NAME: $name\n"; $out .= "CMD: $state->{CMD}\n"; - $self->{test_output}->{$state->{NAME}} = ""; + $self->{test_output}->{$name} = ""; print $out; } @@ -49,9 +49,9 @@ sub control_msg($$$) $self->{test_output}->{$state->{NAME}} .= $output; } -sub end_testsuite($$$$$) +sub end_testsuite($$$$$$) { - my ($self, $state, $expected_ret, $ret, $envlog) = @_; + my ($self, $name, $state, $expected_ret, $ret, $envlog) = @_; my $out = ""; $out .= "TEST RUNTIME: " . (time() - $state->{START_TIME}) . "s\n"; @@ -60,7 +60,7 @@ sub end_testsuite($$$$$) $out .= "ALL OK\n"; } else { $out .= "ERROR: $ret\n"; - $out .= $self->{test_output}->{$state->{NAME}}; + $out .= $self->{test_output}->{$name}; } $out .= "PCAP FILE: $state->{PCAP_FILE}\n" if defined($state->{PCAP_FILE}); @@ -69,9 +69,9 @@ sub end_testsuite($$$$$) $out .= "==========================================\n"; if ($ret == $expected_ret) { - $out .= "TEST PASSED: $state->{NAME}\n"; + $out .= "TEST PASSED: $name\n"; } else { - $out .= "TEST FAILED: $state->{NAME} (status $ret)\n"; + $out .= "TEST FAILED: $name (status $ret)\n"; } $out .= "==========================================\n"; |