diff options
| -rw-r--r-- | selftest/BuildFarm.pm | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/selftest/BuildFarm.pm b/selftest/BuildFarm.pm deleted file mode 100644 index 80a91ac154..0000000000 --- a/selftest/BuildFarm.pm +++ /dev/null @@ -1,65 +0,0 @@ -#!/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; |