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

(This used to be commit 16b4af184187f29f1f710609ee37029a3f15a294)

diff --git a/source4/selftest/output/plain.pm b/source4/selftest/output/plain.pm
index 1e6dead32660556fcc6214a7c0de1a0932632d35..e491a999ab196e9fd09fc0ff5d6aa1a21c592098 100644 (file)
--- a/source4/selftest/output/plain.pm
+++ b/source4/selftest/output/plain.pm
@@ -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($$)