diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2010-03-28 21:56:09 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2010-03-28 21:56:09 +0200 |
commit | 45f389b2538f4e1e45fad72142e11f0427a1eaf2 (patch) | |
tree | 7c27beb8dfb05f252b46103ed6224460c6945607 /selftest | |
parent | 235cd3e5c462fd559f9ac58f6336e6a9de4b1000 (diff) | |
download | samba-45f389b2538f4e1e45fad72142e11f0427a1eaf2.tar.gz samba-45f389b2538f4e1e45fad72142e11f0427a1eaf2.tar.bz2 samba-45f389b2538f4e1e45fad72142e11f0427a1eaf2.zip |
selftest: Remove unused BuildFarm output file (now using subunit)
Diffstat (limited to 'selftest')
-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; |