diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2014-12-14 20:28:25 +0000 |
---|---|---|
committer | Andrew Bartlett <abartlet@samba.org> | 2015-03-06 04:41:48 +0100 |
commit | da04eb9c3aced4ec62c6cda54061a303d608c016 (patch) | |
tree | 5c98e4a5214a0c889990c6ee64d857e83b4626da /lib/subunit/perl/subunit-diff | |
parent | e59f2602f1f89f9d2a9b15a614ab0d86da5adc4e (diff) | |
download | samba-da04eb9c3aced4ec62c6cda54061a303d608c016.tar.gz samba-da04eb9c3aced4ec62c6cda54061a303d608c016.tar.xz samba-da04eb9c3aced4ec62c6cda54061a303d608c016.zip |
Remove bundled subunit.
Change-Id: I18e19c3817de6f97fe2a9fb1b7faa4f8a0d27649
Signed-off-by: Jelmer Vernooij <jelmer@samba.org>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>
Diffstat (limited to 'lib/subunit/perl/subunit-diff')
-rwxr-xr-x | lib/subunit/perl/subunit-diff | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/lib/subunit/perl/subunit-diff b/lib/subunit/perl/subunit-diff deleted file mode 100755 index 581e832ae3..0000000000 --- a/lib/subunit/perl/subunit-diff +++ /dev/null @@ -1,31 +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. - -use Getopt::Long; -use strict; -use FindBin qw($RealBin $Script); -use lib "$RealBin/lib"; -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; |