sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-28 07:21:54 +03:00
Code

When not using --immediate, use a one-line progress indicator in selftest.

Browse Source
This commit is contained in:
Jelmer Vernooij 2008-02-18 21:52:23 +01:00
parent fe0f2173c0
commit 16b4af1841
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
source/selftest/output/plain.pm
View File

@ -46,8 +46,15 @@ sub start_testsuite($$)
my $out = "";
$out .= "[$self->{index}/$self->{totalsuites} in ".$duration."s";
$out .= sprintf(", %d errors", ($#{$self->{suitesfailed}}+1)) if ($#{$self->{suitesfailed}} > -1);
$out .= "] $name\n",
print "$out";
$out .= "] $name";
if ($self->{immediate}) {
print "$out\n";
} else {
require Term::ReadKey;
my ($wchar, $hchar, $wpixels, $hpixels) = Term::ReadKey::GetTerminalSize();
foreach (1..$wchar) { $out.= " "; }
print "\r".substr($out, 0, $wchar);
}
}
sub output_msg($$)