Remove bundled subunit.

[samba.git] / lib / subunit / perl / lib / Subunit / Diff.pm

diff --git a/lib/subunit/perl/lib/Subunit/Diff.pm b/lib/subunit/perl/lib/Subunit/Diff.pm
deleted file mode 100644 (file)
index e7841c3..0000000
--- a/lib/subunit/perl/lib/Subunit/Diff.pm
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/bin/perl
-# Diff two subunit streams
-# Copyright (C) Jelmer Vernooij <jelmer@samba.org>
-#
-#  Licensed under either the Apache License, Version 2.0 or the BSD 3-clause
-#  license at the users choice. A copy of both licenses are available in the
-#  project source as Apache-2.0 and BSD. You may not use this file except in
-#  compliance with one of these two licences.
-#  
-#  Unless required by applicable law or agreed to in writing, software
-#  distributed under these licenses is distributed on an "AS IS" BASIS, WITHOUT
-#  WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.  See the
-#  license you chose for the specific language governing permissions and
-#  limitations under that license.
-
-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 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;