diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2010-03-30 14:30:08 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2010-03-31 02:20:08 +0200 |
| commit | b2eb609d4de39c1359142bc0562daf36e4dee08c (patch) | |
| tree | c532013e1bcd0e8e50680c476660c0c36c78fda1 /selftest/Subunit.pm | |
| parent | beb630b69051acfb6e92ae8ed86007999e7937cd (diff) | |
| download | samba-b2eb609d4de39c1359142bc0562daf36e4dee08c.tar.gz | |
selftest: Use standard subunit commands for progress reporting.
Diffstat (limited to 'selftest/Subunit.pm')
| -rw-r--r-- | selftest/Subunit.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm index 2a9fc0e48b..fce8d0854a 100644 --- a/selftest/Subunit.pm +++ b/selftest/Subunit.pm @@ -176,6 +176,27 @@ sub report_time($) printf "time: %04d-%02d-%02d %02d:%02d:%02d\n", $year+1900, $mon+1, $mday, $hour, $min, $sec; } +sub progress_pop() +{ + print "progress: pop\n"; +} + +sub progress_push() +{ + print "progress: push\n"; +} + +sub progress($;$) +{ + my ($count, $whence) = @_; + + unless(defined($whence)) { + $whence = ""; + } + + print "progress: $whence$count\n"; +} + # The following are Samba extensions: sub start_testsuite($) |