From 0cdc021ba4cc0f400e6fbce173e0d17dee69ee64 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Tue, 30 Mar 2010 01:00:16 +0200
Subject: selftest: Remove diff-subunit - it's included in subunit and not
 necessary for normal operation.

---
 selftest/Subunit/Diff.pm | 80 ------------------------------------------------
 selftest/diff-subunit.pl | 21 -------------
 2 files changed, 101 deletions(-)
 delete mode 100644 selftest/Subunit/Diff.pm
 delete mode 100755 selftest/diff-subunit.pl

diff --git a/selftest/Subunit/Diff.pm b/selftest/Subunit/Diff.pm
deleted file mode 100644
index de251b37b3..0000000000
--- a/selftest/Subunit/Diff.pm
+++ /dev/null
@@ -1,80 +0,0 @@
-#!/usr/bin/perl
-# Diff two subunit streams
-# Copyright (C) Jelmer Vernooij <jelmer@samba.org>
-# Published under the GNU GPL, v3 or later
-
-package Subunit::Diff;
-
-use strict;
-
-use Subunit qw(parse_results);
-
-sub control_msg() { }
-sub report_time($$) { }
-
-sub output_msg($$)
-{
-	my ($self, $msg) = @_;
-
-	# No output for now, perhaps later diff this as well ?
-}
-
-sub start_test($$)
-{
-	my ($self, $testname) = @_;
-}
-
-sub end_test($$$$$)
-{
-	my ($self, $testname, $result, $unexpected, $reason) = @_;
-
-	$self->{$testname} = $result;
-}
-
-sub skip_testsuite($;$) { } 
-sub start_testsuite($;$) { }
-sub end_testsuite($$;$) { }
-sub testsuite_count($$) { }
-
-sub new {
-	my ($class) = @_;
-
-	my $self = { 
-	};
-	bless($self, $class);
-}
-
-sub from_file($)
-{
-	my ($path) = @_;
-	my $statistics = {
-		TESTS_UNEXPECTED_OK => 0,
-		TESTS_EXPECTED_OK => 0,
-		TESTS_UNEXPECTED_FAIL => 0,
-		TESTS_EXPECTED_FAIL => 0,
-		TESTS_ERROR => 0,
-		TESTS_SKIP => 0,
-	};
-
-	my $ret = new Subunit::Diff();
-	open(IN, $path) or return;
-	parse_results($ret, $statistics, *IN);
-	close(IN);
-	return $ret;
-}
-
-sub diff($$)
-{
-	my ($old, $new) = @_;
-	my $ret = {};
-
-	foreach my $testname (keys %$old) {
-		if ($new->{$testname} ne $old->{$testname}) {
-			$ret->{$testname} = [$old->{$testname}, $new->{$testname}];
-		}
-	}
-
-	return $ret;
-}
-
-1;
diff --git a/selftest/diff-subunit.pl b/selftest/diff-subunit.pl
deleted file mode 100755
index fc80c371f8..0000000000
--- a/selftest/diff-subunit.pl
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl
-# Diff two subunit streams
-# Copyright (C) Jelmer Vernooij <jelmer@samba.org>
-# Published under the GNU GPL, v3 or later
-
-use Getopt::Long;
-use strict;
-use FindBin qw($RealBin $Script);
-use lib "$RealBin";
-use Subunit::Diff;
-
-my $old = Subunit::Diff::from_file($ARGV[0]);
-my $new = Subunit::Diff::from_file($ARGV[1]);
-
-my $ret = Subunit::Diff::diff($old, $new);
-
-foreach my $e (sort(keys %$ret)) {
-	printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];
-}
-
-0;
-- 
cgit