s4:local_password LDB module - change counter variables to "unsigned" where appropriate
[ira/wip.git] / selftest / BuildFarm.pm
1 #!/usr/bin/perl
2 # Convenience functions for writing output expected by the buildfarm
3 # Copyright (C) 2009 Jelmer Vernooij <jelmer@samba.org>
4 # Published under the GNU GPL, v3 or later
5
6 package BuildFarm;
7
8 use Exporter;
9 @ISA = qw(Exporter);
10 @EXPORT_OK = qw(start_testsuite end_testsuite skip_testsuite summary);
11
12 use strict;
13
14 sub start_testsuite($$)
15 {
16         my ($name, $duration) = @_;
17         my $out = "";
18
19         $out .= "--==--==--==--==--==--==--==--==--==--==--\n";
20         $out .= "Running test $name (level 0 stdout)\n";
21         $out .= "--==--==--==--==--==--==--==--==--==--==--\n";
22         $out .= scalar(localtime())."\n";
23         $out .= "SELFTEST RUNTIME: " . $duration . "s\n";
24         $out .= "NAME: $name\n";
25
26         print $out;
27 }
28
29 sub end_testsuite($$$$$)
30 {
31         my ($name, $duration, $ok, $output, $reason) = @_;
32         my $out = "";
33
34         $out .= "TEST RUNTIME: " . $duration . "s\n";
35         if ($ok) {
36                 $out .= "ALL OK\n";
37         } else {
38                 $out .= "ERROR: $reason\n";
39         }
40         $out .= "==========================================\n";
41         if ($ok) {
42                 $out .= "TEST PASSED: $name\n";
43         } else {
44                 $out .= "TEST FAILED: $name (status $reason)\n";
45         }
46         $out .= "==========================================\n";
47
48         print $out;
49 }
50
51 sub skip_testsuite($)
52 {
53         my ($name) = @_;
54
55         print "SKIPPED: $name\n";
56 }
57
58 sub summary($)
59 {
60         my ($duration) = @_;
61
62         print "DURATION: " . $duration . " seconds\n";
63 }
64
65 1;