diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-12-20 15:54:05 +0100 |
---|---|---|
committer | Stefan Metzmacher <metze@samba.org> | 2007-12-21 06:28:48 +0100 |
commit | 70c9374305fdb39ca92b3490bfdbc23043960637 (patch) | |
tree | fc1505fd56e2e55c67a2759770cf5c3bf9a6ffbc /source4/selftest/output/plain.pm | |
parent | 254f1c6fee18dd14d2f9f97d65e6fe9ef04c26f2 (diff) | |
download | samba-70c9374305fdb39ca92b3490bfdbc23043960637.tar.gz samba-70c9374305fdb39ca92b3490bfdbc23043960637.tar.bz2 samba-70c9374305fdb39ca92b3490bfdbc23043960637.zip |
r26548: Remove remaining variables from state hash.
(This used to be commit 84f5b3e257241f699f3e51d8f282fa00cfd1000a)
Diffstat (limited to 'source4/selftest/output/plain.pm')
-rw-r--r-- | source4/selftest/output/plain.pm | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/source4/selftest/output/plain.pm b/source4/selftest/output/plain.pm index a11ada871a..af353c3cff 100644 --- a/source4/selftest/output/plain.pm +++ b/source4/selftest/output/plain.pm @@ -6,8 +6,8 @@ use Exporter; use strict; -sub new($$$$$) { - my ($class, $summaryfile, $verbose, $immediate, $statistics) = @_; +sub new($$$$$$) { + my ($class, $summaryfile, $verbose, $immediate, $statistics, $totaltests) = @_; my $self = { verbose => $verbose, immediate => $immediate, @@ -16,6 +16,8 @@ sub new($$$$$) { suitesfailed => [], skips => {}, summaryfile => $summaryfile, + index => 0, + totalsuites => $totaltests, }; bless($self, $class); } @@ -26,14 +28,16 @@ sub start_testsuite($$$) { my ($self, $name, $state) = @_; + $self->{index}++; + $state->{NAME} = $name; + $state->{START_TIME} = time(); + my $duration = $state->{START_TIME} - $self->{statistics}->{START_TIME}; $self->{test_output}->{$name} = "" unless($self->{verbose}); - $self->output_msg($state, "CMD: $state->{CMD}\n"); - my $out = ""; - $out .= "[$state->{INDEX}/$state->{TOTAL} in ".$duration."s"; + $out .= "[$self->{index}/$self->{totalsuites} in ".$duration."s"; $out .= sprintf(", %d errors", $self->{statistics}->{SUITES_FAIL}) if ($self->{statistics}->{SUITES_FAIL} > 0); $out .= "] $name\n", print "$out"; @@ -162,6 +166,8 @@ sub skip_testsuite($$) my ($self, $name, $reason) = @_; push (@{$self->{skips}->{$reason}}, $name); + + $self->{totalsuites}--; } 1; |