summaryrefslogtreecommitdiff
path: root/selftest/output
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2009-05-13 19:42:41 +0200
committerJelmer Vernooij <jelmer@samba.org>2009-06-03 16:26:29 +0200
commit53aeb7f4cf4935fbf48d745e6f38a9793120c1a9 (patch)
tree779369a18390472e427018457afdbecf165d068f /selftest/output
parent87bbae7b0768d3606877a79155e42be0fa2843d8 (diff)
downloadsamba-53aeb7f4cf4935fbf48d745e6f38a9793120c1a9.tar.gz
samba-53aeb7f4cf4935fbf48d745e6f38a9793120c1a9.tar.bz2
samba-53aeb7f4cf4935fbf48d745e6f38a9793120c1a9.zip
selftest: Add subunit output format.
Diffstat (limited to 'selftest/output')
-rw-r--r--selftest/output/subunit.pm102
1 files changed, 102 insertions, 0 deletions
diff --git a/selftest/output/subunit.pm b/selftest/output/subunit.pm
new file mode 100644
index 0000000000..720fe7285c
--- /dev/null
+++ b/selftest/output/subunit.pm
@@ -0,0 +1,102 @@
+#!/usr/bin/perl
+# Subunit output for selftest
+# Copyright (C) 2009 Jelmer Vernooij <jelmer@samba.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+package output::subunit;
+
+use Exporter;
+@ISA = qw(Exporter);
+
+use FindBin qw($RealBin);
+use lib "$RealBin/..";
+
+use Subunit qw(parse_results);
+
+use strict;
+
+sub new($) {
+ my ($class) = @_;
+ my $self = { };
+ bless($self, $class);
+}
+
+sub start_testsuite($$)
+{
+ my ($self, $name) = @_;
+
+ $self->{NAME} = $name;
+
+ print "test: $self->{NAME}\n";
+}
+
+sub output_msg($$)
+{
+ my ($self, $output) = @_;
+
+ print $output;
+}
+
+sub control_msg($$)
+{
+ my ($self, $output) = @_;
+}
+
+sub end_testsuite($$$$$$)
+{
+ my ($self, $name, $result, $unexpected, $reason) = @_;
+
+ if ($result eq "failure" and not $unexpected) { $result = "xfail"; }
+
+ if ($reason) {
+ print "$result: $name [ $reason ]\n";
+ } else {
+ print "$result: $name\n";
+ }
+}
+
+sub start_test($$$)
+{
+ my ($self, $parents, $testname) = @_;
+
+ print "test: $testname\n";
+}
+
+sub end_test($$$$$)
+{
+ my ($self, $parents, $testname, $result, $unexpected, $reason) = @_;
+
+ if ($result eq "fail" and not $unexpected) { $result = "xfail"; }
+
+ if ($reason) {
+ print "$result: $testname [ $reason ]\n";
+ } else {
+ print "$result: $testname\n";
+ }
+}
+
+sub summary($)
+{
+ my ($self) = @_;
+}
+
+sub skip_testsuite($$$$)
+{
+ my ($self, $name, $reason) = @_;
+
+ print "skip: $name\n";
+}
+
+1;