diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2009-05-13 20:10:57 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-03 16:26:30 +0200 |
commit | 1dac17f9413c028916946488f27db05ac2314bf6 (patch) | |
tree | 1eb0f664c186c36c57956bf3c66fbff326654d3b /selftest/BuildFarm.pm | |
parent | 641f8d62df2d7ba0e80f3c8d78c3f8185dcf7048 (diff) | |
download | samba-1dac17f9413c028916946488f27db05ac2314bf6.tar.gz samba-1dac17f9413c028916946488f27db05ac2314bf6.tar.bz2 samba-1dac17f9413c028916946488f27db05ac2314bf6.zip |
selftest: Factor generic functionality for buildfarm output into a
separate perl module.
Diffstat (limited to 'selftest/BuildFarm.pm')
-rw-r--r-- | selftest/BuildFarm.pm | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/selftest/BuildFarm.pm b/selftest/BuildFarm.pm new file mode 100644 index 0000000000..80a91ac154 --- /dev/null +++ b/selftest/BuildFarm.pm @@ -0,0 +1,65 @@ +#!/usr/bin/perl +# Convenience functions for writing output expected by the buildfarm +# Copyright (C) 2009 Jelmer Vernooij <jelmer@samba.org> +# Published under the GNU GPL, v3 or later + +package BuildFarm; + +use Exporter; +@ISA = qw(Exporter); +@EXPORT_OK = qw(start_testsuite end_testsuite skip_testsuite summary); + +use strict; + +sub start_testsuite($$) +{ + my ($name, $duration) = @_; + my $out = ""; + + $out .= "--==--==--==--==--==--==--==--==--==--==--\n"; + $out .= "Running test $name (level 0 stdout)\n"; + $out .= "--==--==--==--==--==--==--==--==--==--==--\n"; + $out .= scalar(localtime())."\n"; + $out .= "SELFTEST RUNTIME: " . $duration . "s\n"; + $out .= "NAME: $name\n"; + + print $out; +} + +sub end_testsuite($$$$$) +{ + my ($name, $duration, $ok, $output, $reason) = @_; + my $out = ""; + + $out .= "TEST RUNTIME: " . $duration . "s\n"; + if ($ok) { + $out .= "ALL OK\n"; + } else { + $out .= "ERROR: $reason\n"; + } + $out .= "==========================================\n"; + if ($ok) { + $out .= "TEST PASSED: $name\n"; + } else { + $out .= "TEST FAILED: $name (status $reason)\n"; + } + $out .= "==========================================\n"; + + print $out; +} + +sub skip_testsuite($) +{ + my ($name) = @_; + + print "SKIPPED: $name\n"; +} + +sub summary($) +{ + my ($duration) = @_; + + print "DURATION: " . $duration . " seconds\n"; +} + +1; |