diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2009-06-03 18:03:45 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-11 19:59:57 +0200 |
commit | 9e108009d0d4ec97a4b9cf989e3cb2cbc74f4ded (patch) | |
tree | 75e06bc842a46cac149c4751f288f63a25e926a2 /selftest/Subunit.pm | |
parent | 0a1dbf353dc9cf1e0202e013fa112f177cbf51cf (diff) | |
download | samba-9e108009d0d4ec97a4b9cf989e3cb2cbc74f4ded.tar.gz |
subunit: Move more Subunit printing logic to Subunit.pm.
Diffstat (limited to 'selftest/Subunit.pm')
-rw-r--r-- | selftest/Subunit.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm index fc1a3d1d97d..0bbb795c8c2 100644 --- a/selftest/Subunit.pm +++ b/selftest/Subunit.pm @@ -113,4 +113,29 @@ sub parse_results($$$$$) return 1; } +sub start_test($) +{ + my ($testname) = @_; + print "test: $testname\n"; +} + +sub end_test($$;$) +{ + my $name = shift; + my $result = shift; + my $reason = shift; + if ($reason) { + print "$result: $name [ $reason ]\n"; + } else { + print "$result: $name\n"; + } +} + +sub report_time($) +{ + my ($time) = @_; + my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); + printf "time: %04d-%02d-%02d %02d:%02d:%02dZ\n", $year+1900, $mon, $mday, $hour, $min, $sec; +} + 1; |